Update of /project/mcclim/cvsroot/mcclim/Backends/gtkairo In directory clnet:/tmp/cvs-serv21826

Modified Files: port.lisp Log Message: Install a graft into the gtkairo port.

--- /project/mcclim/cvsroot/mcclim/Backends/gtkairo/port.lisp 2007/02/07 12:44:19 1.17 +++ /project/mcclim/cvsroot/mcclim/Backends/gtkairo/port.lisp 2007/12/16 23:17:26 1.18 @@ -71,6 +71,7 @@ (setf (events-head port) (list nil)) (setf (events-tail port) (events-head port)) (setf (port-pointer port) (make-instance 'gtkairo-pointer :port port)) + (push (make-graft port) (climi::port-grafts port)) ;; FIXME: it seems bizarre for this to be necessary (push (make-instance 'gtkairo-frame-manager :port port) (slot-value port 'climi::frame-managers))