home *** CD-ROM | disk | FTP | other *** search
/ PC World 2000 December / PCWorld_2000-12_cd.bin / Komunikace / Comanche / extra / center.tcl next >
Text File  |  2000-11-02  |  510b  |  20 lines
  1.  
  2. # FRom an Usenet post by Jeroen Hoppenbrouwers <hoppie@kub.nl>
  3.  
  4. proc centerScreen {w} {
  5.    # Center the window on the screen.
  6.    # <in> w = A toplevel window.
  7.   global tcl_platform
  8.     if [string match $tcl_platform(platform) windows] {
  9.     return
  10.     }
  11.    wm withdraw $w
  12.    update idletasks
  13.    set x [expr [winfo screenwidth $w]/2 - [winfo reqwidth $w]/2]
  14.    set y [expr [winfo screenheight $w]/2 - [winfo reqheight $w]/2]   
  15.    wm geom $w +$x+$y
  16.    update idletasks
  17.    wm deiconify $w
  18.    update idletasks
  19. }
  20.