changeset 1808 | 097b86f1473e |
parent 1801 | 92c6052b2d53 |
child 1821 | b57cc9dc2c08 |
1807:30526cb1acfc | 1808:097b86f1473e |
---|---|
1455 ! |
1455 ! |
1456 |
1456 |
1457 changeCursorFor:p |
1457 changeCursorFor:p |
1458 "update the mouse cursor" |
1458 "update the mouse cursor" |
1459 |
1459 |
1460 |crsr frm sensor which| |
1460 |frm sensor which| |
1461 |
1461 |
1462 enabled ifFalse:[ |
1462 enabled ifFalse:[ |
1463 self cursor:Cursor normal. |
1463 self cursor:Cursor normal. |
1464 ^ self |
1464 ^ self |
1465 ]. |
1465 ]. |
2323 ! ! |
2323 ! ! |
2324 |
2324 |
2325 !Scroller class methodsFor:'documentation'! |
2325 !Scroller class methodsFor:'documentation'! |
2326 |
2326 |
2327 version |
2327 version |
2328 ^ '$Header: /cvs/stx/stx/libwidg/Scroller.st,v 1.119 1999-03-16 17:42:33 cg Exp $' |
2328 ^ '$Header: /cvs/stx/stx/libwidg/Scroller.st,v 1.120 1999-03-19 21:10:00 cg Exp $' |
2329 ! ! |
2329 ! ! |