--- a/ComboView.st	Tue May 28 12:33:16 2013 +0200
+++ b/ComboView.st	Tue May 28 15:52:08 2013 +0200
@@ -398,16 +398,27 @@
     ^ comboMenuHolder
 !
 
-comboMenuHolder:something
-    comboMenuHolder := something.
+comboMenuHolder:aMenuHolder
+    "allows for arbitrary menus to be opened via the combo button"
+
+    comboMenuHolder := aMenuHolder.
+!
+
+comboMenuHolder:aMenuHolder comboMenuMessage:aSelectorToTheHolder
+    "allows for arbitrary menus to be opened via the combo button"
+
+    comboMenuHolder := aMenuHolder.
+    comboMenuMessage := aSelectorToTheHolder.
 !
 
 comboMenuMessage
     ^ comboMenuMessage
 !
 
-comboMenuMessage:something
-    comboMenuMessage := something.
+comboMenuMessage:aSelectorToTheHolder
+    "allows for arbitrary menus to be opened via the combo button"
+
+    comboMenuMessage := aSelectorToTheHolder.
 !
 
 listHolder:aValueHolder
@@ -907,10 +918,10 @@
 !ComboView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/ComboView.st,v 1.110 2013-03-18 13:27:31 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/ComboView.st,v 1.111 2013-05-28 13:52:08 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg2/ComboView.st,v 1.110 2013-03-18 13:27:31 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/ComboView.st,v 1.111 2013-05-28 13:52:08 cg Exp $'
 ! !