Changeset 605

Timestamp:

Dec 4, 2009 5:08:58 PM (14 years ago)

Author:

toby

Message:

# on 2002/07/03 21:02:35, toby did:
minor stuff:

1) networked path may be OK, warn, but no error
2) catch invalid .EXP file names
3) avoid error messages on grab's

File:

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

trunk/expgui

@@ -162 +162 @@
     # check the path -- can DOS use it?
     if {[string first {\\} $expgui(script) ] != -1} {
-        MyMessageBox -parent . -title "Invalid Path" \
-                -message {Error -- You cannot run EXPGUI/GSAS from a network drive unless it is mapped to a "drive" (like F:). Use "Map network drive" to access this directory} \
-                -icon error -type {"Limp Ahead"} -default "limp ahead" \
+        MyMessageBox -parent . -title "Networked Path" \
+                -message "Note -- You may have problems running EXPGUI/GSAS from a network drive. If you have errors, map $expgui(gsasdir) to a \"drive\" (like F:). (Use \"Map network drive\" to do this.)" \
+                -icon error -type {"Be brave"} -default "be brave" \
                 -helplink "expgui_Win_readme.html NetPath"
     }
@@ -202 +202 @@
 #---------------------------------------------------------------------------
 if {$expgui(expfile) != ""} {
-    if ![file exists $expgui(expfile)] {
+   # is there a space in the name?
+    if {[string first " " $expgui(expfile)] != -1} {
+        update
+        MyMessageBox -parent . -title "File Name Error" \
+                -message "File name $expgui(expfile) is invalid -- EXPGUI cannot process experiment files with spaces in the name" \
+                -icon warning -type Continue -default continue
+#               -helplink "expguierr.html OpenErr"
+        set expgui(expfile) {}
+    } elseif ![file exists $expgui(expfile)] {
         update
         set ans [
@@ -748 +756 @@
         set grabStatus [grab status $oldGrab]
     }
-    grab $w
+    catch {grab $w}
     focus $w.bot.1
     # for windows rearrange window stacking 
@@ -764 +772 @@
     if {[string compare $oldGrab ""]} {
         if {![string compare $grabStatus "global"]} {
-            grab -global $oldGrab
+            catch {grab -global $oldGrab}
         } else {
-            grab $oldGrab
+            catch {grab $oldGrab}
         }
     }