Various adjustments to latest CGE

castle-engine · Jun 16, 2024 · d19413a · d19413a
1 parent cc1b7cf
commit d19413a
Show file tree

Hide file tree

Showing 3 changed files with 13 additions and 7 deletions.
diff --git a/CastleEngineManifest.xml b/CastleEngineManifest.xml
@@ -1,7 +1,12 @@
 <?xml version="1.0" encoding="utf-8"?>
 <project name="glinformation"
-  standalone_source="glinformation.lpr"
+  standalone_source="glinformation.dpr"
   author="Michalis Kamburelis"
 >
+  <version value="1.3.0" code="3" />
+  <package>
+    <include path="README.md" />
+    <include path="COPYING.GPL2.txt" />
+  </package>
   <data exists="false" />
 </project>
diff --git a/glinformation.lpr → glinformation.dpr b/glinformation.lpr → glinformation.dpr
@@ -30,10 +30,10 @@
   CastleFilesUtils, CastleLog, CastleApplicationProperties;
 
 var
-  Window: TCastleWindowBase;
+  Window: TCastleWindow;
 
 const
-  Version = '1.2.2';
+  Version = '1.3.0';
   Options: array[0..11] of TOption =
   (
     (Short: 'h'; Long: 'help'; Argument: oaNone),
@@ -78,7 +78,7 @@ procedure OptionProc(OptionNum: Integer; HasArgument: boolean;
           '                        double buffered anyway)' +nl+
           '  --double              Double buffered visual (default)' +nl+
           nl+
-          TCastleWindowBase.ParseParametersHelp(StandardParseOptions, true) +nl+
+          TCastleWindow.ParseParametersHelp +nl+
           nl+
           SCastleEngineProgramHelpSuffix(ApplicationName, Version, true));
         Halt;
@@ -103,10 +103,11 @@ procedure OptionProc(OptionNum: Integer; HasArgument: boolean;
 
 begin
   ApplicationProperties.Version := Version;
-  Window := TCastleWindowBase.Create(Application);
+  Window := TCastleWindow.Create(Application);
+  Window.Visible := false;
 
   { parse params }
-  Window.ParseParameters(StandardParseOptions);
+  Window.ParseParameters;
   Parameters.Parse(Options, @OptionProc, nil);
   if Parameters.High <> 0 then
    raise EInvalidParams.CreateFmt('Excessive parameter "%s"', [Parameters[1]]);

diff --git a/glinformation.lpi b/glinformation.lpi
@@ -41,7 +41,7 @@
     </RequiredPackages>
     <Units Count="1">
       <Unit0>
-        <Filename Value="glinformation.lpr"/>
+        <Filename Value="glinformation.dpr"/>
         <IsPartOfProject Value="True"/>
         <UsageCount Value="20"/>
       </Unit0>