Amiga-likes: set the window/screen title with IDE version information

git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@29336 3ad0048d-3df7-0310-abae-a5850022a9f2

1 files changed, 13 insertions, 1 deletions

diff --git a/ide/fp.pas b/ide/fp.pas
index d2e7e8986c..f1de80bf15 100644
--- a/ide/fp.pas
+++ b/ide/fp.pas
@@ -328,7 +328,15 @@ procedure InitCompilerSwitches;
     default_settings.localswitches:=[cs_typed_const_writable];
   end;
 
-
+{$IFDEF HASAMIGA}
+procedure SetAmigaWindowTitle;
+begin
+  { window title first, then screen title, shown when the window is active }
+  Video.SetWindowTitle(
+     'Free Pascal IDE',
+     'Free Pascal IDE '+VersionStr+' ['+{$i %date%}+'] - Compiler '+Full_Version_String);
+end;
+{$ENDIF}
 {The square bullet needs an MS-DOS code page. On Unix it is for sure the code
  page is not available before video is initialized. (And only in certain
  circumstances after that, so, use a plain ascii character as bullet on Unix.)}
@@ -424,6 +432,10 @@ BEGIN
     from command line PM }
   ParseUserScreen;
 
+{$IFDEF HASAMIGA}
+  SetAmigaWindowTitle;
+{$ENDIF}
+
   { Update IDE }
   IDEApp.Update;
   IDEApp.UpdateMode;