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

author	Claus Gittinger <cg@exept.de>
	Tue, 12 Mar 2002 15:13:56 +0100
changeset 1560	cd34f832b2b0
parent 1486	251879696655
child 1566	99ef8f1123c8
permissions	-rw-r--r--