diff -r b5f8d6de7f7f -r e1148c53ad3c MenuItem.st --- a/MenuItem.st Thu Oct 24 16:04:09 2002 +0200 +++ b/MenuItem.st Thu Oct 24 17:31:36 2002 +0200 @@ -14,24 +14,17 @@ "{ Package: 'stx:libview2' }" Object subclass:#MenuItem - instanceVariableNames:'activeHelpKey enabled label value nameKey adornment + instanceVariableNames:'activeHelpKey enabled label itemValue value nameKey translateLabel isButton startGroup isVisible hideMenuOnActivated - triggerOnDown delayMenu' + triggerOnDown delayMenu indication submenu submenuChannel + shortcutKey labelImage accessCharacterPosition argument choice + choiceValue font auxValue showBusyCursorWhilePerforming + keepLinkedMenu horizontalLayout' classVariableNames:'' poolDictionaries:'' category:'Views-Support' ! -Object subclass:#MenuItemAdornment - instanceVariableNames:'color indication submenu submenuChannel shortcutKey labelText - labelImage accessCharacterPosition argument choice choiceValue - font auxValue showBusyCursorWhilePerforming keepLinkedMenu - horizontalLayout' - classVariableNames:'' - poolDictionaries:'' - privateIn:MenuItem -! - !MenuItem class methodsFor:'documentation'! copyright @@ -113,18 +106,13 @@ accessCharacterPosition "get the index of the access character in the label text or string, or nil if none " - adornment notNil ifTrue:[ - ^ adornment accessCharacterPosition - ]. - ^ nil + ^ accessCharacterPosition ! accessCharacterPosition:index "set the index of the access character in the label text or string, or nil if none " - (index isNil and:[adornment isNil]) ifFalse:[ - self adornment accessCharacterPosition:index - ] + accessCharacterPosition := index ! activeHelpKey @@ -138,10 +126,7 @@ argument "get argument given to the value (selector) " - adornment notNil ifTrue:[ - ^ adornment argument - ]. - ^ nil + ^ argument ! argument:something @@ -157,28 +142,85 @@ ] ]. - (arg isNil and:[adornment isNil]) ifFalse:[ - self adornment argument:arg - ] + argument := arg ! auxValue "an additional, arbitrary value" - adornment notNil ifTrue:[ - ^ adornment auxValue - ]. - ^ nil + ^ auxValue ! auxValue:something "set the auxValue - an arbitrary user value " - (something notNil or:[adornment notNil]) ifTrue:[ - self adornment auxValue:something - ] + auxValue := something +! + +choice:something + "set the value of the instance variable 'choice' (automatically generated)" + + choice := something. + + "Created: / 14.8.1998 / 14:32:06 / cg" +! + +choiceValue + "return the value of the instance variable 'choiceValue' (automatically generated)" + + ^ choiceValue + + "Created: / 14.8.1998 / 15:39:26 / cg" +! + +choiceValue:something + "set the value of the instance variable 'choiceValue' (automatically generated)" + + choiceValue := something. + + "Created: / 14.8.1998 / 15:39:26 / cg" +! + +font + "get the specific font for an item or nil + " + ^ font +! - "Modified: / 4.2.2000 / 12:38:44 / cg" +font:aFont + "set a specific font for an item + " + font := aFont. +! + +horizontalLayout + "on default submenus has a vertical layout; + true, the submenu has a horizontal layout. + " + ^ horizontalLayout +! + +horizontalLayout:aBoolean + "on default submenus has a vertical layout; + true, the submenu has a horizontal layout. + " + horizontalLayout := aBoolean. +! + +indication + "test whether the menu item has an on/off indicator (CheckToggle) + " + ^ indication + + "Created: 25.2.1997 / 20:59:28 / cg" +! + +indication:something + "test whether the menu item has an on/off indicator (CheckToggle) + " + indication := something. + + "Created: 25.2.1997 / 20:59:28 / cg" ! isVisible @@ -189,26 +231,40 @@ isVisible := something ! -keepLinkedMenu - "an additional, arbitrary value" +itemValue + ^ itemValue + + "Created: 25.2.1997 / 19:50:14 / cg" +! - adornment notNil ifTrue:[ - ^ adornment keepLinkedMenu - ]. - ^ false +itemValue:something + itemValue := something + + "Created: 25.2.1997 / 19:11:13 / cg" +! + +keepLinkedMenu + "return the value of the instance variable 'keepLinkedMenu' (automatically generated)" + + ^ keepLinkedMenu ? false ! keepLinkedMenu:aBoolean - "set the keepLinkedMenu - " - adornment notNil ifTrue:[ - adornment keepLinkedMenu:aBoolean. - ] ifFalse:[ - aBoolean == true ifTrue:[ - "/ the default is false - self adornment keepLinkedMenu:true - ] - ]. + "set the value of the instance variable 'keepLinkedMenu' (automatically generated)" + + keepLinkedMenu := aBoolean ? false. +! + +labelImage + "return the value of the instance variable 'labelImage' (automatically generated)" + + ^ labelImage +! + +labelImage:something + "set the value of the instance variable 'labelImage' (automatically generated)" + + labelImage := something. ! nameKey @@ -238,82 +294,94 @@ resourceRetriever |retriever| - adornment ifNotNil:[ - retriever := adornment labelImage. - - (retriever notNil and:[retriever isKindOf:ResourceRetriever]) ifTrue:[ - ^ retriever - ]. + retriever := labelImage. + (retriever notNil and:[retriever isKindOf:ResourceRetriever]) ifTrue:[ + ^ retriever ]. ^ nil ! resourceRetriever:aRetriever - (aRetriever notNil or:[adornment notNil]) ifTrue:[ - self adornment labelImage:aRetriever - ]. + self labelImage:aRetriever ! shortcutKeyCharacter - "ignored for now" + "get the key to press to select the menu item from the keyboard + " + ^ shortcutKey +! - adornment notNil ifTrue:[ - ^ adornment shortcutKeyCharacter - ]. - ^ nil +shortcutKeyCharacter:something + "set the key to press to select the menu item from the keyboard + " + shortcutKey := something. ! -shortcutKeyCharacter:aKey - "set the key to press to select the menu item from the keyboard - " - (aKey notNil or:[adornment notNil]) ifTrue:[ - self adornment shortcutKeyCharacter:aKey - ] +showBusyCursorWhilePerforming + "get the flag which controls if a busy cursor is to be shown + while performing the menu action. Defaults to false." + + ^ showBusyCursorWhilePerforming ? false - "Modified: / 4.2.2000 / 12:39:30 / cg" +! + +showBusyCursorWhilePerforming:aBoolean + "set/clear the flag which controls if a busy cursor is to be shown + while performing the menu action. Defaults to false." + + showBusyCursorWhilePerforming := aBoolean + ! submenu - adornment notNil ifTrue:[ - ^ adornment submenu - ]. - ^ nil + "get the submenu or nil + " + ^ submenu value - "Created: 25.2.1997 / 20:57:24 / cg" + "Created: / 25.2.1997 / 20:59:28 / cg" + "Modified: / 19.6.1998 / 00:33:58 / cg" ! -submenu:aMenu - (aMenu notNil or:[adornment notNil]) ifTrue:[ - self adornment submenu:aMenu +submenu:something + "set the submenu or nil + " + (something isValueModel or:[something isBlock]) ifTrue:[ + submenuChannel notNil ifTrue:[ + "/ programmers error ? + "/ how can I decide which one to use if there is both + "/ a channel and a subMenu ... + self halt:'overwriting submenuchannel'. + ]. + submenuChannel := something + ] ifFalse:[ + submenu := something. ] - "Created: / 25.2.1997 / 20:56:20 / cg" - "Modified: / 4.2.2000 / 12:40:02 / cg" + "Created: / 25.2.1997 / 20:59:28 / cg" + "Modified: / 5.2.2000 / 16:53:28 / cg" ! submenuChannel - adornment notNil ifTrue:[ - ^ adornment submenuChannel - ]. - ^ nil + "get the submenuChannel or nil + " + ^ submenuChannel ! submenuChannel:something - (something notNil or:[adornment notNil]) ifTrue:[ - self adornment submenuChannel:something - ] - - "Modified: / 4.2.2000 / 12:40:19 / cg" + "set the submenuChannel or nil + " + submenuChannel := something. ! value - ^ value +self halt. + ^ itemValue "Created: 25.2.1997 / 19:50:14 / cg" ! value:something - value := something + itemValue := something "Created: 25.2.1997 / 19:11:13 / cg" ! ! @@ -335,47 +403,12 @@ choice "return the menu items choice indicator (RadioButton) " - adornment notNil ifTrue:[ - ^ adornment choice - ]. - ^ nil + ^ choice "Created: / 14.8.1998 / 14:34:55 / cg" "Modified: / 14.8.1998 / 15:11:57 / cg" ! -choice:aChoice - "set the menu items choice indicator (RadioButton) - " - (aChoice notNil or:[adornment notNil]) ifTrue:[ - self adornment choice:aChoice. - ]. - - "Created: / 14.8.1998 / 15:11:17 / cg" -! - -choiceValue - "return the menu items choiceValue (RadioButton) - " - adornment notNil ifTrue:[ - ^ adornment choiceValue - ]. - ^ nil - - "Modified: / 14.8.1998 / 15:11:57 / cg" - "Created: / 14.8.1998 / 15:38:05 / cg" -! - -choiceValue:something - "set the menu items choiceValue (RadioButton) - " - (something notNil or:[adornment notNil]) ifTrue:[ - self adornment choiceValue:something. - ]. - - "Created: / 14.8.1998 / 15:39:12 / cg" -! - delayMenu "return true, the menu is shown delayed, if the button is still pressed after a while. Only useful with buttons in non-popup-menus @@ -428,46 +461,6 @@ ! -indication - "return the menu items on/off indicator (CheckToggle) - " - adornment notNil ifTrue:[ - ^ adornment indication - ]. - ^ nil - - "Modified: / 14.8.1998 / 15:11:37 / cg" -! - -indication:anIndication - "set the menu items an on/off indicator (CheckToggle) - " - (anIndication notNil or:[adornment notNil]) ifTrue:[ - self adornment indication:anIndication. - ]. - - "Modified: / 14.8.1998 / 15:11:25 / cg" -! - -showBusyCursorWhilePerforming - "get the flag which controls if a busy cursor is to be shown - while performing the menu action. Defaults to false." - - adornment notNil ifTrue:[ - ^ adornment showBusyCursorWhilePerforming - ]. - ^ nil -! - -showBusyCursorWhilePerforming:aBoolean - "set/clear the flag which controls if a busy cursor is to be shown - while performing the menu action. Defaults to false." - - ((aBoolean == true) or:[adornment notNil]) ifTrue:[ - self adornment showBusyCursorWhilePerforming:aBoolean - ] -! - translateLabel "returns whether label is translated " @@ -499,41 +492,8 @@ !MenuItem methodsFor:'accessing-look'! -font - "get the specific font for an item or nil - " - adornment notNil ifTrue:[ - ^ adornment font - ]. - ^ nil -! - -font:aFont - "set the index of the access character in the label text or string, or nil if none - " - - (aFont isNil and:[adornment isNil]) ifFalse:[ - self adornment font:aFont - ] -! - -horizontalLayout - "on default submenus has a vertical layout; - true, the submenu has a horizontal layout. - " - adornment notNil ifTrue:[ - ^ adornment horizontalLayout - ]. - ^ nil -! - -horizontalLayout:aBoolean - "on default submenus has a vertical layout; - true, the submenu has a horizontal layout. - " - ((aBoolean == true) or:[adornment notNil]) ifTrue:[ - self adornment horizontalLayout:aBoolean - ]. +icon:anImage + self resourceRetriever: (ResourceRetriever icon:anImage) ! isButton @@ -565,21 +525,9 @@ "Created: 25.2.1997 / 19:55:16 / cg" ! -labelImage - "gets the labelImage - " - adornment notNil ifTrue:[ - ^ adornment labelImage value - ]. - ^ nil -! - -labelImage:aResourceRetriever - "set the labelImage - " - aResourceRetriever notNil ifTrue:[ - self adornment labelImage:aResourceRetriever - ] +label:aString icon:anImage + self label:aString. + self resourceRetriever: (ResourceRetriever icon:anImage string:'') ! startGroup @@ -612,7 +560,7 @@ findGuiResourcesIn:aResourceContainerOrApplication rememberResourcesIn:aValueHolderOrNil "setup a resource container " - |lblImg m| + |retriever m| self translateLabel ifTrue:[ label := ResourceRetriever @@ -621,17 +569,15 @@ rememberResourcesIn:aValueHolderOrNil ]. - adornment notNil ifTrue:[ - (lblImg := adornment labelImage) notNil ifTrue:[ - lblImg findGuiResourcesIn:aResourceContainerOrApplication. - lblImg labelText notNil ifTrue: [lblImg labelText: label]. - ]. - (m := adornment submenu) notNil ifTrue:[ - m := m value. - m notNil ifTrue:[ - m findGuiResourcesIn:aResourceContainerOrApplication rememberResourcesIn:aValueHolderOrNil - ] - ]. + (retriever := self resourceRetriever) notNil ifTrue:[ + retriever findGuiResourcesIn:aResourceContainerOrApplication. + retriever labelText notNil ifTrue: [retriever labelText: label]. + ]. + (m := self submenu) notNil ifTrue:[ + m := m value. + m notNil ifTrue:[ + m findGuiResourcesIn:aResourceContainerOrApplication rememberResourcesIn:aValueHolderOrNil + ] ] "Modified: / 18.6.1998 / 16:54:25 / cg" @@ -639,28 +585,6 @@ !MenuItem methodsFor:'converting'! -fromLiteralArrayEncoding:aLiteralEncodedArray - "read my contents from a aLiteralEncodedArray" - - |selector value| - - 2 to:aLiteralEncodedArray size by:2 do:[:i | - selector := aLiteralEncodedArray at:i. - value := (aLiteralEncodedArray at:i+1). - selector == #argument: ifFalse:[ - value := value decodeAsLiteralArray - ]. - self perform:selector with:value - ]. - - " - #( #MenuItem #rawLabel: 'left' #nameKey: 'identifier' #value: #left ) - decodeAsLiteralArray - " - - "Modified: / 4.2.2000 / 12:50:28 / cg" -! - literalArrayEncoding "return myself encoded as a literal array" @@ -707,70 +631,94 @@ coll add:#enabled: ; add:(enabled literalArrayEncoding). ]. - adornment notNil ifTrue:[ - (something := self shortcutKeyCharacter) notNil ifTrue:[ - coll add:#shortcutKeyCharacter: ; add:(something literalArrayEncoding) - ]. - (something := self font) notNil ifTrue:[ - coll add:#font: ; add:(something literalArrayEncoding) - ]. + (something := self shortcutKeyCharacter) notNil ifTrue:[ + coll add:#shortcutKeyCharacter: ; add:(something literalArrayEncoding) + ]. + (something := self font) notNil ifTrue:[ + coll add:#font: ; add:(something literalArrayEncoding) + ]. - (something := self accessCharacterPosition) notNil ifTrue:[ - coll add:#accessCharacterPosition: ; add:(something literalArrayEncoding) - ]. + (something := self accessCharacterPosition) notNil ifTrue:[ + coll add:#accessCharacterPosition: ; add:(something literalArrayEncoding) + ]. - (something := self horizontalLayout) == true ifTrue:[ - coll add:#horizontalLayout: ; add:(something literalArrayEncoding) - ]. + (something := self horizontalLayout) == true ifTrue:[ + coll add:#horizontalLayout: ; add:(something literalArrayEncoding) + ]. - (something := self showBusyCursorWhilePerforming) == true ifTrue:[ - coll add:#showBusyCursorWhilePerforming: ; add:(something literalArrayEncoding) - ]. + (something := self showBusyCursorWhilePerforming) == true ifTrue:[ + coll add:#showBusyCursorWhilePerforming: ; add:(something literalArrayEncoding) + ]. - (something := self argument) notNil ifTrue:[ - "/ coll add:#argument: ; add:(something literalArrayEncoding) -- cg: wrong - see decoder part. - something class == Array ifTrue:[ - coll add:#argument: ; add:(something collect:[:each | each literalArrayEncoding]). - ] ifFalse:[ - coll add:#argument: ; add:(something literalArrayEncoding) - ] - ]. - - adornment labelImage notNil ifTrue:[ - coll add:#labelImage: ; add:(adornment labelImage literalArrayEncoding) - ]. - (something := self indication) notNil ifTrue:[ - coll add:#indication: ; add:(something literalArrayEncoding) - ]. - (something := self choice) notNil ifTrue:[ - coll add:#choice: ; add:(something literalArrayEncoding). + (something := self argument) notNil ifTrue:[ + "/ coll add:#argument: ; add:(something literalArrayEncoding) -- cg: wrong - see decoder part. + something class == Array ifTrue:[ + coll add:#argument: ; add:(something collect:[:each | each literalArrayEncoding]). + ] ifFalse:[ + coll add:#argument: ; add:(something literalArrayEncoding) + ] + ]. - (something := self choiceValue) notNil ifTrue:[ - coll add:#choiceValue: ; add:(something literalArrayEncoding) - ]. - ]. - (something := self auxValue) notNil ifTrue:[ - coll add:#auxValue: ; add:(something literalArrayEncoding) - ]. + (something := self resourceRetriever) notNil ifTrue:[ + "/ ParcPlace stores the ResourceRetriever under the labelImage key. + coll add:#resourceRetriever: ; add:(something literalArrayEncoding) + ]. - (something := self submenuChannel) notNil ifTrue:[ - coll add:#submenuChannel: ; add:(something literalArrayEncoding). + (something := self indication) notNil ifTrue:[ + coll add:#indication: ; add:(something literalArrayEncoding) + ]. + (something := self choice) notNil ifTrue:[ + coll add:#choice: ; add:(something literalArrayEncoding). - (something := self keepLinkedMenu) ifTrue:[ - coll add:#keepLinkedMenu: ; add:true - ] - ]. - - self hasSubmenu ifTrue:[ - coll add:#submenu:; add:(self submenu literalArrayEncoding) + (something := self choiceValue) notNil ifTrue:[ + coll add:#choiceValue: ; add:(something literalArrayEncoding) ]. ]. + (something := self auxValue) notNil ifTrue:[ + coll add:#auxValue: ; add:(something literalArrayEncoding) + ]. - ^ coll asArray + (something := self submenuChannel) notNil ifTrue:[ + coll add:#submenuChannel: ; add:(something literalArrayEncoding). + + (something := self keepLinkedMenu) ifTrue:[ + coll add:#keepLinkedMenu: ; add:true + ] + ]. + + self hasSubmenu ifTrue:[ + coll add:#submenu:; add:(self submenu literalArrayEncoding) + ]. + + ^ coll asArray "Modified: / 14.8.1998 / 15:44:53 / cg" ! ! +!MenuItem methodsFor:'encoding & decoding'! + +fromLiteralArrayEncoding:aLiteralEncodedArray + "read my contents from a aLiteralEncodedArray" + + |selector value| + + 2 to:aLiteralEncodedArray size by:2 do:[:i | + selector := aLiteralEncodedArray at:i. + value := (aLiteralEncodedArray at:i+1). + selector == #argument: ifFalse:[ + value := value decodeAsLiteralArray + ]. + self perform:selector with:value + ]. + + " + #( #MenuItem #rawLabel: 'left' #nameKey: 'identifier' #value: #left ) + decodeAsLiteralArray + " + + "Modified: / 4.2.2000 / 12:50:28 / cg" +! ! + !MenuItem methodsFor:'printing & storing'! displayString @@ -779,15 +727,6 @@ !MenuItem methodsFor:'private - accessing'! -adornment - adornment isNil ifTrue:[ - adornment := MenuItemAdornment new - ]. - ^ adornment - - "Created: 25.2.1997 / 20:57:05 / cg" -! - filteredLabel "return the label without any &-chars" @@ -887,266 +826,8 @@ ^ indication value == true ! ! -!MenuItem::MenuItemAdornment methodsFor:'accessing'! - -accessCharacterPosition - "return the value of the instance variable 'accessCharacterPosition' (automatically generated)" - - ^ accessCharacterPosition -! - -accessCharacterPosition:something - "set the value of the instance variable 'accessCharacterPosition' (automatically generated)" - - accessCharacterPosition := something. -! - -argument - "return the value of the instance variable 'argument' (automatically generated)" - - ^ argument - - "Created: 25.2.1997 / 20:59:28 / cg" -! - -argument:something - "set the value of the instance variable 'argument' (automatically generated)" - - argument := something. - - "Created: 25.2.1997 / 20:59:28 / cg" -! - -auxValue - "return the value of the instance variable 'auxValue' (automatically generated)" - - ^ auxValue -! - -auxValue:something - "set the value of the instance variable 'auxValue' (automatically generated)" - - auxValue := something. -! - -choice - "return the value of the instance variable 'choice' (automatically generated)" - - ^ choice - - "Created: / 14.8.1998 / 14:32:06 / cg" -! - -choice:something - "set the value of the instance variable 'choice' (automatically generated)" - - choice := something. - - "Created: / 14.8.1998 / 14:32:06 / cg" -! - -choiceValue - "return the value of the instance variable 'choiceValue' (automatically generated)" - - ^ choiceValue - - "Created: / 14.8.1998 / 15:39:26 / cg" -! - -choiceValue:something - "set the value of the instance variable 'choiceValue' (automatically generated)" - - choiceValue := something. - - "Created: / 14.8.1998 / 15:39:26 / cg" -! - -color - "return the value of the instance variable 'color' (automatically generated)" - - ^ color - - "Created: 25.2.1997 / 20:59:28 / cg" -! - -color:something - "set the value of the instance variable 'color' (automatically generated)" - - color := something. - - "Created: 25.2.1997 / 20:59:28 / cg" -! - -font - "get the specific font for an item or nil - " - ^ font -! - -font:aFont - "set a specific font for an item - " - font := aFont. -! - -horizontalLayout - "on default submenus has a vertical layout; - true, the submenu has a horizontal layout. - " - ^ horizontalLayout -! - -horizontalLayout:aBoolean - "on default submenus has a vertical layout; - true, the submenu has a horizontal layout. - " - horizontalLayout := aBoolean. -! - -indication - "test whether the menu item has an on/off indicator (CheckToggle) - " - ^ indication - - "Created: 25.2.1997 / 20:59:28 / cg" -! - -indication:something - "test whether the menu item has an on/off indicator (CheckToggle) - " - indication := something. - - "Created: 25.2.1997 / 20:59:28 / cg" -! - -keepLinkedMenu - "return the value of the instance variable 'keepLinkedMenu' (automatically generated)" - - ^ keepLinkedMenu ? false -! - -keepLinkedMenu:aBoolean - "set the value of the instance variable 'keepLinkedMenu' (automatically generated)" - - keepLinkedMenu := aBoolean ? false. -! - -labelImage - "return the value of the instance variable 'labelImage' (automatically generated)" - - ^ labelImage -! - -labelImage:something - "set the value of the instance variable 'labelImage' (automatically generated)" - - labelImage := something. -! - -labelText - "get the text appear as the menu label - " - ^ labelText -! - -labelText:something - "set the text appear as the menu label - " - labelText := something. -! - -shortcutKeyCharacter - "get the key to press to select the menu item from the keyboard - " - ^ shortcutKey -! - -shortcutKeyCharacter:something - "set the key to press to select the menu item from the keyboard - " - shortcutKey := something. -! - -showBusyCursorWhilePerforming - "get the flag which controls if a busy cursor is to be shown - while performing the menu action. Defaults to false." - - ^ showBusyCursorWhilePerforming ? false - -! - -showBusyCursorWhilePerforming:aBoolean - "set/clear the flag which controls if a busy cursor is to be shown - while performing the menu action. Defaults to false." - - showBusyCursorWhilePerforming := aBoolean - -! - -staticSubmenu - "get the submenu or nil; - only returns the subMenu if its a static subMenu (i.e. not - provided by a valueHolder or block). - " - (submenu isValueModel or:[submenu isBlock]) ifTrue:[ - ^ nil - ]. - ^ submenu - - "Modified: / 5.2.2000 / 16:49:54 / cg" -! - -submenu - "get the submenu or nil - " - ^ submenu value - - "Created: / 25.2.1997 / 20:59:28 / cg" - "Modified: / 19.6.1998 / 00:33:58 / cg" -! - -submenu:something - "set the submenu or nil - " - (something isValueModel or:[something isBlock]) ifTrue:[ - submenuChannel notNil ifTrue:[ - "/ programmers error ? - "/ how can I decide which one to use if there is both - "/ a channel and a subMenu ... - self halt:'overwriting submenuchannel'. - ]. - submenuChannel := something - ] ifFalse:[ - submenu := something. - ] - - "Created: / 25.2.1997 / 20:59:28 / cg" - "Modified: / 5.2.2000 / 16:53:28 / cg" -! - -submenuChannel - "get the submenuChannel or nil - " - ^ submenuChannel -! - -submenuChannel:something - "set the submenuChannel or nil - " - submenuChannel := something. -! - -submenuHolder - "get the submenuHolder or nil - " - ^ submenu - - "Modified: / 19.6.1998 / 00:33:58 / cg" - "Created: / 19.6.1998 / 00:34:32 / cg" -! ! - !MenuItem class methodsFor:'documentation'! version - ^ '$Header: /cvs/stx/stx/libview2/MenuItem.st,v 1.50 2002-09-19 16:55:57 ca Exp $' + ^ '$Header: /cvs/stx/stx/libview2/MenuItem.st,v 1.51 2002-10-24 15:31:36 cg Exp $' ! !