Changeset 21

Timestamp:

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

Author:

toby

Message:

# on 1999/01/07 04:43:03, toby did:
misc fixes:

set working directory when expgui(expfile) is changed because GSAS must be
run in the directory of the EP file

fixup relative paths if used for the script name

fix bug in expgui(gsasexe) file join

in DisplayProfile? & make sure that entrycmd(trace) is as 0 when return is done

add Override backspace to options

File:

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

trunk/expgui

@@ -37 +37 @@
 }
 if {$expgui(expfile) == ""} exit
+catch {cd [string trim [file dirname $expgui(expfile)]]}
 
 set expgui(debug) 0
@@ -93 +94 @@
     }
 }
+# fixup relative paths
+if {[file pathtype $expgui(script)] == "relative"} {
+    set expgui(script) [file join [pwd] $expgui(script)]
+}
 set expgui(scriptdir) [file dirname $expgui(script) ]
 set expgui(gsasdir) [file dirname $expgui(scriptdir)]
-set expgui(gsasexe) [file join $ expgui(gsasdir) exe]
+set expgui(gsasexe) [file join $expgui(gsasdir) exe]
 #----------------------------------------------------------------
 # fetch EXP file processing routines 
@@ -231 +236 @@
                 [getstring "title for experiment $newexpfile" 60 0]
     set expgui(expfile) $newexpfile
+    catch {cd [string trim [file dirname $expgui(expfile)]]}
     loadexp $expgui(expfile)
 }
@@ -242 +248 @@
     if {$newexpfile == ""} return 
     set expgui(expfile) $newexpfile
+    catch {cd [string trim [file dirname $expgui(expfile)]]}
     expwrite $expgui(expfile)
     set expgui(changed) 0
@@ -270 +277 @@
     if {$newexpfile == ""} return 
     set expgui(expfile) $newexpfile
+    catch {cd [string trim [file dirname $expgui(expfile)]]}
     loadexp $expgui(expfile)
 }
@@ -1510 +1518 @@
     }
 
-    # disable traces on entryvar for right now
-    set entrycmd(trace) 0
     # destroy the contents of the frame
     eval destroy [grid slaves  $expgui(ProfileBox).f]
@@ -1518 +1524 @@
         # must have at least one histogram selected here
         if {[llength $expgui(curhist)] == 0} return
+        # disable traces on entryvar for right now
+        set entrycmd(trace) 0
         set hist [lindex $expmap(powderlist) $expgui(curhist)]
         # Create one frame for each Phase.
@@ -1583 +1591 @@
         # must have at least one histogram selected here
         if {[llength $histlist] == 0} return
+        # disable traces on entryvar for right now
+        set entrycmd(trace) 0
         # loop through histograms & phases, set up an array by type
         catch {unset ptypearray histarray phasearray}
@@ -1730 +1740 @@
         $expgui(lsFrame).hs.lbox selection set $h
     }
-    # disable traces on entryvar for right now
-    set entrycmd(trace) 0
 
     # get histogram list
@@ -1749 +1757 @@
         }
     } elseif {[llength $histlist] == 1} {
+        # disable traces on entryvar
+        set entrycmd(trace) 0
         set entryvar(fobsextract) [histinfo $histlist foextract]
         foreach phase {1 2 3 4 5 6 7 8 9} {
@@ -1769 +1779 @@
         }
     } elseif {[llength $histlist] > 1} {
+        # disable traces on entryvar
+        set entrycmd(trace) 0
         # multiple histograms need phases in any histogram
         foreach phase {1 2 3 4 5 6 7 8 9} {
@@ -2875 +2887 @@
 set  expgui(globalmode) 0
 
+if {$tcl_platform(platform) != "windows"} {
+    $expgui(fm).option.menu  add checkbutton -label "Override backspace" \
+            -variable env(GSASBACKSPACE)
+}
+
 pack $expgui(fm).file $expgui(fm).option -side left  -in $expgui(fm)