1 files changed, 5 insertions, 9 deletions
diff --git a/libgtk_kylix/GTKClasses.pas b/libgtk_kylix/GTKClasses.pas
index d668fb0..6071d74 100644
--- a/libgtk_kylix/GTKClasses.pas
+++ b/libgtk_kylix/GTKClasses.pas
@@ -24,7 +24,7 @@ unit GTKClasses;
 
 interface
 
-uses gtk2, gdk2, glib2, Classes, SysUtils;
+uses gtk2, lazglib2, Classes, SysUtils;
 
 
 type
@@ -73,10 +73,6 @@ type
 (********************************************************************************************************************************)
 implementation
 
-uses GTKUtils;
-
-(********************************************************************************************************************************)
-(********************************************************************************************************************************)
 constructor TGList.Create(AOwner: TComponent);
 begin
   inherited Create(AOwner);
@@ -98,14 +94,14 @@ end;
 
 procedure TGList.Append(Data: string);
 begin
-  Append(Pointer(StringToPgchar(Data)));
+  Append(Pointer(PChar(Data)));
 end;
 
 procedure TGList.Delete(Index: integer);
-var El: PGSList;
+var El: PGList;
 begin
   El := g_list_nth_data(FList, Index);
-  if El <> nil then FList := g_list_remove(FList, El);
+  if El <> nil then FList := g_list_remove(FList, gpointer(El));
 end;
 
 function TGList.Count: integer;
@@ -158,7 +154,7 @@ end;
 procedure TGTKTimer.Start;
 begin
   if FHandlerID > 0 then Stop;
-  if FEnabled then FHandlerID := gtk_timeout_add(FInterval, TGTKTimer_Timeout, Self);
+  if FEnabled then FHandlerID := gtk_timeout_add(FInterval, @TGTKTimer_Timeout, Self);
 end;
 
 procedure TGTKTimer.Stop;