workaround windows drawing rectangles
authorMichael Beyl <mb@exept.de>
Wed, 26 Feb 2003 12:24:19 +0100
changeset 2447 b1db84e39561
parent 2446 a47085ab7739
child 2448 6d912d8ec69d
workaround windows drawing rectangles
SelectionInListModelView.st
--- a/SelectionInListModelView.st	Tue Feb 25 18:35:01 2003 +0100
+++ b/SelectionInListModelView.st	Wed Feb 26 12:24:19 2003 +0100
@@ -921,6 +921,12 @@
     y1 := self yVisibleOfLine:(lnNr + 1).
     hL := y1 - y0.
 
+    "/ fix for windows draw problem
+
+    OperatingSystem isMSWINDOWSlike ifTrue:[
+        hL := hL - 1
+    ].
+
     highlightMode == #line ifTrue:[
         x0 := x.
         x1 := x0 + w.
@@ -2273,5 +2279,5 @@
 !SelectionInListModelView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/SelectionInListModelView.st,v 1.80 2003-02-21 12:35:50 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/SelectionInListModelView.st,v 1.81 2003-02-26 11:24:19 mb Exp $'
 ! !