equal
deleted
inserted
replaced
472 |
472 |
473 rangeStart := start. |
473 rangeStart := start. |
474 rangeEnd := stop. |
474 rangeEnd := stop. |
475 |
475 |
476 rangeStart = rangeEnd ifTrue:[ |
476 rangeStart = rangeEnd ifTrue:[ |
477 self halt:'invalud slider range (start = stop)'. |
477 self error:'invalid slider range (start = stop)' mayProceed:true. |
478 rangeStep isNil ifTrue:[ |
478 rangeEnd := rangeStart + (rangeStep ? 1). |
479 rangeEnd := rangeStart + 1 |
|
480 ] ifFalse:[ |
|
481 rangeEnd := rangeStart + rangeStep. |
|
482 ] |
|
483 ]. |
479 ]. |
484 |
480 |
485 org < rangeStart ifTrue:[ |
481 org < rangeStart ifTrue:[ |
486 org := rangeStart |
482 org := rangeStart |
487 ] ifFalse:[ |
483 ] ifFalse:[ |
2583 ! ! |
2579 ! ! |
2584 |
2580 |
2585 !Scroller class methodsFor:'documentation'! |
2581 !Scroller class methodsFor:'documentation'! |
2586 |
2582 |
2587 version |
2583 version |
2588 ^ '$Header: /cvs/stx/stx/libwidg/Scroller.st,v 1.170 2004-09-14 15:12:13 cg Exp $' |
2584 ^ '$Header: /cvs/stx/stx/libwidg/Scroller.st,v 1.171 2004-09-14 15:30:16 cg Exp $' |
2589 ! ! |
2585 ! ! |