Changeset 995
- Timestamp:
- Aug 18, 2010 6:05:07 PM (11 years ago)
- Location:
- trunk
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/expgui
r992 r995 282 282 update 283 283 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." \ 285 285 -icon warning -type Continue -default continue 286 286 # -helplink "expguierr.html OpenErr" -
trunk/gsascmds.tcl
r994 r995 3250 3250 if {[auto_execok svn] != ""} {return 1} 3251 3251 # 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]] 3253 3253 lappend pathlist "/sw/bin/" 3254 3254 lappend pathlist "/opt/local/bin/" … … 3273 3273 3274 3274 proc 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 } 3276 3280 if {$SVN != ""} { 3277 3281 if {! [catch {set res [exec $SVN info $scriptdir]} err]} { … … 3285 3289 3286 3290 proc 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 } 3288 3296 if {$SVN != ""} { 3289 3297 if {! [catch {set res [exec $SVN info $scriptdir]} err]} { … … 3299 3307 # reset the track label 3300 3308 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 } 3302 3314 if {$SVN == ""} { 3303 3315 return 0 … … 3348 3360 3349 3361 proc 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 } 3351 3367 if {$SVN == ""} { 3352 3368 tk_dialog .msg "Error: no svn" \
Note: See TracChangeset
for help on using the changeset viewer.