paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-08 06:18:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: Check for 'Unversioned directory' when omitting revision from IDE title.

Browse Source 
git-svn-id: trunk@61029 -
This commit is contained in:
juha 2019-04-21 08:11:46 +00:00
parent 519161a185
commit ac23dd220d
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ide/basebuildmanager.pas
View File

@ -1,7 +1,7 @@
{ {
/*************************************************************************** /***************************************************************************
buildmanager.pas basebuildmanager.pas
---------------- --------------------
***************************************************************************/ ***************************************************************************/

2
ide/main.pp
View File

@ -8478,7 +8478,7 @@ begin
if MainIDEBar = nil then Exit; if MainIDEBar = nil then Exit;
if ToolStatus = itExiting then Exit; if ToolStatus = itExiting then Exit;
rev := GetLazarusRevision; rev := GetLazarusRevision;
if (rev = '') or (rev = 'Unknown') then if (rev = '') or (rev = 'Unknown') or (rev = 'Unversioned directory') then
NewCaption := Format(lisLazarusEditorV, [GetLazarusVersionString]) NewCaption := Format(lisLazarusEditorV, [GetLazarusVersionString])
else else
NewCaption := Format(lisLazarusEditorV + ' ' + lisLazarusSVNRev, NewCaption := Format(lisLazarusEditorV + ' ' + lisLazarusSVNRev,