equal
deleted
inserted
replaced
1000 self installRepeat:repeatDelay. |
1000 self installRepeat:repeatDelay. |
1001 ! |
1001 ! |
1002 |
1002 |
1003 installRepeat:repeatDelay |
1003 installRepeat:repeatDelay |
1004 repeatBlock notNil ifTrue:[ |
1004 repeatBlock notNil ifTrue:[ |
1005 self windowGroup repairDamage. |
1005 self repairDamage. |
1006 Processor addTimedBlock:repeatBlock afterSeconds:repeatDelay |
1006 Processor addTimedBlock:repeatBlock afterSeconds:repeatDelay |
1007 ] |
1007 ] |
1008 ! |
1008 ! |
1009 |
1009 |
1010 pagedAbovePointer |
1010 pagedAbovePointer |
1031 |
1031 |
1032 repeatPageDown |
1032 repeatPageDown |
1033 repeatBlock notNil ifTrue:[ |
1033 repeatBlock notNil ifTrue:[ |
1034 "stop scroll" |
1034 "stop scroll" |
1035 (DefaultStopPagerAtThumb and:[self pagedBelowPointer]) ifTrue:[^ self]. |
1035 (DefaultStopPagerAtThumb and:[self pagedBelowPointer]) ifTrue:[^ self]. |
1036 self windowGroup repairDamage. |
1036 self repairDamage. |
1037 self pageDown. |
1037 self pageDown. |
1038 self installRepeat. |
1038 self installRepeat. |
1039 ] |
1039 ] |
1040 ! |
1040 ! |
1041 |
1041 |
1042 repeatPageUp |
1042 repeatPageUp |
1043 repeatBlock notNil ifTrue:[ |
1043 repeatBlock notNil ifTrue:[ |
1044 "stop scroll" |
1044 "stop scroll" |
1045 (DefaultStopPagerAtThumb and:[self pagedAbovePointer]) ifTrue:[^ self]. |
1045 (DefaultStopPagerAtThumb and:[self pagedAbovePointer]) ifTrue:[^ self]. |
1046 self windowGroup repairDamage. |
1046 self repairDamage. |
1047 self pageUp. |
1047 self pageUp. |
1048 self installRepeat. |
1048 self installRepeat. |
1049 ] |
1049 ] |
1050 ! ! |
1050 ! ! |
1051 |
1051 |
2645 ! ! |
2645 ! ! |
2646 |
2646 |
2647 !Scroller class methodsFor:'documentation'! |
2647 !Scroller class methodsFor:'documentation'! |
2648 |
2648 |
2649 version |
2649 version |
2650 ^ '$Header: /cvs/stx/stx/libwidg/Scroller.st,v 1.180 2004-10-26 15:43:49 cg Exp $' |
2650 ^ '$Header: /cvs/stx/stx/libwidg/Scroller.st,v 1.181 2005-05-11 14:30:47 stefan Exp $' |
2651 ! ! |
2651 ! ! |