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

Modified Files: colorslider.lisp gadget-test-kr.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/Examples/colorslider.lisp 2005/02/01 03:44:00 1.19 +++ /project/mcclim/cvsroot/mcclim/Examples/colorslider.lisp 2009/01/28 19:27:23 1.20 @@ -66,7 +66,7 @@ ; (setq fm (find-frame-manager)) ; (setq frame (make-application-frame 'colorslider ; :frame-manager fm)) -; (setq port (climi::frame-manager-port fm)) +; (setq port (port fm)) ; (setq pane (frame-panes frame)) ; (setq medium (sheet-medium pane)) ; (setq graft (graft frame)) --- /project/mcclim/cvsroot/mcclim/Examples/gadget-test-kr.lisp 2002/10/31 12:58:15 1.2 +++ /project/mcclim/cvsroot/mcclim/Examples/gadget-test-kr.lisp 2009/01/28 19:27:23 1.3 @@ -37,7 +37,7 @@ :port (find-port)))) ; (setq frame (make-application-frame 'gadget-test)) (setq fm (frame-manager frame)) - (setq port (climi::frame-manager-port fm)) + (setq port (port fm)) (setq pane (first (frame-panes frame))) (setq medium (sheet-medium pane)) (setq graft (graft frame))