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