UCore: Code cleanupv0.6.82

2 files changed, 7 insertions, 7 deletions

diff --git a/UConfig.pas b/UConfig.pas
index 3c54cc5..7f1cabb 100644
--- a/UConfig.pas
+++ b/UConfig.pas
@@ -25,7 +25,7 @@ uses Classes, ULocale;
 
 resourcestring
   ConstAppTitle = 'Tux Commander';
-  ConstAboutVersion = '0.6.81-dev';
+  ConstAboutVersion = '0.6.82-dev';
   ConstAboutBuildDate = '2024-10-23';
 
 {$IFDEF FPC}
diff --git a/UCore.pas b/UCore.pas
index 9059371..1345c96 100644
--- a/UCore.pas
+++ b/UCore.pas
@@ -20,7 +20,7 @@
 unit UCore;
 interface
 
-uses glib2, gtk2, SyncObjs, Classes, GTKForms, GTKView, ULibc, UEngines, UCoreUtils, UProgress, UVFSCore, uVFSprototypes;
+uses glib2, Classes, GTKForms, GTKView, ULibc, UEngines, UCoreUtils, UVFSCore;
 
 
 //  Panel utilities
@@ -110,8 +110,8 @@ var LeftLocalEngine, RightLocalEngine: TPanelEngine;
 (********************************************************************************************************************************)
 implementation
 (********************************************************************************************************************************)
-uses SysUtils, DateUtils, StrUtils, UConfig, UDirDelete, UOverwrite, ULocale,
-  UNewDir, UFileAssoc, USymlink, UCoreClasses, URemoteWait, UMain, UGnome, UError;
+uses SysUtils, DateUtils, StrUtils, UConfig, UDirDelete, ULocale,
+     UFileAssoc, USymlink, UCoreClasses, URemoteWait, UMain, UError;
 
 
 
@@ -540,7 +540,7 @@ begin
     Exit;
   end;
   WriteLn('********************************************************');
-  WriteLn('** List.Count = ', List.Count, ' base @ ', integer(pointer(List)));
+  WriteLn('** List.Count = ', List.Count);
   if List.Count > 0 then
     for i := 0 to List.Count - 1 do
       if not Assigned(List[i]) then WriteLn('**** List Item idx ', i, '; base @ nil') else
@@ -569,12 +569,12 @@ begin
     Exit;
   end;
   WriteLn('********************************************************');
-  WriteLn('** List.Count = ', List.Count, ' base @ ', integer(pointer(List)));
+  WriteLn('** List.Count = ', List.Count);
   if List.Count > 0 then
     for i := 0 to List.Count - 1 do
       if not Assigned(List[i]) then WriteLn('**** List Item idx ', i, '; base @ nil') else
       try
-        WriteLn('**** List Item idx ', i, '; base @ ', integer(List[i]), '; sizeof = ', SizeOf(List[i]));
+        WriteLn('**** List Item idx ', i);
         Item := List[i];
         WriteLn('  IsDir: ', Item^.IsDir, ', IsLnk: ', Item^.IsLnk, ', Size: ', Item^.Size);
         WriteLn('  FName: ', Item^.FName);