984 "draw part of the thumbs background; defined as a separate |
984 "draw part of the thumbs background; defined as a separate |
985 method, to allow drawing of arbitrary patterns under thumb |
985 method, to allow drawing of arbitrary patterns under thumb |
986 (see ColorSlider)." |
986 (see ColorSlider)." |
987 |
987 |
988 shown ifTrue:[ |
988 shown ifTrue:[ |
989 self clearRectangleX:x y:y width:w height:h. |
989 self clearRectangleX:x y:y width:w height:h. |
990 frameBeforeMove notNil ifTrue:[ |
990 frameBeforeMove notNil ifTrue:[ |
991 self clippedTo:(Rectangle left:x top:y width:w height:h) do:[ |
991 self clippedTo:(Rectangle left:x top:y width:w height:h) do:[ |
992 |gX gY gW gH| |
992 |gX gY gW gH| |
993 |
993 |
994 gX := frameBeforeMove left. |
994 gX := frameBeforeMove left. |
995 gY := frameBeforeMove top. |
995 gY := frameBeforeMove top. |
996 gW := frameBeforeMove width. |
996 gW := frameBeforeMove width. |
997 gH := frameBeforeMove height. |
997 gH := frameBeforeMove height. |
998 |
998 |
999 ghostColor notNil ifTrue:[ |
999 ghostColor notNil ifTrue:[ |
1000 self fillRectangle:frameBeforeMove with:ghostColor. |
1000 self paint:ghostColor. |
1001 ]. |
1001 self fillRectangle:frameBeforeMove. |
1002 (ghostLevel ~~ 0) ifTrue:[ |
1002 ]. |
1003 self drawEdgesForX:gX y:gY width:gW height:gH level:ghostLevel |
1003 (ghostLevel ~~ 0) ifTrue:[ |
1004 ]. |
1004 self drawEdgesForX:gX y:gY width:gW height:gH level:ghostLevel |
1005 ghostFrameColor notNil ifTrue:[ |
1005 ]. |
1006 self paint:ghostFrameColor. |
1006 ghostFrameColor notNil ifTrue:[ |
1007 self displayRectangleX:gX y:gY width:gW height:gH |
1007 self paint:ghostFrameColor. |
1008 ] |
1008 self displayRectangleX:gX y:gY width:gW height:gH |
1009 ] |
1009 ] |
1010 ] |
1010 ] |
|
1011 ] |
1011 ] |
1012 ] |
|
1013 |
|
1014 "Modified: 28.5.1996 / 19:00:01 / cg" |
1012 ! ! |
1015 ! ! |
1013 |
1016 |
1014 !Scroller methodsFor:'event handling'! |
1017 !Scroller methodsFor:'event handling'! |
1015 |
1018 |
1016 buttonMotion:state x:x y:y |
1019 buttonMotion:state x:x y:y |