'From Smalltalk/X, Version:2.10.5 on 4-may-1995 at 6:16:25 am'!

$Header: /cvs/stx/stx/libwidg/PopUpList.st,v 1.11 1995-05-06 14:17:44 claus Exp $

$Header: /cvs/stx/stx/libwidg/PopUpList.st,v 1.11 1995-05-06 14:17:44 claus Exp $

    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

    changeMessage to something else ..)

              '=' 

              'margaritas' 'pina colada'

              '=' 

              'smalltalk' 'c++' 'eiffel').

                nil 

                'mhmh - so good' 'makes headache'

                nil

                'great' 'another headache' 'no bad').

     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 model:model; useIndex:true.

     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

"

    changeMsg := #selection:.

    aspectMsg := #selection.

    onLevel := offLevel.

!

realize

    super realize.

    model notNil ifTrue:[

	self createMenuFor:(model perform:listMsg).

    ].

!

createMenuFor:aList

    menu := PopUpMenu

		  labels:aList

	       selectors:#select:

		    args:(1 to:aList size) 

		receiver:self

		     for:self.

!

getSelectionFromModel

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

    (model notNil 

    and:[aspectMsg notNil]) ifTrue:[

        self selection:(model perform:aspectMsg).

    ].

!

getListFromModel

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

    (model notNil 

    and:[listMsg notNil]) ifTrue:[

        self list:(model perform:listMsg).

    ].

! !

!PopUpList methodsFor:'event handling'!

popMenu

    |org mv|

    menu notNil ifTrue:[

        self turnOffWithoutRedraw. 

        menu font:font.

        "

         adjust the menus width to my current width

        "

        mv := menu menuView.

        mv create.      "/ stupid: it resizes itself upon first create

        mv width:(self width - (2 * menu margin) - (menu borderWidth*2)).

        mv level:0; borderWidth:0.

        "

         the popupMenu wants Display coordinates in its showAt: method

        "

        org := device translatePoint:0@0 

                                from:(self id)

                                  to:(DisplayRootView new id).

        menu showAt:org "resizing:false"

    ].

! !

!PopUpList methodsFor:'drawing'!

drawWith:fgColor and:bgColor

    |mmH mmV mW mH|

    controller pressed ifTrue:[

	super drawWith:enteredFgColor and:enteredBgColor

    ] ifFalse:[

	super drawWith:fgColor and:bgColor.

    ].

    mmH := device horizontalPixelPerMillimeter rounded.

    mmV := device verticalPixelPerMillimeter rounded.

    mW := (device horizontalPixelPerMillimeter * 2.5) rounded.

    mH := (device verticalPixelPerMillimeter * 1.5) rounded.

    self drawEdgesForX:(width - mW - (hSpace*2)) y:(height - mmV // 2)

		 width:mW height:mH level:2

! !

!PopUpList methodsFor:'accessing'!

useIndex:aBoolean 

    useIndex := aBoolean

    "

     |p|

     p := PopUpList label:'fruit ?'.

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

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

     p open.

    "

    "

     |p|

     p := PopUpList label:'fruit ?'.

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

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

     p useIndex:true.

     p open.

    "

!

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

!

selection:indexOrString

    "set (force) a selection - usually done to set

     an initial selection"

    |index|

    index := menu labels indexOf:indexOrString.

    index == 0 ifTrue:[^ self].

    self label:(menu labels at:index)

    "

     |p|

     p := PopUpList label:'what fruit ?'.

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

     p selection:'grape'.

     p open 

     |p|

     p := PopUpList label:'what fruit ?'.

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

     p selection:'blabla'.

     p open

    "

!

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

        value := anEntry.

        useIndex ifFalse:[

            value := menu labels at:anEntry.

        ]

        value := values at:anEntry

        menuAction value:value.

     tell my model - if any

!PopUpList methodsFor:'change & update'!

update:something with:aParameter from:changedObject

    (changedObject == model) ifTrue:[

        something == aspectMsg ifTrue:[

            self getSelectionFromModel.

        ] ifFalse:[

            something == listMsg ifTrue:[

                self getListFromModel.

            ].

        ].

        ^ self

    ].

    super update:something with:aParameter from:changedObject

! !