"

 COPYRIGHT (c) 1994 by Claus Gittinger

	      All Rights Reserved

 This software is furnished under a license and may be used

 only in accordance with the terms of that license and with the

 inclusion of the above copyright notice.   This software may not

 be provided or otherwise made available to, or used by, any

 other person.  No title to or ownership of the software is

 hereby transferred.

"

Button subclass:#PopUpList

	 classVariableNames:''

	 poolDictionaries:''

	 category:'Views-Interactors'

!

PopUpList comment:'

COPYRIGHT (c) 1994 by Claus Gittinger

	      All Rights Reserved

'!

!PopUpList class methodsFor:'documentation'!

copyright

"

 COPYRIGHT (c) 1994 by Claus Gittinger

	      All Rights Reserved

 This software is furnished under a license and may be used

 only in accordance with the terms of that license and with the

 inclusion of the above copyright notice.   This software may not

 be provided or otherwise made available to, or used by, any

 other person.  No title to or ownership of the software is

 hereby transferred.

"

!

version

"

"

!

documentation

"

    a PopUpList is basically a button with a popup menu.

    The PopUpLists label is showing the current selection from the

    list.

    When an entry is selected, an actionBlock (if nonNil) is evaluated

    and (if nonNil), the model is notified via the changeMessage.

    The default changeMessage used is #selection:, which allows a

    PopUpList to be used with a SelectionInList as model.

    (if used with some other model, either use an adaptor, or set the

"

!

examples

"

    example use:

     |p|

     p := PopUpList label:'healthy fruit'.

     p list:#('apples' 'bananas' 'grape' 'lemon' 'margaritas').

     p open

    with an initial selection:

     |p|

     p := PopUpList label:'dummy'.

     p list:#('apples' 'bananas' 'grape' 'lemon' 'margaritas').

     p selection:'apples'.

     p open

    with separating lines:

     |p|

     p := PopUpList label:'fruit'.

     p list:#('apples' 'bananas' 'grape' 'lemon' '-' 'margaritas').

     p selection:'apples'.

     p open

    with an action:

     |p|

     p := PopUpList label:'dummy'.

     p list:#('apples' 'bananas' 'grape' 'lemon' '-' 'margaritas').

     p selection:'apples'.

     p action:[:what | Transcript showCr:'you selected: ' , what].

     p open

    sometimes, you may like the index instead of the value:

    (notice, that the separating line counts, so you have take care ...)

     |p|

     p := PopUpList label:'dummy'.

     p list:#('apples' 'bananas' 'grape' 'lemon' '-' 'margaritas').

     p selection:'apples'.

     p action:[:what | Transcript show:'you selected: '; showCr:what].

     p useIndex:true.

     p open

    since the list is actually a popupMenu, you can add double-separators:

     |p|

     p := PopUpList label:'dummy'.

     p list:#('apples' 'bananas' 'grape' 'lemon' 

     p values:#(apples bananas grape lemon 

     p selection:'apples'.

     p action:[:what | Transcript show:'you selected: '; showCr:what].

     p open

    with values different from the label strings:

     |p|

     p := PopUpList label:'dummy'.

     p list:#('apples' 'bananas' 'grape' 'lemon' '-' 'margaritas').

     p selection:'apples'.

     p values:#(10 20 30 40 nil 50).

     p action:[:what | Transcript show:'you selected: '; showCr:what].

     p open

    with a model:

     |p model|

     model := SelectionInList with:#('apples' 'bananas' 'grape' 'lemon' 'margaritas').

     p := PopUpList label:'healthy fruit'.

     p model:model.

     p open.

     model selectionIndexHolder inspect

    with a model (using numeric selection values):

     |p model|

     model := SelectionInList with:#('apples' 'bananas' 'grape' 'lemon' 'margaritas').

     p := PopUpList label:'healthy fruit'.

     p open.

     model selectionIndexHolder inspect

    two PopUpLists on the same model:

     |top panel p model|

     model := Plug new.

     model respondTo:#eat: with:[:val | Transcript showCr:'eat: ' , val].

     model respondTo:#drink: with:[:val | Transcript showCr:'drink: ' , val].

     model respondTo:#meals with:[#(taco burrito enchilada)].

     model respondTo:#drinks with:[#(margarita water beer)].

     top := StandardSystemView new.

     top extent:(100@100).

     panel := VerticalPanelView origin:0.0@0.0 corner:1.0@1.0 in:top.

     panel horizontalLayout:#fitSpace.

     p := PopUpList label:'meals'.

     p model:model; listMessage:#meals; change:#eat:.

     panel add:p.

     p := PopUpList label:'drinks'.

     p model:model; listMessage:#drinks; change:#drink:.

     panel add:p.

     top open

"

! !

! !

!PopUpList methodsFor:'private'!

computeLabelSize

    "compute the extent needed to hold the label plus the mark"

    |mmH mmV savedLogo longest longestWidth|

    menu isNil ifTrue:[

	super computeLabelSize

    ] ifFalse:[

	"hack: simulate logo change to longest menu entry"

	font := font on:device.

	longest := logo.

	longestWidth := font widthOf:logo.

	menu labels do:[:entry |

	    |this|

	    this := font widthOf:entry printString.

	    this > longestWidth ifTrue:[

		longest := entry.

		longestWidth := this

	    ].

	].

	savedLogo := logo.

	logo := longest.

	super computeLabelSize.

	logo := savedLogo.

"self halt.     "

    ].

    mmH := device horizontalPixelPerMillimeter.

    mmV := device verticalPixelPerMillimeter.

    labelWidth := labelWidth + hSpace + (mmH * 2.5) rounded + hSpace.

    labelHeight := labelHeight max: (mmV * 2) rounded

!

    ].

!

createMenuFor:aList

    menu := PopUpMenu

		  labels:aList

	       selectors:#select:

		    args:(1 to:aList size) 

		receiver:self

		     for:self.

!

getListFromModel

    "if I have a model and a listMsg, get my list from it"

    (model notNil 

    and:[listMsg notNil]) ifTrue:[

    ].

! !

!PopUpList methodsFor:'event handling'!

popMenu

    |org mv|

    menu notNil ifTrue:[

    ].

! !

!PopUpList methodsFor:'accessing'!

    "

     |p|

     p list:#('apples' 'bananas' 'grape' 'lemon' 'margaritas').

     |p|

     p list:#('apples' 'bananas' 'grape' 'lemon' 'margaritas').

    "

!

list:aList

    "set the list - i.e. the values shown in the pop-up list"

    self createMenuFor:aList.

    realized ifTrue:[

	self computeLabelSize

    ]

    "

     |p|

     p := PopUpList label:'fruit ?'.

     p list:#('apples' 'bananas' 'grape' 'lemon' 'margaritas').

     p action:[:val | Transcript showCr:'selected: ' , val printString].   

     p open

    "

!

action:aOneArgBlock

    "set the action to be performed on selection changes;

     the argument, aOneArgBlock will be evaluated with the

     selection-value as argument"

    menuAction := aOneArgBlock

!

contents

    ^ self label

!

contents:con

    ^ self selection:con

!

list

    "return the list - i.e. the values shown in the pop-up list"

    ^ menu labels

!

values:aList

    "set a value list - these are reported via the action or changeSymbol instead of

     the labe strings."

    values := aList.

    menu args:(1 to:aList size).

    "

     |p|

     p := PopUpList label:'fruit ?'.

     p list:#('apples' 'bananas' 'grape' 'lemon' 'margaritas').

     p values:#(1 2 3 4 'mhmh - good').

     p action:[:val | Transcript showCr:'selected: ' , val printString].   

     p open.

    "

!

listMessage:aSelector

    "set the selector by which we ask the model for the list.

     Default is #list."

    listMsg := aSelector