[mcclim-cvs] CVS mcclim/Examples

[ahefner]

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

Modified Files:
	clim-fig.lisp fire.lisp 
Log Message:
Cleanup some port-destroying cruft in the examples.



--- /project/mcclim/cvsroot/mcclim/Examples/clim-fig.lisp	2006/12/26 16:44:46	1.31
+++ /project/mcclim/cvsroot/mcclim/Examples/clim-fig.lisp	2007/03/20 01:46:14	1.32
@@ -160,19 +160,7 @@
         (return-from handle-move-object)))))
 
 (defun clim-fig ()
-  (loop for port in climi::*all-ports*
-      do (destroy-port port))
-  (setq climi::*all-ports* nil)
- (run-frame-top-level (make-application-frame 'clim-fig))
- ;(setq frame (make-application-frame 'clim-fig))
- ;(setq fm (frame-manager frame))
- ;(setq port (climi::frame-manager-port fm))
- ;(setq pane (first (frame-panes frame)))
- ;(setq medium (sheet-medium pane))
- ;(setq graft (graft frame))
- ;(setq vbox (climi::frame-pane frame))
- ;(run-frame-top-level frame)
- )
+  (run-frame-top-level (make-application-frame 'clim-fig)))
 
 (defun make-colored-button (color &key width height)
   (make-pane 'push-button
--- /project/mcclim/cvsroot/mcclim/Examples/fire.lisp	2005/02/02 06:32:32	1.5
+++ /project/mcclim/cvsroot/mcclim/Examples/fire.lisp	2007/03/20 01:46:14	1.6
@@ -92,9 +92,6 @@
 ;; test functions
 
 (defun fire ()
-  (loop for port in climi::*all-ports*
-      do (destroy-port port))
-  (setq climi::*all-ports* nil)
   (run-frame-top-level (make-application-frame 'firelights)))
 
 (defmethod fire-frame-top-level ((frame application-frame))