[graphic-forms-cvs] r397 - trunk/src/tests/uitoolkit

[junrue at common-lisp.net]

Author: junrue
Date: Fri Nov 17 20:01:47 2006
New Revision: 397

Modified:
   trunk/src/tests/uitoolkit/widget-tester.lisp
Log:
visual test case for border-layout

Modified: trunk/src/tests/uitoolkit/widget-tester.lisp
==============================================================================
--- trunk/src/tests/uitoolkit/widget-tester.lisp	(original)
+++ trunk/src/tests/uitoolkit/widget-tester.lisp	Fri Nov 17 20:01:47 2006
@@ -142,10 +142,10 @@
                                 (select-lb-content lb1 (gfw:selected-p btn))
                                 (manage-lb-button-states lb1 btn-right nil btn-all btn-none)
                                 (setf latch nil)))
-                               
+         (outer-layout (make-instance 'gfw:border-layout :spacing 4 :margins 4))
          (outer-panel (make-instance 'gfw:panel :dispatcher panel-disp
                                                 :parent     *widget-tester-win*
-                                                :layout     (make-instance 'gfw:flow-layout :spacing 4 :margins 4)))
+                                                :layout     outer-layout))
          (lb1-panel (make-instance 'gfw:panel :dispatcher panel-disp
                                               :parent     outer-panel
                                               :layout     (make-instance 'gfw:flow-layout :style '(:vertical) :spacing 4 :margins 4)))
@@ -163,6 +163,7 @@
                                            :style '(:multiple-select)
                                            :items (subseq *list-box-test-data* 4)))
     (gfw:pack lb1-panel)
+    (setf (gfw:layout-attribute outer-layout lb1-panel :left) t)
 
     (setf btn-right  (make-instance 'gfw:button :parent btn-panel
                                                 :text " ==> "
@@ -187,6 +188,7 @@
                                                 :style '(:check-box)
                                                 :callback btn-select-callback))
     (gfw:pack btn-panel)
+    (setf (gfw:layout-attribute outer-layout btn-panel :center) t)
 
     (make-instance 'gfw:label :text "Extended Select:" :parent lb2-panel)
     (setf lb2 (make-instance 'gfw:list-box :parent lb2-panel
@@ -194,6 +196,7 @@
                                            :style '(:extend-select :scrollbar-always)
                                            :items (subseq *list-box-test-data* 4)))
     (gfw:pack lb2-panel)
+    (setf (gfw:layout-attribute outer-layout lb2-panel :right) t)
 
     (gfw:pack outer-panel)
     ;; FIXME: need to think of a more elegant solution for the following
@@ -208,6 +211,7 @@
     (setf (gfw:items-of lb1) *list-box-test-data*)
     (manage-lb-button-states lb1 btn-right btn-select btn-all btn-none)
     (gfw:delete-all lb2)
+
     outer-panel))
 
 (defun thumb->string (thing)