linux

vrybant · Dec 22, 2017 · f797fcf · f797fcf
1 parent 7f9f962
commit f797fcf
Show file tree

Hide file tree

Showing 3 changed files with 4 additions and 5 deletions.
diff --git a/UnboundBible.lpr b/UnboundBible.lpr
@@ -10,7 +10,7 @@
 {$R *.res}
 
 begin
-  Application.Title:='Unbound Bible';
+  Application.Title := {$ifdef windows} 'Unbound Bible'; {$else} 'unboundbible'; {$endif}
   Application.Initialize;
   Application.CreateForm(TMainForm,      MainForm);
   Application.CreateForm(TAboutBox,      AboutBox);

diff --git a/unboundbible.png b/unboundbible.png
diff --git a/unitlib.pas b/unitlib.pas
@@ -1,6 +1,6 @@
 unit UnitLib;
 
-{$define debugmode}
+{-define debugmode}
 {$ifdef unix} {$undef RussianEdition} {$endif}
 
 interface
@@ -23,9 +23,8 @@   TRange = record
 
 const
   AppName = 'Unbound Bible';
-  {$ifdef linux} AppDirectory = 'unboundbible'; {$endif}
   TitleDirectory = 'titles';
-  VersionInfo = '2.0';
+  VersionInfo = '2.01';
 
 // string's functions
 
@@ -260,7 +259,7 @@ function AppLocation: string;
   Result := Application.Location;
 
   {$ifdef linux}
-    {$ifndef debugmode} Result := '/usr/share/' + AppDirectory + '/'; {$endif}
+    if Prefix('/usr',Result) then Result := '/usr/share/' + Application.Title + '/';
   {$endif}
 
   {$ifdef darwin}