Changeset 944 for trunk/expgui

Timestamp:

Mar 8, 2010 11:59:02 PM (11 years ago)

Author:

toby

Message:

fix positioning, remove localconfig

File:

• trunk/expgui (modified) (4 diffs)

trunk/expgui

@@ -305 +305 @@
     catch {set ypos $expgui(ypos)}
     set poscntr "nsew"
-    catch {set posnctr $expgui(poscenter)}
+    catch {set poscntr $expgui(poscenter)}
     LocateWindow "." $xpos $ypos $poscntr
     # windows needed this update before when using tk_getOpenFile. 
@@ -659 +659 @@
         puts $fp "set peakinfo($v) [list $peakinfo($v)]"
     }
+    close $fp
+}
+
+# save some of the global options in ~/.gsas_config or ~/gsas.config in Windows
+proc SavePosition {} {
+    global expgui env tcl_platform graph peakinfo
+    if {$tcl_platform(platform) == "windows"} {
+        set fp [open c:/gsas.config a]
+    } else {
+        set fp [open [file join ~ .gsas_config] a]
+    }
+
+    puts $fp "# EXPGUI saved screen position on [clock format [clock seconds]]"
+    puts $fp "set expgui(xpos) [expr {[winfo x .]*100./[winfo screenwidth .]}]"
+    puts $fp "set expgui(ypos) [expr {[winfo y .]*100./[winfo screenheight .]}]"
+    puts $fp "set expgui(poscenter) NW"
     close $fp
 }
@@ -4256 +4272 @@
 $expgui(fm).option.menu add command -label "Save Options" \
         -command "SaveOptions"
+$expgui(fm).option.menu add command -label "Save Position" \
+        -command "SavePosition"
 pack $expgui(fm).file $expgui(fm).option -side left  -in $expgui(fm)
 
@@ -4415 +4433 @@
 catch {set ypos $expgui(ypos)}
 set poscntr "nsew"
-catch {set posnctr $expgui(poscenter)}
+catch {set poscntr $expgui(poscenter)}
 LocateWindow "." $xpos $ypos $poscntr
 update