Changeset 44

Timestamp:

Dec 4, 2009 4:59:27 PM (13 years ago)

Author:

toby

Message:

# on 1999/01/21 22:42:08, toby did:
add SaveOptions?
use localconfig & .gsas_config
move AutoAdvance? to new Options menu

File:

• trunk/lstview (modified) (6 diffs, 3 props)

trunk/lstview

@@ -29 +29 @@
 set box {}
 set txtvw(followcycle) 1
-# override options with locally defined values
-if [file exists ~/.lstview_config] {
-    source ~/.lstview_config
-}
 
 proc waitmsg {message} {
@@ -199 +195 @@
 }
 
-
 proc findsetstring {win string {menu ""} {pos 0.0}} {
     global txtvw 
@@ -294 +289 @@
 }
 
+proc SaveOptions {} {
+    global txtvw
+    set fp [open [file join ~ .gsas_config] a]
+    puts $fp "set txtvw(followcycle) $txtvw(followcycle)"
+    close $fp
+}
+
 proc aboutgsas {} {
     global Revision
@@ -302 +304 @@
 $Revision\n\
 " {} 0 OK
+}
+
+#----------------------------------------------------------------
+# where are we?
+set expgui(script) [info script]
+# translate links -- go six levels deep
+foreach i {1 2 3 4 5 6} {
+    if {[file type $expgui(script)] == "link"} {
+        set link [file readlink $expgui(script)]
+        if { [file  pathtype  $link] == "absolute" } {
+h           set expgui(script) $link
+        } {
+            set expgui(script) [file dirname $expgui(script)]/$link
+        }
+    } else {
+        break
+    }
+}
+
+# fixup relative paths
+if {[file pathtype $expgui(script)] == "relative"} {
+    set expgui(script) [file join [pwd] $expgui(script)]
+}
+set expgui(scriptdir) [file dirname $expgui(script) ]
+# override options with locally defined values
+if [file exists [file join $expgui(scriptdir) localconfig]] {
+    source [file join $expgui(scriptdir) localconfig]
+}
+if [file exists [file join ~ .gsas_config]] {
+    source [file join ~ .gsas_config]
 }
 
@@ -330 +362 @@
             -side left
 menu .a.goto.menu
-.a.goto.menu  add checkbutton -label "Auto Advance" -variable txtvw(followcycle) 
 .a.goto.menu add cascade -label "Cycle #"  -menu .a.goto.menu.cyc \
         -state disabled
@@ -344 +375 @@
 .a.goto.menu add cascade -label ""  -menu .a.goto.menu.str -state disabled
 menu .a.goto.menu.str
+
+pack [menubutton .a.options -text "Options" -underline 0 \
+        -menu .a.options.menu] \
+            -side left
+menu .a.options.menu
+.a.options.menu  add checkbutton -label "Auto Advance" -variable txtvw(followcycle) 
+.a.options.menu add command -label "Save Options" -underline 1 \
+        -command "SaveOptions"
 
 if {$plotvars && ![catch {package require BLT}]} {