--- a/PopUpMenu.st	Tue Feb 14 11:21:15 2012 +0100
+++ b/PopUpMenu.st	Wed Feb 15 16:33:45 2012 +0100
@@ -1298,6 +1298,32 @@
     "Modified: 5.6.1996 / 17:08:30 / cg"
 ! !
 
+!PopUpMenu methodsFor:'converting'!
+
+asMenu
+    | menu  |
+
+    menu := Menu new receiver: menuView receiver.
+    1 to: self numberOfItems do:[:i| 
+        | menuItem subMenu |
+
+        menuItem := MenuItem new
+                        label: (self labels at: i);
+                        value: (menuView selectors at: i);
+                        enabled: (menuView isEnabled: i);
+                        shortcutKey: (menuView shortKeys at: i);
+                        yourself.
+
+        (subMenu := self subMenuAt: i) notNil ifTrue:[
+            menuItem submenu: subMenu value asMenu
+        ].
+        menu addItem: menuItem.
+    ].
+    ^ menu.
+
+    "Created: / 18-10-2008 / 19:01:32 / Jan Vrany <vranyj1@fel.cvut.cz>"
+    "Modified: / 15-02-2012 / 16:28:10 / cg"
+! !
 
 !PopUpMenu methodsFor:'deactivation'!
 
@@ -1655,5 +1681,5 @@
 !PopUpMenu class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg/PopUpMenu.st,v 1.107 2011-06-30 08:39:10 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/PopUpMenu.st,v 1.108 2012-02-15 15:33:45 cg Exp $'
 ! !