equal
deleted
inserted
replaced
158 |
158 |
159 contents:someText |
159 contents:someText |
160 "set the text" |
160 "set the text" |
161 |
161 |
162 (myView isKindOf:Label) ifTrue:[ |
162 (myView isKindOf:Label) ifTrue:[ |
163 myView label:someText asString. |
163 myView label:someText asString withTabsExpanded. |
164 myView extent:(myView preferredExtent). |
164 myView extent:(myView preferredExtent). |
165 ] ifFalse:[ |
165 ] ifFalse:[ |
166 myView contents:someText. |
166 myView contents:someText. |
167 ]. |
167 ]. |
168 self resizeToFit |
168 self resizeToFit |
169 |
169 |
170 "Modified: 27.4.1996 / 15:14:56 / cg" |
170 "Modified: / 13-07-2017 / 14:51:59 / cg" |
171 ! |
171 ! |
172 |
172 |
173 controllingHelpListener:something |
173 controllingHelpListener:something |
174 controllingHelpListener := something. |
174 controllingHelpListener := something. |
175 ! |
175 ! |