[mcclim-cvs] CVS mcclim/Examples

[dlichteblau]

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

Modified Files:
	gadget-test.lisp 
Log Message:
* gadget-test.lisp (gadget-test): Rearranged the gadget test to not
require a screen the size of a star ship bridge.


--- /project/mcclim/cvsroot/mcclim/Examples/gadget-test.lisp	2005/01/02 05:29:19	1.12
+++ /project/mcclim/cvsroot/mcclim/Examples/gadget-test.lisp	2006/04/23 15:42:42	1.13
@@ -208,23 +208,28 @@
     (:layouts
      (default
        (raising (:border-width 5 :background +Gray83+)
-         (vertically ()
-           tf1 tf2 tf3 tf4
-           slider-h
-           (horizontally ()
-             (vertically ()
-               slider-v
-               slider-v2)
-             slider-v3
-             radar)
-	   text-edit
-           push-btn
-           table
-           toggle-btn
-           scroll
-           radio-box
-           check-box
-           ))))
+         (horizontally ()
+	   (vertically ()
+	     (horizontally ()
+	       (horizontally ()
+		 (vertically ()
+		   slider-v
+		   slider-v2)
+		 slider-v3)
+	       (vertically ()
+		 tf1 tf2 tf3 tf4
+		 slider-h))
+	     ;; FIXME: the radar doesn't seem to do anything except take
+	     ;; up vast amounts of space.
+	     #+(or) radar
+	     text-edit)
+	   (vertically ()
+	     push-btn
+	     table
+	     toggle-btn
+	     scroll
+	     radio-box
+	     check-box)))))
     (:top-level (gadget-test-frame-top-level . nil)))
 
 (defmethod run-frame-top-level :around ((frame gadget-test) &key &allow-other-keys)