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

author	Claus Gittinger <cg@exept.de>
	Sat, 12 Feb 2000 14:24:31 +0100
changeset 1347	e033db194238
parent 1336	97d0a2cff0ac
child 1360	2b17ce81a790
permissions	-rw-r--r--