--- a/PopUpMenu.st	Thu Dec 16 12:02:42 1993 +0100
+++ b/PopUpMenu.st	Thu Dec 16 12:04:09 1993 +0100
@@ -23,7 +23,7 @@
 COPYRIGHT (c) 1989 by Claus Gittinger
               All Rights Reserved
 
-$Header: /cvs/stx/stx/libwidg/PopUpMenu.st,v 1.4 1993-12-11 01:47:42 claus Exp $
+$Header: /cvs/stx/stx/libwidg/PopUpMenu.st,v 1.5 1993-12-16 11:03:36 claus Exp $
 
 written summer 89 by claus;
 ST-80 compatibility added Dec 92;
@@ -222,6 +222,12 @@
     menuView selectorAt:index put:aSymbol
 !
 
+subMenuAt:indexOrName
+    "return a submenu - or nil if there is none"
+
+    ^ menuView subMenuAt:indexOrName
+!
+
 subMenuAt:indexOrName put:aMenu
     "define a submenu to be shown for entry indexOrName"