Kylix compatibility and cleanup

5 files changed, 23 insertions, 34 deletions

diff --git a/Makefile b/Makefile
index c64d6f9..fe7e9e5 100644
--- a/Makefile
+++ b/Makefile
@@ -61,9 +61,8 @@ debug: EXTRA_CFLAGS = -g -O-
 debug: tuxcmd
 
 
-
 kylix::
-	$(KYLIXPREFIX)/bin/dcc -DKYLIX -V \
+	$(KYLIXPREFIX)/bin/dcc -DKYLIX -V -H -W -$$X+ -$$I+ -$$D+ -$$I+ -$$L+ -$$M+ -$$Q+ -$$R+ -$$W+ -$$Y+ \
 	-U$(GTK2FORPASCAL_LIBDIR)/glib -U$(GTK2FORPASCAL_LIBDIR)/pango \
 	-U$(GTK2FORPASCAL_LIBDIR)/atk -U$(GTK2FORPASCAL_LIBDIR)/gtk+/gtk \
 	-U$(GTK2FORPASCAL_LIBDIR)/gtk+/gdk -U$(GTK2FORPASCAL_LIBDIR)/gtk+/gdk-pixbuf \
diff --git a/UChecksum.pas b/UChecksum.pas
index c6099a6..35bb7a1 100644
--- a/UChecksum.pas
+++ b/UChecksum.pas
@@ -66,12 +66,13 @@ implementation
 uses ULocale, UCoreUtils, ULibc, UCore, DateUtils;
 
 type TFileListItem = class
-       CRC: LongWord;
-       MD5: string;
-       Name, FullPath: string;
-       Status: byte;
-       IsMD5: boolean;
-       Size: Int64;
+       public
+         CRC: LongWord;
+         MD5: string;
+         Name, FullPath: string;
+         Status: byte;
+         IsMD5: boolean;
+         Size: Int64;
      end;
 
 
diff --git a/UFileAssoc.pas b/UFileAssoc.pas
index f08c1ed..0d4f6ef 100644
--- a/UFileAssoc.pas
+++ b/UFileAssoc.pas
@@ -24,19 +24,21 @@ interface
 uses Classes, SysUtils, StrUtils, GTKPixbuf, GTKClasses, GTKUtils, UEngines, UVFSCore, UCoreUtils;
 
 type TAssocAction = class
-       ActionName, ActionCommand: string;
-       AutodetectGUI, RunInTerminal: boolean;
-       constructor Create;
+       public
+         ActionName, ActionCommand: string;
+         AutodetectGUI, RunInTerminal: boolean;
+         constructor Create;
      end;
 
      TFileAssoc = class
-       Extensions: TOpenStringArray;
-       FileTypeName, FileTypeIcon, ColorString: string;
-       DefaultAction: integer;
-       ActionList: TList;
-       Pixmap, LnkPixmap: TGDKPixbuf;
-       constructor Create;
-       destructor Destroy; override;
+       public
+         Extensions: TOpenStringArray;
+         FileTypeName, FileTypeIcon, ColorString: string;
+         DefaultAction: integer;
+         ActionList: TList;
+         Pixmap, LnkPixmap: TGDKPixbuf;
+         constructor Create;
+         destructor Destroy; override;
      end;
 
 const ConstFTAMetaDirectory = '<directory>';
diff --git a/USearch.pas b/USearch.pas
index 74c45d8..1c319d9 100644
--- a/USearch.pas
+++ b/USearch.pas
@@ -106,15 +106,6 @@ implementation
 
 uses Math, UMain, ULocale, UCoreUtils, UCore, DateUtils, UViewer, UConfig, UVFSCore;
 
-type TFileListItem = class
-       CRC: LongWord;
-       MD5: string;
-       Name, FullPath: string;
-       Status: byte;
-       IsMD5: boolean;
-       Size: Int64;
-     end;
-
 var SizeUnits: array[0..2] of string;
     DayUnits: array[0..3] of string;
 
diff --git a/tuxcmd.conf b/tuxcmd.conf
index d8946e9..bff8608 100644
--- a/tuxcmd.conf
+++ b/tuxcmd.conf
@@ -10,9 +10,9 @@
 -$J-
 -$K-
 -$L+
--$M-
+-$M+
 -$N+
--$O+
+-$O-
 -$P+
 -$Q+
 -$R+
@@ -20,13 +20,9 @@
 -$T-
 -$U-
 -$V+
--$W+
+-$W-
 -$X+
--$YD
--$Z1
 -cg
 -H+
 -W+
 -M
--$M1048576
--K$00400000