[mcclim-cvs] CVS mcclim

[dlichteblau]

Update of /project/mcclim/cvsroot/mcclim
In directory clnet:/tmp/cvs-serv14900

Modified Files:
	gadgets.lisp 
Log Message:
* gadgets.lisp (dis-/armed-callback text-field-pane): Added a hack to
ensure initialization of the text field before it is being used.  Needed
to make the gadget test start up with the gtkairo backend.


--- /project/mcclim/cvsroot/mcclim/gadgets.lisp	2006/03/30 12:07:59	1.99
+++ /project/mcclim/cvsroot/mcclim/gadgets.lisp	2006/04/17 18:37:21	1.100
@@ -2562,6 +2562,7 @@
   (let ((port (port gadget)))    
     (setf (previous-focus gadget) (port-keyboard-input-focus port))
     (setf (port-keyboard-input-focus port) gadget))
+  (handle-repaint gadget +everywhere+)	;FIXME: trigger initialization
   (let ((cursor (cursor (area gadget))))
     (letf (((cursor-state cursor) nil))
       (setf (cursor-appearance cursor) :solid))))
@@ -2571,6 +2572,7 @@
   (let ((port (port gadget)))
     (setf (port-keyboard-input-focus port) (previous-focus gadget))
     (setf (previous-focus gadget) nil))
+  (handle-repaint gadget +everywhere+)	;FIXME: trigger initialization
   (let ((cursor (cursor (area gadget))))
     (letf (((cursor-state cursor) nil))
       (setf (cursor-appearance cursor) :hollow))))