hg/stx-libview2: MenuItem.st@e1148c53ad3c (annotated)

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

author	Claus Gittinger <cg@exept.de>
	Thu, 24 Oct 2002 17:31:36 +0200
changeset 1643	e1148c53ad3c
parent 1625	38c0340c1b1e
child 1646	da8d044c7c0d
permissions	-rw-r--r--