diff --git a/components/gtk/gtkglarea/gtkglarea.pp b/components/gtk/gtkglarea/gtkglarea.pp
index 582c5619bf..3c1c46440c 100644
--- a/components/gtk/gtkglarea/gtkglarea.pp
+++ b/components/gtk/gtkglarea/gtkglarea.pp
@@ -20,8 +20,8 @@ unit gtkglarea;
 interface
 
 uses
-  Classes, SysUtils, VCLGlobals, LCLLinux, LCLType,glib, gdk, gtk, gtkglarea_int, gl,
-  Controls, gtkint, gtkwinapiwindow, LMessages;
+  Classes, SysUtils, VCLGlobals, LCLLinux, LCLType, glib, gdk, gtk,
+  gtkglarea_int, gl, Controls, gtkint, gtkwinapiwindow, LMessages;
   
 type
   TCustomGTKGLAreaControl = class(TWinControl)
@@ -84,7 +84,7 @@ begin
   Handle := longint(gtk_gl_area_new(pgint(@InitAttrList)));
   if Widget <> nil then begin
     gtk_object_set_data(pgtkobject(Widget),'Sender',Self);
-    gtk_object_set_data(pgtkobject(Widget), 'Class', Pointer(Self));
+    gtk_object_set_data(pgtkobject(Widget),'Class', Pointer(Self));
     gtk_object_set_data(pgtkObject(Widget),'Style',0);
     gtk_object_set_data(pgtkObject(Widget),'ExStyle',0);
   end else begin
@@ -100,7 +100,6 @@ end;
 
 procedure InternalInit;
 begin
-  (* OpenGL functions can be called only if make_current returns true *)
   if not InitGl then begin
     WriteLn('OpenGL is not supported on this system');
     Halt(2);
@@ -109,8 +108,7 @@ end;
 
 
 initialization
-
-InternalInit;
+  InternalInit;
 
 finalization
 
diff --git a/lcl/interfaces/gtk/gtkwinapi.inc b/lcl/interfaces/gtk/gtkwinapi.inc
index 57a0db7d8d..d7cec98451 100644
--- a/lcl/interfaces/gtk/gtkwinapi.inc
+++ b/lcl/interfaces/gtk/gtkwinapi.inc
@@ -163,7 +163,8 @@ begin
   if Result then begin
     GdkWindow:=GetControlWindow(PgtkWidget(hwnd));
     gdk_window_raise(GdkWindow);
-    // how to the keyboard focus to the raised window?
+    // how to set the keyboard focus to the raised window?
+    gtk_window_activate_focus(PGtkWindow(hWnd));
   end;
 end;
 
@@ -7484,6 +7485,9 @@ end;
 { =============================================================================
 
   $Log$
+  Revision 1.175  2002/10/29 19:33:42  lazarus
+  MG: removed interfaces
+
   Revision 1.174  2002/10/29 12:30:45  lazarus
   AJ: fixed initial result in clipping/region routines