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)