"

 COPYRIGHT (c) 1997 by eXept Software AG

 COPYRIGHT (c) 2022 LabWare

              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.

"

"{ Package: 'stx:libview2' }"

"{ NameSpace: Smalltalk }"

Model subclass:#Menu

	instanceVariableNames:'items groupSizes receiver'

	classVariableNames:''

	poolDictionaries:''

	category:'Views-Support'

!

Query subclass:#NeedResourcesQuery

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	privateIn:Menu

!

!Menu class methodsFor:'documentation'!

copyright

"

 COPYRIGHT (c) 1997 by eXept Software AG

 COPYRIGHT (c) 2022 LabWare

              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.

"

!

documentation

"

    not yet finished Menu class - this will eventually replace

    most of the MenuView and PopUpMenu stuff.

    (and hopefully be ST-80 compatible ...)

    For now, only a subset of the full protocol is implemented.

    [author:]

	Claus Gittinger

    [see also:]

	MenuItem

	PopUpMenu

"

! !

!Menu class methodsFor:'instance creation'!

labelArray:arrayOfString lines:linesArray values:valueArrayOrNil

    "return a menu with menu items built with labels from arrayOfString (not Symbols).  

     The linesArray describes which menu items are the last menu item in their group. 

     The valueArray contains value objects for each menu item 

     (or is nil if no value objects are specified)."

    |nLabel valueArray menuItems groupLengths|

    nLabel := arrayOfString size.

    valueArrayOrNil isNil ifTrue:[

        (valueArray := arrayOfString isEmpty) ifTrue: [

            valueArray := #()

        ] ifFalse:[

            valueArray := (1 to:nLabel)

        ]

    ] ifFalse:[

        valueArray := valueArrayOrNil

    ].

    nLabel ~~ valueArray size ifTrue: [

        ^ self error: 'illegal menu combination'

    ].

    menuItems := Array new:nLabel.

    1 to:nLabel do:[:i |

        |mi v|

        mi := MenuItem label:(arrayOfString at:i) asString.

        v := valueArray at:i.

        (v isKindOf:Menu) ifTrue:[mi submenu:v].

        menuItems at:i put:mi

    ].

    (linesArray size == 0) ifTrue:[

        groupLengths := (menuItems isEmpty)

                            ifTrue: [Array new:0]

                            ifFalse: [Array with:menuItems size]

    ] ifFalse:[

        groupLengths := Array new:(linesArray size + 1).

        groupLengths at:1 put:linesArray first.

        2 to:linesArray size do: [:i | 

            groupLengths at:i put:((linesArray at:i) - (linesArray at:i - 1))

        ].

        groupLengths at:groupLengths size put:(menuItems size - linesArray last).

    ].

    ^ self new 

        menuItems:menuItems 

        menuItemGroups:groupLengths 

        values:valueArray

    "Modified: / 19.4.1998 / 11:30:18 / cg"

!

labelArray:arrayOfString values:valueArrayOrNil

    "return a menu with menu items built with labels from arrayOfString (not Symbols).  

     The valueArray contains value objects for each menu item 

     (or is nil if no value objects are specified)."

    ^ self 

        labelArray:arrayOfString 

        lines:nil 

        values: valueArrayOrNil

!

labelList:arrayOfGroupStrings values:valueArrayOrNil

    |labels lines|

    lines := arrayOfGroupStrings collect:[:each | each size].

    labels := arrayOfGroupStrings collectAll:[:eachGroup | eachGroup].

    ^ self labelArray:labels lines:lines values:valueArrayOrNil

    "Modified: 20.6.1997 / 10:46:45 / cg"

    "Created: 13.9.1997 / 10:35:46 / cg"

!

labels:aString lines:linesArray values:valueArrayOrNil

    ^ self 

	labelArray:(aString asCollectionOfLines)

	lines:linesArray

	values:valueArrayOrNil

    "Created: / 31.10.1997 / 03:12:20 / cg"

    "Modified: / 31.10.1997 / 03:23:42 / cg"

!

labels:aString values:valueArrayOrNil

    ^ self 

        labelArray:(aString asCollectionOfLines)

        lines:#()

        values:valueArrayOrNil

    "Modified: / 31.10.1997 / 03:23:42 / cg"

    "Created: / 12.11.2001 / 16:06:36 / cg"

! !

!Menu methodsFor:'Compatibility-ST80'!

addLine

    self addSeparator

!

indexOfMenuItem:anItem

    ^ items indexOf:anItem

    "Created: / 27.10.1997 / 16:34:19 / cg"

!

indexOfMenuItemForWhich:aBlock

    ^ items findFirst:aBlock

    "Created: / 27.10.1997 / 16:34:19 / cg"

!

menuButtons

    "ST-80 seems to use a special menuButton class here.

     Here, kludge a collection of menuItems."

    ^ items

    "Created: / 27.10.1997 / 16:33:35 / cg"

! !

!Menu methodsFor:'Compatibility-Squeak'!

add:label target:target selector:selector

    self addItem:(MenuItem label:label itemValue:[target perform:selector]).

!

balloonTextForLastItem:aString

    items last helpText:aString

!

labels:labels lines:lines selections:selections

    |labelArray|

    labels isString ifTrue:[

        labelArray := labels asCollectionOfLines.

    ] ifFalse:[

        labelArray := labels.

    ].

    1 to:labelArray size do:[:idx |

        self addItem:(MenuItem 

                        label:(labelArray at:idx)

                        itemValue:(selections at:idx)).

        (lines includes:idx) ifTrue:[

            self addSeparator.

        ].

    ].

    "Modified: / 09-09-2012 / 13:08:55 / cg"

! !

!Menu methodsFor:'accessing'!

atMenuItemLabeled:aString putSubmenu:aMenu visible:visible

    (self menuItemLabeled:aString)

        submenu:aMenu;

        isVisible:visible

    "Created: / 30-06-2011 / 10:30:22 / cg"

!

atNameKey:aNameKey

    "return the menuItem for the given nameKey; nil if no such item is in the menu.

     Searches in allItems (i.e. also in subMenus)"

    self allItemsDo:[:anItem|

	anItem nameKey == aNameKey ifTrue:[^ anItem]

    ].

    ^ nil

    "Modified: / 27.10.1997 / 15:12:00 / cg"

!

atNameKey:aNameKey ifPresentDo:aBlock

    "look for a menuItem withthe given nameKey. If one is found, aBlock is evaluated for it.

     If not, nothing is done.

     Searches in allItems (i.e. also in subMenus).

     Returns the item or nil."

    |item|

    (item := self atNameKey:aNameKey) notNil ifTrue:[

        aBlock value:item.

    ].

    ^ item

!

groupSizes

    ^ groupSizes

!

groupSizes:something

    groupSizes := something.

!

items

    ^ items

!

items:aCollectionOfMenuItems

    items := aCollectionOfMenuItems

!

labelAt:anIndex

    "gets the label of the menu item at the given index or nil

    "

    |item|

    (item := self menuItemAt:anIndex) notNil ifTrue:[

        ^ item label

    ].

    ^ nil

    "Modified: / 2.2.1998 / 13:28:32 / cg"

!

labelAtValue:aValue

    "gets the label of the menu item assigned to value

    "

    |item|

    item := self menuAndSubmenusDetectItem:[:anItem | anItem value == aValue ].

    item notNil ifTrue:[

        ^ item label

    ].

    ^ nil

    "Modified: / 2.2.1998 / 13:28:28 / cg"

!

labels

    "return a collection of labels from my items"

    items isNil ifTrue:[^ #()].

    ^ items collect:[:anItem | anItem label]

    "Created: / 25.2.1997 / 19:47:53 / cg"

    "Modified: / 19.6.1998 / 02:36:22 / cg"

!

lastItem

    "returns the last item or nil, if there are none"

    ^ items isEmptyOrNil 

        ifTrue:[nil]

        ifFalse:[items last]

!

lines

    "return the indexes of the menu items that are the last menu item in their group (except the very last)."

    |lines groupSz|

    (groupSz := groupSizes size) <= 1 ifTrue: [^ #()].

    lines := Array new:(groupSz - 1).

    lines at:1 put:groupSizes first.

    2 to:(groupSz-1) do:[:i |

        lines at:i put:(lines at:(i - 1)) + (groupSizes at:i)

    ].

    ^ lines

    "Modified: / 2.2.1998 / 13:28:19 / cg"

!

menuItemAt:index 

    "gets the menu item at the given index. When the index is out of bounds

     nil is returned"

    (index > 0 and:[ index <= items size ]) ifTrue:[

        ^ items at:index

    ].

    ^ nil

    "Modified: / 30-06-2011 / 10:51:39 / cg"

!

menuItemLabeled:anItemLabel 

    "return the menuItem for the given nameKey; nil if no such item is in the menu.

     Searches all items (i.e. also submenu items)"

    self 

        allItemsDo:[:anItem | 

            |l|

            ((l := anItem label) sameAs:anItemLabel) ifTrue:[

                ^ anItem

            ].

            (l includes:$&) ifTrue:[

                ((l copyWithout:$&) sameAs:anItemLabel) ifTrue:[

                    ^ anItem

                ]

            ]

        ].

    ^ nil

    "Created: / 13-09-1997 / 10:25:16 / cg"

    "Modified: / 30-06-2011 / 10:51:44 / cg"

!

menuItemWithArgument:aValue 

    "return the menuItem for the given value; nil if no such item is in the menu.

     Searches all items (i.e. also submenu items)"

    self 

        allItemsDo:[:anItem | 

            |l|

            (anItem argument = aValue) ifTrue:[

                ^ anItem

            ].

        ].

    ^ nil

    "Created: / 19-04-2011 / 14:42:18 / cg"

    "Modified: / 30-06-2011 / 10:51:50 / cg"

!

menuItemWithKey:aValue 

    "return the menuItem for the given key; nil if no such item is in the menu.

     Searches all items (i.e. also submenu items)"

    self 

        allItemsDo:[:anItem | 

            (anItem nameKey = aValue) ifTrue:[

                ^ anItem

            ].

        ].

    ^ nil

    "Created: / 19-04-2011 / 14:42:18 / cg"

    "Modified: / 30-06-2011 / 10:51:50 / cg"

    "Created: / 07-10-2011 / 15:04:43 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

menuItemWithValue:aValue 

    "return the menuItem for the given value; nil if no such item is in the menu.

     Searches all items (i.e. also submenu items)"

    self 

        allItemsDo:[:anItem | 

            |l|

            (anItem value == aValue) ifTrue:[

                ^ anItem

            ].

        ].

    ^ nil

    "Created: / 13-09-1997 / 10:25:16 / cg"

    "Modified: / 30-06-2011 / 10:51:56 / cg"

!

menuItems

    ^ items ? #()

!

menuItems:aCollectionOfMenuItems menuItemGroups:sizes values:values

    |n|

    items := groupSizes := nil.

    aCollectionOfMenuItems size == 0 ifTrue:[ ^ self ].

    items := aCollectionOfMenuItems.

    sizes size > 0 ifTrue:[

        groupSizes := sizes.

        n := sizes inject:0 into:[:sumSoFar :this | sumSoFar + this].

        n = items size ifTrue:[

            groupSizes := sizes copyButLast:1

        ]

    ].

    values notNil ifTrue:[

        items with:values do:[:anItem :aValue |anItem value:aValue]

    ].

    "Modified: / 19.4.1998 / 11:47:34 / cg"

!

menuPerformer:something

    "set the receiver of the menu messages"

    receiver := something.

    "Modified: / 2.2.1998 / 13:26:29 / cg"

!

numberOfItems

    "return the number of items in this menu"

    ^ items size

    "Created: / 6.3.1997 / 15:15:53 / cg"

    "Modified: / 2.2.1998 / 13:26:40 / cg"

!

receiver

    "return the receiver of the menu messages"

    ^ receiver

    "Modified: / 2.2.1998 / 13:26:20 / cg"

!

receiver:something

    "set the receiver of the menu messages"