[mcclim-cvs] CVS mcclim/Examples

[dlichteblau]

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)