--- 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 $'
! !