ComboView.st
changeset 4563 3603d95da63c
parent 4503 10c4fb447777
child 4564 be449e47ce4b
--- a/ComboView.st	Wed Apr 09 00:31:42 2014 +0200
+++ b/ComboView.st	Wed Apr 09 18:59:20 2014 +0200
@@ -728,37 +728,6 @@
 
 !ComboView methodsFor:'menu interaction'!
 
-createPullDownMenuForList:aList
-    "pull the menu - triggered from the button"
-
-    |menu index|
-
-    comboMenuHolder notNil ifTrue:[
-        menu := (comboMenuHolder perform:comboMenuMessage ? #value). 
-        (menu isKindOf:Menu) ifTrue:[
-            menu := MenuPanel new menu:menu.
-        ]
-    ] ifFalse:[
-        menu := MenuPanel new.
-        menu doAccessCharacterTranslation:false.
-        menu labels:aList.
-        menu hideOnRelease:false.
-
-        index := 1.
-
-        menu do:[:el |
-            el value:#select: argument:index.
-            index := index + 1.
-        ].
-        menu receiver:self.
-    ].
-
-    menu font:self font.
-    menu preferredWidth:self width.
-
-    ^ menu
-!
-
 deltaSelect:delta
     "change selection by delta. Wrap at start/end"
 
@@ -924,10 +893,10 @@
 !ComboView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/ComboView.st,v 1.114 2014-02-18 14:28:55 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/ComboView.st,v 1.115 2014-04-09 16:59:20 vrany Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg2/ComboView.st,v 1.114 2014-02-18 14:28:55 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/ComboView.st,v 1.115 2014-04-09 16:59:20 vrany Exp $'
 ! !