equal
deleted
inserted
replaced
2297 ! ! |
2297 ! ! |
2298 |
2298 |
2299 !CodeView2::AnnotationShowingScrollerBackground methodsFor:'drawing'! |
2299 !CodeView2::AnnotationShowingScrollerBackground methodsFor:'drawing'! |
2300 |
2300 |
2301 fillRectangleX:x y:y width:w height:h in:aScroller |
2301 fillRectangleX:x y:y width:w height:h in:aScroller |
|
2302 "I am asked to draw the background of aScroller. |
|
2303 If any annotation is in that range, draw it" |
|
2304 |
2302 |overAllHeight| |
2305 |overAllHeight| |
2303 |
2306 |
2304 annotations isEmptyOrNil ifTrue:[^ self ]. |
2307 annotations isEmptyOrNil ifTrue:[^ self ]. |
2305 |
2308 |
2306 overAllHeight := textView numberOfLines. |
2309 overAllHeight := textView numberOfLines. |
2325 clr1 := baseColor lightened lightened. |
2328 clr1 := baseColor lightened lightened. |
2326 clr2 := clr1 darkened. |
2329 clr2 := clr1 darkened. |
2327 aScroller paint:clr1. |
2330 aScroller paint:clr1. |
2328 aScroller fillRectangleX:3 y:(yThumb-5 max:0) width:aScroller width-5 height:8. |
2331 aScroller fillRectangleX:3 y:(yThumb-5 max:0) width:aScroller width-5 height:8. |
2329 aScroller paint:clr2. |
2332 aScroller paint:clr2. |
2330 aScroller displayRectangleX:3 y:(yThumb-5 max:0) width:aScroller width-5 height:10. |
2333 aScroller displayRectangleX:3 y:(yThumb-5 max:0) width:aScroller width-5 height:9. |
2331 ]. |
2334 ]. |
2332 ]. |
2335 ]. |
2333 ] |
2336 ] |
2334 ! ! |
2337 ! ! |
2335 |
2338 |