Login | Register
My pages Projects Community openCollabNet

Discussions > commits > svn commit: r69 - branches/SOPTIM/src/tsvnWizard.pas

delphiaddinfortortoisesvn
Discussion topic

Hide all messages in topic

All messages in topic

svn commit: r69 - branches/SOPTIM/src/tsvnWizard.pas

Author otto_noll
Full name Otto Noll
Date 2009-01-12 07:41:07 PST
Message Author: otto_noll
Date: 2009-01-12 07:41:07-0800
New Revision: 69

Modified:
   branches/SOPTIM/src/​tsvnWizard.pas

Log:
Add "Update" to the Menu

Modified: branches/SOPTIM/src/​tsvnWizard.pas
Url: http://delphiaddinfo​rtortoisesvn.tigris.​org/source/browse/de​lphiaddinfortortoise​svn/branches/SOPTIM/​src/tsvnWizard.pas?v​iew=diff&pathrev​=69&r1=68&r2​=69
====================​====================​====================​==================
--- branches/SOPTIM/src/​tsvnWizard.pas (original)
+++ branches/SOPTIM/src/​tsvnWizard.pas 2009-01-12 07:41:07-0800
@@ -15,6 +15,7 @@
         SVN_APPLY_PATCH_SANDBOX,
         SVN_BRANCH_SANDBOX,
         SVN_UPDATE_TO_SANDBOX,
+ SVN_UPDATE_SANDBOX,
         SVN_COMMIT_SANDBOX,
         SVN_CREATE_PATCH_SANDBOX,
         SVN_GRAPH_SANDBOX,
@@ -366,6 +367,8 @@
             Result:= 'copy';
         SVN_UPDATE_TO_SANDBOX:
             Result:= 'update';
+ SVN_UPDATE_SANDBOX:
+ Result:= 'update';
         SVN_COMMIT_SANDBOX:
             Result:= 'commit';
         SVN_CREATE_PATCH_SANDBOX:
@@ -450,6 +453,8 @@
             Result:='Branch...';
         SVN_UPDATE_TO_SANDBOX:
             Result:= '&Update to revision...';
+ SVN_UPDATE_SANDBOX:
+ Result:= 'Update...';
         SVN_COMMIT_SANDBOX:
             Result:= '&Commit...';
         SVN_CREATE_PATCH_SANDBOX:
@@ -604,6 +609,9 @@
         SVN_UPDATE_TO_SANDBOX:
             if GetCurrentProject <> nil then
                 Result:= vsEnabled;
+ SVN_UPDATE_SANDBOX:
+ if GetCurrentProject <> nil then
+ Result:= vsEnabled;
         SVN_COMMIT_SANDBOX:
             if GetCurrentProject <> nil then
                 Result:= vsEnabled;
@@ -943,6 +951,13 @@
                     SaveAllProjectfiles;
                     TSVNExec( '/command:update /rev /notempfile /path:' + AnsiQuotedStr( ExtractFilePath(proj​ect.GetFileName), '"' ) );
                 end;
+ SVN_UPDATE_SANDBOX:
+ if project <> nil then
+ if MessageDlg( 'All project files will be saved before update. Continue?', mtConfirmation, [mbYes, mbNo], 0 ) = mrYes then
+ begin
+ SaveAllProjectfiles;
+ TSVNExec( '/command:update /notempfile /path:' + AnsiQuotedStr( ExtractFilePath(proj​ect.GetFileName), '"' ) );
+ end;
         SVN_COMMIT_SANDBOX:
             if project <> nil then
                 if MessageDlg( 'All project files will be saved before commit. Continue?', mtConfirmation, [mbYes, mbNo], 0 ) = mrYes then
Messages per page: