From 35e1899c47a01568896089201defcda8055c0398 Mon Sep 17 00:00:00 2001
From: Graeme Geldenhuys <graemeg@gmail.com>
Date: Tue, 17 Jun 2014 23:51:18 +0100
Subject: GDI: Correctly define visibility for methods in TfpgGDIFileList

---
 src/corelib/gdi/fpg_gdi.pas | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'src/corelib')

diff --git a/src/corelib/gdi/fpg_gdi.pas b/src/corelib/gdi/fpg_gdi.pas
index 4b3a9ab3..93d3a9ed 100644
--- a/src/corelib/gdi/fpg_gdi.pas
+++ b/src/corelib/gdi/fpg_gdi.pas
@@ -263,10 +263,13 @@ type
 
 
   TfpgGDIFileList = class(TfpgFileListBase)
+  private
     function    EncodeAttributesString(attrs: longword): TFileModeString;
-    constructor Create; override;
+  protected
     function    InitializeEntry(sr: TSearchRec): TFileEntry; override;
     procedure   PopulateSpecialDirs(const aDirectory: TfpgString); override;
+  public
+    constructor Create; override;
   end;
 
 
-- 
cgit v1.2.3-70-g09d2