Tk Library Source Code: Attachment Details

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:

     1
     2
     3
     4
     5
     6
     7
     8
     9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
*** 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
      }
  }