Login | Register
My pages Projects Community openCollabNet

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

delphiaddinfortortoisesvn
Discussion topic

Back to topic list

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

Author otto_noll
Full name Otto Noll
Date 2009-01-12 07:22:26 PST
Message Author: otto_noll
Date: 2009-01-12 07:22:26-0800
New Revision: 68

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

Log:
Add "Tag" and "Unlock" 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​=68&r1=67&r2​=68
====================​====================​====================​==================
--- branches/SOPTIM/src/​tsvnWizard.pas (original)
+++ branches/SOPTIM/src/​tsvnWizard.pas 2009-01-12 07:22:26-0800
@@ -23,6 +23,8 @@
         SVN_PROPERTIES_SANDBOX,
         SVN_RESOLVE_SANDBOX,
         SVN_REVERT_SANDBOX,
+ SVN_TAG_SANDBOX,
+ SVN_UNLOCK_SANDBOX,
         SVN_REPOSITORY_BROWSER,
         SVN_SETTINGS,
         SVN_ABOUT,
@@ -382,6 +384,10 @@
             Result:= 'diff';
         SVN_REVERT_SANDBOX:
             Result:= 'revert';
+ SVN_TAG_SANDBOX:
+ Result:= 'copy';
+ SVN_UNLOCK_SANDBOX:
+ Result:='unlock';
         SVN_REPOSITORY_BROWSER:
             Result:= 'repository';
         SVN_SETTINGS:
@@ -458,6 +464,10 @@
             Result := 'Properties...';
         SVN_RESOLVE_SANDBOX:
             Result:= 'Resolve...';
+ SVN_TAG_SANDBOX:
+ Result:= 'Tag...';
+ SVN_UNLOCK_SANDBOX:
+ Result:= 'Unlock...' ;
         SVN_DIFF:
             Result:= '&Diff...';
         SVN_REVERT_SANDBOX:
@@ -549,6 +559,12 @@
         SVN_RESOLVE_SANDBOX:
             if GetCurrentProject <> nil then
               Result := vsEnabled;
+ SVN_TAG_SANDBOX:
+ if GetCurrentProject <> nil then
+ Result := vsEnabled;
+ SVN_UNLOCK_SANDBOX:
+ if GetCurrentProject <> nil then
+ Result := vsEnabled;
         SVN_ADD:
             ;// this verb state is updated by TTortoiseSVN.CheckOn_Popup
         SVN_BLAME:
@@ -706,6 +722,12 @@
                 TSVNExec( '/command:lock /notempfile /path:' + AnsiQuotedStr( ExtractFilePath(proj​ect.GetFileName), '"' ) );
                 ReloadAllProjectfiles();
             end;
+ SVN_UNLOCK_SANDBOX :
+ if project <> nil then
+ begin
+ TSVNExec( '/command:unlock /notempfile /path:' + AnsiQuotedStr( ExtractFilePath(proj​ect.GetFileName), '"' ) );
+ ReloadAllProjectfiles();
+ end;
         SVN_MERGE_SANDBOX :
             if project <> nil then
                 TSVNExec( '/command:merge /notempfile /path:' + AnsiQuotedStr( ExtractFilePath(proj​ect.GetFileName), '"' ) );
@@ -715,6 +737,9 @@
        SVN_RESOLVE_SANDBOX:
           if project <> nil then
             TSVNExec( '/command:resolve /notempfile /path:' + AnsiQuotedStr( ExtractFilePath(proj​ect.GetFileName), '"' ) );
+ SVN_TAG_SANDBOX:
+ if project <> nil then
+ TSVNExec( '/command:copy /notempfile /path:' + AnsiQuotedStr( ExtractFilePath(proj​ect.GetFileName), '"' ) );
         SVN_ADD:
             if project <> nil then
             begin

« Previous message in topic | 1 of 1 | Next message in topic »

Messages

Show all messages in topic

svn commit: r68 - branches/SOPTIM/src/tsvnWizard.pas otto_noll Otto Noll 2009-01-12 07:22:26 PST
Messages per page: