[mcclim-cvs] CVS mcclim/Examples

[ahefner]

Update of /project/mcclim/cvsroot/mcclim/Examples
In directory clnet:/tmp/cvs-serv21511

Modified Files:
	font-selector.lisp 
Log Message:
Default to the current port.


--- /project/mcclim/cvsroot/mcclim/Examples/font-selector.lisp	2006/12/24 14:27:48	1.1
+++ /project/mcclim/cvsroot/mcclim/Examples/font-selector.lisp	2008/01/21 01:08:58	1.2
@@ -38,6 +38,7 @@
 
 (define-application-frame font-selector ()
     ((font-selector-port :initarg :font-selector-port
+                         :initform (find-port)
                          :accessor font-selector-port)
      (font-selector-text-style :accessor font-selector-text-style))
   (:menu-bar nil)