Update of /project/gsharp/cvsroot/gsharp/Fonts In directory common-lisp:/tmp/cvs-serv21165

Modified Files: viewer.lisp Log Message: Make the font viewer play nicely with the other CLIM applications by not having it destroy all ports before starting up.

--- /project/gsharp/cvsroot/gsharp/Fonts/viewer.lisp 2005/11/14 19:59:46 1.2 +++ /project/gsharp/cvsroot/gsharp/Fonts/viewer.lisp 2006/01/25 00:47:22 1.3 @@ -119,9 +119,6 @@ (t +black+))))))))

(defun viewer () - (loop for port in climi::*all-ports* - do (destroy-port port)) - (setq climi::*all-ports* nil) (let ((frame (make-application-frame 'gf-viewer))) (run-frame-top-level frame)))