equal
deleted
inserted
replaced
391 |
391 |
392 start:start |
392 start:start |
393 "set the scrollers range min. |
393 "set the scrollers range min. |
394 (not used with Scrollers, but provided for subclasses)" |
394 (not used with Scrollers, but provided for subclasses)" |
395 |
395 |
396 rangeStart := start. |
396 self start:start stop:rangeEnd. |
|
397 |
|
398 "Modified: 25.5.1996 / 11:28:22 / cg" |
397 ! |
399 ! |
398 |
400 |
399 start:start stop:stop |
401 start:start stop:stop |
400 "set the range. |
402 "set the range. |
401 (not used with Scrollers, but provided for subclasses)" |
403 (not used with Scrollers, but provided for subclasses)" |
402 |
404 |
|
405 |org| |
|
406 |
|
407 org := self thumbOrigin. |
|
408 |
403 rangeStart := start. |
409 rangeStart := start. |
404 rangeEnd := stop |
410 rangeEnd := stop. |
|
411 |
|
412 org < rangeStart ifTrue:[ |
|
413 org := rangeStart |
|
414 ] ifFalse:[ |
|
415 org > rangeEnd ifTrue:[ |
|
416 org := rangeEnd |
|
417 ] |
|
418 ]. |
|
419 self thumbOrigin:org. |
|
420 |
|
421 "Modified: 25.5.1996 / 11:34:56 / cg" |
|
422 ! |
|
423 |
|
424 start:start stop:stop step:step |
|
425 "set the range. |
|
426 (not used with Scrollers, but provided for subclasses)" |
|
427 |
|
428 self start:start stop:stop. |
|
429 rangeStep := step. |
|
430 |
|
431 "Created: 25.5.1996 / 11:24:09 / cg" |
|
432 "Modified: 25.5.1996 / 11:27:43 / cg" |
405 ! |
433 ! |
406 |
434 |
407 step |
435 step |
408 "return the scrollers range step. |
436 "return the scrollers range step. |
409 (not used with Scrollers, but provided for subclasses)" |
437 (not used with Scrollers, but provided for subclasses)" |
427 |
455 |
428 stop:stop |
456 stop:stop |
429 "set the scrollers range max. |
457 "set the scrollers range max. |
430 (not used with Scrollers, but provided for subclasses)" |
458 (not used with Scrollers, but provided for subclasses)" |
431 |
459 |
432 rangeEnd := stop |
460 self start:rangeStart stop:stop. |
|
461 |
|
462 "Modified: 25.5.1996 / 11:28:35 / cg" |
433 ! |
463 ! |
434 |
464 |
435 thumbFrame |
465 thumbFrame |
436 "return the area used by the thumbFrame (in device coordinates). |
466 "return the area used by the thumbFrame (in device coordinates). |
437 Allows access to the thumbs physical screen position, for |
467 Allows access to the thumbs physical screen position, for |
1727 ! ! |
1757 ! ! |
1728 |
1758 |
1729 !Scroller class methodsFor:'documentation'! |
1759 !Scroller class methodsFor:'documentation'! |
1730 |
1760 |
1731 version |
1761 version |
1732 ^ '$Header: /cvs/stx/stx/libwidg/Scroller.st,v 1.51 1996-05-18 15:42:05 cg Exp $' |
1762 ^ '$Header: /cvs/stx/stx/libwidg/Scroller.st,v 1.52 1996-05-25 10:10:35 cg Exp $' |
1733 ! ! |
1763 ! ! |