equal
deleted
inserted
replaced
116 |
116 |
117 "Modified: / 4.5.1999 / 02:15:33 / cg" |
117 "Modified: / 4.5.1999 / 02:15:33 / cg" |
118 ! |
118 ! |
119 |
119 |
120 validateDimensions:aStyle |
120 validateDimensions:aStyle |
121 "validate dimensions for a style; could be redifined |
121 "validate dimensions for a style; could be redefined |
122 " |
122 " |
|
123 |
|
124 "Modified (comment): / 09-10-2017 / 14:33:43 / mawalch" |
123 ! ! |
125 ! ! |
124 |
126 |
125 !TabWidget class methodsFor:'accessing'! |
127 !TabWidget class methodsFor:'accessing'! |
126 |
128 |
127 computeColorsOn:aView style:aStyle |
129 computeColorsOn:aView style:aStyle |
573 ! ! |
575 ! ! |
574 |
576 |
575 !TabWidget::Mac class methodsFor:'calculate dimensions'! |
577 !TabWidget::Mac class methodsFor:'calculate dimensions'! |
576 |
578 |
577 validateDimensions:aStyle |
579 validateDimensions:aStyle |
578 "validate dimensions for a style; could be redifined |
580 "validate dimensions for a style; could be redefined |
579 " |
581 " |
580 |maxY maxX anchor lftIns| |
582 |maxY maxX anchor lftIns| |
581 |
583 |
582 maxY := aStyle at:#maxY. |
584 maxY := aStyle at:#maxY. |
583 maxX := (aStyle at:#maxX) - (aStyle at:#labelLeftInset). |
585 maxX := (aStyle at:#maxX) - (aStyle at:#labelLeftInset). |
586 |
588 |
587 anchor x:lftIns. |
589 anchor x:lftIns. |
588 |
590 |
589 aStyle at:#maxX put:(maxX + lftIns + maxY). |
591 aStyle at:#maxX put:(maxX + lftIns + maxY). |
590 aStyle at:#rightCovered put:(maxY // 2). |
592 aStyle at:#rightCovered put:(maxY // 2). |
|
593 |
|
594 "Modified (comment): / 09-10-2017 / 14:33:53 / mawalch" |
591 ! ! |
595 ! ! |
592 |
596 |
593 !TabWidget::Mac methodsFor:'drawing'! |
597 !TabWidget::Mac methodsFor:'drawing'! |
594 |
598 |
595 redrawAtBottom:isSelected |
599 redrawAtBottom:isSelected |
811 ! ! |
815 ! ! |
812 |
816 |
813 !TabWidget::Window class methodsFor:'calculate dimensions'! |
817 !TabWidget::Window class methodsFor:'calculate dimensions'! |
814 |
818 |
815 validateDimensions:aStyle |
819 validateDimensions:aStyle |
816 "validate dimensions for a style; could be redifined |
820 "validate dimensions for a style; could be redefined |
817 " |
821 " |
818 |maxY anchor| |
822 |maxY anchor| |
819 |
823 |
820 (aStyle at:#roundedEdges) ifTrue:[ |
824 (aStyle at:#roundedEdges) ifTrue:[ |
821 maxY := aStyle at:#maxY. |
825 maxY := aStyle at:#maxY. |
823 anchor := aStyle at:#labelAnchor. |
827 anchor := aStyle at:#labelAnchor. |
824 anchor y:(anchor y + 1). |
828 anchor y:(anchor y + 1). |
825 aStyle at:#labelAnchor put:anchor. |
829 aStyle at:#labelAnchor put:anchor. |
826 ] |
830 ] |
827 |
831 |
828 |
832 "Modified (comment): / 09-10-2017 / 14:33:59 / mawalch" |
829 |
|
830 |
|
831 |
|
832 ! ! |
833 ! ! |
833 |
834 |
834 !TabWidget::Window methodsFor:'drawing'! |
835 !TabWidget::Window methodsFor:'drawing'! |
835 |
836 |
836 redrawAtBottom:isSelected |
837 redrawAtBottom:isSelected |