[mcclim-cvs] CVS mcclim/Backends/gtkairo

[dlichteblau]

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