Login | Register
My pages Projects Community openCollabNet

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

delphiaddinfortortoisesvn
Discussion topic

Hide all messages in topic

All messages in topic

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

Author otto_noll
Full name Otto Noll
Date 2009-01-08 11:35:48 PST
Message Author: otto_noll
Date: 2009-01-08 11:35:48-0800
New Revision: 41

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

Log:
Commit now reloads the committed file after Tortoise finished its operations.

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​=41&r1=40&r2​=41
====================​====================​====================​==================
--- branches/SOPTIM/src/​tsvnWizard.pas (original)
+++ branches/SOPTIM/src/​tsvnWizard.pas 2009-01-08 11:35:48-0800
@@ -469,9 +469,15 @@
                 if SaveForegroundEditorFile() then
                 begin
                   if GetCurrentModuleFile​List(TStringList.cre​ate).Count > 1 then
- TSVNExec( '/command:commit /notempfile /path:' + AnsiQuotedStr( ExtractFileName(GetC​urrentModuleFileList​(TStringList.create)​[0] ), '"' ) )
+ begin
+ TSVNExec( '/command:commit /notempfile /path:' + AnsiQuotedStr( ExtractFileName(GetC​urrentModuleFileList​(TStringList.create)​[0] ), '"' ) );
+ (BorlandIDEServices as IOTAActionServices).​ReloadFile(GetCurren​tModuleFileList(TStr​ingList.create)[0]);​
+ end
                   else if GetCurrentModuleFile​List(TStringList.cre​ate).Count = 1 then
+ begin
                       TSVNExec( '/command:commit /notempfile /path:' + AnsiQuotedStr(GetCur​rentModuleFileList(T​StringList.create)[0​], '"' ) );
+ (BorlandIDEServices as IOTAActionServices).​ReloadFile(GetCurren​tModuleFileList(TStr​ingList.create)[0]);​
+ end;
                 end;
               end;
             end;
Messages per page: