hg/stx-libview2: MenuItem.st@d51c83a4268c (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	"
27897663fc97 docu & copyright Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	12
27897663fc97 docu & copyright Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	13
1369 281acc9f1a73 dont store choiceValue for non-choice items. Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	14	"{ Package: 'stx:libview2' }"
281acc9f1a73 dont store choiceValue for non-choice items. Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	15
451 95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	16	Object subclass:#MenuItem
752 93690dcd1b75 button and label translation support added. tz parents: 724 diff changeset	17	instanceVariableNames:'activeHelpKey enabled label value nameKey adornment
1409 d51c83a4268c implement: triggerOnDown ca parents: 1401 diff changeset	18	translateLabel isButton startGroup isVisible hideMenuOnActivated
d51c83a4268c implement: triggerOnDown ca parents: 1401 diff changeset	19	triggerOnDown'
451 95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	20	classVariableNames:''
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	21	poolDictionaries:''
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	22	category:'Views-Support'
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	23	!
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	24
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	25	Object subclass:#MenuItemAdornment
666 6e614a5d9248 add submenuChannel ca parents: 661 diff changeset	26	instanceVariableNames:'color indication submenu submenuChannel shortcutKey labelText
1213 a80ce81d2944 auxValue added tm parents: 1203 diff changeset	27	labelImage accessCharacterPosition argument choice choiceValue
1370 4d2a3cc1d3c7 allow views in subMenus ca parents: 1369 diff changeset	28	font auxValue showBusyCursorWhilePerforming keepLinkedMenu'
451 95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	29	classVariableNames:''
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	30	poolDictionaries:''
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	31	privateIn:MenuItem
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	32	!
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	33
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	34	!MenuItem class methodsFor:'documentation'!
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	35
1196 27897663fc97 docu & copyright Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	36	copyright
27897663fc97 docu & copyright Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	37	"
27897663fc97 docu & copyright Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	38	COPYRIGHT (c) 1998 by eXept Software AG
27897663fc97 docu & copyright Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	39	All Rights Reserved
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	This software is furnished under a license and may be used
27897663fc97 docu & copyright Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	42	only in accordance with the terms of that license and with the
27897663fc97 docu & copyright Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	43	inclusion of the above copyright notice. This software may not
27897663fc97 docu & copyright Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	44	be provided or otherwise made available to, or used by, any
27897663fc97 docu & copyright Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	45	other person. No title to or ownership of the software is
27897663fc97 docu & copyright Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	46	hereby transferred.
27897663fc97 docu & copyright Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	47	"
27897663fc97 docu & copyright Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	48
27897663fc97 docu & copyright Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	49	!
27897663fc97 docu & copyright Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	50
451 95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	51	documentation
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	52	"
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	53	not yet finished MenuItem class - this will eventually replace
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	54	most of the MenuView and PopUpMenu stuff.
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	55	(and hopefully be ST-80 compatible ...)
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	56
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	57	For now, only a subset of the full protocol is implemented.
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	58
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	59	[author:]
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	60	Claus Gittinger
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	61
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	62	[see also:]
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	63	MenuItem
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	64	PopUpMenu
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	65	"
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	66
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	67	! !
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	68
490 ebe88e50b29a * empty log message * ca parents: 458 diff changeset	69	!MenuItem class methodsFor:'instance creation'!
ebe88e50b29a * empty log message * ca parents: 458 diff changeset	70
1044 5ecf46d0f1b7 checkin from browser Claus Gittinger <cg@exept.de> parents: 1041 diff changeset	71	label:aString
5ecf46d0f1b7 checkin from browser Claus Gittinger <cg@exept.de> parents: 1041 diff changeset	72	"create and return a new menuItem, given a label string"
5ecf46d0f1b7 checkin from browser Claus Gittinger <cg@exept.de> parents: 1041 diff changeset	73
5ecf46d0f1b7 checkin from browser Claus Gittinger <cg@exept.de> parents: 1041 diff changeset	74	^ self new label:aString
5ecf46d0f1b7 checkin from browser Claus Gittinger <cg@exept.de> parents: 1041 diff changeset	75
5ecf46d0f1b7 checkin from browser Claus Gittinger <cg@exept.de> parents: 1041 diff changeset	76	"Modified: / 4.8.1998 / 17:33:13 / cg"
5ecf46d0f1b7 checkin from browser Claus Gittinger <cg@exept.de> parents: 1041 diff changeset	77	"Created: / 14.8.1998 / 19:19:14 / cg"
5ecf46d0f1b7 checkin from browser Claus Gittinger <cg@exept.de> parents: 1041 diff changeset	78	!
5ecf46d0f1b7 checkin from browser Claus Gittinger <cg@exept.de> parents: 1041 diff changeset	79
1030 3684379a1ac8 added inst-creation #label:value: Claus Gittinger <cg@exept.de> parents: 985 diff changeset	80	label:labelString value:selectorOrValue
3684379a1ac8 added inst-creation #label:value: Claus Gittinger <cg@exept.de> parents: 985 diff changeset	81	"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	82
3684379a1ac8 added inst-creation #label:value: Claus Gittinger <cg@exept.de> parents: 985 diff changeset	83	^ (self new) label:labelString; value:selectorOrValue; yourself
3684379a1ac8 added inst-creation #label:value: Claus Gittinger <cg@exept.de> parents: 985 diff changeset	84
3684379a1ac8 added inst-creation #label:value: Claus Gittinger <cg@exept.de> parents: 985 diff changeset	85	"Created: / 4.8.1998 / 17:34:18 / cg"
3684379a1ac8 added inst-creation #label:value: Claus Gittinger <cg@exept.de> parents: 985 diff changeset	86	!
3684379a1ac8 added inst-creation #label:value: Claus Gittinger <cg@exept.de> parents: 985 diff changeset	87
490 ebe88e50b29a * empty log message * ca parents: 458 diff changeset	88	labeled:aString
1030 3684379a1ac8 added inst-creation #label:value: Claus Gittinger <cg@exept.de> parents: 985 diff changeset	89	"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	90
490 ebe88e50b29a * empty log message * ca parents: 458 diff changeset	91	^ self new label:aString
1030 3684379a1ac8 added inst-creation #label:value: Claus Gittinger <cg@exept.de> parents: 985 diff changeset	92
3684379a1ac8 added inst-creation #label:value: Claus Gittinger <cg@exept.de> parents: 985 diff changeset	93	"Modified: / 4.8.1998 / 17:33:13 / cg"
490 ebe88e50b29a * empty log message * ca parents: 458 diff changeset	94	! !
ebe88e50b29a * empty log message * ca parents: 458 diff changeset	95
1306 afd1fcd217f4 category renamining Claus Gittinger <cg@exept.de> parents: 1249 diff changeset	96	!MenuItem methodsFor:'Compatibility - ST80'!
724 898519684261 more VW comaptibility Claus Gittinger <cg@exept.de> parents: 684 diff changeset	97
898519684261 more VW comaptibility Claus Gittinger <cg@exept.de> parents: 684 diff changeset	98	isEnabled:aBoolean
898519684261 more VW comaptibility Claus Gittinger <cg@exept.de> parents: 684 diff changeset	99	self enabled:aBoolean
898519684261 more VW comaptibility Claus Gittinger <cg@exept.de> parents: 684 diff changeset	100
898519684261 more VW comaptibility Claus Gittinger <cg@exept.de> parents: 684 diff changeset	101	"Created: / 27.10.1997 / 16:34:55 / cg"
898519684261 more VW comaptibility Claus Gittinger <cg@exept.de> parents: 684 diff changeset	102	! !
898519684261 more VW comaptibility Claus Gittinger <cg@exept.de> parents: 684 diff changeset	103
451 95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	104	!MenuItem methodsFor:'accessing'!
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	105
579 77f6d490f1ac so far, so good ca parents: 578 diff changeset	106	accessCharacterPosition
77f6d490f1ac so far, so good ca parents: 578 diff changeset	107	"get the index of the access character in the label text or string, or nil if none
77f6d490f1ac so far, so good ca parents: 578 diff changeset	108	"
77f6d490f1ac so far, so good ca parents: 578 diff changeset	109	adornment notNil ifTrue:[
77f6d490f1ac so far, so good ca parents: 578 diff changeset	110	^ adornment accessCharacterPosition
77f6d490f1ac so far, so good ca parents: 578 diff changeset	111	].
77f6d490f1ac so far, so good ca parents: 578 diff changeset	112	^ nil
451 95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	113	!
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	114
579 77f6d490f1ac so far, so good ca parents: 578 diff changeset	115	accessCharacterPosition:index
77f6d490f1ac so far, so good ca parents: 578 diff changeset	116	"set the index of the access character in the label text or string, or nil if none
77f6d490f1ac so far, so good ca parents: 578 diff changeset	117	"
77f6d490f1ac so far, so good ca parents: 578 diff changeset	118	(index isNil and:[adornment isNil]) ifFalse:[
77f6d490f1ac so far, so good ca parents: 578 diff changeset	119	self adornment accessCharacterPosition:index
77f6d490f1ac so far, so good ca parents: 578 diff changeset	120	]
451 95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	121	!
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	122
640 4e1c0d0a633b add active help for items ca parents: 590 diff changeset	123	activeHelpKey
4e1c0d0a633b add active help for items ca parents: 590 diff changeset	124	^ activeHelpKey
4e1c0d0a633b add active help for items ca parents: 590 diff changeset	125	!
4e1c0d0a633b add active help for items ca parents: 590 diff changeset	126
4e1c0d0a633b add active help for items ca parents: 590 diff changeset	127	activeHelpKey:aKey
4e1c0d0a633b add active help for items ca parents: 590 diff changeset	128	activeHelpKey := aKey
4e1c0d0a633b add active help for items ca parents: 590 diff changeset	129	!
4e1c0d0a633b add active help for items ca parents: 590 diff changeset	130
684 184dd159d02e support of arguments ca parents: 666 diff changeset	131	argument
184dd159d02e support of arguments ca parents: 666 diff changeset	132	"get argument given to the value (selector)
184dd159d02e support of arguments ca parents: 666 diff changeset	133	"
184dd159d02e support of arguments ca parents: 666 diff changeset	134	adornment notNil ifTrue:[
184dd159d02e support of arguments ca parents: 666 diff changeset	135	^ adornment argument
184dd159d02e support of arguments ca parents: 666 diff changeset	136	].
184dd159d02e support of arguments ca parents: 666 diff changeset	137	^ nil
184dd159d02e support of arguments ca parents: 666 diff changeset	138	!
184dd159d02e support of arguments ca parents: 666 diff changeset	139
184dd159d02e support of arguments ca parents: 666 diff changeset	140	argument:something
184dd159d02e support of arguments ca parents: 666 diff changeset	141	"set argument given to the value (selector)
184dd159d02e support of arguments ca parents: 666 diff changeset	142	"
184dd159d02e support of arguments ca parents: 666 diff changeset	143	\|arg\|
184dd159d02e support of arguments ca parents: 666 diff changeset	144
184dd159d02e support of arguments ca parents: 666 diff changeset	145	(arg := something) notNil ifTrue:[
184dd159d02e support of arguments ca parents: 666 diff changeset	146	arg isString ifTrue:[
184dd159d02e support of arguments ca parents: 666 diff changeset	147	(arg size == 0 or:[(arg indexOfNonSeparatorStartingAt:1) == 0]) ifTrue:[
184dd159d02e support of arguments ca parents: 666 diff changeset	148	arg := nil
184dd159d02e support of arguments ca parents: 666 diff changeset	149	]
184dd159d02e support of arguments ca parents: 666 diff changeset	150	]
184dd159d02e support of arguments ca parents: 666 diff changeset	151	].
184dd159d02e support of arguments ca parents: 666 diff changeset	152
184dd159d02e support of arguments ca parents: 666 diff changeset	153	(arg isNil and:[adornment isNil]) ifFalse:[
184dd159d02e support of arguments ca parents: 666 diff changeset	154	self adornment argument:arg
184dd159d02e support of arguments ca parents: 666 diff changeset	155	]
184dd159d02e support of arguments ca parents: 666 diff changeset	156	!
184dd159d02e support of arguments ca parents: 666 diff changeset	157
1213 a80ce81d2944 auxValue added tm parents: 1203 diff changeset	158	auxValue
a80ce81d2944 auxValue added tm parents: 1203 diff changeset	159	"an additional, arbitrary value"
a80ce81d2944 auxValue added tm parents: 1203 diff changeset	160
a80ce81d2944 auxValue added tm parents: 1203 diff changeset	161	adornment notNil ifTrue:[
a80ce81d2944 auxValue added tm parents: 1203 diff changeset	162	^ adornment auxValue
a80ce81d2944 auxValue added tm parents: 1203 diff changeset	163	].
a80ce81d2944 auxValue added tm parents: 1203 diff changeset	164	^ nil
a80ce81d2944 auxValue added tm parents: 1203 diff changeset	165	!
a80ce81d2944 auxValue added tm parents: 1203 diff changeset	166
a80ce81d2944 auxValue added tm parents: 1203 diff changeset	167	auxValue:something
a80ce81d2944 auxValue added tm parents: 1203 diff changeset	168	"set the auxValue - an arbitrary user value
a80ce81d2944 auxValue added tm parents: 1203 diff changeset	169	"
1333 423b4b4404c4 avoid creating an adornment (when nil adornment values are stored) Claus Gittinger <cg@exept.de> parents: 1329 diff changeset	170	(something notNil or:[adornment notNil]) ifTrue:[
423b4b4404c4 avoid creating an adornment (when nil adornment values are stored) Claus Gittinger <cg@exept.de> parents: 1329 diff changeset	171	self adornment auxValue:something
423b4b4404c4 avoid creating an adornment (when nil adornment values are stored) Claus Gittinger <cg@exept.de> parents: 1329 diff changeset	172	]
423b4b4404c4 avoid creating an adornment (when nil adornment values are stored) Claus Gittinger <cg@exept.de> parents: 1329 diff changeset	173
423b4b4404c4 avoid creating an adornment (when nil adornment values are stored) Claus Gittinger <cg@exept.de> parents: 1329 diff changeset	174	"Modified: / 4.2.2000 / 12:38:44 / cg"
1213 a80ce81d2944 auxValue added tm parents: 1203 diff changeset	175	!
a80ce81d2944 auxValue added tm parents: 1203 diff changeset	176
1360 2b17ce81a790 support setting font in MenuPanel and Editor ca parents: 1347 diff changeset	177	font
2b17ce81a790 support setting font in MenuPanel and Editor ca parents: 1347 diff changeset	178	"get the specific font for an item or nil
2b17ce81a790 support setting font in MenuPanel and Editor ca parents: 1347 diff changeset	179	"
2b17ce81a790 support setting font in MenuPanel and Editor ca parents: 1347 diff changeset	180	adornment notNil ifTrue:[
2b17ce81a790 support setting font in MenuPanel and Editor ca parents: 1347 diff changeset	181	^ adornment font
2b17ce81a790 support setting font in MenuPanel and Editor ca parents: 1347 diff changeset	182	].
2b17ce81a790 support setting font in MenuPanel and Editor ca parents: 1347 diff changeset	183	^ nil
2b17ce81a790 support setting font in MenuPanel and Editor ca parents: 1347 diff changeset	184	!
2b17ce81a790 support setting font in MenuPanel and Editor ca parents: 1347 diff changeset	185
2b17ce81a790 support setting font in MenuPanel and Editor ca parents: 1347 diff changeset	186	font:aFont
2b17ce81a790 support setting font in MenuPanel and Editor ca parents: 1347 diff changeset	187	"set the index of the access character in the label text or string, or nil if none
2b17ce81a790 support setting font in MenuPanel and Editor ca parents: 1347 diff changeset	188	"
2b17ce81a790 support setting font in MenuPanel and Editor ca parents: 1347 diff changeset	189
2b17ce81a790 support setting font in MenuPanel and Editor ca parents: 1347 diff changeset	190	(aFont isNil and:[adornment isNil]) ifFalse:[
2b17ce81a790 support setting font in MenuPanel and Editor ca parents: 1347 diff changeset	191	self adornment font:aFont
2b17ce81a790 support setting font in MenuPanel and Editor ca parents: 1347 diff changeset	192	]
2b17ce81a790 support setting font in MenuPanel and Editor ca parents: 1347 diff changeset	193	!
2b17ce81a790 support setting font in MenuPanel and Editor ca parents: 1347 diff changeset	194
1328 a56f6e341b5b add new behavior: hideMenuOnActivated ca parents: 1306 diff changeset	195	hideMenuOnActivated
a56f6e341b5b add new behavior: hideMenuOnActivated ca parents: 1306 diff changeset	196	"hide the menu when the item was activated; the default is true
a56f6e341b5b add new behavior: hideMenuOnActivated ca parents: 1306 diff changeset	197	"
a56f6e341b5b add new behavior: hideMenuOnActivated ca parents: 1306 diff changeset	198	^ hideMenuOnActivated ? true
a56f6e341b5b add new behavior: hideMenuOnActivated ca parents: 1306 diff changeset	199
a56f6e341b5b add new behavior: hideMenuOnActivated ca parents: 1306 diff changeset	200	!
a56f6e341b5b add new behavior: hideMenuOnActivated ca parents: 1306 diff changeset	201
a56f6e341b5b add new behavior: hideMenuOnActivated ca parents: 1306 diff changeset	202	hideMenuOnActivated:aBool
a56f6e341b5b add new behavior: hideMenuOnActivated ca parents: 1306 diff changeset	203	"hide the menu when the item was activated; the default is true
a56f6e341b5b add new behavior: hideMenuOnActivated ca parents: 1306 diff changeset	204	"
a56f6e341b5b add new behavior: hideMenuOnActivated ca parents: 1306 diff changeset	205	hideMenuOnActivated := aBool ? true
a56f6e341b5b add new behavior: hideMenuOnActivated ca parents: 1306 diff changeset	206
a56f6e341b5b add new behavior: hideMenuOnActivated ca parents: 1306 diff changeset	207	!
a56f6e341b5b add new behavior: hideMenuOnActivated ca parents: 1306 diff changeset	208
798 8a27a879ff23 support of visible/invisible items ca parents: 794 diff changeset	209	isVisible
8a27a879ff23 support of visible/invisible items ca parents: 794 diff changeset	210	^ isVisible ? true
8a27a879ff23 support of visible/invisible items ca parents: 794 diff changeset	211	!
8a27a879ff23 support of visible/invisible items ca parents: 794 diff changeset	212
8a27a879ff23 support of visible/invisible items ca parents: 794 diff changeset	213	isVisible:something
8a27a879ff23 support of visible/invisible items ca parents: 794 diff changeset	214	isVisible := something
8a27a879ff23 support of visible/invisible items ca parents: 794 diff changeset	215	!
8a27a879ff23 support of visible/invisible items ca parents: 794 diff changeset	216
1370 4d2a3cc1d3c7 allow views in subMenus ca parents: 1369 diff changeset	217	keepLinkedMenu
4d2a3cc1d3c7 allow views in subMenus ca parents: 1369 diff changeset	218	"an additional, arbitrary value"
4d2a3cc1d3c7 allow views in subMenus ca parents: 1369 diff changeset	219
4d2a3cc1d3c7 allow views in subMenus ca parents: 1369 diff changeset	220	adornment notNil ifTrue:[
4d2a3cc1d3c7 allow views in subMenus ca parents: 1369 diff changeset	221	^ adornment keepLinkedMenu
4d2a3cc1d3c7 allow views in subMenus ca parents: 1369 diff changeset	222	].
4d2a3cc1d3c7 allow views in subMenus ca parents: 1369 diff changeset	223	^ false
4d2a3cc1d3c7 allow views in subMenus ca parents: 1369 diff changeset	224	!
4d2a3cc1d3c7 allow views in subMenus ca parents: 1369 diff changeset	225
4d2a3cc1d3c7 allow views in subMenus ca parents: 1369 diff changeset	226	keepLinkedMenu:aBoolean
4d2a3cc1d3c7 allow views in subMenus ca parents: 1369 diff changeset	227	"set the keepLinkedMenu
4d2a3cc1d3c7 allow views in subMenus ca parents: 1369 diff changeset	228	"
4d2a3cc1d3c7 allow views in subMenus ca parents: 1369 diff changeset	229	adornment notNil ifTrue:[
4d2a3cc1d3c7 allow views in subMenus ca parents: 1369 diff changeset	230	adornment keepLinkedMenu:aBoolean.
4d2a3cc1d3c7 allow views in subMenus ca parents: 1369 diff changeset	231	] ifFalse:[
4d2a3cc1d3c7 allow views in subMenus ca parents: 1369 diff changeset	232	aBoolean == true ifTrue:[
4d2a3cc1d3c7 allow views in subMenus ca parents: 1369 diff changeset	233	"/ the default is false
4d2a3cc1d3c7 allow views in subMenus ca parents: 1369 diff changeset	234	self adornment keepLinkedMenu:true
4d2a3cc1d3c7 allow views in subMenus ca parents: 1369 diff changeset	235	]
4d2a3cc1d3c7 allow views in subMenus ca parents: 1369 diff changeset	236	].
4d2a3cc1d3c7 allow views in subMenus ca parents: 1369 diff changeset	237	!
4d2a3cc1d3c7 allow views in subMenus ca parents: 1369 diff changeset	238
451 95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	239	label
973 cd6b8d08c9c9 submenu item send #value. Claus Gittinger <cg@exept.de> parents: 960 diff changeset	240	^ self filteredLabel "/ label
451 95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	241
973 cd6b8d08c9c9 submenu item send #value. Claus Gittinger <cg@exept.de> parents: 960 diff changeset	242	"Created: / 25.2.1997 / 19:48:16 / cg"
cd6b8d08c9c9 submenu item send #value. Claus Gittinger <cg@exept.de> parents: 960 diff changeset	243	"Modified: / 19.6.1998 / 00:02:55 / cg"
451 95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	244	!
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	245
453 e06bf3866328 * empty log message * Claus Gittinger <cg@exept.de> parents: 451 diff changeset	246	label:aString
e06bf3866328 * empty log message * Claus Gittinger <cg@exept.de> parents: 451 diff changeset	247	label := aString
e06bf3866328 * empty log message * Claus Gittinger <cg@exept.de> parents: 451 diff changeset	248
e06bf3866328 * empty log message * Claus Gittinger <cg@exept.de> parents: 451 diff changeset	249	"Created: 25.2.1997 / 19:55:16 / cg"
e06bf3866328 * empty log message * Claus Gittinger <cg@exept.de> parents: 451 diff changeset	250	!
e06bf3866328 * empty log message * Claus Gittinger <cg@exept.de> parents: 451 diff changeset	251
581 0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	252	labelImage
0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	253	"gets the labelImage
0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	254	"
0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	255	adornment notNil ifTrue:[
584 9a4c30f7586f ST-80 compatible features addded ca parents: 581 diff changeset	256	^ adornment labelImage value
581 0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	257	].
0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	258	^ nil
0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	259	!
0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	260
0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	261	labelImage:aResourceRetriever
0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	262	"set the labelImage
0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	263	"
0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	264	aResourceRetriever notNil ifTrue:[
0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	265	self adornment labelImage:aResourceRetriever
0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	266	]
0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	267	!
0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	268
578 7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	269	nameKey
7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	270	^ nameKey
7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	271
7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	272
7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	273	!
7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	274
7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	275	nameKey:aNameKey
579 77f6d490f1ac so far, so good ca parents: 578 diff changeset	276	nameKey := aNameKey.
578 7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	277
7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	278
7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	279	!
7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	280
490 ebe88e50b29a * empty log message * ca parents: 458 diff changeset	281	rawLabel
ebe88e50b29a * empty log message * ca parents: 458 diff changeset	282	^ label
ebe88e50b29a * empty log message * ca parents: 458 diff changeset	283
ebe88e50b29a * empty log message * ca parents: 458 diff changeset	284	"Created: 25.2.1997 / 19:48:16 / cg"
ebe88e50b29a * empty log message * ca parents: 458 diff changeset	285	!
ebe88e50b29a * empty log message * ca parents: 458 diff changeset	286
451 95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	287	rawLabel:aString
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	288	label := aString
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	289
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	290	"Created: 25.2.1997 / 19:11:02 / cg"
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	291	!
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	292
490 ebe88e50b29a * empty log message * ca parents: 458 diff changeset	293	shortcutKeyCharacter
ebe88e50b29a * empty log message * ca parents: 458 diff changeset	294	"ignored for now"
ebe88e50b29a * empty log message * ca parents: 458 diff changeset	295
578 7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	296	adornment notNil ifTrue:[
7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	297	^ adornment shortcutKeyCharacter
7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	298	].
490 ebe88e50b29a * empty log message * ca parents: 458 diff changeset	299	^ nil
ebe88e50b29a * empty log message * ca parents: 458 diff changeset	300	!
ebe88e50b29a * empty log message * ca parents: 458 diff changeset	301
578 7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	302	shortcutKeyCharacter:aKey
7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	303	"set the key to press to select the menu item from the keyboard
7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	304	"
1333 423b4b4404c4 avoid creating an adornment (when nil adornment values are stored) Claus Gittinger <cg@exept.de> parents: 1329 diff changeset	305	(aKey notNil or:[adornment notNil]) ifTrue:[
579 77f6d490f1ac so far, so good ca parents: 578 diff changeset	306	self adornment shortcutKeyCharacter:aKey
77f6d490f1ac so far, so good ca parents: 578 diff changeset	307	]
1333 423b4b4404c4 avoid creating an adornment (when nil adornment values are stored) Claus Gittinger <cg@exept.de> parents: 1329 diff changeset	308
423b4b4404c4 avoid creating an adornment (when nil adornment values are stored) Claus Gittinger <cg@exept.de> parents: 1329 diff changeset	309	"Modified: / 4.2.2000 / 12:39:30 / cg"
578 7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	310	!
7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	311
1347 e033db194238 added 'showBysuCursorWhileActive' attribute Claus Gittinger <cg@exept.de> parents: 1336 diff changeset	312	showBusyCursorWhilePerforming
e033db194238 added 'showBysuCursorWhileActive' attribute Claus Gittinger <cg@exept.de> parents: 1336 diff changeset	313	"get the flag which controls if a busy cursor is to be shown
e033db194238 added 'showBysuCursorWhileActive' attribute Claus Gittinger <cg@exept.de> parents: 1336 diff changeset	314	while performing the menu action. Defaults to false."
e033db194238 added 'showBysuCursorWhileActive' attribute Claus Gittinger <cg@exept.de> parents: 1336 diff changeset	315
e033db194238 added 'showBysuCursorWhileActive' attribute Claus Gittinger <cg@exept.de> parents: 1336 diff changeset	316	adornment notNil ifTrue:[
e033db194238 added 'showBysuCursorWhileActive' attribute Claus Gittinger <cg@exept.de> parents: 1336 diff changeset	317	^ adornment showBusyCursorWhilePerforming
e033db194238 added 'showBysuCursorWhileActive' attribute Claus Gittinger <cg@exept.de> parents: 1336 diff changeset	318	].
e033db194238 added 'showBysuCursorWhileActive' attribute Claus Gittinger <cg@exept.de> parents: 1336 diff changeset	319	^ nil
e033db194238 added 'showBysuCursorWhileActive' attribute Claus Gittinger <cg@exept.de> parents: 1336 diff changeset	320	!
e033db194238 added 'showBysuCursorWhileActive' attribute Claus Gittinger <cg@exept.de> parents: 1336 diff changeset	321
e033db194238 added 'showBysuCursorWhileActive' attribute Claus Gittinger <cg@exept.de> parents: 1336 diff changeset	322	showBusyCursorWhilePerforming:aBoolean
e033db194238 added 'showBysuCursorWhileActive' attribute Claus Gittinger <cg@exept.de> parents: 1336 diff changeset	323	"set/clear the flag which controls if a busy cursor is to be shown
e033db194238 added 'showBysuCursorWhileActive' attribute Claus Gittinger <cg@exept.de> parents: 1336 diff changeset	324	while performing the menu action. Defaults to false."
e033db194238 added 'showBysuCursorWhileActive' attribute Claus Gittinger <cg@exept.de> parents: 1336 diff changeset	325
e033db194238 added 'showBysuCursorWhileActive' attribute Claus Gittinger <cg@exept.de> parents: 1336 diff changeset	326	((aBoolean == true) or:[adornment notNil]) ifTrue:[
e033db194238 added 'showBysuCursorWhileActive' attribute Claus Gittinger <cg@exept.de> parents: 1336 diff changeset	327	self adornment showBusyCursorWhilePerforming:aBoolean
e033db194238 added 'showBysuCursorWhileActive' attribute Claus Gittinger <cg@exept.de> parents: 1336 diff changeset	328	]
e033db194238 added 'showBysuCursorWhileActive' attribute Claus Gittinger <cg@exept.de> parents: 1336 diff changeset	329	!
e033db194238 added 'showBysuCursorWhileActive' attribute Claus Gittinger <cg@exept.de> parents: 1336 diff changeset	330
794 432935e754e0 add new feature: ca parents: 752 diff changeset	331	startGroup
432935e754e0 add new feature: ca parents: 752 diff changeset	332	"start group #left #right #center ... or nil
432935e754e0 add new feature: ca parents: 752 diff changeset	333	at the moment only #right is implemented
432935e754e0 add new feature: ca parents: 752 diff changeset	334	"
432935e754e0 add new feature: ca parents: 752 diff changeset	335	^ startGroup
432935e754e0 add new feature: ca parents: 752 diff changeset	336	!
432935e754e0 add new feature: ca parents: 752 diff changeset	337
432935e754e0 add new feature: ca parents: 752 diff changeset	338	startGroup:aSymbol
432935e754e0 add new feature: ca parents: 752 diff changeset	339	"start group #left #right #center ...
432935e754e0 add new feature: ca parents: 752 diff changeset	340	at the moment only #right is implemented
432935e754e0 add new feature: ca parents: 752 diff changeset	341	"
432935e754e0 add new feature: ca parents: 752 diff changeset	342	(startGroup isNil or:[startGroup == #right]) ifTrue:[
432935e754e0 add new feature: ca parents: 752 diff changeset	343	startGroup := aSymbol
432935e754e0 add new feature: ca parents: 752 diff changeset	344	] ifFalse:[
432935e754e0 add new feature: ca parents: 752 diff changeset	345	self warn:('not supported group: ', aSymbol printString ).
432935e754e0 add new feature: ca parents: 752 diff changeset	346	]
432935e754e0 add new feature: ca parents: 752 diff changeset	347	!
432935e754e0 add new feature: ca parents: 752 diff changeset	348
458 729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	349	submenu
578 7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	350	adornment notNil ifTrue:[
7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	351	^ adornment submenu
7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	352	].
7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	353	^ nil
458 729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	354
729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	355	"Created: 25.2.1997 / 20:57:24 / cg"
729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	356	!
729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	357
729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	358	submenu:aMenu
1333 423b4b4404c4 avoid creating an adornment (when nil adornment values are stored) Claus Gittinger <cg@exept.de> parents: 1329 diff changeset	359	(aMenu notNil or:[adornment notNil]) ifTrue:[
423b4b4404c4 avoid creating an adornment (when nil adornment values are stored) Claus Gittinger <cg@exept.de> parents: 1329 diff changeset	360	self adornment submenu:aMenu
423b4b4404c4 avoid creating an adornment (when nil adornment values are stored) Claus Gittinger <cg@exept.de> parents: 1329 diff changeset	361	]
458 729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	362
1333 423b4b4404c4 avoid creating an adornment (when nil adornment values are stored) Claus Gittinger <cg@exept.de> parents: 1329 diff changeset	363	"Created: / 25.2.1997 / 20:56:20 / cg"
423b4b4404c4 avoid creating an adornment (when nil adornment values are stored) Claus Gittinger <cg@exept.de> parents: 1329 diff changeset	364	"Modified: / 4.2.2000 / 12:40:02 / cg"
458 729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	365	!
729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	366
666 6e614a5d9248 add submenuChannel ca parents: 661 diff changeset	367	submenuChannel
6e614a5d9248 add submenuChannel ca parents: 661 diff changeset	368	adornment notNil ifTrue:[
6e614a5d9248 add submenuChannel ca parents: 661 diff changeset	369	^ adornment submenuChannel
6e614a5d9248 add submenuChannel ca parents: 661 diff changeset	370	].
6e614a5d9248 add submenuChannel ca parents: 661 diff changeset	371	^ nil
6e614a5d9248 add submenuChannel ca parents: 661 diff changeset	372	!
6e614a5d9248 add submenuChannel ca parents: 661 diff changeset	373
6e614a5d9248 add submenuChannel ca parents: 661 diff changeset	374	submenuChannel:something
1333 423b4b4404c4 avoid creating an adornment (when nil adornment values are stored) Claus Gittinger <cg@exept.de> parents: 1329 diff changeset	375	(something notNil or:[adornment notNil]) ifTrue:[
423b4b4404c4 avoid creating an adornment (when nil adornment values are stored) Claus Gittinger <cg@exept.de> parents: 1329 diff changeset	376	self adornment submenuChannel:something
423b4b4404c4 avoid creating an adornment (when nil adornment values are stored) Claus Gittinger <cg@exept.de> parents: 1329 diff changeset	377	]
423b4b4404c4 avoid creating an adornment (when nil adornment values are stored) Claus Gittinger <cg@exept.de> parents: 1329 diff changeset	378
423b4b4404c4 avoid creating an adornment (when nil adornment values are stored) Claus Gittinger <cg@exept.de> parents: 1329 diff changeset	379	"Modified: / 4.2.2000 / 12:40:19 / cg"
666 6e614a5d9248 add submenuChannel ca parents: 661 diff changeset	380	!
6e614a5d9248 add submenuChannel ca parents: 661 diff changeset	381
1409 d51c83a4268c implement: triggerOnDown ca parents: 1401 diff changeset	382	triggerOnDown
d51c83a4268c implement: triggerOnDown ca parents: 1401 diff changeset	383	"trigger the action if pressed
d51c83a4268c implement: triggerOnDown ca parents: 1401 diff changeset	384	"
d51c83a4268c implement: triggerOnDown ca parents: 1401 diff changeset	385	^ triggerOnDown ? false
d51c83a4268c implement: triggerOnDown ca parents: 1401 diff changeset	386
d51c83a4268c implement: triggerOnDown ca parents: 1401 diff changeset	387	!
d51c83a4268c implement: triggerOnDown ca parents: 1401 diff changeset	388
d51c83a4268c implement: triggerOnDown ca parents: 1401 diff changeset	389	triggerOnDown:aBool
d51c83a4268c implement: triggerOnDown ca parents: 1401 diff changeset	390	"trigger the action if pressed
d51c83a4268c implement: triggerOnDown ca parents: 1401 diff changeset	391	"
d51c83a4268c implement: triggerOnDown ca parents: 1401 diff changeset	392	triggerOnDown := aBool.
d51c83a4268c implement: triggerOnDown ca parents: 1401 diff changeset	393	!
d51c83a4268c implement: triggerOnDown ca parents: 1401 diff changeset	394
451 95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	395	value
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	396	^ value
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	397
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	398	"Created: 25.2.1997 / 19:50:14 / cg"
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	399	!
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	400
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	401	value:something
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	402	value := something
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	403
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	404	"Created: 25.2.1997 / 19:11:13 / cg"
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	405	! !
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	406
1333 423b4b4404c4 avoid creating an adornment (when nil adornment values are stored) Claus Gittinger <cg@exept.de> parents: 1329 diff changeset	407	!MenuItem methodsFor:'accessing-behavior'!
579 77f6d490f1ac so far, so good ca parents: 578 diff changeset	408
590 fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	409	beOff
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	410	"set indication off
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	411	"
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	412	self indication:false
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	413	!
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	414
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	415	beOn
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	416	"set indication on
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	417	"
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	418	self indication:true
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	419	!
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	420
1041 d28f0375cd26 added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	421	choice
d28f0375cd26 added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	422	"return the menu items choice indicator (RadioButton)
d28f0375cd26 added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	423	"
d28f0375cd26 added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	424	adornment notNil ifTrue:[
d28f0375cd26 added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	425	^ adornment choice
d28f0375cd26 added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	426	].
d28f0375cd26 added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	427	^ nil
d28f0375cd26 added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	428
d28f0375cd26 added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	429	"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	430	"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	431	!
d28f0375cd26 added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	432
d28f0375cd26 added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	433	choice:aChoice
d28f0375cd26 added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	434	"set the menu items choice indicator (RadioButton)
d28f0375cd26 added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	435	"
d28f0375cd26 added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	436	(aChoice notNil or:[adornment notNil]) ifTrue:[
d28f0375cd26 added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	437	self adornment choice:aChoice.
d28f0375cd26 added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	438	].
d28f0375cd26 added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	439
d28f0375cd26 added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	440	"Created: / 14.8.1998 / 15:11:17 / cg"
d28f0375cd26 added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	441	!
d28f0375cd26 added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	442
d28f0375cd26 added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	443	choiceValue
d28f0375cd26 added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	444	"return the menu items choiceValue (RadioButton)
d28f0375cd26 added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	445	"
d28f0375cd26 added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	446	adornment notNil ifTrue:[
d28f0375cd26 added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	447	^ adornment choiceValue
d28f0375cd26 added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	448	].
d28f0375cd26 added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	449	^ nil
d28f0375cd26 added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	450
d28f0375cd26 added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	451	"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	452	"Created: / 14.8.1998 / 15:38:05 / cg"
d28f0375cd26 added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	453	!
d28f0375cd26 added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	454
d28f0375cd26 added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	455	choiceValue:something
d28f0375cd26 added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	456	"set the menu items choiceValue (RadioButton)
d28f0375cd26 added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	457	"
d28f0375cd26 added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	458	(something notNil or:[adornment notNil]) ifTrue:[
d28f0375cd26 added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	459	self adornment choiceValue:something.
d28f0375cd26 added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	460	].
d28f0375cd26 added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	461
d28f0375cd26 added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	462	"Created: / 14.8.1998 / 15:39:12 / cg"
d28f0375cd26 added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	463	!
d28f0375cd26 added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	464
579 77f6d490f1ac so far, so good ca parents: 578 diff changeset	465	disable
77f6d490f1ac so far, so good ca parents: 578 diff changeset	466	enabled := false
77f6d490f1ac so far, so good ca parents: 578 diff changeset	467
77f6d490f1ac so far, so good ca parents: 578 diff changeset	468	"Created: 25.2.1997 / 19:39:09 / cg"
77f6d490f1ac so far, so good ca parents: 578 diff changeset	469	!
77f6d490f1ac so far, so good ca parents: 578 diff changeset	470
77f6d490f1ac so far, so good ca parents: 578 diff changeset	471	enable
77f6d490f1ac so far, so good ca parents: 578 diff changeset	472	enabled := true
77f6d490f1ac so far, so good ca parents: 578 diff changeset	473
77f6d490f1ac so far, so good ca parents: 578 diff changeset	474	"Created: 25.2.1997 / 19:39:00 / cg"
77f6d490f1ac so far, so good ca parents: 578 diff changeset	475	!
77f6d490f1ac so far, so good ca parents: 578 diff changeset	476
581 0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	477	enabled
0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	478	"returns a boolean, valueHolder or block
0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	479	"
0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	480	^ enabled
0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	481	!
579 77f6d490f1ac so far, so good ca parents: 578 diff changeset	482
581 0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	483	enabled:something
0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	484	"a boolean, valueHolder or block
0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	485	"
0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	486	enabled := something
590 fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	487	!
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	488
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	489	indication
1041 d28f0375cd26 added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	490	"return the menu items on/off indicator (CheckToggle)
590 fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	491	"
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	492	adornment notNil ifTrue:[
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	493	^ adornment indication
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	494	].
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	495	^ nil
1041 d28f0375cd26 added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	496
d28f0375cd26 added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	497	"Modified: / 14.8.1998 / 15:11:37 / cg"
590 fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	498	!
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	499
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	500	indication:anIndication
1041 d28f0375cd26 added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	501	"set the menu items an on/off indicator (CheckToggle)
590 fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	502	"
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	503	(anIndication notNil or:[adornment notNil]) ifTrue:[
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	504	self adornment indication:anIndication.
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	505	].
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	506
1041 d28f0375cd26 added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	507	"Modified: / 14.8.1998 / 15:11:25 / cg"
752 93690dcd1b75 button and label translation support added. tz parents: 724 diff changeset	508	!
93690dcd1b75 button and label translation support added. tz parents: 724 diff changeset	509
93690dcd1b75 button and label translation support added. tz parents: 724 diff changeset	510	isButton
93690dcd1b75 button and label translation support added. tz parents: 724 diff changeset	511	"returns whether item looks like a Button
93690dcd1b75 button and label translation support added. tz parents: 724 diff changeset	512	"
93690dcd1b75 button and label translation support added. tz parents: 724 diff changeset	513	^isButton ? false
93690dcd1b75 button and label translation support added. tz parents: 724 diff changeset	514
93690dcd1b75 button and label translation support added. tz parents: 724 diff changeset	515
93690dcd1b75 button and label translation support added. tz parents: 724 diff changeset	516	!
93690dcd1b75 button and label translation support added. tz parents: 724 diff changeset	517
93690dcd1b75 button and label translation support added. tz parents: 724 diff changeset	518	isButton:anBoolean
93690dcd1b75 button and label translation support added. tz parents: 724 diff changeset	519	"sets whether item looks like a Button
93690dcd1b75 button and label translation support added. tz parents: 724 diff changeset	520	"
93690dcd1b75 button and label translation support added. tz parents: 724 diff changeset	521	isButton := anBoolean
93690dcd1b75 button and label translation support added. tz parents: 724 diff changeset	522
93690dcd1b75 button and label translation support added. tz parents: 724 diff changeset	523
93690dcd1b75 button and label translation support added. tz parents: 724 diff changeset	524	!
93690dcd1b75 button and label translation support added. tz parents: 724 diff changeset	525
93690dcd1b75 button and label translation support added. tz parents: 724 diff changeset	526	translateLabel
93690dcd1b75 button and label translation support added. tz parents: 724 diff changeset	527	"returns whether label is translated
93690dcd1b75 button and label translation support added. tz parents: 724 diff changeset	528	"
93690dcd1b75 button and label translation support added. tz parents: 724 diff changeset	529	^translateLabel ? false
93690dcd1b75 button and label translation support added. tz parents: 724 diff changeset	530
93690dcd1b75 button and label translation support added. tz parents: 724 diff changeset	531
93690dcd1b75 button and label translation support added. tz parents: 724 diff changeset	532	!
93690dcd1b75 button and label translation support added. tz parents: 724 diff changeset	533
93690dcd1b75 button and label translation support added. tz parents: 724 diff changeset	534	translateLabel:anBoolean
93690dcd1b75 button and label translation support added. tz parents: 724 diff changeset	535	"sets whether label is translated
93690dcd1b75 button and label translation support added. tz parents: 724 diff changeset	536	"
93690dcd1b75 button and label translation support added. tz parents: 724 diff changeset	537	translateLabel := anBoolean
93690dcd1b75 button and label translation support added. tz parents: 724 diff changeset	538
93690dcd1b75 button and label translation support added. tz parents: 724 diff changeset	539
581 0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	540	! !
0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	541
1333 423b4b4404c4 avoid creating an adornment (when nil adornment values are stored) Claus Gittinger <cg@exept.de> parents: 1329 diff changeset	542	!MenuItem methodsFor:'accessing-resource'!
581 0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	543
584 9a4c30f7586f ST-80 compatible features addded ca parents: 581 diff changeset	544	findGuiResourcesIn:aResourceContainerOrApplication
581 0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	545	"setup a resource container
0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	546	"
960 fee5a1a50374 adornments submenu may be a valueHolder. Claus Gittinger <cg@exept.de> parents: 798 diff changeset	547	\|lblImg m\|
581 0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	548
752 93690dcd1b75 button and label translation support added. tz parents: 724 diff changeset	549	self translateLabel ifTrue:[
93690dcd1b75 button and label translation support added. tz parents: 724 diff changeset	550	label := ResourceRetriever findResourceLabel: label in: aResourceContainerOrApplication
93690dcd1b75 button and label translation support added. tz parents: 724 diff changeset	551	].
93690dcd1b75 button and label translation support added. tz parents: 724 diff changeset	552
584 9a4c30f7586f ST-80 compatible features addded ca parents: 581 diff changeset	553	adornment notNil ifTrue:[
752 93690dcd1b75 button and label translation support added. tz parents: 724 diff changeset	554	(lblImg := adornment labelImage) notNil ifTrue:[
93690dcd1b75 button and label translation support added. tz parents: 724 diff changeset	555	lblImg findGuiResourcesIn:aResourceContainerOrApplication.
93690dcd1b75 button and label translation support added. tz parents: 724 diff changeset	556	lblImg labelText notNil ifTrue: [lblImg labelText: label].
93690dcd1b75 button and label translation support added. tz parents: 724 diff changeset	557	].
960 fee5a1a50374 adornments submenu may be a valueHolder. Claus Gittinger <cg@exept.de> parents: 798 diff changeset	558	(m := adornment submenu) notNil ifTrue:[
fee5a1a50374 adornments submenu may be a valueHolder. Claus Gittinger <cg@exept.de> parents: 798 diff changeset	559	m := m value.
fee5a1a50374 adornments submenu may be a valueHolder. Claus Gittinger <cg@exept.de> parents: 798 diff changeset	560	m notNil ifTrue:[
fee5a1a50374 adornments submenu may be a valueHolder. Claus Gittinger <cg@exept.de> parents: 798 diff changeset	561	m findGuiResourcesIn:aResourceContainerOrApplication
fee5a1a50374 adornments submenu may be a valueHolder. Claus Gittinger <cg@exept.de> parents: 798 diff changeset	562	]
752 93690dcd1b75 button and label translation support added. tz parents: 724 diff changeset	563	].
581 0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	564	]
960 fee5a1a50374 adornments submenu may be a valueHolder. Claus Gittinger <cg@exept.de> parents: 798 diff changeset	565
fee5a1a50374 adornments submenu may be a valueHolder. Claus Gittinger <cg@exept.de> parents: 798 diff changeset	566	"Modified: / 18.6.1998 / 16:54:25 / cg"
1401 0fda9891ba4a only ask once for resources (remember locally) Claus Gittinger <cg@exept.de> parents: 1370 diff changeset	567	!
0fda9891ba4a only ask once for resources (remember locally) Claus Gittinger <cg@exept.de> parents: 1370 diff changeset	568
0fda9891ba4a only ask once for resources (remember locally) Claus Gittinger <cg@exept.de> parents: 1370 diff changeset	569	findGuiResourcesIn:aResourceContainerOrApplication rememberResourcesIn:aValueHolderOrNil
0fda9891ba4a only ask once for resources (remember locally) Claus Gittinger <cg@exept.de> parents: 1370 diff changeset	570	"setup a resource container
0fda9891ba4a only ask once for resources (remember locally) Claus Gittinger <cg@exept.de> parents: 1370 diff changeset	571	"
0fda9891ba4a only ask once for resources (remember locally) Claus Gittinger <cg@exept.de> parents: 1370 diff changeset	572	\|lblImg m\|
0fda9891ba4a only ask once for resources (remember locally) Claus Gittinger <cg@exept.de> parents: 1370 diff changeset	573
0fda9891ba4a only ask once for resources (remember locally) Claus Gittinger <cg@exept.de> parents: 1370 diff changeset	574	self translateLabel ifTrue:[
0fda9891ba4a only ask once for resources (remember locally) Claus Gittinger <cg@exept.de> parents: 1370 diff changeset	575	label := ResourceRetriever
0fda9891ba4a only ask once for resources (remember locally) Claus Gittinger <cg@exept.de> parents: 1370 diff changeset	576	findResourceLabel:label
0fda9891ba4a only ask once for resources (remember locally) Claus Gittinger <cg@exept.de> parents: 1370 diff changeset	577	in:aResourceContainerOrApplication
0fda9891ba4a only ask once for resources (remember locally) Claus Gittinger <cg@exept.de> parents: 1370 diff changeset	578	rememberResourcesIn:aValueHolderOrNil
0fda9891ba4a only ask once for resources (remember locally) Claus Gittinger <cg@exept.de> parents: 1370 diff changeset	579	].
0fda9891ba4a only ask once for resources (remember locally) Claus Gittinger <cg@exept.de> parents: 1370 diff changeset	580
0fda9891ba4a only ask once for resources (remember locally) Claus Gittinger <cg@exept.de> parents: 1370 diff changeset	581	adornment notNil ifTrue:[
0fda9891ba4a only ask once for resources (remember locally) Claus Gittinger <cg@exept.de> parents: 1370 diff changeset	582	(lblImg := adornment labelImage) notNil ifTrue:[
0fda9891ba4a only ask once for resources (remember locally) Claus Gittinger <cg@exept.de> parents: 1370 diff changeset	583	lblImg findGuiResourcesIn:aResourceContainerOrApplication.
0fda9891ba4a only ask once for resources (remember locally) Claus Gittinger <cg@exept.de> parents: 1370 diff changeset	584	lblImg labelText notNil ifTrue: [lblImg labelText: label].
0fda9891ba4a only ask once for resources (remember locally) Claus Gittinger <cg@exept.de> parents: 1370 diff changeset	585	].
0fda9891ba4a only ask once for resources (remember locally) Claus Gittinger <cg@exept.de> parents: 1370 diff changeset	586	(m := adornment submenu) notNil ifTrue:[
0fda9891ba4a only ask once for resources (remember locally) Claus Gittinger <cg@exept.de> parents: 1370 diff changeset	587	m := m value.
0fda9891ba4a only ask once for resources (remember locally) Claus Gittinger <cg@exept.de> parents: 1370 diff changeset	588	m notNil ifTrue:[
0fda9891ba4a only ask once for resources (remember locally) Claus Gittinger <cg@exept.de> parents: 1370 diff changeset	589	m findGuiResourcesIn:aResourceContainerOrApplication rememberResourcesIn:aValueHolderOrNil
0fda9891ba4a only ask once for resources (remember locally) Claus Gittinger <cg@exept.de> parents: 1370 diff changeset	590	]
0fda9891ba4a only ask once for resources (remember locally) Claus Gittinger <cg@exept.de> parents: 1370 diff changeset	591	].
0fda9891ba4a only ask once for resources (remember locally) Claus Gittinger <cg@exept.de> parents: 1370 diff changeset	592	]
0fda9891ba4a only ask once for resources (remember locally) Claus Gittinger <cg@exept.de> parents: 1370 diff changeset	593
0fda9891ba4a only ask once for resources (remember locally) Claus Gittinger <cg@exept.de> parents: 1370 diff changeset	594	"Modified: / 18.6.1998 / 16:54:25 / cg"
579 77f6d490f1ac so far, so good ca parents: 578 diff changeset	595	! !
77f6d490f1ac so far, so good ca parents: 578 diff changeset	596
451 95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	597	!MenuItem methodsFor:'converting'!
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	598
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	599	fromLiteralArrayEncoding:aLiteralEncodedArray
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	600	"read my contents from a aLiteralEncodedArray"
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	601
1202 1cc76ca8e500 checkin from browser Claus Gittinger <cg@exept.de> parents: 1196 diff changeset	602	\|selector value\|
1cc76ca8e500 checkin from browser Claus Gittinger <cg@exept.de> parents: 1196 diff changeset	603
451 95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	604	2 to:aLiteralEncodedArray size by:2 do:[:i \|
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	605	selector := aLiteralEncodedArray at:i.
1203 35445f3530a4 do not decode the argument Claus Gittinger <cg@exept.de> parents: 1202 diff changeset	606	value := (aLiteralEncodedArray at:i+1).
35445f3530a4 do not decode the argument Claus Gittinger <cg@exept.de> parents: 1202 diff changeset	607	selector == #argument: ifFalse:[
35445f3530a4 do not decode the argument Claus Gittinger <cg@exept.de> parents: 1202 diff changeset	608	value := value decodeAsLiteralArray
35445f3530a4 do not decode the argument Claus Gittinger <cg@exept.de> parents: 1202 diff changeset	609	].
581 0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	610	self perform:selector with:value
451 95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	611	].
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	612
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	613	"
578 7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	614	#( #MenuItem #rawLabel: 'left' #nameKey: 'identifier' #value: #left )
451 95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	615	decodeAsLiteralArray
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	616	"
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	617
1333 423b4b4404c4 avoid creating an adornment (when nil adornment values are stored) Claus Gittinger <cg@exept.de> parents: 1329 diff changeset	618	"Modified: / 4.2.2000 / 12:50:28 / cg"
490 ebe88e50b29a * empty log message * ca parents: 458 diff changeset	619	!
ebe88e50b29a * empty log message * ca parents: 458 diff changeset	620
ebe88e50b29a * empty log message * ca parents: 458 diff changeset	621	literalArrayEncoding
ebe88e50b29a * empty log message * ca parents: 458 diff changeset	622	"return myself encoded as a literal array"
ebe88e50b29a * empty log message * ca parents: 458 diff changeset	623
581 0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	624	\|coll something\|
490 ebe88e50b29a * empty log message * ca parents: 458 diff changeset	625
ebe88e50b29a * empty log message * ca parents: 458 diff changeset	626	coll := OrderedCollection new.
ebe88e50b29a * empty log message * ca parents: 458 diff changeset	627	coll add:#MenuItem.
581 0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	628
0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	629	label notNil ifTrue:[
0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	630	coll add:#label: ; add:(label literalArrayEncoding)
0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	631	].
752 93690dcd1b75 button and label translation support added. tz parents: 724 diff changeset	632	self translateLabel ifTrue:[
1328 a56f6e341b5b add new behavior: hideMenuOnActivated ca parents: 1306 diff changeset	633	coll add:#translateLabel: ; add:true
752 93690dcd1b75 button and label translation support added. tz parents: 724 diff changeset	634	].
93690dcd1b75 button and label translation support added. tz parents: 724 diff changeset	635	self isButton ifTrue:[
1328 a56f6e341b5b add new behavior: hideMenuOnActivated ca parents: 1306 diff changeset	636	coll add:#isButton:; add:true
a56f6e341b5b add new behavior: hideMenuOnActivated ca parents: 1306 diff changeset	637	].
1409 d51c83a4268c implement: triggerOnDown ca parents: 1401 diff changeset	638
d51c83a4268c implement: triggerOnDown ca parents: 1401 diff changeset	639	triggerOnDown == true ifTrue:[
d51c83a4268c implement: triggerOnDown ca parents: 1401 diff changeset	640	coll add:#triggerOnDown: ; add:triggerOnDown
d51c83a4268c implement: triggerOnDown ca parents: 1401 diff changeset	641	].
1328 a56f6e341b5b add new behavior: hideMenuOnActivated ca parents: 1306 diff changeset	642	hideMenuOnActivated == false ifTrue:[
1409 d51c83a4268c implement: triggerOnDown ca parents: 1401 diff changeset	643	coll add:#hideMenuOnActivated: ; add:hideMenuOnActivated
752 93690dcd1b75 button and label translation support added. tz parents: 724 diff changeset	644	].
581 0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	645	nameKey notNil ifTrue:[
0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	646	coll add:#nameKey: ; add:(nameKey literalArrayEncoding)
0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	647	].
798 8a27a879ff23 support of visible/invisible items ca parents: 794 diff changeset	648	isVisible notNil ifTrue:[
8a27a879ff23 support of visible/invisible items ca parents: 794 diff changeset	649	isVisible ~~ true ifTrue:[
8a27a879ff23 support of visible/invisible items ca parents: 794 diff changeset	650	coll add:#isVisible: ; add:(isVisible literalArrayEncoding)
8a27a879ff23 support of visible/invisible items ca parents: 794 diff changeset	651	]
8a27a879ff23 support of visible/invisible items ca parents: 794 diff changeset	652	].
794 432935e754e0 add new feature: ca parents: 752 diff changeset	653	startGroup notNil ifTrue:[
432935e754e0 add new feature: ca parents: 752 diff changeset	654	coll add:#startGroup: ; add:(startGroup literalArrayEncoding)
432935e754e0 add new feature: ca parents: 752 diff changeset	655	].
432935e754e0 add new feature: ca parents: 752 diff changeset	656
579 77f6d490f1ac so far, so good ca parents: 578 diff changeset	657	value notNil ifTrue:[
77f6d490f1ac so far, so good ca parents: 578 diff changeset	658	coll add:#value: ; add:(value literalArrayEncoding).
77f6d490f1ac so far, so good ca parents: 578 diff changeset	659	].
653 1e7c30f9ca6c literalArrayEncoding updated ca parents: 640 diff changeset	660	activeHelpKey notNil ifTrue:[
1e7c30f9ca6c literalArrayEncoding updated ca parents: 640 diff changeset	661	coll add:#activeHelpKey: ; add:(activeHelpKey literalArrayEncoding).
1e7c30f9ca6c literalArrayEncoding updated ca parents: 640 diff changeset	662	].
1e7c30f9ca6c literalArrayEncoding updated ca parents: 640 diff changeset	663	(something := self enabled) notNil ifTrue:[
1e7c30f9ca6c literalArrayEncoding updated ca parents: 640 diff changeset	664	coll add:#enabled: ; add:(enabled literalArrayEncoding).
579 77f6d490f1ac so far, so good ca parents: 578 diff changeset	665	].
77f6d490f1ac so far, so good ca parents: 578 diff changeset	666
653 1e7c30f9ca6c literalArrayEncoding updated ca parents: 640 diff changeset	667	adornment notNil ifTrue:[
1e7c30f9ca6c literalArrayEncoding updated ca parents: 640 diff changeset	668	(something := self shortcutKeyCharacter) notNil ifTrue:[
1e7c30f9ca6c literalArrayEncoding updated ca parents: 640 diff changeset	669	coll add:#shortcutKeyCharacter: ; add:(something literalArrayEncoding)
1e7c30f9ca6c literalArrayEncoding updated ca parents: 640 diff changeset	670	].
1360 2b17ce81a790 support setting font in MenuPanel and Editor ca parents: 1347 diff changeset	671	(something := self font) notNil ifTrue:[
2b17ce81a790 support setting font in MenuPanel and Editor ca parents: 1347 diff changeset	672	coll add:#font: ; add:(something literalArrayEncoding)
2b17ce81a790 support setting font in MenuPanel and Editor ca parents: 1347 diff changeset	673	].
653 1e7c30f9ca6c literalArrayEncoding updated ca parents: 640 diff changeset	674
1e7c30f9ca6c literalArrayEncoding updated ca parents: 640 diff changeset	675	(something := self accessCharacterPosition) notNil ifTrue:[
1e7c30f9ca6c literalArrayEncoding updated ca parents: 640 diff changeset	676	coll add:#accessCharacterPosition: ; add:(something literalArrayEncoding)
1e7c30f9ca6c literalArrayEncoding updated ca parents: 640 diff changeset	677	].
1e7c30f9ca6c literalArrayEncoding updated ca parents: 640 diff changeset	678
1347 e033db194238 added 'showBysuCursorWhileActive' attribute Claus Gittinger <cg@exept.de> parents: 1336 diff changeset	679	(something := self showBusyCursorWhilePerforming) == true ifTrue:[
e033db194238 added 'showBysuCursorWhileActive' attribute Claus Gittinger <cg@exept.de> parents: 1336 diff changeset	680	coll add:#showBusyCursorWhilePerforming: ; add:(something literalArrayEncoding)
e033db194238 added 'showBysuCursorWhileActive' attribute Claus Gittinger <cg@exept.de> parents: 1336 diff changeset	681	].
e033db194238 added 'showBysuCursorWhileActive' attribute Claus Gittinger <cg@exept.de> parents: 1336 diff changeset	682
684 184dd159d02e support of arguments ca parents: 666 diff changeset	683	(something := self argument) notNil ifTrue:[
184dd159d02e support of arguments ca parents: 666 diff changeset	684	coll add:#argument: ; add:(something literalArrayEncoding)
184dd159d02e support of arguments ca parents: 666 diff changeset	685	].
184dd159d02e support of arguments ca parents: 666 diff changeset	686
661 c09ac6b9820d literalArrayEncoding ca parents: 653 diff changeset	687	adornment labelImage notNil ifTrue:[
653 1e7c30f9ca6c literalArrayEncoding updated ca parents: 640 diff changeset	688	coll add:#labelImage: ; add:(adornment labelImage literalArrayEncoding)
1e7c30f9ca6c literalArrayEncoding updated ca parents: 640 diff changeset	689	].
1e7c30f9ca6c literalArrayEncoding updated ca parents: 640 diff changeset	690	(something := self indication) notNil ifTrue:[
1e7c30f9ca6c literalArrayEncoding updated ca parents: 640 diff changeset	691	coll add:#indication: ; add:(something literalArrayEncoding)
666 6e614a5d9248 add submenuChannel ca parents: 661 diff changeset	692	].
1041 d28f0375cd26 added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	693	(something := self choice) notNil ifTrue:[
1369 281acc9f1a73 dont store choiceValue for non-choice items. Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	694	coll add:#choice: ; add:(something literalArrayEncoding).
281acc9f1a73 dont store choiceValue for non-choice items. Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	695
281acc9f1a73 dont store choiceValue for non-choice items. Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	696	(something := self choiceValue) notNil ifTrue:[
281acc9f1a73 dont store choiceValue for non-choice items. Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	697	coll add:#choiceValue: ; add:(something literalArrayEncoding)
281acc9f1a73 dont store choiceValue for non-choice items. Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	698	].
1041 d28f0375cd26 added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	699	].
1213 a80ce81d2944 auxValue added tm parents: 1203 diff changeset	700	(something := self auxValue) notNil ifTrue:[
a80ce81d2944 auxValue added tm parents: 1203 diff changeset	701	coll add:#auxValue: ; add:(something literalArrayEncoding)
a80ce81d2944 auxValue added tm parents: 1203 diff changeset	702	].
579 77f6d490f1ac so far, so good ca parents: 578 diff changeset	703
666 6e614a5d9248 add submenuChannel ca parents: 661 diff changeset	704	(something := self submenuChannel) notNil ifTrue:[
1370 4d2a3cc1d3c7 allow views in subMenus ca parents: 1369 diff changeset	705	coll add:#submenuChannel: ; add:(something literalArrayEncoding).
4d2a3cc1d3c7 allow views in subMenus ca parents: 1369 diff changeset	706
4d2a3cc1d3c7 allow views in subMenus ca parents: 1369 diff changeset	707	(something := self keepLinkedMenu) ifTrue:[
4d2a3cc1d3c7 allow views in subMenus ca parents: 1369 diff changeset	708	coll add:#keepLinkedMenu: ; add:true
4d2a3cc1d3c7 allow views in subMenus ca parents: 1369 diff changeset	709	]
666 6e614a5d9248 add submenuChannel ca parents: 661 diff changeset	710	].
6e614a5d9248 add submenuChannel ca parents: 661 diff changeset	711
6e614a5d9248 add submenuChannel ca parents: 661 diff changeset	712	self hasSubmenu ifTrue:[
6e614a5d9248 add submenuChannel ca parents: 661 diff changeset	713	coll add:#submenu:; add:(self submenu literalArrayEncoding)
6e614a5d9248 add submenuChannel ca parents: 661 diff changeset	714	].
581 0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	715	].
653 1e7c30f9ca6c literalArrayEncoding updated ca parents: 640 diff changeset	716
579 77f6d490f1ac so far, so good ca parents: 578 diff changeset	717	^ coll asArray
1041 d28f0375cd26 added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	718
d28f0375cd26 added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	719	"Modified: / 14.8.1998 / 15:44:53 / cg"
451 95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	720	! !
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	721
1329 b56172875855 nicer displayString Claus Gittinger <cg@exept.de> parents: 1328 diff changeset	722	!MenuItem methodsFor:'printing & storing'!
b56172875855 nicer displayString Claus Gittinger <cg@exept.de> parents: 1328 diff changeset	723
b56172875855 nicer displayString Claus Gittinger <cg@exept.de> parents: 1328 diff changeset	724	displayString
b56172875855 nicer displayString Claus Gittinger <cg@exept.de> parents: 1328 diff changeset	725	^ self classNameWithArticle , '(' , label storeString , ')'
b56172875855 nicer displayString Claus Gittinger <cg@exept.de> parents: 1328 diff changeset	726	! !
b56172875855 nicer displayString Claus Gittinger <cg@exept.de> parents: 1328 diff changeset	727
458 729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	728	!MenuItem methodsFor:'private - accessing'!
729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	729
729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	730	adornment
729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	731	adornment isNil ifTrue:[
729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	732	adornment := MenuItemAdornment new
729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	733	].
729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	734	^ adornment
729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	735
729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	736	"Created: 25.2.1997 / 20:57:05 / cg"
973 cd6b8d08c9c9 submenu item send #value. Claus Gittinger <cg@exept.de> parents: 960 diff changeset	737	!
cd6b8d08c9c9 submenu item send #value. Claus Gittinger <cg@exept.de> parents: 960 diff changeset	738
cd6b8d08c9c9 submenu item send #value. Claus Gittinger <cg@exept.de> parents: 960 diff changeset	739	filteredLabel
cd6b8d08c9c9 submenu item send #value. Claus Gittinger <cg@exept.de> parents: 960 diff changeset	740	"return the label without any &-chars"
cd6b8d08c9c9 submenu item send #value. Claus Gittinger <cg@exept.de> parents: 960 diff changeset	741
985 5a5b476cfd6b care for Text & images in rawLabel, when filtering. Claus Gittinger <cg@exept.de> parents: 973 diff changeset	742	\|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	743
5a5b476cfd6b care for Text & images in rawLabel, when filtering. Claus Gittinger <cg@exept.de> parents: 973 diff changeset	744	rawLabel := self rawLabel.
5a5b476cfd6b care for Text & images in rawLabel, when filtering. Claus Gittinger <cg@exept.de> parents: 973 diff changeset	745	rawLabel isString ifFalse:[^ rawLabel].
5a5b476cfd6b care for Text & images in rawLabel, when filtering. Claus Gittinger <cg@exept.de> parents: 973 diff changeset	746
5a5b476cfd6b care for Text & images in rawLabel, when filtering. Claus Gittinger <cg@exept.de> parents: 973 diff changeset	747	"/ be careful to preserve any emphasis ...
5a5b476cfd6b care for Text & images in rawLabel, when filtering. Claus Gittinger <cg@exept.de> parents: 973 diff changeset	748	"/ bad kludge ...
5a5b476cfd6b care for Text & images in rawLabel, when filtering. Claus Gittinger <cg@exept.de> parents: 973 diff changeset	749	rawLabel isText ifTrue:[
5a5b476cfd6b care for Text & images in rawLabel, when filtering. Claus Gittinger <cg@exept.de> parents: 973 diff changeset	750	emp := RunArray new.
5a5b476cfd6b care for Text & images in rawLabel, when filtering. Claus Gittinger <cg@exept.de> parents: 973 diff changeset	751	].
973 cd6b8d08c9c9 submenu item send #value. Claus Gittinger <cg@exept.de> parents: 960 diff changeset	752
cd6b8d08c9c9 submenu item send #value. Claus Gittinger <cg@exept.de> parents: 960 diff changeset	753	out := WriteStream on:''.
985 5a5b476cfd6b care for Text & images in rawLabel, when filtering. Claus Gittinger <cg@exept.de> parents: 973 diff changeset	754	in := rawLabel readStream.
973 cd6b8d08c9c9 submenu item send #value. Claus Gittinger <cg@exept.de> parents: 960 diff changeset	755	[in atEnd] whileFalse:[
985 5a5b476cfd6b care for Text & images in rawLabel, when filtering. Claus Gittinger <cg@exept.de> parents: 973 diff changeset	756	emp notNil ifTrue:[
5a5b476cfd6b care for Text & images in rawLabel, when filtering. Claus Gittinger <cg@exept.de> parents: 973 diff changeset	757	e := rawLabel emphasisAt:(in position).
5a5b476cfd6b care for Text & images in rawLabel, when filtering. Claus Gittinger <cg@exept.de> parents: 973 diff changeset	758	].
973 cd6b8d08c9c9 submenu item send #value. Claus Gittinger <cg@exept.de> parents: 960 diff changeset	759	c := in next.
cd6b8d08c9c9 submenu item send #value. Claus Gittinger <cg@exept.de> parents: 960 diff changeset	760	c == $& ifTrue:[
cd6b8d08c9c9 submenu item send #value. Claus Gittinger <cg@exept.de> parents: 960 diff changeset	761	in peek == $& ifTrue:[
985 5a5b476cfd6b care for Text & images in rawLabel, when filtering. Claus Gittinger <cg@exept.de> parents: 973 diff changeset	762	out nextPut:c.
5a5b476cfd6b care for Text & images in rawLabel, when filtering. Claus Gittinger <cg@exept.de> parents: 973 diff changeset	763	emp notNil ifTrue:[
5a5b476cfd6b care for Text & images in rawLabel, when filtering. Claus Gittinger <cg@exept.de> parents: 973 diff changeset	764	emp add:e
5a5b476cfd6b care for Text & images in rawLabel, when filtering. Claus Gittinger <cg@exept.de> parents: 973 diff changeset	765	]
973 cd6b8d08c9c9 submenu item send #value. Claus Gittinger <cg@exept.de> parents: 960 diff changeset	766	]
cd6b8d08c9c9 submenu item send #value. Claus Gittinger <cg@exept.de> parents: 960 diff changeset	767	] ifFalse:[
985 5a5b476cfd6b care for Text & images in rawLabel, when filtering. Claus Gittinger <cg@exept.de> parents: 973 diff changeset	768	out nextPut:c.
5a5b476cfd6b care for Text & images in rawLabel, when filtering. Claus Gittinger <cg@exept.de> parents: 973 diff changeset	769	emp notNil ifTrue:[
5a5b476cfd6b care for Text & images in rawLabel, when filtering. Claus Gittinger <cg@exept.de> parents: 973 diff changeset	770	emp add:e
5a5b476cfd6b care for Text & images in rawLabel, when filtering. Claus Gittinger <cg@exept.de> parents: 973 diff changeset	771	]
973 cd6b8d08c9c9 submenu item send #value. Claus Gittinger <cg@exept.de> parents: 960 diff changeset	772	]
cd6b8d08c9c9 submenu item send #value. Claus Gittinger <cg@exept.de> parents: 960 diff changeset	773	].
985 5a5b476cfd6b care for Text & images in rawLabel, when filtering. Claus Gittinger <cg@exept.de> parents: 973 diff changeset	774	l := out contents.
5a5b476cfd6b care for Text & images in rawLabel, when filtering. Claus Gittinger <cg@exept.de> parents: 973 diff changeset	775	emp notNil ifTrue:[
5a5b476cfd6b care for Text & images in rawLabel, when filtering. Claus Gittinger <cg@exept.de> parents: 973 diff changeset	776	^ Text string:l emphasisCollection:emp
5a5b476cfd6b care for Text & images in rawLabel, when filtering. Claus Gittinger <cg@exept.de> parents: 973 diff changeset	777	].
5a5b476cfd6b care for Text & images in rawLabel, when filtering. Claus Gittinger <cg@exept.de> parents: 973 diff changeset	778	^ l.
973 cd6b8d08c9c9 submenu item send #value. Claus Gittinger <cg@exept.de> parents: 960 diff changeset	779
cd6b8d08c9c9 submenu item send #value. Claus Gittinger <cg@exept.de> parents: 960 diff changeset	780	"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	781	"Modified: / 20.6.1998 / 17:15:18 / cg"
458 729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	782	! !
729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	783
579 77f6d490f1ac so far, so good ca parents: 578 diff changeset	784	!MenuItem methodsFor:'queries'!
77f6d490f1ac so far, so good ca parents: 578 diff changeset	785
1041 d28f0375cd26 added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	786	hasChoice
d28f0375cd26 added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	787	"test whether choice exists
d28f0375cd26 added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	788	"
d28f0375cd26 added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	789	^ self choice notNil
d28f0375cd26 added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	790
d28f0375cd26 added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	791	"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	792	!
d28f0375cd26 added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	793
590 fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	794	hasIndication
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	795	"test whether indication on/off exists
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	796	"
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	797	^ self indication notNil
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	798	!
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	799
579 77f6d490f1ac so far, so good ca parents: 578 diff changeset	800	hasSubmenu
584 9a4c30f7586f ST-80 compatible features addded ca parents: 581 diff changeset	801	^ self submenu notNil
579 77f6d490f1ac so far, so good ca parents: 578 diff changeset	802
77f6d490f1ac so far, so good ca parents: 578 diff changeset	803	"Created: 25.2.1997 / 20:56:20 / cg"
77f6d490f1ac so far, so good ca parents: 578 diff changeset	804	!
77f6d490f1ac so far, so good ca parents: 578 diff changeset	805
77f6d490f1ac so far, so good ca parents: 578 diff changeset	806	isEnabled
581 0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	807	^ enabled value ? true
579 77f6d490f1ac so far, so good ca parents: 578 diff changeset	808
77f6d490f1ac so far, so good ca parents: 578 diff changeset	809	"Created: 25.2.1997 / 19:39:17 / cg"
590 fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	810	!
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	811
724 898519684261 more VW comaptibility Claus Gittinger <cg@exept.de> parents: 684 diff changeset	812	isHidden
898519684261 more VW comaptibility Claus Gittinger <cg@exept.de> parents: 684 diff changeset	813	"not yet supported"
898519684261 more VW comaptibility Claus Gittinger <cg@exept.de> parents: 684 diff changeset	814
898519684261 more VW comaptibility Claus Gittinger <cg@exept.de> parents: 684 diff changeset	815	^ false
898519684261 more VW comaptibility Claus Gittinger <cg@exept.de> parents: 684 diff changeset	816
898519684261 more VW comaptibility Claus Gittinger <cg@exept.de> parents: 684 diff changeset	817	"Created: / 27.10.1997 / 15:13:43 / cg"
898519684261 more VW comaptibility Claus Gittinger <cg@exept.de> parents: 684 diff changeset	818	!
898519684261 more VW comaptibility Claus Gittinger <cg@exept.de> parents: 684 diff changeset	819
590 fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	820	isOff
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	821	"test whether indication on/off exists and is off
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	822	"
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	823	\|indication\|
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	824
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	825	indication := self indication.
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	826	^ indication value == false
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	827	!
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	828
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	829	isOn
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	830	"test whether indication on/off exists and is on
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	831	"
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	832	\|indication\|
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	833
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	834	indication := self indication.
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	835	^ indication value == true
579 77f6d490f1ac so far, so good ca parents: 578 diff changeset	836	! !
77f6d490f1ac so far, so good ca parents: 578 diff changeset	837
458 729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	838	!MenuItem::MenuItemAdornment methodsFor:'accessing'!
729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	839
579 77f6d490f1ac so far, so good ca parents: 578 diff changeset	840	accessCharacterPosition
77f6d490f1ac so far, so good ca parents: 578 diff changeset	841	"return the value of the instance variable 'accessCharacterPosition' (automatically generated)"
77f6d490f1ac so far, so good ca parents: 578 diff changeset	842
77f6d490f1ac so far, so good ca parents: 578 diff changeset	843	^ accessCharacterPosition!
77f6d490f1ac so far, so good ca parents: 578 diff changeset	844
77f6d490f1ac so far, so good ca parents: 578 diff changeset	845	accessCharacterPosition:something
77f6d490f1ac so far, so good ca parents: 578 diff changeset	846	"set the value of the instance variable 'accessCharacterPosition' (automatically generated)"
77f6d490f1ac so far, so good ca parents: 578 diff changeset	847
77f6d490f1ac so far, so good ca parents: 578 diff changeset	848	accessCharacterPosition := something.!
77f6d490f1ac so far, so good ca parents: 578 diff changeset	849
684 184dd159d02e support of arguments ca parents: 666 diff changeset	850	argument
184dd159d02e support of arguments ca parents: 666 diff changeset	851	"return the value of the instance variable 'argument' (automatically generated)"
184dd159d02e support of arguments ca parents: 666 diff changeset	852
184dd159d02e support of arguments ca parents: 666 diff changeset	853	^ argument
184dd159d02e support of arguments ca parents: 666 diff changeset	854
184dd159d02e support of arguments ca parents: 666 diff changeset	855	"Created: 25.2.1997 / 20:59:28 / cg"
184dd159d02e support of arguments ca parents: 666 diff changeset	856	!
184dd159d02e support of arguments ca parents: 666 diff changeset	857
184dd159d02e support of arguments ca parents: 666 diff changeset	858	argument:something
184dd159d02e support of arguments ca parents: 666 diff changeset	859	"set the value of the instance variable 'argument' (automatically generated)"
184dd159d02e support of arguments ca parents: 666 diff changeset	860
184dd159d02e support of arguments ca parents: 666 diff changeset	861	argument := something.
184dd159d02e support of arguments ca parents: 666 diff changeset	862
184dd159d02e support of arguments ca parents: 666 diff changeset	863	"Created: 25.2.1997 / 20:59:28 / cg"
184dd159d02e support of arguments ca parents: 666 diff changeset	864	!
184dd159d02e support of arguments ca parents: 666 diff changeset	865
1213 a80ce81d2944 auxValue added tm parents: 1203 diff changeset	866	auxValue
a80ce81d2944 auxValue added tm parents: 1203 diff changeset	867	"return the value of the instance variable 'auxValue' (automatically generated)"
a80ce81d2944 auxValue added tm parents: 1203 diff changeset	868
a80ce81d2944 auxValue added tm parents: 1203 diff changeset	869	^ auxValue!
a80ce81d2944 auxValue added tm parents: 1203 diff changeset	870
a80ce81d2944 auxValue added tm parents: 1203 diff changeset	871	auxValue:something
a80ce81d2944 auxValue added tm parents: 1203 diff changeset	872	"set the value of the instance variable 'auxValue' (automatically generated)"
a80ce81d2944 auxValue added tm parents: 1203 diff changeset	873
a80ce81d2944 auxValue added tm parents: 1203 diff changeset	874	auxValue := something.!
a80ce81d2944 auxValue added tm parents: 1203 diff changeset	875
1041 d28f0375cd26 added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	876	choice
d28f0375cd26 added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	877	"return the value of the instance variable 'choice' (automatically generated)"
d28f0375cd26 added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	878
d28f0375cd26 added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	879	^ choice
d28f0375cd26 added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	880
d28f0375cd26 added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	881	"Created: / 14.8.1998 / 14:32:06 / cg"
d28f0375cd26 added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	882	!
d28f0375cd26 added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	883
d28f0375cd26 added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	884	choice:something
d28f0375cd26 added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	885	"set the value of the instance variable 'choice' (automatically generated)"
d28f0375cd26 added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	886
d28f0375cd26 added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	887	choice := something.
d28f0375cd26 added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	888
d28f0375cd26 added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	889	"Created: / 14.8.1998 / 14:32:06 / cg"
d28f0375cd26 added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	890	!
d28f0375cd26 added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	891
d28f0375cd26 added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	892	choiceValue
d28f0375cd26 added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	893	"return the value of the instance variable 'choiceValue' (automatically generated)"
d28f0375cd26 added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	894
d28f0375cd26 added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	895	^ choiceValue
d28f0375cd26 added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	896
d28f0375cd26 added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	897	"Created: / 14.8.1998 / 15:39:26 / cg"
d28f0375cd26 added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	898	!
d28f0375cd26 added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	899
d28f0375cd26 added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	900	choiceValue:something
d28f0375cd26 added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	901	"set the value of the instance variable 'choiceValue' (automatically generated)"
d28f0375cd26 added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	902
d28f0375cd26 added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	903	choiceValue := something.
d28f0375cd26 added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	904
d28f0375cd26 added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	905	"Created: / 14.8.1998 / 15:39:26 / cg"
d28f0375cd26 added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	906	!
d28f0375cd26 added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	907
458 729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	908	color
729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	909	"return the value of the instance variable 'color' (automatically generated)"
729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	910
729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	911	^ color
729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	912
729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	913	"Created: 25.2.1997 / 20:59:28 / cg"
729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	914	!
729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	915
729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	916	color:something
729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	917	"set the value of the instance variable 'color' (automatically generated)"
729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	918
729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	919	color := something.
729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	920
729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	921	"Created: 25.2.1997 / 20:59:28 / cg"
729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	922	!
729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	923
1360 2b17ce81a790 support setting font in MenuPanel and Editor ca parents: 1347 diff changeset	924	font
2b17ce81a790 support setting font in MenuPanel and Editor ca parents: 1347 diff changeset	925	"get the specific font for an item or nil
2b17ce81a790 support setting font in MenuPanel and Editor ca parents: 1347 diff changeset	926	"
2b17ce81a790 support setting font in MenuPanel and Editor ca parents: 1347 diff changeset	927	^ font
2b17ce81a790 support setting font in MenuPanel and Editor ca parents: 1347 diff changeset	928	!
2b17ce81a790 support setting font in MenuPanel and Editor ca parents: 1347 diff changeset	929
2b17ce81a790 support setting font in MenuPanel and Editor ca parents: 1347 diff changeset	930	font:aFont
2b17ce81a790 support setting font in MenuPanel and Editor ca parents: 1347 diff changeset	931	"set a specific font for an item
2b17ce81a790 support setting font in MenuPanel and Editor ca parents: 1347 diff changeset	932	"
2b17ce81a790 support setting font in MenuPanel and Editor ca parents: 1347 diff changeset	933	font := aFont.
2b17ce81a790 support setting font in MenuPanel and Editor ca parents: 1347 diff changeset	934	!
2b17ce81a790 support setting font in MenuPanel and Editor ca parents: 1347 diff changeset	935
458 729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	936	indication
590 fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	937	"test whether the menu item has an on/off indicator (CheckToggle)
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	938	"
458 729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	939	^ indication
729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	940
729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	941	"Created: 25.2.1997 / 20:59:28 / cg"
729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	942	!
729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	943
729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	944	indication:something
590 fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	945	"test whether the menu item has an on/off indicator (CheckToggle)
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	946	"
458 729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	947	indication := something.
729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	948
729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	949	"Created: 25.2.1997 / 20:59:28 / cg"
729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	950	!
729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	951
1370 4d2a3cc1d3c7 allow views in subMenus ca parents: 1369 diff changeset	952	keepLinkedMenu
4d2a3cc1d3c7 allow views in subMenus ca parents: 1369 diff changeset	953	"return the value of the instance variable 'keepLinkedMenu' (automatically generated)"
4d2a3cc1d3c7 allow views in subMenus ca parents: 1369 diff changeset	954
4d2a3cc1d3c7 allow views in subMenus ca parents: 1369 diff changeset	955	^ keepLinkedMenu ? false
4d2a3cc1d3c7 allow views in subMenus ca parents: 1369 diff changeset	956	!
4d2a3cc1d3c7 allow views in subMenus ca parents: 1369 diff changeset	957
4d2a3cc1d3c7 allow views in subMenus ca parents: 1369 diff changeset	958	keepLinkedMenu:aBoolean
4d2a3cc1d3c7 allow views in subMenus ca parents: 1369 diff changeset	959	"set the value of the instance variable 'keepLinkedMenu' (automatically generated)"
4d2a3cc1d3c7 allow views in subMenus ca parents: 1369 diff changeset	960
4d2a3cc1d3c7 allow views in subMenus ca parents: 1369 diff changeset	961	keepLinkedMenu := aBoolean ? false.
4d2a3cc1d3c7 allow views in subMenus ca parents: 1369 diff changeset	962	!
4d2a3cc1d3c7 allow views in subMenus ca parents: 1369 diff changeset	963
581 0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	964	labelImage
0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	965	"return the value of the instance variable 'labelImage' (automatically generated)"
0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	966
0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	967	^ labelImage!
0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	968
0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	969	labelImage:something
0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	970	"set the value of the instance variable 'labelImage' (automatically generated)"
0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	971
0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	972	labelImage := something.!
0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	973
578 7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	974	labelText
7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	975	"get the text appear as the menu label
7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	976	"
7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	977	^ labelText
7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	978	!
7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	979
7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	980	labelText:something
7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	981	"set the text appear as the menu label
7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	982	"
7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	983	labelText := something.
7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	984	!
7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	985
7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	986	shortcutKeyCharacter
7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	987	"get the key to press to select the menu item from the keyboard
7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	988	"
7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	989	^ shortcutKey
7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	990	!
7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	991
7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	992	shortcutKeyCharacter:something
7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	993	"set the key to press to select the menu item from the keyboard
7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	994	"
7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	995	shortcutKey := something.
7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	996	!
7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	997
1347 e033db194238 added 'showBysuCursorWhileActive' attribute Claus Gittinger <cg@exept.de> parents: 1336 diff changeset	998	showBusyCursorWhilePerforming
e033db194238 added 'showBysuCursorWhileActive' attribute Claus Gittinger <cg@exept.de> parents: 1336 diff changeset	999	"get the flag which controls if a busy cursor is to be shown
e033db194238 added 'showBysuCursorWhileActive' attribute Claus Gittinger <cg@exept.de> parents: 1336 diff changeset	1000	while performing the menu action. Defaults to false."
e033db194238 added 'showBysuCursorWhileActive' attribute Claus Gittinger <cg@exept.de> parents: 1336 diff changeset	1001
e033db194238 added 'showBysuCursorWhileActive' attribute Claus Gittinger <cg@exept.de> parents: 1336 diff changeset	1002	^ showBusyCursorWhilePerforming ? false
e033db194238 added 'showBysuCursorWhileActive' attribute Claus Gittinger <cg@exept.de> parents: 1336 diff changeset	1003
e033db194238 added 'showBysuCursorWhileActive' attribute Claus Gittinger <cg@exept.de> parents: 1336 diff changeset	1004	!
e033db194238 added 'showBysuCursorWhileActive' attribute Claus Gittinger <cg@exept.de> parents: 1336 diff changeset	1005
e033db194238 added 'showBysuCursorWhileActive' attribute Claus Gittinger <cg@exept.de> parents: 1336 diff changeset	1006	showBusyCursorWhilePerforming:aBoolean
e033db194238 added 'showBysuCursorWhileActive' attribute Claus Gittinger <cg@exept.de> parents: 1336 diff changeset	1007	"set/clear the flag which controls if a busy cursor is to be shown
e033db194238 added 'showBysuCursorWhileActive' attribute Claus Gittinger <cg@exept.de> parents: 1336 diff changeset	1008	while performing the menu action. Defaults to false."
e033db194238 added 'showBysuCursorWhileActive' attribute Claus Gittinger <cg@exept.de> parents: 1336 diff changeset	1009
e033db194238 added 'showBysuCursorWhileActive' attribute Claus Gittinger <cg@exept.de> parents: 1336 diff changeset	1010	showBusyCursorWhilePerforming := aBoolean
e033db194238 added 'showBysuCursorWhileActive' attribute Claus Gittinger <cg@exept.de> parents: 1336 diff changeset	1011
e033db194238 added 'showBysuCursorWhileActive' attribute Claus Gittinger <cg@exept.de> parents: 1336 diff changeset	1012	!
e033db194238 added 'showBysuCursorWhileActive' attribute Claus Gittinger <cg@exept.de> parents: 1336 diff changeset	1013
1336 97d0a2cff0ac when setting a valueHolder or block via Claus Gittinger <cg@exept.de> parents: 1333 diff changeset	1014	staticSubmenu
97d0a2cff0ac when setting a valueHolder or block via Claus Gittinger <cg@exept.de> parents: 1333 diff changeset	1015	"get the submenu or nil;
97d0a2cff0ac when setting a valueHolder or block via Claus Gittinger <cg@exept.de> parents: 1333 diff changeset	1016	only returns the subMenu if its a static subMenu (i.e. not
97d0a2cff0ac when setting a valueHolder or block via Claus Gittinger <cg@exept.de> parents: 1333 diff changeset	1017	provided by a valueHolder or block).
97d0a2cff0ac when setting a valueHolder or block via Claus Gittinger <cg@exept.de> parents: 1333 diff changeset	1018	"
97d0a2cff0ac when setting a valueHolder or block via Claus Gittinger <cg@exept.de> parents: 1333 diff changeset	1019	(submenu isValueModel or:[submenu isBlock]) ifTrue:[
97d0a2cff0ac when setting a valueHolder or block via Claus Gittinger <cg@exept.de> parents: 1333 diff changeset	1020	^ nil
97d0a2cff0ac when setting a valueHolder or block via Claus Gittinger <cg@exept.de> parents: 1333 diff changeset	1021	].
97d0a2cff0ac when setting a valueHolder or block via Claus Gittinger <cg@exept.de> parents: 1333 diff changeset	1022	^ submenu
97d0a2cff0ac when setting a valueHolder or block via Claus Gittinger <cg@exept.de> parents: 1333 diff changeset	1023
97d0a2cff0ac when setting a valueHolder or block via Claus Gittinger <cg@exept.de> parents: 1333 diff changeset	1024	"Modified: / 5.2.2000 / 16:49:54 / cg"
97d0a2cff0ac when setting a valueHolder or block via Claus Gittinger <cg@exept.de> parents: 1333 diff changeset	1025	!
97d0a2cff0ac when setting a valueHolder or block via Claus Gittinger <cg@exept.de> parents: 1333 diff changeset	1026
458 729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	1027	submenu
578 7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	1028	"get the submenu or nil
7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	1029	"
973 cd6b8d08c9c9 submenu item send #value. Claus Gittinger <cg@exept.de> parents: 960 diff changeset	1030	^ submenu value
458 729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	1031
973 cd6b8d08c9c9 submenu item send #value. Claus Gittinger <cg@exept.de> parents: 960 diff changeset	1032	"Created: / 25.2.1997 / 20:59:28 / cg"
cd6b8d08c9c9 submenu item send #value. Claus Gittinger <cg@exept.de> parents: 960 diff changeset	1033	"Modified: / 19.6.1998 / 00:33:58 / cg"
458 729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	1034	!
729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	1035
729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	1036	submenu:something
578 7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	1037	"set the submenu or nil
7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	1038	"
1336 97d0a2cff0ac when setting a valueHolder or block via Claus Gittinger <cg@exept.de> parents: 1333 diff changeset	1039	(something isValueModel or:[something isBlock]) ifTrue:[
97d0a2cff0ac when setting a valueHolder or block via Claus Gittinger <cg@exept.de> parents: 1333 diff changeset	1040	submenuChannel notNil ifTrue:[
97d0a2cff0ac when setting a valueHolder or block via Claus Gittinger <cg@exept.de> parents: 1333 diff changeset	1041	"/ programmers error ?
97d0a2cff0ac when setting a valueHolder or block via Claus Gittinger <cg@exept.de> parents: 1333 diff changeset	1042	"/ how can I decide which one to use if there is both
97d0a2cff0ac when setting a valueHolder or block via Claus Gittinger <cg@exept.de> parents: 1333 diff changeset	1043	"/ a channel and a subMenu ...
97d0a2cff0ac when setting a valueHolder or block via Claus Gittinger <cg@exept.de> parents: 1333 diff changeset	1044	self halt:'overwriting submenuchannel'.
97d0a2cff0ac when setting a valueHolder or block via Claus Gittinger <cg@exept.de> parents: 1333 diff changeset	1045	].
97d0a2cff0ac when setting a valueHolder or block via Claus Gittinger <cg@exept.de> parents: 1333 diff changeset	1046	submenuChannel := something
97d0a2cff0ac when setting a valueHolder or block via Claus Gittinger <cg@exept.de> parents: 1333 diff changeset	1047	] ifFalse:[
97d0a2cff0ac when setting a valueHolder or block via Claus Gittinger <cg@exept.de> parents: 1333 diff changeset	1048	submenu := something.
97d0a2cff0ac when setting a valueHolder or block via Claus Gittinger <cg@exept.de> parents: 1333 diff changeset	1049	]
458 729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	1050
1336 97d0a2cff0ac when setting a valueHolder or block via Claus Gittinger <cg@exept.de> parents: 1333 diff changeset	1051	"Created: / 25.2.1997 / 20:59:28 / cg"
97d0a2cff0ac when setting a valueHolder or block via Claus Gittinger <cg@exept.de> parents: 1333 diff changeset	1052	"Modified: / 5.2.2000 / 16:53:28 / cg"
666 6e614a5d9248 add submenuChannel ca parents: 661 diff changeset	1053	!
6e614a5d9248 add submenuChannel ca parents: 661 diff changeset	1054
6e614a5d9248 add submenuChannel ca parents: 661 diff changeset	1055	submenuChannel
6e614a5d9248 add submenuChannel ca parents: 661 diff changeset	1056	"get the submenuChannel or nil
6e614a5d9248 add submenuChannel ca parents: 661 diff changeset	1057	"
6e614a5d9248 add submenuChannel ca parents: 661 diff changeset	1058	^ submenuChannel
6e614a5d9248 add submenuChannel ca parents: 661 diff changeset	1059	!
6e614a5d9248 add submenuChannel ca parents: 661 diff changeset	1060
6e614a5d9248 add submenuChannel ca parents: 661 diff changeset	1061	submenuChannel:something
6e614a5d9248 add submenuChannel ca parents: 661 diff changeset	1062	"set the submenuChannel or nil
6e614a5d9248 add submenuChannel ca parents: 661 diff changeset	1063	"
6e614a5d9248 add submenuChannel ca parents: 661 diff changeset	1064	submenuChannel := something.
973 cd6b8d08c9c9 submenu item send #value. Claus Gittinger <cg@exept.de> parents: 960 diff changeset	1065	!
cd6b8d08c9c9 submenu item send #value. Claus Gittinger <cg@exept.de> parents: 960 diff changeset	1066
cd6b8d08c9c9 submenu item send #value. Claus Gittinger <cg@exept.de> parents: 960 diff changeset	1067	submenuHolder
cd6b8d08c9c9 submenu item send #value. Claus Gittinger <cg@exept.de> parents: 960 diff changeset	1068	"get the submenuHolder or nil
cd6b8d08c9c9 submenu item send #value. Claus Gittinger <cg@exept.de> parents: 960 diff changeset	1069	"
cd6b8d08c9c9 submenu item send #value. Claus Gittinger <cg@exept.de> parents: 960 diff changeset	1070	^ submenu
cd6b8d08c9c9 submenu item send #value. Claus Gittinger <cg@exept.de> parents: 960 diff changeset	1071
cd6b8d08c9c9 submenu item send #value. Claus Gittinger <cg@exept.de> parents: 960 diff changeset	1072	"Modified: / 19.6.1998 / 00:33:58 / cg"
cd6b8d08c9c9 submenu item send #value. Claus Gittinger <cg@exept.de> parents: 960 diff changeset	1073	"Created: / 19.6.1998 / 00:34:32 / cg"
458 729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	1074	! !
729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	1075
451 95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1076	!MenuItem class methodsFor:'documentation'!
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1077
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1078	version
1409 d51c83a4268c implement: triggerOnDown ca parents: 1401 diff changeset	1079	^ '$Header: /cvs/stx/stx/libview2/MenuItem.st,v 1.42 2000-09-18 09:55:55 ca Exp $'
451 95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1080	! !

author	ca
	Mon, 18 Sep 2000 11:55:55 +0200
changeset 1409	d51c83a4268c
parent 1401	0fda9891ba4a
child 1425	b2db2ec8a083
permissions	-rw-r--r--