X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=gtk-glext%2Fgtkglext-drawing-area.lisp;fp=gtk-glext%2Fgtkglext-drawing-area.lisp;h=dcfd9ce5a4f728d05743031b41d6427c9507ab2a;hb=3aac876ec530d646852acfd28ed60de0b50a3371;hp=65996e157f8e8baca33a28fb65d1905226a7d52a;hpb=af886197900531403efbc67c8a40b686ec6a9ba6;p=cl-gtk2.git

diff --git a/gtk-glext/gtkglext-drawing-area.lisp b/gtk-glext/gtkglext-drawing-area.lisp
index 65996e1..dcfd9ce 100644
--- a/gtk-glext/gtkglext-drawing-area.lisp
+++ b/gtk-glext/gtkglext-drawing-area.lisp
@@ -1,5 +1,7 @@
 (in-package :gtkglext)
 
+(register-object-type-implementation "GtkGLDrawingArea" gl-drawing-area "GtkDrawingArea" nil nil)
+
 (defclass gl-drawing-area (drawing-area)
   ((on-expose :initarg :on-expose :initform nil :accessor gl-drawing-area-on-expose)
    (on-init :initarg :on-init :initform nil :accessor gl-drawing-area-on-init)
@@ -62,8 +64,6 @@
                                         :rgba-type)
     (warn "set gl capability for ~A (with ~A) failed~%" widget *gl-config*)))
 
-(register-object-type-implementation "GtkGLDrawingArea" gl-drawing-area "GtkDrawingArea" nil nil)
-
 (defmethod initialize-instance :after ((widget gl-drawing-area) &key &allow-other-keys)
   (connect-signal widget "realize" #'gl-drawing-area-realize)
   (connect-signal widget "unrealize" #'gl-drawing-area-unrealize)