Kylix compatibility and cleanup

1 files changed, 12 insertions, 10 deletions

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>';