Changeset 370 for trunk/gsascmds.tcl

Timestamp:

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

Author:

toby

Message:

# on 2000/12/22 21:31:48, toby did:
produce error message in DISAGL if .LST file is not renamed

File:

• trunk/gsascmds.tcl (modified) (1 diff, 3 props)

trunk/gsascmds.tcl

@@ -1302 +1302 @@
         # PSW reports this does not happen right away on windows
         set i 0
-        while {$i < 5 && [file exists $root.LST]} {
+        while {$i < 10 && [file exists $root.LST]} {
             # debug code
-            catch {console show}
-            puts "try $i"
+            #catch {console show}
+            #puts "try $i"
             # end debug code
             after 100
             incr i
         }
+        if {[file exists $root.LST]} {
+            # it was not possible to rename the file
+            MyMessageBox -parent . -title "Rename Problem" \
+                -message "Unable to rename $root.LST. Please close LSTVIEW and try again" \
+                -icon warning -helplink "expguierr.html NoRename"
+            return
+        }
+
         #run the program
         pleasewait "Running DISAGL"