hg/stx-libview2: MenuItem.st@ced60e8c83fe (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	"
1369 281acc9f1a73 dont store choiceValue for non-choice items. Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	12	"{ Package: 'stx:libview2' }"
281acc9f1a73 dont store choiceValue for non-choice items. Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	13
451 95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	14	Object subclass:#MenuItem
3023 763ad69e9832 menuitem protocol Claus Gittinger <cg@exept.de> parents: 3021 diff changeset	15	instanceVariableNames:'activeHelpKey enabled label itemValue nameKey translateLabel
763ad69e9832 menuitem protocol Claus Gittinger <cg@exept.de> parents: 3021 diff changeset	16	isButton startGroup isVisible hideMenuOnActivated triggerOnDown
763ad69e9832 menuitem protocol Claus Gittinger <cg@exept.de> parents: 3021 diff changeset	17	indication submenu submenuChannel submenuProvider shortcutKey
763ad69e9832 menuitem protocol Claus Gittinger <cg@exept.de> parents: 3021 diff changeset	18	labelImage accessCharacterPosition argument choice choiceValue
763ad69e9832 menuitem protocol Claus Gittinger <cg@exept.de> parents: 3021 diff changeset	19	font auxValue showBusyCursorWhilePerforming keepLinkedMenu
763ad69e9832 menuitem protocol Claus Gittinger <cg@exept.de> parents: 3021 diff changeset	20	horizontalLayout sendToOriginator ignoreMnemonicKeys
763ad69e9832 menuitem protocol Claus Gittinger <cg@exept.de> parents: 3021 diff changeset	21	ignoreShortcutKeys isMenuSlice uuid'
451 95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	22	classVariableNames:''
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	23	poolDictionaries:''
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	24	category:'Views-Support'
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	25	!
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	26
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	27	!MenuItem class methodsFor:'documentation'!
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	28
1196 27897663fc97 docu & copyright Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	29	copyright
27897663fc97 docu & copyright Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	30	"
27897663fc97 docu & copyright Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	31	COPYRIGHT (c) 1998 by eXept Software AG
27897663fc97 docu & copyright Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	32	All Rights Reserved
27897663fc97 docu & copyright Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	33
27897663fc97 docu & copyright Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	34	This software is furnished under a license and may be used
27897663fc97 docu & copyright Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	35	only in accordance with the terms of that license and with the
27897663fc97 docu & copyright Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	36	inclusion of the above copyright notice. This software may not
27897663fc97 docu & copyright Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	37	be provided or otherwise made available to, or used by, any
27897663fc97 docu & copyright Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	38	other person. No title to or ownership of the software is
27897663fc97 docu & copyright Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	39	hereby transferred.
27897663fc97 docu & copyright Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	40	"
27897663fc97 docu & copyright Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	41
27897663fc97 docu & copyright Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	42	!
27897663fc97 docu & copyright Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	43
451 95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	44	documentation
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	45	"
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	46	not yet finished MenuItem class - this will eventually replace
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	47	most of the MenuView and PopUpMenu stuff.
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	48	(and hopefully be ST-80 compatible ...)
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	49
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	50	For now, only a subset of the full protocol is implemented.
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	51
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	52	[author:]
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	53	Claus Gittinger
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	54
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	55	[see also:]
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	56	MenuItem
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	57	PopUpMenu
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	58	"
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	59
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	60	! !
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	61
490 ebe88e50b29a * empty log message * ca parents: 458 diff changeset	62	!MenuItem class methodsFor:'instance creation'!
ebe88e50b29a * empty log message * ca parents: 458 diff changeset	63
1044 5ecf46d0f1b7 checkin from browser Claus Gittinger <cg@exept.de> parents: 1041 diff changeset	64	label:aString
5ecf46d0f1b7 checkin from browser Claus Gittinger <cg@exept.de> parents: 1041 diff changeset	65	"create and return a new menuItem, given a label string"
5ecf46d0f1b7 checkin from browser Claus Gittinger <cg@exept.de> parents: 1041 diff changeset	66
3003 e2177537ecb8 added: #label:value:argument: Claus Gittinger <cg@exept.de> parents: 2987 diff changeset	67	^ self new
e2177537ecb8 added: #label:value:argument: Claus Gittinger <cg@exept.de> parents: 2987 diff changeset	68	label:aString;
e2177537ecb8 added: #label:value:argument: Claus Gittinger <cg@exept.de> parents: 2987 diff changeset	69	yourself
1044 5ecf46d0f1b7 checkin from browser Claus Gittinger <cg@exept.de> parents: 1041 diff changeset	70
3003 e2177537ecb8 added: #label:value:argument: Claus Gittinger <cg@exept.de> parents: 2987 diff changeset	71	"Created: / 14-08-1998 / 19:19:14 / cg"
1044 5ecf46d0f1b7 checkin from browser Claus Gittinger <cg@exept.de> parents: 1041 diff changeset	72	!
5ecf46d0f1b7 checkin from browser Claus Gittinger <cg@exept.de> parents: 1041 diff changeset	73
2813 9eba174d8bd1 added: Claus Gittinger <cg@exept.de> parents: 2755 diff changeset	74	label:labelString choice:choiceAspect choiceValue:selectorOrValue
9eba174d8bd1 added: Claus Gittinger <cg@exept.de> parents: 2755 diff changeset	75	"create and return a new menuItem, given its label and choice/value.
9eba174d8bd1 added: Claus Gittinger <cg@exept.de> parents: 2755 diff changeset	76	This will create a Radio-Button-like item."
9eba174d8bd1 added: Claus Gittinger <cg@exept.de> parents: 2755 diff changeset	77
3003 e2177537ecb8 added: #label:value:argument: Claus Gittinger <cg@exept.de> parents: 2987 diff changeset	78	^ (self new)
e2177537ecb8 added: #label:value:argument: Claus Gittinger <cg@exept.de> parents: 2987 diff changeset	79	label:labelString; choice:choiceAspect; choiceValue:selectorOrValue;
e2177537ecb8 added: #label:value:argument: Claus Gittinger <cg@exept.de> parents: 2987 diff changeset	80	yourself
e2177537ecb8 added: #label:value:argument: Claus Gittinger <cg@exept.de> parents: 2987 diff changeset	81
e2177537ecb8 added: #label:value:argument: Claus Gittinger <cg@exept.de> parents: 2987 diff changeset	82	"Modified (format): / 26-04-2012 / 12:06:41 / cg"
2813 9eba174d8bd1 added: Claus Gittinger <cg@exept.de> parents: 2755 diff changeset	83	!
9eba174d8bd1 added: Claus Gittinger <cg@exept.de> parents: 2755 diff changeset	84
3023 763ad69e9832 menuitem protocol Claus Gittinger <cg@exept.de> parents: 3021 diff changeset	85	label:labelString itemValue:selectorOrValue
763ad69e9832 menuitem protocol Claus Gittinger <cg@exept.de> parents: 3021 diff changeset	86	"create and return a new menuItem, given its label and value"
763ad69e9832 menuitem protocol Claus Gittinger <cg@exept.de> parents: 3021 diff changeset	87
763ad69e9832 menuitem protocol Claus Gittinger <cg@exept.de> parents: 3021 diff changeset	88	^ (self new)
763ad69e9832 menuitem protocol Claus Gittinger <cg@exept.de> parents: 3021 diff changeset	89	label:labelString itemValue:selectorOrValue;
763ad69e9832 menuitem protocol Claus Gittinger <cg@exept.de> parents: 3021 diff changeset	90	yourself
763ad69e9832 menuitem protocol Claus Gittinger <cg@exept.de> parents: 3021 diff changeset	91
763ad69e9832 menuitem protocol Claus Gittinger <cg@exept.de> parents: 3021 diff changeset	92	"Created: / 09-09-2012 / 13:21:48 / cg"
763ad69e9832 menuitem protocol Claus Gittinger <cg@exept.de> parents: 3021 diff changeset	93	!
763ad69e9832 menuitem protocol Claus Gittinger <cg@exept.de> parents: 3021 diff changeset	94
763ad69e9832 menuitem protocol Claus Gittinger <cg@exept.de> parents: 3021 diff changeset	95	label:labelString itemValue:selectorOrValue argument:messageArg
1030 3684379a1ac8 added inst-creation #label:value: Claus Gittinger <cg@exept.de> parents: 985 diff changeset	96	"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	97
3003 e2177537ecb8 added: #label:value:argument: Claus Gittinger <cg@exept.de> parents: 2987 diff changeset	98	^ (self new)
3023 763ad69e9832 menuitem protocol Claus Gittinger <cg@exept.de> parents: 3021 diff changeset	99	label:labelString;
763ad69e9832 menuitem protocol Claus Gittinger <cg@exept.de> parents: 3021 diff changeset	100	itemValue:selectorOrValue argument:messageArg;
3003 e2177537ecb8 added: #label:value:argument: Claus Gittinger <cg@exept.de> parents: 2987 diff changeset	101	yourself
e2177537ecb8 added: #label:value:argument: Claus Gittinger <cg@exept.de> parents: 2987 diff changeset	102
3023 763ad69e9832 menuitem protocol Claus Gittinger <cg@exept.de> parents: 3021 diff changeset	103	"Created: / 09-09-2012 / 13:22:31 / cg"
763ad69e9832 menuitem protocol Claus Gittinger <cg@exept.de> parents: 3021 diff changeset	104	!
763ad69e9832 menuitem protocol Claus Gittinger <cg@exept.de> parents: 3021 diff changeset	105
763ad69e9832 menuitem protocol Claus Gittinger <cg@exept.de> parents: 3021 diff changeset	106	label:labelString itemValue:selectorOrValue enabled:enabledHolder
763ad69e9832 menuitem protocol Claus Gittinger <cg@exept.de> parents: 3021 diff changeset	107	"create and return a new menuItem, given its label and value"
763ad69e9832 menuitem protocol Claus Gittinger <cg@exept.de> parents: 3021 diff changeset	108
763ad69e9832 menuitem protocol Claus Gittinger <cg@exept.de> parents: 3021 diff changeset	109	^ (self new)
763ad69e9832 menuitem protocol Claus Gittinger <cg@exept.de> parents: 3021 diff changeset	110	label:labelString itemValue:selectorOrValue;
763ad69e9832 menuitem protocol Claus Gittinger <cg@exept.de> parents: 3021 diff changeset	111	enabled:enabledHolder;
763ad69e9832 menuitem protocol Claus Gittinger <cg@exept.de> parents: 3021 diff changeset	112	yourself
763ad69e9832 menuitem protocol Claus Gittinger <cg@exept.de> parents: 3021 diff changeset	113
763ad69e9832 menuitem protocol Claus Gittinger <cg@exept.de> parents: 3021 diff changeset	114	"Created: / 09-09-2012 / 13:23:05 / cg"
763ad69e9832 menuitem protocol Claus Gittinger <cg@exept.de> parents: 3021 diff changeset	115	!
763ad69e9832 menuitem protocol Claus Gittinger <cg@exept.de> parents: 3021 diff changeset	116
763ad69e9832 menuitem protocol Claus Gittinger <cg@exept.de> parents: 3021 diff changeset	117	label:labelString value:selectorOrValue
763ad69e9832 menuitem protocol Claus Gittinger <cg@exept.de> parents: 3021 diff changeset	118	<resource: #obsolete>
763ad69e9832 menuitem protocol Claus Gittinger <cg@exept.de> parents: 3021 diff changeset	119	"create and return a new menuItem, given its label and value"
763ad69e9832 menuitem protocol Claus Gittinger <cg@exept.de> parents: 3021 diff changeset	120
763ad69e9832 menuitem protocol Claus Gittinger <cg@exept.de> parents: 3021 diff changeset	121	^ self label:labelString itemValue:selectorOrValue
763ad69e9832 menuitem protocol Claus Gittinger <cg@exept.de> parents: 3021 diff changeset	122
3003 e2177537ecb8 added: #label:value:argument: Claus Gittinger <cg@exept.de> parents: 2987 diff changeset	123	"Created: / 04-08-1998 / 17:34:18 / cg"
e2177537ecb8 added: #label:value:argument: Claus Gittinger <cg@exept.de> parents: 2987 diff changeset	124	!
1030 3684379a1ac8 added inst-creation #label:value: Claus Gittinger <cg@exept.de> parents: 985 diff changeset	125
3003 e2177537ecb8 added: #label:value:argument: Claus Gittinger <cg@exept.de> parents: 2987 diff changeset	126	label:labelString value:selectorOrValue argument:messageArg
3023 763ad69e9832 menuitem protocol Claus Gittinger <cg@exept.de> parents: 3021 diff changeset	127	<resource: #obsolete>
3003 e2177537ecb8 added: #label:value:argument: Claus Gittinger <cg@exept.de> parents: 2987 diff changeset	128	"create and return a new menuItem, given its label and value"
e2177537ecb8 added: #label:value:argument: Claus Gittinger <cg@exept.de> parents: 2987 diff changeset	129
e2177537ecb8 added: #label:value:argument: Claus Gittinger <cg@exept.de> parents: 2987 diff changeset	130	^ (self new)
e2177537ecb8 added: #label:value:argument: Claus Gittinger <cg@exept.de> parents: 2987 diff changeset	131	label:labelString; value:selectorOrValue; argument:messageArg;
e2177537ecb8 added: #label:value:argument: Claus Gittinger <cg@exept.de> parents: 2987 diff changeset	132	yourself
e2177537ecb8 added: #label:value:argument: Claus Gittinger <cg@exept.de> parents: 2987 diff changeset	133
e2177537ecb8 added: #label:value:argument: Claus Gittinger <cg@exept.de> parents: 2987 diff changeset	134	"Created: / 26-04-2012 / 12:06:34 / cg"
1030 3684379a1ac8 added inst-creation #label:value: Claus Gittinger <cg@exept.de> parents: 985 diff changeset	135	!
3684379a1ac8 added inst-creation #label:value: Claus Gittinger <cg@exept.de> parents: 985 diff changeset	136
2876 de49b76ae355 added: #label:value:enabled: Claus Gittinger <cg@exept.de> parents: 2875 diff changeset	137	label:labelString value:selectorOrValue enabled:enabledHolder
3023 763ad69e9832 menuitem protocol Claus Gittinger <cg@exept.de> parents: 3021 diff changeset	138	<resource: #obsolete>
2876 de49b76ae355 added: #label:value:enabled: Claus Gittinger <cg@exept.de> parents: 2875 diff changeset	139	"create and return a new menuItem, given its label and value"
de49b76ae355 added: #label:value:enabled: Claus Gittinger <cg@exept.de> parents: 2875 diff changeset	140
de49b76ae355 added: #label:value:enabled: Claus Gittinger <cg@exept.de> parents: 2875 diff changeset	141	^ (self new)
3003 e2177537ecb8 added: #label:value:argument: Claus Gittinger <cg@exept.de> parents: 2987 diff changeset	142	label:labelString; value:selectorOrValue;
2876 de49b76ae355 added: #label:value:enabled: Claus Gittinger <cg@exept.de> parents: 2875 diff changeset	143	enabled:enabledHolder;
de49b76ae355 added: #label:value:enabled: Claus Gittinger <cg@exept.de> parents: 2875 diff changeset	144	yourself
de49b76ae355 added: #label:value:enabled: Claus Gittinger <cg@exept.de> parents: 2875 diff changeset	145
de49b76ae355 added: #label:value:enabled: Claus Gittinger <cg@exept.de> parents: 2875 diff changeset	146	"Created: / 29-10-2010 / 12:21:27 / cg"
de49b76ae355 added: #label:value:enabled: Claus Gittinger <cg@exept.de> parents: 2875 diff changeset	147	!
de49b76ae355 added: #label:value:enabled: Claus Gittinger <cg@exept.de> parents: 2875 diff changeset	148
490 ebe88e50b29a * empty log message * ca parents: 458 diff changeset	149	labeled:aString
1030 3684379a1ac8 added inst-creation #label:value: Claus Gittinger <cg@exept.de> parents: 985 diff changeset	150	"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	151
3003 e2177537ecb8 added: #label:value:argument: Claus Gittinger <cg@exept.de> parents: 2987 diff changeset	152	^ self new
e2177537ecb8 added: #label:value:argument: Claus Gittinger <cg@exept.de> parents: 2987 diff changeset	153	label:aString;
e2177537ecb8 added: #label:value:argument: Claus Gittinger <cg@exept.de> parents: 2987 diff changeset	154	yourself
1030 3684379a1ac8 added inst-creation #label:value: Claus Gittinger <cg@exept.de> parents: 985 diff changeset	155
3003 e2177537ecb8 added: #label:value:argument: Claus Gittinger <cg@exept.de> parents: 2987 diff changeset	156	"Modified: / 26-04-2012 / 12:07:12 / cg"
1486 251879696655 * empty log message * martin parents: 1468 diff changeset	157	!
251879696655 * empty log message * martin parents: 1468 diff changeset	158
251879696655 * empty log message * martin parents: 1468 diff changeset	159	separator
251879696655 * empty log message * martin parents: 1468 diff changeset	160	"create and return a new menuItem for a separator"
251879696655 * empty log message * martin parents: 1468 diff changeset	161
3003 e2177537ecb8 added: #label:value:argument: Claus Gittinger <cg@exept.de> parents: 2987 diff changeset	162	^ self new
e2177537ecb8 added: #label:value:argument: Claus Gittinger <cg@exept.de> parents: 2987 diff changeset	163	label:'-'; translateLabel:false;
e2177537ecb8 added: #label:value:argument: Claus Gittinger <cg@exept.de> parents: 2987 diff changeset	164	yourself
e2177537ecb8 added: #label:value:argument: Claus Gittinger <cg@exept.de> parents: 2987 diff changeset	165
e2177537ecb8 added: #label:value:argument: Claus Gittinger <cg@exept.de> parents: 2987 diff changeset	166	"Modified: / 26-04-2012 / 12:07:04 / cg"
490 ebe88e50b29a * empty log message * ca parents: 458 diff changeset	167	! !
ebe88e50b29a * empty log message * ca parents: 458 diff changeset	168
2264 8736ee5ec90e new startGroup value: #conditionalRight Claus Gittinger <cg@exept.de> parents: 2263 diff changeset	169	!MenuItem class methodsFor:'constants'!
8736ee5ec90e new startGroup value: #conditionalRight Claus Gittinger <cg@exept.de> parents: 2263 diff changeset	170
8736ee5ec90e new startGroup value: #conditionalRight Claus Gittinger <cg@exept.de> parents: 2263 diff changeset	171	supportedStartGroupValues
8736ee5ec90e new startGroup value: #conditionalRight Claus Gittinger <cg@exept.de> parents: 2263 diff changeset	172	"start group #left #right #conditionalRight ...
8736ee5ec90e new startGroup value: #conditionalRight Claus Gittinger <cg@exept.de> parents: 2263 diff changeset	173	At the moment only #left/nil, #right/#conditionalRight are implemented.
8736ee5ec90e new startGroup value: #conditionalRight Claus Gittinger <cg@exept.de> parents: 2263 diff changeset	174
8736ee5ec90e new startGroup value: #conditionalRight Claus Gittinger <cg@exept.de> parents: 2263 diff changeset	175	The meanings are:
8736ee5ec90e new startGroup value: #conditionalRight Claus Gittinger <cg@exept.de> parents: 2263 diff changeset	176	nil - default under control of the menu
8736ee5ec90e new startGroup value: #conditionalRight Claus Gittinger <cg@exept.de> parents: 2263 diff changeset	177	#left - left align
8736ee5ec90e new startGroup value: #conditionalRight Claus Gittinger <cg@exept.de> parents: 2263 diff changeset	178	#right - place at the right far end
8736ee5ec90e new startGroup value: #conditionalRight Claus Gittinger <cg@exept.de> parents: 2263 diff changeset	179	#conditionalRight - controlled by a styleSheet variable;
8736ee5ec90e new startGroup value: #conditionalRight Claus Gittinger <cg@exept.de> parents: 2263 diff changeset	180	like #right under all non-win32 systems,
8736ee5ec90e new startGroup value: #conditionalRight Claus Gittinger <cg@exept.de> parents: 2263 diff changeset	181	ignored on win32.
8736ee5ec90e new startGroup value: #conditionalRight Claus Gittinger <cg@exept.de> parents: 2263 diff changeset	182	Use with help-menu, which should be at the far right on some
8736ee5ec90e new startGroup value: #conditionalRight Claus Gittinger <cg@exept.de> parents: 2263 diff changeset	183	viewStyles, but not under win32."
8736ee5ec90e new startGroup value: #conditionalRight Claus Gittinger <cg@exept.de> parents: 2263 diff changeset	184
8736ee5ec90e new startGroup value: #conditionalRight Claus Gittinger <cg@exept.de> parents: 2263 diff changeset	185	^ #(nil #left #right #conditionalRight)
8736ee5ec90e new startGroup value: #conditionalRight Claus Gittinger <cg@exept.de> parents: 2263 diff changeset	186
8736ee5ec90e new startGroup value: #conditionalRight Claus Gittinger <cg@exept.de> parents: 2263 diff changeset	187	"Created: / 16-10-2006 / 13:09:27 / cg"
8736ee5ec90e new startGroup value: #conditionalRight Claus Gittinger <cg@exept.de> parents: 2263 diff changeset	188	! !
8736ee5ec90e new startGroup value: #conditionalRight Claus Gittinger <cg@exept.de> parents: 2263 diff changeset	189
1763 fabe0b506e33 method category rename Claus Gittinger <cg@exept.de> parents: 1761 diff changeset	190	!MenuItem methodsFor:'Compatibility-ST80'!
724 898519684261 more VW comaptibility Claus Gittinger <cg@exept.de> parents: 684 diff changeset	191
2755 231339e903eb added: Claus Gittinger <cg@exept.de> parents: 2736 diff changeset	192	enablementSelector:aSymbol
231339e903eb added: Claus Gittinger <cg@exept.de> parents: 2736 diff changeset	193	"dummy for now - for visualworks compatibility (specs)"
231339e903eb added: Claus Gittinger <cg@exept.de> parents: 2736 diff changeset	194
231339e903eb added: Claus Gittinger <cg@exept.de> parents: 2736 diff changeset	195	"/ self halt.
231339e903eb added: Claus Gittinger <cg@exept.de> parents: 2736 diff changeset	196	!
231339e903eb added: Claus Gittinger <cg@exept.de> parents: 2736 diff changeset	197
231339e903eb added: Claus Gittinger <cg@exept.de> parents: 2736 diff changeset	198	helpText:aString
231339e903eb added: Claus Gittinger <cg@exept.de> parents: 2736 diff changeset	199	"dummy for now - for visualworks compatibility (specs)"
231339e903eb added: Claus Gittinger <cg@exept.de> parents: 2736 diff changeset	200
231339e903eb added: Claus Gittinger <cg@exept.de> parents: 2736 diff changeset	201	activeHelpKey := aString.
231339e903eb added: Claus Gittinger <cg@exept.de> parents: 2736 diff changeset	202	!
231339e903eb added: Claus Gittinger <cg@exept.de> parents: 2736 diff changeset	203
231339e903eb added: Claus Gittinger <cg@exept.de> parents: 2736 diff changeset	204	indicationSelector:aSymbol
231339e903eb added: Claus Gittinger <cg@exept.de> parents: 2736 diff changeset	205	"dummy for now - for visualworks compatibility (specs)"
231339e903eb added: Claus Gittinger <cg@exept.de> parents: 2736 diff changeset	206
231339e903eb added: Claus Gittinger <cg@exept.de> parents: 2736 diff changeset	207	"/ self halt.
231339e903eb added: Claus Gittinger <cg@exept.de> parents: 2736 diff changeset	208	!
231339e903eb added: Claus Gittinger <cg@exept.de> parents: 2736 diff changeset	209
724 898519684261 more VW comaptibility Claus Gittinger <cg@exept.de> parents: 684 diff changeset	210	isEnabled:aBoolean
898519684261 more VW comaptibility Claus Gittinger <cg@exept.de> parents: 684 diff changeset	211	self enabled:aBoolean
898519684261 more VW comaptibility Claus Gittinger <cg@exept.de> parents: 684 diff changeset	212
898519684261 more VW comaptibility Claus Gittinger <cg@exept.de> parents: 684 diff changeset	213	"Created: / 27.10.1997 / 16:34:55 / cg"
1646 da8d044c7c0d value - itemValue Claus Gittinger <cg@exept.de> parents: 1643 diff changeset	214	!
da8d044c7c0d value - itemValue Claus Gittinger <cg@exept.de> parents: 1643 diff changeset	215
2755 231339e903eb added: Claus Gittinger <cg@exept.de> parents: 2736 diff changeset	216	shortcutModifiers:something
231339e903eb added: Claus Gittinger <cg@exept.de> parents: 2736 diff changeset	217	"dummy for now - for visualworks compatibility (specs)"
231339e903eb added: Claus Gittinger <cg@exept.de> parents: 2736 diff changeset	218
231339e903eb added: Claus Gittinger <cg@exept.de> parents: 2736 diff changeset	219	"/ self halt.
231339e903eb added: Claus Gittinger <cg@exept.de> parents: 2736 diff changeset	220	!
231339e903eb added: Claus Gittinger <cg@exept.de> parents: 2736 diff changeset	221
1646 da8d044c7c0d value - itemValue Claus Gittinger <cg@exept.de> parents: 1643 diff changeset	222	value
da8d044c7c0d value - itemValue Claus Gittinger <cg@exept.de> parents: 1643 diff changeset	223	"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	224
da8d044c7c0d value - itemValue Claus Gittinger <cg@exept.de> parents: 1643 diff changeset	225	^ itemValue
da8d044c7c0d value - itemValue Claus Gittinger <cg@exept.de> parents: 1643 diff changeset	226
da8d044c7c0d value - itemValue Claus Gittinger <cg@exept.de> parents: 1643 diff changeset	227	"Created: 25.2.1997 / 19:50:14 / cg"
da8d044c7c0d value - itemValue Claus Gittinger <cg@exept.de> parents: 1643 diff changeset	228	!
da8d044c7c0d value - itemValue Claus Gittinger <cg@exept.de> parents: 1643 diff changeset	229
da8d044c7c0d value - itemValue Claus Gittinger <cg@exept.de> parents: 1643 diff changeset	230	value:something
da8d044c7c0d value - itemValue Claus Gittinger <cg@exept.de> parents: 1643 diff changeset	231	"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	232
da8d044c7c0d value - itemValue Claus Gittinger <cg@exept.de> parents: 1643 diff changeset	233	itemValue := something
da8d044c7c0d value - itemValue Claus Gittinger <cg@exept.de> parents: 1643 diff changeset	234
da8d044c7c0d value - itemValue Claus Gittinger <cg@exept.de> parents: 1643 diff changeset	235	"Created: 25.2.1997 / 19:11:13 / cg"
724 898519684261 more VW comaptibility Claus Gittinger <cg@exept.de> parents: 684 diff changeset	236	! !
898519684261 more VW comaptibility Claus Gittinger <cg@exept.de> parents: 684 diff changeset	237
451 95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	238	!MenuItem methodsFor:'accessing'!
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	239
579 77f6d490f1ac so far, so good ca parents: 578 diff changeset	240	accessCharacterPosition
2112 3c4dd2e9203f * empty log message * Claus Gittinger <cg@exept.de> parents: 2082 diff changeset	241	"get the index of the access character in the label text or string, or nil if none"
3c4dd2e9203f * empty log message * Claus Gittinger <cg@exept.de> parents: 2082 diff changeset	242
1643 e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	243	^ accessCharacterPosition
451 95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	244	!
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	245
2112 3c4dd2e9203f * empty log message * Claus Gittinger <cg@exept.de> parents: 2082 diff changeset	246	accessCharacterPosition:index
3c4dd2e9203f * empty log message * Claus Gittinger <cg@exept.de> parents: 2082 diff changeset	247	"set the index of the access character in the label text or string, or nil if none"
3c4dd2e9203f * empty log message * Claus Gittinger <cg@exept.de> parents: 2082 diff changeset	248
1643 e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	249	accessCharacterPosition := index
451 95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	250	!
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	251
640 4e1c0d0a633b add active help for items ca parents: 590 diff changeset	252	activeHelpKey
4e1c0d0a633b add active help for items ca parents: 590 diff changeset	253	^ activeHelpKey
4e1c0d0a633b add active help for items ca parents: 590 diff changeset	254	!
4e1c0d0a633b add active help for items ca parents: 590 diff changeset	255
4e1c0d0a633b add active help for items ca parents: 590 diff changeset	256	activeHelpKey:aKey
4e1c0d0a633b add active help for items ca parents: 590 diff changeset	257	activeHelpKey := aKey
4e1c0d0a633b add active help for items ca parents: 590 diff changeset	258	!
4e1c0d0a633b add active help for items ca parents: 590 diff changeset	259
684 184dd159d02e support of arguments ca parents: 666 diff changeset	260	argument
2112 3c4dd2e9203f * empty log message * Claus Gittinger <cg@exept.de> parents: 2082 diff changeset	261	"get argument given to the value (selector)"
3c4dd2e9203f * empty log message * Claus Gittinger <cg@exept.de> parents: 2082 diff changeset	262
1643 e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	263	^ argument
684 184dd159d02e support of arguments ca parents: 666 diff changeset	264	!
184dd159d02e support of arguments ca parents: 666 diff changeset	265
2112 3c4dd2e9203f * empty log message * Claus Gittinger <cg@exept.de> parents: 2082 diff changeset	266	argument:something
3c4dd2e9203f * empty log message * Claus Gittinger <cg@exept.de> parents: 2082 diff changeset	267	"set argument given to the value (selector)"
3c4dd2e9203f * empty log message * Claus Gittinger <cg@exept.de> parents: 2082 diff changeset	268
684 184dd159d02e support of arguments ca parents: 666 diff changeset	269	\|arg\|
184dd159d02e support of arguments ca parents: 666 diff changeset	270
184dd159d02e support of arguments ca parents: 666 diff changeset	271	(arg := something) notNil ifTrue:[
184dd159d02e support of arguments ca parents: 666 diff changeset	272	arg isString ifTrue:[
2112 3c4dd2e9203f * empty log message * Claus Gittinger <cg@exept.de> parents: 2082 diff changeset	273	(arg size == 0 or:[ (arg indexOfNonSeparatorStartingAt:1) == 0 ]) ifTrue:[
684 184dd159d02e support of arguments ca parents: 666 diff changeset	274	arg := nil
184dd159d02e support of arguments ca parents: 666 diff changeset	275	]
184dd159d02e support of arguments ca parents: 666 diff changeset	276	]
184dd159d02e support of arguments ca parents: 666 diff changeset	277	].
1643 e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	278	argument := arg
684 184dd159d02e support of arguments ca parents: 666 diff changeset	279	!
184dd159d02e support of arguments ca parents: 666 diff changeset	280
1213 a80ce81d2944 auxValue added tm parents: 1203 diff changeset	281	auxValue
a80ce81d2944 auxValue added tm parents: 1203 diff changeset	282	"an additional, arbitrary value"
a80ce81d2944 auxValue added tm parents: 1203 diff changeset	283
1643 e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	284	^ auxValue
1213 a80ce81d2944 auxValue added tm parents: 1203 diff changeset	285	!
a80ce81d2944 auxValue added tm parents: 1203 diff changeset	286
2112 3c4dd2e9203f * empty log message * Claus Gittinger <cg@exept.de> parents: 2082 diff changeset	287	auxValue:something
3c4dd2e9203f * empty log message * Claus Gittinger <cg@exept.de> parents: 2082 diff changeset	288	"set the auxValue - an arbitrary user value"
3c4dd2e9203f * empty log message * Claus Gittinger <cg@exept.de> parents: 2082 diff changeset	289
1643 e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	290	auxValue := 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
e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	293	choice:something
e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	294	choice := something.
e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	295
e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	296	"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	297	!
e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	298
e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	299	choiceValue
e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	300	^ choiceValue
e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	301
e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	302	"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	303	!
e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	304
e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	305	choiceValue:something
e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	306	choiceValue := something.
e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	307
e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	308	"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	309	!
e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	310
e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	311	font
2112 3c4dd2e9203f * empty log message * Claus Gittinger <cg@exept.de> parents: 2082 diff changeset	312	"get the specific font for an item or nil"
3c4dd2e9203f * empty log message * Claus Gittinger <cg@exept.de> parents: 2082 diff changeset	313
1643 e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	314	^ font
e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	315	!
1333 423b4b4404c4 avoid creating an adornment (when nil adornment values are stored) Claus Gittinger <cg@exept.de> parents: 1329 diff changeset	316
2112 3c4dd2e9203f * empty log message * Claus Gittinger <cg@exept.de> parents: 2082 diff changeset	317	font:aFont
3c4dd2e9203f * empty log message * Claus Gittinger <cg@exept.de> parents: 2082 diff changeset	318	"set a specific font for an item"
3c4dd2e9203f * empty log message * Claus Gittinger <cg@exept.de> parents: 2082 diff changeset	319
1643 e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	320	font := aFont.
e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	321	!
e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	322
2548 07251b4e7ac9 changed #hierarchicalUUID fm parents: 2533 diff changeset	323	hierarchicalUUID
07251b4e7ac9 changed #hierarchicalUUID fm parents: 2533 diff changeset	324
07251b4e7ac9 changed #hierarchicalUUID fm parents: 2533 diff changeset	325	^ self uuid
07251b4e7ac9 changed #hierarchicalUUID fm parents: 2533 diff changeset	326	!
07251b4e7ac9 changed #hierarchicalUUID fm parents: 2533 diff changeset	327
1643 e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	328	horizontalLayout
1990 dca233a39477 horizontalLayout bug Claus Gittinger <cg@exept.de> parents: 1986 diff changeset	329	"by default, submenus have a vertical layout;
2112 3c4dd2e9203f * empty log message * Claus Gittinger <cg@exept.de> parents: 2082 diff changeset	330	if true, the submenu has a horizontal layout."
3c4dd2e9203f * empty log message * Claus Gittinger <cg@exept.de> parents: 2082 diff changeset	331
1990 dca233a39477 horizontalLayout bug Claus Gittinger <cg@exept.de> parents: 1986 diff changeset	332	^ horizontalLayout ? false
1643 e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	333	!
e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	334
2112 3c4dd2e9203f * empty log message * Claus Gittinger <cg@exept.de> parents: 2082 diff changeset	335	horizontalLayout:aBoolean
1990 dca233a39477 horizontalLayout bug Claus Gittinger <cg@exept.de> parents: 1986 diff changeset	336	"by default, submenus have a vertical layout;
2112 3c4dd2e9203f * empty log message * Claus Gittinger <cg@exept.de> parents: 2082 diff changeset	337	if true, the submenu has a horizontal layout."
3c4dd2e9203f * empty log message * Claus Gittinger <cg@exept.de> parents: 2082 diff changeset	338
1643 e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	339	horizontalLayout := aBoolean.
e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	340	!
e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	341
1884 4b317db4d387 support of ignoreShortcutKeys and ignoreMnemonicKeys ca parents: 1763 diff changeset	342	ignoreMnemonicKeys
4b317db4d387 support of ignoreShortcutKeys and ignoreMnemonicKeys ca parents: 1763 diff changeset	343	"if true, mnemonic (access character) in the submenus under the item are ignored;
2938 e9074e9333fa comment: #ignoreMnemonicKeys Claus Gittinger <cg@exept.de> parents: 2876 diff changeset	344	Set this to speedup accelerator key processing for slow dynamci menus.
e9074e9333fa comment: #ignoreMnemonicKeys Claus Gittinger <cg@exept.de> parents: 2876 diff changeset	345	The default is set to false"
2112 3c4dd2e9203f * empty log message * Claus Gittinger <cg@exept.de> parents: 2082 diff changeset	346
1884 4b317db4d387 support of ignoreShortcutKeys and ignoreMnemonicKeys ca parents: 1763 diff changeset	347	^ ignoreMnemonicKeys ? false
2938 e9074e9333fa comment: #ignoreMnemonicKeys Claus Gittinger <cg@exept.de> parents: 2876 diff changeset	348
e9074e9333fa comment: #ignoreMnemonicKeys Claus Gittinger <cg@exept.de> parents: 2876 diff changeset	349	"Modified (comment): / 08-09-2011 / 04:30:19 / cg"
1884 4b317db4d387 support of ignoreShortcutKeys and ignoreMnemonicKeys ca parents: 1763 diff changeset	350	!
4b317db4d387 support of ignoreShortcutKeys and ignoreMnemonicKeys ca parents: 1763 diff changeset	351
2112 3c4dd2e9203f * empty log message * Claus Gittinger <cg@exept.de> parents: 2082 diff changeset	352	ignoreMnemonicKeys:aBoolean
1884 4b317db4d387 support of ignoreShortcutKeys and ignoreMnemonicKeys ca parents: 1763 diff changeset	353	"if true, mnemonic (access character) in the submenus under the item are ignored;
2939 c04e85910837 comment: #ignoreMnemonicKeys: Claus Gittinger <cg@exept.de> parents: 2938 diff changeset	354	Set this to speedup accelerator key processing for slow dynamci menus.
2112 3c4dd2e9203f * empty log message * Claus Gittinger <cg@exept.de> parents: 2082 diff changeset	355	the default is set to false"
3c4dd2e9203f * empty log message * Claus Gittinger <cg@exept.de> parents: 2082 diff changeset	356
1884 4b317db4d387 support of ignoreShortcutKeys and ignoreMnemonicKeys ca parents: 1763 diff changeset	357	ignoreMnemonicKeys := aBoolean.
2939 c04e85910837 comment: #ignoreMnemonicKeys: Claus Gittinger <cg@exept.de> parents: 2938 diff changeset	358
c04e85910837 comment: #ignoreMnemonicKeys: Claus Gittinger <cg@exept.de> parents: 2938 diff changeset	359	"Modified (comment): / 08-09-2011 / 04:52:23 / cg"
1884 4b317db4d387 support of ignoreShortcutKeys and ignoreMnemonicKeys ca parents: 1763 diff changeset	360	!
4b317db4d387 support of ignoreShortcutKeys and ignoreMnemonicKeys ca parents: 1763 diff changeset	361
4b317db4d387 support of ignoreShortcutKeys and ignoreMnemonicKeys ca parents: 1763 diff changeset	362	ignoreShortcutKeys
4b317db4d387 support of ignoreShortcutKeys and ignoreMnemonicKeys ca parents: 1763 diff changeset	363	"if true, shortcutKeys (accelerators) in the submenus under the item are ignored;
2112 3c4dd2e9203f * empty log message * Claus Gittinger <cg@exept.de> parents: 2082 diff changeset	364	the default is set to false"
3c4dd2e9203f * empty log message * Claus Gittinger <cg@exept.de> parents: 2082 diff changeset	365
1884 4b317db4d387 support of ignoreShortcutKeys and ignoreMnemonicKeys ca parents: 1763 diff changeset	366	^ ignoreShortcutKeys ? false
4b317db4d387 support of ignoreShortcutKeys and ignoreMnemonicKeys ca parents: 1763 diff changeset	367	!
4b317db4d387 support of ignoreShortcutKeys and ignoreMnemonicKeys ca parents: 1763 diff changeset	368
2112 3c4dd2e9203f * empty log message * Claus Gittinger <cg@exept.de> parents: 2082 diff changeset	369	ignoreShortcutKeys:aBoolean
1884 4b317db4d387 support of ignoreShortcutKeys and ignoreMnemonicKeys ca parents: 1763 diff changeset	370	"if true, shortcutKeys (accelerators) in the submenus under the item are ignored;
2112 3c4dd2e9203f * empty log message * Claus Gittinger <cg@exept.de> parents: 2082 diff changeset	371	the default is set to false"
3c4dd2e9203f * empty log message * Claus Gittinger <cg@exept.de> parents: 2082 diff changeset	372
1884 4b317db4d387 support of ignoreShortcutKeys and ignoreMnemonicKeys ca parents: 1763 diff changeset	373	ignoreShortcutKeys := aBoolean.
4b317db4d387 support of ignoreShortcutKeys and ignoreMnemonicKeys ca parents: 1763 diff changeset	374	!
4b317db4d387 support of ignoreShortcutKeys and ignoreMnemonicKeys ca parents: 1763 diff changeset	375
1643 e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	376	indication
3178 ced60e8c83fe class: MenuItem Claus Gittinger <cg@exept.de> parents: 3033 diff changeset	377	"value of the items on/off indicator (CheckToggle).
ced60e8c83fe class: MenuItem Claus Gittinger <cg@exept.de> parents: 3033 diff changeset	378	Usually a valueHolder"
2112 3c4dd2e9203f * empty log message * Claus Gittinger <cg@exept.de> parents: 2082 diff changeset	379
1643 e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	380	^ indication
e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	381
e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	382	"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	383	!
e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	384
3178 ced60e8c83fe class: MenuItem Claus Gittinger <cg@exept.de> parents: 3033 diff changeset	385	indication:someValueHolder
ced60e8c83fe class: MenuItem Claus Gittinger <cg@exept.de> parents: 3033 diff changeset	386	"value of the items on/off indicator (CheckToggle).
ced60e8c83fe class: MenuItem Claus Gittinger <cg@exept.de> parents: 3033 diff changeset	387	someValueHolder is usually a value holder"
2112 3c4dd2e9203f * empty log message * Claus Gittinger <cg@exept.de> parents: 2082 diff changeset	388
3178 ced60e8c83fe class: MenuItem Claus Gittinger <cg@exept.de> parents: 3033 diff changeset	389	indication := someValueHolder.
1643 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	"Created: 25.2.1997 / 20:59:28 / cg"
1213 a80ce81d2944 auxValue added tm parents: 1203 diff changeset	392	!
a80ce81d2944 auxValue added tm parents: 1203 diff changeset	393
1986 f819e439d917 * empty log message * ca parents: 1885 diff changeset	394	isMenuSlice:aBoolean
f819e439d917 * empty log message * ca parents: 1885 diff changeset	395	isMenuSlice := aBoolean.
f819e439d917 * empty log message * ca parents: 1885 diff changeset	396	!
f819e439d917 * empty log message * ca parents: 1885 diff changeset	397
798 8a27a879ff23 support of visible/invisible items ca parents: 794 diff changeset	398	isVisible
1663 00afd9631d8c isVisible - default is true Claus Gittinger <cg@exept.de> parents: 1658 diff changeset	399	^ isVisible ? true
798 8a27a879ff23 support of visible/invisible items ca parents: 794 diff changeset	400	!
8a27a879ff23 support of visible/invisible items ca parents: 794 diff changeset	401
8a27a879ff23 support of visible/invisible items ca parents: 794 diff changeset	402	isVisible:something
8a27a879ff23 support of visible/invisible items ca parents: 794 diff changeset	403	isVisible := something
8a27a879ff23 support of visible/invisible items ca parents: 794 diff changeset	404	!
8a27a879ff23 support of visible/invisible items ca parents: 794 diff changeset	405
1643 e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	406	itemValue
e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	407	^ itemValue
e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	408
e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	409	"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	410	!
1370 4d2a3cc1d3c7 allow views in subMenus ca parents: 1369 diff changeset	411
1643 e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	412	itemValue:something
e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	413	itemValue := something
e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	414
e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	415	"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	416	!
e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	417
3023 763ad69e9832 menuitem protocol Claus Gittinger <cg@exept.de> parents: 3021 diff changeset	418	itemValue:selectorOrBlock argument:anArgument
763ad69e9832 menuitem protocol Claus Gittinger <cg@exept.de> parents: 3021 diff changeset	419	itemValue := selectorOrBlock.
763ad69e9832 menuitem protocol Claus Gittinger <cg@exept.de> parents: 3021 diff changeset	420	argument := anArgument
763ad69e9832 menuitem protocol Claus Gittinger <cg@exept.de> parents: 3021 diff changeset	421
763ad69e9832 menuitem protocol Claus Gittinger <cg@exept.de> parents: 3021 diff changeset	422	"Created: / 09-09-2012 / 13:05:14 / cg"
763ad69e9832 menuitem protocol Claus Gittinger <cg@exept.de> parents: 3021 diff changeset	423	!
763ad69e9832 menuitem protocol Claus Gittinger <cg@exept.de> parents: 3021 diff changeset	424
1643 e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	425	keepLinkedMenu
e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	426	^ keepLinkedMenu ? false
1370 4d2a3cc1d3c7 allow views in subMenus ca parents: 1369 diff changeset	427	!
4d2a3cc1d3c7 allow views in subMenus ca parents: 1369 diff changeset	428
4d2a3cc1d3c7 allow views in subMenus ca parents: 1369 diff changeset	429	keepLinkedMenu:aBoolean
1643 e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	430	keepLinkedMenu := aBoolean ? false.
e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	431	!
e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	432
e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	433	labelImage
e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	434	^ labelImage
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
e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	437	labelImage:something
2125 78bd48d8de76 labelImage: VW7 compat. Claus Gittinger <cg@exept.de> parents: 2122 diff changeset	438	labelImage := something.
1643 e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	439
2125 78bd48d8de76 labelImage: VW7 compat. Claus Gittinger <cg@exept.de> parents: 2122 diff changeset	440	"/ VW compatibility: if I have a label also,
78bd48d8de76 labelImage: VW7 compat. Claus Gittinger <cg@exept.de> parents: 2122 diff changeset	441	"/ this will become a LabelAndImage.
78bd48d8de76 labelImage: VW7 compat. Claus Gittinger <cg@exept.de> parents: 2122 diff changeset	442	something isImage ifTrue:[
78bd48d8de76 labelImage: VW7 compat. Claus Gittinger <cg@exept.de> parents: 2122 diff changeset	443	label notNil ifTrue:[
78bd48d8de76 labelImage: VW7 compat. Claus Gittinger <cg@exept.de> parents: 2122 diff changeset	444	labelImage := LabelAndIcon icon:labelImage string:label
78bd48d8de76 labelImage: VW7 compat. Claus Gittinger <cg@exept.de> parents: 2122 diff changeset	445	]
78bd48d8de76 labelImage: VW7 compat. Claus Gittinger <cg@exept.de> parents: 2122 diff changeset	446	].
1370 4d2a3cc1d3c7 allow views in subMenus ca parents: 1369 diff changeset	447	!
4d2a3cc1d3c7 allow views in subMenus ca parents: 1369 diff changeset	448
578 7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	449	nameKey
7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	450	^ nameKey
7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	451
7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	452
7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	453	!
7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	454
7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	455	nameKey:aNameKey
579 77f6d490f1ac so far, so good ca parents: 578 diff changeset	456	nameKey := aNameKey.
578 7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	457
7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	458
7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	459	!
7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	460
490 ebe88e50b29a * empty log message * ca parents: 458 diff changeset	461	rawLabel
ebe88e50b29a * empty log message * ca parents: 458 diff changeset	462	^ label
ebe88e50b29a * empty log message * ca parents: 458 diff changeset	463
ebe88e50b29a * empty log message * ca parents: 458 diff changeset	464	"Created: 25.2.1997 / 19:48:16 / cg"
ebe88e50b29a * empty log message * ca parents: 458 diff changeset	465	!
ebe88e50b29a * empty log message * ca parents: 458 diff changeset	466
451 95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	467	rawLabel:aString
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	468	label := aString
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	469
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	470	"Created: 25.2.1997 / 19:11:02 / cg"
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	471	!
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	472
1621 f913c0e7a3a8 access the resourceRetriever ca parents: 1595 diff changeset	473	resourceRetriever
f913c0e7a3a8 access the resourceRetriever ca parents: 1595 diff changeset	474	\|retriever\|
f913c0e7a3a8 access the resourceRetriever ca parents: 1595 diff changeset	475
1643 e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	476	retriever := labelImage.
e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	477	(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	478	^ retriever
1621 f913c0e7a3a8 access the resourceRetriever ca parents: 1595 diff changeset	479	].
f913c0e7a3a8 access the resourceRetriever ca parents: 1595 diff changeset	480	^ nil
f913c0e7a3a8 access the resourceRetriever ca parents: 1595 diff changeset	481	!
f913c0e7a3a8 access the resourceRetriever ca parents: 1595 diff changeset	482
f913c0e7a3a8 access the resourceRetriever ca parents: 1595 diff changeset	483	resourceRetriever:aRetriever
1643 e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	484	self labelImage:aRetriever
1621 f913c0e7a3a8 access the resourceRetriever ca parents: 1595 diff changeset	485	!
f913c0e7a3a8 access the resourceRetriever ca parents: 1595 diff changeset	486
1655 d937610cfe89 shorrtcutKey vs. shortcutKeyCharacter Claus Gittinger <cg@exept.de> parents: 1651 diff changeset	487	shortcutKey
2112 3c4dd2e9203f * empty log message * Claus Gittinger <cg@exept.de> parents: 2082 diff changeset	488	"get the key to press to select the menu item from the keyboard"
3c4dd2e9203f * empty log message * Claus Gittinger <cg@exept.de> parents: 2082 diff changeset	489
1643 e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	490	^ shortcutKey
e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	491	!
490 ebe88e50b29a * empty log message * ca parents: 458 diff changeset	492
2112 3c4dd2e9203f * empty log message * Claus Gittinger <cg@exept.de> parents: 2082 diff changeset	493	shortcutKey:something
3c4dd2e9203f * empty log message * Claus Gittinger <cg@exept.de> parents: 2082 diff changeset	494	"set the key to press to select the menu item from the keyboard"
3c4dd2e9203f * empty log message * Claus Gittinger <cg@exept.de> parents: 2082 diff changeset	495
1643 e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	496	shortcutKey := something.
490 ebe88e50b29a * empty log message * ca parents: 458 diff changeset	497	!
ebe88e50b29a * empty log message * ca parents: 458 diff changeset	498
1655 d937610cfe89 shorrtcutKey vs. shortcutKeyCharacter Claus Gittinger <cg@exept.de> parents: 1651 diff changeset	499	shortcutKeyCharacter
d937610cfe89 shorrtcutKey vs. shortcutKeyCharacter Claus Gittinger <cg@exept.de> parents: 1651 diff changeset	500	"Backward compatibility; same as #shortcutKey.
2112 3c4dd2e9203f * empty log message * Claus Gittinger <cg@exept.de> parents: 2082 diff changeset	501	get the key to press to select the menu item from the keyboard"
3c4dd2e9203f * empty log message * Claus Gittinger <cg@exept.de> parents: 2082 diff changeset	502
1655 d937610cfe89 shorrtcutKey vs. shortcutKeyCharacter Claus Gittinger <cg@exept.de> parents: 1651 diff changeset	503	^ self shortcutKey
d937610cfe89 shorrtcutKey vs. shortcutKeyCharacter Claus Gittinger <cg@exept.de> parents: 1651 diff changeset	504	!
d937610cfe89 shorrtcutKey vs. shortcutKeyCharacter Claus Gittinger <cg@exept.de> parents: 1651 diff changeset	505
2112 3c4dd2e9203f * empty log message * Claus Gittinger <cg@exept.de> parents: 2082 diff changeset	506	shortcutKeyCharacter:something
1655 d937610cfe89 shorrtcutKey vs. shortcutKeyCharacter Claus Gittinger <cg@exept.de> parents: 1651 diff changeset	507	"Backward compatibility; same as #shortcutKey:.
2112 3c4dd2e9203f * empty log message * Claus Gittinger <cg@exept.de> parents: 2082 diff changeset	508	set the key to press to select the menu item from the keyboard"
3c4dd2e9203f * empty log message * Claus Gittinger <cg@exept.de> parents: 2082 diff changeset	509
1655 d937610cfe89 shorrtcutKey vs. shortcutKeyCharacter Claus Gittinger <cg@exept.de> parents: 1651 diff changeset	510	self shortcutKey:something.
d937610cfe89 shorrtcutKey vs. shortcutKeyCharacter Claus Gittinger <cg@exept.de> parents: 1651 diff changeset	511	!
d937610cfe89 shorrtcutKey vs. shortcutKeyCharacter Claus Gittinger <cg@exept.de> parents: 1651 diff changeset	512
458 729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	513	submenu
2112 3c4dd2e9203f * empty log message * Claus Gittinger <cg@exept.de> parents: 2082 diff changeset	514	"get the submenu or nil"
3c4dd2e9203f * empty log message * Claus Gittinger <cg@exept.de> parents: 2082 diff changeset	515
1643 e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	516	^ submenu value
458 729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	517
1643 e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	518	"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	519	"Modified: / 19.6.1998 / 00:33:58 / cg"
458 729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	520	!
729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	521
2987 66fad8f6ad33 comment/format in: #submenu: Claus Gittinger <cg@exept.de> parents: 2966 diff changeset	522	submenu:aMenu
2112 3c4dd2e9203f * empty log message * Claus Gittinger <cg@exept.de> parents: 2082 diff changeset	523	"set the submenu or nil"
3c4dd2e9203f * empty log message * Claus Gittinger <cg@exept.de> parents: 2082 diff changeset	524
2987 66fad8f6ad33 comment/format in: #submenu: Claus Gittinger <cg@exept.de> parents: 2966 diff changeset	525	(aMenu isValueModel or:[ aMenu isBlock ]) ifTrue:[
1643 e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	526	submenuChannel notNil ifTrue:[
e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	527	"/ programmers error ?
e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	528	"/ 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	529	"/ a channel and a subMenu ...
1649 162e89bf1079 halt -> error ca parents: 1648 diff changeset	530	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	531	].
2987 66fad8f6ad33 comment/format in: #submenu: Claus Gittinger <cg@exept.de> parents: 2966 diff changeset	532	submenuChannel := aMenu
1643 e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	533	] ifFalse:[
2987 66fad8f6ad33 comment/format in: #submenu: Claus Gittinger <cg@exept.de> parents: 2966 diff changeset	534	submenu := aMenu.
1333 423b4b4404c4 avoid creating an adornment (when nil adornment values are stored) Claus Gittinger <cg@exept.de> parents: 1329 diff changeset	535	]
458 729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	536
1643 e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	537	"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	538	"Modified: / 5.2.2000 / 16:53:28 / cg"
458 729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	539	!
729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	540
666 6e614a5d9248 add submenuChannel ca parents: 661 diff changeset	541	submenuChannel
2112 3c4dd2e9203f * empty log message * Claus Gittinger <cg@exept.de> parents: 2082 diff changeset	542	"get the submenuChannel or nil"
3c4dd2e9203f * empty log message * Claus Gittinger <cg@exept.de> parents: 2082 diff changeset	543
1643 e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	544	^ submenuChannel
666 6e614a5d9248 add submenuChannel ca parents: 661 diff changeset	545	!
6e614a5d9248 add submenuChannel ca parents: 661 diff changeset	546
2987 66fad8f6ad33 comment/format in: #submenu: Claus Gittinger <cg@exept.de> parents: 2966 diff changeset	547	submenuChannel:aMenuHolder
2112 3c4dd2e9203f * empty log message * Claus Gittinger <cg@exept.de> parents: 2082 diff changeset	548	"set the submenuChannel or nil"
3c4dd2e9203f * empty log message * Claus Gittinger <cg@exept.de> parents: 2082 diff changeset	549
2987 66fad8f6ad33 comment/format in: #submenu: Claus Gittinger <cg@exept.de> parents: 2966 diff changeset	550	submenuChannel := aMenuHolder.
2517 35e21e2e29a6 support uuid's fm parents: 2412 diff changeset	551	!
35e21e2e29a6 support uuid's fm parents: 2412 diff changeset	552
2866 2d1ab34d1836 +submenuProvider Claus Gittinger <cg@exept.de> parents: 2813 diff changeset	553	submenuProvider
2d1ab34d1836 +submenuProvider Claus Gittinger <cg@exept.de> parents: 2813 diff changeset	554	"useful if a sub-menu is plugged in from another application (i.e. when
2d1ab34d1836 +submenuProvider Claus Gittinger <cg@exept.de> parents: 2813 diff changeset	555	a submenu is fetched via a channel AND the top-menus application cannot provide
2d1ab34d1836 +submenuProvider Claus Gittinger <cg@exept.de> parents: 2813 diff changeset	556	it"
2d1ab34d1836 +submenuProvider Claus Gittinger <cg@exept.de> parents: 2813 diff changeset	557
2d1ab34d1836 +submenuProvider Claus Gittinger <cg@exept.de> parents: 2813 diff changeset	558	^ submenuProvider
2d1ab34d1836 +submenuProvider Claus Gittinger <cg@exept.de> parents: 2813 diff changeset	559
2d1ab34d1836 +submenuProvider Claus Gittinger <cg@exept.de> parents: 2813 diff changeset	560	"Created: / 22-09-2010 / 13:55:55 / cg"
2d1ab34d1836 +submenuProvider Claus Gittinger <cg@exept.de> parents: 2813 diff changeset	561	!
2d1ab34d1836 +submenuProvider Claus Gittinger <cg@exept.de> parents: 2813 diff changeset	562
2d1ab34d1836 +submenuProvider Claus Gittinger <cg@exept.de> parents: 2813 diff changeset	563	submenuProvider:something
2d1ab34d1836 +submenuProvider Claus Gittinger <cg@exept.de> parents: 2813 diff changeset	564	"useful if a sub-menu is plugged in from another application (i.e. when
2d1ab34d1836 +submenuProvider Claus Gittinger <cg@exept.de> parents: 2813 diff changeset	565	a submenu is fetched via a channel AND the top-menus application cannot provide
2d1ab34d1836 +submenuProvider Claus Gittinger <cg@exept.de> parents: 2813 diff changeset	566	it"
2d1ab34d1836 +submenuProvider Claus Gittinger <cg@exept.de> parents: 2813 diff changeset	567
2d1ab34d1836 +submenuProvider Claus Gittinger <cg@exept.de> parents: 2813 diff changeset	568	submenuProvider := something.
2d1ab34d1836 +submenuProvider Claus Gittinger <cg@exept.de> parents: 2813 diff changeset	569
2d1ab34d1836 +submenuProvider Claus Gittinger <cg@exept.de> parents: 2813 diff changeset	570	"Created: / 22-09-2010 / 13:55:40 / cg"
2d1ab34d1836 +submenuProvider Claus Gittinger <cg@exept.de> parents: 2813 diff changeset	571	!
2d1ab34d1836 +submenuProvider Claus Gittinger <cg@exept.de> parents: 2813 diff changeset	572
2517 35e21e2e29a6 support uuid's fm parents: 2412 diff changeset	573	uuid
35e21e2e29a6 support uuid's fm parents: 2412 diff changeset	574
35e21e2e29a6 support uuid's fm parents: 2412 diff changeset	575	^ uuid
35e21e2e29a6 support uuid's fm parents: 2412 diff changeset	576	!
35e21e2e29a6 support uuid's fm parents: 2412 diff changeset	577
35e21e2e29a6 support uuid's fm parents: 2412 diff changeset	578	uuid:aUUID
35e21e2e29a6 support uuid's fm parents: 2412 diff changeset	579	"return my name component to be used for resource-access"
35e21e2e29a6 support uuid's fm parents: 2412 diff changeset	580
35e21e2e29a6 support uuid's fm parents: 2412 diff changeset	581	uuid := aUUID
451 95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	582	! !
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	583
1333 423b4b4404c4 avoid creating an adornment (when nil adornment values are stored) Claus Gittinger <cg@exept.de> parents: 1329 diff changeset	584	!MenuItem methodsFor:'accessing-behavior'!
579 77f6d490f1ac so far, so good ca parents: 578 diff changeset	585
590 fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	586	beOff
2082 cab2f7b1f938 * empty log message * Claus Gittinger <cg@exept.de> parents: 2060 diff changeset	587	"set indication off"
cab2f7b1f938 * empty log message * Claus Gittinger <cg@exept.de> parents: 2060 diff changeset	588
590 fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	589	self indication:false
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	590	!
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	591
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	592	beOn
2082 cab2f7b1f938 * empty log message * Claus Gittinger <cg@exept.de> parents: 2060 diff changeset	593	"set indication on"
cab2f7b1f938 * empty log message * Claus Gittinger <cg@exept.de> parents: 2060 diff changeset	594
590 fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	595	self indication:true
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	596	!
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	597
1041 d28f0375cd26 added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	598	choice
2082 cab2f7b1f938 * empty log message * Claus Gittinger <cg@exept.de> parents: 2060 diff changeset	599	"return the menu items choice indicator (RadioButton)"
cab2f7b1f938 * empty log message * Claus Gittinger <cg@exept.de> parents: 2060 diff changeset	600
1643 e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	601	^ choice
1041 d28f0375cd26 added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	602
d28f0375cd26 added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	603	"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	604	"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	605	!
d28f0375cd26 added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	606
579 77f6d490f1ac so far, so good ca parents: 578 diff changeset	607	disable
77f6d490f1ac so far, so good ca parents: 578 diff changeset	608	enabled := false
77f6d490f1ac so far, so good ca parents: 578 diff changeset	609
77f6d490f1ac so far, so good ca parents: 578 diff changeset	610	"Created: 25.2.1997 / 19:39:09 / cg"
77f6d490f1ac so far, so good ca parents: 578 diff changeset	611	!
77f6d490f1ac so far, so good ca parents: 578 diff changeset	612
77f6d490f1ac so far, so good ca parents: 578 diff changeset	613	enable
77f6d490f1ac so far, so good ca parents: 578 diff changeset	614	enabled := true
77f6d490f1ac so far, so good ca parents: 578 diff changeset	615
77f6d490f1ac so far, so good ca parents: 578 diff changeset	616	"Created: 25.2.1997 / 19:39:00 / cg"
77f6d490f1ac so far, so good ca parents: 578 diff changeset	617	!
77f6d490f1ac so far, so good ca parents: 578 diff changeset	618
581 0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	619	enabled
2082 cab2f7b1f938 * empty log message * Claus Gittinger <cg@exept.de> parents: 2060 diff changeset	620	"returns a boolean, valueHolder or block"
cab2f7b1f938 * empty log message * Claus Gittinger <cg@exept.de> parents: 2060 diff changeset	621
581 0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	622	^ enabled
0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	623	!
579 77f6d490f1ac so far, so good ca parents: 578 diff changeset	624
581 0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	625	enabled:something
2082 cab2f7b1f938 * empty log message * Claus Gittinger <cg@exept.de> parents: 2060 diff changeset	626	"a boolean, valueHolder or block"
cab2f7b1f938 * empty log message * Claus Gittinger <cg@exept.de> parents: 2060 diff changeset	627
581 0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	628	enabled := something
590 fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	629	!
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	630
1595 0595db55a829 preps for delayedMenu Claus Gittinger <cg@exept.de> parents: 1568 diff changeset	631	hideMenuOnActivated
2082 cab2f7b1f938 * empty log message * Claus Gittinger <cg@exept.de> parents: 2060 diff changeset	632	"hide the menu when the item was activated; the default is true"
cab2f7b1f938 * empty log message * Claus Gittinger <cg@exept.de> parents: 2060 diff changeset	633
1595 0595db55a829 preps for delayedMenu Claus Gittinger <cg@exept.de> parents: 1568 diff changeset	634	^ hideMenuOnActivated ? true
1566 99ef8f1123c8 menuBuilder: support of horizontal/vertical layout of submenu ca parents: 1486 diff changeset	635	!
99ef8f1123c8 menuBuilder: support of horizontal/vertical layout of submenu ca parents: 1486 diff changeset	636
1595 0595db55a829 preps for delayedMenu Claus Gittinger <cg@exept.de> parents: 1568 diff changeset	637	hideMenuOnActivated:aBool
2082 cab2f7b1f938 * empty log message * Claus Gittinger <cg@exept.de> parents: 2060 diff changeset	638	"hide the menu when the item was activated; the default is true"
cab2f7b1f938 * empty log message * Claus Gittinger <cg@exept.de> parents: 2060 diff changeset	639
1595 0595db55a829 preps for delayedMenu Claus Gittinger <cg@exept.de> parents: 1568 diff changeset	640	hideMenuOnActivated := aBool ? true
1566 99ef8f1123c8 menuBuilder: support of horizontal/vertical layout of submenu ca parents: 1486 diff changeset	641	!
99ef8f1123c8 menuBuilder: support of horizontal/vertical layout of submenu ca parents: 1486 diff changeset	642
1651 429e02e097d9 can now specify if menu action is to be performed by ca parents: 1649 diff changeset	643	sendToOriginator
429e02e097d9 can now specify if menu action is to be performed by ca parents: 1649 diff changeset	644	"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	645	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	646
429e02e097d9 can now specify if menu action is to be performed by ca parents: 1649 diff changeset	647	^ sendToOriginator ? false
429e02e097d9 can now specify if menu action is to be performed by ca parents: 1649 diff changeset	648	!
429e02e097d9 can now specify if menu action is to be performed by ca parents: 1649 diff changeset	649
429e02e097d9 can now specify if menu action is to be performed by ca parents: 1649 diff changeset	650	sendToOriginator:anBoolean
429e02e097d9 can now specify if menu action is to be performed by ca parents: 1649 diff changeset	651	"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	652	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	653
429e02e097d9 can now specify if menu action is to be performed by ca parents: 1649 diff changeset	654	sendToOriginator := anBoolean
429e02e097d9 can now specify if menu action is to be performed by ca parents: 1649 diff changeset	655	!
429e02e097d9 can now specify if menu action is to be performed by ca parents: 1649 diff changeset	656
2533 569fd3176543 * empty log message * Claus Gittinger <cg@exept.de> parents: 2517 diff changeset	657	showBusyCursorWhilePerforming
569fd3176543 * empty log message * Claus Gittinger <cg@exept.de> parents: 2517 diff changeset	658	"get the flag which controls if a busy cursor is to be shown
569fd3176543 * empty log message * Claus Gittinger <cg@exept.de> parents: 2517 diff changeset	659	while performing the menu action. Defaults to false."
569fd3176543 * empty log message * Claus Gittinger <cg@exept.de> parents: 2517 diff changeset	660
569fd3176543 * empty log message * Claus Gittinger <cg@exept.de> parents: 2517 diff changeset	661	^ showBusyCursorWhilePerforming ? false
569fd3176543 * empty log message * Claus Gittinger <cg@exept.de> parents: 2517 diff changeset	662
569fd3176543 * empty log message * Claus Gittinger <cg@exept.de> parents: 2517 diff changeset	663	!
569fd3176543 * empty log message * Claus Gittinger <cg@exept.de> parents: 2517 diff changeset	664
569fd3176543 * empty log message * Claus Gittinger <cg@exept.de> parents: 2517 diff changeset	665	showBusyCursorWhilePerforming:aBoolean
569fd3176543 * empty log message * Claus Gittinger <cg@exept.de> parents: 2517 diff changeset	666	"set/clear the flag which controls if a busy cursor is to be shown
569fd3176543 * empty log message * Claus Gittinger <cg@exept.de> parents: 2517 diff changeset	667	while performing the menu action. Defaults to false."
569fd3176543 * empty log message * Claus Gittinger <cg@exept.de> parents: 2517 diff changeset	668
569fd3176543 * empty log message * Claus Gittinger <cg@exept.de> parents: 2517 diff changeset	669	showBusyCursorWhilePerforming := aBoolean
569fd3176543 * empty log message * Claus Gittinger <cg@exept.de> parents: 2517 diff changeset	670
569fd3176543 * empty log message * Claus Gittinger <cg@exept.de> parents: 2517 diff changeset	671	!
569fd3176543 * empty log message * Claus Gittinger <cg@exept.de> parents: 2517 diff changeset	672
1595 0595db55a829 preps for delayedMenu Claus Gittinger <cg@exept.de> parents: 1568 diff changeset	673	translateLabel
2082 cab2f7b1f938 * empty log message * Claus Gittinger <cg@exept.de> parents: 2060 diff changeset	674	"returns true if the label is to be translated"
cab2f7b1f938 * empty log message * Claus Gittinger <cg@exept.de> parents: 2060 diff changeset	675
2412 3f11e716f802 Do not try to translate separators Stefan Vogel <sv@exept.de> parents: 2293 diff changeset	676	^ translateLabel ? true
1595 0595db55a829 preps for delayedMenu Claus Gittinger <cg@exept.de> parents: 1568 diff changeset	677	!
0595db55a829 preps for delayedMenu Claus Gittinger <cg@exept.de> parents: 1568 diff changeset	678
2082 cab2f7b1f938 * empty log message * Claus Gittinger <cg@exept.de> parents: 2060 diff changeset	679	translateLabel:aBoolean
cab2f7b1f938 * empty log message * Claus Gittinger <cg@exept.de> parents: 2060 diff changeset	680	"sets whether label is translated"
1595 0595db55a829 preps for delayedMenu Claus Gittinger <cg@exept.de> parents: 1568 diff changeset	681
2082 cab2f7b1f938 * empty log message * Claus Gittinger <cg@exept.de> parents: 2060 diff changeset	682	translateLabel := aBoolean
1595 0595db55a829 preps for delayedMenu Claus Gittinger <cg@exept.de> parents: 1568 diff changeset	683	!
0595db55a829 preps for delayedMenu Claus Gittinger <cg@exept.de> parents: 1568 diff changeset	684
0595db55a829 preps for delayedMenu Claus Gittinger <cg@exept.de> parents: 1568 diff changeset	685	triggerOnDown
2082 cab2f7b1f938 * empty log message * Claus Gittinger <cg@exept.de> parents: 2060 diff changeset	686	"returns true if the action is triggered when pressed"
cab2f7b1f938 * empty log message * Claus Gittinger <cg@exept.de> parents: 2060 diff changeset	687
1595 0595db55a829 preps for delayedMenu Claus Gittinger <cg@exept.de> parents: 1568 diff changeset	688	^ triggerOnDown ? false
0595db55a829 preps for delayedMenu Claus Gittinger <cg@exept.de> parents: 1568 diff changeset	689	!
0595db55a829 preps for delayedMenu Claus Gittinger <cg@exept.de> parents: 1568 diff changeset	690
0595db55a829 preps for delayedMenu Claus Gittinger <cg@exept.de> parents: 1568 diff changeset	691	triggerOnDown:aBool
2082 cab2f7b1f938 * empty log message * Claus Gittinger <cg@exept.de> parents: 2060 diff changeset	692	"controls if the action is triggered when pressed or released"
cab2f7b1f938 * empty log message * Claus Gittinger <cg@exept.de> parents: 2060 diff changeset	693
1595 0595db55a829 preps for delayedMenu Claus Gittinger <cg@exept.de> parents: 1568 diff changeset	694	triggerOnDown := aBool.
0595db55a829 preps for delayedMenu Claus Gittinger <cg@exept.de> parents: 1568 diff changeset	695	! !
0595db55a829 preps for delayedMenu Claus Gittinger <cg@exept.de> parents: 1568 diff changeset	696
0595db55a829 preps for delayedMenu Claus Gittinger <cg@exept.de> parents: 1568 diff changeset	697	!MenuItem methodsFor:'accessing-look'!
0595db55a829 preps for delayedMenu Claus Gittinger <cg@exept.de> parents: 1568 diff changeset	698
1643 e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	699	icon:anImage
e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	700	self resourceRetriever: (ResourceRetriever icon:anImage)
1595 0595db55a829 preps for delayedMenu Claus Gittinger <cg@exept.de> parents: 1568 diff changeset	701	!
0595db55a829 preps for delayedMenu Claus Gittinger <cg@exept.de> parents: 1568 diff changeset	702
752 93690dcd1b75 button and label translation support added. tz parents: 724 diff changeset	703	isButton
93690dcd1b75 button and label translation support added. tz parents: 724 diff changeset	704	"returns whether item looks like a Button
93690dcd1b75 button and label translation support added. tz parents: 724 diff changeset	705	"
1646 da8d044c7c0d value - itemValue Claus Gittinger <cg@exept.de> parents: 1643 diff changeset	706	^ isButton ? false
752 93690dcd1b75 button and label translation support added. tz parents: 724 diff changeset	707	!
93690dcd1b75 button and label translation support added. tz parents: 724 diff changeset	708
93690dcd1b75 button and label translation support added. tz parents: 724 diff changeset	709	isButton:anBoolean
93690dcd1b75 button and label translation support added. tz parents: 724 diff changeset	710	"sets whether item looks like a Button
93690dcd1b75 button and label translation support added. tz parents: 724 diff changeset	711	"
93690dcd1b75 button and label translation support added. tz parents: 724 diff changeset	712	isButton := anBoolean
93690dcd1b75 button and label translation support added. tz parents: 724 diff changeset	713
93690dcd1b75 button and label translation support added. tz parents: 724 diff changeset	714
93690dcd1b75 button and label translation support added. tz parents: 724 diff changeset	715	!
93690dcd1b75 button and label translation support added. tz parents: 724 diff changeset	716
1595 0595db55a829 preps for delayedMenu Claus Gittinger <cg@exept.de> parents: 1568 diff changeset	717	label
0595db55a829 preps for delayedMenu Claus Gittinger <cg@exept.de> parents: 1568 diff changeset	718	^ self filteredLabel "/ label
0595db55a829 preps for delayedMenu Claus Gittinger <cg@exept.de> parents: 1568 diff changeset	719
0595db55a829 preps for delayedMenu Claus Gittinger <cg@exept.de> parents: 1568 diff changeset	720	"Created: / 25.2.1997 / 19:48:16 / cg"
0595db55a829 preps for delayedMenu Claus Gittinger <cg@exept.de> parents: 1568 diff changeset	721	"Modified: / 19.6.1998 / 00:02:55 / cg"
0595db55a829 preps for delayedMenu Claus Gittinger <cg@exept.de> parents: 1568 diff changeset	722	!
0595db55a829 preps for delayedMenu Claus Gittinger <cg@exept.de> parents: 1568 diff changeset	723
0595db55a829 preps for delayedMenu Claus Gittinger <cg@exept.de> parents: 1568 diff changeset	724	label:aString
0595db55a829 preps for delayedMenu Claus Gittinger <cg@exept.de> parents: 1568 diff changeset	725	label := aString
0595db55a829 preps for delayedMenu Claus Gittinger <cg@exept.de> parents: 1568 diff changeset	726
0595db55a829 preps for delayedMenu Claus Gittinger <cg@exept.de> parents: 1568 diff changeset	727	"Created: 25.2.1997 / 19:55:16 / cg"
0595db55a829 preps for delayedMenu Claus Gittinger <cg@exept.de> parents: 1568 diff changeset	728	!
0595db55a829 preps for delayedMenu Claus Gittinger <cg@exept.de> parents: 1568 diff changeset	729
1643 e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	730	label:aString icon:anImage
e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	731	self label:aString.
e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	732	self resourceRetriever: (ResourceRetriever icon:anImage string:'')
1595 0595db55a829 preps for delayedMenu Claus Gittinger <cg@exept.de> parents: 1568 diff changeset	733	!
0595db55a829 preps for delayedMenu Claus Gittinger <cg@exept.de> parents: 1568 diff changeset	734
3023 763ad69e9832 menuitem protocol Claus Gittinger <cg@exept.de> parents: 3021 diff changeset	735	label:labelString itemValue:selectorOrBlock
763ad69e9832 menuitem protocol Claus Gittinger <cg@exept.de> parents: 3021 diff changeset	736	label := labelString.
763ad69e9832 menuitem protocol Claus Gittinger <cg@exept.de> parents: 3021 diff changeset	737	itemValue := selectorOrBlock
763ad69e9832 menuitem protocol Claus Gittinger <cg@exept.de> parents: 3021 diff changeset	738
763ad69e9832 menuitem protocol Claus Gittinger <cg@exept.de> parents: 3021 diff changeset	739	"Created: / 09-09-2012 / 13:18:34 / cg"
763ad69e9832 menuitem protocol Claus Gittinger <cg@exept.de> parents: 3021 diff changeset	740	!
763ad69e9832 menuitem protocol Claus Gittinger <cg@exept.de> parents: 3021 diff changeset	741
763ad69e9832 menuitem protocol Claus Gittinger <cg@exept.de> parents: 3021 diff changeset	742	label:labelString itemValue:selectorOrBlock argument:something
763ad69e9832 menuitem protocol Claus Gittinger <cg@exept.de> parents: 3021 diff changeset	743	label := labelString.
763ad69e9832 menuitem protocol Claus Gittinger <cg@exept.de> parents: 3021 diff changeset	744	itemValue := selectorOrBlock.
763ad69e9832 menuitem protocol Claus Gittinger <cg@exept.de> parents: 3021 diff changeset	745	argument := something
763ad69e9832 menuitem protocol Claus Gittinger <cg@exept.de> parents: 3021 diff changeset	746
763ad69e9832 menuitem protocol Claus Gittinger <cg@exept.de> parents: 3021 diff changeset	747	"Created: / 09-09-2012 / 13:19:36 / cg"
763ad69e9832 menuitem protocol Claus Gittinger <cg@exept.de> parents: 3021 diff changeset	748	!
763ad69e9832 menuitem protocol Claus Gittinger <cg@exept.de> parents: 3021 diff changeset	749
1595 0595db55a829 preps for delayedMenu Claus Gittinger <cg@exept.de> parents: 1568 diff changeset	750	startGroup
2264 8736ee5ec90e new startGroup value: #conditionalRight Claus Gittinger <cg@exept.de> parents: 2263 diff changeset	751	"start group #left #right #conditionalRight ... or nil
8736ee5ec90e new startGroup value: #conditionalRight Claus Gittinger <cg@exept.de> parents: 2263 diff changeset	752	at the moment only #right and #conditionalRight are implemented"
8736ee5ec90e new startGroup value: #conditionalRight Claus Gittinger <cg@exept.de> parents: 2263 diff changeset	753
1595 0595db55a829 preps for delayedMenu Claus Gittinger <cg@exept.de> parents: 1568 diff changeset	754	^ startGroup ? #left
2264 8736ee5ec90e new startGroup value: #conditionalRight Claus Gittinger <cg@exept.de> parents: 2263 diff changeset	755
8736ee5ec90e new startGroup value: #conditionalRight Claus Gittinger <cg@exept.de> parents: 2263 diff changeset	756	"Modified: / 16-10-2006 / 13:05:52 / cg"
1595 0595db55a829 preps for delayedMenu Claus Gittinger <cg@exept.de> parents: 1568 diff changeset	757	!
752 93690dcd1b75 button and label translation support added. tz parents: 724 diff changeset	758
1595 0595db55a829 preps for delayedMenu Claus Gittinger <cg@exept.de> parents: 1568 diff changeset	759	startGroup:aSymbol
2264 8736ee5ec90e new startGroup value: #conditionalRight Claus Gittinger <cg@exept.de> parents: 2263 diff changeset	760	"start group #left #right #conditionalRight ...
8736ee5ec90e new startGroup value: #conditionalRight Claus Gittinger <cg@exept.de> parents: 2263 diff changeset	761	at the moment only #right and #conditionalRight are implemented.
8736ee5ec90e new startGroup value: #conditionalRight Claus Gittinger <cg@exept.de> parents: 2263 diff changeset	762	The meanings are:
8736ee5ec90e new startGroup value: #conditionalRight Claus Gittinger <cg@exept.de> parents: 2263 diff changeset	763	nil - default under control of the menu
8736ee5ec90e new startGroup value: #conditionalRight Claus Gittinger <cg@exept.de> parents: 2263 diff changeset	764	#left - left align
8736ee5ec90e new startGroup value: #conditionalRight Claus Gittinger <cg@exept.de> parents: 2263 diff changeset	765	#right - place at the right far end
8736ee5ec90e new startGroup value: #conditionalRight Claus Gittinger <cg@exept.de> parents: 2263 diff changeset	766	#conditionalRight - controlled by a styleSheet variable;
8736ee5ec90e new startGroup value: #conditionalRight Claus Gittinger <cg@exept.de> parents: 2263 diff changeset	767	like #right under all non-win32 systems,
8736ee5ec90e new startGroup value: #conditionalRight Claus Gittinger <cg@exept.de> parents: 2263 diff changeset	768	ignored on win32.
8736ee5ec90e new startGroup value: #conditionalRight Claus Gittinger <cg@exept.de> parents: 2263 diff changeset	769	Use with help-menu, which should be at the far right on some
8736ee5ec90e new startGroup value: #conditionalRight Claus Gittinger <cg@exept.de> parents: 2263 diff changeset	770	viewStyles, but not under win32.
1595 0595db55a829 preps for delayedMenu Claus Gittinger <cg@exept.de> parents: 1568 diff changeset	771	"
2264 8736ee5ec90e new startGroup value: #conditionalRight Claus Gittinger <cg@exept.de> parents: 2263 diff changeset	772
8736ee5ec90e new startGroup value: #conditionalRight Claus Gittinger <cg@exept.de> parents: 2263 diff changeset	773	(self class supportedStartGroupValues includes:aSymbol) ifTrue:[
1595 0595db55a829 preps for delayedMenu Claus Gittinger <cg@exept.de> parents: 1568 diff changeset	774	startGroup := aSymbol
0595db55a829 preps for delayedMenu Claus Gittinger <cg@exept.de> parents: 1568 diff changeset	775	] ifFalse:[
0595db55a829 preps for delayedMenu Claus Gittinger <cg@exept.de> parents: 1568 diff changeset	776	self warn:('unsupported group: ', aSymbol printString ).
0595db55a829 preps for delayedMenu Claus Gittinger <cg@exept.de> parents: 1568 diff changeset	777	startGroup := #left
0595db55a829 preps for delayedMenu Claus Gittinger <cg@exept.de> parents: 1568 diff changeset	778	]
2263 30cf468f47ca new startGroup value: #conditionalRight Claus Gittinger <cg@exept.de> parents: 2125 diff changeset	779
2264 8736ee5ec90e new startGroup value: #conditionalRight Claus Gittinger <cg@exept.de> parents: 2263 diff changeset	780	"Modified: / 16-10-2006 / 13:09:45 / cg"
581 0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	781	! !
0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	782
1333 423b4b4404c4 avoid creating an adornment (when nil adornment values are stored) Claus Gittinger <cg@exept.de> parents: 1329 diff changeset	783	!MenuItem methodsFor:'accessing-resource'!
581 0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	784
584 9a4c30f7586f ST-80 compatible features addded ca parents: 581 diff changeset	785	findGuiResourcesIn:aResourceContainerOrApplication
581 0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	786	"setup a resource container
0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	787	"
1425 b2db2ec8a083 checkin from browser Claus Gittinger <cg@exept.de> parents: 1409 diff changeset	788	^ self findGuiResourcesIn:aResourceContainerOrApplication rememberResourcesIn:nil
1401 0fda9891ba4a only ask once for resources (remember locally) Claus Gittinger <cg@exept.de> parents: 1370 diff changeset	789	!
0fda9891ba4a only ask once for resources (remember locally) Claus Gittinger <cg@exept.de> parents: 1370 diff changeset	790
0fda9891ba4a only ask once for resources (remember locally) Claus Gittinger <cg@exept.de> parents: 1370 diff changeset	791	findGuiResourcesIn:aResourceContainerOrApplication rememberResourcesIn:aValueHolderOrNil
0fda9891ba4a only ask once for resources (remember locally) Claus Gittinger <cg@exept.de> parents: 1370 diff changeset	792	"setup a resource container
0fda9891ba4a only ask once for resources (remember locally) Claus Gittinger <cg@exept.de> parents: 1370 diff changeset	793	"
1643 e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	794	\|retriever m\|
1401 0fda9891ba4a only ask once for resources (remember locally) Claus Gittinger <cg@exept.de> parents: 1370 diff changeset	795
1986 f819e439d917 * empty log message * ca parents: 1885 diff changeset	796	(aResourceContainerOrApplication isNil or:[self isMenuSlice]) ifTrue:[
f819e439d917 * empty log message * ca parents: 1885 diff changeset	797	^ self.
f819e439d917 * empty log message * ca parents: 1885 diff changeset	798	].
f819e439d917 * empty log message * ca parents: 1885 diff changeset	799
2412 3f11e716f802 Do not try to translate separators Stefan Vogel <sv@exept.de> parents: 2293 diff changeset	800	(self translateLabel and:[label ~= '-']) ifTrue:[
1401 0fda9891ba4a only ask once for resources (remember locally) Claus Gittinger <cg@exept.de> parents: 1370 diff changeset	801	label := ResourceRetriever
0fda9891ba4a only ask once for resources (remember locally) Claus Gittinger <cg@exept.de> parents: 1370 diff changeset	802	findResourceLabel:label
0fda9891ba4a only ask once for resources (remember locally) Claus Gittinger <cg@exept.de> parents: 1370 diff changeset	803	in:aResourceContainerOrApplication
2018 5a6446cf5079 * empty log message * Claus Gittinger <cg@exept.de> parents: 1990 diff changeset	804	rememberResourcesIn:aValueHolderOrNil.
1401 0fda9891ba4a only ask once for resources (remember locally) Claus Gittinger <cg@exept.de> parents: 1370 diff changeset	805	].
0fda9891ba4a only ask once for resources (remember locally) Claus Gittinger <cg@exept.de> parents: 1370 diff changeset	806
1643 e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	807	(retriever := self resourceRetriever) notNil ifTrue:[
e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	808	retriever findGuiResourcesIn:aResourceContainerOrApplication.
e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	809	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	810	].
e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	811	(m := self submenu) notNil ifTrue:[
e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	812	m := m value.
e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	813	m notNil ifTrue:[
e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	814	m findGuiResourcesIn:aResourceContainerOrApplication rememberResourcesIn:aValueHolderOrNil
e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	815	]
1401 0fda9891ba4a only ask once for resources (remember locally) Claus Gittinger <cg@exept.de> parents: 1370 diff changeset	816	]
0fda9891ba4a only ask once for resources (remember locally) Claus Gittinger <cg@exept.de> parents: 1370 diff changeset	817
0fda9891ba4a only ask once for resources (remember locally) Claus Gittinger <cg@exept.de> parents: 1370 diff changeset	818	"Modified: / 18.6.1998 / 16:54:25 / cg"
1986 f819e439d917 * empty log message * ca parents: 1885 diff changeset	819	!
f819e439d917 * empty log message * ca parents: 1885 diff changeset	820
f819e439d917 * empty log message * ca parents: 1885 diff changeset	821	receiver:aReceiver perform:aSelector with:anArgument ifNone:aBlock
f819e439d917 * empty log message * ca parents: 1885 diff changeset	822	"send the one-arg-message aSelector to the application;
f819e439d917 * empty log message * ca parents: 1885 diff changeset	823	the result returned from the send or nil is returned
f819e439d917 * empty log message * ca parents: 1885 diff changeset	824	"
f819e439d917 * empty log message * ca parents: 1885 diff changeset	825	\|result\|
f819e439d917 * empty log message * ca parents: 1885 diff changeset	826
f819e439d917 * empty log message * ca parents: 1885 diff changeset	827	MessageNotUnderstood handle:[:ex\|
f819e439d917 * empty log message * ca parents: 1885 diff changeset	828	ex selector ~~ aSelector ifTrue:[
f819e439d917 * empty log message * ca parents: 1885 diff changeset	829	ex reject
f819e439d917 * empty log message * ca parents: 1885 diff changeset	830	].
f819e439d917 * empty log message * ca parents: 1885 diff changeset	831	result := aBlock value.
f819e439d917 * empty log message * ca parents: 1885 diff changeset	832	] do:[
f819e439d917 * empty log message * ca parents: 1885 diff changeset	833	aSelector numArgs == 0 ifTrue:[
f819e439d917 * empty log message * ca parents: 1885 diff changeset	834	result := aReceiver perform:aSelector.
f819e439d917 * empty log message * ca parents: 1885 diff changeset	835	] ifFalse:[
f819e439d917 * empty log message * ca parents: 1885 diff changeset	836	result := aReceiver perform:aSelector with:anArgument.
f819e439d917 * empty log message * ca parents: 1885 diff changeset	837	].
f819e439d917 * empty log message * ca parents: 1885 diff changeset	838	].
f819e439d917 * empty log message * ca parents: 1885 diff changeset	839	^ result
f819e439d917 * empty log message * ca parents: 1885 diff changeset	840	!
f819e439d917 * empty log message * ca parents: 1885 diff changeset	841
f819e439d917 * empty log message * ca parents: 1885 diff changeset	842	resolveSliceMenuItemsIn:aReceiver rememberResourcesIn:aValueHolderOrNil
f819e439d917 * empty log message * ca parents: 1885 diff changeset	843	\|menu\|
f819e439d917 * empty log message * ca parents: 1885 diff changeset	844
f819e439d917 * empty log message * ca parents: 1885 diff changeset	845	self isMenuSlice ifFalse:[
f819e439d917 * empty log message * ca parents: 1885 diff changeset	846	self error:'not a slice menu'.
f819e439d917 * empty log message * ca parents: 1885 diff changeset	847	^ Array with:self.
f819e439d917 * empty log message * ca parents: 1885 diff changeset	848	].
f819e439d917 * empty log message * ca parents: 1885 diff changeset	849
f819e439d917 * empty log message * ca parents: 1885 diff changeset	850	aReceiver isNil ifTrue:[
f819e439d917 * empty log message * ca parents: 1885 diff changeset	851	^ nil
f819e439d917 * empty log message * ca parents: 1885 diff changeset	852	].
f819e439d917 * empty log message * ca parents: 1885 diff changeset	853	menu := self receiver:aReceiver perform:submenuChannel with:argument
2036 f8e99bb346e4 * empty log message * penk parents: 2033 diff changeset	854	ifNone:[
f8e99bb346e4 * empty log message * penk parents: 2033 diff changeset	855	self receiver:(aReceiver class) perform:submenuChannel with:argument
f8e99bb346e4 * empty log message * penk parents: 2033 diff changeset	856	ifNone:[
2060 7bda88c4fff1 * empty log message * Claus Gittinger <cg@exept.de> parents: 2059 diff changeset	857	"/ ('MenuItem [info]: no aspect for slice ',submenuChannel) infoPrintCR.
2036 f8e99bb346e4 * empty log message * penk parents: 2033 diff changeset	858	nil
f8e99bb346e4 * empty log message * penk parents: 2033 diff changeset	859	].
f8e99bb346e4 * empty log message * penk parents: 2033 diff changeset	860	].
1986 f819e439d917 * empty log message * ca parents: 1885 diff changeset	861
f819e439d917 * empty log message * ca parents: 1885 diff changeset	862	menu := menu value.
2033 a9ed3856e834 * empty log message * james parents: 2018 diff changeset	863	menu isNil ifTrue:[^ nil].
1986 f819e439d917 * empty log message * ca parents: 1885 diff changeset	864
2292 d7b06b31d72b use decodeFromLiteralArray Claus Gittinger <cg@exept.de> parents: 2268 diff changeset	865	menu isCollection ifTrue:[
d7b06b31d72b use decodeFromLiteralArray Claus Gittinger <cg@exept.de> parents: 2268 diff changeset	866	menu := Menu decodeFromLiteralArray:menu.
1986 f819e439d917 * empty log message * ca parents: 1885 diff changeset	867	].
f819e439d917 * empty log message * ca parents: 1885 diff changeset	868	menu findGuiResourcesIn:aReceiver rememberResourcesIn:aValueHolderOrNil.
f819e439d917 * empty log message * ca parents: 1885 diff changeset	869	^ menu items
2268 a947e7f7a28f resolveGUIResources no longer sets the receiver recursively Claus Gittinger <cg@exept.de> parents: 2264 diff changeset	870
2293 bd71da1fd58a changed #resolveSliceMenuItemsIn:rememberResourcesIn: Claus Gittinger <cg@exept.de> parents: 2292 diff changeset	871	"Modified: / 27-03-2007 / 11:20:43 / cg"
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 methodsFor:'converting'!
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	875
1646 da8d044c7c0d value - itemValue Claus Gittinger <cg@exept.de> parents: 1643 diff changeset	876	skippedInLiteralEncoding
da8d044c7c0d value - itemValue Claus Gittinger <cg@exept.de> parents: 1643 diff changeset	877	\|coll\|
da8d044c7c0d value - itemValue Claus Gittinger <cg@exept.de> parents: 1643 diff changeset	878
da8d044c7c0d value - itemValue Claus Gittinger <cg@exept.de> parents: 1643 diff changeset	879	coll := super skippedInLiteralEncoding asOrderedCollection.
da8d044c7c0d value - itemValue Claus Gittinger <cg@exept.de> parents: 1643 diff changeset	880
da8d044c7c0d value - itemValue Claus Gittinger <cg@exept.de> parents: 1643 diff changeset	881	label isNil ifTrue:[ coll add:#label ].
3021 39995ec958eb changed: #skippedInLiteralEncoding Claus Gittinger <cg@exept.de> parents: 3003 diff changeset	882	(translateLabel isNil or:[translateLabel == true or:[#('' '-' '=') includes:label]]) ifTrue:[ coll add:#translateLabel ].
1646 da8d044c7c0d value - itemValue Claus Gittinger <cg@exept.de> parents: 1643 diff changeset	883	self isButton ifFalse:[ coll add:#isButton ].
da8d044c7c0d value - itemValue Claus Gittinger <cg@exept.de> parents: 1643 diff changeset	884	self triggerOnDown ifFalse:[ coll add:#triggerOnDown ].
da8d044c7c0d value - itemValue Claus Gittinger <cg@exept.de> parents: 1643 diff changeset	885	self hideMenuOnActivated ifTrue:[ coll add:#hideMenuOnActivated].
da8d044c7c0d value - itemValue Claus Gittinger <cg@exept.de> parents: 1643 diff changeset	886	nameKey isNil ifTrue:[ coll add:#nameKey ].
1658 9524b83860db suppress true in isVisible field of MenuEditor Claus Gittinger <cg@exept.de> parents: 1655 diff changeset	887	(self isVisible ? true) ifTrue:[coll add:#isVisible].
1646 da8d044c7c0d value - itemValue Claus Gittinger <cg@exept.de> parents: 1643 diff changeset	888	(startGroup isNil or:[startGroup == #left]) ifTrue:[coll add:#startGroup].
da8d044c7c0d value - itemValue Claus Gittinger <cg@exept.de> parents: 1643 diff changeset	889	itemValue isNil ifTrue:[ coll add:#itemValue].
da8d044c7c0d value - itemValue Claus Gittinger <cg@exept.de> parents: 1643 diff changeset	890	activeHelpKey isNil ifTrue:[ coll add:#activeHelpKey].
da8d044c7c0d value - itemValue Claus Gittinger <cg@exept.de> parents: 1643 diff changeset	891	enabled == true "could be a symbol" ifTrue:[ coll add:#enabled].
da8d044c7c0d value - itemValue Claus Gittinger <cg@exept.de> parents: 1643 diff changeset	892	shortcutKey isNil ifTrue:[ coll add:#shortcutKeyCharacter].
da8d044c7c0d value - itemValue Claus Gittinger <cg@exept.de> parents: 1643 diff changeset	893	font isNil ifTrue:[ coll add:#font].
da8d044c7c0d value - itemValue Claus Gittinger <cg@exept.de> parents: 1643 diff changeset	894	accessCharacterPosition isNil ifTrue:[coll add:#accessCharacterPosition].
1990 dca233a39477 horizontalLayout bug Claus Gittinger <cg@exept.de> parents: 1986 diff changeset	895	self horizontalLayout ifFalse:[coll add:#horizontalLayout].
1646 da8d044c7c0d value - itemValue Claus Gittinger <cg@exept.de> parents: 1643 diff changeset	896	self showBusyCursorWhilePerforming ifFalse:[ coll add:#showBusyCursorWhilePerforming ].
da8d044c7c0d value - itemValue Claus Gittinger <cg@exept.de> parents: 1643 diff changeset	897	argument isNil ifTrue:[ coll add:#argument].
da8d044c7c0d value - itemValue Claus Gittinger <cg@exept.de> parents: 1643 diff changeset	898	self resourceRetriever isNil ifTrue:[ coll add:#resourceRetriever].
da8d044c7c0d value - itemValue Claus Gittinger <cg@exept.de> parents: 1643 diff changeset	899	indication isNil ifTrue:[ coll add:#indication].
da8d044c7c0d value - itemValue Claus Gittinger <cg@exept.de> parents: 1643 diff changeset	900	choice isNil ifTrue:[coll add:#choice].
da8d044c7c0d value - itemValue Claus Gittinger <cg@exept.de> parents: 1643 diff changeset	901	choiceValue isNil ifTrue:[ coll add:#choiceValue].
da8d044c7c0d value - itemValue Claus Gittinger <cg@exept.de> parents: 1643 diff changeset	902	auxValue isNil ifTrue:[ coll add:#auxValue ].
da8d044c7c0d value - itemValue Claus Gittinger <cg@exept.de> parents: 1643 diff changeset	903	submenuChannel isNil ifTrue:[ coll add:#submenuChannel].
da8d044c7c0d value - itemValue Claus Gittinger <cg@exept.de> parents: 1643 diff changeset	904	self keepLinkedMenu ifFalse:[ coll add:#keepLinkedMenu].
da8d044c7c0d value - itemValue Claus Gittinger <cg@exept.de> parents: 1643 diff changeset	905	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	906	self sendToOriginator ifFalse:[coll add:#sendToOriginator ].
1646 da8d044c7c0d value - itemValue Claus Gittinger <cg@exept.de> parents: 1643 diff changeset	907
1885 860b47f2535f support ignoreShortcutKeys and ignoreMnemonicKeys in Editor ca parents: 1884 diff changeset	908	self ignoreShortcutKeys ifFalse:[coll add:#ignoreShortcutKeys ].
860b47f2535f support ignoreShortcutKeys and ignoreMnemonicKeys in Editor ca parents: 1884 diff changeset	909	self ignoreMnemonicKeys ifFalse:[coll add:#ignoreMnemonicKeys ].
1884 4b317db4d387 support of ignoreShortcutKeys and ignoreMnemonicKeys ca parents: 1763 diff changeset	910
1986 f819e439d917 * empty log message * ca parents: 1885 diff changeset	911	self isMenuSlice ifFalse:[coll add:#isMenuSlice].
1884 4b317db4d387 support of ignoreShortcutKeys and ignoreMnemonicKeys ca parents: 1763 diff changeset	912
1646 da8d044c7c0d value - itemValue Claus Gittinger <cg@exept.de> parents: 1643 diff changeset	913	^ coll
3021 39995ec958eb changed: #skippedInLiteralEncoding Claus Gittinger <cg@exept.de> parents: 3003 diff changeset	914
39995ec958eb changed: #skippedInLiteralEncoding Claus Gittinger <cg@exept.de> parents: 3003 diff changeset	915	"Modified: / 22-08-2012 / 21:22:20 / cg"
451 95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	916	! !
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	917
1643 e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	918	!MenuItem methodsFor:'encoding & decoding'!
e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	919
e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	920	fromLiteralArrayEncoding:aLiteralEncodedArray
e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	921	"read my contents from a aLiteralEncodedArray"
e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	922
2047 f3b5fa8cd08e * empty log message * Claus Gittinger <cg@exept.de> parents: 2040 diff changeset	923	\|selector value retriever\|
1643 e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	924
e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	925	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	926	selector := aLiteralEncodedArray at:i.
e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	927	value := (aLiteralEncodedArray at:i+1).
e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	928	selector == #argument: ifFalse:[
e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	929	value := value decodeAsLiteralArray
e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	930	].
e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	931	self perform:selector with:value
e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	932	].
2047 f3b5fa8cd08e * empty log message * Claus Gittinger <cg@exept.de> parents: 2040 diff changeset	933	"/ kludge in case someone forgets to call findGUIResourcesIn:
f3b5fa8cd08e * empty log message * Claus Gittinger <cg@exept.de> parents: 2040 diff changeset	934	(retriever := self resourceRetriever) notNil ifTrue:[
f3b5fa8cd08e * empty log message * Claus Gittinger <cg@exept.de> parents: 2040 diff changeset	935	retriever labelText notNil ifTrue: [retriever labelText: label].
f3b5fa8cd08e * empty log message * Claus Gittinger <cg@exept.de> parents: 2040 diff changeset	936	].
1643 e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	937
e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	938	"
e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	939	#( #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	940	decodeAsLiteralArray
e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	941	"
e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	942
e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	943	"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	944	! !
e1148c53ad3c got rid of adornment; ResourceRetriever code cleaned up. Claus Gittinger <cg@exept.de> parents: 1625 diff changeset	945
1329 b56172875855 nicer displayString Claus Gittinger <cg@exept.de> parents: 1328 diff changeset	946	!MenuItem methodsFor:'printing & storing'!
b56172875855 nicer displayString Claus Gittinger <cg@exept.de> parents: 1328 diff changeset	947
2736 4798b0251087 * empty log message * Claus Gittinger <cg@exept.de> parents: 2548 diff changeset	948	printOn:aStream
4798b0251087 * empty log message * Claus Gittinger <cg@exept.de> parents: 2548 diff changeset	949	aStream nextPutAll:self classNameWithArticle.
4798b0251087 * empty log message * Claus Gittinger <cg@exept.de> parents: 2548 diff changeset	950	aStream nextPutAll:'('.
4798b0251087 * empty log message * Claus Gittinger <cg@exept.de> parents: 2548 diff changeset	951	aStream nextPutAll:label storeString.
4798b0251087 * empty log message * Claus Gittinger <cg@exept.de> parents: 2548 diff changeset	952	aStream nextPutAll:')'
1329 b56172875855 nicer displayString Claus Gittinger <cg@exept.de> parents: 1328 diff changeset	953	! !
b56172875855 nicer displayString Claus Gittinger <cg@exept.de> parents: 1328 diff changeset	954
1761 18ec27a0300e method category rename Claus Gittinger <cg@exept.de> parents: 1664 diff changeset	955	!MenuItem methodsFor:'private-accessing'!
458 729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	956
973 cd6b8d08c9c9 submenu item send #value. Claus Gittinger <cg@exept.de> parents: 960 diff changeset	957	filteredLabel
cd6b8d08c9c9 submenu item send #value. Claus Gittinger <cg@exept.de> parents: 960 diff changeset	958	"return the label without any &-chars"
cd6b8d08c9c9 submenu item send #value. Claus Gittinger <cg@exept.de> parents: 960 diff changeset	959
985 5a5b476cfd6b care for Text & images in rawLabel, when filtering. Claus Gittinger <cg@exept.de> parents: 973 diff changeset	960	\|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	961
5a5b476cfd6b care for Text & images in rawLabel, when filtering. Claus Gittinger <cg@exept.de> parents: 973 diff changeset	962	rawLabel := self rawLabel.
5a5b476cfd6b care for Text & images in rawLabel, when filtering. Claus Gittinger <cg@exept.de> parents: 973 diff changeset	963	rawLabel isString ifFalse:[^ rawLabel].
5a5b476cfd6b care for Text & images in rawLabel, when filtering. Claus Gittinger <cg@exept.de> parents: 973 diff changeset	964
5a5b476cfd6b care for Text & images in rawLabel, when filtering. Claus Gittinger <cg@exept.de> parents: 973 diff changeset	965	"/ be careful to preserve any emphasis ...
5a5b476cfd6b care for Text & images in rawLabel, when filtering. Claus Gittinger <cg@exept.de> parents: 973 diff changeset	966	"/ bad kludge ...
5a5b476cfd6b care for Text & images in rawLabel, when filtering. Claus Gittinger <cg@exept.de> parents: 973 diff changeset	967	rawLabel isText ifTrue:[
5a5b476cfd6b care for Text & images in rawLabel, when filtering. Claus Gittinger <cg@exept.de> parents: 973 diff changeset	968	emp := RunArray new.
5a5b476cfd6b care for Text & images in rawLabel, when filtering. Claus Gittinger <cg@exept.de> parents: 973 diff changeset	969	].
973 cd6b8d08c9c9 submenu item send #value. Claus Gittinger <cg@exept.de> parents: 960 diff changeset	970
cd6b8d08c9c9 submenu item send #value. Claus Gittinger <cg@exept.de> parents: 960 diff changeset	971	out := WriteStream on:''.
985 5a5b476cfd6b care for Text & images in rawLabel, when filtering. Claus Gittinger <cg@exept.de> parents: 973 diff changeset	972	in := rawLabel readStream.
973 cd6b8d08c9c9 submenu item send #value. Claus Gittinger <cg@exept.de> parents: 960 diff changeset	973	[in atEnd] whileFalse:[
985 5a5b476cfd6b care for Text & images in rawLabel, when filtering. Claus Gittinger <cg@exept.de> parents: 973 diff changeset	974	emp notNil ifTrue:[
3033 0d05dd38b0e6 changed: #filteredLabel Claus Gittinger <cg@exept.de> parents: 3023 diff changeset	975	e := rawLabel emphasisAt:(in position1Based).
985 5a5b476cfd6b care for Text & images in rawLabel, when filtering. Claus Gittinger <cg@exept.de> parents: 973 diff changeset	976	].
973 cd6b8d08c9c9 submenu item send #value. Claus Gittinger <cg@exept.de> parents: 960 diff changeset	977	c := in next.
2040 98d3508fd6e1 care for Unicode-Strings. Claus Gittinger <cg@exept.de> parents: 2036 diff changeset	978	c bitsPerCharacter > out collection bitsPerCharacter ifTrue:[
98d3508fd6e1 care for Unicode-Strings. Claus Gittinger <cg@exept.de> parents: 2036 diff changeset	979	out setCollection:(c stringSpecies fromString:out collection).
98d3508fd6e1 care for Unicode-Strings. Claus Gittinger <cg@exept.de> parents: 2036 diff changeset	980	].
973 cd6b8d08c9c9 submenu item send #value. Claus Gittinger <cg@exept.de> parents: 960 diff changeset	981	c == $& ifTrue:[
cd6b8d08c9c9 submenu item send #value. Claus Gittinger <cg@exept.de> parents: 960 diff changeset	982	in peek == $& ifTrue:[
985 5a5b476cfd6b care for Text & images in rawLabel, when filtering. Claus Gittinger <cg@exept.de> parents: 973 diff changeset	983	out nextPut:c.
5a5b476cfd6b care for Text & images in rawLabel, when filtering. Claus Gittinger <cg@exept.de> parents: 973 diff changeset	984	emp notNil ifTrue:[
5a5b476cfd6b care for Text & images in rawLabel, when filtering. Claus Gittinger <cg@exept.de> parents: 973 diff changeset	985	emp add:e
5a5b476cfd6b care for Text & images in rawLabel, when filtering. Claus Gittinger <cg@exept.de> parents: 973 diff changeset	986	]
973 cd6b8d08c9c9 submenu item send #value. Claus Gittinger <cg@exept.de> parents: 960 diff changeset	987	]
cd6b8d08c9c9 submenu item send #value. Claus Gittinger <cg@exept.de> parents: 960 diff changeset	988	] ifFalse:[
985 5a5b476cfd6b care for Text & images in rawLabel, when filtering. Claus Gittinger <cg@exept.de> parents: 973 diff changeset	989	out nextPut:c.
5a5b476cfd6b care for Text & images in rawLabel, when filtering. Claus Gittinger <cg@exept.de> parents: 973 diff changeset	990	emp notNil ifTrue:[
5a5b476cfd6b care for Text & images in rawLabel, when filtering. Claus Gittinger <cg@exept.de> parents: 973 diff changeset	991	emp add:e
5a5b476cfd6b care for Text & images in rawLabel, when filtering. Claus Gittinger <cg@exept.de> parents: 973 diff changeset	992	]
973 cd6b8d08c9c9 submenu item send #value. Claus Gittinger <cg@exept.de> parents: 960 diff changeset	993	]
cd6b8d08c9c9 submenu item send #value. Claus Gittinger <cg@exept.de> parents: 960 diff changeset	994	].
985 5a5b476cfd6b care for Text & images in rawLabel, when filtering. Claus Gittinger <cg@exept.de> parents: 973 diff changeset	995	l := out contents.
5a5b476cfd6b care for Text & images in rawLabel, when filtering. Claus Gittinger <cg@exept.de> parents: 973 diff changeset	996	emp notNil ifTrue:[
5a5b476cfd6b care for Text & images in rawLabel, when filtering. Claus Gittinger <cg@exept.de> parents: 973 diff changeset	997	^ Text string:l emphasisCollection:emp
5a5b476cfd6b care for Text & images in rawLabel, when filtering. Claus Gittinger <cg@exept.de> parents: 973 diff changeset	998	].
5a5b476cfd6b care for Text & images in rawLabel, when filtering. Claus Gittinger <cg@exept.de> parents: 973 diff changeset	999	^ l.
973 cd6b8d08c9c9 submenu item send #value. Claus Gittinger <cg@exept.de> parents: 960 diff changeset	1000
cd6b8d08c9c9 submenu item send #value. Claus Gittinger <cg@exept.de> parents: 960 diff changeset	1001	"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	1002	"Modified: / 20.6.1998 / 17:15:18 / cg"
458 729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	1003	! !
729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	1004
579 77f6d490f1ac so far, so good ca parents: 578 diff changeset	1005	!MenuItem methodsFor:'queries'!
77f6d490f1ac so far, so good ca parents: 578 diff changeset	1006
1041 d28f0375cd26 added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	1007	hasChoice
d28f0375cd26 added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	1008	"test whether choice exists
d28f0375cd26 added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	1009	"
d28f0375cd26 added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	1010	^ self choice notNil
d28f0375cd26 added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	1011
d28f0375cd26 added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	1012	"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	1013	!
d28f0375cd26 added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	1014
590 fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	1015	hasIndication
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	1016	"test whether indication on/off exists
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	1017	"
2875 eb6fea74e5e6 comment/format in: Claus Gittinger <cg@exept.de> parents: 2866 diff changeset	1018	^ self indication notNil
eb6fea74e5e6 comment/format in: Claus Gittinger <cg@exept.de> parents: 2866 diff changeset	1019
eb6fea74e5e6 comment/format in: Claus Gittinger <cg@exept.de> parents: 2866 diff changeset	1020	"Modified: / 28-10-2010 / 23:30:52 / cg"
590 fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	1021	!
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	1022
579 77f6d490f1ac so far, so good ca parents: 578 diff changeset	1023	hasSubmenu
584 9a4c30f7586f ST-80 compatible features addded ca parents: 581 diff changeset	1024	^ self submenu notNil
579 77f6d490f1ac so far, so good ca parents: 578 diff changeset	1025
77f6d490f1ac so far, so good ca parents: 578 diff changeset	1026	"Created: 25.2.1997 / 20:56:20 / cg"
77f6d490f1ac so far, so good ca parents: 578 diff changeset	1027	!
77f6d490f1ac so far, so good ca parents: 578 diff changeset	1028
77f6d490f1ac so far, so good ca parents: 578 diff changeset	1029	isEnabled
581 0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	1030	^ enabled value ? true
579 77f6d490f1ac so far, so good ca parents: 578 diff changeset	1031
77f6d490f1ac so far, so good ca parents: 578 diff changeset	1032	"Created: 25.2.1997 / 19:39:17 / cg"
590 fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	1033	!
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	1034
724 898519684261 more VW comaptibility Claus Gittinger <cg@exept.de> parents: 684 diff changeset	1035	isHidden
898519684261 more VW comaptibility Claus Gittinger <cg@exept.de> parents: 684 diff changeset	1036	"not yet supported"
898519684261 more VW comaptibility Claus Gittinger <cg@exept.de> parents: 684 diff changeset	1037
898519684261 more VW comaptibility Claus Gittinger <cg@exept.de> parents: 684 diff changeset	1038	^ false
898519684261 more VW comaptibility Claus Gittinger <cg@exept.de> parents: 684 diff changeset	1039
898519684261 more VW comaptibility Claus Gittinger <cg@exept.de> parents: 684 diff changeset	1040	"Created: / 27.10.1997 / 15:13:43 / cg"
898519684261 more VW comaptibility Claus Gittinger <cg@exept.de> parents: 684 diff changeset	1041	!
898519684261 more VW comaptibility Claus Gittinger <cg@exept.de> parents: 684 diff changeset	1042
1648 d49c84402011 add query #isMenuItem ca parents: 1647 diff changeset	1043	isMenuItem
d49c84402011 add query #isMenuItem ca parents: 1647 diff changeset	1044	^ true
d49c84402011 add query #isMenuItem ca parents: 1647 diff changeset	1045	!
d49c84402011 add query #isMenuItem ca parents: 1647 diff changeset	1046
1986 f819e439d917 * empty log message * ca parents: 1885 diff changeset	1047	isMenuSlice
f819e439d917 * empty log message * ca parents: 1885 diff changeset	1048	"returns true if the menu is a slice buildin its items
f819e439d917 * empty log message * ca parents: 1885 diff changeset	1049	into its container menu
f819e439d917 * empty log message * ca parents: 1885 diff changeset	1050	"
f819e439d917 * empty log message * ca parents: 1885 diff changeset	1051	^ submenuChannel notNil and:[isMenuSlice == true].
f819e439d917 * empty log message * ca parents: 1885 diff changeset	1052	!
f819e439d917 * empty log message * ca parents: 1885 diff changeset	1053
590 fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	1054	isOff
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	1055	"test whether indication on/off exists and is off
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	1056	"
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	1057	\|indication\|
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	1058
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	1059	indication := self indication.
2875 eb6fea74e5e6 comment/format in: Claus Gittinger <cg@exept.de> parents: 2866 diff changeset	1060	^ indication value == false
eb6fea74e5e6 comment/format in: Claus Gittinger <cg@exept.de> parents: 2866 diff changeset	1061
eb6fea74e5e6 comment/format in: Claus Gittinger <cg@exept.de> parents: 2866 diff changeset	1062	"Modified: / 28-10-2010 / 23:30:57 / cg"
590 fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	1063	!
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	1064
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	1065	isOn
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	1066	"test whether indication on/off exists and is on
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	1067	"
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	1068	\|indication\|
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	1069
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	1070	indication := self indication.
2875 eb6fea74e5e6 comment/format in: Claus Gittinger <cg@exept.de> parents: 2866 diff changeset	1071	^ indication value == true
eb6fea74e5e6 comment/format in: Claus Gittinger <cg@exept.de> parents: 2866 diff changeset	1072
eb6fea74e5e6 comment/format in: Claus Gittinger <cg@exept.de> parents: 2866 diff changeset	1073	"Modified: / 28-10-2010 / 23:31:02 / cg"
2122 4a0a8af7bd71 * empty log message * Claus Gittinger <cg@exept.de> parents: 2112 diff changeset	1074	!
4a0a8af7bd71 * empty log message * Claus Gittinger <cg@exept.de> parents: 2112 diff changeset	1075
4a0a8af7bd71 * empty log message * Claus Gittinger <cg@exept.de> parents: 2112 diff changeset	1076	isSeparatorItem
4a0a8af7bd71 * empty log message * Claus Gittinger <cg@exept.de> parents: 2112 diff changeset	1077	^ #('' '-' '=') includes:label
4a0a8af7bd71 * empty log message * Claus Gittinger <cg@exept.de> parents: 2112 diff changeset	1078
4a0a8af7bd71 * empty log message * Claus Gittinger <cg@exept.de> parents: 2112 diff changeset	1079	"Created: 25.2.1997 / 19:39:17 / cg"
579 77f6d490f1ac so far, so good ca parents: 578 diff changeset	1080	! !
77f6d490f1ac so far, so good ca parents: 578 diff changeset	1081
2966 5f538729ab69 Added #replaceArgument:with: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2939 diff changeset	1082	!MenuItem methodsFor:'utilities'!
5f538729ab69 Added #replaceArgument:with: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2939 diff changeset	1083
5f538729ab69 Added #replaceArgument:with: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2939 diff changeset	1084	replaceArgument: oldValue with: newValue
5f538729ab69 Added #replaceArgument:with: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2939 diff changeset	1085
5f538729ab69 Added #replaceArgument:with: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2939 diff changeset	1086	"Recusively Replace argument in menu items where
5f538729ab69 Added #replaceArgument:with: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2939 diff changeset	1087	current argument is equal to oldValue by newValue"
5f538729ab69 Added #replaceArgument:with: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2939 diff changeset	1088
5f538729ab69 Added #replaceArgument:with: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2939 diff changeset	1089	argument = oldValue ifTrue:[
5f538729ab69 Added #replaceArgument:with: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2939 diff changeset	1090	argument := newValue.
5f538729ab69 Added #replaceArgument:with: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2939 diff changeset	1091	].
5f538729ab69 Added #replaceArgument:with: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2939 diff changeset	1092	submenu notNil ifTrue:[
5f538729ab69 Added #replaceArgument:with: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2939 diff changeset	1093	submenu replaceArgument: oldValue with: newValue
5f538729ab69 Added #replaceArgument:with: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2939 diff changeset	1094	].
5f538729ab69 Added #replaceArgument:with: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2939 diff changeset	1095
5f538729ab69 Added #replaceArgument:with: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2939 diff changeset	1096	"Created: / 12-10-2011 / 20:12:28 / Jan Vrany <jan.vrany@fit.cvut.cz>"
5f538729ab69 Added #replaceArgument:with: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2939 diff changeset	1097	! !
5f538729ab69 Added #replaceArgument:with: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2939 diff changeset	1098
451 95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1099	!MenuItem class methodsFor:'documentation'!
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1100
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1101	version
3178 ced60e8c83fe class: MenuItem Claus Gittinger <cg@exept.de> parents: 3033 diff changeset	1102	^ '$Header: /cvs/stx/stx/libview2/MenuItem.st,v 1.101 2013-05-28 18:41:48 cg Exp $'
2755 231339e903eb added: Claus Gittinger <cg@exept.de> parents: 2736 diff changeset	1103	!
231339e903eb added: Claus Gittinger <cg@exept.de> parents: 2736 diff changeset	1104
231339e903eb added: Claus Gittinger <cg@exept.de> parents: 2736 diff changeset	1105	version_CVS
3178 ced60e8c83fe class: MenuItem Claus Gittinger <cg@exept.de> parents: 3033 diff changeset	1106	^ '$Header: /cvs/stx/stx/libview2/MenuItem.st,v 1.101 2013-05-28 18:41:48 cg Exp $'
451 95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1107	! !
3178 ced60e8c83fe class: MenuItem Claus Gittinger <cg@exept.de> parents: 3033 diff changeset	1108

author	Claus Gittinger <cg@exept.de>
	Tue, 28 May 2013 20:41:48 +0200
changeset 3178	ced60e8c83fe
parent 3033	0d05dd38b0e6
child 3212	a5ee318ee18d
permissions	-rw-r--r--