Login | Register
My pages Projects Community openCollabNet

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

delphiaddinfortortoisesvn
Discussion topic

Hide all messages in topic

All messages in topic

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

Author otto_noll
Full name Otto Noll
Date 2008-12-19 08:48:30 PST
Message Author: otto_noll
Date: 2008-12-19 08:48:30-0800
New Revision: 26

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

Log:
Remove Diff

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​=26&r1=25&r2​=26
====================​====================​====================​==================
--- branches/SOPTIM/src/​tsvnWizard.pas (original)
+++ branches/SOPTIM/src/​tsvnWizard.pas 2008-12-19 08:48:30-0800
@@ -14,7 +14,6 @@
         SVN_ADD_SANDBOX,
         SVN_UPDATE_TO_SANDBOX,
         SVN_COMMIT_SANDBOX,
- SVN_DIFF,
         SVN_REVERT_SANDBOX,
         SVN_REPOSITORY_BROWSER,
         SVN_SETTINGS,
@@ -26,8 +25,6 @@
     tsvnMenu: TMenuItem;
     TSVNPath: string;
     procedure Tick( sender: TObject );
- procedure TSVNMenuClick( sender: TObject );
- procedure DiffClick( sender: TObject );
     procedure TSVNExec( params: string );
     function GetBitmapName(Index: ESVNFeature): string;
     function GetVerb(Index: ESVNFeature): string;
@@ -92,6 +89,7 @@
       end;
 end;
 
+
 //Refactor procedure to function
 //Now the function can be use as a variable in other functions
 function GetCurrentModuleFileList( fileList: TStrings ):TStrings;
@@ -143,53 +141,6 @@
     end;
 end;
 
-procedure TTortoiseSVN.TSVNMenuClick( sender: TObject );
-var files: TStringList;
- i: integer;
- diff, item: TMenuItem;
-begin
- // update the diff item and submenu; the diff action is handled by the
- // menu item itself, not by the action list
- diff:= tsvnMenu.Items[ord(SVN_DIFF)];
- diff.Action:= nil;
- diff.OnClick:= nil;
- diff.Enabled:= false;
- diff.Clear;
- files:= TStringList.create;
- GetCurrentModuleFile​List(files);
- if files.Count > 0 then begin
- diff.Enabled:= true;
- diff.Caption:= 'Diff';
- if files.Count > 1 then begin
- for i:= 0 to files.count-1 do begin
- item:= TMenuItem.Create(diff);
- item.Caption:= ExtractFileName( files[i] );
- item.OnClick:= DiffClick;
- item.Tag:= i;
- diff.Add( item );
- end;
- end else begin // files.Count = 1
- diff.Caption:= 'Diff ' + ExtractFileName( files[0] );
- diff.OnClick:= DiffClick;
- end;
- end;
- files.free;
-end;
-
-procedure TTortoiseSVN.DiffClick( sender: TObject );
-var files: TStringList;
- item: TComponent;
-begin
- item:= sender as TComponent;
- files:= TStringList.create;
- GetCurrentModuleFile​List(files);
- if files.Count > 1 then
- TSVNExec( '/command:diff /notempfile /path:' + AnsiQuotedStr( files[item.Tag], '"' ) )
- else if files.Count = 1 then
- TSVNExec( '/command:diff /notempfile /path:' + AnsiQuotedStr( files[0], '"' ) );
- files.free;
-end;
-
 procedure TTortoiseSVN.CreateMenu;
 var mainMenu: TMainMenu;
     item: TMenuItem;
@@ -201,8 +152,6 @@
 
     tsvnMenu:= TMenuItem.Create(nil);
     tsvnMenu.Caption:= 'TortoiseSVN';
- tsvnMenu.OnClick:= TSVNMenuClick;
-
 
     for i:= SVN_EXPLORE_SANDBOX to SVN_ABOUT do begin
         bmp:= TBitmap.create;
Messages per page: