Changeset 645

Timestamp:

Dec 4, 2009 5:09:38 PM (14 years ago)

Author:

toby

Message:

# on 2002/09/05 18:22:20, toby did:
trap error in localconfig and .gsas_config
add CIFselect

File:

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

trunk/expgui

@@ -140 +140 @@
 #---------------------------------------------------------------------------
 # 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]
+if {[catch {
+    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]
+    }
+} errmsg]} {
+    MyMessageBox -parent . -title "Customize warning" \
+            -message "Error reading localconfig or .gsas_config: $errmsg" \
+            -icon warning -type Ignore -default ignore \
+            -helplink "expguierr.html Customizewarning"
 }
 SetTkDefaultOptions $expgui(font)
@@ -3925 +3932 @@
     $expgui(fm).$m.menu.cifexp add command -label FillTemplate \
             -command "exec $wishshell [file join $expgui(scriptdir) fillcif.tcl] \[file root \[file tail \$expgui(expfile)]]"
+    $expgui(fm).$m.menu.cifexp add command -label CIFselect \
+            -command {
+        if {[info procs CIFselect] == ""} {
+            source [file join $expgui(scriptdir) cifselect.tcl]
+        }
+        CIFselect $expgui(expfile)
+    }
     # add the commands in expgui_menulist 
     foreach menu [array names expgui_menulist ] {