[mcclim-cvs] CVS mcclim/Backends/gtkairo

[dlichteblau]

Update of /project/mcclim/cvsroot/mcclim/Backends/gtkairo
In directory clnet:/tmp/cvs-serv11309

Modified Files:
	clim-fix.lisp 
Log Message:

Fix non-cairo presentation highlighting when gtkairo is loaded.

	* clim-fix.lisp (HIGHLIGHT-OUTPUT-RECORD-RECTANGLE): Move the
        lower and right borders 0.5 px inwards instead of outwards.


--- /project/mcclim/cvsroot/mcclim/Backends/gtkairo/clim-fix.lisp	2006/11/05 17:22:23	1.5
+++ /project/mcclim/cvsroot/mcclim/Backends/gtkairo/clim-fix.lisp	2006/12/25 20:50:06	1.6
@@ -49,8 +49,8 @@
 	  (draw-rectangle* (sheet-medium stream)
 			   (+ (ceiling x1) 0.5d0)
 			   (+ (ceiling y1) 0.5d0)
-			   (+ (floor (1- x2)) 0.5d0)
-			   (+ (floor (1- y2)) 0.5d0)
+			   (- (floor (1- x2)) 0.5d0)
+			   (- (floor (1- y2)) 0.5d0)
 			   ;; XXX +FLIPPING-INK+? 
 			   :filled nil :ink +foreground-ink+))
         (:unhighlight