--- a/UIBuilder.st	Tue May 27 11:11:29 1997 +0200
+++ b/UIBuilder.st	Tue May 27 11:13:44 1997 +0200
@@ -202,6 +202,35 @@
     "Created: 3.3.1997 / 22:15:17 / cg"
 !
 
+menuAt:aKey
+    "Find a binding for the menu named aKey, either in the bindings 
+     cache, or from the source 
+    "
+    | menu |
+
+    menu := self bindingAt:aKey.
+    menu isNil ifTrue:[
+        menu := self safelyPerform:#menuFor: with:aKey.
+        menu isNil ifTrue:[
+            menu := self safelyPerform:aKey
+        ].
+        menu := menu value.
+
+        (application notNil and:[menu notNil]) ifTrue:[
+            menu findGuiResourcesIn:application
+        ]
+    ].
+  ^ menu
+
+!
+
+menuAt:aSymbol put:aModel
+    "Install value as the binding for the menu named aKey in the
+     bindings cache
+    "
+  ^ self aspectAt:aSymbol put:aModel
+!
+
 newComposite
     |newComposite|
 
@@ -270,6 +299,6 @@
 !UIBuilder class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/UIBuilder.st,v 1.24 1997-03-27 10:23:29 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/UIBuilder.st,v 1.25 1997-05-27 09:13:44 ca Exp $'
 ! !
 UIBuilder initialize!