From 045f38ef8313cd3038b7b748db1dbe4ebba4a581 Mon Sep 17 00:00:00 2001
From: Tomas Bzatek <tbzatek@users.sourceforge.net>
Date: Sat, 25 Oct 2008 17:41:13 +0200
Subject: Kylix compatibility and cleanup

---
 UFileAssoc.pas | 22 ++++++++++++----------
 1 file changed, 12 insertions(+), 10 deletions(-)

(limited to 'UFileAssoc.pas')

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>';
-- 
cgit v1.2.3