Local changes - don't commit

jwvhewitt · Dec 6, 2016 · 9081b7c · 9081b7c
1 parent 8ae9331
commit 9081b7c
Show file tree

Hide file tree

Showing 2 changed files with 10 additions and 2 deletions.
diff --git a/src/gears.pp b/src/gears.pp
@@ -1272,8 +1272,14 @@ function FindRoot( Part: GearPtr ): GearPtr;
 {$ENDIF}
 end;
 
+function AppName: AnsiString;
+begin
+ AppName := 'gearhead';
+end;
+
 
 initialization
+ OnGetApplicationName := @AppName;
  { Make sure we have the required data directories. }
  if paramcount() > 0 then begin
  Config_Directory := IncludeTrailingPathDelimiter( paramstr(1) );
@@ -1284,7 +1290,7 @@ initialization
  Config_Directory := GetAppConfigDir(False);
  {$ENDIF}
  end;
- Config_File := Config_Directory + 'gharena.cfg';
+ Config_File := Config_Directory + 'gearhead.conf';
 
  Save_Game_DirName := 'SaveGame';
  Save_Game_Directory := Config_Directory + Save_Game_Dirname + OS_Dir_Separator;

diff --git a/src/ghsupport.pp b/src/ghsupport.pp
@@ -55,6 +55,8 @@ interface
 
 implementation
 
+uses texutil;
+
 const
  SupName: Array [1..NumSupportType] of String = (
  'Gyroscope','Engine'
@@ -73,7 +75,7 @@ implementation
 Function SupportName( Part: GearPtr ): String;
  { Return a name for this particular sensor. }
 begin
- SupportName := SupName[ Part^.S ];
+ SupportName := 'Class ' + BStr( Part^.V ) + ' ' + SupName[ Part^.S ];
 end;
 
 Function SupportBaseMass( Part: GearPtr ): Integer;