* Applied patch from Ido

git-svn-id: trunk@5599 -

lcl/interfaces/gtk/gtkcallback.inc

@@ -384,9 +384,6 @@ begin
   {$endif}
 end;
 
-
-{$Ifdef GTK1}
-
 function gtktoggledCB( widget: PGtkWidget; data: gPointer): GBoolean; cdecl;
 var
   Mess : TLMessage;
@@ -404,6 +401,7 @@ begin
   Result := CallBackDefaultReturn;
 end;
 
+{$Ifdef GTK1}
 function gtkDrawAfter(Widget: PGtkWidget; area: PGDKRectangle;
   data: gPointer) : GBoolean; cdecl;
 var
@@ -3105,6 +3103,9 @@ end;
 { =============================================================================
 
   $Log$
+  Revision 1.234  2004/06/24 20:49:10  marc
+  * Applied patch from Ido
+
   Revision 1.233  2004/05/30 14:02:30  mattias
   implemented OnChange for TRadioButton, TCheckBox, TToggleBox and some more docking stuff
 

lcl/interfaces/gtk2/gtk2interface.lpk

@@ -3,11 +3,15 @@
   <Package Version="2">
     <Name Value="GTK2Interface"/>
     <CompilerOptions>
+      <Version Value="2"/>
       <SearchPaths>
         <OtherUnitFiles Value="../gtk/;../../units/$(TargetCPU)/$(TargetOS)/"/>
         <UnitOutputDirectory Value="../../units/$(TargetCPU)/$(TargetOS)/gtk2"/>
-        <LCLWidgetType Value="gtk"/>
+        <LCLWidgetType Value="gtk2"/>
       </SearchPaths>
+      <CodeGeneration>
+        <Generate Value="Faster"/>
+      </CodeGeneration>
       <Other>
         <CustomOptions Value="-dGTK2"/>
         <CompilerPath Value="$(CompPath)"/>

lcl/interfaces/gtk2/gtk2interface.pas

@@ -8,8 +8,8 @@ unit GTK2Interface;
 interface
 
 uses
-
-      Interfaces, Gtk2Int, GTKGlobals, GtkMsgQueue, GTKDef, GtkInt, GTKProc, GTKWinapiWindow, LazarusPackageIntf; 
+  Gtk2Int, Interfaces, GTKDef, GTKGlobals, GtkInt, GtkMsgQueue, GTKProc, 
+    GTKWinapiWindow, LazarusPackageIntf; 
 
 implementation
 
@@ -18,5 +18,5 @@ begin
 end; 
 
 initialization
-  RegisterPackage ( 'GTK2Interface', @Register )
+  RegisterPackage('GTK2Interface', @Register)
 end.