hg/stx-libview2: MenuItem.st@281acc9f1a73 (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
1360 2b17ce81a790 support setting font in MenuPanel and Editor ca parents: 1347 diff changeset	27	font auxValue showBusyCursorWhilePerforming'
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
451 95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	216	label
973 cd6b8d08c9c9 submenu item send #value. Claus Gittinger <cg@exept.de> parents: 960 diff changeset	217	^ self filteredLabel "/ label
451 95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	218
973 cd6b8d08c9c9 submenu item send #value. Claus Gittinger <cg@exept.de> parents: 960 diff changeset	219	"Created: / 25.2.1997 / 19:48:16 / cg"
cd6b8d08c9c9 submenu item send #value. Claus Gittinger <cg@exept.de> parents: 960 diff changeset	220	"Modified: / 19.6.1998 / 00:02:55 / cg"
451 95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	221	!
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	222
453 e06bf3866328 * empty log message * Claus Gittinger <cg@exept.de> parents: 451 diff changeset	223	label:aString
e06bf3866328 * empty log message * Claus Gittinger <cg@exept.de> parents: 451 diff changeset	224	label := aString
e06bf3866328 * empty log message * Claus Gittinger <cg@exept.de> parents: 451 diff changeset	225
e06bf3866328 * empty log message * Claus Gittinger <cg@exept.de> parents: 451 diff changeset	226	"Created: 25.2.1997 / 19:55:16 / cg"
e06bf3866328 * empty log message * Claus Gittinger <cg@exept.de> parents: 451 diff changeset	227	!
e06bf3866328 * empty log message * Claus Gittinger <cg@exept.de> parents: 451 diff changeset	228
581 0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	229	labelImage
0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	230	"gets the labelImage
0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	231	"
0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	232	adornment notNil ifTrue:[
584 9a4c30f7586f ST-80 compatible features addded ca parents: 581 diff changeset	233	^ adornment labelImage value
581 0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	234	].
0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	235	^ nil
0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	236	!
0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	237
0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	238	labelImage:aResourceRetriever
0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	239	"set the labelImage
0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	240	"
0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	241	aResourceRetriever notNil ifTrue:[
0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	242	self adornment labelImage:aResourceRetriever
0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	243	]
0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	244	!
0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	245
578 7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	246	nameKey
7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	247	^ nameKey
7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	248
7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	249
7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	250	!
7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	251
7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	252	nameKey:aNameKey
579 77f6d490f1ac so far, so good ca parents: 578 diff changeset	253	nameKey := aNameKey.
578 7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	254
7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	255
7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	256	!
7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	257
490 ebe88e50b29a * empty log message * ca parents: 458 diff changeset	258	rawLabel
ebe88e50b29a * empty log message * ca parents: 458 diff changeset	259	^ label
ebe88e50b29a * empty log message * ca parents: 458 diff changeset	260
ebe88e50b29a * empty log message * ca parents: 458 diff changeset	261	"Created: 25.2.1997 / 19:48:16 / cg"
ebe88e50b29a * empty log message * ca parents: 458 diff changeset	262	!
ebe88e50b29a * empty log message * ca parents: 458 diff changeset	263
451 95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	264	rawLabel:aString
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	265	label := aString
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	266
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	267	"Created: 25.2.1997 / 19:11:02 / cg"
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	268	!
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	269
490 ebe88e50b29a * empty log message * ca parents: 458 diff changeset	270	shortcutKeyCharacter
ebe88e50b29a * empty log message * ca parents: 458 diff changeset	271	"ignored for now"
ebe88e50b29a * empty log message * ca parents: 458 diff changeset	272
578 7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	273	adornment notNil ifTrue:[
7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	274	^ adornment shortcutKeyCharacter
7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	275	].
490 ebe88e50b29a * empty log message * ca parents: 458 diff changeset	276	^ nil
ebe88e50b29a * empty log message * ca parents: 458 diff changeset	277	!
ebe88e50b29a * empty log message * ca parents: 458 diff changeset	278
578 7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	279	shortcutKeyCharacter:aKey
7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	280	"set the key to press to select the menu item from the keyboard
7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	281	"
1333 423b4b4404c4 avoid creating an adornment (when nil adornment values are stored) Claus Gittinger <cg@exept.de> parents: 1329 diff changeset	282	(aKey notNil or:[adornment notNil]) ifTrue:[
579 77f6d490f1ac so far, so good ca parents: 578 diff changeset	283	self adornment shortcutKeyCharacter:aKey
77f6d490f1ac so far, so good ca parents: 578 diff changeset	284	]
1333 423b4b4404c4 avoid creating an adornment (when nil adornment values are stored) Claus Gittinger <cg@exept.de> parents: 1329 diff changeset	285
423b4b4404c4 avoid creating an adornment (when nil adornment values are stored) Claus Gittinger <cg@exept.de> parents: 1329 diff changeset	286	"Modified: / 4.2.2000 / 12:39:30 / cg"
578 7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	287	!
7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	288
1347 e033db194238 added 'showBysuCursorWhileActive' attribute Claus Gittinger <cg@exept.de> parents: 1336 diff changeset	289	showBusyCursorWhilePerforming
e033db194238 added 'showBysuCursorWhileActive' attribute Claus Gittinger <cg@exept.de> parents: 1336 diff changeset	290	"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	291	while performing the menu action. Defaults to false."
e033db194238 added 'showBysuCursorWhileActive' attribute Claus Gittinger <cg@exept.de> parents: 1336 diff changeset	292
e033db194238 added 'showBysuCursorWhileActive' attribute Claus Gittinger <cg@exept.de> parents: 1336 diff changeset	293	adornment notNil ifTrue:[
e033db194238 added 'showBysuCursorWhileActive' attribute Claus Gittinger <cg@exept.de> parents: 1336 diff changeset	294	^ adornment showBusyCursorWhilePerforming
e033db194238 added 'showBysuCursorWhileActive' attribute Claus Gittinger <cg@exept.de> parents: 1336 diff changeset	295	].
e033db194238 added 'showBysuCursorWhileActive' attribute Claus Gittinger <cg@exept.de> parents: 1336 diff changeset	296	^ nil
e033db194238 added 'showBysuCursorWhileActive' attribute Claus Gittinger <cg@exept.de> parents: 1336 diff changeset	297	!
e033db194238 added 'showBysuCursorWhileActive' attribute Claus Gittinger <cg@exept.de> parents: 1336 diff changeset	298
e033db194238 added 'showBysuCursorWhileActive' attribute Claus Gittinger <cg@exept.de> parents: 1336 diff changeset	299	showBusyCursorWhilePerforming:aBoolean
e033db194238 added 'showBysuCursorWhileActive' attribute Claus Gittinger <cg@exept.de> parents: 1336 diff changeset	300	"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	301	while performing the menu action. Defaults to false."
e033db194238 added 'showBysuCursorWhileActive' attribute Claus Gittinger <cg@exept.de> parents: 1336 diff changeset	302
e033db194238 added 'showBysuCursorWhileActive' attribute Claus Gittinger <cg@exept.de> parents: 1336 diff changeset	303	((aBoolean == true) or:[adornment notNil]) ifTrue:[
e033db194238 added 'showBysuCursorWhileActive' attribute Claus Gittinger <cg@exept.de> parents: 1336 diff changeset	304	self adornment showBusyCursorWhilePerforming:aBoolean
e033db194238 added 'showBysuCursorWhileActive' attribute Claus Gittinger <cg@exept.de> parents: 1336 diff changeset	305	]
e033db194238 added 'showBysuCursorWhileActive' attribute Claus Gittinger <cg@exept.de> parents: 1336 diff changeset	306	!
e033db194238 added 'showBysuCursorWhileActive' attribute Claus Gittinger <cg@exept.de> parents: 1336 diff changeset	307
794 432935e754e0 add new feature: ca parents: 752 diff changeset	308	startGroup
432935e754e0 add new feature: ca parents: 752 diff changeset	309	"start group #left #right #center ... or nil
432935e754e0 add new feature: ca parents: 752 diff changeset	310	at the moment only #right is implemented
432935e754e0 add new feature: ca parents: 752 diff changeset	311	"
432935e754e0 add new feature: ca parents: 752 diff changeset	312	^ startGroup
432935e754e0 add new feature: ca parents: 752 diff changeset	313	!
432935e754e0 add new feature: ca parents: 752 diff changeset	314
432935e754e0 add new feature: ca parents: 752 diff changeset	315	startGroup:aSymbol
432935e754e0 add new feature: ca parents: 752 diff changeset	316	"start group #left #right #center ...
432935e754e0 add new feature: ca parents: 752 diff changeset	317	at the moment only #right is implemented
432935e754e0 add new feature: ca parents: 752 diff changeset	318	"
432935e754e0 add new feature: ca parents: 752 diff changeset	319	(startGroup isNil or:[startGroup == #right]) ifTrue:[
432935e754e0 add new feature: ca parents: 752 diff changeset	320	startGroup := aSymbol
432935e754e0 add new feature: ca parents: 752 diff changeset	321	] ifFalse:[
432935e754e0 add new feature: ca parents: 752 diff changeset	322	self warn:('not supported group: ', aSymbol printString ).
432935e754e0 add new feature: ca parents: 752 diff changeset	323	]
432935e754e0 add new feature: ca parents: 752 diff changeset	324	!
432935e754e0 add new feature: ca parents: 752 diff changeset	325
458 729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	326	submenu
578 7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	327	adornment notNil ifTrue:[
7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	328	^ adornment submenu
7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	329	].
7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	330	^ nil
458 729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	331
729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	332	"Created: 25.2.1997 / 20:57:24 / cg"
729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	333	!
729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	334
729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	335	submenu:aMenu
1333 423b4b4404c4 avoid creating an adornment (when nil adornment values are stored) Claus Gittinger <cg@exept.de> parents: 1329 diff changeset	336	(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	337	self adornment submenu:aMenu
423b4b4404c4 avoid creating an adornment (when nil adornment values are stored) Claus Gittinger <cg@exept.de> parents: 1329 diff changeset	338	]
458 729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	339
1333 423b4b4404c4 avoid creating an adornment (when nil adornment values are stored) Claus Gittinger <cg@exept.de> parents: 1329 diff changeset	340	"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	341	"Modified: / 4.2.2000 / 12:40:02 / cg"
458 729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	342	!
729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	343
666 6e614a5d9248 add submenuChannel ca parents: 661 diff changeset	344	submenuChannel
6e614a5d9248 add submenuChannel ca parents: 661 diff changeset	345	adornment notNil ifTrue:[
6e614a5d9248 add submenuChannel ca parents: 661 diff changeset	346	^ adornment submenuChannel
6e614a5d9248 add submenuChannel ca parents: 661 diff changeset	347	].
6e614a5d9248 add submenuChannel ca parents: 661 diff changeset	348	^ nil
6e614a5d9248 add submenuChannel ca parents: 661 diff changeset	349	!
6e614a5d9248 add submenuChannel ca parents: 661 diff changeset	350
6e614a5d9248 add submenuChannel ca parents: 661 diff changeset	351	submenuChannel:something
1333 423b4b4404c4 avoid creating an adornment (when nil adornment values are stored) Claus Gittinger <cg@exept.de> parents: 1329 diff changeset	352	(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	353	self adornment submenuChannel:something
423b4b4404c4 avoid creating an adornment (when nil adornment values are stored) Claus Gittinger <cg@exept.de> parents: 1329 diff changeset	354	]
423b4b4404c4 avoid creating an adornment (when nil adornment values are stored) Claus Gittinger <cg@exept.de> parents: 1329 diff changeset	355
423b4b4404c4 avoid creating an adornment (when nil adornment values are stored) Claus Gittinger <cg@exept.de> parents: 1329 diff changeset	356	"Modified: / 4.2.2000 / 12:40:19 / cg"
666 6e614a5d9248 add submenuChannel ca parents: 661 diff changeset	357	!
6e614a5d9248 add submenuChannel ca parents: 661 diff changeset	358
451 95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	359	value
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	360	^ value
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	361
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	362	"Created: 25.2.1997 / 19:50:14 / cg"
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	363	!
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	364
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	365	value:something
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	366	value := something
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	367
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	368	"Created: 25.2.1997 / 19:11:13 / cg"
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	369	! !
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	370
1333 423b4b4404c4 avoid creating an adornment (when nil adornment values are stored) Claus Gittinger <cg@exept.de> parents: 1329 diff changeset	371	!MenuItem methodsFor:'accessing-behavior'!
579 77f6d490f1ac so far, so good ca parents: 578 diff changeset	372
590 fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	373	beOff
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	374	"set indication off
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	375	"
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	376	self indication:false
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	377	!
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	378
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	379	beOn
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	380	"set indication on
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	381	"
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	382	self indication:true
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	383	!
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	384
1041 d28f0375cd26 added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	385	choice
d28f0375cd26 added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	386	"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	387	"
d28f0375cd26 added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	388	adornment notNil ifTrue:[
d28f0375cd26 added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	389	^ adornment choice
d28f0375cd26 added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	390	].
d28f0375cd26 added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	391	^ nil
d28f0375cd26 added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	392
d28f0375cd26 added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	393	"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	394	"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	395	!
d28f0375cd26 added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	396
d28f0375cd26 added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	397	choice:aChoice
d28f0375cd26 added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	398	"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	399	"
d28f0375cd26 added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	400	(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	401	self adornment choice:aChoice.
d28f0375cd26 added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	402	].
d28f0375cd26 added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	403
d28f0375cd26 added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	404	"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	405	!
d28f0375cd26 added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	406
d28f0375cd26 added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	407	choiceValue
d28f0375cd26 added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	408	"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	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 choiceValue
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	"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	416	"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	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	choiceValue:something
d28f0375cd26 added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	420	"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	421	"
d28f0375cd26 added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	422	(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	423	self adornment choiceValue:something.
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:39:12 / 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
579 77f6d490f1ac so far, so good ca parents: 578 diff changeset	429	disable
77f6d490f1ac so far, so good ca parents: 578 diff changeset	430	enabled := false
77f6d490f1ac so far, so good ca parents: 578 diff changeset	431
77f6d490f1ac so far, so good ca parents: 578 diff changeset	432	"Created: 25.2.1997 / 19:39:09 / cg"
77f6d490f1ac so far, so good ca parents: 578 diff changeset	433	!
77f6d490f1ac so far, so good ca parents: 578 diff changeset	434
77f6d490f1ac so far, so good ca parents: 578 diff changeset	435	enable
77f6d490f1ac so far, so good ca parents: 578 diff changeset	436	enabled := true
77f6d490f1ac so far, so good ca parents: 578 diff changeset	437
77f6d490f1ac so far, so good ca parents: 578 diff changeset	438	"Created: 25.2.1997 / 19:39:00 / cg"
77f6d490f1ac so far, so good ca parents: 578 diff changeset	439	!
77f6d490f1ac so far, so good ca parents: 578 diff changeset	440
581 0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	441	enabled
0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	442	"returns a boolean, valueHolder or block
0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	443	"
0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	444	^ enabled
0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	445	!
579 77f6d490f1ac so far, so good ca parents: 578 diff changeset	446
581 0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	447	enabled:something
0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	448	"a boolean, valueHolder or block
0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	449	"
0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	450	enabled := something
590 fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	451	!
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	452
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	453	indication
1041 d28f0375cd26 added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	454	"return the menu items on/off indicator (CheckToggle)
590 fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	455	"
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	456	adornment notNil ifTrue:[
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	457	^ adornment indication
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	458	].
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	459	^ nil
1041 d28f0375cd26 added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	460
d28f0375cd26 added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	461	"Modified: / 14.8.1998 / 15:11:37 / cg"
590 fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	462	!
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	463
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	464	indication:anIndication
1041 d28f0375cd26 added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	465	"set the menu items an on/off indicator (CheckToggle)
590 fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	466	"
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	467	(anIndication notNil or:[adornment notNil]) ifTrue:[
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	468	self adornment indication:anIndication.
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	469	].
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	470
1041 d28f0375cd26 added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	471	"Modified: / 14.8.1998 / 15:11:25 / cg"
752 93690dcd1b75 button and label translation support added. tz parents: 724 diff changeset	472	!
93690dcd1b75 button and label translation support added. tz parents: 724 diff changeset	473
93690dcd1b75 button and label translation support added. tz parents: 724 diff changeset	474	isButton
93690dcd1b75 button and label translation support added. tz parents: 724 diff changeset	475	"returns whether item looks like a Button
93690dcd1b75 button and label translation support added. tz parents: 724 diff changeset	476	"
93690dcd1b75 button and label translation support added. tz parents: 724 diff changeset	477	^isButton ? false
93690dcd1b75 button and label translation support added. tz parents: 724 diff changeset	478
93690dcd1b75 button and label translation support added. tz parents: 724 diff changeset	479
93690dcd1b75 button and label translation support added. tz parents: 724 diff changeset	480	!
93690dcd1b75 button and label translation support added. tz parents: 724 diff changeset	481
93690dcd1b75 button and label translation support added. tz parents: 724 diff changeset	482	isButton:anBoolean
93690dcd1b75 button and label translation support added. tz parents: 724 diff changeset	483	"sets whether item looks like a Button
93690dcd1b75 button and label translation support added. tz parents: 724 diff changeset	484	"
93690dcd1b75 button and label translation support added. tz parents: 724 diff changeset	485	isButton := anBoolean
93690dcd1b75 button and label translation support added. tz parents: 724 diff changeset	486
93690dcd1b75 button and label translation support added. tz parents: 724 diff changeset	487
93690dcd1b75 button and label translation support added. tz parents: 724 diff changeset	488	!
93690dcd1b75 button and label translation support added. tz parents: 724 diff changeset	489
93690dcd1b75 button and label translation support added. tz parents: 724 diff changeset	490	translateLabel
93690dcd1b75 button and label translation support added. tz parents: 724 diff changeset	491	"returns whether label is translated
93690dcd1b75 button and label translation support added. tz parents: 724 diff changeset	492	"
93690dcd1b75 button and label translation support added. tz parents: 724 diff changeset	493	^translateLabel ? false
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	!
93690dcd1b75 button and label translation support added. tz parents: 724 diff changeset	497
93690dcd1b75 button and label translation support added. tz parents: 724 diff changeset	498	translateLabel:anBoolean
93690dcd1b75 button and label translation support added. tz parents: 724 diff changeset	499	"sets whether label is translated
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	translateLabel := anBoolean
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
581 0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	504	! !
0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	505
1333 423b4b4404c4 avoid creating an adornment (when nil adornment values are stored) Claus Gittinger <cg@exept.de> parents: 1329 diff changeset	506	!MenuItem methodsFor:'accessing-resource'!
581 0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	507
584 9a4c30f7586f ST-80 compatible features addded ca parents: 581 diff changeset	508	findGuiResourcesIn:aResourceContainerOrApplication
581 0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	509	"setup a resource container
0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	510	"
960 fee5a1a50374 adornments submenu may be a valueHolder. Claus Gittinger <cg@exept.de> parents: 798 diff changeset	511	\|lblImg m\|
581 0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	512
752 93690dcd1b75 button and label translation support added. tz parents: 724 diff changeset	513	self translateLabel ifTrue:[
93690dcd1b75 button and label translation support added. tz parents: 724 diff changeset	514	label := ResourceRetriever findResourceLabel: label in: aResourceContainerOrApplication
93690dcd1b75 button and label translation support added. tz parents: 724 diff changeset	515	].
93690dcd1b75 button and label translation support added. tz parents: 724 diff changeset	516
584 9a4c30f7586f ST-80 compatible features addded ca parents: 581 diff changeset	517	adornment notNil ifTrue:[
752 93690dcd1b75 button and label translation support added. tz parents: 724 diff changeset	518	(lblImg := adornment labelImage) notNil ifTrue:[
93690dcd1b75 button and label translation support added. tz parents: 724 diff changeset	519	lblImg findGuiResourcesIn:aResourceContainerOrApplication.
93690dcd1b75 button and label translation support added. tz parents: 724 diff changeset	520	lblImg labelText notNil ifTrue: [lblImg labelText: label].
93690dcd1b75 button and label translation support added. tz parents: 724 diff changeset	521	].
960 fee5a1a50374 adornments submenu may be a valueHolder. Claus Gittinger <cg@exept.de> parents: 798 diff changeset	522	(m := adornment submenu) notNil ifTrue:[
fee5a1a50374 adornments submenu may be a valueHolder. Claus Gittinger <cg@exept.de> parents: 798 diff changeset	523	m := m value.
fee5a1a50374 adornments submenu may be a valueHolder. Claus Gittinger <cg@exept.de> parents: 798 diff changeset	524	m notNil ifTrue:[
fee5a1a50374 adornments submenu may be a valueHolder. Claus Gittinger <cg@exept.de> parents: 798 diff changeset	525	m findGuiResourcesIn:aResourceContainerOrApplication
fee5a1a50374 adornments submenu may be a valueHolder. Claus Gittinger <cg@exept.de> parents: 798 diff changeset	526	]
752 93690dcd1b75 button and label translation support added. tz parents: 724 diff changeset	527	].
581 0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	528	]
960 fee5a1a50374 adornments submenu may be a valueHolder. Claus Gittinger <cg@exept.de> parents: 798 diff changeset	529
fee5a1a50374 adornments submenu may be a valueHolder. Claus Gittinger <cg@exept.de> parents: 798 diff changeset	530	"Modified: / 18.6.1998 / 16:54:25 / cg"
579 77f6d490f1ac so far, so good ca parents: 578 diff changeset	531	! !
77f6d490f1ac so far, so good ca parents: 578 diff changeset	532
451 95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	533	!MenuItem methodsFor:'converting'!
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	534
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	535	fromLiteralArrayEncoding:aLiteralEncodedArray
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	536	"read my contents from a aLiteralEncodedArray"
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	537
1202 1cc76ca8e500 checkin from browser Claus Gittinger <cg@exept.de> parents: 1196 diff changeset	538	\|selector value\|
1cc76ca8e500 checkin from browser Claus Gittinger <cg@exept.de> parents: 1196 diff changeset	539
451 95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	540	2 to:aLiteralEncodedArray size by:2 do:[:i \|
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	541	selector := aLiteralEncodedArray at:i.
1203 35445f3530a4 do not decode the argument Claus Gittinger <cg@exept.de> parents: 1202 diff changeset	542	value := (aLiteralEncodedArray at:i+1).
35445f3530a4 do not decode the argument Claus Gittinger <cg@exept.de> parents: 1202 diff changeset	543	selector == #argument: ifFalse:[
35445f3530a4 do not decode the argument Claus Gittinger <cg@exept.de> parents: 1202 diff changeset	544	value := value decodeAsLiteralArray
35445f3530a4 do not decode the argument Claus Gittinger <cg@exept.de> parents: 1202 diff changeset	545	].
581 0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	546	self perform:selector with:value
451 95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	547	].
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	548
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	549	"
578 7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	550	#( #MenuItem #rawLabel: 'left' #nameKey: 'identifier' #value: #left )
451 95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	551	decodeAsLiteralArray
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	552	"
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	553
1333 423b4b4404c4 avoid creating an adornment (when nil adornment values are stored) Claus Gittinger <cg@exept.de> parents: 1329 diff changeset	554	"Modified: / 4.2.2000 / 12:50:28 / cg"
490 ebe88e50b29a * empty log message * ca parents: 458 diff changeset	555	!
ebe88e50b29a * empty log message * ca parents: 458 diff changeset	556
ebe88e50b29a * empty log message * ca parents: 458 diff changeset	557	literalArrayEncoding
ebe88e50b29a * empty log message * ca parents: 458 diff changeset	558	"return myself encoded as a literal array"
ebe88e50b29a * empty log message * ca parents: 458 diff changeset	559
581 0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	560	\|coll something\|
490 ebe88e50b29a * empty log message * ca parents: 458 diff changeset	561
ebe88e50b29a * empty log message * ca parents: 458 diff changeset	562	coll := OrderedCollection new.
ebe88e50b29a * empty log message * ca parents: 458 diff changeset	563	coll add:#MenuItem.
581 0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	564
0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	565	label notNil ifTrue:[
0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	566	coll add:#label: ; add:(label literalArrayEncoding)
0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	567	].
752 93690dcd1b75 button and label translation support added. tz parents: 724 diff changeset	568	self translateLabel ifTrue:[
1328 a56f6e341b5b add new behavior: hideMenuOnActivated ca parents: 1306 diff changeset	569	coll add:#translateLabel: ; add:true
752 93690dcd1b75 button and label translation support added. tz parents: 724 diff changeset	570	].
93690dcd1b75 button and label translation support added. tz parents: 724 diff changeset	571	self isButton ifTrue:[
1328 a56f6e341b5b add new behavior: hideMenuOnActivated ca parents: 1306 diff changeset	572	coll add:#isButton:; add:true
a56f6e341b5b add new behavior: hideMenuOnActivated ca parents: 1306 diff changeset	573	].
a56f6e341b5b add new behavior: hideMenuOnActivated ca parents: 1306 diff changeset	574	hideMenuOnActivated == false ifTrue:[
a56f6e341b5b add new behavior: hideMenuOnActivated ca parents: 1306 diff changeset	575	coll add:#hideMenuOnActivated: ; add:false
752 93690dcd1b75 button and label translation support added. tz parents: 724 diff changeset	576	].
581 0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	577	nameKey notNil ifTrue:[
0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	578	coll add:#nameKey: ; add:(nameKey literalArrayEncoding)
0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	579	].
798 8a27a879ff23 support of visible/invisible items ca parents: 794 diff changeset	580	isVisible notNil ifTrue:[
8a27a879ff23 support of visible/invisible items ca parents: 794 diff changeset	581	isVisible ~~ true ifTrue:[
8a27a879ff23 support of visible/invisible items ca parents: 794 diff changeset	582	coll add:#isVisible: ; add:(isVisible literalArrayEncoding)
8a27a879ff23 support of visible/invisible items ca parents: 794 diff changeset	583	]
8a27a879ff23 support of visible/invisible items ca parents: 794 diff changeset	584	].
794 432935e754e0 add new feature: ca parents: 752 diff changeset	585	startGroup notNil ifTrue:[
432935e754e0 add new feature: ca parents: 752 diff changeset	586	coll add:#startGroup: ; add:(startGroup literalArrayEncoding)
432935e754e0 add new feature: ca parents: 752 diff changeset	587	].
432935e754e0 add new feature: ca parents: 752 diff changeset	588
579 77f6d490f1ac so far, so good ca parents: 578 diff changeset	589	value notNil ifTrue:[
77f6d490f1ac so far, so good ca parents: 578 diff changeset	590	coll add:#value: ; add:(value literalArrayEncoding).
77f6d490f1ac so far, so good ca parents: 578 diff changeset	591	].
653 1e7c30f9ca6c literalArrayEncoding updated ca parents: 640 diff changeset	592	activeHelpKey notNil ifTrue:[
1e7c30f9ca6c literalArrayEncoding updated ca parents: 640 diff changeset	593	coll add:#activeHelpKey: ; add:(activeHelpKey literalArrayEncoding).
1e7c30f9ca6c literalArrayEncoding updated ca parents: 640 diff changeset	594	].
1e7c30f9ca6c literalArrayEncoding updated ca parents: 640 diff changeset	595	(something := self enabled) notNil ifTrue:[
1e7c30f9ca6c literalArrayEncoding updated ca parents: 640 diff changeset	596	coll add:#enabled: ; add:(enabled literalArrayEncoding).
579 77f6d490f1ac so far, so good ca parents: 578 diff changeset	597	].
77f6d490f1ac so far, so good ca parents: 578 diff changeset	598
653 1e7c30f9ca6c literalArrayEncoding updated ca parents: 640 diff changeset	599	adornment notNil ifTrue:[
1e7c30f9ca6c literalArrayEncoding updated ca parents: 640 diff changeset	600	(something := self shortcutKeyCharacter) notNil ifTrue:[
1e7c30f9ca6c literalArrayEncoding updated ca parents: 640 diff changeset	601	coll add:#shortcutKeyCharacter: ; add:(something literalArrayEncoding)
1e7c30f9ca6c literalArrayEncoding updated ca parents: 640 diff changeset	602	].
1360 2b17ce81a790 support setting font in MenuPanel and Editor ca parents: 1347 diff changeset	603	(something := self font) notNil ifTrue:[
2b17ce81a790 support setting font in MenuPanel and Editor ca parents: 1347 diff changeset	604	coll add:#font: ; add:(something literalArrayEncoding)
2b17ce81a790 support setting font in MenuPanel and Editor ca parents: 1347 diff changeset	605	].
653 1e7c30f9ca6c literalArrayEncoding updated ca parents: 640 diff changeset	606
1e7c30f9ca6c literalArrayEncoding updated ca parents: 640 diff changeset	607	(something := self accessCharacterPosition) notNil ifTrue:[
1e7c30f9ca6c literalArrayEncoding updated ca parents: 640 diff changeset	608	coll add:#accessCharacterPosition: ; add:(something literalArrayEncoding)
1e7c30f9ca6c literalArrayEncoding updated ca parents: 640 diff changeset	609	].
1e7c30f9ca6c literalArrayEncoding updated ca parents: 640 diff changeset	610
1347 e033db194238 added 'showBysuCursorWhileActive' attribute Claus Gittinger <cg@exept.de> parents: 1336 diff changeset	611	(something := self showBusyCursorWhilePerforming) == true ifTrue:[
e033db194238 added 'showBysuCursorWhileActive' attribute Claus Gittinger <cg@exept.de> parents: 1336 diff changeset	612	coll add:#showBusyCursorWhilePerforming: ; add:(something literalArrayEncoding)
e033db194238 added 'showBysuCursorWhileActive' attribute Claus Gittinger <cg@exept.de> parents: 1336 diff changeset	613	].
e033db194238 added 'showBysuCursorWhileActive' attribute Claus Gittinger <cg@exept.de> parents: 1336 diff changeset	614
684 184dd159d02e support of arguments ca parents: 666 diff changeset	615	(something := self argument) notNil ifTrue:[
184dd159d02e support of arguments ca parents: 666 diff changeset	616	coll add:#argument: ; add:(something literalArrayEncoding)
184dd159d02e support of arguments ca parents: 666 diff changeset	617	].
184dd159d02e support of arguments ca parents: 666 diff changeset	618
661 c09ac6b9820d literalArrayEncoding ca parents: 653 diff changeset	619	adornment labelImage notNil ifTrue:[
653 1e7c30f9ca6c literalArrayEncoding updated ca parents: 640 diff changeset	620	coll add:#labelImage: ; add:(adornment labelImage literalArrayEncoding)
1e7c30f9ca6c literalArrayEncoding updated ca parents: 640 diff changeset	621	].
1e7c30f9ca6c literalArrayEncoding updated ca parents: 640 diff changeset	622	(something := self indication) notNil ifTrue:[
1e7c30f9ca6c literalArrayEncoding updated ca parents: 640 diff changeset	623	coll add:#indication: ; add:(something literalArrayEncoding)
666 6e614a5d9248 add submenuChannel ca parents: 661 diff changeset	624	].
1041 d28f0375cd26 added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	625	(something := self choice) notNil ifTrue:[
1369 281acc9f1a73 dont store choiceValue for non-choice items. Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	626	coll add:#choice: ; add:(something literalArrayEncoding).
281acc9f1a73 dont store choiceValue for non-choice items. Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	627
281acc9f1a73 dont store choiceValue for non-choice items. Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	628	(something := self choiceValue) notNil ifTrue:[
281acc9f1a73 dont store choiceValue for non-choice items. Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	629	coll add:#choiceValue: ; add:(something literalArrayEncoding)
281acc9f1a73 dont store choiceValue for non-choice items. Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	630	].
1041 d28f0375cd26 added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	631	].
1213 a80ce81d2944 auxValue added tm parents: 1203 diff changeset	632	(something := self auxValue) notNil ifTrue:[
a80ce81d2944 auxValue added tm parents: 1203 diff changeset	633	coll add:#auxValue: ; add:(something literalArrayEncoding)
a80ce81d2944 auxValue added tm parents: 1203 diff changeset	634	].
579 77f6d490f1ac so far, so good ca parents: 578 diff changeset	635
666 6e614a5d9248 add submenuChannel ca parents: 661 diff changeset	636	(something := self submenuChannel) notNil ifTrue:[
6e614a5d9248 add submenuChannel ca parents: 661 diff changeset	637	coll add:#submenuChannel: ; add:(something literalArrayEncoding)
6e614a5d9248 add submenuChannel ca parents: 661 diff changeset	638	].
6e614a5d9248 add submenuChannel ca parents: 661 diff changeset	639
6e614a5d9248 add submenuChannel ca parents: 661 diff changeset	640	self hasSubmenu ifTrue:[
6e614a5d9248 add submenuChannel ca parents: 661 diff changeset	641	coll add:#submenu:; add:(self submenu literalArrayEncoding)
6e614a5d9248 add submenuChannel ca parents: 661 diff changeset	642	].
581 0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	643	].
653 1e7c30f9ca6c literalArrayEncoding updated ca parents: 640 diff changeset	644
579 77f6d490f1ac so far, so good ca parents: 578 diff changeset	645	^ coll asArray
1041 d28f0375cd26 added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	646
d28f0375cd26 added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	647	"Modified: / 14.8.1998 / 15:44:53 / cg"
451 95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	648	! !
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	649
1329 b56172875855 nicer displayString Claus Gittinger <cg@exept.de> parents: 1328 diff changeset	650	!MenuItem methodsFor:'printing & storing'!
b56172875855 nicer displayString Claus Gittinger <cg@exept.de> parents: 1328 diff changeset	651
b56172875855 nicer displayString Claus Gittinger <cg@exept.de> parents: 1328 diff changeset	652	displayString
b56172875855 nicer displayString Claus Gittinger <cg@exept.de> parents: 1328 diff changeset	653	^ self classNameWithArticle , '(' , label storeString , ')'
b56172875855 nicer displayString Claus Gittinger <cg@exept.de> parents: 1328 diff changeset	654	! !
b56172875855 nicer displayString Claus Gittinger <cg@exept.de> parents: 1328 diff changeset	655
458 729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	656	!MenuItem methodsFor:'private - accessing'!
729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	657
729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	658	adornment
729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	659	adornment isNil ifTrue:[
729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	660	adornment := MenuItemAdornment new
729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	661	].
729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	662	^ adornment
729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	663
729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	664	"Created: 25.2.1997 / 20:57:05 / cg"
973 cd6b8d08c9c9 submenu item send #value. Claus Gittinger <cg@exept.de> parents: 960 diff changeset	665	!
cd6b8d08c9c9 submenu item send #value. Claus Gittinger <cg@exept.de> parents: 960 diff changeset	666
cd6b8d08c9c9 submenu item send #value. Claus Gittinger <cg@exept.de> parents: 960 diff changeset	667	filteredLabel
cd6b8d08c9c9 submenu item send #value. Claus Gittinger <cg@exept.de> parents: 960 diff changeset	668	"return the label without any &-chars"
cd6b8d08c9c9 submenu item send #value. Claus Gittinger <cg@exept.de> parents: 960 diff changeset	669
985 5a5b476cfd6b care for Text & images in rawLabel, when filtering. Claus Gittinger <cg@exept.de> parents: 973 diff changeset	670	\|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	671
5a5b476cfd6b care for Text & images in rawLabel, when filtering. Claus Gittinger <cg@exept.de> parents: 973 diff changeset	672	rawLabel := self rawLabel.
5a5b476cfd6b care for Text & images in rawLabel, when filtering. Claus Gittinger <cg@exept.de> parents: 973 diff changeset	673	rawLabel isString ifFalse:[^ rawLabel].
5a5b476cfd6b care for Text & images in rawLabel, when filtering. Claus Gittinger <cg@exept.de> parents: 973 diff changeset	674
5a5b476cfd6b care for Text & images in rawLabel, when filtering. Claus Gittinger <cg@exept.de> parents: 973 diff changeset	675	"/ be careful to preserve any emphasis ...
5a5b476cfd6b care for Text & images in rawLabel, when filtering. Claus Gittinger <cg@exept.de> parents: 973 diff changeset	676	"/ bad kludge ...
5a5b476cfd6b care for Text & images in rawLabel, when filtering. Claus Gittinger <cg@exept.de> parents: 973 diff changeset	677	rawLabel isText ifTrue:[
5a5b476cfd6b care for Text & images in rawLabel, when filtering. Claus Gittinger <cg@exept.de> parents: 973 diff changeset	678	emp := RunArray new.
5a5b476cfd6b care for Text & images in rawLabel, when filtering. Claus Gittinger <cg@exept.de> parents: 973 diff changeset	679	].
973 cd6b8d08c9c9 submenu item send #value. Claus Gittinger <cg@exept.de> parents: 960 diff changeset	680
cd6b8d08c9c9 submenu item send #value. Claus Gittinger <cg@exept.de> parents: 960 diff changeset	681	out := WriteStream on:''.
985 5a5b476cfd6b care for Text & images in rawLabel, when filtering. Claus Gittinger <cg@exept.de> parents: 973 diff changeset	682	in := rawLabel readStream.
973 cd6b8d08c9c9 submenu item send #value. Claus Gittinger <cg@exept.de> parents: 960 diff changeset	683	[in atEnd] whileFalse:[
985 5a5b476cfd6b care for Text & images in rawLabel, when filtering. Claus Gittinger <cg@exept.de> parents: 973 diff changeset	684	emp notNil ifTrue:[
5a5b476cfd6b care for Text & images in rawLabel, when filtering. Claus Gittinger <cg@exept.de> parents: 973 diff changeset	685	e := rawLabel emphasisAt:(in position).
5a5b476cfd6b care for Text & images in rawLabel, when filtering. Claus Gittinger <cg@exept.de> parents: 973 diff changeset	686	].
973 cd6b8d08c9c9 submenu item send #value. Claus Gittinger <cg@exept.de> parents: 960 diff changeset	687	c := in next.
cd6b8d08c9c9 submenu item send #value. Claus Gittinger <cg@exept.de> parents: 960 diff changeset	688	c == $& ifTrue:[
cd6b8d08c9c9 submenu item send #value. Claus Gittinger <cg@exept.de> parents: 960 diff changeset	689	in peek == $& ifTrue:[
985 5a5b476cfd6b care for Text & images in rawLabel, when filtering. Claus Gittinger <cg@exept.de> parents: 973 diff changeset	690	out nextPut:c.
5a5b476cfd6b care for Text & images in rawLabel, when filtering. Claus Gittinger <cg@exept.de> parents: 973 diff changeset	691	emp notNil ifTrue:[
5a5b476cfd6b care for Text & images in rawLabel, when filtering. Claus Gittinger <cg@exept.de> parents: 973 diff changeset	692	emp add:e
5a5b476cfd6b care for Text & images in rawLabel, when filtering. Claus Gittinger <cg@exept.de> parents: 973 diff changeset	693	]
973 cd6b8d08c9c9 submenu item send #value. Claus Gittinger <cg@exept.de> parents: 960 diff changeset	694	]
cd6b8d08c9c9 submenu item send #value. Claus Gittinger <cg@exept.de> parents: 960 diff changeset	695	] ifFalse:[
985 5a5b476cfd6b care for Text & images in rawLabel, when filtering. Claus Gittinger <cg@exept.de> parents: 973 diff changeset	696	out nextPut:c.
5a5b476cfd6b care for Text & images in rawLabel, when filtering. Claus Gittinger <cg@exept.de> parents: 973 diff changeset	697	emp notNil ifTrue:[
5a5b476cfd6b care for Text & images in rawLabel, when filtering. Claus Gittinger <cg@exept.de> parents: 973 diff changeset	698	emp add:e
5a5b476cfd6b care for Text & images in rawLabel, when filtering. Claus Gittinger <cg@exept.de> parents: 973 diff changeset	699	]
973 cd6b8d08c9c9 submenu item send #value. Claus Gittinger <cg@exept.de> parents: 960 diff changeset	700	]
cd6b8d08c9c9 submenu item send #value. Claus Gittinger <cg@exept.de> parents: 960 diff changeset	701	].
985 5a5b476cfd6b care for Text & images in rawLabel, when filtering. Claus Gittinger <cg@exept.de> parents: 973 diff changeset	702	l := out contents.
5a5b476cfd6b care for Text & images in rawLabel, when filtering. Claus Gittinger <cg@exept.de> parents: 973 diff changeset	703	emp notNil ifTrue:[
5a5b476cfd6b care for Text & images in rawLabel, when filtering. Claus Gittinger <cg@exept.de> parents: 973 diff changeset	704	^ Text string:l emphasisCollection:emp
5a5b476cfd6b care for Text & images in rawLabel, when filtering. Claus Gittinger <cg@exept.de> parents: 973 diff changeset	705	].
5a5b476cfd6b care for Text & images in rawLabel, when filtering. Claus Gittinger <cg@exept.de> parents: 973 diff changeset	706	^ l.
973 cd6b8d08c9c9 submenu item send #value. Claus Gittinger <cg@exept.de> parents: 960 diff changeset	707
cd6b8d08c9c9 submenu item send #value. Claus Gittinger <cg@exept.de> parents: 960 diff changeset	708	"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	709	"Modified: / 20.6.1998 / 17:15:18 / cg"
458 729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	710	! !
729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	711
579 77f6d490f1ac so far, so good ca parents: 578 diff changeset	712	!MenuItem methodsFor:'queries'!
77f6d490f1ac so far, so good ca parents: 578 diff changeset	713
1041 d28f0375cd26 added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	714	hasChoice
d28f0375cd26 added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	715	"test whether choice exists
d28f0375cd26 added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	716	"
d28f0375cd26 added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	717	^ self choice notNil
d28f0375cd26 added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	718
d28f0375cd26 added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	719	"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	720	!
d28f0375cd26 added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	721
590 fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	722	hasIndication
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	723	"test whether indication on/off exists
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	724	"
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	725	^ self indication notNil
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	726	!
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	727
579 77f6d490f1ac so far, so good ca parents: 578 diff changeset	728	hasSubmenu
584 9a4c30f7586f ST-80 compatible features addded ca parents: 581 diff changeset	729	^ self submenu notNil
579 77f6d490f1ac so far, so good ca parents: 578 diff changeset	730
77f6d490f1ac so far, so good ca parents: 578 diff changeset	731	"Created: 25.2.1997 / 20:56:20 / cg"
77f6d490f1ac so far, so good ca parents: 578 diff changeset	732	!
77f6d490f1ac so far, so good ca parents: 578 diff changeset	733
77f6d490f1ac so far, so good ca parents: 578 diff changeset	734	isEnabled
581 0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	735	^ enabled value ? true
579 77f6d490f1ac so far, so good ca parents: 578 diff changeset	736
77f6d490f1ac so far, so good ca parents: 578 diff changeset	737	"Created: 25.2.1997 / 19:39:17 / cg"
590 fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	738	!
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	739
724 898519684261 more VW comaptibility Claus Gittinger <cg@exept.de> parents: 684 diff changeset	740	isHidden
898519684261 more VW comaptibility Claus Gittinger <cg@exept.de> parents: 684 diff changeset	741	"not yet supported"
898519684261 more VW comaptibility Claus Gittinger <cg@exept.de> parents: 684 diff changeset	742
898519684261 more VW comaptibility Claus Gittinger <cg@exept.de> parents: 684 diff changeset	743	^ false
898519684261 more VW comaptibility Claus Gittinger <cg@exept.de> parents: 684 diff changeset	744
898519684261 more VW comaptibility Claus Gittinger <cg@exept.de> parents: 684 diff changeset	745	"Created: / 27.10.1997 / 15:13:43 / cg"
898519684261 more VW comaptibility Claus Gittinger <cg@exept.de> parents: 684 diff changeset	746	!
898519684261 more VW comaptibility Claus Gittinger <cg@exept.de> parents: 684 diff changeset	747
590 fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	748	isOff
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	749	"test whether indication on/off exists and is off
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	750	"
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	751	\|indication\|
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	752
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	753	indication := self indication.
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	754	^ indication value == false
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	755	!
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	756
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	757	isOn
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	758	"test whether indication on/off exists and is on
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	759	"
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	760	\|indication\|
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	761
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	762	indication := self indication.
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	763	^ indication value == true
579 77f6d490f1ac so far, so good ca parents: 578 diff changeset	764	! !
77f6d490f1ac so far, so good ca parents: 578 diff changeset	765
458 729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	766	!MenuItem::MenuItemAdornment methodsFor:'accessing'!
729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	767
579 77f6d490f1ac so far, so good ca parents: 578 diff changeset	768	accessCharacterPosition
77f6d490f1ac so far, so good ca parents: 578 diff changeset	769	"return the value of the instance variable 'accessCharacterPosition' (automatically generated)"
77f6d490f1ac so far, so good ca parents: 578 diff changeset	770
77f6d490f1ac so far, so good ca parents: 578 diff changeset	771	^ accessCharacterPosition!
77f6d490f1ac so far, so good ca parents: 578 diff changeset	772
77f6d490f1ac so far, so good ca parents: 578 diff changeset	773	accessCharacterPosition:something
77f6d490f1ac so far, so good ca parents: 578 diff changeset	774	"set the value of the instance variable 'accessCharacterPosition' (automatically generated)"
77f6d490f1ac so far, so good ca parents: 578 diff changeset	775
77f6d490f1ac so far, so good ca parents: 578 diff changeset	776	accessCharacterPosition := something.!
77f6d490f1ac so far, so good ca parents: 578 diff changeset	777
684 184dd159d02e support of arguments ca parents: 666 diff changeset	778	argument
184dd159d02e support of arguments ca parents: 666 diff changeset	779	"return the value of the instance variable 'argument' (automatically generated)"
184dd159d02e support of arguments ca parents: 666 diff changeset	780
184dd159d02e support of arguments ca parents: 666 diff changeset	781	^ argument
184dd159d02e support of arguments ca parents: 666 diff changeset	782
184dd159d02e support of arguments ca parents: 666 diff changeset	783	"Created: 25.2.1997 / 20:59:28 / cg"
184dd159d02e support of arguments ca parents: 666 diff changeset	784	!
184dd159d02e support of arguments ca parents: 666 diff changeset	785
184dd159d02e support of arguments ca parents: 666 diff changeset	786	argument:something
184dd159d02e support of arguments ca parents: 666 diff changeset	787	"set the value of the instance variable 'argument' (automatically generated)"
184dd159d02e support of arguments ca parents: 666 diff changeset	788
184dd159d02e support of arguments ca parents: 666 diff changeset	789	argument := something.
184dd159d02e support of arguments ca parents: 666 diff changeset	790
184dd159d02e support of arguments ca parents: 666 diff changeset	791	"Created: 25.2.1997 / 20:59:28 / cg"
184dd159d02e support of arguments ca parents: 666 diff changeset	792	!
184dd159d02e support of arguments ca parents: 666 diff changeset	793
1213 a80ce81d2944 auxValue added tm parents: 1203 diff changeset	794	auxValue
a80ce81d2944 auxValue added tm parents: 1203 diff changeset	795	"return the value of the instance variable 'auxValue' (automatically generated)"
a80ce81d2944 auxValue added tm parents: 1203 diff changeset	796
a80ce81d2944 auxValue added tm parents: 1203 diff changeset	797	^ auxValue!
a80ce81d2944 auxValue added tm parents: 1203 diff changeset	798
a80ce81d2944 auxValue added tm parents: 1203 diff changeset	799	auxValue:something
a80ce81d2944 auxValue added tm parents: 1203 diff changeset	800	"set the value of the instance variable 'auxValue' (automatically generated)"
a80ce81d2944 auxValue added tm parents: 1203 diff changeset	801
a80ce81d2944 auxValue added tm parents: 1203 diff changeset	802	auxValue := something.!
a80ce81d2944 auxValue added tm parents: 1203 diff changeset	803
1041 d28f0375cd26 added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	804	choice
d28f0375cd26 added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	805	"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	806
d28f0375cd26 added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	807	^ choice
d28f0375cd26 added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	808
d28f0375cd26 added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	809	"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	810	!
d28f0375cd26 added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	811
d28f0375cd26 added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	812	choice:something
d28f0375cd26 added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	813	"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	814
d28f0375cd26 added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	815	choice := something.
d28f0375cd26 added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	816
d28f0375cd26 added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	817	"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	818	!
d28f0375cd26 added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	819
d28f0375cd26 added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	820	choiceValue
d28f0375cd26 added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	821	"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	822
d28f0375cd26 added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	823	^ choiceValue
d28f0375cd26 added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	824
d28f0375cd26 added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	825	"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	826	!
d28f0375cd26 added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	827
d28f0375cd26 added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	828	choiceValue:something
d28f0375cd26 added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	829	"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	830
d28f0375cd26 added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	831	choiceValue := something.
d28f0375cd26 added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	832
d28f0375cd26 added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	833	"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	834	!
d28f0375cd26 added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	835
458 729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	836	color
729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	837	"return the value of the instance variable 'color' (automatically generated)"
729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	838
729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	839	^ color
729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	840
729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	841	"Created: 25.2.1997 / 20:59:28 / cg"
729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	842	!
729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	843
729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	844	color:something
729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	845	"set the value of the instance variable 'color' (automatically generated)"
729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	846
729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	847	color := something.
729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	848
729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	849	"Created: 25.2.1997 / 20:59:28 / cg"
729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	850	!
729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	851
1360 2b17ce81a790 support setting font in MenuPanel and Editor ca parents: 1347 diff changeset	852	font
2b17ce81a790 support setting font in MenuPanel and Editor ca parents: 1347 diff changeset	853	"get the specific font for an item or nil
2b17ce81a790 support setting font in MenuPanel and Editor ca parents: 1347 diff changeset	854	"
2b17ce81a790 support setting font in MenuPanel and Editor ca parents: 1347 diff changeset	855	^ font
2b17ce81a790 support setting font in MenuPanel and Editor ca parents: 1347 diff changeset	856	!
2b17ce81a790 support setting font in MenuPanel and Editor ca parents: 1347 diff changeset	857
2b17ce81a790 support setting font in MenuPanel and Editor ca parents: 1347 diff changeset	858	font:aFont
2b17ce81a790 support setting font in MenuPanel and Editor ca parents: 1347 diff changeset	859	"set a specific font for an item
2b17ce81a790 support setting font in MenuPanel and Editor ca parents: 1347 diff changeset	860	"
2b17ce81a790 support setting font in MenuPanel and Editor ca parents: 1347 diff changeset	861	font := aFont.
2b17ce81a790 support setting font in MenuPanel and Editor ca parents: 1347 diff changeset	862	!
2b17ce81a790 support setting font in MenuPanel and Editor ca parents: 1347 diff changeset	863
458 729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	864	indication
590 fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	865	"test whether the menu item has an on/off indicator (CheckToggle)
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	866	"
458 729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	867	^ indication
729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	868
729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	869	"Created: 25.2.1997 / 20:59:28 / cg"
729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	870	!
729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	871
729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	872	indication:something
590 fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	873	"test whether the menu item has an on/off indicator (CheckToggle)
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	874	"
458 729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	875	indication := something.
729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	876
729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	877	"Created: 25.2.1997 / 20:59:28 / cg"
729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	878	!
729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	879
581 0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	880	labelImage
0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	881	"return the value of the instance variable 'labelImage' (automatically generated)"
0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	882
0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	883	^ labelImage!
0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	884
0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	885	labelImage:something
0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	886	"set the value of the instance variable 'labelImage' (automatically generated)"
0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	887
0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	888	labelImage := something.!
0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	889
578 7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	890	labelText
7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	891	"get the text appear as the menu label
7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	892	"
7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	893	^ labelText
7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	894	!
7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	895
7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	896	labelText:something
7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	897	"set the text appear as the menu label
7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	898	"
7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	899	labelText := something.
7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	900	!
7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	901
7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	902	shortcutKeyCharacter
7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	903	"get the key to press to select the menu item from the keyboard
7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	904	"
7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	905	^ shortcutKey
7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	906	!
7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	907
7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	908	shortcutKeyCharacter:something
7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	909	"set the key to press to select the menu item from the keyboard
7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	910	"
7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	911	shortcutKey := something.
7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	912	!
7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	913
1347 e033db194238 added 'showBysuCursorWhileActive' attribute Claus Gittinger <cg@exept.de> parents: 1336 diff changeset	914	showBusyCursorWhilePerforming
e033db194238 added 'showBysuCursorWhileActive' attribute Claus Gittinger <cg@exept.de> parents: 1336 diff changeset	915	"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	916	while performing the menu action. Defaults to false."
e033db194238 added 'showBysuCursorWhileActive' attribute Claus Gittinger <cg@exept.de> parents: 1336 diff changeset	917
e033db194238 added 'showBysuCursorWhileActive' attribute Claus Gittinger <cg@exept.de> parents: 1336 diff changeset	918	^ showBusyCursorWhilePerforming ? false
e033db194238 added 'showBysuCursorWhileActive' attribute Claus Gittinger <cg@exept.de> parents: 1336 diff changeset	919
e033db194238 added 'showBysuCursorWhileActive' attribute Claus Gittinger <cg@exept.de> parents: 1336 diff changeset	920	!
e033db194238 added 'showBysuCursorWhileActive' attribute Claus Gittinger <cg@exept.de> parents: 1336 diff changeset	921
e033db194238 added 'showBysuCursorWhileActive' attribute Claus Gittinger <cg@exept.de> parents: 1336 diff changeset	922	showBusyCursorWhilePerforming:aBoolean
e033db194238 added 'showBysuCursorWhileActive' attribute Claus Gittinger <cg@exept.de> parents: 1336 diff changeset	923	"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	924	while performing the menu action. Defaults to false."
e033db194238 added 'showBysuCursorWhileActive' attribute Claus Gittinger <cg@exept.de> parents: 1336 diff changeset	925
e033db194238 added 'showBysuCursorWhileActive' attribute Claus Gittinger <cg@exept.de> parents: 1336 diff changeset	926	showBusyCursorWhilePerforming := aBoolean
e033db194238 added 'showBysuCursorWhileActive' attribute Claus Gittinger <cg@exept.de> parents: 1336 diff changeset	927
e033db194238 added 'showBysuCursorWhileActive' attribute Claus Gittinger <cg@exept.de> parents: 1336 diff changeset	928	!
e033db194238 added 'showBysuCursorWhileActive' attribute Claus Gittinger <cg@exept.de> parents: 1336 diff changeset	929
1336 97d0a2cff0ac when setting a valueHolder or block via Claus Gittinger <cg@exept.de> parents: 1333 diff changeset	930	staticSubmenu
97d0a2cff0ac when setting a valueHolder or block via Claus Gittinger <cg@exept.de> parents: 1333 diff changeset	931	"get the submenu or nil;
97d0a2cff0ac when setting a valueHolder or block via Claus Gittinger <cg@exept.de> parents: 1333 diff changeset	932	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	933	provided by a valueHolder or block).
97d0a2cff0ac when setting a valueHolder or block via Claus Gittinger <cg@exept.de> parents: 1333 diff changeset	934	"
97d0a2cff0ac when setting a valueHolder or block via Claus Gittinger <cg@exept.de> parents: 1333 diff changeset	935	(submenu isValueModel or:[submenu isBlock]) ifTrue:[
97d0a2cff0ac when setting a valueHolder or block via Claus Gittinger <cg@exept.de> parents: 1333 diff changeset	936	^ nil
97d0a2cff0ac when setting a valueHolder or block via Claus Gittinger <cg@exept.de> parents: 1333 diff changeset	937	].
97d0a2cff0ac when setting a valueHolder or block via Claus Gittinger <cg@exept.de> parents: 1333 diff changeset	938	^ submenu
97d0a2cff0ac when setting a valueHolder or block via Claus Gittinger <cg@exept.de> parents: 1333 diff changeset	939
97d0a2cff0ac when setting a valueHolder or block via Claus Gittinger <cg@exept.de> parents: 1333 diff changeset	940	"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	941	!
97d0a2cff0ac when setting a valueHolder or block via Claus Gittinger <cg@exept.de> parents: 1333 diff changeset	942
458 729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	943	submenu
578 7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	944	"get the submenu or nil
7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	945	"
973 cd6b8d08c9c9 submenu item send #value. Claus Gittinger <cg@exept.de> parents: 960 diff changeset	946	^ submenu value
458 729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	947
973 cd6b8d08c9c9 submenu item send #value. Claus Gittinger <cg@exept.de> parents: 960 diff changeset	948	"Created: / 25.2.1997 / 20:59:28 / cg"
cd6b8d08c9c9 submenu item send #value. Claus Gittinger <cg@exept.de> parents: 960 diff changeset	949	"Modified: / 19.6.1998 / 00:33:58 / cg"
458 729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	950	!
729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	951
729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	952	submenu:something
578 7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	953	"set the submenu or nil
7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	954	"
1336 97d0a2cff0ac when setting a valueHolder or block via Claus Gittinger <cg@exept.de> parents: 1333 diff changeset	955	(something isValueModel or:[something isBlock]) ifTrue:[
97d0a2cff0ac when setting a valueHolder or block via Claus Gittinger <cg@exept.de> parents: 1333 diff changeset	956	submenuChannel notNil ifTrue:[
97d0a2cff0ac when setting a valueHolder or block via Claus Gittinger <cg@exept.de> parents: 1333 diff changeset	957	"/ programmers error ?
97d0a2cff0ac when setting a valueHolder or block via Claus Gittinger <cg@exept.de> parents: 1333 diff changeset	958	"/ 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	959	"/ a channel and a subMenu ...
97d0a2cff0ac when setting a valueHolder or block via Claus Gittinger <cg@exept.de> parents: 1333 diff changeset	960	self halt:'overwriting submenuchannel'.
97d0a2cff0ac when setting a valueHolder or block via Claus Gittinger <cg@exept.de> parents: 1333 diff changeset	961	].
97d0a2cff0ac when setting a valueHolder or block via Claus Gittinger <cg@exept.de> parents: 1333 diff changeset	962	submenuChannel := something
97d0a2cff0ac when setting a valueHolder or block via Claus Gittinger <cg@exept.de> parents: 1333 diff changeset	963	] ifFalse:[
97d0a2cff0ac when setting a valueHolder or block via Claus Gittinger <cg@exept.de> parents: 1333 diff changeset	964	submenu := something.
97d0a2cff0ac when setting a valueHolder or block via Claus Gittinger <cg@exept.de> parents: 1333 diff changeset	965	]
458 729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	966
1336 97d0a2cff0ac when setting a valueHolder or block via Claus Gittinger <cg@exept.de> parents: 1333 diff changeset	967	"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	968	"Modified: / 5.2.2000 / 16:53:28 / cg"
666 6e614a5d9248 add submenuChannel ca parents: 661 diff changeset	969	!
6e614a5d9248 add submenuChannel ca parents: 661 diff changeset	970
6e614a5d9248 add submenuChannel ca parents: 661 diff changeset	971	submenuChannel
6e614a5d9248 add submenuChannel ca parents: 661 diff changeset	972	"get the submenuChannel or nil
6e614a5d9248 add submenuChannel ca parents: 661 diff changeset	973	"
6e614a5d9248 add submenuChannel ca parents: 661 diff changeset	974	^ submenuChannel
6e614a5d9248 add submenuChannel ca parents: 661 diff changeset	975	!
6e614a5d9248 add submenuChannel ca parents: 661 diff changeset	976
6e614a5d9248 add submenuChannel ca parents: 661 diff changeset	977	submenuChannel:something
6e614a5d9248 add submenuChannel ca parents: 661 diff changeset	978	"set the submenuChannel or nil
6e614a5d9248 add submenuChannel ca parents: 661 diff changeset	979	"
6e614a5d9248 add submenuChannel ca parents: 661 diff changeset	980	submenuChannel := something.
973 cd6b8d08c9c9 submenu item send #value. Claus Gittinger <cg@exept.de> parents: 960 diff changeset	981	!
cd6b8d08c9c9 submenu item send #value. Claus Gittinger <cg@exept.de> parents: 960 diff changeset	982
cd6b8d08c9c9 submenu item send #value. Claus Gittinger <cg@exept.de> parents: 960 diff changeset	983	submenuHolder
cd6b8d08c9c9 submenu item send #value. Claus Gittinger <cg@exept.de> parents: 960 diff changeset	984	"get the submenuHolder or nil
cd6b8d08c9c9 submenu item send #value. Claus Gittinger <cg@exept.de> parents: 960 diff changeset	985	"
cd6b8d08c9c9 submenu item send #value. Claus Gittinger <cg@exept.de> parents: 960 diff changeset	986	^ submenu
cd6b8d08c9c9 submenu item send #value. Claus Gittinger <cg@exept.de> parents: 960 diff changeset	987
cd6b8d08c9c9 submenu item send #value. Claus Gittinger <cg@exept.de> parents: 960 diff changeset	988	"Modified: / 19.6.1998 / 00:33:58 / cg"
cd6b8d08c9c9 submenu item send #value. Claus Gittinger <cg@exept.de> parents: 960 diff changeset	989	"Created: / 19.6.1998 / 00:34:32 / cg"
458 729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	990	! !
729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	991
451 95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	992	!MenuItem class methodsFor:'documentation'!
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	993
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	994	version
1369 281acc9f1a73 dont store choiceValue for non-choice items. Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	995	^ '$Header: /cvs/stx/stx/libview2/MenuItem.st,v 1.39 2000-04-27 10:57:45 cg Exp $'
451 95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	996	! !

author	Claus Gittinger <cg@exept.de>
	Thu, 27 Apr 2000 12:57:45 +0200
changeset 1369	281acc9f1a73
parent 1360	2b17ce81a790
child 1370	4d2a3cc1d3c7
permissions	-rw-r--r--