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

author	Claus Gittinger <cg@exept.de>
	Tue, 05 Sep 2000 14:44:17 +0200
changeset 1403	94f9ec117aa5
parent 1401	0fda9891ba4a
child 1409	d51c83a4268c
permissions	-rw-r--r--