equal
deleted
inserted
replaced
215 menu := self safelyPerform:aKey |
215 menu := self safelyPerform:aKey |
216 ]. |
216 ]. |
217 menu := menu value. |
217 menu := menu value. |
218 |
218 |
219 (application notNil and:[menu notNil]) ifTrue:[ |
219 (application notNil and:[menu notNil]) ifTrue:[ |
|
220 menu isArray ifTrue:[ |
|
221 menu := Menu new fromLiteralArrayEncoding:menu. |
|
222 menu receiver:application. |
|
223 ^ menu |
|
224 ]. |
220 menu findGuiResourcesIn:application |
225 menu findGuiResourcesIn:application |
221 ] |
226 ] |
222 ]. |
227 ]. |
223 ^ menu |
228 ^ menu |
224 |
229 |
298 ! ! |
303 ! ! |
299 |
304 |
300 !UIBuilder class methodsFor:'documentation'! |
305 !UIBuilder class methodsFor:'documentation'! |
301 |
306 |
302 version |
307 version |
303 ^ '$Header: /cvs/stx/stx/libview2/UIBuilder.st,v 1.26 1997-06-17 16:08:53 cg Exp $' |
308 ^ '$Header: /cvs/stx/stx/libview2/UIBuilder.st,v 1.27 1997-07-17 10:09:13 ca Exp $' |
304 ! ! |
309 ! ! |
305 UIBuilder initialize! |
310 UIBuilder initialize! |