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

451 95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1	Object subclass:#MenuItem
752 93690dcd1b75 button and label translation support added. tz parents: 724 diff changeset	2	instanceVariableNames:'activeHelpKey enabled label value nameKey adornment
798 8a27a879ff23 support of visible/invisible items ca parents: 794 diff changeset	3	translateLabel isButton startGroup isVisible'
451 95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	4	classVariableNames:''
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	5	poolDictionaries:''
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	6	category:'Views-Support'
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	7	!
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	8
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	9	Object subclass:#MenuItemAdornment
666 6e614a5d9248 add submenuChannel ca parents: 661 diff changeset	10	instanceVariableNames:'color indication submenu submenuChannel shortcutKey labelText
684 184dd159d02e support of arguments ca parents: 666 diff changeset	11	labelImage accessCharacterPosition argument'
451 95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	12	classVariableNames:''
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	13	poolDictionaries:''
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	14	privateIn:MenuItem
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	15	!
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	16
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	17	!MenuItem class methodsFor:'documentation'!
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	18
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	19	documentation
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	20	"
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	21	not yet finished MenuItem class - this will eventually replace
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	22	most of the MenuView and PopUpMenu stuff.
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	23	(and hopefully be ST-80 compatible ...)
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	24
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	25	For now, only a subset of the full protocol is implemented.
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	26
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	27	[author:]
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	28	Claus Gittinger
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	29
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	30	[see also:]
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	31	MenuItem
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	32	PopUpMenu
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	33	"
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	34
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	35	! !
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	36
490 ebe88e50b29a * empty log message * ca parents: 458 diff changeset	37	!MenuItem class methodsFor:'instance creation'!
ebe88e50b29a * empty log message * ca parents: 458 diff changeset	38
ebe88e50b29a * empty log message * ca parents: 458 diff changeset	39	labeled:aString
ebe88e50b29a * empty log message * ca parents: 458 diff changeset	40	^ self new label:aString
ebe88e50b29a * empty log message * ca parents: 458 diff changeset	41	! !
ebe88e50b29a * empty log message * ca parents: 458 diff changeset	42
724 898519684261 more VW comaptibility Claus Gittinger <cg@exept.de> parents: 684 diff changeset	43	!MenuItem methodsFor:'ST-80 compatibility'!
898519684261 more VW comaptibility Claus Gittinger <cg@exept.de> parents: 684 diff changeset	44
898519684261 more VW comaptibility Claus Gittinger <cg@exept.de> parents: 684 diff changeset	45	isEnabled:aBoolean
898519684261 more VW comaptibility Claus Gittinger <cg@exept.de> parents: 684 diff changeset	46	self enabled:aBoolean
898519684261 more VW comaptibility Claus Gittinger <cg@exept.de> parents: 684 diff changeset	47
898519684261 more VW comaptibility Claus Gittinger <cg@exept.de> parents: 684 diff changeset	48	"Created: / 27.10.1997 / 16:34:55 / cg"
898519684261 more VW comaptibility Claus Gittinger <cg@exept.de> parents: 684 diff changeset	49	! !
898519684261 more VW comaptibility Claus Gittinger <cg@exept.de> parents: 684 diff changeset	50
451 95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	51	!MenuItem methodsFor:'accessing'!
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	52
579 77f6d490f1ac so far, so good ca parents: 578 diff changeset	53	accessCharacterPosition
77f6d490f1ac so far, so good ca parents: 578 diff changeset	54	"get the index of the access character in the label text or string, or nil if none
77f6d490f1ac so far, so good ca parents: 578 diff changeset	55	"
77f6d490f1ac so far, so good ca parents: 578 diff changeset	56	adornment notNil ifTrue:[
77f6d490f1ac so far, so good ca parents: 578 diff changeset	57	^ adornment accessCharacterPosition
77f6d490f1ac so far, so good ca parents: 578 diff changeset	58	].
77f6d490f1ac so far, so good ca parents: 578 diff changeset	59	^ nil
451 95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	60	!
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	61
579 77f6d490f1ac so far, so good ca parents: 578 diff changeset	62	accessCharacterPosition:index
77f6d490f1ac so far, so good ca parents: 578 diff changeset	63	"set the index of the access character in the label text or string, or nil if none
77f6d490f1ac so far, so good ca parents: 578 diff changeset	64	"
77f6d490f1ac so far, so good ca parents: 578 diff changeset	65	(index isNil and:[adornment isNil]) ifFalse:[
77f6d490f1ac so far, so good ca parents: 578 diff changeset	66	self adornment accessCharacterPosition:index
77f6d490f1ac so far, so good ca parents: 578 diff changeset	67	]
451 95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	68	!
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	69
640 4e1c0d0a633b add active help for items ca parents: 590 diff changeset	70	activeHelpKey
4e1c0d0a633b add active help for items ca parents: 590 diff changeset	71	^ activeHelpKey
4e1c0d0a633b add active help for items ca parents: 590 diff changeset	72	!
4e1c0d0a633b add active help for items ca parents: 590 diff changeset	73
4e1c0d0a633b add active help for items ca parents: 590 diff changeset	74	activeHelpKey:aKey
4e1c0d0a633b add active help for items ca parents: 590 diff changeset	75	activeHelpKey := aKey
4e1c0d0a633b add active help for items ca parents: 590 diff changeset	76	!
4e1c0d0a633b add active help for items ca parents: 590 diff changeset	77
684 184dd159d02e support of arguments ca parents: 666 diff changeset	78	argument
184dd159d02e support of arguments ca parents: 666 diff changeset	79	"get argument given to the value (selector)
184dd159d02e support of arguments ca parents: 666 diff changeset	80	"
184dd159d02e support of arguments ca parents: 666 diff changeset	81	adornment notNil ifTrue:[
184dd159d02e support of arguments ca parents: 666 diff changeset	82	^ adornment argument
184dd159d02e support of arguments ca parents: 666 diff changeset	83	].
184dd159d02e support of arguments ca parents: 666 diff changeset	84	^ nil
184dd159d02e support of arguments ca parents: 666 diff changeset	85	!
184dd159d02e support of arguments ca parents: 666 diff changeset	86
184dd159d02e support of arguments ca parents: 666 diff changeset	87	argument:something
184dd159d02e support of arguments ca parents: 666 diff changeset	88	"set argument given to the value (selector)
184dd159d02e support of arguments ca parents: 666 diff changeset	89	"
184dd159d02e support of arguments ca parents: 666 diff changeset	90	\|arg\|
184dd159d02e support of arguments ca parents: 666 diff changeset	91
184dd159d02e support of arguments ca parents: 666 diff changeset	92	(arg := something) notNil ifTrue:[
184dd159d02e support of arguments ca parents: 666 diff changeset	93	arg isString ifTrue:[
184dd159d02e support of arguments ca parents: 666 diff changeset	94	(arg size == 0 or:[(arg indexOfNonSeparatorStartingAt:1) == 0]) ifTrue:[
184dd159d02e support of arguments ca parents: 666 diff changeset	95	arg := nil
184dd159d02e support of arguments ca parents: 666 diff changeset	96	]
184dd159d02e support of arguments ca parents: 666 diff changeset	97	]
184dd159d02e support of arguments ca parents: 666 diff changeset	98	].
184dd159d02e support of arguments ca parents: 666 diff changeset	99
184dd159d02e support of arguments ca parents: 666 diff changeset	100	(arg isNil and:[adornment isNil]) ifFalse:[
184dd159d02e support of arguments ca parents: 666 diff changeset	101	self adornment argument:arg
184dd159d02e support of arguments ca parents: 666 diff changeset	102	]
184dd159d02e support of arguments ca parents: 666 diff changeset	103	!
184dd159d02e support of arguments ca parents: 666 diff changeset	104
798 8a27a879ff23 support of visible/invisible items ca parents: 794 diff changeset	105	isVisible
8a27a879ff23 support of visible/invisible items ca parents: 794 diff changeset	106	^ isVisible ? true
8a27a879ff23 support of visible/invisible items ca parents: 794 diff changeset	107	!
8a27a879ff23 support of visible/invisible items ca parents: 794 diff changeset	108
8a27a879ff23 support of visible/invisible items ca parents: 794 diff changeset	109	isVisible:something
8a27a879ff23 support of visible/invisible items ca parents: 794 diff changeset	110	isVisible := something
8a27a879ff23 support of visible/invisible items ca parents: 794 diff changeset	111	!
8a27a879ff23 support of visible/invisible items ca parents: 794 diff changeset	112
451 95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	113	label
973 cd6b8d08c9c9 submenu item send #value. Claus Gittinger <cg@exept.de> parents: 960 diff changeset	114	^ self filteredLabel "/ label
451 95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	115
973 cd6b8d08c9c9 submenu item send #value. Claus Gittinger <cg@exept.de> parents: 960 diff changeset	116	"Created: / 25.2.1997 / 19:48:16 / cg"
cd6b8d08c9c9 submenu item send #value. Claus Gittinger <cg@exept.de> parents: 960 diff changeset	117	"Modified: / 19.6.1998 / 00:02:55 / cg"
451 95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	118	!
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	119
453 e06bf3866328 * empty log message * Claus Gittinger <cg@exept.de> parents: 451 diff changeset	120	label:aString
e06bf3866328 * empty log message * Claus Gittinger <cg@exept.de> parents: 451 diff changeset	121	label := aString
e06bf3866328 * empty log message * Claus Gittinger <cg@exept.de> parents: 451 diff changeset	122
e06bf3866328 * empty log message * Claus Gittinger <cg@exept.de> parents: 451 diff changeset	123	"Created: 25.2.1997 / 19:55:16 / cg"
e06bf3866328 * empty log message * Claus Gittinger <cg@exept.de> parents: 451 diff changeset	124	!
e06bf3866328 * empty log message * Claus Gittinger <cg@exept.de> parents: 451 diff changeset	125
581 0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	126	labelImage
0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	127	"gets the labelImage
0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	128	"
0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	129	adornment notNil ifTrue:[
584 9a4c30f7586f ST-80 compatible features addded ca parents: 581 diff changeset	130	^ adornment labelImage value
581 0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	131	].
0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	132	^ nil
0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	133	!
0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	134
0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	135	labelImage:aResourceRetriever
0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	136	"set the labelImage
0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	137	"
0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	138	aResourceRetriever notNil ifTrue:[
0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	139	self adornment labelImage:aResourceRetriever
0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	140	]
0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	141	!
0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	142
578 7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	143	nameKey
7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	144	^ nameKey
7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	145
7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	146
7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	147	!
7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	148
7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	149	nameKey:aNameKey
579 77f6d490f1ac so far, so good ca parents: 578 diff changeset	150	nameKey := aNameKey.
578 7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	151
7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	152
7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	153	!
7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	154
490 ebe88e50b29a * empty log message * ca parents: 458 diff changeset	155	rawLabel
ebe88e50b29a * empty log message * ca parents: 458 diff changeset	156	^ label
ebe88e50b29a * empty log message * ca parents: 458 diff changeset	157
ebe88e50b29a * empty log message * ca parents: 458 diff changeset	158	"Created: 25.2.1997 / 19:48:16 / cg"
ebe88e50b29a * empty log message * ca parents: 458 diff changeset	159	!
ebe88e50b29a * empty log message * ca parents: 458 diff changeset	160
451 95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	161	rawLabel:aString
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	162	label := aString
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	163
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	164	"Created: 25.2.1997 / 19:11:02 / cg"
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	165	!
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	166
490 ebe88e50b29a * empty log message * ca parents: 458 diff changeset	167	shortcutKeyCharacter
ebe88e50b29a * empty log message * ca parents: 458 diff changeset	168	"ignored for now"
ebe88e50b29a * empty log message * ca parents: 458 diff changeset	169
578 7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	170	adornment notNil ifTrue:[
7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	171	^ adornment shortcutKeyCharacter
7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	172	].
490 ebe88e50b29a * empty log message * ca parents: 458 diff changeset	173	^ nil
ebe88e50b29a * empty log message * ca parents: 458 diff changeset	174	!
ebe88e50b29a * empty log message * ca parents: 458 diff changeset	175
578 7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	176	shortcutKeyCharacter:aKey
7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	177	"set the key to press to select the menu item from the keyboard
7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	178	"
579 77f6d490f1ac so far, so good ca parents: 578 diff changeset	179	(aKey isNil and:[adornment isNil]) ifFalse:[
77f6d490f1ac so far, so good ca parents: 578 diff changeset	180	self adornment shortcutKeyCharacter:aKey
77f6d490f1ac so far, so good ca parents: 578 diff changeset	181	]
578 7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	182	!
7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	183
794 432935e754e0 add new feature: ca parents: 752 diff changeset	184	startGroup
432935e754e0 add new feature: ca parents: 752 diff changeset	185	"start group #left #right #center ... or nil
432935e754e0 add new feature: ca parents: 752 diff changeset	186	at the moment only #right is implemented
432935e754e0 add new feature: ca parents: 752 diff changeset	187	"
432935e754e0 add new feature: ca parents: 752 diff changeset	188	^ startGroup
432935e754e0 add new feature: ca parents: 752 diff changeset	189	!
432935e754e0 add new feature: ca parents: 752 diff changeset	190
432935e754e0 add new feature: ca parents: 752 diff changeset	191	startGroup:aSymbol
432935e754e0 add new feature: ca parents: 752 diff changeset	192	"start group #left #right #center ...
432935e754e0 add new feature: ca parents: 752 diff changeset	193	at the moment only #right is implemented
432935e754e0 add new feature: ca parents: 752 diff changeset	194	"
432935e754e0 add new feature: ca parents: 752 diff changeset	195	(startGroup isNil or:[startGroup == #right]) ifTrue:[
432935e754e0 add new feature: ca parents: 752 diff changeset	196	startGroup := aSymbol
432935e754e0 add new feature: ca parents: 752 diff changeset	197	] ifFalse:[
432935e754e0 add new feature: ca parents: 752 diff changeset	198	self warn:('not supported group: ', aSymbol printString ).
432935e754e0 add new feature: ca parents: 752 diff changeset	199	]
432935e754e0 add new feature: ca parents: 752 diff changeset	200	!
432935e754e0 add new feature: ca parents: 752 diff changeset	201
458 729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	202	submenu
578 7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	203	adornment notNil ifTrue:[
7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	204	^ adornment submenu
7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	205	].
7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	206	^ nil
458 729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	207
729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	208	"Created: 25.2.1997 / 20:57:24 / cg"
729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	209	!
729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	210
729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	211	submenu:aMenu
729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	212	self adornment submenu:aMenu
729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	213
729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	214	"Created: 25.2.1997 / 20:56:20 / cg"
729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	215	!
729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	216
666 6e614a5d9248 add submenuChannel ca parents: 661 diff changeset	217	submenuChannel
6e614a5d9248 add submenuChannel ca parents: 661 diff changeset	218	adornment notNil ifTrue:[
6e614a5d9248 add submenuChannel ca parents: 661 diff changeset	219	^ adornment submenuChannel
6e614a5d9248 add submenuChannel ca parents: 661 diff changeset	220	].
6e614a5d9248 add submenuChannel ca parents: 661 diff changeset	221	^ nil
6e614a5d9248 add submenuChannel ca parents: 661 diff changeset	222	!
6e614a5d9248 add submenuChannel ca parents: 661 diff changeset	223
6e614a5d9248 add submenuChannel ca parents: 661 diff changeset	224	submenuChannel:something
6e614a5d9248 add submenuChannel ca parents: 661 diff changeset	225	self adornment submenuChannel:something
6e614a5d9248 add submenuChannel ca parents: 661 diff changeset	226	!
6e614a5d9248 add submenuChannel ca parents: 661 diff changeset	227
451 95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	228	value
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	229	^ value
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	230
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	231	"Created: 25.2.1997 / 19:50:14 / cg"
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	232	!
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	233
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	234	value:something
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	235	value := something
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	236
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	237	"Created: 25.2.1997 / 19:11:13 / cg"
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	238	! !
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	239
579 77f6d490f1ac so far, so good ca parents: 578 diff changeset	240	!MenuItem methodsFor:'accessing behavior'!
77f6d490f1ac so far, so good ca parents: 578 diff changeset	241
590 fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	242	beOff
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	243	"set indication off
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	244	"
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	245	self indication:false
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	246	!
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	247
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	248	beOn
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	249	"set indication on
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	250	"
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	251	self indication:true
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	252	!
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	253
579 77f6d490f1ac so far, so good ca parents: 578 diff changeset	254	disable
77f6d490f1ac so far, so good ca parents: 578 diff changeset	255	enabled := false
77f6d490f1ac so far, so good ca parents: 578 diff changeset	256
77f6d490f1ac so far, so good ca parents: 578 diff changeset	257	"Created: 25.2.1997 / 19:39:09 / cg"
77f6d490f1ac so far, so good ca parents: 578 diff changeset	258	!
77f6d490f1ac so far, so good ca parents: 578 diff changeset	259
77f6d490f1ac so far, so good ca parents: 578 diff changeset	260	enable
77f6d490f1ac so far, so good ca parents: 578 diff changeset	261	enabled := true
77f6d490f1ac so far, so good ca parents: 578 diff changeset	262
77f6d490f1ac so far, so good ca parents: 578 diff changeset	263	"Created: 25.2.1997 / 19:39:00 / cg"
77f6d490f1ac so far, so good ca parents: 578 diff changeset	264	!
77f6d490f1ac so far, so good ca parents: 578 diff changeset	265
581 0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	266	enabled
0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	267	"returns a boolean, valueHolder or block
0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	268	"
0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	269	^ enabled
0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	270	!
579 77f6d490f1ac so far, so good ca parents: 578 diff changeset	271
581 0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	272	enabled:something
0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	273	"a boolean, valueHolder or block
0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	274	"
0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	275	enabled := something
590 fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	276	!
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	277
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	278	indication
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	279	"test whether the menu item has an on/off indicator (CheckToggle)
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	280	"
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	281	adornment notNil ifTrue:[
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	282	^ adornment indication
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	283	].
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	284	^ nil
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	285	!
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	286
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	287	indication:anIndication
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	288	"test whether the menu item has an on/off indicator (CheckToggle)
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	289	"
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	290	(anIndication notNil or:[adornment notNil]) ifTrue:[
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	291	self adornment indication:anIndication.
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	292	].
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	293
752 93690dcd1b75 button and label translation support added. tz parents: 724 diff changeset	294	!
93690dcd1b75 button and label translation support added. tz parents: 724 diff changeset	295
93690dcd1b75 button and label translation support added. tz parents: 724 diff changeset	296	isButton
93690dcd1b75 button and label translation support added. tz parents: 724 diff changeset	297	"returns whether item looks like a Button
93690dcd1b75 button and label translation support added. tz parents: 724 diff changeset	298	"
93690dcd1b75 button and label translation support added. tz parents: 724 diff changeset	299	^isButton ? false
93690dcd1b75 button and label translation support added. tz parents: 724 diff changeset	300
93690dcd1b75 button and label translation support added. tz parents: 724 diff changeset	301
93690dcd1b75 button and label translation support added. tz parents: 724 diff changeset	302	!
93690dcd1b75 button and label translation support added. tz parents: 724 diff changeset	303
93690dcd1b75 button and label translation support added. tz parents: 724 diff changeset	304	isButton:anBoolean
93690dcd1b75 button and label translation support added. tz parents: 724 diff changeset	305	"sets whether item looks like a Button
93690dcd1b75 button and label translation support added. tz parents: 724 diff changeset	306	"
93690dcd1b75 button and label translation support added. tz parents: 724 diff changeset	307	isButton := anBoolean
93690dcd1b75 button and label translation support added. tz parents: 724 diff changeset	308
93690dcd1b75 button and label translation support added. tz parents: 724 diff changeset	309
93690dcd1b75 button and label translation support added. tz parents: 724 diff changeset	310	!
93690dcd1b75 button and label translation support added. tz parents: 724 diff changeset	311
93690dcd1b75 button and label translation support added. tz parents: 724 diff changeset	312	translateLabel
93690dcd1b75 button and label translation support added. tz parents: 724 diff changeset	313	"returns whether label is translated
93690dcd1b75 button and label translation support added. tz parents: 724 diff changeset	314	"
93690dcd1b75 button and label translation support added. tz parents: 724 diff changeset	315	^translateLabel ? false
93690dcd1b75 button and label translation support added. tz parents: 724 diff changeset	316
93690dcd1b75 button and label translation support added. tz parents: 724 diff changeset	317
93690dcd1b75 button and label translation support added. tz parents: 724 diff changeset	318	!
93690dcd1b75 button and label translation support added. tz parents: 724 diff changeset	319
93690dcd1b75 button and label translation support added. tz parents: 724 diff changeset	320	translateLabel:anBoolean
93690dcd1b75 button and label translation support added. tz parents: 724 diff changeset	321	"sets whether label is translated
93690dcd1b75 button and label translation support added. tz parents: 724 diff changeset	322	"
93690dcd1b75 button and label translation support added. tz parents: 724 diff changeset	323	translateLabel := anBoolean
93690dcd1b75 button and label translation support added. tz parents: 724 diff changeset	324
93690dcd1b75 button and label translation support added. tz parents: 724 diff changeset	325
581 0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	326	! !
0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	327
0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	328	!MenuItem methodsFor:'accessing resource'!
0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	329
584 9a4c30f7586f ST-80 compatible features addded ca parents: 581 diff changeset	330	findGuiResourcesIn:aResourceContainerOrApplication
581 0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	331	"setup a resource container
0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	332	"
960 fee5a1a50374 adornments submenu may be a valueHolder. Claus Gittinger <cg@exept.de> parents: 798 diff changeset	333	\|lblImg m\|
581 0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	334
752 93690dcd1b75 button and label translation support added. tz parents: 724 diff changeset	335	self translateLabel ifTrue:[
93690dcd1b75 button and label translation support added. tz parents: 724 diff changeset	336	label := ResourceRetriever findResourceLabel: label in: aResourceContainerOrApplication
93690dcd1b75 button and label translation support added. tz parents: 724 diff changeset	337	].
93690dcd1b75 button and label translation support added. tz parents: 724 diff changeset	338
584 9a4c30f7586f ST-80 compatible features addded ca parents: 581 diff changeset	339	adornment notNil ifTrue:[
752 93690dcd1b75 button and label translation support added. tz parents: 724 diff changeset	340	(lblImg := adornment labelImage) notNil ifTrue:[
93690dcd1b75 button and label translation support added. tz parents: 724 diff changeset	341	lblImg findGuiResourcesIn:aResourceContainerOrApplication.
93690dcd1b75 button and label translation support added. tz parents: 724 diff changeset	342	lblImg labelText notNil ifTrue: [lblImg labelText: label].
93690dcd1b75 button and label translation support added. tz parents: 724 diff changeset	343	].
960 fee5a1a50374 adornments submenu may be a valueHolder. Claus Gittinger <cg@exept.de> parents: 798 diff changeset	344	(m := adornment submenu) notNil ifTrue:[
fee5a1a50374 adornments submenu may be a valueHolder. Claus Gittinger <cg@exept.de> parents: 798 diff changeset	345	m := m value.
fee5a1a50374 adornments submenu may be a valueHolder. Claus Gittinger <cg@exept.de> parents: 798 diff changeset	346	m notNil ifTrue:[
fee5a1a50374 adornments submenu may be a valueHolder. Claus Gittinger <cg@exept.de> parents: 798 diff changeset	347	m findGuiResourcesIn:aResourceContainerOrApplication
fee5a1a50374 adornments submenu may be a valueHolder. Claus Gittinger <cg@exept.de> parents: 798 diff changeset	348	]
752 93690dcd1b75 button and label translation support added. tz parents: 724 diff changeset	349	].
581 0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	350	]
960 fee5a1a50374 adornments submenu may be a valueHolder. Claus Gittinger <cg@exept.de> parents: 798 diff changeset	351
fee5a1a50374 adornments submenu may be a valueHolder. Claus Gittinger <cg@exept.de> parents: 798 diff changeset	352	"Modified: / 18.6.1998 / 16:54:25 / cg"
579 77f6d490f1ac so far, so good ca parents: 578 diff changeset	353	! !
77f6d490f1ac so far, so good ca parents: 578 diff changeset	354
451 95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	355	!MenuItem methodsFor:'converting'!
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	356
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	357	fromLiteralArrayEncoding:aLiteralEncodedArray
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	358	"read my contents from a aLiteralEncodedArray"
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	359
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	360	2 to:aLiteralEncodedArray size by:2 do:[:i \|
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	361	\|selector value\|
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	362
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	363	selector := aLiteralEncodedArray at:i.
581 0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	364	value := (aLiteralEncodedArray at:i+1) decodeAsLiteralArray.
0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	365	self perform:selector with:value
451 95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	366	].
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	367
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	368	"
578 7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	369	#( #MenuItem #rawLabel: 'left' #nameKey: 'identifier' #value: #left )
451 95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	370	decodeAsLiteralArray
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	371	"
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	372
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	373	"Modified: 25.2.1997 / 19:24:22 / cg"
490 ebe88e50b29a * empty log message * ca parents: 458 diff changeset	374	!
ebe88e50b29a * empty log message * ca parents: 458 diff changeset	375
ebe88e50b29a * empty log message * ca parents: 458 diff changeset	376	literalArrayEncoding
ebe88e50b29a * empty log message * ca parents: 458 diff changeset	377	"return myself encoded as a literal array"
ebe88e50b29a * empty log message * ca parents: 458 diff changeset	378
581 0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	379	\|coll something\|
490 ebe88e50b29a * empty log message * ca parents: 458 diff changeset	380
ebe88e50b29a * empty log message * ca parents: 458 diff changeset	381	coll := OrderedCollection new.
ebe88e50b29a * empty log message * ca parents: 458 diff changeset	382	coll add:#MenuItem.
581 0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	383
0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	384	label notNil ifTrue:[
0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	385	coll add:#label: ; add:(label literalArrayEncoding)
0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	386	].
752 93690dcd1b75 button and label translation support added. tz parents: 724 diff changeset	387	self translateLabel ifTrue:[
93690dcd1b75 button and label translation support added. tz parents: 724 diff changeset	388	coll add:#translateLabel: ; add:(translateLabel literalArrayEncoding)
93690dcd1b75 button and label translation support added. tz parents: 724 diff changeset	389	].
93690dcd1b75 button and label translation support added. tz parents: 724 diff changeset	390	self isButton ifTrue:[
93690dcd1b75 button and label translation support added. tz parents: 724 diff changeset	391	coll add:#isButton:; add:(isButton literalArrayEncoding)
93690dcd1b75 button and label translation support added. tz parents: 724 diff changeset	392	].
581 0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	393	nameKey notNil ifTrue:[
0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	394	coll add:#nameKey: ; add:(nameKey literalArrayEncoding)
0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	395	].
798 8a27a879ff23 support of visible/invisible items ca parents: 794 diff changeset	396	isVisible notNil ifTrue:[
8a27a879ff23 support of visible/invisible items ca parents: 794 diff changeset	397	isVisible ~~ true ifTrue:[
8a27a879ff23 support of visible/invisible items ca parents: 794 diff changeset	398	coll add:#isVisible: ; add:(isVisible literalArrayEncoding)
8a27a879ff23 support of visible/invisible items ca parents: 794 diff changeset	399	]
8a27a879ff23 support of visible/invisible items ca parents: 794 diff changeset	400	].
794 432935e754e0 add new feature: ca parents: 752 diff changeset	401
432935e754e0 add new feature: ca parents: 752 diff changeset	402	startGroup notNil ifTrue:[
432935e754e0 add new feature: ca parents: 752 diff changeset	403	coll add:#startGroup: ; add:(startGroup literalArrayEncoding)
432935e754e0 add new feature: ca parents: 752 diff changeset	404	].
432935e754e0 add new feature: ca parents: 752 diff changeset	405
579 77f6d490f1ac so far, so good ca parents: 578 diff changeset	406	value notNil ifTrue:[
77f6d490f1ac so far, so good ca parents: 578 diff changeset	407	coll add:#value: ; add:(value literalArrayEncoding).
77f6d490f1ac so far, so good ca parents: 578 diff changeset	408	].
653 1e7c30f9ca6c literalArrayEncoding updated ca parents: 640 diff changeset	409	activeHelpKey notNil ifTrue:[
1e7c30f9ca6c literalArrayEncoding updated ca parents: 640 diff changeset	410	coll add:#activeHelpKey: ; add:(activeHelpKey literalArrayEncoding).
1e7c30f9ca6c literalArrayEncoding updated ca parents: 640 diff changeset	411	].
1e7c30f9ca6c literalArrayEncoding updated ca parents: 640 diff changeset	412	(something := self enabled) notNil ifTrue:[
1e7c30f9ca6c literalArrayEncoding updated ca parents: 640 diff changeset	413	coll add:#enabled: ; add:(enabled literalArrayEncoding).
579 77f6d490f1ac so far, so good ca parents: 578 diff changeset	414	].
77f6d490f1ac so far, so good ca parents: 578 diff changeset	415
653 1e7c30f9ca6c literalArrayEncoding updated ca parents: 640 diff changeset	416	adornment notNil ifTrue:[
1e7c30f9ca6c literalArrayEncoding updated ca parents: 640 diff changeset	417	(something := self shortcutKeyCharacter) notNil ifTrue:[
1e7c30f9ca6c literalArrayEncoding updated ca parents: 640 diff changeset	418	coll add:#shortcutKeyCharacter: ; add:(something literalArrayEncoding)
1e7c30f9ca6c literalArrayEncoding updated ca parents: 640 diff changeset	419	].
1e7c30f9ca6c literalArrayEncoding updated ca parents: 640 diff changeset	420
1e7c30f9ca6c literalArrayEncoding updated ca parents: 640 diff changeset	421	(something := self accessCharacterPosition) notNil ifTrue:[
1e7c30f9ca6c literalArrayEncoding updated ca parents: 640 diff changeset	422	coll add:#accessCharacterPosition: ; add:(something literalArrayEncoding)
1e7c30f9ca6c literalArrayEncoding updated ca parents: 640 diff changeset	423	].
1e7c30f9ca6c literalArrayEncoding updated ca parents: 640 diff changeset	424
684 184dd159d02e support of arguments ca parents: 666 diff changeset	425	(something := self argument) notNil ifTrue:[
184dd159d02e support of arguments ca parents: 666 diff changeset	426	coll add:#argument: ; add:(something literalArrayEncoding)
184dd159d02e support of arguments ca parents: 666 diff changeset	427	].
184dd159d02e support of arguments ca parents: 666 diff changeset	428
661 c09ac6b9820d literalArrayEncoding ca parents: 653 diff changeset	429	adornment labelImage notNil ifTrue:[
653 1e7c30f9ca6c literalArrayEncoding updated ca parents: 640 diff changeset	430	coll add:#labelImage: ; add:(adornment labelImage literalArrayEncoding)
1e7c30f9ca6c literalArrayEncoding updated ca parents: 640 diff changeset	431	].
1e7c30f9ca6c literalArrayEncoding updated ca parents: 640 diff changeset	432	(something := self indication) notNil ifTrue:[
1e7c30f9ca6c literalArrayEncoding updated ca parents: 640 diff changeset	433	coll add:#indication: ; add:(something literalArrayEncoding)
666 6e614a5d9248 add submenuChannel ca parents: 661 diff changeset	434	].
579 77f6d490f1ac so far, so good ca parents: 578 diff changeset	435
666 6e614a5d9248 add submenuChannel ca parents: 661 diff changeset	436	(something := self submenuChannel) notNil ifTrue:[
6e614a5d9248 add submenuChannel ca parents: 661 diff changeset	437	coll add:#submenuChannel: ; add:(something literalArrayEncoding)
6e614a5d9248 add submenuChannel ca parents: 661 diff changeset	438	].
6e614a5d9248 add submenuChannel ca parents: 661 diff changeset	439
6e614a5d9248 add submenuChannel ca parents: 661 diff changeset	440	self hasSubmenu ifTrue:[
6e614a5d9248 add submenuChannel ca parents: 661 diff changeset	441	coll add:#submenu:; add:(self submenu literalArrayEncoding)
6e614a5d9248 add submenuChannel ca parents: 661 diff changeset	442	].
581 0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	443	].
653 1e7c30f9ca6c literalArrayEncoding updated ca parents: 640 diff changeset	444
579 77f6d490f1ac so far, so good ca parents: 578 diff changeset	445	^ coll asArray
451 95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	446	! !
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	447
458 729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	448	!MenuItem methodsFor:'private - accessing'!
729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	449
729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	450	adornment
729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	451	adornment isNil ifTrue:[
729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	452	adornment := MenuItemAdornment new
729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	453	].
729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	454	^ adornment
729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	455
729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	456	"Created: 25.2.1997 / 20:57:05 / cg"
973 cd6b8d08c9c9 submenu item send #value. Claus Gittinger <cg@exept.de> parents: 960 diff changeset	457	!
cd6b8d08c9c9 submenu item send #value. Claus Gittinger <cg@exept.de> parents: 960 diff changeset	458
cd6b8d08c9c9 submenu item send #value. Claus Gittinger <cg@exept.de> parents: 960 diff changeset	459	filteredLabel
cd6b8d08c9c9 submenu item send #value. Claus Gittinger <cg@exept.de> parents: 960 diff changeset	460	"return the label without any &-chars"
cd6b8d08c9c9 submenu item send #value. Claus Gittinger <cg@exept.de> parents: 960 diff changeset	461
985 5a5b476cfd6b care for Text & images in rawLabel, when filtering. Claus Gittinger <cg@exept.de> parents: 973 diff changeset	462	\|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	463
5a5b476cfd6b care for Text & images in rawLabel, when filtering. Claus Gittinger <cg@exept.de> parents: 973 diff changeset	464	rawLabel := self rawLabel.
5a5b476cfd6b care for Text & images in rawLabel, when filtering. Claus Gittinger <cg@exept.de> parents: 973 diff changeset	465	rawLabel isString ifFalse:[^ rawLabel].
5a5b476cfd6b care for Text & images in rawLabel, when filtering. Claus Gittinger <cg@exept.de> parents: 973 diff changeset	466
5a5b476cfd6b care for Text & images in rawLabel, when filtering. Claus Gittinger <cg@exept.de> parents: 973 diff changeset	467	"/ be careful to preserve any emphasis ...
5a5b476cfd6b care for Text & images in rawLabel, when filtering. Claus Gittinger <cg@exept.de> parents: 973 diff changeset	468	"/ bad kludge ...
5a5b476cfd6b care for Text & images in rawLabel, when filtering. Claus Gittinger <cg@exept.de> parents: 973 diff changeset	469	rawLabel isText ifTrue:[
5a5b476cfd6b care for Text & images in rawLabel, when filtering. Claus Gittinger <cg@exept.de> parents: 973 diff changeset	470	emp := RunArray new.
5a5b476cfd6b care for Text & images in rawLabel, when filtering. Claus Gittinger <cg@exept.de> parents: 973 diff changeset	471	].
973 cd6b8d08c9c9 submenu item send #value. Claus Gittinger <cg@exept.de> parents: 960 diff changeset	472
cd6b8d08c9c9 submenu item send #value. Claus Gittinger <cg@exept.de> parents: 960 diff changeset	473	out := WriteStream on:''.
985 5a5b476cfd6b care for Text & images in rawLabel, when filtering. Claus Gittinger <cg@exept.de> parents: 973 diff changeset	474	in := rawLabel readStream.
973 cd6b8d08c9c9 submenu item send #value. Claus Gittinger <cg@exept.de> parents: 960 diff changeset	475	[in atEnd] whileFalse:[
985 5a5b476cfd6b care for Text & images in rawLabel, when filtering. Claus Gittinger <cg@exept.de> parents: 973 diff changeset	476	emp notNil ifTrue:[
5a5b476cfd6b care for Text & images in rawLabel, when filtering. Claus Gittinger <cg@exept.de> parents: 973 diff changeset	477	e := rawLabel emphasisAt:(in position).
5a5b476cfd6b care for Text & images in rawLabel, when filtering. Claus Gittinger <cg@exept.de> parents: 973 diff changeset	478	].
973 cd6b8d08c9c9 submenu item send #value. Claus Gittinger <cg@exept.de> parents: 960 diff changeset	479	c := in next.
cd6b8d08c9c9 submenu item send #value. Claus Gittinger <cg@exept.de> parents: 960 diff changeset	480	c == $& ifTrue:[
cd6b8d08c9c9 submenu item send #value. Claus Gittinger <cg@exept.de> parents: 960 diff changeset	481	in peek == $& ifTrue:[
985 5a5b476cfd6b care for Text & images in rawLabel, when filtering. Claus Gittinger <cg@exept.de> parents: 973 diff changeset	482	out nextPut:c.
5a5b476cfd6b care for Text & images in rawLabel, when filtering. Claus Gittinger <cg@exept.de> parents: 973 diff changeset	483	emp notNil ifTrue:[
5a5b476cfd6b care for Text & images in rawLabel, when filtering. Claus Gittinger <cg@exept.de> parents: 973 diff changeset	484	emp add:e
5a5b476cfd6b care for Text & images in rawLabel, when filtering. Claus Gittinger <cg@exept.de> parents: 973 diff changeset	485	]
973 cd6b8d08c9c9 submenu item send #value. Claus Gittinger <cg@exept.de> parents: 960 diff changeset	486	]
cd6b8d08c9c9 submenu item send #value. Claus Gittinger <cg@exept.de> parents: 960 diff changeset	487	] ifFalse:[
985 5a5b476cfd6b care for Text & images in rawLabel, when filtering. Claus Gittinger <cg@exept.de> parents: 973 diff changeset	488	out nextPut:c.
5a5b476cfd6b care for Text & images in rawLabel, when filtering. Claus Gittinger <cg@exept.de> parents: 973 diff changeset	489	emp notNil ifTrue:[
5a5b476cfd6b care for Text & images in rawLabel, when filtering. Claus Gittinger <cg@exept.de> parents: 973 diff changeset	490	emp add:e
5a5b476cfd6b care for Text & images in rawLabel, when filtering. Claus Gittinger <cg@exept.de> parents: 973 diff changeset	491	]
973 cd6b8d08c9c9 submenu item send #value. Claus Gittinger <cg@exept.de> parents: 960 diff changeset	492	]
cd6b8d08c9c9 submenu item send #value. Claus Gittinger <cg@exept.de> parents: 960 diff changeset	493	].
985 5a5b476cfd6b care for Text & images in rawLabel, when filtering. Claus Gittinger <cg@exept.de> parents: 973 diff changeset	494	l := out contents.
5a5b476cfd6b care for Text & images in rawLabel, when filtering. Claus Gittinger <cg@exept.de> parents: 973 diff changeset	495	emp notNil ifTrue:[
5a5b476cfd6b care for Text & images in rawLabel, when filtering. Claus Gittinger <cg@exept.de> parents: 973 diff changeset	496	^ Text string:l emphasisCollection:emp
5a5b476cfd6b care for Text & images in rawLabel, when filtering. Claus Gittinger <cg@exept.de> parents: 973 diff changeset	497	].
5a5b476cfd6b care for Text & images in rawLabel, when filtering. Claus Gittinger <cg@exept.de> parents: 973 diff changeset	498	^ l.
973 cd6b8d08c9c9 submenu item send #value. Claus Gittinger <cg@exept.de> parents: 960 diff changeset	499
cd6b8d08c9c9 submenu item send #value. Claus Gittinger <cg@exept.de> parents: 960 diff changeset	500	"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	501	"Modified: / 20.6.1998 / 17:15:18 / cg"
458 729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	502	! !
729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	503
579 77f6d490f1ac so far, so good ca parents: 578 diff changeset	504	!MenuItem methodsFor:'queries'!
77f6d490f1ac so far, so good ca parents: 578 diff changeset	505
590 fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	506	hasIndication
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	507	"test whether indication on/off exists
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	508	"
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	509	^ self indication notNil
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	510	!
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	511
579 77f6d490f1ac so far, so good ca parents: 578 diff changeset	512	hasSubmenu
584 9a4c30f7586f ST-80 compatible features addded ca parents: 581 diff changeset	513	^ self submenu notNil
579 77f6d490f1ac so far, so good ca parents: 578 diff changeset	514
77f6d490f1ac so far, so good ca parents: 578 diff changeset	515	"Created: 25.2.1997 / 20:56:20 / cg"
77f6d490f1ac so far, so good ca parents: 578 diff changeset	516	!
77f6d490f1ac so far, so good ca parents: 578 diff changeset	517
77f6d490f1ac so far, so good ca parents: 578 diff changeset	518	isEnabled
581 0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	519	^ enabled value ? true
579 77f6d490f1ac so far, so good ca parents: 578 diff changeset	520
77f6d490f1ac so far, so good ca parents: 578 diff changeset	521	"Created: 25.2.1997 / 19:39:17 / cg"
590 fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	522	!
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	523
724 898519684261 more VW comaptibility Claus Gittinger <cg@exept.de> parents: 684 diff changeset	524	isHidden
898519684261 more VW comaptibility Claus Gittinger <cg@exept.de> parents: 684 diff changeset	525	"not yet supported"
898519684261 more VW comaptibility Claus Gittinger <cg@exept.de> parents: 684 diff changeset	526
898519684261 more VW comaptibility Claus Gittinger <cg@exept.de> parents: 684 diff changeset	527	^ false
898519684261 more VW comaptibility Claus Gittinger <cg@exept.de> parents: 684 diff changeset	528
898519684261 more VW comaptibility Claus Gittinger <cg@exept.de> parents: 684 diff changeset	529	"Created: / 27.10.1997 / 15:13:43 / cg"
898519684261 more VW comaptibility Claus Gittinger <cg@exept.de> parents: 684 diff changeset	530	!
898519684261 more VW comaptibility Claus Gittinger <cg@exept.de> parents: 684 diff changeset	531
590 fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	532	isOff
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	533	"test whether indication on/off exists and is off
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	534	"
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	535	\|indication\|
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	536
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	537	indication := self indication.
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	538	^ indication value == false
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	539	!
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	540
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	541	isOn
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	542	"test whether indication on/off exists and is on
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	543	"
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	544	\|indication\|
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	545
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	546	indication := self indication.
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	547	^ indication value == true
579 77f6d490f1ac so far, so good ca parents: 578 diff changeset	548	! !
77f6d490f1ac so far, so good ca parents: 578 diff changeset	549
458 729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	550	!MenuItem::MenuItemAdornment methodsFor:'accessing'!
729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	551
579 77f6d490f1ac so far, so good ca parents: 578 diff changeset	552	accessCharacterPosition
77f6d490f1ac so far, so good ca parents: 578 diff changeset	553	"return the value of the instance variable 'accessCharacterPosition' (automatically generated)"
77f6d490f1ac so far, so good ca parents: 578 diff changeset	554
77f6d490f1ac so far, so good ca parents: 578 diff changeset	555	^ accessCharacterPosition!
77f6d490f1ac so far, so good ca parents: 578 diff changeset	556
77f6d490f1ac so far, so good ca parents: 578 diff changeset	557	accessCharacterPosition:something
77f6d490f1ac so far, so good ca parents: 578 diff changeset	558	"set the value of the instance variable 'accessCharacterPosition' (automatically generated)"
77f6d490f1ac so far, so good ca parents: 578 diff changeset	559
77f6d490f1ac so far, so good ca parents: 578 diff changeset	560	accessCharacterPosition := something.!
77f6d490f1ac so far, so good ca parents: 578 diff changeset	561
684 184dd159d02e support of arguments ca parents: 666 diff changeset	562	argument
184dd159d02e support of arguments ca parents: 666 diff changeset	563	"return the value of the instance variable 'argument' (automatically generated)"
184dd159d02e support of arguments ca parents: 666 diff changeset	564
184dd159d02e support of arguments ca parents: 666 diff changeset	565	^ argument
184dd159d02e support of arguments ca parents: 666 diff changeset	566
184dd159d02e support of arguments ca parents: 666 diff changeset	567	"Created: 25.2.1997 / 20:59:28 / cg"
184dd159d02e support of arguments ca parents: 666 diff changeset	568	!
184dd159d02e support of arguments ca parents: 666 diff changeset	569
184dd159d02e support of arguments ca parents: 666 diff changeset	570	argument:something
184dd159d02e support of arguments ca parents: 666 diff changeset	571	"set the value of the instance variable 'argument' (automatically generated)"
184dd159d02e support of arguments ca parents: 666 diff changeset	572
184dd159d02e support of arguments ca parents: 666 diff changeset	573	argument := something.
184dd159d02e support of arguments ca parents: 666 diff changeset	574
184dd159d02e support of arguments ca parents: 666 diff changeset	575	"Created: 25.2.1997 / 20:59:28 / cg"
184dd159d02e support of arguments ca parents: 666 diff changeset	576	!
184dd159d02e support of arguments ca parents: 666 diff changeset	577
458 729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	578	color
729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	579	"return the value of the instance variable 'color' (automatically generated)"
729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	580
729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	581	^ color
729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	582
729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	583	"Created: 25.2.1997 / 20:59:28 / cg"
729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	584	!
729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	585
729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	586	color:something
729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	587	"set the value of the instance variable 'color' (automatically generated)"
729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	588
729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	589	color := something.
729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	590
729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	591	"Created: 25.2.1997 / 20:59:28 / cg"
729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	592	!
729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	593
729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	594	indication
590 fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	595	"test whether the menu item has an on/off indicator (CheckToggle)
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	596	"
458 729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	597	^ indication
729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	598
729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	599	"Created: 25.2.1997 / 20:59:28 / cg"
729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	600	!
729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	601
729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	602	indication:something
590 fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	603	"test whether the menu item has an on/off indicator (CheckToggle)
fb2c55428c52 ST-80 compatibility ca parents: 584 diff changeset	604	"
458 729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	605	indication := something.
729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	606
729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	607	"Created: 25.2.1997 / 20:59:28 / cg"
729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	608	!
729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	609
581 0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	610	labelImage
0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	611	"return the value of the instance variable 'labelImage' (automatically generated)"
0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	612
0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	613	^ labelImage!
0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	614
0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	615	labelImage:something
0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	616	"set the value of the instance variable 'labelImage' (automatically generated)"
0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	617
0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	618	labelImage := something.!
0080d12b5758 enabled can be something not only a boolean ca parents: 580 diff changeset	619
578 7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	620	labelText
7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	621	"get the text appear as the menu label
7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	622	"
7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	623	^ labelText
7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	624	!
7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	625
7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	626	labelText:something
7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	627	"set the text appear as the menu label
7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	628	"
7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	629	labelText := something.
7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	630	!
7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	631
7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	632	shortcutKeyCharacter
7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	633	"get the key to press to select the menu item from the keyboard
7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	634	"
7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	635	^ shortcutKey
7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	636	!
7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	637
7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	638	shortcutKeyCharacter:something
7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	639	"set the key to press to select the menu item from the keyboard
7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	640	"
7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	641	shortcutKey := something.
7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	642	!
7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	643
458 729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	644	submenu
578 7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	645	"get the submenu or nil
7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	646	"
973 cd6b8d08c9c9 submenu item send #value. Claus Gittinger <cg@exept.de> parents: 960 diff changeset	647	^ submenu value
458 729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	648
973 cd6b8d08c9c9 submenu item send #value. Claus Gittinger <cg@exept.de> parents: 960 diff changeset	649	"Created: / 25.2.1997 / 20:59:28 / cg"
cd6b8d08c9c9 submenu item send #value. Claus Gittinger <cg@exept.de> parents: 960 diff changeset	650	"Modified: / 19.6.1998 / 00:33:58 / cg"
458 729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	651	!
729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	652
729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	653	submenu:something
578 7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	654	"set the submenu or nil
7e0f62d9bc47 access methods ... ca parents: 490 diff changeset	655	"
458 729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	656	submenu := something.
729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	657
729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	658	"Created: 25.2.1997 / 20:59:28 / cg"
666 6e614a5d9248 add submenuChannel ca parents: 661 diff changeset	659	!
6e614a5d9248 add submenuChannel ca parents: 661 diff changeset	660
6e614a5d9248 add submenuChannel ca parents: 661 diff changeset	661	submenuChannel
6e614a5d9248 add submenuChannel ca parents: 661 diff changeset	662	"get the submenuChannel or nil
6e614a5d9248 add submenuChannel ca parents: 661 diff changeset	663	"
6e614a5d9248 add submenuChannel ca parents: 661 diff changeset	664	^ submenuChannel
6e614a5d9248 add submenuChannel ca parents: 661 diff changeset	665	!
6e614a5d9248 add submenuChannel ca parents: 661 diff changeset	666
6e614a5d9248 add submenuChannel ca parents: 661 diff changeset	667	submenuChannel:something
6e614a5d9248 add submenuChannel ca parents: 661 diff changeset	668	"set the submenuChannel or nil
6e614a5d9248 add submenuChannel ca parents: 661 diff changeset	669	"
6e614a5d9248 add submenuChannel ca parents: 661 diff changeset	670	submenuChannel := something.
973 cd6b8d08c9c9 submenu item send #value. Claus Gittinger <cg@exept.de> parents: 960 diff changeset	671	!
cd6b8d08c9c9 submenu item send #value. Claus Gittinger <cg@exept.de> parents: 960 diff changeset	672
cd6b8d08c9c9 submenu item send #value. Claus Gittinger <cg@exept.de> parents: 960 diff changeset	673	submenuHolder
cd6b8d08c9c9 submenu item send #value. Claus Gittinger <cg@exept.de> parents: 960 diff changeset	674	"get the submenuHolder or nil
cd6b8d08c9c9 submenu item send #value. Claus Gittinger <cg@exept.de> parents: 960 diff changeset	675	"
cd6b8d08c9c9 submenu item send #value. Claus Gittinger <cg@exept.de> parents: 960 diff changeset	676	^ submenu
cd6b8d08c9c9 submenu item send #value. Claus Gittinger <cg@exept.de> parents: 960 diff changeset	677
cd6b8d08c9c9 submenu item send #value. Claus Gittinger <cg@exept.de> parents: 960 diff changeset	678	"Modified: / 19.6.1998 / 00:33:58 / cg"
cd6b8d08c9c9 submenu item send #value. Claus Gittinger <cg@exept.de> parents: 960 diff changeset	679	"Created: / 19.6.1998 / 00:34:32 / cg"
458 729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	680	! !
729ffdbd2b13 * empty log message * Claus Gittinger <cg@exept.de> parents: 455 diff changeset	681
451 95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	682	!MenuItem class methodsFor:'documentation'!
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	683
95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	684	version
985 5a5b476cfd6b care for Text & images in rawLabel, when filtering. Claus Gittinger <cg@exept.de> parents: 973 diff changeset	685	^ '$Header: /cvs/stx/stx/libview2/MenuItem.st,v 1.23 1998-06-20 15:15:59 cg Exp $'
451 95064b26ded1 intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	686	! !

author	tz
	Sun, 19 Jul 1998 20:55:35 +0200
changeset 1002	a237e5fd2be9
parent 985	5a5b476cfd6b
child 1030	3684379a1ac8
permissions	-rw-r--r--