Changeset 995 for trunk


Ignore:
Timestamp:
Aug 18, 2010 6:05:07 PM (10 years ago)
Author:
toby
Message:

more space in dir changes

Location:
trunk
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/expgui

    r992 r995  
    282282        update
    283283        MyMessageBox -parent . -title "Good luck..." \
    284             -message "You are using a directory with a space in the name ([file dirname $expgui(expfile)]) -- You may encounter bugs in EXPGUI. Please e-mail them to Brian.Toby@ANL.gov so they can be fixed." \
     284            -message "You are using a directory with a space in the name ([file dirname $expgui(expfile)]) -- You may encounter bugs in EXPGUI, which are being corrected as reported. Please e-mail them to Brian.Toby@ANL.gov so they can be fixed." \
    285285                -icon warning -type Continue -default continue
    286286#               -helplink "expguierr.html OpenErr"
  • trunk/gsascmds.tcl

    r994 r995  
    32503250    if {[auto_execok svn] != ""} {return 1}
    32513251    # add a locally supplied svn version, if not in the path already
    3252     set pathlist "[file join $scriptdir svn bin]"
     3252    set pathlist [list [file join $scriptdir svn bin]]
    32533253    lappend pathlist "/sw/bin/"
    32543254    lappend pathlist "/opt/local/bin/"
     
    32733273
    32743274proc GetSVNVersion {scriptdir} {
    3275     set SVN [auto_execok svn]
     3275    if {$::tcl_platform(platform) == "windows"} {
     3276        set SVN [file attributes [lindex [auto_execok svn] 0] -shortname]
     3277    } else {
     3278        set SVN [auto_execok svn]
     3279    }
    32763280    if {$SVN != ""} {
    32773281        if {! [catch {set res [exec $SVN info $scriptdir]} err]} {
     
    32853289
    32863290proc GetSVNrepository {scriptdir} {
    3287     set SVN [auto_execok svn]
     3291    if {$::tcl_platform(platform) == "windows"} {
     3292        set SVN [file attributes [lindex [auto_execok svn] 0] -shortname]
     3293    } else {
     3294        set SVN [auto_execok svn]
     3295    }
    32883296    if {$SVN != ""} {
    32893297        if {! [catch {set res [exec $SVN info $scriptdir]} err]} {
     
    32993307    # reset the track label
    33003308    set ::command(SVNversion) [lindex [split [GetSVNrepository $::expgui(scriptdir)] '/'] end]
    3301     set SVN [auto_execok svn]
     3309    if {$::tcl_platform(platform) == "windows"} {
     3310        set SVN [file attributes [lindex [auto_execok svn] 0] -shortname]
     3311    } else {
     3312        set SVN [auto_execok svn]
     3313    }
    33023314    if {$SVN == ""} {
    33033315        return 0
     
    33483360
    33493361proc CheckAndDoUpdate { } {
    3350     set SVN [auto_execok svn]
     3362    if {$::tcl_platform(platform) == "windows"} {
     3363        set SVN [file attributes [lindex [auto_execok svn] 0] -shortname]
     3364    } else {
     3365        set SVN [auto_execok svn]
     3366    }
    33513367    if {$SVN == ""} {
    33523368        tk_dialog .msg "Error: no svn" \
Note: See TracChangeset for help on using the changeset viewer.