Changeset 697

Timestamp:

Dec 4, 2009 5:10:30 PM (14 years ago)

Author:

toby

Message:

# on 2003/05/22 21:41:18, toby did:
initial tweaking

File:

• trunk/dumpprof.tcl (modified) (2 diffs, 3 props)

trunk/dumpprof.tcl

@@ -44 +44 @@
 #source [file join $expgui(scriptdir) gsascmds.tcl]
 # override options with locally defined values
-if [file exists [file join $expgui(scriptdir) localconfig]] {
-    source [file join $expgui(scriptdir) localconfig]
+set filelist [file join $expgui(scriptdir) localconfig]
+if {$tcl_platform(platform) == "windows"} {
+    lappend filelist "c:/gsas.config"
+} else {
+    lappend filelist [file join ~ .gsas_config]
 }
-if [file exists [file join ~ .gsas_config]] {
-    source [file join ~ .gsas_config]
+catch {
+    foreach file $filelist {
+        if [file exists $file] {source $file}
+    }
 }
 SetTkDefaultOptions $expgui(font)
@@ -75 +80 @@
     lappend list2 $expmap(htype_$hist)
     foreach i $expmap(phaselist_$hist) {
-        set list [string trim [hapinfo $hist $i proftype]]
+        set list $i
+        lappend list [string trim [hapinfo $hist $i proftype]]
         lappend list [hapinfo $hist $i pcut]
         set nterms [hapinfo $hist $i profterms]