--- a/PopUpMenu.st	Thu Mar 28 13:58:04 2013 +0100
+++ b/PopUpMenu.st	Sat Mar 30 02:37:42 2013 +0100
@@ -703,6 +703,16 @@
 
 !PopUpMenu class methodsFor:'ST-80 instance creation'!
 
+labelArray:labels
+    "ST80R4 compatibility"
+
+    ^ self labels:labels lines:nil values:nil
+
+    "
+     (PopUpMenu labelArray:#('one' 'two' 'three')) startUp 
+    "
+!
+
 labelArray:labels lines:lines values:values 
     "ST80R4 compatibility"
 
@@ -1655,5 +1665,6 @@
 !PopUpMenu class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg/PopUpMenu.st,v 1.109 2012-03-08 13:48:58 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/PopUpMenu.st,v 1.110 2013-03-30 01:37:42 cg Exp $'
 ! !
+