Update of /project/cells/cvsroot/cells-gtk3/cells-gtk In directory clnet:/tmp/cvs-serv32220/cells-gtk Modified Files: widgets.lisp Log Message: fixed configure event --- /project/cells/cvsroot/cells-gtk3/cells-gtk/widgets.lisp 2008/06/02 13:38:15 1.6 +++ /project/cells/cvsroot/cells-gtk3/cells-gtk/widgets.lisp 2008/06/02 13:50:08 1.7 @@ -36,7 +36,6 @@ (let ((id (apply (symbol-function (new-function-name self)) (new-args self)))) (gtk-object-store id self) - #+libcellsgtk (gtk-signal-connect-swap id "configure-event" (cffi:get-callback 'reshape-widget-handler) :data id) id)))) (callbacks :cell nil :accessor callbacks @@ -352,6 +351,10 @@ (allocated-height self) new-height)))) 0) +#+libcellsgtk +(defmethod md-awaken :after ((self widget)) + (gtk-signal-connect-swap (id self) "configure-event" (cffi:get-callback 'reshape-widget-handler) :data (id self))) + (defmethod focus ((self widget)) (gtk-widget-grab-focus (id self)))