Changeset 184 for trunk/Forms/FormMain.pas

Timestamp:

Jan 14, 2025, 11:19:27 AM (10 days ago)

Author:

chronos

Message:

• Fixed: Data directories detection on Linux.

File:

• trunk/Forms/FormMain.pas (modified) (3 diffs)

trunk/Forms/FormMain.pas

@@ -206 +206 @@
   SFileNotFound = 'File %s not found.';
 
-const
-  ExamplesDir = 'Examples';
-
 { TFormMain }
 
@@ -217 +214 @@
   try
     if Core.Core.LastOpenedList.Items.Count = 0 then
-      Core.Core.LastOpenedList.Items.Add(CombinePaths(Core.Core.DataDir, ExamplesDir +
-      DirectorySeparator + 'Sierpinski.b'));
+      Core.Core.LastOpenedList.Items.Add(Core.Core.ExamplesDir +
+        DirectorySeparator + 'Sierpinski.b');
 
     if Core.Core.OpenProjectOnStart and (Core.Core.LastOpenedList.Items.Count > 0) and
@@ -751 +748 @@
   AProjectClose.Execute;
   if Core.Core.Project.Openned then Exit;
-  Core.Core.Project.FileName := CombinePaths(Core.Core.DataDir, ExamplesDir + DirectorySeparator + SNewProject + '.b');
+  Core.Core.Project.FileName := SNewProject + '.b';
+  Core.Core.Project.Openned := True;
   FormSourceCode.SynEditSource.Clear;
-  Core.Core.Project.Openned := True;
   Core.Core.CurrentTarget.Compiled := False;
   UpdateInterface;