Changeset 605 for trunk/expgui


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

Legend:

Unmodified
Added
Removed
  • trunk/expgui

    • Property rcs:date changed from 2002/01/25 21:26:41 to 2002/07/03 21:02:35
    • Property rcs:lines changed from +206 -12 to +17 -9
    • Property rcs:rev changed from 1.55 to 1.56
    r557 r605  
    162162    # check the path -- can DOS use it?
    163163    if {[string first {\\} $expgui(script) ] != -1} {
    164         MyMessageBox -parent . -title "Invalid Path" \
    165                 -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} \
    166                 -icon error -type {"Limp Ahead"} -default "limp ahead" \
     164        MyMessageBox -parent . -title "Networked Path" \
     165                -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.)" \
     166                -icon error -type {"Be brave"} -default "be brave" \
    167167                -helplink "expgui_Win_readme.html NetPath"
    168168    }
     
    202202#---------------------------------------------------------------------------
    203203if {$expgui(expfile) != ""} {
    204     if ![file exists $expgui(expfile)] {
     204   # is there a space in the name?
     205    if {[string first " " $expgui(expfile)] != -1} {
     206        update
     207        MyMessageBox -parent . -title "File Name Error" \
     208                -message "File name $expgui(expfile) is invalid -- EXPGUI cannot process experiment files with spaces in the name" \
     209                -icon warning -type Continue -default continue
     210#               -helplink "expguierr.html OpenErr"
     211        set expgui(expfile) {}
     212    } elseif ![file exists $expgui(expfile)] {
    205213        update
    206214        set ans [
     
    748756        set grabStatus [grab status $oldGrab]
    749757    }
    750     grab $w
     758    catch {grab $w}
    751759    focus $w.bot.1
    752760    # for windows rearrange window stacking
     
    764772    if {[string compare $oldGrab ""]} {
    765773        if {![string compare $grabStatus "global"]} {
    766             grab -global $oldGrab
     774            catch {grab -global $oldGrab}
    767775        } else {
    768             grab $oldGrab
     776            catch {grab $oldGrab}
    769777        }
    770778    }
Note: See TracChangeset for help on using the changeset viewer.