Changeset 944

Timestamp:

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

Author:

toby

Message:

fix positioning, remove localconfig

Location:

trunk

Files:

• doc/expguic.html (modified) (5 diffs)
• expgui (modified) (4 diffs)
• localconfig (deleted)

trunk/doc/expguic.html

@@ -66 +66 @@
 <BLOCKQUOTE>
 This menu contains options that determine how EXPGUI runs.
-<DL>
 <a name="archive"></a>
-<DT>archive EXP<DD>Toggles archiving of .EXP files. When on, files are 
+<DL>
+<DT>archive EXP<DD>
+  Toggles archiving of .EXP files. When on, files are 
         saved before they are overwritten by EXPGUI as a file
         named <I>EXPNAM</I>.Oxx where xx is a pair of hexidecimal
@@ -98 +99 @@
 <a href="#archive">archive files</A>, but this may require more effort.
 
+<a name="execprompt"></a>
+<DT>Prompt after GSAS run<DD>
+<IMG SRC="new.gif" HEIGHT=13 WIDTH=36 alt="New!">
+By default, GSAS programs are run in a separate window 
+and after the program completes, the window remains open until enter is
+pressed in the window. Turning the "Prompt after GSAS run" option off, causes
+the window to be closed immediately after the program completes, saving 
+some effort but obliterating any error messages or other evidence of problems.
+
 <a name="Autoicon"></a>
 <DT>Iconify during GSAS<DD>
@@ -106 +116 @@
 but this is an option so that the mode can be turned off by those people
 who find this behavior annoying.
-
-<a name="execprompt"></a>
-<DT>Prompt after GSAS run<DD>
-<IMG SRC="new.gif" HEIGHT=13 WIDTH=36 alt="New!">
-By default, GSAS programs are run in a separate window 
-and after the program completes, the window remains open until enter is
-pressed in the window. Turning the "Prompt after GSAS run" option off, causes
-the window to be closed immediately after the program completes, saving 
-some effort but obliterating any error messages or other evidence of problems.
 
 <a name="AutostartGRWND"></a>
@@ -180 +181 @@
 always shown.
 
-<DT>SaveOptions<DD>Save the current values for "Override backspace", 
+<DT>Save Options<DD>Save the current values for "Override backspace", 
         <a href="#sortatoms">"Sort atoms by"</a>, 
         <a href="#sorthist">"Sort histograms by"</a>, 
@@ -190 +191 @@
         
         in file ~/.gsas_config (or c:\gsas.config on Windows).
+<DT>Save Position<DD>Saves the current screen position of the EXPGUI
+  window as the starting point for future runs of EXPGUI in
+        in file ~/.gsas_config (or c:\gsas.config on Windows).
+
 <DT>liveplot_options<DD>Used to set options for 
 <a HREF="liveplot.html#liveplot">LIVEPLOT</a>,
 for example, the histogram to be plotted
+<DT>Assign app to .EXP files<DD>(on Mac only) When selected, this
+  causes .EXP files to be linked (via the file resource fork) to the
+  EXPGUI applescript. This also causes the .EXP files to be displayed
+  with a GSAS icon. 
+  
 </DL>
 <img SRC="m2.gif"  BORDER=3 alt="EXPGUI Screen snapshot">

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