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