equal
deleted
inserted
replaced
1243 (orientation == #vertical) ifTrue:[ |
1243 (orientation == #vertical) ifTrue:[ |
1244 n := w |
1244 n := w |
1245 ] ifFalse:[ |
1245 ] ifFalse:[ |
1246 n := h |
1246 n := h |
1247 ]. |
1247 ]. |
1248 (1 to:n-1) do:[:i | |
1248 1 to:n-1 do:[:i | |
1249 |m| |
1249 |m| |
1250 |
1250 |
1251 i == (n-1) ifTrue:[ |
1251 i == (n-1) ifTrue:[ |
1252 m := 0.4. |
1252 m := 0.4. |
1253 ] ifFalse:[ |
1253 ] ifFalse:[ |
1366 ^ self |
1366 ^ self |
1367 ]. |
1367 ]. |
1368 |
1368 |
1369 "iris style - draw tallys" |
1369 "iris style - draw tallys" |
1370 self drawTallyMarks. |
1370 self drawTallyMarks. |
|
1371 |
|
1372 "Modified: / 29-11-2011 / 11:55:24 / cg" |
1371 ! |
1373 ! |
1372 |
1374 |
1373 drawThumbBackgroundInX:x y:y width:w height:h |
1375 drawThumbBackgroundInX:x y:y width:w height:h |
1374 "draw part of the thumbs background; defined as a separate |
1376 "draw part of the thumbs background; defined as a separate |
1375 method, to allow drawing of arbitrary patterns under thumb |
1377 method, to allow drawing of arbitrary patterns under thumb |
2748 ! ! |
2750 ! ! |
2749 |
2751 |
2750 !Scroller class methodsFor:'documentation'! |
2752 !Scroller class methodsFor:'documentation'! |
2751 |
2753 |
2752 version |
2754 version |
2753 ^ '$Header: /cvs/stx/stx/libwidg/Scroller.st,v 1.199 2010-12-15 10:54:57 cg Exp $' |
2755 ^ '$Header: /cvs/stx/stx/libwidg/Scroller.st,v 1.200 2011-11-29 10:56:26 cg Exp $' |
2754 ! |
2756 ! |
2755 |
2757 |
2756 version_CVS |
2758 version_CVS |
2757 ^ '$Header: /cvs/stx/stx/libwidg/Scroller.st,v 1.199 2010-12-15 10:54:57 cg Exp $' |
2759 ^ '$Header: /cvs/stx/stx/libwidg/Scroller.st,v 1.200 2011-11-29 10:56:26 cg Exp $' |
2758 ! ! |
2760 ! ! |