(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)
(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)