hg/stx-libview2: MenuItem.st@4798b0251087 (annotated)

1196 27897663fc97 docu & copyright Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	1	"
27897663fc97 docu & copyright Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	2	COPYRIGHT (c) 1998 by eXept Software AG
27897663fc97 docu & copyright Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	3	All Rights Reserved
27897663fc97 docu & copyright Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	4
27897663fc97 docu & copyright Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	5	This software is furnished under a license and may be used
27897663fc97 docu & copyright Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	6	only in accordance with the terms of that license and with the
27897663fc97 docu & copyright Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	7	inclusion of the above copyright notice. This software may not
27897663fc97 docu & copyright Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	8	be provided or otherwise made available to, or used by, any
27897663fc97 docu & copyright Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	9	other person. No title to or ownership of the software is
27897663fc97 docu & copyright Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	10	hereby transferred.
27897663fc97 docu & copyright Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	11	"
1369 281acc9f1a73 dont store choiceValue for non-choice items. Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	12	"{ Package: 'stx:libview2' }"
281acc9f1a73 dont store choiceValue for non-choice items. Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	13
451 95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	14	Object subclass:#MenuItem
1643 e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	15	instanceVariableNames:'activeHelpKey enabled label itemValue value nameKey
1409 d51c83a4268c implement: triggerOnDown ca parents: 1401 diff changeset	16	translateLabel isButton startGroup isVisible hideMenuOnActivated
1664 1c59afa95984 * empty log message * ca parents: 1663 diff changeset	17	triggerOnDown indication submenu submenuChannel shortcutKey
1c59afa95984 * empty log message * ca parents: 1663 diff changeset	18	labelImage accessCharacterPosition argument choice choiceValue
1c59afa95984 * empty log message * ca parents: 1663 diff changeset	19	font auxValue showBusyCursorWhilePerforming keepLinkedMenu
1884 4b317db4d387 support of ignoreShortcutKeys and ignoreMnemonicKeys ca parents: 1763 diff changeset	20	horizontalLayout sendToOriginator ignoreMnemonicKeys
2517 35e21e2e29a6 support uuid's fm parents: 2412 diff changeset	21	ignoreShortcutKeys isMenuSlice uuid'
451 95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	22	classVariableNames:''
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	23	poolDictionaries:''
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	24	category:'Views-Support'
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	25	!
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	26
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	27	!MenuItem class methodsFor:'documentation'!
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	28
1196 27897663fc97 docu & copyright Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	29	copyright
27897663fc97 docu & copyright Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	30	"
27897663fc97 docu & copyright Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	31	COPYRIGHT (c) 1998 by eXept Software AG
27897663fc97 docu & copyright Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	32	All Rights Reserved
27897663fc97 docu & copyright Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	33
27897663fc97 docu & copyright Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	34	This software is furnished under a license and may be used
27897663fc97 docu & copyright Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	35	only in accordance with the terms of that license and with the
27897663fc97 docu & copyright Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	36	inclusion of the above copyright notice. This software may not
27897663fc97 docu & copyright Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	37	be provided or otherwise made available to, or used by, any
27897663fc97 docu & copyright Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	38	other person. No title to or ownership of the software is
27897663fc97 docu & copyright Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	39	hereby transferred.
27897663fc97 docu & copyright Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	40	"
27897663fc97 docu & copyright Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	41
27897663fc97 docu & copyright Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	42	!
27897663fc97 docu & copyright Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	43
451 95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	44	documentation
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	45	"
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	46	not yet finished MenuItem class - this will eventually replace
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	47	most of the MenuView and PopUpMenu stuff.
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	48	(and hopefully be ST-80 compatible ...)
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	49
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	50	For now, only a subset of the full protocol is implemented.
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	51
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	52	[author:]
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	53	Claus Gittinger
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	54
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	55	[see also:]
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	56	MenuItem
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	57	PopUpMenu
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	58	"
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	59
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	60	! !
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	61
490 ebe88e50b29a * empty log message * ca parents: 458 diff changeset	62	!MenuItem class methodsFor:'instance creation'!
ebe88e50b29a * empty log message * ca parents: 458 diff changeset	63
1044 5ecf46d0f1b7 checkin from browser Claus Gittinger <cg@exept.de> parents: 1041 diff changeset	64	label:aString
5ecf46d0f1b7 checkin from browser Claus Gittinger <cg@exept.de> parents: 1041 diff changeset	65	"create and return a new menuItem, given a label string"
5ecf46d0f1b7 checkin from browser Claus Gittinger <cg@exept.de> parents: 1041 diff changeset	66
5ecf46d0f1b7 checkin from browser Claus Gittinger <cg@exept.de> parents: 1041 diff changeset	67	^ self new label:aString
5ecf46d0f1b7 checkin from browser Claus Gittinger <cg@exept.de> parents: 1041 diff changeset	68
5ecf46d0f1b7 checkin from browser Claus Gittinger <cg@exept.de> parents: 1041 diff changeset	69	"Modified: / 4.8.1998 / 17:33:13 / cg"
5ecf46d0f1b7 checkin from browser Claus Gittinger <cg@exept.de> parents: 1041 diff changeset	70	"Created: / 14.8.1998 / 19:19:14 / cg"
5ecf46d0f1b7 checkin from browser Claus Gittinger <cg@exept.de> parents: 1041 diff changeset	71	!
5ecf46d0f1b7 checkin from browser Claus Gittinger <cg@exept.de> parents: 1041 diff changeset	72
1030 3684379a1ac8 added inst-creation #label:value: Claus Gittinger <cg@exept.de> parents: 985 diff changeset	73	label:labelString value:selectorOrValue
3684379a1ac8 added inst-creation #label:value: Claus Gittinger <cg@exept.de> parents: 985 diff changeset	74	"create and return a new menuItem, given its label and value"
3684379a1ac8 added inst-creation #label:value: Claus Gittinger <cg@exept.de> parents: 985 diff changeset	75
3684379a1ac8 added inst-creation #label:value: Claus Gittinger <cg@exept.de> parents: 985 diff changeset	76	^ (self new) label:labelString; value:selectorOrValue; yourself
3684379a1ac8 added inst-creation #label:value: Claus Gittinger <cg@exept.de> parents: 985 diff changeset	77
3684379a1ac8 added inst-creation #label:value: Claus Gittinger <cg@exept.de> parents: 985 diff changeset	78	"Created: / 4.8.1998 / 17:34:18 / cg"
3684379a1ac8 added inst-creation #label:value: Claus Gittinger <cg@exept.de> parents: 985 diff changeset	79	!
3684379a1ac8 added inst-creation #label:value: Claus Gittinger <cg@exept.de> parents: 985 diff changeset	80
490 ebe88e50b29a * empty log message * ca parents: 458 diff changeset	81	labeled:aString
1030 3684379a1ac8 added inst-creation #label:value: Claus Gittinger <cg@exept.de> parents: 985 diff changeset	82	"create and return a new menuItem, given a label string"
3684379a1ac8 added inst-creation #label:value: Claus Gittinger <cg@exept.de> parents: 985 diff changeset	83
490 ebe88e50b29a * empty log message * ca parents: 458 diff changeset	84	^ self new label:aString
1030 3684379a1ac8 added inst-creation #label:value: Claus Gittinger <cg@exept.de> parents: 985 diff changeset	85
3684379a1ac8 added inst-creation #label:value: Claus Gittinger <cg@exept.de> parents: 985 diff changeset	86	"Modified: / 4.8.1998 / 17:33:13 / cg"
1486 251879696655 * empty log message * martin parents: 1468 diff changeset	87	!
251879696655 * empty log message * martin parents: 1468 diff changeset	88
251879696655 * empty log message * martin parents: 1468 diff changeset	89	separator
251879696655 * empty log message * martin parents: 1468 diff changeset	90	"create and return a new menuItem for a separator"
251879696655 * empty log message * martin parents: 1468 diff changeset	91
2412 3f11e716f802 Do not try to translate separators Stefan Vogel <sv@exept.de> parents: 2293 diff changeset	92	^ self new label:'-'; translateLabel:false
490 ebe88e50b29a * empty log message * ca parents: 458 diff changeset	93	! !
ebe88e50b29a * empty log message * ca parents: 458 diff changeset	94
2264 8736ee5ec90e new startGroup value: #conditionalRight Claus Gittinger <cg@exept.de> parents: 2263 diff changeset	95	!MenuItem class methodsFor:'constants'!
8736ee5ec90e new startGroup value: #conditionalRight Claus Gittinger <cg@exept.de> parents: 2263 diff changeset	96
8736ee5ec90e new startGroup value: #conditionalRight Claus Gittinger <cg@exept.de> parents: 2263 diff changeset	97	supportedStartGroupValues
8736ee5ec90e new startGroup value: #conditionalRight Claus Gittinger <cg@exept.de> parents: 2263 diff changeset	98	"start group #left #right #conditionalRight ...
8736ee5ec90e new startGroup value: #conditionalRight Claus Gittinger <cg@exept.de> parents: 2263 diff changeset	99	At the moment only #left/nil, #right/#conditionalRight are implemented.
8736ee5ec90e new startGroup value: #conditionalRight Claus Gittinger <cg@exept.de> parents: 2263 diff changeset	100
8736ee5ec90e new startGroup value: #conditionalRight Claus Gittinger <cg@exept.de> parents: 2263 diff changeset	101	The meanings are:
8736ee5ec90e new startGroup value: #conditionalRight Claus Gittinger <cg@exept.de> parents: 2263 diff changeset	102	nil - default under control of the menu
8736ee5ec90e new startGroup value: #conditionalRight Claus Gittinger <cg@exept.de> parents: 2263 diff changeset	103	#left - left align
8736ee5ec90e new startGroup value: #conditionalRight Claus Gittinger <cg@exept.de> parents: 2263 diff changeset	104	#right - place at the right far end
8736ee5ec90e new startGroup value: #conditionalRight Claus Gittinger <cg@exept.de> parents: 2263 diff changeset	105	#conditionalRight - controlled by a styleSheet variable;
8736ee5ec90e new startGroup value: #conditionalRight Claus Gittinger <cg@exept.de> parents: 2263 diff changeset	106	like #right under all non-win32 systems,
8736ee5ec90e new startGroup value: #conditionalRight Claus Gittinger <cg@exept.de> parents: 2263 diff changeset	107	ignored on win32.
8736ee5ec90e new startGroup value: #conditionalRight Claus Gittinger <cg@exept.de> parents: 2263 diff changeset	108	Use with help-menu, which should be at the far right on some
8736ee5ec90e new startGroup value: #conditionalRight Claus Gittinger <cg@exept.de> parents: 2263 diff changeset	109	viewStyles, but not under win32."
8736ee5ec90e new startGroup value: #conditionalRight Claus Gittinger <cg@exept.de> parents: 2263 diff changeset	110
8736ee5ec90e new startGroup value: #conditionalRight Claus Gittinger <cg@exept.de> parents: 2263 diff changeset	111	^ #(nil #left #right #conditionalRight)
8736ee5ec90e new startGroup value: #conditionalRight Claus Gittinger <cg@exept.de> parents: 2263 diff changeset	112
8736ee5ec90e new startGroup value: #conditionalRight Claus Gittinger <cg@exept.de> parents: 2263 diff changeset	113	"Created: / 16-10-2006 / 13:09:27 / cg"
8736ee5ec90e new startGroup value: #conditionalRight Claus Gittinger <cg@exept.de> parents: 2263 diff changeset	114	! !
8736ee5ec90e new startGroup value: #conditionalRight Claus Gittinger <cg@exept.de> parents: 2263 diff changeset	115
1763 fabe0b506e33 method category rename Claus Gittinger <cg@exept.de> parents: 1761 diff changeset	116	!MenuItem methodsFor:'Compatibility-ST80'!
724 898519684261 more VW comaptibility Claus Gittinger <cg@exept.de> parents: 684 diff changeset	117
898519684261 more VW comaptibility Claus Gittinger <cg@exept.de> parents: 684 diff changeset	118	isEnabled:aBoolean
898519684261 more VW comaptibility Claus Gittinger <cg@exept.de> parents: 684 diff changeset	119	self enabled:aBoolean
898519684261 more VW comaptibility Claus Gittinger <cg@exept.de> parents: 684 diff changeset	120
898519684261 more VW comaptibility Claus Gittinger <cg@exept.de> parents: 684 diff changeset	121	"Created: / 27.10.1997 / 16:34:55 / cg"
1646 da8d044c7c0d value - itemValue Claus Gittinger <cg@exept.de> parents: 1643 diff changeset	122	!
da8d044c7c0d value - itemValue Claus Gittinger <cg@exept.de> parents: 1643 diff changeset	123
da8d044c7c0d value - itemValue Claus Gittinger <cg@exept.de> parents: 1643 diff changeset	124	value
da8d044c7c0d value - itemValue Claus Gittinger <cg@exept.de> parents: 1643 diff changeset	125	"obsolete - please use #itemValue (value is bad: it prevents us from using a valueHolder)"
da8d044c7c0d value - itemValue Claus Gittinger <cg@exept.de> parents: 1643 diff changeset	126
da8d044c7c0d value - itemValue Claus Gittinger <cg@exept.de> parents: 1643 diff changeset	127	^ itemValue
da8d044c7c0d value - itemValue Claus Gittinger <cg@exept.de> parents: 1643 diff changeset	128
da8d044c7c0d value - itemValue Claus Gittinger <cg@exept.de> parents: 1643 diff changeset	129	"Created: 25.2.1997 / 19:50:14 / cg"
da8d044c7c0d value - itemValue Claus Gittinger <cg@exept.de> parents: 1643 diff changeset	130	!
da8d044c7c0d value - itemValue Claus Gittinger <cg@exept.de> parents: 1643 diff changeset	131
da8d044c7c0d value - itemValue Claus Gittinger <cg@exept.de> parents: 1643 diff changeset	132	value:something
da8d044c7c0d value - itemValue Claus Gittinger <cg@exept.de> parents: 1643 diff changeset	133	"obsolete - please use #itemValue: (value is bad: it prevents us from using a valueHolder)"
da8d044c7c0d value - itemValue Claus Gittinger <cg@exept.de> parents: 1643 diff changeset	134
da8d044c7c0d value - itemValue Claus Gittinger <cg@exept.de> parents: 1643 diff changeset	135	itemValue := something
da8d044c7c0d value - itemValue Claus Gittinger <cg@exept.de> parents: 1643 diff changeset	136
da8d044c7c0d value - itemValue Claus Gittinger <cg@exept.de> parents: 1643 diff changeset	137	"Created: 25.2.1997 / 19:11:13 / cg"
724 898519684261 more VW comaptibility Claus Gittinger <cg@exept.de> parents: 684 diff changeset	138	! !
898519684261 more VW comaptibility Claus Gittinger <cg@exept.de> parents: 684 diff changeset	139
451 95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	140	!MenuItem methodsFor:'accessing'!
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	141
579 77f6d490f1ac so far, so good ca parents: 578 diff changeset	142	accessCharacterPosition
2112 3c4dd2e9203f * empty log message * Claus Gittinger <cg@exept.de> parents: 2082 diff changeset	143	"get the index of the access character in the label text or string, or nil if none"
3c4dd2e9203f * empty log message * Claus Gittinger <cg@exept.de> parents: 2082 diff changeset	144
1643 e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	145	^ accessCharacterPosition
451 95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	146	!
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	147
2112 3c4dd2e9203f * empty log message * Claus Gittinger <cg@exept.de> parents: 2082 diff changeset	148	accessCharacterPosition:index
3c4dd2e9203f * empty log message * Claus Gittinger <cg@exept.de> parents: 2082 diff changeset	149	"set the index of the access character in the label text or string, or nil if none"
3c4dd2e9203f * empty log message * Claus Gittinger <cg@exept.de> parents: 2082 diff changeset	150
1643 e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	151	accessCharacterPosition := index
451 95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	152	!
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	153
640 4e1c0d0a633b add active help for items ca parents: 590 diff changeset	154	activeHelpKey
4e1c0d0a633b add active help for items ca parents: 590 diff changeset	155	^ activeHelpKey
4e1c0d0a633b add active help for items ca parents: 590 diff changeset	156	!
4e1c0d0a633b add active help for items ca parents: 590 diff changeset	157
4e1c0d0a633b add active help for items ca parents: 590 diff changeset	158	activeHelpKey:aKey
4e1c0d0a633b add active help for items ca parents: 590 diff changeset	159	activeHelpKey := aKey
4e1c0d0a633b add active help for items ca parents: 590 diff changeset	160	!
4e1c0d0a633b add active help for items ca parents: 590 diff changeset	161
684 184dd159d02e support of arguments ca parents: 666 diff changeset	162	argument
2112 3c4dd2e9203f * empty log message * Claus Gittinger <cg@exept.de> parents: 2082 diff changeset	163	"get argument given to the value (selector)"
3c4dd2e9203f * empty log message * Claus Gittinger <cg@exept.de> parents: 2082 diff changeset	164
1643 e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	165	^ argument
684 184dd159d02e support of arguments ca parents: 666 diff changeset	166	!
184dd159d02e support of arguments ca parents: 666 diff changeset	167
2112 3c4dd2e9203f * empty log message * Claus Gittinger <cg@exept.de> parents: 2082 diff changeset	168	argument:something
3c4dd2e9203f * empty log message * Claus Gittinger <cg@exept.de> parents: 2082 diff changeset	169	"set argument given to the value (selector)"
3c4dd2e9203f * empty log message * Claus Gittinger <cg@exept.de> parents: 2082 diff changeset	170
684 184dd159d02e support of arguments ca parents: 666 diff changeset	171	\|arg\|
184dd159d02e support of arguments ca parents: 666 diff changeset	172
184dd159d02e support of arguments ca parents: 666 diff changeset	173	(arg := something) notNil ifTrue:[
184dd159d02e support of arguments ca parents: 666 diff changeset	174	arg isString ifTrue:[
2112 3c4dd2e9203f * empty log message * Claus Gittinger <cg@exept.de> parents: 2082 diff changeset	175	(arg size == 0 or:[ (arg indexOfNonSeparatorStartingAt:1) == 0 ]) ifTrue:[
684 184dd159d02e support of arguments ca parents: 666 diff changeset	176	arg := nil
184dd159d02e support of arguments ca parents: 666 diff changeset	177	]
184dd159d02e support of arguments ca parents: 666 diff changeset	178	]
184dd159d02e support of arguments ca parents: 666 diff changeset	179	].
1643 e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	180	argument := arg
684 184dd159d02e support of arguments ca parents: 666 diff changeset	181	!
184dd159d02e support of arguments ca parents: 666 diff changeset	182
1213 a80ce81d2944 auxValue added tm parents: 1203 diff changeset	183	auxValue
a80ce81d2944 auxValue added tm parents: 1203 diff changeset	184	"an additional, arbitrary value"
a80ce81d2944 auxValue added tm parents: 1203 diff changeset	185
1643 e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	186	^ auxValue
1213 a80ce81d2944 auxValue added tm parents: 1203 diff changeset	187	!
a80ce81d2944 auxValue added tm parents: 1203 diff changeset	188
2112 3c4dd2e9203f * empty log message * Claus Gittinger <cg@exept.de> parents: 2082 diff changeset	189	auxValue:something
3c4dd2e9203f * empty log message * Claus Gittinger <cg@exept.de> parents: 2082 diff changeset	190	"set the auxValue - an arbitrary user value"
3c4dd2e9203f * empty log message * Claus Gittinger <cg@exept.de> parents: 2082 diff changeset	191
1643 e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	192	auxValue := something
e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	193	!
e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	194
e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	195	choice:something
e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	196	choice := something.
e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	197
e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	198	"Created: / 14.8.1998 / 14:32:06 / cg"
e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	199	!
e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	200
e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	201	choiceValue
e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	202	^ choiceValue
e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	203
e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	204	"Created: / 14.8.1998 / 15:39:26 / cg"
e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	205	!
e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	206
e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	207	choiceValue:something
e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	208	choiceValue := something.
e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	209
e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	210	"Created: / 14.8.1998 / 15:39:26 / cg"
e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	211	!
e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	212
e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	213	font
2112 3c4dd2e9203f * empty log message * Claus Gittinger <cg@exept.de> parents: 2082 diff changeset	214	"get the specific font for an item or nil"
3c4dd2e9203f * empty log message * Claus Gittinger <cg@exept.de> parents: 2082 diff changeset	215
1643 e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	216	^ font
e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	217	!
1333 423b4b4404c4 avoid creating an adornment (when nil adornment values are stored) Claus Gittinger <cg@exept.de> parents: 1329 diff changeset	218
2112 3c4dd2e9203f * empty log message * Claus Gittinger <cg@exept.de> parents: 2082 diff changeset	219	font:aFont
3c4dd2e9203f * empty log message * Claus Gittinger <cg@exept.de> parents: 2082 diff changeset	220	"set a specific font for an item"
3c4dd2e9203f * empty log message * Claus Gittinger <cg@exept.de> parents: 2082 diff changeset	221
1643 e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	222	font := aFont.
e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	223	!
e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	224
2548 07251b4e7ac9 changed #hierarchicalUUID fm parents: 2533 diff changeset	225	hierarchicalUUID
07251b4e7ac9 changed #hierarchicalUUID fm parents: 2533 diff changeset	226
07251b4e7ac9 changed #hierarchicalUUID fm parents: 2533 diff changeset	227	^ self uuid
07251b4e7ac9 changed #hierarchicalUUID fm parents: 2533 diff changeset	228	!
07251b4e7ac9 changed #hierarchicalUUID fm parents: 2533 diff changeset	229
1643 e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	230	horizontalLayout
1990 dca233a39477 horizontalLayout bug Claus Gittinger <cg@exept.de> parents: 1986 diff changeset	231	"by default, submenus have a vertical layout;
2112 3c4dd2e9203f * empty log message * Claus Gittinger <cg@exept.de> parents: 2082 diff changeset	232	if true, the submenu has a horizontal layout."
3c4dd2e9203f * empty log message * Claus Gittinger <cg@exept.de> parents: 2082 diff changeset	233
1990 dca233a39477 horizontalLayout bug Claus Gittinger <cg@exept.de> parents: 1986 diff changeset	234	^ horizontalLayout ? false
1643 e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	235	!
e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	236
2112 3c4dd2e9203f * empty log message * Claus Gittinger <cg@exept.de> parents: 2082 diff changeset	237	horizontalLayout:aBoolean
1990 dca233a39477 horizontalLayout bug Claus Gittinger <cg@exept.de> parents: 1986 diff changeset	238	"by default, submenus have a vertical layout;
2112 3c4dd2e9203f * empty log message * Claus Gittinger <cg@exept.de> parents: 2082 diff changeset	239	if true, the submenu has a horizontal layout."
3c4dd2e9203f * empty log message * Claus Gittinger <cg@exept.de> parents: 2082 diff changeset	240
1643 e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	241	horizontalLayout := aBoolean.
e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	242	!
e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	243
1884 4b317db4d387 support of ignoreShortcutKeys and ignoreMnemonicKeys ca parents: 1763 diff changeset	244	ignoreMnemonicKeys
4b317db4d387 support of ignoreShortcutKeys and ignoreMnemonicKeys ca parents: 1763 diff changeset	245	"if true, mnemonic (access character) in the submenus under the item are ignored;
2112 3c4dd2e9203f * empty log message * Claus Gittinger <cg@exept.de> parents: 2082 diff changeset	246	the default is set to false"
3c4dd2e9203f * empty log message * Claus Gittinger <cg@exept.de> parents: 2082 diff changeset	247
1884 4b317db4d387 support of ignoreShortcutKeys and ignoreMnemonicKeys ca parents: 1763 diff changeset	248	^ ignoreMnemonicKeys ? false
4b317db4d387 support of ignoreShortcutKeys and ignoreMnemonicKeys ca parents: 1763 diff changeset	249	!
4b317db4d387 support of ignoreShortcutKeys and ignoreMnemonicKeys ca parents: 1763 diff changeset	250
2112 3c4dd2e9203f * empty log message * Claus Gittinger <cg@exept.de> parents: 2082 diff changeset	251	ignoreMnemonicKeys:aBoolean
1884 4b317db4d387 support of ignoreShortcutKeys and ignoreMnemonicKeys ca parents: 1763 diff changeset	252	"if true, mnemonic (access character) in the submenus under the item are ignored;
2112 3c4dd2e9203f * empty log message * Claus Gittinger <cg@exept.de> parents: 2082 diff changeset	253	the default is set to false"
3c4dd2e9203f * empty log message * Claus Gittinger <cg@exept.de> parents: 2082 diff changeset	254
1884 4b317db4d387 support of ignoreShortcutKeys and ignoreMnemonicKeys ca parents: 1763 diff changeset	255	ignoreMnemonicKeys := aBoolean.
4b317db4d387 support of ignoreShortcutKeys and ignoreMnemonicKeys ca parents: 1763 diff changeset	256	!
4b317db4d387 support of ignoreShortcutKeys and ignoreMnemonicKeys ca parents: 1763 diff changeset	257
4b317db4d387 support of ignoreShortcutKeys and ignoreMnemonicKeys ca parents: 1763 diff changeset	258	ignoreShortcutKeys
4b317db4d387 support of ignoreShortcutKeys and ignoreMnemonicKeys ca parents: 1763 diff changeset	259	"if true, shortcutKeys (accelerators) in the submenus under the item are ignored;
2112 3c4dd2e9203f * empty log message * Claus Gittinger <cg@exept.de> parents: 2082 diff changeset	260	the default is set to false"
3c4dd2e9203f * empty log message * Claus Gittinger <cg@exept.de> parents: 2082 diff changeset	261
1884 4b317db4d387 support of ignoreShortcutKeys and ignoreMnemonicKeys ca parents: 1763 diff changeset	262	^ ignoreShortcutKeys ? false
4b317db4d387 support of ignoreShortcutKeys and ignoreMnemonicKeys ca parents: 1763 diff changeset	263	!
4b317db4d387 support of ignoreShortcutKeys and ignoreMnemonicKeys ca parents: 1763 diff changeset	264
2112 3c4dd2e9203f * empty log message * Claus Gittinger <cg@exept.de> parents: 2082 diff changeset	265	ignoreShortcutKeys:aBoolean
1884 4b317db4d387 support of ignoreShortcutKeys and ignoreMnemonicKeys ca parents: 1763 diff changeset	266	"if true, shortcutKeys (accelerators) in the submenus under the item are ignored;
2112 3c4dd2e9203f * empty log message * Claus Gittinger <cg@exept.de> parents: 2082 diff changeset	267	the default is set to false"
3c4dd2e9203f * empty log message * Claus Gittinger <cg@exept.de> parents: 2082 diff changeset	268
1884 4b317db4d387 support of ignoreShortcutKeys and ignoreMnemonicKeys ca parents: 1763 diff changeset	269	ignoreShortcutKeys := aBoolean.
4b317db4d387 support of ignoreShortcutKeys and ignoreMnemonicKeys ca parents: 1763 diff changeset	270	!
4b317db4d387 support of ignoreShortcutKeys and ignoreMnemonicKeys ca parents: 1763 diff changeset	271
1643 e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	272	indication
2533 569fd3176543 * empty log message * Claus Gittinger <cg@exept.de> parents: 2517 diff changeset	273	"value of the items on/off indicator (CheckToggle)"
2112 3c4dd2e9203f * empty log message * Claus Gittinger <cg@exept.de> parents: 2082 diff changeset	274
1643 e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	275	^ indication
e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	276
e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	277	"Created: 25.2.1997 / 20:59:28 / cg"
e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	278	!
e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	279
2112 3c4dd2e9203f * empty log message * Claus Gittinger <cg@exept.de> parents: 2082 diff changeset	280	indication:something
2533 569fd3176543 * empty log message * Claus Gittinger <cg@exept.de> parents: 2517 diff changeset	281	"value of the items on/off indicator (CheckToggle)"
2112 3c4dd2e9203f * empty log message * Claus Gittinger <cg@exept.de> parents: 2082 diff changeset	282
1643 e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	283	indication := something.
e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	284
e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	285	"Created: 25.2.1997 / 20:59:28 / cg"
1213 a80ce81d2944 auxValue added tm parents: 1203 diff changeset	286	!
a80ce81d2944 auxValue added tm parents: 1203 diff changeset	287
1986 f819e439d917 * empty log message * ca parents: 1885 diff changeset	288	isMenuSlice:aBoolean
f819e439d917 * empty log message * ca parents: 1885 diff changeset	289	isMenuSlice := aBoolean.
f819e439d917 * empty log message * ca parents: 1885 diff changeset	290	!
f819e439d917 * empty log message * ca parents: 1885 diff changeset	291
798 8a27a879ff23 support of visible/invisible items ca parents: 794 diff changeset	292	isVisible
1663 00afd9631d8c isVisible - default is true Claus Gittinger <cg@exept.de> parents: 1658 diff changeset	293	^ isVisible ? true
798 8a27a879ff23 support of visible/invisible items ca parents: 794 diff changeset	294	!
8a27a879ff23 support of visible/invisible items ca parents: 794 diff changeset	295
8a27a879ff23 support of visible/invisible items ca parents: 794 diff changeset	296	isVisible:something
8a27a879ff23 support of visible/invisible items ca parents: 794 diff changeset	297	isVisible := something
8a27a879ff23 support of visible/invisible items ca parents: 794 diff changeset	298	!
8a27a879ff23 support of visible/invisible items ca parents: 794 diff changeset	299
1643 e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	300	itemValue
e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	301	^ itemValue
e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	302
e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	303	"Created: 25.2.1997 / 19:50:14 / cg"
e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	304	!
1370 4d2a3cc1d3c7 allow views in subMenus ca parents: 1369 diff changeset	305
1643 e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	306	itemValue:something
e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	307	itemValue := something
e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	308
e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	309	"Created: 25.2.1997 / 19:11:13 / cg"
e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	310	!
e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	311
e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	312	keepLinkedMenu
e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	313	^ keepLinkedMenu ? false
1370 4d2a3cc1d3c7 allow views in subMenus ca parents: 1369 diff changeset	314	!
4d2a3cc1d3c7 allow views in subMenus ca parents: 1369 diff changeset	315
4d2a3cc1d3c7 allow views in subMenus ca parents: 1369 diff changeset	316	keepLinkedMenu:aBoolean
1643 e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	317	keepLinkedMenu := aBoolean ? false.
e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	318	!
e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	319
e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	320	labelImage
e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	321	^ labelImage
e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	322	!
e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	323
e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	324	labelImage:something
2125 78bd48d8de76 labelImage: VW7 compat. Claus Gittinger <cg@exept.de> parents: 2122 diff changeset	325	labelImage := something.
1643 e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	326
2125 78bd48d8de76 labelImage: VW7 compat. Claus Gittinger <cg@exept.de> parents: 2122 diff changeset	327	"/ VW compatibility: if I have a label also,
78bd48d8de76 labelImage: VW7 compat. Claus Gittinger <cg@exept.de> parents: 2122 diff changeset	328	"/ this will become a LabelAndImage.
78bd48d8de76 labelImage: VW7 compat. Claus Gittinger <cg@exept.de> parents: 2122 diff changeset	329	something isImage ifTrue:[
78bd48d8de76 labelImage: VW7 compat. Claus Gittinger <cg@exept.de> parents: 2122 diff changeset	330	label notNil ifTrue:[
78bd48d8de76 labelImage: VW7 compat. Claus Gittinger <cg@exept.de> parents: 2122 diff changeset	331	labelImage := LabelAndIcon icon:labelImage string:label
78bd48d8de76 labelImage: VW7 compat. Claus Gittinger <cg@exept.de> parents: 2122 diff changeset	332	]
78bd48d8de76 labelImage: VW7 compat. Claus Gittinger <cg@exept.de> parents: 2122 diff changeset	333	].
1370 4d2a3cc1d3c7 allow views in subMenus ca parents: 1369 diff changeset	334	!
4d2a3cc1d3c7 allow views in subMenus ca parents: 1369 diff changeset	335
578 7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	336	nameKey
7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	337	^ nameKey
7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	338
7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	339
7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	340	!
7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	341
7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	342	nameKey:aNameKey
579 77f6d490f1ac so far, so good ca parents: 578 diff changeset	343	nameKey := aNameKey.
578 7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	344
7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	345
7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	346	!
7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	347
490 ebe88e50b29a * empty log message * ca parents: 458 diff changeset	348	rawLabel
ebe88e50b29a * empty log message * ca parents: 458 diff changeset	349	^ label
ebe88e50b29a * empty log message * ca parents: 458 diff changeset	350
ebe88e50b29a * empty log message * ca parents: 458 diff changeset	351	"Created: 25.2.1997 / 19:48:16 / cg"
ebe88e50b29a * empty log message * ca parents: 458 diff changeset	352	!
ebe88e50b29a * empty log message * ca parents: 458 diff changeset	353
451 95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	354	rawLabel:aString
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	355	label := aString
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	356
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	357	"Created: 25.2.1997 / 19:11:02 / cg"
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	358	!
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	359
1621 f913c0e7a3a8 access the resourceRetriever ca parents: 1595 diff changeset	360	resourceRetriever
f913c0e7a3a8 access the resourceRetriever ca parents: 1595 diff changeset	361	\|retriever\|
f913c0e7a3a8 access the resourceRetriever ca parents: 1595 diff changeset	362
1643 e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	363	retriever := labelImage.
e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	364	(retriever notNil and:[retriever isKindOf:ResourceRetriever]) ifTrue:[
e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	365	^ retriever
1621 f913c0e7a3a8 access the resourceRetriever ca parents: 1595 diff changeset	366	].
f913c0e7a3a8 access the resourceRetriever ca parents: 1595 diff changeset	367	^ nil
f913c0e7a3a8 access the resourceRetriever ca parents: 1595 diff changeset	368	!
f913c0e7a3a8 access the resourceRetriever ca parents: 1595 diff changeset	369
f913c0e7a3a8 access the resourceRetriever ca parents: 1595 diff changeset	370	resourceRetriever:aRetriever
1643 e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	371	self labelImage:aRetriever
1621 f913c0e7a3a8 access the resourceRetriever ca parents: 1595 diff changeset	372	!
f913c0e7a3a8 access the resourceRetriever ca parents: 1595 diff changeset	373
1655 d937610cfe89 shorrtcutKey vs. shortcutKeyCharacter Claus Gittinger <cg@exept.de> parents: 1651 diff changeset	374	shortcutKey
2112 3c4dd2e9203f * empty log message * Claus Gittinger <cg@exept.de> parents: 2082 diff changeset	375	"get the key to press to select the menu item from the keyboard"
3c4dd2e9203f * empty log message * Claus Gittinger <cg@exept.de> parents: 2082 diff changeset	376
1643 e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	377	^ shortcutKey
e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	378	!
490 ebe88e50b29a * empty log message * ca parents: 458 diff changeset	379
2112 3c4dd2e9203f * empty log message * Claus Gittinger <cg@exept.de> parents: 2082 diff changeset	380	shortcutKey:something
3c4dd2e9203f * empty log message * Claus Gittinger <cg@exept.de> parents: 2082 diff changeset	381	"set the key to press to select the menu item from the keyboard"
3c4dd2e9203f * empty log message * Claus Gittinger <cg@exept.de> parents: 2082 diff changeset	382
1643 e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	383	shortcutKey := something.
490 ebe88e50b29a * empty log message * ca parents: 458 diff changeset	384	!
ebe88e50b29a * empty log message * ca parents: 458 diff changeset	385
1655 d937610cfe89 shorrtcutKey vs. shortcutKeyCharacter Claus Gittinger <cg@exept.de> parents: 1651 diff changeset	386	shortcutKeyCharacter
d937610cfe89 shorrtcutKey vs. shortcutKeyCharacter Claus Gittinger <cg@exept.de> parents: 1651 diff changeset	387	"Backward compatibility; same as #shortcutKey.
2112 3c4dd2e9203f * empty log message * Claus Gittinger <cg@exept.de> parents: 2082 diff changeset	388	get the key to press to select the menu item from the keyboard"
3c4dd2e9203f * empty log message * Claus Gittinger <cg@exept.de> parents: 2082 diff changeset	389
1655 d937610cfe89 shorrtcutKey vs. shortcutKeyCharacter Claus Gittinger <cg@exept.de> parents: 1651 diff changeset	390	^ self shortcutKey
d937610cfe89 shorrtcutKey vs. shortcutKeyCharacter Claus Gittinger <cg@exept.de> parents: 1651 diff changeset	391	!
d937610cfe89 shorrtcutKey vs. shortcutKeyCharacter Claus Gittinger <cg@exept.de> parents: 1651 diff changeset	392
2112 3c4dd2e9203f * empty log message * Claus Gittinger <cg@exept.de> parents: 2082 diff changeset	393	shortcutKeyCharacter:something
1655 d937610cfe89 shorrtcutKey vs. shortcutKeyCharacter Claus Gittinger <cg@exept.de> parents: 1651 diff changeset	394	"Backward compatibility; same as #shortcutKey:.
2112 3c4dd2e9203f * empty log message * Claus Gittinger <cg@exept.de> parents: 2082 diff changeset	395	set the key to press to select the menu item from the keyboard"
3c4dd2e9203f * empty log message * Claus Gittinger <cg@exept.de> parents: 2082 diff changeset	396
1655 d937610cfe89 shorrtcutKey vs. shortcutKeyCharacter Claus Gittinger <cg@exept.de> parents: 1651 diff changeset	397	self shortcutKey:something.
d937610cfe89 shorrtcutKey vs. shortcutKeyCharacter Claus Gittinger <cg@exept.de> parents: 1651 diff changeset	398	!
d937610cfe89 shorrtcutKey vs. shortcutKeyCharacter Claus Gittinger <cg@exept.de> parents: 1651 diff changeset	399
458 729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	400	submenu
2112 3c4dd2e9203f * empty log message * Claus Gittinger <cg@exept.de> parents: 2082 diff changeset	401	"get the submenu or nil"
3c4dd2e9203f * empty log message * Claus Gittinger <cg@exept.de> parents: 2082 diff changeset	402
1643 e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	403	^ submenu value
458 729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	404
1643 e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	405	"Created: / 25.2.1997 / 20:59:28 / cg"
e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	406	"Modified: / 19.6.1998 / 00:33:58 / cg"
458 729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	407	!
729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	408
2112 3c4dd2e9203f * empty log message * Claus Gittinger <cg@exept.de> parents: 2082 diff changeset	409	submenu:something
3c4dd2e9203f * empty log message * Claus Gittinger <cg@exept.de> parents: 2082 diff changeset	410	"set the submenu or nil"
3c4dd2e9203f * empty log message * Claus Gittinger <cg@exept.de> parents: 2082 diff changeset	411
3c4dd2e9203f * empty log message * Claus Gittinger <cg@exept.de> parents: 2082 diff changeset	412	(something isValueModel or:[ something isBlock ]) ifTrue:[
1643 e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	413	submenuChannel notNil ifTrue:[
e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	414	"/ programmers error ?
e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	415	"/ how can I decide which one to use if there is both
e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	416	"/ a channel and a subMenu ...
1649 162e89bf1079 halt -> error ca parents: 1648 diff changeset	417	self error:'overwriting submenuchannel' mayProceed:true.
1643 e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	418	].
e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	419	submenuChannel := something
e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	420	] ifFalse:[
e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	421	submenu := something.
1333 423b4b4404c4 avoid creating an adornment (when nil adornment values are stored) Claus Gittinger <cg@exept.de> parents: 1329 diff changeset	422	]
458 729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	423
1643 e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	424	"Created: / 25.2.1997 / 20:59:28 / cg"
e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	425	"Modified: / 5.2.2000 / 16:53:28 / cg"
458 729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	426	!
729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	427
666 6e614a5d9248 add submenuChannel ca parents: 661 diff changeset	428	submenuChannel
2112 3c4dd2e9203f * empty log message * Claus Gittinger <cg@exept.de> parents: 2082 diff changeset	429	"get the submenuChannel or nil"
3c4dd2e9203f * empty log message * Claus Gittinger <cg@exept.de> parents: 2082 diff changeset	430
1643 e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	431	^ submenuChannel
666 6e614a5d9248 add submenuChannel ca parents: 661 diff changeset	432	!
6e614a5d9248 add submenuChannel ca parents: 661 diff changeset	433
2112 3c4dd2e9203f * empty log message * Claus Gittinger <cg@exept.de> parents: 2082 diff changeset	434	submenuChannel:something
3c4dd2e9203f * empty log message * Claus Gittinger <cg@exept.de> parents: 2082 diff changeset	435	"set the submenuChannel or nil"
3c4dd2e9203f * empty log message * Claus Gittinger <cg@exept.de> parents: 2082 diff changeset	436
1643 e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	437	submenuChannel := something.
2517 35e21e2e29a6 support uuid's fm parents: 2412 diff changeset	438	!
35e21e2e29a6 support uuid's fm parents: 2412 diff changeset	439
35e21e2e29a6 support uuid's fm parents: 2412 diff changeset	440	uuid
35e21e2e29a6 support uuid's fm parents: 2412 diff changeset	441
35e21e2e29a6 support uuid's fm parents: 2412 diff changeset	442	^ uuid
35e21e2e29a6 support uuid's fm parents: 2412 diff changeset	443	!
35e21e2e29a6 support uuid's fm parents: 2412 diff changeset	444
35e21e2e29a6 support uuid's fm parents: 2412 diff changeset	445	uuid:aUUID
35e21e2e29a6 support uuid's fm parents: 2412 diff changeset	446	"return my name component to be used for resource-access"
35e21e2e29a6 support uuid's fm parents: 2412 diff changeset	447
35e21e2e29a6 support uuid's fm parents: 2412 diff changeset	448	uuid := aUUID
451 95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	449	! !
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	450
1333 423b4b4404c4 avoid creating an adornment (when nil adornment values are stored) Claus Gittinger <cg@exept.de> parents: 1329 diff changeset	451	!MenuItem methodsFor:'accessing-behavior'!
579 77f6d490f1ac so far, so good ca parents: 578 diff changeset	452
590 fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	453	beOff
2082 cab2f7b1f938 * empty log message * Claus Gittinger <cg@exept.de> parents: 2060 diff changeset	454	"set indication off"
cab2f7b1f938 * empty log message * Claus Gittinger <cg@exept.de> parents: 2060 diff changeset	455
590 fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	456	self indication:false
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	457	!
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	458
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	459	beOn
2082 cab2f7b1f938 * empty log message * Claus Gittinger <cg@exept.de> parents: 2060 diff changeset	460	"set indication on"
cab2f7b1f938 * empty log message * Claus Gittinger <cg@exept.de> parents: 2060 diff changeset	461
590 fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	462	self indication:true
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	463	!
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	464
1041 d28f0375cd26 added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	465	choice
2082 cab2f7b1f938 * empty log message * Claus Gittinger <cg@exept.de> parents: 2060 diff changeset	466	"return the menu items choice indicator (RadioButton)"
cab2f7b1f938 * empty log message * Claus Gittinger <cg@exept.de> parents: 2060 diff changeset	467
1643 e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	468	^ choice
1041 d28f0375cd26 added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	469
d28f0375cd26 added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	470	"Created: / 14.8.1998 / 14:34:55 / cg"
d28f0375cd26 added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	471	"Modified: / 14.8.1998 / 15:11:57 / cg"
d28f0375cd26 added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	472	!
d28f0375cd26 added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	473
579 77f6d490f1ac so far, so good ca parents: 578 diff changeset	474	disable
77f6d490f1ac so far, so good ca parents: 578 diff changeset	475	enabled := false
77f6d490f1ac so far, so good ca parents: 578 diff changeset	476
77f6d490f1ac so far, so good ca parents: 578 diff changeset	477	"Created: 25.2.1997 / 19:39:09 / cg"
77f6d490f1ac so far, so good ca parents: 578 diff changeset	478	!
77f6d490f1ac so far, so good ca parents: 578 diff changeset	479
77f6d490f1ac so far, so good ca parents: 578 diff changeset	480	enable
77f6d490f1ac so far, so good ca parents: 578 diff changeset	481	enabled := true
77f6d490f1ac so far, so good ca parents: 578 diff changeset	482
77f6d490f1ac so far, so good ca parents: 578 diff changeset	483	"Created: 25.2.1997 / 19:39:00 / cg"
77f6d490f1ac so far, so good ca parents: 578 diff changeset	484	!
77f6d490f1ac so far, so good ca parents: 578 diff changeset	485
581 0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	486	enabled
2082 cab2f7b1f938 * empty log message * Claus Gittinger <cg@exept.de> parents: 2060 diff changeset	487	"returns a boolean, valueHolder or block"
cab2f7b1f938 * empty log message * Claus Gittinger <cg@exept.de> parents: 2060 diff changeset	488
581 0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	489	^ enabled
0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	490	!
579 77f6d490f1ac so far, so good ca parents: 578 diff changeset	491
581 0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	492	enabled:something
2082 cab2f7b1f938 * empty log message * Claus Gittinger <cg@exept.de> parents: 2060 diff changeset	493	"a boolean, valueHolder or block"
cab2f7b1f938 * empty log message * Claus Gittinger <cg@exept.de> parents: 2060 diff changeset	494
581 0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	495	enabled := something
590 fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	496	!
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	497
1595 0595db55a829 preps for delayedMenu Claus Gittinger <cg@exept.de> parents: 1568 diff changeset	498	hideMenuOnActivated
2082 cab2f7b1f938 * empty log message * Claus Gittinger <cg@exept.de> parents: 2060 diff changeset	499	"hide the menu when the item was activated; the default is true"
cab2f7b1f938 * empty log message * Claus Gittinger <cg@exept.de> parents: 2060 diff changeset	500
1595 0595db55a829 preps for delayedMenu Claus Gittinger <cg@exept.de> parents: 1568 diff changeset	501	^ hideMenuOnActivated ? true
1566 99ef8f1123c8 menuBuilder: support of horizontal/vertical layout of submenu ca parents: 1486 diff changeset	502	!
99ef8f1123c8 menuBuilder: support of horizontal/vertical layout of submenu ca parents: 1486 diff changeset	503
1595 0595db55a829 preps for delayedMenu Claus Gittinger <cg@exept.de> parents: 1568 diff changeset	504	hideMenuOnActivated:aBool
2082 cab2f7b1f938 * empty log message * Claus Gittinger <cg@exept.de> parents: 2060 diff changeset	505	"hide the menu when the item was activated; the default is true"
cab2f7b1f938 * empty log message * Claus Gittinger <cg@exept.de> parents: 2060 diff changeset	506
1595 0595db55a829 preps for delayedMenu Claus Gittinger <cg@exept.de> parents: 1568 diff changeset	507	hideMenuOnActivated := aBool ? true
1566 99ef8f1123c8 menuBuilder: support of horizontal/vertical layout of submenu ca parents: 1486 diff changeset	508	!
99ef8f1123c8 menuBuilder: support of horizontal/vertical layout of submenu ca parents: 1486 diff changeset	509
1651 429e02e097d9 can now specify if menu action is to be performed by ca parents: 1649 diff changeset	510	sendToOriginator
429e02e097d9 can now specify if menu action is to be performed by ca parents: 1649 diff changeset	511	"if true, the message is sent to the originating widget;
429e02e097d9 can now specify if menu action is to be performed by ca parents: 1649 diff changeset	512	otherwise (the default), it it sent to the receiver/application."
429e02e097d9 can now specify if menu action is to be performed by ca parents: 1649 diff changeset	513
429e02e097d9 can now specify if menu action is to be performed by ca parents: 1649 diff changeset	514	^ sendToOriginator ? false
429e02e097d9 can now specify if menu action is to be performed by ca parents: 1649 diff changeset	515	!
429e02e097d9 can now specify if menu action is to be performed by ca parents: 1649 diff changeset	516
429e02e097d9 can now specify if menu action is to be performed by ca parents: 1649 diff changeset	517	sendToOriginator:anBoolean
429e02e097d9 can now specify if menu action is to be performed by ca parents: 1649 diff changeset	518	"if true, the message is sent to the originating widget;
429e02e097d9 can now specify if menu action is to be performed by ca parents: 1649 diff changeset	519	otherwise (the default), it it sent to the receiver/application."
429e02e097d9 can now specify if menu action is to be performed by ca parents: 1649 diff changeset	520
429e02e097d9 can now specify if menu action is to be performed by ca parents: 1649 diff changeset	521	sendToOriginator := anBoolean
429e02e097d9 can now specify if menu action is to be performed by ca parents: 1649 diff changeset	522	!
429e02e097d9 can now specify if menu action is to be performed by ca parents: 1649 diff changeset	523
2533 569fd3176543 * empty log message * Claus Gittinger <cg@exept.de> parents: 2517 diff changeset	524	showBusyCursorWhilePerforming
569fd3176543 * empty log message * Claus Gittinger <cg@exept.de> parents: 2517 diff changeset	525	"get the flag which controls if a busy cursor is to be shown
569fd3176543 * empty log message * Claus Gittinger <cg@exept.de> parents: 2517 diff changeset	526	while performing the menu action. Defaults to false."
569fd3176543 * empty log message * Claus Gittinger <cg@exept.de> parents: 2517 diff changeset	527
569fd3176543 * empty log message * Claus Gittinger <cg@exept.de> parents: 2517 diff changeset	528	^ showBusyCursorWhilePerforming ? false
569fd3176543 * empty log message * Claus Gittinger <cg@exept.de> parents: 2517 diff changeset	529
569fd3176543 * empty log message * Claus Gittinger <cg@exept.de> parents: 2517 diff changeset	530	!
569fd3176543 * empty log message * Claus Gittinger <cg@exept.de> parents: 2517 diff changeset	531
569fd3176543 * empty log message * Claus Gittinger <cg@exept.de> parents: 2517 diff changeset	532	showBusyCursorWhilePerforming:aBoolean
569fd3176543 * empty log message * Claus Gittinger <cg@exept.de> parents: 2517 diff changeset	533	"set/clear the flag which controls if a busy cursor is to be shown
569fd3176543 * empty log message * Claus Gittinger <cg@exept.de> parents: 2517 diff changeset	534	while performing the menu action. Defaults to false."
569fd3176543 * empty log message * Claus Gittinger <cg@exept.de> parents: 2517 diff changeset	535
569fd3176543 * empty log message * Claus Gittinger <cg@exept.de> parents: 2517 diff changeset	536	showBusyCursorWhilePerforming := aBoolean
569fd3176543 * empty log message * Claus Gittinger <cg@exept.de> parents: 2517 diff changeset	537
569fd3176543 * empty log message * Claus Gittinger <cg@exept.de> parents: 2517 diff changeset	538	!
569fd3176543 * empty log message * Claus Gittinger <cg@exept.de> parents: 2517 diff changeset	539
1595 0595db55a829 preps for delayedMenu Claus Gittinger <cg@exept.de> parents: 1568 diff changeset	540	translateLabel
2082 cab2f7b1f938 * empty log message * Claus Gittinger <cg@exept.de> parents: 2060 diff changeset	541	"returns true if the label is to be translated"
cab2f7b1f938 * empty log message * Claus Gittinger <cg@exept.de> parents: 2060 diff changeset	542
2412 3f11e716f802 Do not try to translate separators Stefan Vogel <sv@exept.de> parents: 2293 diff changeset	543	^ translateLabel ? true
1595 0595db55a829 preps for delayedMenu Claus Gittinger <cg@exept.de> parents: 1568 diff changeset	544	!
0595db55a829 preps for delayedMenu Claus Gittinger <cg@exept.de> parents: 1568 diff changeset	545
2082 cab2f7b1f938 * empty log message * Claus Gittinger <cg@exept.de> parents: 2060 diff changeset	546	translateLabel:aBoolean
cab2f7b1f938 * empty log message * Claus Gittinger <cg@exept.de> parents: 2060 diff changeset	547	"sets whether label is translated"
1595 0595db55a829 preps for delayedMenu Claus Gittinger <cg@exept.de> parents: 1568 diff changeset	548
2082 cab2f7b1f938 * empty log message * Claus Gittinger <cg@exept.de> parents: 2060 diff changeset	549	translateLabel := aBoolean
1595 0595db55a829 preps for delayedMenu Claus Gittinger <cg@exept.de> parents: 1568 diff changeset	550	!
0595db55a829 preps for delayedMenu Claus Gittinger <cg@exept.de> parents: 1568 diff changeset	551
0595db55a829 preps for delayedMenu Claus Gittinger <cg@exept.de> parents: 1568 diff changeset	552	triggerOnDown
2082 cab2f7b1f938 * empty log message * Claus Gittinger <cg@exept.de> parents: 2060 diff changeset	553	"returns true if the action is triggered when pressed"
cab2f7b1f938 * empty log message * Claus Gittinger <cg@exept.de> parents: 2060 diff changeset	554
1595 0595db55a829 preps for delayedMenu Claus Gittinger <cg@exept.de> parents: 1568 diff changeset	555	^ triggerOnDown ? false
0595db55a829 preps for delayedMenu Claus Gittinger <cg@exept.de> parents: 1568 diff changeset	556	!
0595db55a829 preps for delayedMenu Claus Gittinger <cg@exept.de> parents: 1568 diff changeset	557
0595db55a829 preps for delayedMenu Claus Gittinger <cg@exept.de> parents: 1568 diff changeset	558	triggerOnDown:aBool
2082 cab2f7b1f938 * empty log message * Claus Gittinger <cg@exept.de> parents: 2060 diff changeset	559	"controls if the action is triggered when pressed or released"
cab2f7b1f938 * empty log message * Claus Gittinger <cg@exept.de> parents: 2060 diff changeset	560
1595 0595db55a829 preps for delayedMenu Claus Gittinger <cg@exept.de> parents: 1568 diff changeset	561	triggerOnDown := aBool.
0595db55a829 preps for delayedMenu Claus Gittinger <cg@exept.de> parents: 1568 diff changeset	562	! !
0595db55a829 preps for delayedMenu Claus Gittinger <cg@exept.de> parents: 1568 diff changeset	563
0595db55a829 preps for delayedMenu Claus Gittinger <cg@exept.de> parents: 1568 diff changeset	564	!MenuItem methodsFor:'accessing-look'!
0595db55a829 preps for delayedMenu Claus Gittinger <cg@exept.de> parents: 1568 diff changeset	565
1643 e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	566	icon:anImage
e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	567	self resourceRetriever: (ResourceRetriever icon:anImage)
1595 0595db55a829 preps for delayedMenu Claus Gittinger <cg@exept.de> parents: 1568 diff changeset	568	!
0595db55a829 preps for delayedMenu Claus Gittinger <cg@exept.de> parents: 1568 diff changeset	569
752 93690dcd1b75 button and label translation support added. tz parents: 724 diff changeset	570	isButton
93690dcd1b75 button and label translation support added. tz parents: 724 diff changeset	571	"returns whether item looks like a Button
93690dcd1b75 button and label translation support added. tz parents: 724 diff changeset	572	"
1646 da8d044c7c0d value - itemValue Claus Gittinger <cg@exept.de> parents: 1643 diff changeset	573	^ isButton ? false
752 93690dcd1b75 button and label translation support added. tz parents: 724 diff changeset	574	!
93690dcd1b75 button and label translation support added. tz parents: 724 diff changeset	575
93690dcd1b75 button and label translation support added. tz parents: 724 diff changeset	576	isButton:anBoolean
93690dcd1b75 button and label translation support added. tz parents: 724 diff changeset	577	"sets whether item looks like a Button
93690dcd1b75 button and label translation support added. tz parents: 724 diff changeset	578	"
93690dcd1b75 button and label translation support added. tz parents: 724 diff changeset	579	isButton := anBoolean
93690dcd1b75 button and label translation support added. tz parents: 724 diff changeset	580
93690dcd1b75 button and label translation support added. tz parents: 724 diff changeset	581
93690dcd1b75 button and label translation support added. tz parents: 724 diff changeset	582	!
93690dcd1b75 button and label translation support added. tz parents: 724 diff changeset	583
1595 0595db55a829 preps for delayedMenu Claus Gittinger <cg@exept.de> parents: 1568 diff changeset	584	label
0595db55a829 preps for delayedMenu Claus Gittinger <cg@exept.de> parents: 1568 diff changeset	585	^ self filteredLabel "/ label
0595db55a829 preps for delayedMenu Claus Gittinger <cg@exept.de> parents: 1568 diff changeset	586
0595db55a829 preps for delayedMenu Claus Gittinger <cg@exept.de> parents: 1568 diff changeset	587	"Created: / 25.2.1997 / 19:48:16 / cg"
0595db55a829 preps for delayedMenu Claus Gittinger <cg@exept.de> parents: 1568 diff changeset	588	"Modified: / 19.6.1998 / 00:02:55 / cg"
0595db55a829 preps for delayedMenu Claus Gittinger <cg@exept.de> parents: 1568 diff changeset	589	!
0595db55a829 preps for delayedMenu Claus Gittinger <cg@exept.de> parents: 1568 diff changeset	590
0595db55a829 preps for delayedMenu Claus Gittinger <cg@exept.de> parents: 1568 diff changeset	591	label:aString
0595db55a829 preps for delayedMenu Claus Gittinger <cg@exept.de> parents: 1568 diff changeset	592	label := aString
0595db55a829 preps for delayedMenu Claus Gittinger <cg@exept.de> parents: 1568 diff changeset	593
0595db55a829 preps for delayedMenu Claus Gittinger <cg@exept.de> parents: 1568 diff changeset	594	"Created: 25.2.1997 / 19:55:16 / cg"
0595db55a829 preps for delayedMenu Claus Gittinger <cg@exept.de> parents: 1568 diff changeset	595	!
0595db55a829 preps for delayedMenu Claus Gittinger <cg@exept.de> parents: 1568 diff changeset	596
1643 e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	597	label:aString icon:anImage
e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	598	self label:aString.
e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	599	self resourceRetriever: (ResourceRetriever icon:anImage string:'')
1595 0595db55a829 preps for delayedMenu Claus Gittinger <cg@exept.de> parents: 1568 diff changeset	600	!
0595db55a829 preps for delayedMenu Claus Gittinger <cg@exept.de> parents: 1568 diff changeset	601
0595db55a829 preps for delayedMenu Claus Gittinger <cg@exept.de> parents: 1568 diff changeset	602	startGroup
2264 8736ee5ec90e new startGroup value: #conditionalRight Claus Gittinger <cg@exept.de> parents: 2263 diff changeset	603	"start group #left #right #conditionalRight ... or nil
8736ee5ec90e new startGroup value: #conditionalRight Claus Gittinger <cg@exept.de> parents: 2263 diff changeset	604	at the moment only #right and #conditionalRight are implemented"
8736ee5ec90e new startGroup value: #conditionalRight Claus Gittinger <cg@exept.de> parents: 2263 diff changeset	605
1595 0595db55a829 preps for delayedMenu Claus Gittinger <cg@exept.de> parents: 1568 diff changeset	606	^ startGroup ? #left
2264 8736ee5ec90e new startGroup value: #conditionalRight Claus Gittinger <cg@exept.de> parents: 2263 diff changeset	607
8736ee5ec90e new startGroup value: #conditionalRight Claus Gittinger <cg@exept.de> parents: 2263 diff changeset	608	"Modified: / 16-10-2006 / 13:05:52 / cg"
1595 0595db55a829 preps for delayedMenu Claus Gittinger <cg@exept.de> parents: 1568 diff changeset	609	!
752 93690dcd1b75 button and label translation support added. tz parents: 724 diff changeset	610
1595 0595db55a829 preps for delayedMenu Claus Gittinger <cg@exept.de> parents: 1568 diff changeset	611	startGroup:aSymbol
2264 8736ee5ec90e new startGroup value: #conditionalRight Claus Gittinger <cg@exept.de> parents: 2263 diff changeset	612	"start group #left #right #conditionalRight ...
8736ee5ec90e new startGroup value: #conditionalRight Claus Gittinger <cg@exept.de> parents: 2263 diff changeset	613	at the moment only #right and #conditionalRight are implemented.
8736ee5ec90e new startGroup value: #conditionalRight Claus Gittinger <cg@exept.de> parents: 2263 diff changeset	614	The meanings are:
8736ee5ec90e new startGroup value: #conditionalRight Claus Gittinger <cg@exept.de> parents: 2263 diff changeset	615	nil - default under control of the menu
8736ee5ec90e new startGroup value: #conditionalRight Claus Gittinger <cg@exept.de> parents: 2263 diff changeset	616	#left - left align
8736ee5ec90e new startGroup value: #conditionalRight Claus Gittinger <cg@exept.de> parents: 2263 diff changeset	617	#right - place at the right far end
8736ee5ec90e new startGroup value: #conditionalRight Claus Gittinger <cg@exept.de> parents: 2263 diff changeset	618	#conditionalRight - controlled by a styleSheet variable;
8736ee5ec90e new startGroup value: #conditionalRight Claus Gittinger <cg@exept.de> parents: 2263 diff changeset	619	like #right under all non-win32 systems,
8736ee5ec90e new startGroup value: #conditionalRight Claus Gittinger <cg@exept.de> parents: 2263 diff changeset	620	ignored on win32.
8736ee5ec90e new startGroup value: #conditionalRight Claus Gittinger <cg@exept.de> parents: 2263 diff changeset	621	Use with help-menu, which should be at the far right on some
8736ee5ec90e new startGroup value: #conditionalRight Claus Gittinger <cg@exept.de> parents: 2263 diff changeset	622	viewStyles, but not under win32.
1595 0595db55a829 preps for delayedMenu Claus Gittinger <cg@exept.de> parents: 1568 diff changeset	623	"
2264 8736ee5ec90e new startGroup value: #conditionalRight Claus Gittinger <cg@exept.de> parents: 2263 diff changeset	624
8736ee5ec90e new startGroup value: #conditionalRight Claus Gittinger <cg@exept.de> parents: 2263 diff changeset	625	(self class supportedStartGroupValues includes:aSymbol) ifTrue:[
1595 0595db55a829 preps for delayedMenu Claus Gittinger <cg@exept.de> parents: 1568 diff changeset	626	startGroup := aSymbol
0595db55a829 preps for delayedMenu Claus Gittinger <cg@exept.de> parents: 1568 diff changeset	627	] ifFalse:[
0595db55a829 preps for delayedMenu Claus Gittinger <cg@exept.de> parents: 1568 diff changeset	628	self warn:('unsupported group: ', aSymbol printString ).
0595db55a829 preps for delayedMenu Claus Gittinger <cg@exept.de> parents: 1568 diff changeset	629	startGroup := #left
0595db55a829 preps for delayedMenu Claus Gittinger <cg@exept.de> parents: 1568 diff changeset	630	]
2263 30cf468f47ca new startGroup value: #conditionalRight Claus Gittinger <cg@exept.de> parents: 2125 diff changeset	631
2264 8736ee5ec90e new startGroup value: #conditionalRight Claus Gittinger <cg@exept.de> parents: 2263 diff changeset	632	"Modified: / 16-10-2006 / 13:09:45 / cg"
581 0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	633	! !
0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	634
1333 423b4b4404c4 avoid creating an adornment (when nil adornment values are stored) Claus Gittinger <cg@exept.de> parents: 1329 diff changeset	635	!MenuItem methodsFor:'accessing-resource'!
581 0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	636
584 9a4c30f7586f ST-80 compatible features addded ca parents: 581 diff changeset	637	findGuiResourcesIn:aResourceContainerOrApplication
581 0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	638	"setup a resource container
0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	639	"
1425 b2db2ec8a083 checkin from browser Claus Gittinger <cg@exept.de> parents: 1409 diff changeset	640	^ self findGuiResourcesIn:aResourceContainerOrApplication rememberResourcesIn:nil
1401 0fda9891ba4a only ask once for resources (remember locally) Claus Gittinger <cg@exept.de> parents: 1370 diff changeset	641	!
0fda9891ba4a only ask once for resources (remember locally) Claus Gittinger <cg@exept.de> parents: 1370 diff changeset	642
0fda9891ba4a only ask once for resources (remember locally) Claus Gittinger <cg@exept.de> parents: 1370 diff changeset	643	findGuiResourcesIn:aResourceContainerOrApplication rememberResourcesIn:aValueHolderOrNil
0fda9891ba4a only ask once for resources (remember locally) Claus Gittinger <cg@exept.de> parents: 1370 diff changeset	644	"setup a resource container
0fda9891ba4a only ask once for resources (remember locally) Claus Gittinger <cg@exept.de> parents: 1370 diff changeset	645	"
1643 e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	646	\|retriever m\|
1401 0fda9891ba4a only ask once for resources (remember locally) Claus Gittinger <cg@exept.de> parents: 1370 diff changeset	647
1986 f819e439d917 * empty log message * ca parents: 1885 diff changeset	648	(aResourceContainerOrApplication isNil or:[self isMenuSlice]) ifTrue:[
f819e439d917 * empty log message * ca parents: 1885 diff changeset	649	^ self.
f819e439d917 * empty log message * ca parents: 1885 diff changeset	650	].
f819e439d917 * empty log message * ca parents: 1885 diff changeset	651
2412 3f11e716f802 Do not try to translate separators Stefan Vogel <sv@exept.de> parents: 2293 diff changeset	652	(self translateLabel and:[label ~= '-']) ifTrue:[
1401 0fda9891ba4a only ask once for resources (remember locally) Claus Gittinger <cg@exept.de> parents: 1370 diff changeset	653	label := ResourceRetriever
0fda9891ba4a only ask once for resources (remember locally) Claus Gittinger <cg@exept.de> parents: 1370 diff changeset	654	findResourceLabel:label
0fda9891ba4a only ask once for resources (remember locally) Claus Gittinger <cg@exept.de> parents: 1370 diff changeset	655	in:aResourceContainerOrApplication
2018 5a6446cf5079 * empty log message * Claus Gittinger <cg@exept.de> parents: 1990 diff changeset	656	rememberResourcesIn:aValueHolderOrNil.
1401 0fda9891ba4a only ask once for resources (remember locally) Claus Gittinger <cg@exept.de> parents: 1370 diff changeset	657	].
0fda9891ba4a only ask once for resources (remember locally) Claus Gittinger <cg@exept.de> parents: 1370 diff changeset	658
1643 e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	659	(retriever := self resourceRetriever) notNil ifTrue:[
e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	660	retriever findGuiResourcesIn:aResourceContainerOrApplication.
e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	661	retriever labelText notNil ifTrue: [retriever labelText: label].
e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	662	].
e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	663	(m := self submenu) notNil ifTrue:[
e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	664	m := m value.
e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	665	m notNil ifTrue:[
e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	666	m findGuiResourcesIn:aResourceContainerOrApplication rememberResourcesIn:aValueHolderOrNil
e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	667	]
1401 0fda9891ba4a only ask once for resources (remember locally) Claus Gittinger <cg@exept.de> parents: 1370 diff changeset	668	]
0fda9891ba4a only ask once for resources (remember locally) Claus Gittinger <cg@exept.de> parents: 1370 diff changeset	669
0fda9891ba4a only ask once for resources (remember locally) Claus Gittinger <cg@exept.de> parents: 1370 diff changeset	670	"Modified: / 18.6.1998 / 16:54:25 / cg"
1986 f819e439d917 * empty log message * ca parents: 1885 diff changeset	671	!
f819e439d917 * empty log message * ca parents: 1885 diff changeset	672
f819e439d917 * empty log message * ca parents: 1885 diff changeset	673	receiver:aReceiver perform:aSelector with:anArgument ifNone:aBlock
f819e439d917 * empty log message * ca parents: 1885 diff changeset	674	"send the one-arg-message aSelector to the application;
f819e439d917 * empty log message * ca parents: 1885 diff changeset	675	the result returned from the send or nil is returned
f819e439d917 * empty log message * ca parents: 1885 diff changeset	676	"
f819e439d917 * empty log message * ca parents: 1885 diff changeset	677	\|result\|
f819e439d917 * empty log message * ca parents: 1885 diff changeset	678
f819e439d917 * empty log message * ca parents: 1885 diff changeset	679	MessageNotUnderstood handle:[:ex\|
f819e439d917 * empty log message * ca parents: 1885 diff changeset	680	ex selector ~~ aSelector ifTrue:[
f819e439d917 * empty log message * ca parents: 1885 diff changeset	681	ex reject
f819e439d917 * empty log message * ca parents: 1885 diff changeset	682	].
f819e439d917 * empty log message * ca parents: 1885 diff changeset	683	result := aBlock value.
f819e439d917 * empty log message * ca parents: 1885 diff changeset	684	] do:[
f819e439d917 * empty log message * ca parents: 1885 diff changeset	685	aSelector numArgs == 0 ifTrue:[
f819e439d917 * empty log message * ca parents: 1885 diff changeset	686	result := aReceiver perform:aSelector.
f819e439d917 * empty log message * ca parents: 1885 diff changeset	687	] ifFalse:[
f819e439d917 * empty log message * ca parents: 1885 diff changeset	688	result := aReceiver perform:aSelector with:anArgument.
f819e439d917 * empty log message * ca parents: 1885 diff changeset	689	].
f819e439d917 * empty log message * ca parents: 1885 diff changeset	690	].
f819e439d917 * empty log message * ca parents: 1885 diff changeset	691	^ result
f819e439d917 * empty log message * ca parents: 1885 diff changeset	692	!
f819e439d917 * empty log message * ca parents: 1885 diff changeset	693
f819e439d917 * empty log message * ca parents: 1885 diff changeset	694	resolveSliceMenuItemsIn:aReceiver rememberResourcesIn:aValueHolderOrNil
f819e439d917 * empty log message * ca parents: 1885 diff changeset	695	\|menu\|
f819e439d917 * empty log message * ca parents: 1885 diff changeset	696
f819e439d917 * empty log message * ca parents: 1885 diff changeset	697	self isMenuSlice ifFalse:[
f819e439d917 * empty log message * ca parents: 1885 diff changeset	698	self error:'not a slice menu'.
f819e439d917 * empty log message * ca parents: 1885 diff changeset	699	^ Array with:self.
f819e439d917 * empty log message * ca parents: 1885 diff changeset	700	].
f819e439d917 * empty log message * ca parents: 1885 diff changeset	701
f819e439d917 * empty log message * ca parents: 1885 diff changeset	702	aReceiver isNil ifTrue:[
f819e439d917 * empty log message * ca parents: 1885 diff changeset	703	^ nil
f819e439d917 * empty log message * ca parents: 1885 diff changeset	704	].
f819e439d917 * empty log message * ca parents: 1885 diff changeset	705	menu := self receiver:aReceiver perform:submenuChannel with:argument
2036 f8e99bb346e4 * empty log message * penk parents: 2033 diff changeset	706	ifNone:[
f8e99bb346e4 * empty log message * penk parents: 2033 diff changeset	707	self receiver:(aReceiver class) perform:submenuChannel with:argument
f8e99bb346e4 * empty log message * penk parents: 2033 diff changeset	708	ifNone:[
2060 7bda88c4fff1 * empty log message * Claus Gittinger <cg@exept.de> parents: 2059 diff changeset	709	"/ ('MenuItem [info]: no aspect for slice ',submenuChannel) infoPrintCR.
2036 f8e99bb346e4 * empty log message * penk parents: 2033 diff changeset	710	nil
f8e99bb346e4 * empty log message * penk parents: 2033 diff changeset	711	].
f8e99bb346e4 * empty log message * penk parents: 2033 diff changeset	712	].
1986 f819e439d917 * empty log message * ca parents: 1885 diff changeset	713
f819e439d917 * empty log message * ca parents: 1885 diff changeset	714	menu := menu value.
2033 a9ed3856e834 * empty log message * james parents: 2018 diff changeset	715	menu isNil ifTrue:[^ nil].
1986 f819e439d917 * empty log message * ca parents: 1885 diff changeset	716
2292 d7b06b31d72b use decodeFromLiteralArray Claus Gittinger <cg@exept.de> parents: 2268 diff changeset	717	menu isCollection ifTrue:[
d7b06b31d72b use decodeFromLiteralArray Claus Gittinger <cg@exept.de> parents: 2268 diff changeset	718	menu := Menu decodeFromLiteralArray:menu.
1986 f819e439d917 * empty log message * ca parents: 1885 diff changeset	719	].
f819e439d917 * empty log message * ca parents: 1885 diff changeset	720	menu findGuiResourcesIn:aReceiver rememberResourcesIn:aValueHolderOrNil.
f819e439d917 * empty log message * ca parents: 1885 diff changeset	721	^ menu items
2268 a947e7f7a28f resolveGUIResources no longer sets the receiver recursively Claus Gittinger <cg@exept.de> parents: 2264 diff changeset	722
2293 bd71da1fd58a changed #resolveSliceMenuItemsIn:rememberResourcesIn: Claus Gittinger <cg@exept.de> parents: 2292 diff changeset	723	"Modified: / 27-03-2007 / 11:20:43 / cg"
579 77f6d490f1ac so far, so good ca parents: 578 diff changeset	724	! !
77f6d490f1ac so far, so good ca parents: 578 diff changeset	725
451 95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	726	!MenuItem methodsFor:'converting'!
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	727
1646 da8d044c7c0d value - itemValue Claus Gittinger <cg@exept.de> parents: 1643 diff changeset	728	skippedInLiteralEncoding
da8d044c7c0d value - itemValue Claus Gittinger <cg@exept.de> parents: 1643 diff changeset	729	\|coll\|
da8d044c7c0d value - itemValue Claus Gittinger <cg@exept.de> parents: 1643 diff changeset	730
da8d044c7c0d value - itemValue Claus Gittinger <cg@exept.de> parents: 1643 diff changeset	731	coll := super skippedInLiteralEncoding asOrderedCollection.
da8d044c7c0d value - itemValue Claus Gittinger <cg@exept.de> parents: 1643 diff changeset	732
da8d044c7c0d value - itemValue Claus Gittinger <cg@exept.de> parents: 1643 diff changeset	733	label isNil ifTrue:[ coll add:#label ].
1647 812a15f000e7 literalArrayEncoding Claus Gittinger <cg@exept.de> parents: 1646 diff changeset	734	(translateLabel isNil or:[#('' '-' '=') includes:label]) ifTrue:[ coll add:#translateLabel ].
1646 da8d044c7c0d value - itemValue Claus Gittinger <cg@exept.de> parents: 1643 diff changeset	735	self isButton ifFalse:[ coll add:#isButton ].
da8d044c7c0d value - itemValue Claus Gittinger <cg@exept.de> parents: 1643 diff changeset	736	self triggerOnDown ifFalse:[ coll add:#triggerOnDown ].
da8d044c7c0d value - itemValue Claus Gittinger <cg@exept.de> parents: 1643 diff changeset	737	self hideMenuOnActivated ifTrue:[ coll add:#hideMenuOnActivated].
da8d044c7c0d value - itemValue Claus Gittinger <cg@exept.de> parents: 1643 diff changeset	738	nameKey isNil ifTrue:[ coll add:#nameKey ].
1658 9524b83860db suppress true in isVisible field of MenuEditor Claus Gittinger <cg@exept.de> parents: 1655 diff changeset	739	(self isVisible ? true) ifTrue:[coll add:#isVisible].
1646 da8d044c7c0d value - itemValue Claus Gittinger <cg@exept.de> parents: 1643 diff changeset	740	(startGroup isNil or:[startGroup == #left]) ifTrue:[coll add:#startGroup].
da8d044c7c0d value - itemValue Claus Gittinger <cg@exept.de> parents: 1643 diff changeset	741	itemValue isNil ifTrue:[ coll add:#itemValue].
da8d044c7c0d value - itemValue Claus Gittinger <cg@exept.de> parents: 1643 diff changeset	742	activeHelpKey isNil ifTrue:[ coll add:#activeHelpKey].
da8d044c7c0d value - itemValue Claus Gittinger <cg@exept.de> parents: 1643 diff changeset	743	enabled == true "could be a symbol" ifTrue:[ coll add:#enabled].
da8d044c7c0d value - itemValue Claus Gittinger <cg@exept.de> parents: 1643 diff changeset	744	shortcutKey isNil ifTrue:[ coll add:#shortcutKeyCharacter].
da8d044c7c0d value - itemValue Claus Gittinger <cg@exept.de> parents: 1643 diff changeset	745	font isNil ifTrue:[ coll add:#font].
da8d044c7c0d value - itemValue Claus Gittinger <cg@exept.de> parents: 1643 diff changeset	746	accessCharacterPosition isNil ifTrue:[coll add:#accessCharacterPosition].
1990 dca233a39477 horizontalLayout bug Claus Gittinger <cg@exept.de> parents: 1986 diff changeset	747	self horizontalLayout ifFalse:[coll add:#horizontalLayout].
1646 da8d044c7c0d value - itemValue Claus Gittinger <cg@exept.de> parents: 1643 diff changeset	748	self showBusyCursorWhilePerforming ifFalse:[ coll add:#showBusyCursorWhilePerforming ].
da8d044c7c0d value - itemValue Claus Gittinger <cg@exept.de> parents: 1643 diff changeset	749	argument isNil ifTrue:[ coll add:#argument].
da8d044c7c0d value - itemValue Claus Gittinger <cg@exept.de> parents: 1643 diff changeset	750	self resourceRetriever isNil ifTrue:[ coll add:#resourceRetriever].
da8d044c7c0d value - itemValue Claus Gittinger <cg@exept.de> parents: 1643 diff changeset	751	indication isNil ifTrue:[ coll add:#indication].
da8d044c7c0d value - itemValue Claus Gittinger <cg@exept.de> parents: 1643 diff changeset	752	choice isNil ifTrue:[coll add:#choice].
da8d044c7c0d value - itemValue Claus Gittinger <cg@exept.de> parents: 1643 diff changeset	753	choiceValue isNil ifTrue:[ coll add:#choiceValue].
da8d044c7c0d value - itemValue Claus Gittinger <cg@exept.de> parents: 1643 diff changeset	754	auxValue isNil ifTrue:[ coll add:#auxValue ].
da8d044c7c0d value - itemValue Claus Gittinger <cg@exept.de> parents: 1643 diff changeset	755	submenuChannel isNil ifTrue:[ coll add:#submenuChannel].
da8d044c7c0d value - itemValue Claus Gittinger <cg@exept.de> parents: 1643 diff changeset	756	self keepLinkedMenu ifFalse:[ coll add:#keepLinkedMenu].
da8d044c7c0d value - itemValue Claus Gittinger <cg@exept.de> parents: 1643 diff changeset	757	submenu value isNil ifTrue:[coll add:#submenu ].
1651 429e02e097d9 can now specify if menu action is to be performed by ca parents: 1649 diff changeset	758	self sendToOriginator ifFalse:[coll add:#sendToOriginator ].
1646 da8d044c7c0d value - itemValue Claus Gittinger <cg@exept.de> parents: 1643 diff changeset	759
1885 860b47f2535f support ignoreShortcutKeys and ignoreMnemonicKeys in Editor ca parents: 1884 diff changeset	760	self ignoreShortcutKeys ifFalse:[coll add:#ignoreShortcutKeys ].
860b47f2535f support ignoreShortcutKeys and ignoreMnemonicKeys in Editor ca parents: 1884 diff changeset	761	self ignoreMnemonicKeys ifFalse:[coll add:#ignoreMnemonicKeys ].
1884 4b317db4d387 support of ignoreShortcutKeys and ignoreMnemonicKeys ca parents: 1763 diff changeset	762
1986 f819e439d917 * empty log message * ca parents: 1885 diff changeset	763	self isMenuSlice ifFalse:[coll add:#isMenuSlice].
1884 4b317db4d387 support of ignoreShortcutKeys and ignoreMnemonicKeys ca parents: 1763 diff changeset	764
1646 da8d044c7c0d value - itemValue Claus Gittinger <cg@exept.de> parents: 1643 diff changeset	765	^ coll
451 95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	766	! !
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	767
1643 e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	768	!MenuItem methodsFor:'encoding & decoding'!
e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	769
e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	770	fromLiteralArrayEncoding:aLiteralEncodedArray
e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	771	"read my contents from a aLiteralEncodedArray"
e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	772
2047 f3b5fa8cd08e * empty log message * Claus Gittinger <cg@exept.de> parents: 2040 diff changeset	773	\|selector value retriever\|
1643 e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	774
e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	775	2 to:aLiteralEncodedArray size by:2 do:[:i \|
e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	776	selector := aLiteralEncodedArray at:i.
e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	777	value := (aLiteralEncodedArray at:i+1).
e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	778	selector == #argument: ifFalse:[
e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	779	value := value decodeAsLiteralArray
e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	780	].
e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	781	self perform:selector with:value
e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	782	].
2047 f3b5fa8cd08e * empty log message * Claus Gittinger <cg@exept.de> parents: 2040 diff changeset	783	"/ kludge in case someone forgets to call findGUIResourcesIn:
f3b5fa8cd08e * empty log message * Claus Gittinger <cg@exept.de> parents: 2040 diff changeset	784	(retriever := self resourceRetriever) notNil ifTrue:[
f3b5fa8cd08e * empty log message * Claus Gittinger <cg@exept.de> parents: 2040 diff changeset	785	retriever labelText notNil ifTrue: [retriever labelText: label].
f3b5fa8cd08e * empty log message * Claus Gittinger <cg@exept.de> parents: 2040 diff changeset	786	].
1643 e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	787
e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	788	"
e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	789	#( #MenuItem #rawLabel: 'left' #nameKey: 'identifier' #value: #left )
e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	790	decodeAsLiteralArray
e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	791	"
e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	792
e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	793	"Modified: / 4.2.2000 / 12:50:28 / cg"
e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	794	! !
e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	795
2736 4798b0251087 * empty log message * Claus Gittinger <cg@exept.de> parents: 2548 diff changeset	796	!MenuItem ignoredMethodsFor:'printing & storing'!
4798b0251087 * empty log message * Claus Gittinger <cg@exept.de> parents: 2548 diff changeset	797
4798b0251087 * empty log message * Claus Gittinger <cg@exept.de> parents: 2548 diff changeset	798	displayString
4798b0251087 * empty log message * Claus Gittinger <cg@exept.de> parents: 2548 diff changeset	799	<resource: #obsolete>
4798b0251087 * empty log message * Claus Gittinger <cg@exept.de> parents: 2548 diff changeset	800	^ self classNameWithArticle , '(' , label storeString , ')'
4798b0251087 * empty log message * Claus Gittinger <cg@exept.de> parents: 2548 diff changeset	801	! !
4798b0251087 * empty log message * Claus Gittinger <cg@exept.de> parents: 2548 diff changeset	802
1329 b56172875855 nicer displayString Claus Gittinger <cg@exept.de> parents: 1328 diff changeset	803	!MenuItem methodsFor:'printing & storing'!
b56172875855 nicer displayString Claus Gittinger <cg@exept.de> parents: 1328 diff changeset	804
2736 4798b0251087 * empty log message * Claus Gittinger <cg@exept.de> parents: 2548 diff changeset	805	printOn:aStream
4798b0251087 * empty log message * Claus Gittinger <cg@exept.de> parents: 2548 diff changeset	806	aStream nextPutAll:self classNameWithArticle.
4798b0251087 * empty log message * Claus Gittinger <cg@exept.de> parents: 2548 diff changeset	807	aStream nextPutAll:'('.
4798b0251087 * empty log message * Claus Gittinger <cg@exept.de> parents: 2548 diff changeset	808	aStream nextPutAll:label storeString.
4798b0251087 * empty log message * Claus Gittinger <cg@exept.de> parents: 2548 diff changeset	809	aStream nextPutAll:')'
1329 b56172875855 nicer displayString Claus Gittinger <cg@exept.de> parents: 1328 diff changeset	810	! !
b56172875855 nicer displayString Claus Gittinger <cg@exept.de> parents: 1328 diff changeset	811
1761 18ec27a0300e method category rename Claus Gittinger <cg@exept.de> parents: 1664 diff changeset	812	!MenuItem methodsFor:'private-accessing'!
458 729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	813
973 cd6b8d08c9c9 submenu item send #value. Claus Gittinger <cg@exept.de> parents: 960 diff changeset	814	filteredLabel
cd6b8d08c9c9 submenu item send #value. Claus Gittinger <cg@exept.de> parents: 960 diff changeset	815	"return the label without any &-chars"
cd6b8d08c9c9 submenu item send #value. Claus Gittinger <cg@exept.de> parents: 960 diff changeset	816
985 5a5b476cfd6b care for Text & images in rawLabel, when filtering. Claus Gittinger <cg@exept.de> parents: 973 diff changeset	817	\|rawLabel l in out c pos emp e\|
5a5b476cfd6b care for Text & images in rawLabel, when filtering. Claus Gittinger <cg@exept.de> parents: 973 diff changeset	818
5a5b476cfd6b care for Text & images in rawLabel, when filtering. Claus Gittinger <cg@exept.de> parents: 973 diff changeset	819	rawLabel := self rawLabel.
5a5b476cfd6b care for Text & images in rawLabel, when filtering. Claus Gittinger <cg@exept.de> parents: 973 diff changeset	820	rawLabel isString ifFalse:[^ rawLabel].
5a5b476cfd6b care for Text & images in rawLabel, when filtering. Claus Gittinger <cg@exept.de> parents: 973 diff changeset	821
5a5b476cfd6b care for Text & images in rawLabel, when filtering. Claus Gittinger <cg@exept.de> parents: 973 diff changeset	822	"/ be careful to preserve any emphasis ...
5a5b476cfd6b care for Text & images in rawLabel, when filtering. Claus Gittinger <cg@exept.de> parents: 973 diff changeset	823	"/ bad kludge ...
5a5b476cfd6b care for Text & images in rawLabel, when filtering. Claus Gittinger <cg@exept.de> parents: 973 diff changeset	824	rawLabel isText ifTrue:[
5a5b476cfd6b care for Text & images in rawLabel, when filtering. Claus Gittinger <cg@exept.de> parents: 973 diff changeset	825	emp := RunArray new.
5a5b476cfd6b care for Text & images in rawLabel, when filtering. Claus Gittinger <cg@exept.de> parents: 973 diff changeset	826	].
973 cd6b8d08c9c9 submenu item send #value. Claus Gittinger <cg@exept.de> parents: 960 diff changeset	827
cd6b8d08c9c9 submenu item send #value. Claus Gittinger <cg@exept.de> parents: 960 diff changeset	828	out := WriteStream on:''.
985 5a5b476cfd6b care for Text & images in rawLabel, when filtering. Claus Gittinger <cg@exept.de> parents: 973 diff changeset	829	in := rawLabel readStream.
973 cd6b8d08c9c9 submenu item send #value. Claus Gittinger <cg@exept.de> parents: 960 diff changeset	830	[in atEnd] whileFalse:[
985 5a5b476cfd6b care for Text & images in rawLabel, when filtering. Claus Gittinger <cg@exept.de> parents: 973 diff changeset	831	emp notNil ifTrue:[
5a5b476cfd6b care for Text & images in rawLabel, when filtering. Claus Gittinger <cg@exept.de> parents: 973 diff changeset	832	e := rawLabel emphasisAt:(in position).
5a5b476cfd6b care for Text & images in rawLabel, when filtering. Claus Gittinger <cg@exept.de> parents: 973 diff changeset	833	].
973 cd6b8d08c9c9 submenu item send #value. Claus Gittinger <cg@exept.de> parents: 960 diff changeset	834	c := in next.
2040 98d3508fd6e1 care for Unicode-Strings. Claus Gittinger <cg@exept.de> parents: 2036 diff changeset	835	c bitsPerCharacter > out collection bitsPerCharacter ifTrue:[
98d3508fd6e1 care for Unicode-Strings. Claus Gittinger <cg@exept.de> parents: 2036 diff changeset	836	out setCollection:(c stringSpecies fromString:out collection).
98d3508fd6e1 care for Unicode-Strings. Claus Gittinger <cg@exept.de> parents: 2036 diff changeset	837	].
973 cd6b8d08c9c9 submenu item send #value. Claus Gittinger <cg@exept.de> parents: 960 diff changeset	838	c == $& ifTrue:[
cd6b8d08c9c9 submenu item send #value. Claus Gittinger <cg@exept.de> parents: 960 diff changeset	839	in peek == $& ifTrue:[
985 5a5b476cfd6b care for Text & images in rawLabel, when filtering. Claus Gittinger <cg@exept.de> parents: 973 diff changeset	840	out nextPut:c.
5a5b476cfd6b care for Text & images in rawLabel, when filtering. Claus Gittinger <cg@exept.de> parents: 973 diff changeset	841	emp notNil ifTrue:[
5a5b476cfd6b care for Text & images in rawLabel, when filtering. Claus Gittinger <cg@exept.de> parents: 973 diff changeset	842	emp add:e
5a5b476cfd6b care for Text & images in rawLabel, when filtering. Claus Gittinger <cg@exept.de> parents: 973 diff changeset	843	]
973 cd6b8d08c9c9 submenu item send #value. Claus Gittinger <cg@exept.de> parents: 960 diff changeset	844	]
cd6b8d08c9c9 submenu item send #value. Claus Gittinger <cg@exept.de> parents: 960 diff changeset	845	] ifFalse:[
985 5a5b476cfd6b care for Text & images in rawLabel, when filtering. Claus Gittinger <cg@exept.de> parents: 973 diff changeset	846	out nextPut:c.
5a5b476cfd6b care for Text & images in rawLabel, when filtering. Claus Gittinger <cg@exept.de> parents: 973 diff changeset	847	emp notNil ifTrue:[
5a5b476cfd6b care for Text & images in rawLabel, when filtering. Claus Gittinger <cg@exept.de> parents: 973 diff changeset	848	emp add:e
5a5b476cfd6b care for Text & images in rawLabel, when filtering. Claus Gittinger <cg@exept.de> parents: 973 diff changeset	849	]
973 cd6b8d08c9c9 submenu item send #value. Claus Gittinger <cg@exept.de> parents: 960 diff changeset	850	]
cd6b8d08c9c9 submenu item send #value. Claus Gittinger <cg@exept.de> parents: 960 diff changeset	851	].
985 5a5b476cfd6b care for Text & images in rawLabel, when filtering. Claus Gittinger <cg@exept.de> parents: 973 diff changeset	852	l := out contents.
5a5b476cfd6b care for Text & images in rawLabel, when filtering. Claus Gittinger <cg@exept.de> parents: 973 diff changeset	853	emp notNil ifTrue:[
5a5b476cfd6b care for Text & images in rawLabel, when filtering. Claus Gittinger <cg@exept.de> parents: 973 diff changeset	854	^ Text string:l emphasisCollection:emp
5a5b476cfd6b care for Text & images in rawLabel, when filtering. Claus Gittinger <cg@exept.de> parents: 973 diff changeset	855	].
5a5b476cfd6b care for Text & images in rawLabel, when filtering. Claus Gittinger <cg@exept.de> parents: 973 diff changeset	856	^ l.
973 cd6b8d08c9c9 submenu item send #value. Claus Gittinger <cg@exept.de> parents: 960 diff changeset	857
cd6b8d08c9c9 submenu item send #value. Claus Gittinger <cg@exept.de> parents: 960 diff changeset	858	"Created: / 19.6.1998 / 00:02:10 / cg"
985 5a5b476cfd6b care for Text & images in rawLabel, when filtering. Claus Gittinger <cg@exept.de> parents: 973 diff changeset	859	"Modified: / 20.6.1998 / 17:15:18 / cg"
458 729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	860	! !
729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	861
579 77f6d490f1ac so far, so good ca parents: 578 diff changeset	862	!MenuItem methodsFor:'queries'!
77f6d490f1ac so far, so good ca parents: 578 diff changeset	863
1041 d28f0375cd26 added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	864	hasChoice
d28f0375cd26 added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	865	"test whether choice exists
d28f0375cd26 added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	866	"
d28f0375cd26 added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	867	^ self choice notNil
d28f0375cd26 added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	868
d28f0375cd26 added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	869	"Created: / 14.8.1998 / 14:34:29 / cg"
d28f0375cd26 added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	870	!
d28f0375cd26 added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	871
590 fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	872	hasIndication
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	873	"test whether indication on/off exists
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	874	"
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	875	^ self indication notNil
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	876	!
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	877
579 77f6d490f1ac so far, so good ca parents: 578 diff changeset	878	hasSubmenu
584 9a4c30f7586f ST-80 compatible features addded ca parents: 581 diff changeset	879	^ self submenu notNil
579 77f6d490f1ac so far, so good ca parents: 578 diff changeset	880
77f6d490f1ac so far, so good ca parents: 578 diff changeset	881	"Created: 25.2.1997 / 20:56:20 / cg"
77f6d490f1ac so far, so good ca parents: 578 diff changeset	882	!
77f6d490f1ac so far, so good ca parents: 578 diff changeset	883
77f6d490f1ac so far, so good ca parents: 578 diff changeset	884	isEnabled
581 0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	885	^ enabled value ? true
579 77f6d490f1ac so far, so good ca parents: 578 diff changeset	886
77f6d490f1ac so far, so good ca parents: 578 diff changeset	887	"Created: 25.2.1997 / 19:39:17 / cg"
590 fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	888	!
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	889
724 898519684261 more VW comaptibility Claus Gittinger <cg@exept.de> parents: 684 diff changeset	890	isHidden
898519684261 more VW comaptibility Claus Gittinger <cg@exept.de> parents: 684 diff changeset	891	"not yet supported"
898519684261 more VW comaptibility Claus Gittinger <cg@exept.de> parents: 684 diff changeset	892
898519684261 more VW comaptibility Claus Gittinger <cg@exept.de> parents: 684 diff changeset	893	^ false
898519684261 more VW comaptibility Claus Gittinger <cg@exept.de> parents: 684 diff changeset	894
898519684261 more VW comaptibility Claus Gittinger <cg@exept.de> parents: 684 diff changeset	895	"Created: / 27.10.1997 / 15:13:43 / cg"
898519684261 more VW comaptibility Claus Gittinger <cg@exept.de> parents: 684 diff changeset	896	!
898519684261 more VW comaptibility Claus Gittinger <cg@exept.de> parents: 684 diff changeset	897
1648 d49c84402011 add query #isMenuItem ca parents: 1647 diff changeset	898	isMenuItem
d49c84402011 add query #isMenuItem ca parents: 1647 diff changeset	899	^ true
d49c84402011 add query #isMenuItem ca parents: 1647 diff changeset	900	!
d49c84402011 add query #isMenuItem ca parents: 1647 diff changeset	901
1986 f819e439d917 * empty log message * ca parents: 1885 diff changeset	902	isMenuSlice
f819e439d917 * empty log message * ca parents: 1885 diff changeset	903	"returns true if the menu is a slice buildin its items
f819e439d917 * empty log message * ca parents: 1885 diff changeset	904	into its container menu
f819e439d917 * empty log message * ca parents: 1885 diff changeset	905	"
f819e439d917 * empty log message * ca parents: 1885 diff changeset	906	^ submenuChannel notNil and:[isMenuSlice == true].
f819e439d917 * empty log message * ca parents: 1885 diff changeset	907	!
f819e439d917 * empty log message * ca parents: 1885 diff changeset	908
590 fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	909	isOff
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	910	"test whether indication on/off exists and is off
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	911	"
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	912	\|indication\|
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	913
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	914	indication := self indication.
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	915	^ indication value == false
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	916	!
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	917
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	918	isOn
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	919	"test whether indication on/off exists and is on
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	920	"
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	921	\|indication\|
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	922
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	923	indication := self indication.
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	924	^ indication value == true
2122 4a0a8af7bd71 * empty log message * Claus Gittinger <cg@exept.de> parents: 2112 diff changeset	925	!
4a0a8af7bd71 * empty log message * Claus Gittinger <cg@exept.de> parents: 2112 diff changeset	926
4a0a8af7bd71 * empty log message * Claus Gittinger <cg@exept.de> parents: 2112 diff changeset	927	isSeparatorItem
4a0a8af7bd71 * empty log message * Claus Gittinger <cg@exept.de> parents: 2112 diff changeset	928	^ #('' '-' '=') includes:label
4a0a8af7bd71 * empty log message * Claus Gittinger <cg@exept.de> parents: 2112 diff changeset	929
4a0a8af7bd71 * empty log message * Claus Gittinger <cg@exept.de> parents: 2112 diff changeset	930	"Created: 25.2.1997 / 19:39:17 / cg"
579 77f6d490f1ac so far, so good ca parents: 578 diff changeset	931	! !
77f6d490f1ac so far, so good ca parents: 578 diff changeset	932
451 95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	933	!MenuItem class methodsFor:'documentation'!
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	934
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	935	version
2736 4798b0251087 * empty log message * Claus Gittinger <cg@exept.de> parents: 2548 diff changeset	936	^ '$Header: /cvs/stx/stx/libview2/MenuItem.st,v 1.87 2009-09-07 18:45:59 cg Exp $'
451 95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	937	! !

author	Claus Gittinger <cg@exept.de>
	Mon, 07 Sep 2009 20:45:59 +0200
changeset 2736	4798b0251087
parent 2548	07251b4e7ac9
child 2755	231339e903eb
permissions	-rw-r--r--