equal
deleted
inserted
replaced
1001 "Modified: 8.2.1997 / 15:15:58 / cg" |
1001 "Modified: 8.2.1997 / 15:15:58 / cg" |
1002 ! ! |
1002 ! ! |
1003 |
1003 |
1004 !Scroller methodsFor:'autoRepeat'! |
1004 !Scroller methodsFor:'autoRepeat'! |
1005 |
1005 |
|
1006 installRepeat |
|
1007 self windowGroup repairDamage. |
|
1008 Processor addTimedBlock:repeatBlock afterSeconds:repeatDelay |
|
1009 ! |
|
1010 |
1006 repeatPageDown |
1011 repeatPageDown |
1007 self pageDown. |
1012 self pageDown. |
1008 Processor addTimedBlock:repeatBlock afterSeconds:repeatDelay |
1013 self installRepeat. |
1009 |
|
1010 ! |
1014 ! |
1011 |
1015 |
1012 repeatPageUp |
1016 repeatPageUp |
1013 self pageUp. |
1017 self pageUp. |
1014 Processor addTimedBlock:repeatBlock afterSeconds:repeatDelay |
1018 self installRepeat. |
1015 |
|
1016 ! ! |
1019 ! ! |
1017 |
1020 |
1018 !Scroller methodsFor:'drawing'! |
1021 !Scroller methodsFor:'drawing'! |
1019 |
1022 |
1020 drawHandleFormAtX:x y:y |
1023 drawHandleFormAtX:x y:y |
1368 repeatBlock := [|sensor| |
1371 repeatBlock := [|sensor| |
1369 (sensor := self sensor) notNil ifTrue:[ |
1372 (sensor := self sensor) notNil ifTrue:[ |
1370 sensor pushUserEvent:#repeatPageUp for:self |
1373 sensor pushUserEvent:#repeatPageUp for:self |
1371 ] |
1374 ] |
1372 ]. |
1375 ]. |
1373 Processor addTimedBlock:repeatBlock afterSeconds:initialRepeatDelay |
1376 sensor pushUserEvent:#installRepeat for:self. |
|
1377 "/ Processor addTimedBlock:repeatBlock afterSeconds:initialRepeatDelay |
1374 ] |
1378 ] |
1375 ] ifFalse:[ |
1379 ] ifFalse:[ |
1376 (curr > limit2) ifTrue:[ |
1380 (curr > limit2) ifTrue:[ |
1377 "page down/right" |
1381 "page down/right" |
1378 self pageDown. |
1382 self pageDown. |
1383 repeatBlock := [|sensor| |
1387 repeatBlock := [|sensor| |
1384 (sensor := self sensor) notNil ifTrue:[ |
1388 (sensor := self sensor) notNil ifTrue:[ |
1385 sensor pushUserEvent:#repeatPageDown for:self |
1389 sensor pushUserEvent:#repeatPageDown for:self |
1386 ] |
1390 ] |
1387 ]. |
1391 ]. |
1388 Processor addTimedBlock:repeatBlock afterSeconds:initialRepeatDelay |
1392 sensor pushUserEvent:#installRepeat for:self. |
|
1393 "/ Processor addTimedBlock:repeatBlock afterSeconds:initialRepeatDelay |
1389 ] |
1394 ] |
1390 ] ifFalse:[ |
1395 ] ifFalse:[ |
1391 pressOffset := curr - limit1. |
1396 pressOffset := curr - limit1. |
1392 scrolling := true |
1397 scrolling := true |
1393 ] |
1398 ] |
2485 ! ! |
2490 ! ! |
2486 |
2491 |
2487 !Scroller class methodsFor:'documentation'! |
2492 !Scroller class methodsFor:'documentation'! |
2488 |
2493 |
2489 version |
2494 version |
2490 ^ '$Header: /cvs/stx/stx/libwidg/Scroller.st,v 1.149 2000-10-20 11:09:47 stefan Exp $' |
2495 ^ '$Header: /cvs/stx/stx/libwidg/Scroller.st,v 1.150 2000-11-20 13:51:47 cg Exp $' |
2491 ! ! |
2496 ! ! |