(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 "expose-event" #'gl-drawing-area-exposed)
(connect-signal widget "configure-event" #'gl-drawing-area-configure)
(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 "expose-event" #'gl-drawing-area-exposed)
(connect-signal widget "configure-event" #'gl-drawing-area-configure)