Login | Register
My pages Projects Community openCollabNet

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

delphiaddinfortortoisesvn
Discussion topic

Hide all messages in topic

All messages in topic

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

Author otto_noll
Full name Otto Noll
Date 2008-12-18 06:14:19 PST
Message Author: otto_noll
Date: 2008-12-18 06:14:18-0800
New Revision: 19

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

Log:
Refactoring variable names

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​=19&r1=18&r2​=19
====================​====================​====================​==================
--- branches/SOPTIM/src/​tsvnWizard.pas (original)
+++ branches/SOPTIM/src/​tsvnWizard.pas 2008-12-18 06:14:18-0800
@@ -8,14 +8,14 @@
     Classes, Controls, Graphics, ImgList, ExtCtrls, ActnList,Forms;
 type
     ESVNFeature = (
- SVN_PROJECT_EXPLORER,
- SVN_LOG,
- SVN_CHECK_MODIFICATIONS,
- SVN_ADD,
- SVN_UPDATE,
- SVN_COMMIT,
+ SVN_EXPLORE_SANDBOX,
+ SVN_LOG_SANDBOX,
+ SVN_STATUS_SANDBOX,
+ SVN_ADD_SANDBOX,
+ SVN_UPDATE_TO_SANDBOX,
+ SVN_COMMIT_SANDBOX,
         SVN_DIFF,
- SVN_REVERT,
+ SVN_REVERT_SANDBOX,
         SVN_REPOSITORY_BROWSER,
         SVN_SETTINGS,
         SVN_ABOUT
@@ -198,8 +198,7 @@
     tsvnMenu.OnClick:= TSVNMenuClick;
 
 
- for i:= SVN_PROJECT_EXPLORER to SVN_About do begin
-
+ for i:= SVN_EXPLORE_SANDBOX to SVN_ABOUT do begin
         bmp:= TBitmap.create;
         try
           bmp.LoadFromResourceName( HInstance, getBitmapName(i) );
@@ -236,13 +235,14 @@
       if Screen.Forms[I].ClassName = 'TEditWindow' then
       begin
         PMenu := TPopupMenu(Screen.Fo​rms[I].FindComponent​('EditorLocalMenu'))​;
+ //Creating Popup Menu in Editor Window
         if PMenu <> nil then
         begin
           MItem := TMenuItem.Create(PMenu);
           MItem.Caption := 'TortoiseSVN';
           MItem.Visible := True;
           PMenu.Items.Add(MItem);
- end;
+ end;
       end;
     end;
 end;
@@ -260,21 +260,21 @@
 function TTortoiseSVN.GetBitm​apName(Index: ESVNFeature): string;
 begin
     case index of
- SVN_PROJECT_EXPLORER:
+ SVN_EXPLORE_SANDBOX:
             Result:= 'explorer';
- SVN_LOG:
+ SVN_LOG_SANDBOX:
             Result:= 'log';
- SVN_CHECK_MODIFICATIONS:
+ SVN_STATUS_SANDBOX:
             Result:= 'check';
- SVN_ADD:
+ SVN_ADD_SANDBOX:
             Result:= 'add';
- SVN_UPDATE:
+ SVN_UPDATE_TO_SANDBOX:
             Result:= 'update';
- SVN_COMMIT:
+ SVN_COMMIT_SANDBOX:
             Result:= 'commit';
         SVN_DIFF:
             Result:= 'diff';
- SVN_REVERT:
+ SVN_REVERT_SANDBOX:
             Result:= 'revert';
         SVN_REPOSITORY_BROWSER:
             Result:= 'repository';
@@ -288,21 +288,21 @@
 function TTortoiseSVN.GetVerb(Index: ESVNFeature): string;
 begin
     case index of
- SVN_PROJECT_EXPLORER:
+ SVN_EXPLORE_SANDBOX:
             Result:= '&Project explorer...';
- SVN_LOG:
+ SVN_LOG_SANDBOX:
             Result:= '&Log...';
- SVN_CHECK_MODIFICATIONS:
+ SVN_STATUS_SANDBOX:
             Result:= 'Check &modifications...';
- SVN_ADD:
+ SVN_ADD_SANDBOX:
             Result:= '&Add...';
- SVN_UPDATE:
+ SVN_UPDATE_TO_SANDBOX:
             Result:= '&Update to revision...';
- SVN_COMMIT:
+ SVN_COMMIT_SANDBOX:
             Result:= '&Commit...';
         SVN_DIFF:
             Result:= '&Diff...';
- SVN_REVERT:
+ SVN_REVERT_SANDBOX:
             Result:= '&Revert...';
         SVN_REPOSITORY_BROWSER:
             Result:= 'Repository &browser...';
@@ -319,28 +319,28 @@
 begin
     Result:= 0;
     case index of
- SVN_PROJECT_EXPLORER:
+ SVN_EXPLORE_SANDBOX:
             if GetCurrentProject <> nil then
                 Result:= vsEnabled;
- SVN_LOG:
+ SVN_LOG_SANDBOX:
             if GetCurrentProject <> nil then
                 Result:= vsEnabled;
- SVN_CHECK_MODIFICATIONS:
+ SVN_STATUS_SANDBOX:
             if GetCurrentProject <> nil then
                 Result:= vsEnabled;
- SVN_ADD:
+ SVN_ADD_SANDBOX:
             if GetCurrentProject <> nil then
                 Result:= vsEnabled;
- SVN_UPDATE:
+ SVN_UPDATE_TO_SANDBOX:
             if GetCurrentProject <> nil then
                 Result:= vsEnabled;
- SVN_COMMIT:
+ SVN_COMMIT_SANDBOX:
             if GetCurrentProject <> nil then
                 Result:= vsEnabled;
         SVN_DIFF:
             // this verb state is updated by the menu itself
             ;
- SVN_REVERT:
+ SVN_REVERT_SANDBOX:
             if GetCurrentProject <> nil then
                 Result:= vsEnabled;
         SVN_REPOSITORY_BROWSER:
@@ -362,25 +362,25 @@
 begin
     project:= GetCurrentProject();
     case index of
- SVN_PROJECT_EXPLORER:
+ SVN_EXPLORE_SANDBOX:
             if project <> nil then
                 ShellExecute( 0, 'open', pchar( ExtractFilePath(proj​ect.GetFileName) ), '', '', SW_SHOWNORMAL );
- SVN_LOG:
+ SVN_LOG_SANDBOX:
             if project <> nil then
                 TSVNExec( '/command:log /notempfile /path:' + AnsiQuotedStr( ExtractFilePath(proj​ect.GetFileName), '"' ) );
- SVN_CHECK_MODIFICATIONS:
+ SVN_STATUS_SANDBOX:
             if project <> nil then
                 TSVNExec( '/command:repostatus /notempfile /path:' + AnsiQuotedStr( ExtractFilePath(proj​ect.GetFileName), '"' ) );
- SVN_ADD:
+ SVN_ADD_SANDBOX:
             if project <> nil then
                 TSVNExec( '/command:add /notempfile /path:' + AnsiQuotedStr( ExtractFilePath(proj​ect.GetFileName), '"' ) );
- SVN_UPDATE:
+ SVN_UPDATE_TO_SANDBOX:
             if project <> nil then
                 if MessageDlg( 'All project files will be saved before update. Continue?', mtConfirmation, [mbYes, mbNo], 0 ) = mrYes then begin
                     (BorlandIDEServices as IOTAModuleServices).saveAll;
                     TSVNExec( '/command:update /rev /notempfile /path:' + AnsiQuotedStr( ExtractFilePath(proj​ect.GetFileName), '"' ) );
                 end;
- SVN_COMMIT:
+ SVN_COMMIT_SANDBOX:
             if project <> nil then
                 if MessageDlg( 'All project files will be saved before commit. Continue?', mtConfirmation, [mbYes, mbNo], 0 ) = mrYes then begin
                     (BorlandIDEServices as IOTAModuleServices).saveAll;
@@ -389,7 +389,7 @@
         SVN_DIFF:
             // this verb is handled by its menu item
             ;
- SVN_REVERT:
+ SVN_REVERT_SANDBOX:
             if project <> nil then
                 TSVNExec( '/command:revert /notempfile /path:' + AnsiQuotedStr( ExtractFilePath(proj​ect.GetFileName), '"' ) );
         SVN_REPOSITORY_BROWSER:
Messages per page: