[mcclim-cvs] CVS mcclim/Backends/CLX

[crhodes]

Update of /project/mcclim/cvsroot/mcclim/Backends/CLX
In directory cl-net:/tmp/cvs-serv11339/Backends/CLX

Modified Files:
	frame-manager.lisp 
Log Message:
The spec says that PORT is an accessor on frame-manager; remove 
CLIMI::FRAME-MANAGER-PORT and implement PORT instead.  Fixup all uses 
that I can find.

(Motivated by Climacs's own frame management)


--- /project/mcclim/cvsroot/mcclim/Backends/CLX/frame-manager.lisp	2007/02/04 12:55:43	1.22
+++ /project/mcclim/cvsroot/mcclim/Backends/CLX/frame-manager.lisp	2009/01/28 19:27:22	1.23
@@ -92,7 +92,7 @@
   ;; Temporary kludge.
   (when (eq (slot-value frame 'climi::top) nil)
     (multiple-value-bind (x y)
-        (xlib:query-pointer (clx-port-window (climi::frame-manager-port fm)))
+        (xlib:query-pointer (clx-port-window (port fm)))
       (incf x 10)
       (setf (slot-value frame 'climi::left) x
             (slot-value frame 'climi::top) y))))