Update of /project/mcclim/cvsroot/mcclim/Examples In directory clnet:/tmp/cvs-serv19514
Modified Files: text-size-test.lisp Log Message: - Show the final x/y point as a cross. - Use a TEXT-EDITOR to allow testing of multi-line DRAW-TEXT (and watch it not work in CLIM-CLX.)
--- /project/mcclim/cvsroot/mcclim/Examples/text-size-test.lisp 2006/12/20 12:30:44 1.4 +++ /project/mcclim/cvsroot/mcclim/Examples/text-size-test.lisp 2006/12/20 14:42:51 1.5 @@ -26,7 +26,7 @@ :min-width 600 :display-time t :display-function 'display-canvas) - (text (make-pane 'text-field :value "ytmM")) + (text (make-pane 'text-editor :height 200 :value "ytmM")) (family (with-radio-box () (make-pane 'toggle-button :label "Fixed" :id :fixed) @@ -45,7 +45,7 @@ (size (make-pane 'slider :orientation :horizontal - :value 160 + :value 120 :min-value 1 :max-value 1000))) (:layouts @@ -164,11 +164,14 @@ (+ x1 width) (+ y1 height) :ink +red+ :filled nil) - (draw-rectangle* stream - x1 y1 - (+ x1 final-x) (+ y1 final-y) - :ink +blue+ - :filled nil)) + (draw-line* stream + 0 (+ y1 final-y) + pane-width (+ y1 final-y) + :ink +blue+) + (draw-line* stream + (+ x1 final-x) 0 + (+ x1 final-x) pane-height + :ink +blue+)) ((:text-bounding-rectangle) (multiple-value-bind (left top right bottom) (climi::text-bounding-rectangle* medium str :text-style style)