[mcclim-cvs] CVS mcclim/Examples

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)