Update of /project/mcclim/cvsroot/mcclim/Examples In directory common-lisp.net:/tmp/cvs-serv26351

Modified Files: colorslider.lisp Log Message: Comment out archaic futzing with port and frame manager, which seemed to cause a problem with closing the colorslider window.

Date: Mon Jan 31 19:44:00 2005 Author: ahefner

Index: mcclim/Examples/colorslider.lisp diff -u mcclim/Examples/colorslider.lisp:1.18 mcclim/Examples/colorslider.lisp:1.19 --- mcclim/Examples/colorslider.lisp:1.18 Fri Oct 15 06:23:20 2004 +++ mcclim/Examples/colorslider.lisp Mon Jan 31 19:44:00 2005 @@ -59,18 +59,18 @@ ;; test functions

(defun colorslider () - (declare (special frame fm port pane medium graft)) - (loop for port in climi::*all-ports* - do (destroy-port port)) - (setq climi::*all-ports* nil) - (setq fm (find-frame-manager)) - (setq frame (make-application-frame 'colorslider - :frame-manager fm)) - (setq port (climi::frame-manager-port fm)) - (setq pane (frame-panes frame)) - (setq medium (sheet-medium pane)) - (setq graft (graft frame)) - (run-frame-top-level frame)) +; (declare (special frame fm port pane medium graft)) +; (loop for port in climi::*all-ports* +; do (destroy-port port)) +; (setq climi::*all-ports* nil) +; (setq fm (find-frame-manager)) +; (setq frame (make-application-frame 'colorslider +; :frame-manager fm)) +; (setq port (climi::frame-manager-port fm)) +; (setq pane (frame-panes frame)) +; (setq medium (sheet-medium pane)) +; (setq graft (graft frame)) + (run-frame-top-level (make-application-frame 'colorslider)))

(defmethod slidertest-frame-top-level ((frame application-frame)