[mcclim-cvs] CVS mcclim/Examples

ahefner ahefner at common-lisp.net
Mon Feb 5 03:26:28 UTC 2007


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

Modified Files:
	demodemo.lisp 
Log Message:
Add tests to demodemo.


--- /project/mcclim/cvsroot/mcclim/Examples/demodemo.lisp	2007/02/04 12:55:44	1.18
+++ /project/mcclim/cvsroot/mcclim/Examples/demodemo.lisp	2007/02/05 03:26:28	1.19
@@ -64,8 +64,7 @@
                    (make-demo-button "Logic Cube" 'logic-cube)
                    (make-demo-button "Gadget Test"  'gadget-test)
                    (make-demo-button "Drag and Drop" 'dragndrop)
-                   (make-demo-button "Colorslider" 'colorslider)
-                   (make-demo-button "Goatee Test" 'goatee::goatee-test)
+                   ;(make-demo-button "Colorslider" 'colorslider)                   
                    (make-demo-button "D&D Translator" 'drag-test)
                    (make-demo-button "Draggable Graph" 'draggable-graph-demo)
 		   (make-pane 'push-button
@@ -84,8 +83,12 @@
                    (make-demo-button "List Test" 'list-test)
                    (make-demo-button "HBOX Test"  'hbox-test)
                    (make-demo-button "Text Size Test"  'text-size-test)
+                   (make-demo-button "Goatee Test" 'goatee::goatee-test)
                    (make-demo-button "Drawing Benchmark"
-				     'drawing-benchmark)))))))))
+				     'drawing-benchmark)
+                   (make-demo-button "Border Styles Test" 'bordered-output)
+                   (make-demo-button "Misc. Tests"
+				     'misc-tests)))))))))
 
 (defun demodemo ()
   #+nil




More information about the Mcclim-cvs mailing list