[cells-cvs] CVS cells-gtk3/cells-gtk

[phildebrandt]

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