[mcclim-cvs] CVS mcclim/Examples

[crhodes]

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