"{ Encoding: utf8 }"

"

 COPYRIGHT (c) 1998 by eXept Software AG

              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 }"

Object subclass:#MenuItem

	instanceVariableNames:'flags activeHelpKey enabled label itemValue nameKey startGroup

		isVisible indication submenu submenuChannel submenuProvider

		shortcutKey labelImage accessCharacterPosition argument choice

		choiceValue font auxValue uuid'

	classVariableNames:'FLAG_FORCE_MENUINDICATOR FLAG_TRANSLATE_LABEL FLAG_ISBUTTON

		FLAG_HIDE_ONACTIVATED FLAG_TRIGGER_ONDOWN

		FLAG_SHOW_BUSYCURSOR_WHILE_PERFORMING FLAG_KEEP_LINKEDMENU

		FLAG_SEND_TO_ORIGINATOR FLAG_IGNORE_MNEMONIC_KEYS

		FLAG_IGNORE_SHORTCUTS FLAG_IS_MENUSLICE FLAG_HORIZONTAL_LAYOUT

		FLAG_NOHIDE_ONACTIVATED FLAG_NOTRANSLATE_LABEL'

	poolDictionaries:''

	category:'Views-Support'

!

!MenuItem class methodsFor:'documentation'!

copyright

"

 COPYRIGHT (c) 1998 by eXept Software AG

              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

"

    This together with MenuPanel 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.

    new:

        %(xx) in label text will be expanded by asking the application

        for the xx labelFor:-aspect.

    [author:]

        Claus Gittinger

    [instance variables:]

        label: MUST be a CharacterArray.

    [see also:]

        MenuItem

        PopUpMenu

"

! !

!MenuItem class methodsFor:'instance creation'!

label:aString

    "create and return a new menuItem, given a label string"

    ^ (self new)

        label:aString;

        yourself

    "Created: / 14-08-1998 / 19:19:14 / cg"

    "Modified (format): / 27-12-2018 / 16:21:01 / Claus Gittinger"

!

label:labelString argument:messageArg

    "create and return a new menuItem, given its label and value

     and an argument to be passed with the action"

    ^ (self new)

        label:labelString argument:messageArg;

        yourself

    "Created: / 27-12-2018 / 16:19:35 / Claus Gittinger"

!

label:labelString choice:choiceAspect choiceValue:selectorOrValue

    "create and return a new menuItem, given its label and choice/value.

     This will create a Radio-Button-like item."

    ^ (self new)

        label:labelString; choice:choiceAspect; choiceValue:selectorOrValue;

        yourself

    "Modified (format): / 26-04-2012 / 12:06:41 / cg"

!

label:labelString itemValue:selectorOrValue

    "create and return a new menuItem, given its label and value"

    ^ (self new)

        label:labelString itemValue:selectorOrValue;

        yourself

    "Created: / 09-09-2012 / 13:21:48 / cg"

!

label:labelString itemValue:selectorOrValue argument:messageArg

    "create and return a new menuItem, given its label and value

     and an argument to be passed with the action"

    ^ (self new)

        label:labelString itemValue:selectorOrValue argument:messageArg;

        yourself

    "Created: / 09-09-2012 / 13:22:31 / cg"

    "Modified: / 27-12-2018 / 16:19:57 / Claus Gittinger"

!

label:labelString itemValue:selectorOrValue enabled:enabledHolder

    "create and return a new menuItem, given its label, value

     and enabled holder, which can be a boolean, a boolean valueHolder,

     a block or a selector (to be sent to the application)"

    ^ (self new)

        label:labelString itemValue:selectorOrValue enabled:enabledHolder;

        yourself

    "Created: / 09-09-2012 / 13:23:05 / cg"

    "Modified: / 27-12-2018 / 16:20:23 / Claus Gittinger"

!

label:labelString itemValue:selectorOrValue translateLabel:translateLabel

    "create and return a new menuItem, given its label, value and translateLabel flag"

    ^ (self new)

        label:labelString itemValue:selectorOrValue translateLabel:translateLabel;

        yourself

    "Modified: / 27-12-2018 / 16:20:34 / Claus Gittinger"

!

label:labelString submenuChannel:aSymbolOrValueHolder

    "create and return a new menuItem, given its label and value"

    ^ (self new)

        label:labelString submenuChannel:aSymbolOrValueHolder;

        yourself

!

label:labelString value:selectorOrValue

    <resource: #obsolete>

    "create and return a new menuItem, given its label and value"

    ^ self label:labelString itemValue:selectorOrValue

    "Created: / 04-08-1998 / 17:34:18 / cg"

!

label:labelString value:selectorOrValue argument:messageArg

    <resource: #obsolete>

    "create and return a new menuItem, given its label and value"

    ^ (self new)

        label:labelString; value:selectorOrValue; argument:messageArg;

        yourself

    "Created: / 26-04-2012 / 12:06:34 / cg"

!

label:labelString value:selectorOrValue enabled:enabledHolder

    <resource: #obsolete>

    "create and return a new menuItem, given its label and value"

    ^ (self new)

        label:labelString; value:selectorOrValue;

        enabled:enabledHolder;

        yourself

    "Created: / 29-10-2010 / 12:21:27 / cg"

!

labeled:aString

    <resource: #obsolete>

    "create and return a new menuItem, given a label string"

    ^ self label:aString

    "Modified: / 26-04-2012 / 12:07:12 / cg"

!

separator

    "create and return a new menuItem for a '----' separator"

    ^ self separator:'-'

    "Modified: / 19-07-2017 / 09:17:30 / cg"

!

separator2

    "create and return a new menuItem for a '====' separator"

    ^ self separator:'='

    "Created: / 19-07-2017 / 09:16:54 / cg"

!

separator:sepString

    "create and return a new menuItem for a separator"

    ^ (self new)

        label:sepString; translateLabel:false;

        yourself

    "Created: / 19-07-2017 / 09:17:21 / cg"

    "Modified (format): / 27-12-2018 / 16:21:13 / Claus Gittinger"

! !

!MenuItem class methodsFor:'class initialization'!

initialize

    FLAG_HORIZONTAL_LAYOUT                := 16r0001.

    FLAG_NOTRANSLATE_LABEL                := 16r0002.

    FLAG_ISBUTTON                         := 16r0004.

    FLAG_NOHIDE_ONACTIVATED               := 16r0008.

    FLAG_TRIGGER_ONDOWN                   := 16r0010.

    FLAG_SHOW_BUSYCURSOR_WHILE_PERFORMING := 16r0020.

    FLAG_KEEP_LINKEDMENU                  := 16r0040.

    FLAG_SEND_TO_ORIGINATOR               := 16r0080.

    FLAG_IGNORE_MNEMONIC_KEYS             := 16r0100.

    FLAG_IGNORE_SHORTCUTS                 := 16r0200.

    FLAG_IS_MENUSLICE                     := 16r0400.

    FLAG_FORCE_MENUINDICATOR              := 16r0800.

    "Created: / 09-08-2018 / 16:36:25 / Claus Gittinger"

    "Modified: / 14-08-2018 / 12:29:30 / Claus Gittinger"

! !

!MenuItem class methodsFor:'constants'!

supportedStartGroupValues

    "start group #left #right #conditionalRight ...

     At the moment only #left/nil, #right/#conditionalRight are implemented.

     The meanings are:

        nil                 - default under control of the menu

        #left               - left align

        #right              - place at the right far end

        #conditionalRight   - controlled by a styleSheet variable;

                              like #right under all non-win32 systems,

                              ignored on win32.

                              Use with help-menu, which should be at the far right on some

                              viewStyles, but not under win32."

    ^ #(nil #left #right #conditionalRight)

    "Created: / 16-10-2006 / 13:09:27 / cg"

! !

!MenuItem methodsFor:'Compatibility-ST80'!

enablementSelector:aSymbol

    "dummy for now - for visualworks compatibility (specs)"

    "/ self halt.

!

helpText:aString

    "dummy for now - for visualworks compatibility (specs)"

    activeHelpKey := aString.

!

indicationSelector:aSymbol

    "dummy for now - for visualworks compatibility (specs)"

    "/ self halt.

!

isEnabled:aBoolean

    self enabled:aBoolean

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

!

shortcutModifiers:something

    "dummy for now - for visualworks compatibility (specs)"

    "/ self halt.

!

value

    "obsolete - please use #itemValue (value is bad: it prevents us from using a valueHolder)"

    ^ itemValue

    "Created: 25.2.1997 / 19:50:14 / cg"

!

value:something

    "obsolete - please use #itemValue: (value is bad: it prevents us from using a valueHolder)"

    itemValue := something

    "Created: 25.2.1997 / 19:11:13 / cg"

! !

!MenuItem methodsFor:'accessing'!

accessCharacterPosition

    "get the index of the access character in the label text or string, or nil if none"

    ^ accessCharacterPosition

!

accessCharacterPosition:index 

    "set the index of the access character in the label text or string, or nil if none"

    accessCharacterPosition := index

!

activeHelpKey

    "the key used as index (and argument) to the helpSpec.

     New: may also be an association; then the assoc's key is the help-text provider,

     and the assoc's value is the key in that provider's helpspec."

    ^ activeHelpKey

    "Modified (comment): / 30-05-2019 / 09:42:26 / Claus Gittinger"

!

activeHelpKey:aSymbolicKeyOrClassPlusSymbolAssoc

    "the key used as index (and argument) to the helpSpec.

     New: may also be an association; then the assoc's key is the help-text provider,

     and the assoc's value is the key in that provider's helpspec."

    activeHelpKey := aSymbolicKeyOrClassPlusSymbolAssoc

    "Modified (format): / 30-05-2019 / 09:40:16 / Claus Gittinger"

!

argument

    "get argument given to the value (selector)"

    ^ argument

!

argument:something

    "set argument given to the value (selector)"

    |arg|

    (arg := something) notNil ifTrue:[

        arg isString ifTrue:[

            (arg size == 0 or:[ (arg indexOfNonSeparatorStartingAt:1) == 0 ]) ifTrue:[

                arg := nil

            ]

        ]

    ].

    argument := arg

!

auxValue

    "an additional, arbitrary value"

    ^ auxValue

!

auxValue:something

    "set the auxValue - an arbitrary user value"

    auxValue := something

!

choice:something

    choice := something.

    "Created: / 14.8.1998 / 14:32:06 / cg"

!

choiceValue

    ^ choiceValue

    "Created: / 14.8.1998 / 15:39:26 / cg"

!

choiceValue:something

    choiceValue := something.

    "Created: / 14.8.1998 / 15:39:26 / cg"

!

hierarchicalUUID

    ^ self uuid

!

ignoreMnemonicKeys

    "if true, mnemonic (access character) in the submenus under the item are ignored;

     Set this to speedup accelerator key processing for slow dynamci menus.

     The default is set to false"

    ^ (flags ? 0) bitTest:FLAG_IGNORE_MNEMONIC_KEYS "/ ignoreMnemonicKeys ? false

    "Modified (comment): / 08-09-2011 / 04:30:19 / cg"

    "Modified: / 09-08-2018 / 16:41:53 / Claus Gittinger"

!

ignoreMnemonicKeys:aBoolean

    "if true, mnemonic (access character) in the submenus under the item are ignored;

     Set this to speedup accelerator key processing for slow dynamci menus.

     The default is false"

    "/ ignoreMnemonicKeys := aBoolean.

    flags := (flags ? 0) changeMask:FLAG_IGNORE_MNEMONIC_KEYS to:aBoolean.

    "Modified (comment): / 08-09-2011 / 04:52:23 / cg"

    "Modified: / 09-08-2018 / 16:43:08 / Claus Gittinger"

!

ignoreShortcutKeys

    "if true, shortcutKeys (accelerators) in the submenus under the item are ignored;

     the default is set to false"

    ^ (flags ? 0) bitTest:FLAG_IGNORE_SHORTCUTS "/ ignoreShortcutKeys ? false

    "Modified: / 09-08-2018 / 16:43:26 / Claus Gittinger"

!

ignoreShortcutKeys:aBoolean

    "if true, shortcutKeys (accelerators) in the submenus under the item are ignored;

     the default is set to false"

    "/ ignoreShortcutKeys := aBoolean.

    flags := (flags ? 0) changeMask:FLAG_IGNORE_SHORTCUTS to:aBoolean.

    "Modified: / 09-08-2018 / 16:43:49 / Claus Gittinger"

!

indication

    "value of the items on/off indicator (CheckToggle).

     Usually a valueHolder"

    ^ indication

    "Created: 25.2.1997 / 20:59:28 / cg"

!

indication:someValueHolder

    "value of the items on/off indicator (CheckToggle).

     someValueHolder is usually a value holder"

    indication := someValueHolder.

    "Created: 25.2.1997 / 20:59:28 / cg"

!

isVisible

    "a visibility holder; either a block, boolean or value holder.

     If the menu is permanently visible, it should be a valueHolder,

     as the value is otherwise only checked for before the menu is opened"

    ^ isVisible ? true

!

isVisible:something

    "a visibility holder; either a block, boolean or value holder.

     If the menu is permanently visible, it should be a valueHolder,

     as the value is otherwise only checked for before the menu is opened"

    isVisible := something

!

itemValue