[mcclim-cvs] CVS update: mcclim/Examples/colorslider.lisp

[Andy Hefner]

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)