Overview
| Artifact ID: | f53eb45cdd55c40684fd0b02143b0e282b67efb3 |
|---|---|
| Ticket: | 528929ffffffffffffffffffffffffffffffffff |
| Date: | 2002-03-12 20:13:05 |
| User: | bach |
| Artifact Attached: | 59aa20222820df898cbb040e94d93306c3872d95 |
| Filename: | dynhelp_patch.txt |
| Description: | Patch fixing small bug in _show_help proc |
Content:
*** dynhelp.tcl.~1.1~ Tue Mar 12 13:57:32 2002
--- dynhelp.tcl Tue Mar 12 13:58:46 2002
***************
*** 325,330 ****
--- 325,332 ----
pack $_top.label -side left
update idletasks
+ if {![winfo exists $_top]} {return}
+
set scrwidth [winfo vrootwidth .]
set scrheight [winfo vrootheight .]
set width [winfo reqwidth $_top]
***************
*** 341,346 ****
--- 343,349 ----
wm geometry $_top "+$x+$y"
update idletasks
+ if {![winfo exists $_top]} {return}
wm deiconify $_top
}
}