Changeset 74 for trunk

Timestamp:

Dec 4, 2009 4:59:58 PM (14 years ago)

Author:

toby

Message:

# on 1999/03/30 16:18:11, toby did:
Set expnam on command line to upper case
move expgui to center of screen window, if we will put the file open
on top. This is because the open window can end up partly off screen otherwise.

File:

• trunk/expgui (modified) (2 diffs, 3 props)

trunk/expgui

@@ -35 +35 @@
         append expgui(expfile) ".EXP"
     }
+    if {[file dirname $expgui(expfile)] == "."} {
+        set expgui(expfile) [string toupper $expgui(expfile)]
+    } else {
+        set expgui(expfile) [file join \
+                [file dirname $expgui(expfile)] \
+                [file tail [string toupper $expgui(expfile)]]
+        ]
+    }
 } else {
     set expgui(expfile) {}
@@ -128 +136 @@
 }
 if {$expgui(expfile) == ""} {
-    # windows needs this update or focus gets screwed up after tk_getOpenFile
+    # center the parent window because the getExpFileName window
+    # will be centered above it.
+    wm withdraw .
+    set x [expr [winfo screenwidth .]/2 - [winfo reqwidth .]/2 ]
+    set y [expr [winfo screenheight .]/2 - [winfo reqheight .]/2]
+    wm geom . +$x+$y
+    wm deiconify .
+    # windows needed this update before when using tk_getOpenFile. 
+    # I am not sure it is still needed.
     update
+    #
     set expgui(expfile) [getExpFileName old]
 }