[mcclim-cvs] CVS update: mcclim/text-selection.lisp

[Christophe Rhodes]

Update of /project/mcclim/cvsroot/mcclim
In directory common-lisp.net:/tmp/cvs-serv15230

Modified Files:
	text-selection.lisp 
Log Message:
Fix bug reported by Paolo ("Missing CLIMI::Y2 slot error")

Date: Mon Feb 14 17:31:42 2005
Author: crhodes

Index: mcclim/text-selection.lisp
diff -u mcclim/text-selection.lisp:1.3 mcclim/text-selection.lisp:1.4
--- mcclim/text-selection.lisp:1.3	Thu Feb 10 10:54:26 2005
+++ mcclim/text-selection.lisp	Mon Feb 14 17:31:41 2005
@@ -410,7 +410,7 @@
       (map nil
            (lambda (m)
              (with-slots (record styled-string start end) m
-               (with-slots (y1 y2) record
+	       (with-standard-rectangle* (:y1 y1 :y2 y2) record
                  (if (and old-y2 (>= y1 old-y2))
                      (progn
                        (setf old-y2 nil)