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