comp.lang.tcl Google Group

Re: Please Help Capturing Photo for Tcl/Tk Vertical Text

roger.schnei...@addcom.de (Arndt Roger Schneider) — Fri, 25 Jul 2008 19:48:24 UT

keithv schrieb:
volunteering? :)
Don't need this! Have done it, yes!
Guess there are plenty such rotated fonts out there anyway--just look!
As for font design:
The thing is: You make a probable copyright violation either by using
images --as You did-- or a rotated font!
Well, the proper tool for font design is fontgrapher,

Re: Please Help Capturing Photo for Tcl/Tk Vertical Text

kvet...@gmail.com (keithv) — Fri, 25 Jul 2008 19:03:17 UT

On Jul 25, 10:16 am, Arndt Roger Schneider <roger.schnei...@addcom.de>
wrote:
Yes that would be a better solution, are you
volunteering? :)
Keith

Re: xotcl question

manf...@antispam.at (Manfred Stelzhammer) — Fri, 25 Jul 2008 18:03:46 UT

stefan schrieb:
Thanks
Manfred

XOTcl slots

manf...@antispam.at (Manfred Stelzhammer) — Fri, 25 Jul 2008 17:46:13 UT

Hi
package require XOTcl
namespace import xotcl::*
Class Person -slots {
Attribute name
Attribute salary -default 0
Attribute projects -default {} -multivalued true
}
Person p1 -name jo
package require XOTcl
namespace import xotcl::*
Class Person1
Person1 slot name
Person1 slot salary default 0

Re: [XOTcl] Increment an attribute

manf...@antispam.at (Manfred Stelzhammer) — Fri, 25 Jul 2008 17:37:15 UT

Daniel Kirsch schrieb:
Powerpoint instproc getNextSlide {} {
my incr slidesPos
# more stuff
Regards Manfred

Re: [XOTcl] Increment an attribute

gle...@ncf.ca (Glenn Jackman) — Fri, 25 Jul 2008 17:19:04 UT

my incr slidesPos

[XOTcl] Increment an attribute

iwillnotread_dan...@gmx.de (Daniel Kirsch) — Fri, 25 Jul 2008 16:54:21 UT

I'm working with XOTcl and have a class like this:
Class Powerpoint -slots {
Attribute slidesPos -default 0;
# more stuff
Powerpoint instproc getNextSlide {} {
my slidesPos [expr {[my slidesPos] + 1}];
# more stuff
Is there something more straight forward for the line
my slidesPos [expr {[my slidesPos] + 1}];

Re: Lexing / parsing in Tcl

michael.bau...@gmail.com (relaxmike) — Fri, 25 Jul 2008 16:16:25 UT

I did not expect that problem...
After some search on this, I found several web pages
dealing with that problem.
If that was a professional project, I would have
stopped these experiments a long time ago.
Since it is only a personal project, I think that
nothing is crazy enough to discourage me...
Anyway, it is obvious that I will need to learn much

Re: User Input Question

gle...@ncf.ca (Glenn Jackman) — Fri, 25 Jul 2008 16:13:46 UT

[...]
Without knowing the structure of your code, hard to say. Clearly, you'd
need to populate a variable before you use it. Is your program supposed
to loop to handle configuration for multiple machines? If yes, you'd
need to ask your questions inside the loop.
For other variables, you could use the same formula, or you could use

cheap VERSACE sunglasses PayPal

yuwenwu...@gmail.com (kjldf) — Fri, 25 Jul 2008 15:18:25 UT

cheap VERSACE sunglasses PayPal
Dear friend
welcome to shopping on [link]
Our company launched a new activity which will largely save your time.
If you pay us more money , we will give you the equal web money which
you can use in next order, so you need not go to the bank to remit
the money every time. Also, we can send your parcel at the first

Re: User Input Question

dukie91...@gmail.com (Dukie91191) — Fri, 25 Jul 2008 15:10:26 UT

Glenn,
Thank you for you reply. I am relatively new to Tcl/Expect, so bear
with me, but where would I need to insert that code? just before the
point where the user will gain control? or at the beginning of the
script? Also, there are a few more options after that which would need
user input, would i follow the same formula as above? or would that

Re: User Input Question

cla...@lairds.us (Cameron Laird) — Fri, 25 Jul 2008 14:46:46 UT

In article <855746cf-979e-4652-9795-5fc54 7903...@a6g2000prm.googlegroup s.com>,
.
.
.
Does
puts -nonewline "Please tell me what IP address to use now: "
flush stdout
set user_response [gets stdin]
puts "\[See? The user entered '$user_response'.]"
configure ipaddress $user_response

Re: User Input Question

gle...@ncf.ca (Glenn Jackman) — Fri, 25 Jul 2008 15:02:53 UT

Adapting an example from the Exploring Expect book:
set prev_timeout $timeout
set timeout -1
send_user "enter the next ip address: "
expect_user {
-re "(\[0-9]+\.\[0-9]+\.\[0-9]+\.\ [0-9]+)\n" {
# loose validation only
set next_ip $expect_out(1,string)
}

Tk8.5: text-widget yview command gives wrong information

uwe.schm...@bezreg-koeln.nrw.de (Uwe Schmitz) — Fri, 25 Jul 2008 14:56:12 UT

After upgrading to 8.5.2 (from an early 8.4 version),
a "self-written-text-widget-base d" editor shows
some strange behavior when editing large text files.
A deeper look showed a weird behavior of the text
widget. The following code might demonstrate this:
<code>
if {$tcl_platform(platform) eq "windows"} {

Re: User Input Question

gle...@ncf.ca (Glenn Jackman) — Fri, 25 Jul 2008 14:52:14 UT

Adapting an example from the Exploring Expect book (untested):
set prev_timeout $timeout
set timeout -1
send_user "enter the next ip address: "
expect_user {
-re "(\d{1,3}\.\d{1,3}\.\d{1,3}\.\ d{1,3})\n" {
set next_ip $expect(1,string)
}
-re "(.*)\n" {