Changeset 1170 for branches/sandbox


Ignore:
Timestamp:
Aug 18, 2011 3:23:37 AM (9 years ago)
Author:
toby
Message:

add msg on update

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/sandbox/gsascmds.tcl

    r1169 r1170  
    37793779
    37803780proc CheckAndDoUpdate { } {
     3781    pleasewait "... Checking with software repository..."
    37813782    if {! [CheckSVNinstalled]} {
     3783        donewait
    37823784        MyMessageBox -parent . -title "SVN not found" \
    37833785            -message "Unable to upgrade: Could not locate a copy of the subversion program. It does not appear that one of self-updating GSAS/EXPGUI releases was installed" \
     
    37873789    #is there a svn directory in the source?
    37883790    if {! [file exists [file join $::expgui(gsasdir)  .svn]]} {
     3791        donewait
    37893792        MyMessageBox -parent . -title "No .svn directory" \
    37903793            -message "Unable to upgrade: It does not appear that one of self-updating GSAS/EXPGUI releases was installed" \
     
    37953798    set SVN [auto_execok svn]
    37963799    if [catch {set res [eval exec $SVN status [list $::expgui(gsasdir)] -u]} err] {
     3800        donewait
    37973801        set ans [MyMessageBox -parent . -title "Error checking status" \
    37983802                     -message "Error checking for updates: $err\n\nTry to update manually?" \
     
    38103814        }
    38113815        if {[string first "*" $res] == -1} {
     3816            donewait
    38123817            MyMessageBox -parent . -title "No updates" \
    38133818                -message "GSAS & EXPGUI appear up-to-date" \
     
    38173822    }
    38183823
     3824    donewait
    38193825    if {[MyMessageBox -parent . -title "Ready to Update" \
    38203826             -message {
Note: See TracChangeset for help on using the changeset viewer.