"

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

Object subclass:#MenuItem

	instanceVariableNames:'activeHelpKey enabled label itemValue value nameKey

		translateLabel isButton startGroup isVisible hideMenuOnActivated

		triggerOnDown indication submenu submenuChannel submenuProvider

		shortcutKey labelImage accessCharacterPosition argument choice

		choiceValue font auxValue showBusyCursorWhilePerforming

		keepLinkedMenu horizontalLayout sendToOriginator

		ignoreMnemonicKeys ignoreShortcutKeys isMenuSlice uuid'

	classVariableNames:''

	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

"

    not yet finished MenuItem 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

"

! !

!MenuItem class methodsFor:'instance creation'!

label:aString

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

    ^ self new label:aString

    "Modified: / 4.8.1998 / 17:33:13 / cg"

    "Created: / 14.8.1998 / 19:19:14 / cg"

!

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

!

label:labelString value:selectorOrValue

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

    ^ (self new) label:labelString; value:selectorOrValue; yourself

    "Created: / 4.8.1998 / 17:34:18 / cg"

!

label:labelString value:selectorOrValue enabled:enabledHolder

    "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

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

    ^ self new label:aString

    "Modified: / 4.8.1998 / 17:33:13 / cg"

!

separator

    "create and return a new menuItem for a separator"

    ^ self new label:'-'; translateLabel:false

! !

!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

    ^ activeHelpKey

!

activeHelpKey:aKey

    activeHelpKey := aKey

!

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"

!

font

    "get the specific font for an item or nil"

    ^ font

!

font:aFont 

    "set a specific font for an item"

    font := aFont.

!

hierarchicalUUID

    ^ self uuid

!

horizontalLayout

    "by default, submenus have a vertical layout;

     if true, the submenu has a horizontal layout."

    ^ horizontalLayout ? false

!

horizontalLayout:aBoolean 

    "by default, submenus have a vertical layout;

     if true, the submenu has a horizontal layout."

    horizontalLayout := aBoolean.

!

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"

    ^ ignoreMnemonicKeys ? false

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

!

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 set to false"

    ignoreMnemonicKeys := aBoolean.

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

!

ignoreShortcutKeys

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

     the default is set to false"

    ^ ignoreShortcutKeys ? false

!

ignoreShortcutKeys:aBoolean 

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

     the default is set to false"

    ignoreShortcutKeys := aBoolean.

!

indication

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

    ^ indication

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

!

indication:something 

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

    indication := something.

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

!

isMenuSlice:aBoolean

    isMenuSlice := aBoolean.

!

isVisible

    ^ isVisible ? true

!

isVisible:something

    isVisible := something

!

itemValue

    ^ itemValue

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

!

itemValue:something

    itemValue := something

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

!

keepLinkedMenu

    ^ keepLinkedMenu ? false

!

keepLinkedMenu:aBoolean

    keepLinkedMenu := aBoolean ? false.

!

labelImage

    ^ labelImage

!

labelImage:something

    labelImage := something.

    "/ VW compatibility: if I have a label also,

    "/ this will become a LabelAndImage.

    something isImage ifTrue:[

        label notNil ifTrue:[

            labelImage := LabelAndIcon icon:labelImage string:label

        ]

    ].

!

nameKey

    ^ nameKey

!

nameKey:aNameKey

    nameKey := aNameKey.

!

rawLabel

    ^ label

    "Created: 25.2.1997 / 19:48:16 / cg"

!

rawLabel:aString

    label := aString

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

!

resourceRetriever

    |retriever|

    retriever := labelImage.

    (retriever notNil and:[retriever isKindOf:ResourceRetriever]) ifTrue:[

        ^ retriever

    ].

    ^ nil

!

resourceRetriever:aRetriever

    self labelImage:aRetriever

!

shortcutKey

    "get the key to press to select the menu item from the keyboard"

    ^ shortcutKey

!

shortcutKey:something 

    "set the  key to press to select the menu item from the keyboard"

    shortcutKey := something.

!

shortcutKeyCharacter

    "Backward compatibility; same as #shortcutKey.

     get the  key to press to select the menu item from the keyboard"

    ^ self shortcutKey

!

shortcutKeyCharacter:something 

    "Backward compatibility; same as #shortcutKey:.

     set the  key to press to select the menu item from the keyboard"

    self shortcutKey:something.

!

submenu

    "get the submenu or nil"

    ^ submenu value

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

    "Modified: / 19.6.1998 / 00:33:58 / cg"

!

    "set the submenu or nil"

        submenuChannel notNil ifTrue:[

            "/ programmers error ?

            "/ how can I decide which one to use if there is both

            "/ a channel and a subMenu ...

            self error:'overwriting submenuchannel' mayProceed:true.

        ].

    ] ifFalse:[

    ]

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

    "Modified: / 5.2.2000 / 16:53:28 / cg"

!

submenuChannel

    "get the submenuChannel or nil"

    ^ submenuChannel

!

    "set the submenuChannel or nil"

!