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