--- a/PopUpMenu.st	Sun Mar 24 18:59:33 1996 +0100
+++ b/PopUpMenu.st	Sun Mar 24 19:00:23 1996 +0100
@@ -774,6 +774,14 @@
     ^ actionLines
 !
 
+menuAt:indexOrName
+    "return the submenu for entry indexOrName."
+
+    ^ self subMenuAt:indexOrName
+
+    "Created: 24.3.1996 / 17:11:05 / cg"
+!
+
 numberOfItems
     "return the number of items in the menu"
 
@@ -789,6 +797,14 @@
     menuView remove:indexOrName
 !
 
+subMenuAt:indexOrName
+    "return the submenu for entry indexOrName"
+
+    ^ menuView subMenuAt:indexOrName
+
+    "Created: 24.3.1996 / 17:09:15 / cg"
+!
+
 subMenuAt:indexOrName put:aMenu
     "define a submenu to be shown for entry indexOrName"
 
@@ -1098,5 +1114,5 @@
 !PopUpMenu class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/PopUpMenu.st,v 1.43 1996-03-08 13:45:20 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/PopUpMenu.st,v 1.44 1996-03-24 18:00:06 cg Exp $'
 ! !