Changeset 370


Ignore:
Timestamp:
Dec 4, 2009 5:05:02 PM (11 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:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/gsascmds.tcl

    • Property rcs:date changed from 2000/12/22 19:44:07 to 2000/12/22 21:31:48
    • Property rcs:lines changed from +109 -40 to +12 -4
    • Property rcs:rev changed from 1.28 to 1.29
    r360 r370  
    13021302        # PSW reports this does not happen right away on windows
    13031303        set i 0
    1304         while {$i < 5 && [file exists $root.LST]} {
     1304        while {$i < 10 && [file exists $root.LST]} {
    13051305            # debug code
    1306             catch {console show}
    1307             puts "try $i"
     1306            #catch {console show}
     1307            #puts "try $i"
    13081308            # end debug code
    13091309            after 100
    13101310            incr i
    13111311        }
     1312        if {[file exists $root.LST]} {
     1313            # it was not possible to rename the file
     1314            MyMessageBox -parent . -title "Rename Problem" \
     1315                -message "Unable to rename $root.LST. Please close LSTVIEW and try again" \
     1316                -icon warning -helplink "expguierr.html NoRename"
     1317            return
     1318        }
     1319
    13121320        #run the program
    13131321        pleasewait "Running DISAGL"     
Note: See TracChangeset for help on using the changeset viewer.