Changeset 380


Ignore:
Timestamp:
Dec 4, 2009 5:05:12 PM (14 years ago)
Author:
toby
Message:

# on 2001/04/16 21:27:22, toby did:
fix overwrite problem
widen message box

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/gsascmds.tcl

    • Property rcs:date changed from 2000/12/22 21:31:48 to 2001/04/16 21:27:22
    • Property rcs:lines changed from +12 -4 to +3 -3
    • Property rcs:rev changed from 1.29 to 1.30
    r370 r380  
    159159    # overridden by the caller).
    160160
    161     option add *Dialog.msg.wrapLength 3i widgetDefault
     161    option add *Dialog.msg.wrapLength 6i widgetDefault
    162162
    163163    if {[string length $data(-message)] > 300} {
    … …  
    19611961        ]
    19621962        if {[string tolower $ans] == "overwrite"} {destroy .file}
    1963         if $ans {destroy .file}
     1963#       if $ans {destroy .file}
    19641964        return
    19651965    }
Note: See TracChangeset for help on using the changeset viewer.