2882 |
2882 |
2883 label := self label. |
2883 label := self label. |
2884 label isEmptyOrNil ifTrue:[^ self]. |
2884 label isEmptyOrNil ifTrue:[^ self]. |
2885 |
2885 |
2886 widget isNil ifTrue:[ |
2886 widget isNil ifTrue:[ |
2887 isValidAndShown := true. |
2887 isValidAndShown := true. |
2888 ] ifFalse:[ |
2888 ] ifFalse:[ |
2889 widget id isNil ifTrue:[ |
2889 widget id isNil ifTrue:[ |
2890 isDrawnShown := false. |
2890 isDrawnShown := false. |
2891 |
2891 |
2892 self exists ifFalse:[ |
2892 self exists ifFalse:[ |
2893 xOffsetAdditionalName := nil. |
2893 xOffsetAdditionalName := nil. |
2894 ]. |
2894 ]. |
2895 isValidAndShown := false. |
2895 isValidAndShown := false. |
2896 ] ifFalse:[ |
2896 ] ifFalse:[ |
2897 isValidAndShown := widget shown. |
2897 isValidAndShown := widget shown. |
2898 ]. |
2898 ]. |
2899 ]. |
2899 ]. |
2900 |
2900 |
2901 isValidAndShown ifFalse:[ |
2901 isValidAndShown ifFalse:[ |
2902 label := Text string:label emphasis:#italic. |
2902 label := Text string:label emphasis:#italic. |
2903 label colorizeAllWith:Color gray. |
2903 label withColor:Color gray. |
2904 ]. |
2904 ]. |
2905 |
2905 |
2906 labelHeight := self heightOn:aGC. |
2906 labelHeight := self heightOn:aGC. |
2907 self displayLabel:label h:labelHeight on:aGC x:x y:y h:h isHighlightedAsSelected:isHighlightedAsSelected. |
2907 self displayLabel:label h:labelHeight on:aGC x:x y:y h:h isHighlightedAsSelected:isHighlightedAsSelected. |
2908 |
2908 |
2909 xOffsetAdditionalName notNil ifTrue:[ |
2909 xOffsetAdditionalName notNil ifTrue:[ |
2910 additionalName := self additionalLabelForItem:self. |
2910 additionalName := self additionalLabelForItem:self. |
2911 |
2911 |
2912 additionalName notNil ifTrue:[ |
2912 additionalName notNil ifTrue:[ |
2913 self displayLabel:additionalName |
2913 self displayLabel:additionalName |
2914 h:labelHeight on:aGC |
2914 h:labelHeight on:aGC |
2915 x:(x + xOffsetAdditionalName) y:y |
2915 x:(x + xOffsetAdditionalName) y:y |
2916 h:h. |
2916 h:h. |
2917 ] ifFalse:[ |
2917 ] ifFalse:[ |
2918 xOffsetAdditionalName := nil. |
2918 xOffsetAdditionalName := nil. |
2919 ]. |
2919 ]. |
2920 ]. |
2920 ]. |
2921 |
2921 |
2922 "Modified (format): / 16-08-2017 / 12:57:39 / cg" |
2922 "Modified (format): / 16-08-2017 / 12:57:39 / cg" |
|
2923 "Modified: / 07-06-2019 / 22:14:30 / Claus Gittinger" |
2923 ! |
2924 ! |
2924 |
2925 |
2925 recursiveAdditionalNameBehaviourChanged |
2926 recursiveAdditionalNameBehaviourChanged |
2926 width := xOffsetAdditionalName := nil. |
2927 width := xOffsetAdditionalName := nil. |
2927 |
2928 |