Login | Register
My pages Projects Community openCollabNet

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

delphiaddinfortortoisesvn
Discussion topic

Back to topic list

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

Author otto_noll
Full name Otto Noll
Date 2009-01-09 08:23:24 PST
Message Author: otto_noll
Date: 2009-01-09 08:23:23-0800
New Revision: 60

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

Log:
Error correction
Now Update ask to save the file before.
Correction in Update and Update to revision massage dialog

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​=60&r1=59&r2​=60
====================​====================​====================​==================
--- branches/SOPTIM/src/​tsvnWizard.pas (original)
+++ branches/SOPTIM/src/​tsvnWizard.pas 2009-01-09 08:23:23-0800
@@ -666,16 +666,22 @@
         SVN_UPDATE:
             if project <> nil then
             begin
- if GetCurrentModuleFile​List(TStringList.cre​ate).Count > 1 then
- TSVNExec( '/command:update /notempfile /path:' + AnsiQuotedStr( ExtractFileName(GetC​urrentModuleFileList​(TStringList.create)​[0] ), '"' ) )
- else if GetCurrentModuleFile​List(TStringList.cre​ate).Count = 1 then
- TSVNExec( '/command:update /notempfile /path:' + AnsiQuotedStr(GetCur​rentModuleFileList(T​StringList.create)[0​], '"' ) );
+ if MessageDlg( 'The file '+AnsiQuotedStr(Extr​actFileName(GetCurre​ntModuleFileList(TSt​ringList.create)[0])​,'"')+' will be saved before Update. Continue?', mtConfirmation, [mbYes, mbNo], 0 ) = mrYes then
+ begin
+ if SaveForegroundEditorFile() then
+ begin
+ if GetCurrentModuleFile​List(TStringList.cre​ate).Count > 1 then
+ TSVNExec( '/command:update /notempfile /path:' + AnsiQuotedStr( ExtractFileName(GetC​urrentModuleFileList​(TStringList.create)​[0] ), '"' ) )
+ else if GetCurrentModuleFile​List(TStringList.cre​ate).Count = 1 then
+ TSVNExec( '/command:update /notempfile /path:' + AnsiQuotedStr(GetCur​rentModuleFileList(T​StringList.create)[0​], '"' ) );
                   (BorlandIDEServices as IOTAActionServices).​ReloadFile(GetCurren​tModuleFileList(TStr​ingList.create)[0]);​
+ end;
+ end;
             end;
         SVN_UPDATE_TO:
             if project <> nil then
             begin
- if MessageDlg( 'The file '+AnsiQuotedStr(Extr​actFileName(GetCurre​ntModuleFileList(TSt​ringList.create)[0])​,'"')+' will be saved before diff. Continue?', mtConfirmation, [mbYes, mbNo], 0 ) = mrYes then
+ if MessageDlg( 'The file '+AnsiQuotedStr(Extr​actFileName(GetCurre​ntModuleFileList(TSt​ringList.create)[0])​,'"')+' will be saved before Update. Continue?', mtConfirmation, [mbYes, mbNo], 0 ) = mrYes then
               begin
                 if SaveForegroundEditorFile() then
                 begin

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

Messages

Show all messages in topic

svn commit: r60 - branches/SOPTIM/src/tsvnWizard.pas otto_noll Otto Noll 2009-01-09 08:23:24 PST
Messages per page: