[gsharp-cvs] CVS gsharp/Fonts

[rstrandh]

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