>
> Finally, I have the failure criteria:
>
> Do the following:
>
> 1. create 2 toggle buttons.
>
> 2. double click each toggle button and add
> comment text in each -command window, then
> hit OK in each window to save and close the
> edit windows.
>
> 3. double click toggle button 1 (edit window1 appears)
> double click toggle button2 (edit window2 appears)
> double click toggle button 1 again. (note that
> window1 does not raise to the top)
>
> 4. Cancel the windows. (This is the key)
>
> 5. double click toggle button 1 and the comment
> text has disappeared!
>
> I don't have the time to track this down but I think
> Stewart has enough information now to find this
> little puppy. :)
>
> Regards,
>
> Tony
Actually, looks like I did manage to get a few
minutes together between house painting episodes
...
I think I have a fix for this problem:
vTcl:get_command in command.tcl should have line
60 changed from
proc vTcl:get_command {title initial base} {
global vTcl
- if [winfo exists $base] {wm deiconify $base; return}
set vTcl(x,$base) -1
to
proc vTcl:get_command {title initial base} {
global vTcl
+ if [winfo exists $base] {wm deiconify $base; return -1}
set vTcl(x,$base) -1
The problem appears to be that set command expects
either a new command returned from get_command or
a -1. since get_command returned nothing in the return,
the command text was being wiped out.
This fix works, but I am not sure if this the fix
Stewart wants to apply.
Gotta go, my wife is calling ...
Regards,
Tony
