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

author	penk
	Mon, 07 Mar 2005 15:19:41 +0100
changeset 2036	f8e99bb346e4
parent 2033	a9ed3856e834
child 2040	98d3508fd6e1
permissions	-rw-r--r--