equal
deleted
inserted
replaced
1373 self clearDeviceRectangleX:x y:y width:w height:h. |
1373 self clearDeviceRectangleX:x y:y width:w height:h. |
1374 |
1374 |
1375 styleSheet name == #winVista ifTrue:[ |
1375 styleSheet name == #winVista ifTrue:[ |
1376 self paint:(Color greyByte:16rE3). |
1376 self paint:(Color greyByte:16rE3). |
1377 (orientation == #vertical) ifTrue:[ |
1377 (orientation == #vertical) ifTrue:[ |
|
1378 self displayLineFromX:0 y:0 toX:0 y:height-1. |
1378 self displayLineFromX:1 y:0 toX:1 y:height-1. |
1379 self displayLineFromX:1 y:0 toX:1 y:height-1. |
1379 self displayLineFromX:2 y:0 toX:2 y:height-1. |
|
1380 ] ifFalse:[ |
1380 ] ifFalse:[ |
|
1381 self displayLineFromX:0 y:0 toX:width-1 y:0. |
1381 self displayLineFromX:0 y:1 toX:width-1 y:1. |
1382 self displayLineFromX:0 y:1 toX:width-1 y:1. |
1382 self displayLineFromX:0 y:2 toX:width-1 y:2. |
|
1383 ]. |
1383 ]. |
1384 ]. |
1384 ]. |
1385 |
1385 |
1386 frameBeforeMove notNil ifTrue:[ |
1386 frameBeforeMove notNil ifTrue:[ |
1387 (ghostColor notNil |
1387 (ghostColor notNil |
2740 ! ! |
2740 ! ! |
2741 |
2741 |
2742 !Scroller class methodsFor:'documentation'! |
2742 !Scroller class methodsFor:'documentation'! |
2743 |
2743 |
2744 version |
2744 version |
2745 ^ '$Header: /cvs/stx/stx/libwidg/Scroller.st,v 1.194 2009-10-24 19:51:12 cg Exp $' |
2745 ^ '$Header: /cvs/stx/stx/libwidg/Scroller.st,v 1.195 2009-10-24 22:58:51 cg Exp $' |
2746 ! |
2746 ! |
2747 |
2747 |
2748 version_CVS |
2748 version_CVS |
2749 ^ '$Header: /cvs/stx/stx/libwidg/Scroller.st,v 1.194 2009-10-24 19:51:12 cg Exp $' |
2749 ^ '$Header: /cvs/stx/stx/libwidg/Scroller.st,v 1.195 2009-10-24 22:58:51 cg Exp $' |
2750 ! ! |
2750 ! ! |