changeset 4030 | 864057d8abe1 |
parent 4029 | 70adb0e2a164 |
child 4031 | 5f0133b18996 |
4029:70adb0e2a164 | 4030:864057d8abe1 |
---|---|
1232 (orientation == #vertical) ifTrue:[ |
1232 (orientation == #vertical) ifTrue:[ |
1233 n := w |
1233 n := w |
1234 ] ifFalse:[ |
1234 ] ifFalse:[ |
1235 n := h |
1235 n := h |
1236 ]. |
1236 ]. |
1237 (1 to:n-2) do:[:i | |
1237 (1 to:n-1) do:[:i | |
1238 |m| |
1238 |m| |
1239 |
1239 |
1240 i <= (n//2) ifTrue:[ |
1240 i == (n-1) ifTrue:[ |
1241 i <= (n//4) ifTrue:[ |
1241 m := 0.4. |
1242 m := 3. |
1242 ] ifFalse:[ |
1243 i <= (n//2) ifTrue:[ |
|
1244 i <= (n//4) ifTrue:[ |
|
1245 m := 3. |
|
1246 ] ifFalse:[ |
|
1247 i <= (n//3) ifTrue:[ |
|
1248 m := 2.5. |
|
1249 ] ifFalse:[ |
|
1250 m := 2. |
|
1251 ]. |
|
1252 ]. |
|
1243 ] ifFalse:[ |
1253 ] ifFalse:[ |
1244 i <= (n//3) ifTrue:[ |
1254 i > (n*3//4) ifTrue:[ |
1245 m := 2.5. |
1255 i > (n*4//5) ifTrue:[ |
1256 m := 0. |
|
1257 ] ifFalse:[ |
|
1258 m := 0.2. |
|
1259 ] |
|
1246 ] ifFalse:[ |
1260 ] ifFalse:[ |
1247 m := 2. |
1261 i > (n*2//3) ifTrue:[ |
1248 ]. |
1262 m := 0.4 |
1249 ]. |
1263 ] ifFalse:[ |
1250 ] ifFalse:[ |
1264 m := 0.8. |
1251 i > (n*3//4) ifTrue:[ |
1265 ]. |
1252 m := 0. |
|
1253 ] ifFalse:[ |
|
1254 i > (n*2//3) ifTrue:[ |
|
1255 m := 0.4 |
|
1256 ] ifFalse:[ |
|
1257 m := 0.8. |
|
1258 ]. |
1266 ]. |
1259 ]. |
1267 ]. |
1260 ]. |
1268 ]. |
1261 self paint:(Color white mixed:m with:clr). |
1269 self paint:(Color white mixed:m with:clr). |
1262 (orientation == #vertical) ifTrue:[ |
1270 (orientation == #vertical) ifTrue:[ |
2420 thumbFrame := nil. |
2428 thumbFrame := nil. |
2421 ^ self |
2429 ^ self |
2422 ] |
2430 ] |
2423 ]. |
2431 ]. |
2424 ]. |
2432 ]. |
2425 ((styleSheet name == #winXP) and:[self isMiniScroller not]) ifTrue:[ |
2433 true "((styleSheet name == #winXP) and:[self isMiniScroller not])" ifTrue:[ |
2426 nw := nw + 1. |
2434 nw := nw + 1. |
2427 nh := nh + 1. |
2435 nh := nh + 1. |
2428 ]. |
2436 ]. |
2429 |
2437 |
2430 " |
2438 " |
2708 ! ! |
2716 ! ! |
2709 |
2717 |
2710 !Scroller class methodsFor:'documentation'! |
2718 !Scroller class methodsFor:'documentation'! |
2711 |
2719 |
2712 version |
2720 version |
2713 ^ '$Header: /cvs/stx/stx/libwidg/Scroller.st,v 1.191 2009-10-24 16:01:04 cg Exp $' |
2721 ^ '$Header: /cvs/stx/stx/libwidg/Scroller.st,v 1.192 2009-10-24 18:28:18 cg Exp $' |
2714 ! |
2722 ! |
2715 |
2723 |
2716 version_CVS |
2724 version_CVS |
2717 ^ '$Header: /cvs/stx/stx/libwidg/Scroller.st,v 1.191 2009-10-24 16:01:04 cg Exp $' |
2725 ^ '$Header: /cvs/stx/stx/libwidg/Scroller.st,v 1.192 2009-10-24 18:28:18 cg Exp $' |
2718 ! ! |
2726 ! ! |