equal
deleted
inserted
replaced
22 COPYRIGHT (c) 1989 by Claus Gittinger |
22 COPYRIGHT (c) 1989 by Claus Gittinger |
23 All Rights Reserved |
23 All Rights Reserved |
24 |
24 |
25 the scroller part of a horizontal scrollbar |
25 the scroller part of a horizontal scrollbar |
26 |
26 |
27 $Header: /cvs/stx/stx/libwidg/HorizontalScroller.st,v 1.3 1993-10-13 02:48:01 claus Exp $ |
27 $Header: /cvs/stx/stx/libwidg/HorizontalScroller.st,v 1.4 1994-01-13 00:16:13 claus Exp $ |
28 written spring/summer 89 by claus |
28 written spring/summer 89 by claus |
29 '! |
29 '! |
30 |
30 |
31 !HorizontalScroller methodsFor:'initialization'! |
31 !HorizontalScroller methodsFor:'initialization'! |
32 |
32 |
83 |
83 |
84 self copyFrom:self x:oldLeft y:top |
84 self copyFrom:self x:oldLeft y:top |
85 toX:thumbLeft y:top |
85 toX:thumbLeft y:top |
86 width:tW height:tH. |
86 width:tW height:tH. |
87 |
87 |
|
88 self catchExpose. |
|
89 |
88 oldLeft > thumbLeft ifTrue:[ |
90 oldLeft > thumbLeft ifTrue:[ |
89 delta := oldLeft - thumbLeft. |
91 delta := oldLeft - thumbLeft. |
90 oldLeft > thumbRight ifTrue:[ |
92 oldLeft > thumbRight ifTrue:[ |
91 self drawThumbBackgroundInX:oldLeft y:top |
93 self drawThumbBackgroundInX:oldLeft y:top |
92 width:(tW + 1) height:tH |
94 width:(tW + 1) height:tH |
102 ] ifFalse:[ |
104 ] ifFalse:[ |
103 self drawThumbBackgroundInX:oldLeft y:top |
105 self drawThumbBackgroundInX:oldLeft y:top |
104 width:delta height:tH |
106 width:delta height:tH |
105 ] |
107 ] |
106 ]. |
108 ]. |
107 "View3D ifTrue:[ " |
109 self waitForExpose |
108 self waitForExpose |
|
109 "] " |
|
110 ] |
110 ] |
111 ] |
111 ] |
112 ] |
112 ] |
113 ! |
113 ! |
114 |
114 |