[mcclim-cvs] CVS mcclim/Looks

[ahefner]

Update of /project/mcclim/cvsroot/mcclim/Looks
In directory clnet:/tmp/cvs-serv14253

Modified Files:
	pixie.lisp 
Log Message:
Another step down the slippery slope of chronic laziness.


--- /project/mcclim/cvsroot/mcclim/Looks/pixie.lisp	2008/08/20 01:44:12	1.24
+++ /project/mcclim/cvsroot/mcclim/Looks/pixie.lisp	2008/08/22 22:36:00	1.25
@@ -25,6 +25,10 @@
 (defclass pixie-look (frame-manager) ())
 #+clx (defclass pixie/clx-look (pixie-look clim-clx::clx-frame-manager) ())
 
+(defun use-pixie ()
+  (setf *default-frame-manager* 
+        (make-instance 'pixie/clx-look
+                       :port (find-port))))
 
 (defmacro define-pixie-gadget (abstract-type pixie-type &key (enabled t))
   `(defmethod make-pane-1 ((fm pixie-look)