[Emc-commit] emc2/tcl/bin popimage,1.2,1.3

[Chris R. <cr...@us...>]

Update of /cvsroot/emc/emc2/tcl/bin
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv9427/tcl/bin

Modified Files:
	popimage 
Log Message:
keep the image from flashing in the upper left corner


Index: popimage
===================================================================
RCS file: /cvsroot/emc/emc2/tcl/bin/popimage,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -d -r1.2 -r1.3
--- popimage	29 Jan 2006 21:07:27 -0000	1.2
+++ popimage	30 Jan 2006 15:40:07 -0000	1.3
@@ -8,7 +8,6 @@
 }
 
 . configure -borderwidth 0 -highlightthickness 0
-wm overrideredirect . 1
 
 set img [lindex $argv 0]
 
@@ -37,11 +36,11 @@
 
 # Center popup in screen.
 
-update idletasks
 set xmax [winfo screenwidth .]
 set ymax [winfo screenheight .]
 set x [expr ($xmax - [image width image1] )  / 2]
 set y [expr ($ymax - [image width image1] )  / 2]
 wm geometry . "+$x+$y"
+wm overrideredirect . 1
 
 after $imgtime exit