equal
deleted
inserted
replaced
1003 ! ! |
1003 ! ! |
1004 |
1004 |
1005 !Scroller methodsFor:'autoRepeat'! |
1005 !Scroller methodsFor:'autoRepeat'! |
1006 |
1006 |
1007 installRepeat |
1007 installRepeat |
|
1008 self installRepeat:repeatDelay. |
|
1009 ! |
|
1010 |
|
1011 installRepeat:repeatDelay |
1008 repeatBlock notNil ifTrue:[ |
1012 repeatBlock notNil ifTrue:[ |
1009 self windowGroup repairDamage. |
1013 self windowGroup repairDamage. |
1010 Processor addTimedBlock:repeatBlock afterSeconds:repeatDelay |
1014 Processor addTimedBlock:repeatBlock afterSeconds:repeatDelay |
1011 ] |
1015 ] |
1012 ! |
1016 ! |
1382 repeatBlock := [|sensor| |
1386 repeatBlock := [|sensor| |
1383 (sensor := self sensor) notNil ifTrue:[ |
1387 (sensor := self sensor) notNil ifTrue:[ |
1384 sensor pushUserEvent:#repeatPageUp for:self |
1388 sensor pushUserEvent:#repeatPageUp for:self |
1385 ] |
1389 ] |
1386 ]. |
1390 ]. |
1387 sensor pushUserEvent:#installRepeat for:self. |
1391 sensor pushUserEvent:#installRepeat: for:self withArgument:initialRepeatDelay. |
1388 "/ Processor addTimedBlock:repeatBlock afterSeconds:initialRepeatDelay |
1392 "/ Processor addTimedBlock:repeatBlock afterSeconds:initialRepeatDelay |
1389 ] |
1393 ] |
1390 ] ifFalse:[ |
1394 ] ifFalse:[ |
1391 (curr > limit2) ifTrue:[ |
1395 (curr > limit2) ifTrue:[ |
1392 "page down/right" |
1396 "page down/right" |
1398 repeatBlock := [|sensor| |
1402 repeatBlock := [|sensor| |
1399 (sensor := self sensor) notNil ifTrue:[ |
1403 (sensor := self sensor) notNil ifTrue:[ |
1400 sensor pushUserEvent:#repeatPageDown for:self |
1404 sensor pushUserEvent:#repeatPageDown for:self |
1401 ] |
1405 ] |
1402 ]. |
1406 ]. |
1403 sensor pushUserEvent:#installRepeat for:self. |
1407 sensor pushUserEvent:#installRepeat: for:self withArgument:initialRepeatDelay. |
1404 "/ Processor addTimedBlock:repeatBlock afterSeconds:initialRepeatDelay |
1408 "/ Processor addTimedBlock:repeatBlock afterSeconds:initialRepeatDelay |
1405 ] |
1409 ] |
1406 ] ifFalse:[ |
1410 ] ifFalse:[ |
1407 pressOffset := curr - limit1. |
1411 pressOffset := curr - limit1. |
1408 scrolling := true |
1412 scrolling := true |
2085 drawableId notNil ifTrue:[ |
2089 drawableId notNil ifTrue:[ |
2086 self computeThumbFrame |
2090 self computeThumbFrame |
2087 ]. |
2091 ]. |
2088 |
2092 |
2089 autoRepeat := styleSheet at:#'scroller.autoRepeat' default:true. |
2093 autoRepeat := styleSheet at:#'scroller.autoRepeat' default:true. |
2090 initialRepeatDelay := styleSheet at:#'scroller.initialRepeatDelay' default:0.2. |
2094 initialRepeatDelay := styleSheet at:#'scroller.initialRepeatDelay' default:0.3. |
2091 repeatDelay := styleSheet at:#'scroller.repeatDelay' default:0.15. |
2095 repeatDelay := styleSheet at:#'scroller.repeatDelay' default:0.15. |
2092 |
2096 |
2093 "Modified: / 5.9.1998 / 20:21:41 / cg" |
2097 "Modified: / 5.9.1998 / 20:21:41 / cg" |
2094 ! |
2098 ! |
2095 |
2099 |
2533 ! ! |
2537 ! ! |
2534 |
2538 |
2535 !Scroller class methodsFor:'documentation'! |
2539 !Scroller class methodsFor:'documentation'! |
2536 |
2540 |
2537 version |
2541 version |
2538 ^ '$Header: /cvs/stx/stx/libwidg/Scroller.st,v 1.159 2002-01-21 10:04:45 cg Exp $' |
2542 ^ '$Header: /cvs/stx/stx/libwidg/Scroller.st,v 1.160 2002-02-11 10:00:47 cg Exp $' |
2539 ! ! |
2543 ! ! |