Changeset 989 for trunk


Ignore:
Timestamp:
Apr 26, 2010 3:26:01 PM (11 years ago)
Author:
toby
Message:

on update error open manual window

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/gsascmds.tcl

    r988 r989  
    33493349    }
    33503350    #set wish "[info nameofexecutable]"
    3351     # send a "p" to accept the server fingerprint in case needed on 1st access
    3352     set svninp [file normalize "~/svntmp.txt"]
    3353     set fp [open $svninp "w"]
    3354     puts $fp "p"
    3355     close $fp
    33563351    # check for updates
    33573352    if [catch {
    3358         set res [exec $SVN status [file normalize $::expgui(gsasdir)] -u < $svninp]
     3353        set res [exec $SVN status [file normalize $::expgui(gsasdir)] -u]
    33593354    } err] {
    3360         MyMessageBox -parent . -title "Error checking status" \
    3361             -message "Error checking for updates: $err" \
    3362             -icon error
    3363         catch {file delete $svninp}
     3355        set ans [MyMessageBox -parent . -title "Error checking status" \
     3356                     -message "Error checking for updates: $err\n\nTry to update manually?" \
     3357                     -icon error -type "Yes No" -default yes]
     3358        if {$ans != "no"} {
     3359            forknewterm "manually update in subversion" \
     3360                "$SVN update [file normalize $::expgui(gsasdir)]"
     3361        }
    33643362        return
    33653363    } else {
     
    33703368            return
    33713369        }
    3372         catch {file delete $svninp}
    33733370    }
    33743371    if {[MyMessageBox -parent . -title "Ready to Update" \
Note: See TracChangeset for help on using the changeset viewer.