--- a/Tools__CodeView2.st Wed May 18 10:49:38 2016 +0200
+++ b/Tools__CodeView2.st Wed May 18 14:56:05 2016 +0200
@@ -2299,6 +2299,9 @@
!CodeView2::AnnotationShowingScrollerBackground methodsFor:'drawing'!
fillRectangleX:x y:y width:w height:h in:aScroller
+ "I am asked to draw the background of aScroller.
+ If any annotation is in that range, draw it"
+
|overAllHeight|
annotations isEmptyOrNil ifTrue:[^ self ].
@@ -2327,7 +2330,7 @@
aScroller paint:clr1.
aScroller fillRectangleX:3 y:(yThumb-5 max:0) width:aScroller width-5 height:8.
aScroller paint:clr2.
- aScroller displayRectangleX:3 y:(yThumb-5 max:0) width:aScroller width-5 height:10.
+ aScroller displayRectangleX:3 y:(yThumb-5 max:0) width:aScroller width-5 height:9.
].
].
]