equal
deleted
inserted
replaced
398 "return a new scrolling view scrolling an instance of aViewClass. |
398 "return a new scrolling view scrolling an instance of aViewClass. |
399 The subview is created here. |
399 The subview is created here. |
400 The view will have full scrollbars." |
400 The view will have full scrollbars." |
401 |
401 |
402 ^ self |
402 ^ self |
403 for:aViewClass |
403 for:aViewClass |
404 hasHorizontalScrollBar:(self == HVScrollableView) |
404 hasHorizontalScrollBar:self defaultHorizontalScrollable |
405 hasVerticalScrollBar:true |
405 hasVerticalScrollBar:self defaultVerticalScrollable |
406 miniScrollerH:false |
406 miniScrollerH:false |
407 miniScrollerV:false |
407 miniScrollerV:false |
408 origin:nil |
408 origin:nil |
409 corner:nil |
409 corner:nil |
410 in:nil |
410 in:nil |
411 |
411 |
412 "Created: 6.3.1997 / 18:06:22 / cg" |
412 "Created: 6.3.1997 / 18:06:22 / cg" |
413 "Modified: 6.3.1997 / 23:18:32 / cg" |
413 "Modified: 6.3.1997 / 23:18:32 / cg" |
414 ! |
414 ! |
415 |
415 |
480 "return a new scrolling view scrolling an instance of aViewClass. |
480 "return a new scrolling view scrolling an instance of aViewClass. |
481 The subview is created here. |
481 The subview is created here. |
482 The view will have full scrollbars." |
482 The view will have full scrollbars." |
483 |
483 |
484 ^ self |
484 ^ self |
485 for:aViewClass |
485 for:aViewClass |
486 hasHorizontalScrollBar:(self == HVScrollableView) |
486 hasHorizontalScrollBar:self defaultHorizontalScrollable |
487 hasVerticalScrollBar:true |
487 hasVerticalScrollBar:self defaultVerticalScrollable |
488 miniScrollerH:false |
488 miniScrollerH:false |
489 miniScrollerV:false |
489 miniScrollerV:false |
490 origin:nil |
490 origin:nil |
491 corner:nil |
491 corner:nil |
492 in:aView |
492 in:aView |
493 |
493 |
494 "Modified: 6.3.1997 / 23:18:41 / cg" |
494 "Modified: 6.3.1997 / 23:18:41 / cg" |
495 ! |
495 ! |
496 |
496 |
497 for:aViewClass miniScroller:mini |
497 for:aViewClass miniScroller:mini |
499 The subview is created here. |
499 The subview is created here. |
500 The view will have full scrollbars if mini is false, miniscrollers |
500 The view will have full scrollbars if mini is false, miniscrollers |
501 if true." |
501 if true." |
502 |
502 |
503 ^ self |
503 ^ self |
504 for:aViewClass |
504 for:aViewClass |
505 hasHorizontalScrollBar:(self == HVScrollableView) |
505 hasHorizontalScrollBar:self defaultHorizontalScrollable |
506 hasVerticalScrollBar:true |
506 hasVerticalScrollBar:self defaultVerticalScrollable |
507 miniScrollerH:mini |
507 miniScrollerH:mini |
508 miniScrollerV:mini |
508 miniScrollerV:mini |
509 origin:nil |
509 origin:nil |
510 corner:nil |
510 corner:nil |
511 in:nil |
511 in:nil |
512 |
512 |
513 "Modified: 6.3.1997 / 23:18:45 / cg" |
513 "Modified: 6.3.1997 / 23:18:45 / cg" |
514 ! |
514 ! |
515 |
515 |
516 for:aViewClass miniScroller:mini in:aView |
516 for:aViewClass miniScroller:mini in:aView |
518 The subview is created here. |
518 The subview is created here. |
519 The view will have full scrollbars if mini is false, miniscrollers |
519 The view will have full scrollbars if mini is false, miniscrollers |
520 if true." |
520 if true." |
521 |
521 |
522 ^ self |
522 ^ self |
523 for:aViewClass |
523 for:aViewClass |
524 hasHorizontalScrollBar:(self == HVScrollableView) |
524 hasHorizontalScrollBar:self defaultHorizontalScrollable |
525 hasVerticalScrollBar:true |
525 hasVerticalScrollBar:self defaultVerticalScrollable |
526 miniScrollerH:mini |
526 miniScrollerH:mini |
527 miniScrollerV:mini |
527 miniScrollerV:mini |
528 origin:nil |
528 origin:nil |
529 corner:nil |
529 corner:nil |
530 in:aView |
530 in:aView |
531 |
531 |
532 "Modified: 6.3.1997 / 23:18:50 / cg" |
532 "Modified: 6.3.1997 / 23:18:50 / cg" |
533 ! |
533 ! |
534 |
534 |
535 for:aViewClass miniScroller:mini origin:org corner:corn in:aView |
535 for:aViewClass miniScroller:mini origin:org corner:corn in:aView |
537 The subview is created here. |
537 The subview is created here. |
538 The view will have full scrollbars if mini is false, miniscrollers |
538 The view will have full scrollbars if mini is false, miniscrollers |
539 if true." |
539 if true." |
540 |
540 |
541 ^ self |
541 ^ self |
542 for:aViewClass |
542 for:aViewClass |
543 hasHorizontalScrollBar:(self == HVScrollableView) |
543 hasHorizontalScrollBar:self defaultHorizontalScrollable |
544 hasVerticalScrollBar:true |
544 hasVerticalScrollBar:self defaultVerticalScrollable |
545 miniScrollerH:mini |
545 miniScrollerH:mini |
546 miniScrollerV:mini |
546 miniScrollerV:mini |
547 origin:org |
547 origin:org |
548 corner:corn |
548 corner:corn |
549 in:aView |
549 in:aView |
550 |
550 |
551 "Modified: 6.3.1997 / 23:18:53 / cg" |
551 "Modified: 6.3.1997 / 23:18:53 / cg" |
552 ! |
552 ! |
553 |
553 |
554 for:aViewClass miniScrollerH:miniH |
554 for:aViewClass miniScrollerH:miniH |
688 "return a new scrolling view scrolling an instance of aViewClass. |
688 "return a new scrolling view scrolling an instance of aViewClass. |
689 The subview is created here. |
689 The subview is created here. |
690 The view will have full scrollbars." |
690 The view will have full scrollbars." |
691 |
691 |
692 ^ self |
692 ^ self |
693 for:aViewClass |
693 for:aViewClass |
694 hasHorizontalScrollBar:(self == HVScrollableView) |
694 hasHorizontalScrollBar:self defaultHorizontalScrollable |
695 hasVerticalScrollBar:true |
695 hasVerticalScrollBar:self defaultVerticalScrollable |
696 miniScrollerH:false |
696 miniScrollerH:false |
697 miniScrollerV:false |
697 miniScrollerV:false |
698 origin:org |
698 origin:org |
699 corner:corner |
699 corner:corner |
700 in:aView |
700 in:aView |
701 |
701 |
702 "Modified: 6.3.1997 / 23:19:05 / cg" |
702 "Modified: 6.3.1997 / 23:19:05 / cg" |
703 ! |
703 ! |
704 |
704 |
705 forView:aView |
705 forView:aView |
706 "return a new scrolling view scrolling aView. |
706 "return a new scrolling view scrolling aView. |
707 The view will have full scrollbars." |
707 The view will have full scrollbars." |
708 |
708 |
709 ^ self |
709 ^ self |
710 forView:aView |
710 forView:aView |
711 hasHorizontalScrollBar:(self == HVScrollableView) |
711 hasHorizontalScrollBar:self defaultHorizontalScrollable |
712 hasVerticalScrollBar:true |
712 hasVerticalScrollBar:self defaultVerticalScrollable |
713 miniScrollerH:false |
713 miniScrollerH:false |
714 miniScrollerV:false |
714 miniScrollerV:false |
715 origin:nil |
715 origin:nil |
716 corner:nil |
716 corner:nil |
717 in:nil |
717 in:nil |
718 |
718 |
719 "Modified: 6.3.1997 / 23:19:08 / cg" |
719 "Modified: 6.3.1997 / 23:19:08 / cg" |
720 ! |
720 ! |
721 |
721 |
722 forView:aScrolledView hasHorizontalScrollBar:hasH hasVerticalScrollBar:hasV miniScrollerH:miniH miniScrollerV:miniV origin:org corner:corn in:aView |
722 forView:aScrolledView hasHorizontalScrollBar:hasH hasVerticalScrollBar:hasV miniScrollerH:miniH miniScrollerV:miniV origin:org corner:corn in:aView |
775 forView:aView in:aSuperView |
775 forView:aView in:aSuperView |
776 "return a new scrolling view scrolling aView. |
776 "return a new scrolling view scrolling aView. |
777 The view will have full scrollbars." |
777 The view will have full scrollbars." |
778 |
778 |
779 ^ self |
779 ^ self |
780 forView:aView |
780 forView:aView |
781 hasHorizontalScrollBar:(self == HVScrollableView) |
781 hasHorizontalScrollBar:self defaultHorizontalScrollable |
782 hasVerticalScrollBar:true |
782 hasVerticalScrollBar:self defaultVerticalScrollable |
783 miniScrollerH:false |
783 miniScrollerH:false |
784 miniScrollerV:false |
784 miniScrollerV:false |
785 origin:nil |
785 origin:nil |
786 corner:nil |
786 corner:nil |
787 in:aSuperView |
787 in:aSuperView |
788 |
788 |
789 "Modified: 6.3.1997 / 23:19:12 / cg" |
789 "Modified: 6.3.1997 / 23:19:12 / cg" |
790 ! |
790 ! |
791 |
791 |
792 forView:aView miniScrollerH:mini |
792 forView:aView miniScrollerH:mini |
830 There is no slave view now - this has to be set later via |
830 There is no slave view now - this has to be set later via |
831 the scrolledView: method. |
831 the scrolledView: method. |
832 The view will have full scrollbars." |
832 The view will have full scrollbars." |
833 |
833 |
834 ^ self |
834 ^ self |
835 forView:nil |
835 forView:nil |
836 hasHorizontalScrollBar:(self == HVScrollableView) |
836 hasHorizontalScrollBar:self defaultHorizontalScrollable |
837 hasVerticalScrollBar:true |
837 hasVerticalScrollBar:self defaultVerticalScrollable |
838 miniScrollerH:false |
838 miniScrollerH:false |
839 miniScrollerV:false |
839 miniScrollerV:false |
840 origin:nil |
840 origin:nil |
841 corner:nil |
841 corner:nil |
842 in:aView |
842 in:aView |
843 |
843 |
844 "Modified: 6.3.1997 / 23:19:19 / cg" |
844 "Modified: 6.3.1997 / 23:19:19 / cg" |
845 ! |
845 ! |
846 |
846 |
847 miniScroller:mini |
847 miniScroller:mini |
848 "return a new scrolling view. The subview will be created later. |
848 "return a new scrolling view. The subview will be created later. |
849 The view will have full scrollbars if mini is false, |
849 The view will have full scrollbars if mini is false, |
850 miniscrollers if true." |
850 miniscrollers if true." |
851 |
851 |
852 ^ self |
852 ^ self |
853 forView:nil |
853 forView:nil |
854 hasHorizontalScrollBar:(self == HVScrollableView) |
854 hasHorizontalScrollBar:self defaultHorizontalScrollable |
855 hasVerticalScrollBar:true |
855 hasVerticalScrollBar:self defaultVerticalScrollable |
856 miniScrollerH:mini |
856 miniScrollerH:mini |
857 miniScrollerV:mini |
857 miniScrollerV:mini |
858 origin:nil |
858 origin:nil |
859 corner:nil |
859 corner:nil |
860 in:nil |
860 in:nil |
861 |
861 |
862 "Modified: 6.3.1997 / 23:19:21 / cg" |
862 "Modified: 6.3.1997 / 23:19:21 / cg" |
863 ! |
863 ! |
864 |
864 |
865 miniScrollerH:miniH |
865 miniScrollerH:miniH |
909 "Modified: / 12.11.1998 / 14:55:54 / cg" |
909 "Modified: / 12.11.1998 / 14:55:54 / cg" |
910 ! ! |
910 ! ! |
911 |
911 |
912 !ScrollableView class methodsFor:'defaults'! |
912 !ScrollableView class methodsFor:'defaults'! |
913 |
913 |
|
914 defaultHorizontalScrollable |
|
915 ^ false |
|
916 ! |
|
917 |
914 defaultScrollBarPosition |
918 defaultScrollBarPosition |
915 "return the default position of the scrollBar. |
919 "return the default position of the scrollBar. |
916 (max be of interest to panels, to make the handlePosition alike)" |
920 (max be of interest to panels, to make the handlePosition alike)" |
917 |
921 |
918 <resource: #style (#'scrollBar.position')> |
922 <resource: #style (#'scrollBar.position')> |
922 " |
926 " |
923 self defaultScrollBarPosition |
927 self defaultScrollBarPosition |
924 " |
928 " |
925 |
929 |
926 "Modified: / 31.10.1997 / 12:58:15 / cg" |
930 "Modified: / 31.10.1997 / 12:58:15 / cg" |
|
931 ! |
|
932 |
|
933 defaultVerticalScrollable |
|
934 ^ true |
927 ! |
935 ! |
928 |
936 |
929 updateStyleCache |
937 updateStyleCache |
930 "extract values from the styleSheet and cache them in class variables" |
938 "extract values from the styleSheet and cache them in class variables" |
931 |
939 |
1008 ]. |
1016 ]. |
1009 ^ hScrollBar |
1017 ^ hScrollBar |
1010 |
1018 |
1011 "Created: / 6.3.1997 / 18:06:23 / cg" |
1019 "Created: / 6.3.1997 / 18:06:23 / cg" |
1012 "Modified: / 25.5.1998 / 12:53:58 / cg" |
1020 "Modified: / 25.5.1998 / 12:53:58 / cg" |
|
1021 ! |
|
1022 |
|
1023 removeSubView:aView |
|
1024 super removeSubView:aView. |
|
1025 aView == scrolledView ifTrue:[ |
|
1026 scrolledView := nil |
|
1027 ]. |
|
1028 aView == vScrollBar ifTrue:[ |
|
1029 vScrollBar := nil |
|
1030 ]. |
|
1031 aView == hScrollBar ifTrue:[ |
|
1032 hScrollBar := nil |
|
1033 ]. |
|
1034 |
|
1035 |
|
1036 |
|
1037 |
1013 ! |
1038 ! |
1014 |
1039 |
1015 scrollBar |
1040 scrollBar |
1016 "return the vertical scrollbar (or nil, if there is none)" |
1041 "return the vertical scrollbar (or nil, if there is none)" |
1017 |
1042 |
2062 ! ! |
2087 ! ! |
2063 |
2088 |
2064 !ScrollableView class methodsFor:'documentation'! |
2089 !ScrollableView class methodsFor:'documentation'! |
2065 |
2090 |
2066 version |
2091 version |
2067 ^ '$Header: /cvs/stx/stx/libwidg/ScrollableView.st,v 1.96 1999-05-08 12:31:08 cg Exp $' |
2092 ^ '$Header: /cvs/stx/stx/libwidg/ScrollableView.st,v 1.97 1999-06-17 08:50:37 tm Exp $' |
2068 ! ! |
2093 ! ! |