Commit d3057089 authored by Peter Hildebrandt's avatar Peter Hildebrandt
Browse files

fixed configure event

parent a608d7a7

cells-gtk/widgets.lisp

+4 −1
Original line number Diff line number Diff line
@@ -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)))