Changeset 478

Timestamp:

Dec 4, 2009 5:06:50 PM (13 years ago)

Author:

toby

Message:

# on 2001/10/31 20:06:10, toby did:
fix .Oxx bug when no files are found
add excledt support

File:

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

trunk/expgui

@@ -136 +136 @@
 # commands for preferred orientation
 source [file join $expgui(scriptdir) orient.tcl]
+# setting data range/excluded regions
+source [file join $expgui(scriptdir) exclinit.tcl]
 #---------------------------------------------------------------------------
 # override options with locally defined values
@@ -254 +256 @@
         if {$ans != "use new name" && [file exists $expfile]} {
             # get the last archived version
-            set lastf [lindex [lsort [glob $expnam.{O\[0-9A-F\]\[0-9A-F\]}]] end]
+            set lastf [lindex [lsort [glob -nocomplain $expnam.{O\[0-9A-F\]\[0-9A-F\]}]] end]
             if {$lastf == ""} {
                 set num 01
@@ -506 +508 @@
 # save some of the global options in ~/.gsas_config
 proc SaveOptions {} {
-    global expgui env tcl_platform
+    global expgui env tcl_platform graph peakinfo
     set fp [open [file join ~ .gsas_config] a]
-    foreach item {archive asorttype hsorttype filesort disaglSeparateBox font autoexpload autoiconify} {
+    foreach item {archive asorttype hsorttype filesort disaglSeparateBox \
+            font autoexpload autoiconify autotick} {
         puts $fp "set expgui($item) $expgui($item)"
     }
     if {$tcl_platform(platform) != "windows"} {
         puts $fp "set env(GSASBACKSPACE) $env(GSASBACKSPACE)"
+    }
+    foreach v {printout legend outname outcmd autoraise color_excl \
+            color_obs color_calc} {
+        puts $fp "set graph($v) $graph($v)"
+    }
+    foreach v {obssym obssize exclsym exclsize} {
+        puts $fp "set peakinfo($v) $peakinfo($v)"
     }
     close $fp
@@ -1204 +1214 @@
         3 "Select 1 or more\nAlpha 1,2 X-ray Histograms"
         4 "Select 1 or more\nmonochromatic X-ray Histograms"
-        5 "Select 1 or more Energy\nDisperive X-ray Histograms"
+        5 "Select 1 or more Energy\nDispersive X-ray Histograms"
         6 "Select 1 or more of\n any type Histograms"
     }