hg/stx-libwidg2: MenuPanel.st@40554a07d5aa (annotated)

388 dce33f8bb806 intitial checkin ca parents: diff changeset	1	"
dce33f8bb806 intitial checkin ca parents: diff changeset	2	COPYRIGHT (c) 1997 by eXept Software AG
dce33f8bb806 intitial checkin ca parents: diff changeset	3	All Rights Reserved
dce33f8bb806 intitial checkin ca parents: diff changeset	4
dce33f8bb806 intitial checkin ca parents: diff changeset	5	This software is furnished under a license and may be used
dce33f8bb806 intitial checkin ca parents: diff changeset	6	only in accordance with the terms of that license and with the
dce33f8bb806 intitial checkin ca parents: diff changeset	7	inclusion of the above copyright notice. This software may not
dce33f8bb806 intitial checkin ca parents: diff changeset	8	be provided or otherwise made available to, or used by, any
dce33f8bb806 intitial checkin ca parents: diff changeset	9	other person. No title to or ownership of the software is
dce33f8bb806 intitial checkin ca parents: diff changeset	10	hereby transferred.
dce33f8bb806 intitial checkin ca parents: diff changeset	11	"
dce33f8bb806 intitial checkin ca parents: diff changeset	12
dce33f8bb806 intitial checkin ca parents: diff changeset	13
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	14	SimpleView subclass:#MenuPanel
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	15	instanceVariableNames:'style adornment shadowView mapTime mustRearrange superMenu
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	16	shortKeyInset selection items groupSizes receiver enableChannel'
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	17	classVariableNames:'InitialSelectionQuerySignal DefaultStyle DefaultAdornment
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	18	GroupDividerSize'
388 dce33f8bb806 intitial checkin ca parents: diff changeset	19	poolDictionaries:''
dce33f8bb806 intitial checkin ca parents: diff changeset	20	category:'Views-Menus'
dce33f8bb806 intitial checkin ca parents: diff changeset	21	!
dce33f8bb806 intitial checkin ca parents: diff changeset	22
dce33f8bb806 intitial checkin ca parents: diff changeset	23	Object subclass:#Item
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	24	instanceVariableNames:'layout menuPanel subMenu adornment rawLabel enableChannel nameKey
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	25	accessCharacterPosition value label'
388 dce33f8bb806 intitial checkin ca parents: diff changeset	26	classVariableNames:'HorizontalInset VerticalInset LabelRightOffset ShortcutKeyOffset
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	27	IndicatorOn IndicatorOff'
388 dce33f8bb806 intitial checkin ca parents: diff changeset	28	poolDictionaries:''
dce33f8bb806 intitial checkin ca parents: diff changeset	29	privateIn:MenuPanel
dce33f8bb806 intitial checkin ca parents: diff changeset	30	!
dce33f8bb806 intitial checkin ca parents: diff changeset	31
dce33f8bb806 intitial checkin ca parents: diff changeset	32	Object subclass:#Adornment
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	33	instanceVariableNames:'indication accessCharacterPosition shortcutKey argument'
388 dce33f8bb806 intitial checkin ca parents: diff changeset	34	classVariableNames:''
dce33f8bb806 intitial checkin ca parents: diff changeset	35	poolDictionaries:''
dce33f8bb806 intitial checkin ca parents: diff changeset	36	privateIn:MenuPanel::Item
dce33f8bb806 intitial checkin ca parents: diff changeset	37	!
dce33f8bb806 intitial checkin ca parents: diff changeset	38
dce33f8bb806 intitial checkin ca parents: diff changeset	39	!MenuPanel class methodsFor:'documentation'!
dce33f8bb806 intitial checkin ca parents: diff changeset	40
dce33f8bb806 intitial checkin ca parents: diff changeset	41	copyright
dce33f8bb806 intitial checkin ca parents: diff changeset	42	"
dce33f8bb806 intitial checkin ca parents: diff changeset	43	COPYRIGHT (c) 1997 by eXept Software AG
dce33f8bb806 intitial checkin ca parents: diff changeset	44	All Rights Reserved
dce33f8bb806 intitial checkin ca parents: diff changeset	45
dce33f8bb806 intitial checkin ca parents: diff changeset	46	This software is furnished under a license and may be used
dce33f8bb806 intitial checkin ca parents: diff changeset	47	only in accordance with the terms of that license and with the
dce33f8bb806 intitial checkin ca parents: diff changeset	48	inclusion of the above copyright notice. This software may not
dce33f8bb806 intitial checkin ca parents: diff changeset	49	be provided or otherwise made available to, or used by, any
dce33f8bb806 intitial checkin ca parents: diff changeset	50	other person. No title to or ownership of the software is
dce33f8bb806 intitial checkin ca parents: diff changeset	51	hereby transferred.
dce33f8bb806 intitial checkin ca parents: diff changeset	52	"
dce33f8bb806 intitial checkin ca parents: diff changeset	53
dce33f8bb806 intitial checkin ca parents: diff changeset	54	!
dce33f8bb806 intitial checkin ca parents: diff changeset	55
dce33f8bb806 intitial checkin ca parents: diff changeset	56	documentation
dce33f8bb806 intitial checkin ca parents: diff changeset	57	"
dce33f8bb806 intitial checkin ca parents: diff changeset	58	a menu panel used for both pull-down-menus and pop-up-menus.
dce33f8bb806 intitial checkin ca parents: diff changeset	59
dce33f8bb806 intitial checkin ca parents: diff changeset	60	not yet finished MenuPanel class - this will eventually replace
dce33f8bb806 intitial checkin ca parents: diff changeset	61	most of the MenuView and PopUpMenu stuff.
dce33f8bb806 intitial checkin ca parents: diff changeset	62	(and hopefully be ST-80 compatible ...)
dce33f8bb806 intitial checkin ca parents: diff changeset	63
dce33f8bb806 intitial checkin ca parents: diff changeset	64	[author:]
dce33f8bb806 intitial checkin ca parents: diff changeset	65	Claus Atzkern
dce33f8bb806 intitial checkin ca parents: diff changeset	66
dce33f8bb806 intitial checkin ca parents: diff changeset	67	[see also:]
dce33f8bb806 intitial checkin ca parents: diff changeset	68	Menu
dce33f8bb806 intitial checkin ca parents: diff changeset	69	MenuItem
dce33f8bb806 intitial checkin ca parents: diff changeset	70	"
dce33f8bb806 intitial checkin ca parents: diff changeset	71
dce33f8bb806 intitial checkin ca parents: diff changeset	72	!
dce33f8bb806 intitial checkin ca parents: diff changeset	73
dce33f8bb806 intitial checkin ca parents: diff changeset	74	examples
dce33f8bb806 intitial checkin ca parents: diff changeset	75
dce33f8bb806 intitial checkin ca parents: diff changeset	76	"
dce33f8bb806 intitial checkin ca parents: diff changeset	77	start as PullDownMenu
dce33f8bb806 intitial checkin ca parents: diff changeset	78	[exBegin]
dce33f8bb806 intitial checkin ca parents: diff changeset	79	\|top subView mview desc s1 s2 s3 img lbs labels\|
dce33f8bb806 intitial checkin ca parents: diff changeset	80
dce33f8bb806 intitial checkin ca parents: diff changeset	81	top := StandardSystemView new.
dce33f8bb806 intitial checkin ca parents: diff changeset	82
dce33f8bb806 intitial checkin ca parents: diff changeset	83	mview := self in:top.
dce33f8bb806 intitial checkin ca parents: diff changeset	84
dce33f8bb806 intitial checkin ca parents: diff changeset	85	labels := #( '\b foo' 'bar' 'baz' 'test' 'claus' ).
dce33f8bb806 intitial checkin ca parents: diff changeset	86	mview level:2.
dce33f8bb806 intitial checkin ca parents: diff changeset	87	mview verticalLayout:false.
dce33f8bb806 intitial checkin ca parents: diff changeset	88	img := Image fromFile:'bitmaps/SBrowser.xbm'.
dce33f8bb806 intitial checkin ca parents: diff changeset	89	lbs := Array with:'foo' with:'bar' with:img with:'baz' with:'\b test' with:'ludwig \t'.
dce33f8bb806 intitial checkin ca parents: diff changeset	90	mview labels:lbs.
dce33f8bb806 intitial checkin ca parents: diff changeset	91	mview shortcutKeyAt:2 put:#Cut.
dce33f8bb806 intitial checkin ca parents: diff changeset	92	mview accessCharacterPositionAt:1 put:1.
dce33f8bb806 intitial checkin ca parents: diff changeset	93	mview accessCharacterPositionAt:2 put:2.
dce33f8bb806 intitial checkin ca parents: diff changeset	94
dce33f8bb806 intitial checkin ca parents: diff changeset	95	mview enabledAt:5 put:false.
dce33f8bb806 intitial checkin ca parents: diff changeset	96	mview groupSizes:#( 2 2 ).
dce33f8bb806 intitial checkin ca parents: diff changeset	97	s1 := self labels:labels.
dce33f8bb806 intitial checkin ca parents: diff changeset	98	s1 accessCharacterPositionAt:1 put:1.
dce33f8bb806 intitial checkin ca parents: diff changeset	99	s1 accessCharacterPositionAt:2 put:2.
dce33f8bb806 intitial checkin ca parents: diff changeset	100	s1 groupSizes:#( 2 2 ).
dce33f8bb806 intitial checkin ca parents: diff changeset	101	s2 := self labels:#( '1' nil '2' '-' '3' '=' '4' ' ' '5' ).
dce33f8bb806 intitial checkin ca parents: diff changeset	102	s3 := self labels:lbs.
dce33f8bb806 intitial checkin ca parents: diff changeset	103
dce33f8bb806 intitial checkin ca parents: diff changeset	104	s1 subMenuAt:2 put:s2.
dce33f8bb806 intitial checkin ca parents: diff changeset	105	s1 subMenuAt:3 put:(self labels:lbs).
dce33f8bb806 intitial checkin ca parents: diff changeset	106	s2 subMenuAt:3 put:s3.
dce33f8bb806 intitial checkin ca parents: diff changeset	107	s3 subMenuAt:3 put:(self labels:labels).
dce33f8bb806 intitial checkin ca parents: diff changeset	108	s3 shortcutKeyAt:3 put:$q.
dce33f8bb806 intitial checkin ca parents: diff changeset	109
dce33f8bb806 intitial checkin ca parents: diff changeset	110	mview subMenuAt:1 put:s1.
dce33f8bb806 intitial checkin ca parents: diff changeset	111	mview subMenuAt:4 put:(self labels:lbs).
dce33f8bb806 intitial checkin ca parents: diff changeset	112	(mview subMenuAt:4) shortcutKeyAt:3 put:#Copy.
dce33f8bb806 intitial checkin ca parents: diff changeset	113	s1 shortcutKeyAt:1 put:#Copy.
dce33f8bb806 intitial checkin ca parents: diff changeset	114	s1 shortcutKeyAt:3 put:#Paste.
dce33f8bb806 intitial checkin ca parents: diff changeset	115
dce33f8bb806 intitial checkin ca parents: diff changeset	116	mview subMenuAt:2 put:(self labels:labels).
dce33f8bb806 intitial checkin ca parents: diff changeset	117	top extent:(400 @ (mview height)).
dce33f8bb806 intitial checkin ca parents: diff changeset	118	top open.
dce33f8bb806 intitial checkin ca parents: diff changeset	119	[exEnd]
dce33f8bb806 intitial checkin ca parents: diff changeset	120
dce33f8bb806 intitial checkin ca parents: diff changeset	121
dce33f8bb806 intitial checkin ca parents: diff changeset	122	start as PopUpMenu
dce33f8bb806 intitial checkin ca parents: diff changeset	123	[exBegin]
dce33f8bb806 intitial checkin ca parents: diff changeset	124	\|subView mview desc s1 s2 s3 img lbs labels\|
dce33f8bb806 intitial checkin ca parents: diff changeset	125
dce33f8bb806 intitial checkin ca parents: diff changeset	126	mview := self new.
dce33f8bb806 intitial checkin ca parents: diff changeset	127	labels := #( '\b foo' 'bar' 'baz' ).
dce33f8bb806 intitial checkin ca parents: diff changeset	128	mview level:2.
dce33f8bb806 intitial checkin ca parents: diff changeset	129
dce33f8bb806 intitial checkin ca parents: diff changeset	130	img := Image fromFile:'bitmaps/SBrowser.xbm'.
dce33f8bb806 intitial checkin ca parents: diff changeset	131	lbs := Array with:'foo' with:'bar' with:img with:'baz' with:'\b test'.
dce33f8bb806 intitial checkin ca parents: diff changeset	132	mview labels:lbs.
dce33f8bb806 intitial checkin ca parents: diff changeset	133
dce33f8bb806 intitial checkin ca parents: diff changeset	134	s1 := self labels:labels.
dce33f8bb806 intitial checkin ca parents: diff changeset	135	s2 := self labels:#( '1' nil '2' '-' '3' '=' '4' ' ' '5' ).
dce33f8bb806 intitial checkin ca parents: diff changeset	136	s3 := self labels:lbs.
dce33f8bb806 intitial checkin ca parents: diff changeset	137	s1 subMenuAt:2 put:s2.
dce33f8bb806 intitial checkin ca parents: diff changeset	138	s1 subMenuAt:3 put:(self labels:lbs).
dce33f8bb806 intitial checkin ca parents: diff changeset	139	s2 subMenuAt:3 put:s3.
dce33f8bb806 intitial checkin ca parents: diff changeset	140	s3 subMenuAt:3 put:(self labels:labels).
dce33f8bb806 intitial checkin ca parents: diff changeset	141	s3 shortcutKeyAt:3 put:$q.
dce33f8bb806 intitial checkin ca parents: diff changeset	142
dce33f8bb806 intitial checkin ca parents: diff changeset	143	mview subMenuAt:1 put:s1.
dce33f8bb806 intitial checkin ca parents: diff changeset	144	mview subMenuAt:4 put:(self labels:lbs).
dce33f8bb806 intitial checkin ca parents: diff changeset	145	(mview subMenuAt:4) shortcutKeyAt:3 put:#Copy.
dce33f8bb806 intitial checkin ca parents: diff changeset	146	s1 shortcutKeyAt:1 put:#Copy.
dce33f8bb806 intitial checkin ca parents: diff changeset	147	s1 shortcutKeyAt:3 put:#Paste.
dce33f8bb806 intitial checkin ca parents: diff changeset	148
dce33f8bb806 intitial checkin ca parents: diff changeset	149	mview subMenuAt:2 put:(self labels:labels).
dce33f8bb806 intitial checkin ca parents: diff changeset	150	mview startUp
dce33f8bb806 intitial checkin ca parents: diff changeset	151	[exEnd]
dce33f8bb806 intitial checkin ca parents: diff changeset	152
dce33f8bb806 intitial checkin ca parents: diff changeset	153
dce33f8bb806 intitial checkin ca parents: diff changeset	154	start from menu spec
dce33f8bb806 intitial checkin ca parents: diff changeset	155	[exBegin]
dce33f8bb806 intitial checkin ca parents: diff changeset	156	\|menu\|
dce33f8bb806 intitial checkin ca parents: diff changeset	157
dce33f8bb806 intitial checkin ca parents: diff changeset	158	menu := self menu:
dce33f8bb806 intitial checkin ca parents: diff changeset	159	#(#Menu #( #(#MenuItem
dce33f8bb806 intitial checkin ca parents: diff changeset	160	#label: 'File'
dce33f8bb806 intitial checkin ca parents: diff changeset	161	#submenu:
dce33f8bb806 intitial checkin ca parents: diff changeset	162	#(#Menu #(#(#MenuItem #label: 'quit' #value:#quit )
dce33f8bb806 intitial checkin ca parents: diff changeset	163	(#MenuItem
dce33f8bb806 intitial checkin ca parents: diff changeset	164	#label: 'edit'
dce33f8bb806 intitial checkin ca parents: diff changeset	165	#submenu:
dce33f8bb806 intitial checkin ca parents: diff changeset	166	#(#Menu #( #(#MenuItem #label: 'edit' #value:#edit )
dce33f8bb806 intitial checkin ca parents: diff changeset	167	#(#MenuItem #label: 'close' #value:#close)
dce33f8bb806 intitial checkin ca parents: diff changeset	168	)
dce33f8bb806 intitial checkin ca parents: diff changeset	169	nil
dce33f8bb806 intitial checkin ca parents: diff changeset	170	nil
dce33f8bb806 intitial checkin ca parents: diff changeset	171	)
dce33f8bb806 intitial checkin ca parents: diff changeset	172	)
dce33f8bb806 intitial checkin ca parents: diff changeset	173	#(#MenuItem #label: 'help' #value:#help )
dce33f8bb806 intitial checkin ca parents: diff changeset	174	)
dce33f8bb806 intitial checkin ca parents: diff changeset	175	nil
dce33f8bb806 intitial checkin ca parents: diff changeset	176	nil
dce33f8bb806 intitial checkin ca parents: diff changeset	177	)
dce33f8bb806 intitial checkin ca parents: diff changeset	178	)
dce33f8bb806 intitial checkin ca parents: diff changeset	179	#(#MenuItem #label: 'Inspect' #value:#inspectMenu )
dce33f8bb806 intitial checkin ca parents: diff changeset	180	#(#MenuItem #label: 'Bar'
dce33f8bb806 intitial checkin ca parents: diff changeset	181	#submenu:
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	182	#(#Menu #( #(#MenuItem #label: 'bar 1' #value:#bar1 )
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	183	#(#MenuItem #label: 'bar 2' #value:#bar2 )
388 dce33f8bb806 intitial checkin ca parents: diff changeset	184	)
dce33f8bb806 intitial checkin ca parents: diff changeset	185	nil
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	186	nil
388 dce33f8bb806 intitial checkin ca parents: diff changeset	187	)
dce33f8bb806 intitial checkin ca parents: diff changeset	188	)
dce33f8bb806 intitial checkin ca parents: diff changeset	189	)
dce33f8bb806 intitial checkin ca parents: diff changeset	190	#( 2 )
dce33f8bb806 intitial checkin ca parents: diff changeset	191	nil
dce33f8bb806 intitial checkin ca parents: diff changeset	192	) decodeAsLiteralArray.
dce33f8bb806 intitial checkin ca parents: diff changeset	193
dce33f8bb806 intitial checkin ca parents: diff changeset	194	menu verticalLayout:false.
dce33f8bb806 intitial checkin ca parents: diff changeset	195	Transcript showCR:(menu startUp).
dce33f8bb806 intitial checkin ca parents: diff changeset	196	[exEnd]
dce33f8bb806 intitial checkin ca parents: diff changeset	197
dce33f8bb806 intitial checkin ca parents: diff changeset	198	"
dce33f8bb806 intitial checkin ca parents: diff changeset	199
dce33f8bb806 intitial checkin ca parents: diff changeset	200	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	201
dce33f8bb806 intitial checkin ca parents: diff changeset	202	!MenuPanel class methodsFor:'instance creation'!
dce33f8bb806 intitial checkin ca parents: diff changeset	203
dce33f8bb806 intitial checkin ca parents: diff changeset	204	fromSpec:aSpec
dce33f8bb806 intitial checkin ca parents: diff changeset	205	^ self fromSpec:aSpec receiver:nil
dce33f8bb806 intitial checkin ca parents: diff changeset	206	!
dce33f8bb806 intitial checkin ca parents: diff changeset	207
dce33f8bb806 intitial checkin ca parents: diff changeset	208	fromSpec:aSpec receiver:aReceiver
dce33f8bb806 intitial checkin ca parents: diff changeset	209	\|menu\|
dce33f8bb806 intitial checkin ca parents: diff changeset	210
dce33f8bb806 intitial checkin ca parents: diff changeset	211	aSpec notNil ifTrue:[
dce33f8bb806 intitial checkin ca parents: diff changeset	212	menu := Menu new.
dce33f8bb806 intitial checkin ca parents: diff changeset	213	menu fromLiteralArrayEncoding:aSpec.
dce33f8bb806 intitial checkin ca parents: diff changeset	214	].
dce33f8bb806 intitial checkin ca parents: diff changeset	215	^ self menu:menu receiver:aReceiver
dce33f8bb806 intitial checkin ca parents: diff changeset	216	!
dce33f8bb806 intitial checkin ca parents: diff changeset	217
dce33f8bb806 intitial checkin ca parents: diff changeset	218	labels:labels
dce33f8bb806 intitial checkin ca parents: diff changeset	219	^ self labels:labels nameKeys:nil receiver:nil
dce33f8bb806 intitial checkin ca parents: diff changeset	220	!
dce33f8bb806 intitial checkin ca parents: diff changeset	221
dce33f8bb806 intitial checkin ca parents: diff changeset	222	labels:labels nameKeys:nameKeys
dce33f8bb806 intitial checkin ca parents: diff changeset	223	^ self labels:labels nameKeys:nameKeys receiver:nil
dce33f8bb806 intitial checkin ca parents: diff changeset	224	!
dce33f8bb806 intitial checkin ca parents: diff changeset	225
dce33f8bb806 intitial checkin ca parents: diff changeset	226	labels:labels nameKeys:nameKeys receiver:aReceiver
dce33f8bb806 intitial checkin ca parents: diff changeset	227	\|mview\|
dce33f8bb806 intitial checkin ca parents: diff changeset	228
dce33f8bb806 intitial checkin ca parents: diff changeset	229	mview := self menu:nil receiver:aReceiver.
dce33f8bb806 intitial checkin ca parents: diff changeset	230	mview labels:labels.
dce33f8bb806 intitial checkin ca parents: diff changeset	231	mview nameKeys:nameKeys.
dce33f8bb806 intitial checkin ca parents: diff changeset	232	^ mview
dce33f8bb806 intitial checkin ca parents: diff changeset	233
dce33f8bb806 intitial checkin ca parents: diff changeset	234	!
dce33f8bb806 intitial checkin ca parents: diff changeset	235
dce33f8bb806 intitial checkin ca parents: diff changeset	236	menu:aMenu
dce33f8bb806 intitial checkin ca parents: diff changeset	237	^ self menu:aMenu receiver:nil
dce33f8bb806 intitial checkin ca parents: diff changeset	238	!
dce33f8bb806 intitial checkin ca parents: diff changeset	239
dce33f8bb806 intitial checkin ca parents: diff changeset	240	menu:aMenu receiver:aReceiver
dce33f8bb806 intitial checkin ca parents: diff changeset	241	\|mview\|
dce33f8bb806 intitial checkin ca parents: diff changeset	242
dce33f8bb806 intitial checkin ca parents: diff changeset	243	mview := self new.
dce33f8bb806 intitial checkin ca parents: diff changeset	244	mview menu:aMenu.
dce33f8bb806 intitial checkin ca parents: diff changeset	245
dce33f8bb806 intitial checkin ca parents: diff changeset	246	"/ a menu itself may contain a receiver
dce33f8bb806 intitial checkin ca parents: diff changeset	247	"/ thus we do not overwrite the receiver
dce33f8bb806 intitial checkin ca parents: diff changeset	248
dce33f8bb806 intitial checkin ca parents: diff changeset	249	aReceiver notNil ifTrue:[
dce33f8bb806 intitial checkin ca parents: diff changeset	250	mview receiver:aReceiver
dce33f8bb806 intitial checkin ca parents: diff changeset	251	].
dce33f8bb806 intitial checkin ca parents: diff changeset	252	^ mview
dce33f8bb806 intitial checkin ca parents: diff changeset	253
dce33f8bb806 intitial checkin ca parents: diff changeset	254	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	255
dce33f8bb806 intitial checkin ca parents: diff changeset	256	!MenuPanel class methodsFor:'class initialization'!
dce33f8bb806 intitial checkin ca parents: diff changeset	257
dce33f8bb806 intitial checkin ca parents: diff changeset	258	initialize
dce33f8bb806 intitial checkin ca parents: diff changeset	259	InitialSelectionQuerySignal isNil ifTrue:[
dce33f8bb806 intitial checkin ca parents: diff changeset	260	InitialSelectionQuerySignal := QuerySignal new.
dce33f8bb806 intitial checkin ca parents: diff changeset	261	].
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	262
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	263	DefaultStyle isNil ifTrue:[
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	264	DefaultStyle := IdentityDictionary new.
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	265
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	266	DefaultStyle at:#foregroundColor put:(Color black).
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	267	DefaultStyle at:#backgroundColor put:DefaultViewBackgroundColor.
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	268	DefaultStyle at:#activeBackgroundColor put:(Color white).
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	269	DefaultStyle at:#disabledForegroundColor put:(Color grey:25).
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	270	DefaultStyle at:#groupDividerSize put:3.
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	271	DefaultStyle at:#fitFirstPanel put:true.
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	272	DefaultStyle at:#horizontalSpace put:0.
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	273	DefaultStyle at:#borderWidth put:1.
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	274	].
388 dce33f8bb806 intitial checkin ca parents: diff changeset	275
dce33f8bb806 intitial checkin ca parents: diff changeset	276	DefaultAdornment isNil ifTrue:[
dce33f8bb806 intitial checkin ca parents: diff changeset	277	DefaultAdornment := IdentityDictionary new.
dce33f8bb806 intitial checkin ca parents: diff changeset	278
dce33f8bb806 intitial checkin ca parents: diff changeset	279	DefaultAdornment at:#showSeparatingLines put:false.
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	280	DefaultAdornment at:#showGroupDivider put:true.
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	281	DefaultAdornment at:#verticalLayout put:true.
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	282	DefaultAdornment at:#item put:nil.
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	283	DefaultAdornment at:#value put:nil.
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	284	DefaultAdornment at:#menuHolder put:nil.
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	285	DefaultAdornment at:#enableChannel put:nil.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	286	].
dce33f8bb806 intitial checkin ca parents: diff changeset	287
dce33f8bb806 intitial checkin ca parents: diff changeset	288	"
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	289	DefaultStyle := nil.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	290	DefaultAdornment := nil.
dce33f8bb806 intitial checkin ca parents: diff changeset	291	self initialize
dce33f8bb806 intitial checkin ca parents: diff changeset	292	"
dce33f8bb806 intitial checkin ca parents: diff changeset	293	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	294
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	295	!MenuPanel class methodsFor:'private'!
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	296
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	297	subMenu:aSubMenu
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	298	"create a submenu; can be redifined in derived classes
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	299	"
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	300	^ (MenuPanel new) menu:aSubMenu.
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	301
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	302	! !
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	303
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	304	!MenuPanel class methodsFor:'tests'!
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	305
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	306	claus
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	307	"
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	308	self claus
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	309	"
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	310	\|menu panel\|
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	311
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	312	menu :=
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	313	#(#Menu #( #(#MenuItem
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	314	#label: 'File'
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	315	#submenu:
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	316	#(#Menu #(#(#MenuItem #label: 'quit' #value:#quit )
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	317	(#MenuItem
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	318	#label: 'edit'
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	319	#submenu:
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	320	#(#Menu #( #(#MenuItem #label: 'edit' #value:#edit )
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	321	#(#MenuItem #label: 'close window' #value:#close)
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	322	)
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	323	nil
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	324	nil
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	325	)
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	326	)
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	327	#(#MenuItem #label: 'help' #value:#help )
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	328	)
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	329	nil
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	330	nil
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	331	)
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	332	)
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	333	#(#MenuItem #label: 'Inspect' #value:#inspectMenu )
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	334	#(#MenuItem #label: 'Bar'
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	335	#submenu:
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	336	#(#Menu #( #(#MenuItem #label: 'bar 1' #value:#bar1 )
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	337	#(#MenuItem #label: 'bar 2' #value:#bar2 )
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	338	)
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	339	nil
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	340	nil
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	341	)
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	342	)
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	343	)
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	344	#( 2 )
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	345	nil
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	346	) decodeAsLiteralArray.
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	347
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	348	panel := self menu:menu.
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	349	panel verticalLayout:false.
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	350	Transcript showCR:(panel startUp).
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	351
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	352	!
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	353
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	354	st80test
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	355	"
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	356	MenuPanel st80test
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	357	"
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	358	\|menu\|
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	359
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	360	menu := #(#Menu #( #(#MenuItem
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	361	#rawLabel: '&File'
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	362	#submenu: #(#Menu #(
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	363	#(#MenuItem
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	364	#rawLabel: '&Save As...'
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	365	#indication: true
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	366	#value: #imageSaveAs )
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	367	#(#MenuItem
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	368	#rawLabel: '&Perm Save As...'
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	369	#value: #filePermSaveAs )
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	370	#(#MenuItem
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	371	#rawLabel: 'Perm &Undo As...'
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	372	#value: #filePermUndoAs )
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	373	#(#MenuItem
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	374	#rawLabel: '&Collect Garbage'
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	375	#value: #collectGarbage )
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	376	#(#MenuItem
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	377	#rawLabel: 'Collect All &Garbage'
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	378	#value: #collectAllGarbage )
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	379	#(#MenuItem
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	380	#rawLabel: 'Se&ttings'
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	381	#value: #visualWorksSettings )
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	382	#(#MenuItem
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	383	#rawLabel: 'E&xit VisualWorks...'
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	384	#value: #visualWorksExit )
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	385	) #(3 2 1 1 ) nil ) )
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	386	#(#MenuItem
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	387	#rawLabel: '&Browse'
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	388	#submenu: #(#Menu #(
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	389	#(#MenuItem
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	390	#rawLabel: '&All Classes'
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	391	#value: #browseAllClasses
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	392	#labelImage: #(#ResourceRetriever nil #allClassesIcon ) )
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	393	#(#MenuItem
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	394	#rawLabel: 'Class &Named...'
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	395	#value: #browseClassNamed )
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	396	#(#MenuItem
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	397	#rawLabel: '&Resources'
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	398	#value: #browseApplications
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	399	#labelImage: #(#ResourceRetriever nil #finderIcon ) )
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	400	#(#MenuItem
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	401	#rawLabel: 'References &To...'
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	402	#value: #browseSendersOf )
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	403	#(#MenuItem
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	404	#rawLabel: '&Implementors Of...'
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	405	#value: #browseImplementorsOf )
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	406	) #(3 2 ) nil ) )
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	407	#(#MenuItem
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	408	#rawLabel: '&Tools'
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	409	#submenu: #(#Menu #(
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	410	#(#MenuItem
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	411	#rawLabel: '&File List'
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	412	#value: #openFileList
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	413	#labelImage: #(#ResourceRetriever nil #fileListIcon ) )
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	414	#(#MenuItem
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	415	#rawLabel: 'File &Editor...'
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	416	#value: #openFileEditor )
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	417	#(#MenuItem
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	418	#rawLabel: '&Workspace'
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	419	#value: #toolsNewWorkspace
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	420	#labelImage: #(#ResourceRetriever nil #workspaceIcon ) )
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	421	#(#MenuItem
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	422	#rawLabel: 'Parcel &List'
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	423	#value: #openParcelList )
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	424	#(#MenuItem
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	425	#rawLabel: '&New Canvas'
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	426	#value: #toolsNewCanvas
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	427	#labelImage: #(#ResourceRetriever nil #newCanvasIcon ) )
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	428	#(#MenuItem
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	429	#rawLabel: '&Palette'
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	430	#value: #toolsPalette )
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	431	#(#MenuItem
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	432	#rawLabel: '&Canvas Tool'
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	433	#value: #toolsCanvasTool )
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	434	#(#MenuItem
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	435	#rawLabel: '&Image Editor'
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	436	#value: #toolsMaskEditor )
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	437	#(#MenuItem
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	438	#rawLabel: '&Menu Editor'
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	439	#value: #toolsMenuEditor )
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	440	#(#MenuItem
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	441	#rawLabel: '&Advanced'
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	442	#nameKey: #advanced )
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	443	#(#MenuItem
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	444	#rawLabel: '&DLL and C Connect'
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	445	#nameKey: #dllcc
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	446	#value: #openExternalFinder
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	447	#labelImage: #(#ResourceRetriever nil #extFinderIcon ) )
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	448	#(#MenuItem
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	449	#rawLabel: 'System &Transcript'
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	450	#nameKey: #transcript
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	451	#value: #toggleSystemTranscript
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	452	#indication: true )
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	453	) #(4 5 2 1 ) nil ) )
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	454	#(#MenuItem
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	455	#rawLabel: '&Changes'
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	456	#submenu: #(#Menu #(
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	457	#(#MenuItem
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	458	#rawLabel: 'Open Change &List'
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	459	#value: #changesOpenChangeList )
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	460	#(#MenuItem
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	461	#rawLabel: '&File Out Changes...'
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	462	#value: #changesFileOutChanges )
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	463	#(#MenuItem
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	464	#rawLabel: '&Empty Changes...'
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	465	#value: #changesEmptyChanges )
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	466	#(#MenuItem
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	467	#rawLabel: 'Changed &Methods'
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	468	#value: #changesChangedMethods )
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	469	#(#MenuItem
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	470	#rawLabel: 'Inspect &ChangeSet'
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	471	#value: #changesInspectChangeSet )
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	472	#(#MenuItem
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	473	#rawLabel: 'Open &Project'
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	474	#value: #changesOpenProject )
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	475	#(#MenuItem
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	476	#rawLabel: 'E&xit Project'
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	477	#value: #changesExitProject )
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	478	) #(1 4 2 ) nil ) )
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	479	#(#MenuItem
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	480	#rawLabel: '&Database'
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	481	#submenu: #(#Menu #(
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	482	#(#MenuItem
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	483	#rawLabel: 'Ad Hoc &SQL'
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	484	#nameKey: #adHoc
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	485	#value: #openAdHocQuery )
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	486	#(#MenuItem
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	487	#rawLabel: 'Data &Modeler'
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	488	#nameKey: #dataModeler
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	489	#value: #openDataModelBrowser
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	490	#labelImage: #(#ResourceRetriever nil #dbToolIcon ) )
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	491	#(#MenuItem
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	492	#rawLabel: 'Canvas &Composer'
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	493	#nameKey: #canvasComposer
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	494	#value: #openCanvasComposer )
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	495	#(#MenuItem
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	496	#rawLabel: 'New Data &Form...'
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	497	#nameKey: #dataForm
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	498	#value: #newDataForm )
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	499	#(#MenuItem
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	500	#rawLabel: 'New Database &Application...'
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	501	#nameKey: #dataBaseAp
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	502	#value: #newDataMain )
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	503	) #(1 4 ) nil ) )
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	504	#(#MenuItem
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	505	#rawLabel: '&Window'
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	506	#submenu: #(#Menu #(
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	507	#(#MenuItem
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	508	#rawLabel: 'Re&fresh All'
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	509	#value: #winRefreshAll )
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	510	#(#MenuItem
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	511	#rawLabel: '&Collapse All'
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	512	#value: #winCollapseAll )
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	513	#(#MenuItem
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	514	#rawLabel: 'Re&store All'
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	515	#value: #winRestoreAll )
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	516	#(#MenuItem
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	517	#rawLabel: '&Windows'
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	518	#nameKey: #windowsMenu )
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	519	) #(3 1 ) nil ) )
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	520	#(#MenuItem
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	521	#rawLabel: '&Help'
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	522	#submenu: #(#Menu #(
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	523	#(#MenuItem
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	524	#rawLabel: 'Open Online &Documentation'
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	525	#value: #openHelpBrowser
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	526	#labelImage: #(#ResourceRetriever nil #helpIcon ) )
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	527	#(#MenuItem
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	528	#rawLabel: '&Quick Start Guides...'
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	529	#value: #openGuidingDialog )
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	530	#(#MenuItem
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	531	#rawLabel: 'About &VisualWorks...'
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	532	#value: #helpAbout )
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	533	) #(2 1 ) nil ) )
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	534	) #(7 ) nil
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	535	)
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	536	decodeAsLiteralArray.
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	537
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	538	Transcript showCR:(menu startUp).
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	539
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	540
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	541
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	542	!
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	543
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	544	test
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	545	"
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	546	self test
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	547	"
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	548	\|top subView mview desc s1 s2 s3 img lbs labels\|
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	549
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	550	top := StandardSystemView new.
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	551
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	552	mview := self in:top.
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	553
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	554	labels := #( 'foo' 'bar' 'baz' 'test' 'claus' ).
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	555	mview level:2.
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	556	mview verticalLayout:false.
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	557	img := Image fromFile:'bitmaps/SBrowser.xbm'.
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	558	lbs := Array with:'foo' with:'bar' with:img with:'baz' with:'test' with:'ludwig'.
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	559	mview labels:lbs.
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	560	mview shortcutKeyAt:2 put:#Cut.
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	561	mview accessCharacterPositionAt:1 put:1.
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	562	mview accessCharacterPositionAt:2 put:2.
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	563
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	564	mview enabledAt:5 put:false.
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	565	mview groupSizes:#( 2 2 ).
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	566	s1 := self labels:labels.
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	567	s1 accessCharacterPositionAt:1 put:1.
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	568	s1 accessCharacterPositionAt:2 put:2.
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	569	s1 groupSizes:#( 2 2 ).
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	570	s2 := self labels:#( '1' nil '2' '-' '3' '=' '4' ' ' '5' ).
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	571	s3 := self labels:lbs.
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	572
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	573	s1 subMenuAt:2 put:s2.
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	574	s1 subMenuAt:3 put:(self labels:lbs).
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	575	s2 subMenuAt:3 put:s3.
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	576	s3 subMenuAt:3 put:(self labels:labels).
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	577	s3 shortcutKeyAt:3 put:$q.
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	578
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	579	mview subMenuAt:1 put:s1.
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	580	mview subMenuAt:4 put:(self labels:lbs).
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	581	(mview subMenuAt:4) shortcutKeyAt:3 put:#Copy.
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	582	s1 shortcutKeyAt:1 put:#Copy.
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	583	s1 shortcutKeyAt:3 put:#Paste.
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	584
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	585	mview subMenuAt:2 put:(self labels:labels).
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	586	top extent:(400 @ (mview height)).
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	587	top open.
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	588
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	589	! !
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	590
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	591	!MenuPanel methodsFor:'accept'!
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	592
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	593	accept
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	594	"accept current selected item
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	595	"
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	596	self accept:(self selection)
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	597	!
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	598
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	599	accept:anItem
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	600	"this is the topMenu: accept item
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	601	"
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	602	\|value item topMenu\|
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	603
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	604	self superMenu notNil ifTrue:[
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	605	^ self topMenu accept:anItem
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	606	].
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	607	self selection:nil.
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	608	self ungrabMouseAndKeyboard.
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	609
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	610	anItem notNil ifTrue:[
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	611	value := anItem accept.
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	612
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	613	value notNil ifTrue:[
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	614	item := anItem
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	615	]
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	616	].
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	617
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	618	self menuAdornmentAt:#value put:value.
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	619	self menuAdornmentAt:#item put:item.
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	620
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	621	self isPopUpView ifTrue:[
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	622	self destroy
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	623	] ifFalse:[
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	624	self do:[:el\| el updateIndicators].
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	625	].
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	626	^ item.
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	627
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	628	!
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	629
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	630	lastItemAccepted
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	631	"returns last item selected or nil
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	632	"
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	633	^ self topMenu menuAdornmentAt:#item
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	634	!
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	635
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	636	lastValueAccepted
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	637	"returns last value accepted or nil
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	638	"
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	639	^ self topMenu menuAdornmentAt:#value.
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	640	! !
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	641
388 dce33f8bb806 intitial checkin ca parents: diff changeset	642	!MenuPanel methodsFor:'accessing'!
dce33f8bb806 intitial checkin ca parents: diff changeset	643
dce33f8bb806 intitial checkin ca parents: diff changeset	644	accessCharacterPositionAt:stringOrNumber
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	645	"get the access character position for a textLabel
388 dce33f8bb806 intitial checkin ca parents: diff changeset	646	"
dce33f8bb806 intitial checkin ca parents: diff changeset	647	^ self itemAt:stringOrNumber do:[:el\| el accessCharacterPosition ]
dce33f8bb806 intitial checkin ca parents: diff changeset	648	!
dce33f8bb806 intitial checkin ca parents: diff changeset	649
dce33f8bb806 intitial checkin ca parents: diff changeset	650	accessCharacterPositionAt:stringOrNumber put:anIndexOrNil
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	651	"get the access character position for a textLabel
388 dce33f8bb806 intitial checkin ca parents: diff changeset	652	"
dce33f8bb806 intitial checkin ca parents: diff changeset	653	self itemAt:stringOrNumber do:[:el\| el accessCharacterPosition:anIndexOrNil ]
dce33f8bb806 intitial checkin ca parents: diff changeset	654	!
dce33f8bb806 intitial checkin ca parents: diff changeset	655
dce33f8bb806 intitial checkin ca parents: diff changeset	656	accessCharacterPositions
dce33f8bb806 intitial checkin ca parents: diff changeset	657	"returns a collection of accessCharacterPosition's or nil
dce33f8bb806 intitial checkin ca parents: diff changeset	658	"
dce33f8bb806 intitial checkin ca parents: diff changeset	659	^ self collect:[:anItem\| anItem accessCharacterPosition ]
dce33f8bb806 intitial checkin ca parents: diff changeset	660
dce33f8bb806 intitial checkin ca parents: diff changeset	661	!
dce33f8bb806 intitial checkin ca parents: diff changeset	662
dce33f8bb806 intitial checkin ca parents: diff changeset	663	accessCharacterPositions:something
dce33f8bb806 intitial checkin ca parents: diff changeset	664	"define accessCharacterPosition's for each item
dce33f8bb806 intitial checkin ca parents: diff changeset	665	"
dce33f8bb806 intitial checkin ca parents: diff changeset	666	self onEachPerform:#accessCharacterPosition: withArgList:something
dce33f8bb806 intitial checkin ca parents: diff changeset	667	!
dce33f8bb806 intitial checkin ca parents: diff changeset	668
dce33f8bb806 intitial checkin ca parents: diff changeset	669	args
dce33f8bb806 intitial checkin ca parents: diff changeset	670	"returns a collection of argument's or nil
dce33f8bb806 intitial checkin ca parents: diff changeset	671	"
dce33f8bb806 intitial checkin ca parents: diff changeset	672	^ self collect:[:anItem\| anItem argument ]
dce33f8bb806 intitial checkin ca parents: diff changeset	673	!
dce33f8bb806 intitial checkin ca parents: diff changeset	674
dce33f8bb806 intitial checkin ca parents: diff changeset	675	args:something
dce33f8bb806 intitial checkin ca parents: diff changeset	676	"define arguments for each item
dce33f8bb806 intitial checkin ca parents: diff changeset	677	"
dce33f8bb806 intitial checkin ca parents: diff changeset	678	self onEachPerform:#argument: withArgList:something
dce33f8bb806 intitial checkin ca parents: diff changeset	679	!
dce33f8bb806 intitial checkin ca parents: diff changeset	680
dce33f8bb806 intitial checkin ca parents: diff changeset	681	argsAt:stringOrNumber
dce33f8bb806 intitial checkin ca parents: diff changeset	682	"gets the argument of an item or nil
dce33f8bb806 intitial checkin ca parents: diff changeset	683	"
dce33f8bb806 intitial checkin ca parents: diff changeset	684	^ self itemAt:stringOrNumber do:[:el\| el argument ]
dce33f8bb806 intitial checkin ca parents: diff changeset	685	!
dce33f8bb806 intitial checkin ca parents: diff changeset	686
dce33f8bb806 intitial checkin ca parents: diff changeset	687	argsAt:stringOrNumber put:anArgument
dce33f8bb806 intitial checkin ca parents: diff changeset	688	"sets the argument of an item
dce33f8bb806 intitial checkin ca parents: diff changeset	689	"
dce33f8bb806 intitial checkin ca parents: diff changeset	690	self itemAt:stringOrNumber do:[:el\| el argument:anArgument ]
dce33f8bb806 intitial checkin ca parents: diff changeset	691	!
dce33f8bb806 intitial checkin ca parents: diff changeset	692
dce33f8bb806 intitial checkin ca parents: diff changeset	693	groupSizes
dce33f8bb806 intitial checkin ca parents: diff changeset	694	"gets collection of group sizes
dce33f8bb806 intitial checkin ca parents: diff changeset	695	"
dce33f8bb806 intitial checkin ca parents: diff changeset	696	^ groupSizes
dce33f8bb806 intitial checkin ca parents: diff changeset	697	!
dce33f8bb806 intitial checkin ca parents: diff changeset	698
dce33f8bb806 intitial checkin ca parents: diff changeset	699	groupSizes:aGroupSizes
dce33f8bb806 intitial checkin ca parents: diff changeset	700	"sets collection of group sizes
dce33f8bb806 intitial checkin ca parents: diff changeset	701	"
dce33f8bb806 intitial checkin ca parents: diff changeset	702	aGroupSizes = groupSizes ifFalse:[
dce33f8bb806 intitial checkin ca parents: diff changeset	703	groupSizes := aGroupSizes copy.
dce33f8bb806 intitial checkin ca parents: diff changeset	704	self mustRearrange.
dce33f8bb806 intitial checkin ca parents: diff changeset	705	].
dce33f8bb806 intitial checkin ca parents: diff changeset	706	!
dce33f8bb806 intitial checkin ca parents: diff changeset	707
dce33f8bb806 intitial checkin ca parents: diff changeset	708	labelAt:stringOrNumber
dce33f8bb806 intitial checkin ca parents: diff changeset	709	"gets the label of an item or nil
dce33f8bb806 intitial checkin ca parents: diff changeset	710	"
dce33f8bb806 intitial checkin ca parents: diff changeset	711	^ self itemAt:stringOrNumber do:[:el\| el label ]
dce33f8bb806 intitial checkin ca parents: diff changeset	712	!
dce33f8bb806 intitial checkin ca parents: diff changeset	713
dce33f8bb806 intitial checkin ca parents: diff changeset	714	labelAt:stringOrNumber put:aLabel
dce33f8bb806 intitial checkin ca parents: diff changeset	715	"sets the label of an item
dce33f8bb806 intitial checkin ca parents: diff changeset	716	"
dce33f8bb806 intitial checkin ca parents: diff changeset	717	self itemAt:stringOrNumber do:[:el\| el label:aLabel ]
dce33f8bb806 intitial checkin ca parents: diff changeset	718	!
dce33f8bb806 intitial checkin ca parents: diff changeset	719
dce33f8bb806 intitial checkin ca parents: diff changeset	720	labels
dce33f8bb806 intitial checkin ca parents: diff changeset	721	"returns a collection of labels's or nil
dce33f8bb806 intitial checkin ca parents: diff changeset	722	"
dce33f8bb806 intitial checkin ca parents: diff changeset	723	^ self collect:[:anItem\| anItem label ]
dce33f8bb806 intitial checkin ca parents: diff changeset	724
dce33f8bb806 intitial checkin ca parents: diff changeset	725	!
dce33f8bb806 intitial checkin ca parents: diff changeset	726
dce33f8bb806 intitial checkin ca parents: diff changeset	727	labels:labels
dce33f8bb806 intitial checkin ca parents: diff changeset	728	"define labels for each item
dce33f8bb806 intitial checkin ca parents: diff changeset	729	"
dce33f8bb806 intitial checkin ca parents: diff changeset	730	self disabledRedrawDo:[
dce33f8bb806 intitial checkin ca parents: diff changeset	731	self removeAll.
dce33f8bb806 intitial checkin ca parents: diff changeset	732
dce33f8bb806 intitial checkin ca parents: diff changeset	733	labels notNil ifTrue:[
dce33f8bb806 intitial checkin ca parents: diff changeset	734	labels do:[:aLabel\|(self createAtIndex:nil) label:aLabel]
dce33f8bb806 intitial checkin ca parents: diff changeset	735	]
dce33f8bb806 intitial checkin ca parents: diff changeset	736	]
dce33f8bb806 intitial checkin ca parents: diff changeset	737	!
dce33f8bb806 intitial checkin ca parents: diff changeset	738
dce33f8bb806 intitial checkin ca parents: diff changeset	739	nameKeyAt:stringOrNumber
dce33f8bb806 intitial checkin ca parents: diff changeset	740	"gets the nameKey of an item or nil
dce33f8bb806 intitial checkin ca parents: diff changeset	741	"
dce33f8bb806 intitial checkin ca parents: diff changeset	742	^ self itemAt:stringOrNumber do:[:el\| el nameKey ]
dce33f8bb806 intitial checkin ca parents: diff changeset	743	!
dce33f8bb806 intitial checkin ca parents: diff changeset	744
dce33f8bb806 intitial checkin ca parents: diff changeset	745	nameKeyAt:stringOrNumber put:aNameKey
dce33f8bb806 intitial checkin ca parents: diff changeset	746	"sets the nameKey of an item
dce33f8bb806 intitial checkin ca parents: diff changeset	747	"
dce33f8bb806 intitial checkin ca parents: diff changeset	748	self itemAt:stringOrNumber do:[:el\| el nameKey:aNameKey ]
dce33f8bb806 intitial checkin ca parents: diff changeset	749	!
dce33f8bb806 intitial checkin ca parents: diff changeset	750
dce33f8bb806 intitial checkin ca parents: diff changeset	751	nameKeys
dce33f8bb806 intitial checkin ca parents: diff changeset	752	"returns a collection of nameKeys's or nil
dce33f8bb806 intitial checkin ca parents: diff changeset	753	"
dce33f8bb806 intitial checkin ca parents: diff changeset	754	^ self collect:[:anItem\| anItem nameKey ]
dce33f8bb806 intitial checkin ca parents: diff changeset	755	!
dce33f8bb806 intitial checkin ca parents: diff changeset	756
dce33f8bb806 intitial checkin ca parents: diff changeset	757	nameKeys:something
dce33f8bb806 intitial checkin ca parents: diff changeset	758	"define nameKeys for each item
dce33f8bb806 intitial checkin ca parents: diff changeset	759	"
dce33f8bb806 intitial checkin ca parents: diff changeset	760	self onEachPerform:#nameKey: withArgList:something
dce33f8bb806 intitial checkin ca parents: diff changeset	761	!
dce33f8bb806 intitial checkin ca parents: diff changeset	762
dce33f8bb806 intitial checkin ca parents: diff changeset	763	numberOfItems
dce33f8bb806 intitial checkin ca parents: diff changeset	764	"gets number of items
dce33f8bb806 intitial checkin ca parents: diff changeset	765	"
dce33f8bb806 intitial checkin ca parents: diff changeset	766	^ items size
dce33f8bb806 intitial checkin ca parents: diff changeset	767	!
dce33f8bb806 intitial checkin ca parents: diff changeset	768
dce33f8bb806 intitial checkin ca parents: diff changeset	769	receiver
dce33f8bb806 intitial checkin ca parents: diff changeset	770	"get the menu-receiver. Thats the one who gets the messages ( both from myself and
dce33f8bb806 intitial checkin ca parents: diff changeset	771	from all submenus no specific receiver is defined ).
dce33f8bb806 intitial checkin ca parents: diff changeset	772	"
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	773	(receiver isNil and:[superMenu notNil]) ifTrue:[
388 dce33f8bb806 intitial checkin ca parents: diff changeset	774	^ superMenu receiver
dce33f8bb806 intitial checkin ca parents: diff changeset	775	].
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	776	^ receiver
388 dce33f8bb806 intitial checkin ca parents: diff changeset	777	!
dce33f8bb806 intitial checkin ca parents: diff changeset	778
dce33f8bb806 intitial checkin ca parents: diff changeset	779	receiver:anObject
dce33f8bb806 intitial checkin ca parents: diff changeset	780	"set the menu-receiver. Thats the one who gets the messages ( both from myself and
dce33f8bb806 intitial checkin ca parents: diff changeset	781	from all submenus no specific receiver is defined ).
dce33f8bb806 intitial checkin ca parents: diff changeset	782	"
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	783	receiver := anObject
388 dce33f8bb806 intitial checkin ca parents: diff changeset	784	!
dce33f8bb806 intitial checkin ca parents: diff changeset	785
dce33f8bb806 intitial checkin ca parents: diff changeset	786	shortcutKeyAt:stringOrNumber
dce33f8bb806 intitial checkin ca parents: diff changeset	787	"gets the shortCutKey of an item or nil
dce33f8bb806 intitial checkin ca parents: diff changeset	788	"
dce33f8bb806 intitial checkin ca parents: diff changeset	789	^ self itemAt:stringOrNumber do:[:el\| el shortcutKey ]
dce33f8bb806 intitial checkin ca parents: diff changeset	790	!
dce33f8bb806 intitial checkin ca parents: diff changeset	791
dce33f8bb806 intitial checkin ca parents: diff changeset	792	shortcutKeyAt:stringOrNumber put:aKey
dce33f8bb806 intitial checkin ca parents: diff changeset	793	"sets the shortCutKey of an item
dce33f8bb806 intitial checkin ca parents: diff changeset	794	"
dce33f8bb806 intitial checkin ca parents: diff changeset	795	self itemAt:stringOrNumber do:[:el\| el shortcutKey:aKey ]
dce33f8bb806 intitial checkin ca parents: diff changeset	796	!
dce33f8bb806 intitial checkin ca parents: diff changeset	797
dce33f8bb806 intitial checkin ca parents: diff changeset	798	shortcutKeys
dce33f8bb806 intitial checkin ca parents: diff changeset	799	"returns a collection of shortcutKey's or nil
dce33f8bb806 intitial checkin ca parents: diff changeset	800	"
dce33f8bb806 intitial checkin ca parents: diff changeset	801	^ self collect:[:anItem\| anItem shortcutKey ]
dce33f8bb806 intitial checkin ca parents: diff changeset	802
dce33f8bb806 intitial checkin ca parents: diff changeset	803	!
dce33f8bb806 intitial checkin ca parents: diff changeset	804
dce33f8bb806 intitial checkin ca parents: diff changeset	805	shortcutKeys:something
dce33f8bb806 intitial checkin ca parents: diff changeset	806	"define shortcutKey's for each item
dce33f8bb806 intitial checkin ca parents: diff changeset	807	"
dce33f8bb806 intitial checkin ca parents: diff changeset	808	self onEachPerform:#shortcutKey: withArgList:something
dce33f8bb806 intitial checkin ca parents: diff changeset	809	!
dce33f8bb806 intitial checkin ca parents: diff changeset	810
dce33f8bb806 intitial checkin ca parents: diff changeset	811	valueAt:stringOrNumber
dce33f8bb806 intitial checkin ca parents: diff changeset	812	"gets value of an item; a block, valueHolder, ...
dce33f8bb806 intitial checkin ca parents: diff changeset	813	"
dce33f8bb806 intitial checkin ca parents: diff changeset	814	^ self itemAt:stringOrNumber do:[:el\| el value ]
dce33f8bb806 intitial checkin ca parents: diff changeset	815
dce33f8bb806 intitial checkin ca parents: diff changeset	816	!
dce33f8bb806 intitial checkin ca parents: diff changeset	817
dce33f8bb806 intitial checkin ca parents: diff changeset	818	valueAt:stringOrNumber put:someThing
dce33f8bb806 intitial checkin ca parents: diff changeset	819	"sets value of an item; a block, valueHolder, ...
dce33f8bb806 intitial checkin ca parents: diff changeset	820	"
dce33f8bb806 intitial checkin ca parents: diff changeset	821	self itemAt:stringOrNumber do:[:el\| el value:someThing ]
dce33f8bb806 intitial checkin ca parents: diff changeset	822
dce33f8bb806 intitial checkin ca parents: diff changeset	823
dce33f8bb806 intitial checkin ca parents: diff changeset	824	!
dce33f8bb806 intitial checkin ca parents: diff changeset	825
dce33f8bb806 intitial checkin ca parents: diff changeset	826	values:something
dce33f8bb806 intitial checkin ca parents: diff changeset	827	"define values for each item
dce33f8bb806 intitial checkin ca parents: diff changeset	828	"
dce33f8bb806 intitial checkin ca parents: diff changeset	829	self onEachPerform:#value: withArgList:something
dce33f8bb806 intitial checkin ca parents: diff changeset	830	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	831
dce33f8bb806 intitial checkin ca parents: diff changeset	832	!MenuPanel methodsFor:'accessing behavior'!
dce33f8bb806 intitial checkin ca parents: diff changeset	833
dce33f8bb806 intitial checkin ca parents: diff changeset	834	disable
dce33f8bb806 intitial checkin ca parents: diff changeset	835	"disable the menu and all its entries
dce33f8bb806 intitial checkin ca parents: diff changeset	836	"
dce33f8bb806 intitial checkin ca parents: diff changeset	837	self enabled:false
dce33f8bb806 intitial checkin ca parents: diff changeset	838	!
dce33f8bb806 intitial checkin ca parents: diff changeset	839
dce33f8bb806 intitial checkin ca parents: diff changeset	840	disableAll
dce33f8bb806 intitial checkin ca parents: diff changeset	841	"disable all items
dce33f8bb806 intitial checkin ca parents: diff changeset	842	"
dce33f8bb806 intitial checkin ca parents: diff changeset	843	self do:[:anItem\| anItem enabled:false ]
dce33f8bb806 intitial checkin ca parents: diff changeset	844	!
dce33f8bb806 intitial checkin ca parents: diff changeset	845
dce33f8bb806 intitial checkin ca parents: diff changeset	846	disableAll:collectionOfIndicesOrNames
dce33f8bb806 intitial checkin ca parents: diff changeset	847	"disable an collection of items
dce33f8bb806 intitial checkin ca parents: diff changeset	848	"
dce33f8bb806 intitial checkin ca parents: diff changeset	849	collectionOfIndicesOrNames do:[:entry\| self enabledAt:entry put:false ].
dce33f8bb806 intitial checkin ca parents: diff changeset	850
dce33f8bb806 intitial checkin ca parents: diff changeset	851	!
dce33f8bb806 intitial checkin ca parents: diff changeset	852
dce33f8bb806 intitial checkin ca parents: diff changeset	853	enable
dce33f8bb806 intitial checkin ca parents: diff changeset	854	"enable the menu and all its entries
dce33f8bb806 intitial checkin ca parents: diff changeset	855	"
dce33f8bb806 intitial checkin ca parents: diff changeset	856	self enabled:true
dce33f8bb806 intitial checkin ca parents: diff changeset	857	!
dce33f8bb806 intitial checkin ca parents: diff changeset	858
dce33f8bb806 intitial checkin ca parents: diff changeset	859	enableAll
dce33f8bb806 intitial checkin ca parents: diff changeset	860	"enable all items
dce33f8bb806 intitial checkin ca parents: diff changeset	861	"
dce33f8bb806 intitial checkin ca parents: diff changeset	862	self do:[:anItem\| anItem enabled:true ]
dce33f8bb806 intitial checkin ca parents: diff changeset	863	!
dce33f8bb806 intitial checkin ca parents: diff changeset	864
dce33f8bb806 intitial checkin ca parents: diff changeset	865	enableAll:collectionOfIndicesOrNames
dce33f8bb806 intitial checkin ca parents: diff changeset	866	"enable an collection of items
dce33f8bb806 intitial checkin ca parents: diff changeset	867	"
dce33f8bb806 intitial checkin ca parents: diff changeset	868	collectionOfIndicesOrNames do:[:entry\| self enabledAt:entry put:true ].
dce33f8bb806 intitial checkin ca parents: diff changeset	869
dce33f8bb806 intitial checkin ca parents: diff changeset	870	!
dce33f8bb806 intitial checkin ca parents: diff changeset	871
dce33f8bb806 intitial checkin ca parents: diff changeset	872	enabled
dce33f8bb806 intitial checkin ca parents: diff changeset	873	"returns enabled state
dce33f8bb806 intitial checkin ca parents: diff changeset	874	"
dce33f8bb806 intitial checkin ca parents: diff changeset	875	superMenu isNil ifTrue:[
dce33f8bb806 intitial checkin ca parents: diff changeset	876	^ (self findFirst:[:anItem\|anItem enabled]) ~~ 0
dce33f8bb806 intitial checkin ca parents: diff changeset	877	].
dce33f8bb806 intitial checkin ca parents: diff changeset	878	^ superMenu enabledAt:(superMenu findFirst:[:anItem\|anItem submenu == self])
dce33f8bb806 intitial checkin ca parents: diff changeset	879	!
dce33f8bb806 intitial checkin ca parents: diff changeset	880
dce33f8bb806 intitial checkin ca parents: diff changeset	881	enabled:aState
dce33f8bb806 intitial checkin ca parents: diff changeset	882	"change enabled state of menu
dce33f8bb806 intitial checkin ca parents: diff changeset	883	"
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	884	\|idx state\|
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	885
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	886	state := aState ? true.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	887
dce33f8bb806 intitial checkin ca parents: diff changeset	888	superMenu isNil ifTrue:[
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	889	self do:[:anItem\| anItem enabled:state ]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	890	] ifFalse:[
dce33f8bb806 intitial checkin ca parents: diff changeset	891	idx := superMenu findFirst:[:anItem\| anItem submenu == self ].
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	892	superMenu enabledAt:idx put:state.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	893	]
dce33f8bb806 intitial checkin ca parents: diff changeset	894	!
dce33f8bb806 intitial checkin ca parents: diff changeset	895
dce33f8bb806 intitial checkin ca parents: diff changeset	896	enabledAt:stringOrNumber
dce33f8bb806 intitial checkin ca parents: diff changeset	897	"gets the enabled state of an item or false
dce33f8bb806 intitial checkin ca parents: diff changeset	898	"
dce33f8bb806 intitial checkin ca parents: diff changeset	899	^ self itemAt:stringOrNumber do:[:el\| el enabled ] ifAbsent:false
dce33f8bb806 intitial checkin ca parents: diff changeset	900	!
dce33f8bb806 intitial checkin ca parents: diff changeset	901
dce33f8bb806 intitial checkin ca parents: diff changeset	902	enabledAt:stringOrNumber put:aState
dce33f8bb806 intitial checkin ca parents: diff changeset	903	"sets the enabled state of an item
dce33f8bb806 intitial checkin ca parents: diff changeset	904	"
dce33f8bb806 intitial checkin ca parents: diff changeset	905	self itemAt:stringOrNumber do:[:el\| el enabled:aState ]
dce33f8bb806 intitial checkin ca parents: diff changeset	906	!
dce33f8bb806 intitial checkin ca parents: diff changeset	907
dce33f8bb806 intitial checkin ca parents: diff changeset	908	isEnabled:stringOrNumber
dce33f8bb806 intitial checkin ca parents: diff changeset	909	"gets the enabled state of an item or false
dce33f8bb806 intitial checkin ca parents: diff changeset	910	"
dce33f8bb806 intitial checkin ca parents: diff changeset	911	^ self enabledAt:stringOrNumber
dce33f8bb806 intitial checkin ca parents: diff changeset	912	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	913
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	914	!MenuPanel methodsFor:'accessing channels'!
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	915
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	916	enableChannel
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	917	"gets a enable channel or nil
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	918	"
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	919	adornment isNil ifTrue:[^ nil].
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	920	^ adornment at:#enableChannel ifAbsent:nil
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	921	!
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	922
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	923	enableChannel:aValueHolder
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	924	"set my enableChannel
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	925	"
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	926	\|enableChannel\|
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	927
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	928	(enableChannel := self enableChannel) notNil ifTrue:[
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	929	enableChannel removeDependent:self
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	930	].
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	931
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	932	aValueHolder notNil ifTrue:[
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	933	adornment isNil ifTrue:[
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	934	adornment := DefaultAdornment copy
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	935	].
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	936	adornment at:#enableChannel put:aValueHolder.
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	937	aValueHolder addDependent:self.
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	938	].
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	939	self enabled:(aValueHolder value)
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	940	!
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	941
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	942	menuHolder
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	943	"gets a menu holder or nil
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	944	"
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	945	adornment isNil ifTrue:[^ nil].
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	946	^ adornment at:#menuHolder ifAbsent:nil
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	947	!
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	948
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	949	menuHolder:aValueHolder
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	950	"set a menu holder
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	951	"
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	952	\|menuHolder\|
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	953
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	954	(menuHolder := self menuHolder) notNil ifTrue:[
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	955	menuHolder removeDependent:self
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	956	].
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	957
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	958	aValueHolder notNil ifTrue:[
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	959	adornment isNil ifTrue:[
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	960	adornment := DefaultAdornment copy
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	961	].
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	962	adornment at:#menuHolder put:aValueHolder.
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	963	aValueHolder addDependent:self.
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	964	].
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	965	self menu:(aValueHolder value)
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	966	! !
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	967
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	968	!MenuPanel methodsFor:'accessing color & font'!
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	969
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	970	activeBackgroundColor
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	971	"return the background color used to highlight selections
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	972	"
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	973	^ self styleAt:#activeBackgroundColor
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	974	!
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	975
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	976	activeBackgroundColor:aColor
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	977	"set the background drawing color used to highlight selection. You should not
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	978	use this method; instead leave the value as defined in the styleSheet.
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	979	"
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	980	self styleAt:#activeBackgroundColor put:aColor
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	981	!
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	982
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	983	backgroundColor
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	984	"return the background color
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	985	"
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	986	^ self styleAt:#backgroundColor
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	987	!
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	988
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	989	backgroundColor:aColor
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	990	"set the background drawing color. You should not use this method;
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	991	instead leave the value as defined in the styleSheet.
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	992	"
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	993	self styleAt:#backgroundColor put:aColor
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	994	!
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	995
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	996	disabledForegroundColor
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	997	"return the foreground color used by disabled items
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	998	"
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	999	^ self styleAt:#disabledForegroundColor
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1000
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1001	!
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1002
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1003	disabledForegroundColor:aColor
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1004	"set the foregroundColor drawing color used by disabled items. You should not
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1005	use this method; instead leave the value as defined in the styleSheet.
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1006	"
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1007	self styleAt:#disabledForegroundColor put:aColor
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1008	!
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1009
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1010	font:aFont
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1011	"set the font
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1012	"
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1013	superMenu notNil ifTrue:[
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1014	self topMenu font:aFont
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1015	] ifFalse:[
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1016	(aFont notNil and:[aFont ~~ font]) ifTrue:[
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1017	super font:(aFont on:device).
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1018	self mustRearrange.
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1019	]
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1020	]
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1021
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1022
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1023	!
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1024
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1025	foregroundColor
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1026	"return the passive foreground color
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1027	"
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1028	^ self styleAt:#foregroundColor
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1029
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1030
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1031	!
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1032
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1033	foregroundColor:aColor
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1034	"set the foregroundColor drawing color. You should not use this method;
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1035	instead leave the value as defined in the styleSheet.
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1036	"
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1037	self styleAt:#foregroundColor put:aColor
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1038	!
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1039
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1040	lightColor
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1041	"get the lightColor
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1042	"
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1043	^ lightColor
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1044
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1045
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1046	!
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1047
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1048	lightColor:aColor
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1049	"set the light drawing color. You should not use this method;
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1050	instead leave the value as defined in the styleSheet.
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1051	"
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1052	lightColor ~~ aColor ifTrue:[
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1053	super lightColor:aColor.
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1054
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1055	shown ifTrue:[
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1056	self invalidate
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1057	]
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1058	]
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1059
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1060
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1061	!
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1062
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1063	shadowColor
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1064	"get the shadowColor
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1065	"
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1066	^ shadowColor
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1067
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1068
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1069	!
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1070
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1071	shadowColor:aColor
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1072	"set the shadow drawing color. You should not use this method;
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1073	instead leave the value as defined in the styleSheet.
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1074	"
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1075	shadowColor ~~ aColor ifTrue:[
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1076	super shadowColor:aColor.
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1077
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1078	shown ifTrue:[
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1079	self invalidate
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1080	]
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1081	]
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1082
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1083
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1084	! !
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1085
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1086	!MenuPanel methodsFor:'accessing dimensions'!
dce33f8bb806 intitial checkin ca parents: diff changeset	1087
dce33f8bb806 intitial checkin ca parents: diff changeset	1088	height
dce33f8bb806 intitial checkin ca parents: diff changeset	1089	"default height
dce33f8bb806 intitial checkin ca parents: diff changeset	1090	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1091	\|item\|
dce33f8bb806 intitial checkin ca parents: diff changeset	1092
dce33f8bb806 intitial checkin ca parents: diff changeset	1093	(explicitExtent ~~ true) ifTrue:[
dce33f8bb806 intitial checkin ca parents: diff changeset	1094	(item := self itemAt:1) notNil ifTrue:[
dce33f8bb806 intitial checkin ca parents: diff changeset	1095	self rearrangeItems.
dce33f8bb806 intitial checkin ca parents: diff changeset	1096	^ item height
dce33f8bb806 intitial checkin ca parents: diff changeset	1097	].
dce33f8bb806 intitial checkin ca parents: diff changeset	1098	^ 4 + (font height + (font descent * 2)).
dce33f8bb806 intitial checkin ca parents: diff changeset	1099	].
dce33f8bb806 intitial checkin ca parents: diff changeset	1100	^ super height
dce33f8bb806 intitial checkin ca parents: diff changeset	1101	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1102
dce33f8bb806 intitial checkin ca parents: diff changeset	1103	preferredExtent
dce33f8bb806 intitial checkin ca parents: diff changeset	1104	"compute and returns my preferred extent
dce33f8bb806 intitial checkin ca parents: diff changeset	1105	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1106	\|x y hasMenu shCtKey\|
dce33f8bb806 intitial checkin ca parents: diff changeset	1107
dce33f8bb806 intitial checkin ca parents: diff changeset	1108	self numberOfItems == 0 ifTrue:[
dce33f8bb806 intitial checkin ca parents: diff changeset	1109	^ 32 @ 32
dce33f8bb806 intitial checkin ca parents: diff changeset	1110	].
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1111	self isFitPanel ifTrue:[
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1112	x := 0
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1113	] ifFalse:[
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1114	x := groupSizes size * self groupDividerSize.
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1115	].
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1116
dce33f8bb806 intitial checkin ca parents: diff changeset	1117	self verticalLayout ifFalse:[
dce33f8bb806 intitial checkin ca parents: diff changeset	1118	y := 0.
dce33f8bb806 intitial checkin ca parents: diff changeset	1119
dce33f8bb806 intitial checkin ca parents: diff changeset	1120	self do:[:el\|\|z\|
dce33f8bb806 intitial checkin ca parents: diff changeset	1121	x := x + el preferredExtentX.
dce33f8bb806 intitial checkin ca parents: diff changeset	1122	y < (z := el preferredExtentY) ifTrue:[y := z]
dce33f8bb806 intitial checkin ca parents: diff changeset	1123	].
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1124	x := x + ((items size - 1) * self horizontalSpace).
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1125	] ifTrue:[
dce33f8bb806 intitial checkin ca parents: diff changeset	1126	hasMenu := false.
dce33f8bb806 intitial checkin ca parents: diff changeset	1127	shCtKey := 0.
dce33f8bb806 intitial checkin ca parents: diff changeset	1128	y := x.
dce33f8bb806 intitial checkin ca parents: diff changeset	1129	x := 0.
dce33f8bb806 intitial checkin ca parents: diff changeset	1130
dce33f8bb806 intitial checkin ca parents: diff changeset	1131	self do:[:el\| \|l e\|
dce33f8bb806 intitial checkin ca parents: diff changeset	1132	(l := el rawLabel) notNil ifTrue:[
dce33f8bb806 intitial checkin ca parents: diff changeset	1133	(e := l widthOn:self) > x ifTrue:[x := e].
dce33f8bb806 intitial checkin ca parents: diff changeset	1134
dce33f8bb806 intitial checkin ca parents: diff changeset	1135	el hasSubmenu ifTrue:[hasMenu := true].
dce33f8bb806 intitial checkin ca parents: diff changeset	1136
dce33f8bb806 intitial checkin ca parents: diff changeset	1137	( (l := el shortcutKeyAsString) notNil
dce33f8bb806 intitial checkin ca parents: diff changeset	1138	and:[(e := l widthOn:self) > shCtKey]
dce33f8bb806 intitial checkin ca parents: diff changeset	1139	) ifTrue:[
dce33f8bb806 intitial checkin ca parents: diff changeset	1140	shCtKey := e
dce33f8bb806 intitial checkin ca parents: diff changeset	1141	].
dce33f8bb806 intitial checkin ca parents: diff changeset	1142	].
dce33f8bb806 intitial checkin ca parents: diff changeset	1143	y := y + el preferredExtentY
dce33f8bb806 intitial checkin ca parents: diff changeset	1144	].
dce33f8bb806 intitial checkin ca parents: diff changeset	1145	x := x + Item horizontalInset.
dce33f8bb806 intitial checkin ca parents: diff changeset	1146
dce33f8bb806 intitial checkin ca parents: diff changeset	1147	(hasMenu or:[shCtKey ~~ 0]) ifTrue:[
dce33f8bb806 intitial checkin ca parents: diff changeset	1148	x := x + Item labelRightOffset + shCtKey + ((items at:1) rightArrow width).
dce33f8bb806 intitial checkin ca parents: diff changeset	1149
dce33f8bb806 intitial checkin ca parents: diff changeset	1150	(shCtKey ~~ 0 and:[hasMenu]) ifTrue:[
dce33f8bb806 intitial checkin ca parents: diff changeset	1151	x := x + (Item shortcutKeyOffset)
dce33f8bb806 intitial checkin ca parents: diff changeset	1152	]
dce33f8bb806 intitial checkin ca parents: diff changeset	1153	].
dce33f8bb806 intitial checkin ca parents: diff changeset	1154	x := x + Item horizontalInset.
dce33f8bb806 intitial checkin ca parents: diff changeset	1155	].
dce33f8bb806 intitial checkin ca parents: diff changeset	1156	^ x @ y
dce33f8bb806 intitial checkin ca parents: diff changeset	1157
dce33f8bb806 intitial checkin ca parents: diff changeset	1158
dce33f8bb806 intitial checkin ca parents: diff changeset	1159	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1160
dce33f8bb806 intitial checkin ca parents: diff changeset	1161	shortKeyInset
dce33f8bb806 intitial checkin ca parents: diff changeset	1162	"left inset of shortcutKey
dce33f8bb806 intitial checkin ca parents: diff changeset	1163	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1164	^ shortKeyInset
dce33f8bb806 intitial checkin ca parents: diff changeset	1165	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	1166
dce33f8bb806 intitial checkin ca parents: diff changeset	1167	!MenuPanel methodsFor:'accessing items'!
dce33f8bb806 intitial checkin ca parents: diff changeset	1168
dce33f8bb806 intitial checkin ca parents: diff changeset	1169	itemAt:stringOrNumber
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1170	"returns item assigned to an index, nameKey, textLabel or value if symbol.
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1171	If no item match nil is returned.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1172	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1173	\|idx\|
dce33f8bb806 intitial checkin ca parents: diff changeset	1174
dce33f8bb806 intitial checkin ca parents: diff changeset	1175	idx := self indexOf:stringOrNumber.
dce33f8bb806 intitial checkin ca parents: diff changeset	1176	(idx > 0 and:[idx <= items size]) ifTrue:[ ^ items at:idx ].
dce33f8bb806 intitial checkin ca parents: diff changeset	1177	^ nil
dce33f8bb806 intitial checkin ca parents: diff changeset	1178
dce33f8bb806 intitial checkin ca parents: diff changeset	1179	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1180
dce33f8bb806 intitial checkin ca parents: diff changeset	1181	itemAt:stringOrNumber do:aOneArgBlock
dce33f8bb806 intitial checkin ca parents: diff changeset	1182	"evaluate teh block for an item and return the result from the block. In case that
dce33f8bb806 intitial checkin ca parents: diff changeset	1183	the item not exists nil is returned
dce33f8bb806 intitial checkin ca parents: diff changeset	1184	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1185	^ self itemAt:stringOrNumber do:aOneArgBlock ifAbsent:nil
dce33f8bb806 intitial checkin ca parents: diff changeset	1186	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1187
dce33f8bb806 intitial checkin ca parents: diff changeset	1188	itemAt:stringOrNumber do:aOneArgBlock ifAbsent:exceptionBlock
dce33f8bb806 intitial checkin ca parents: diff changeset	1189	"evaluate teh block for an item and return the result from the block. In case that
dce33f8bb806 intitial checkin ca parents: diff changeset	1190	the item not exists the result of the exception block is returned (no arguments).
dce33f8bb806 intitial checkin ca parents: diff changeset	1191	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1192	\|item\|
dce33f8bb806 intitial checkin ca parents: diff changeset	1193
dce33f8bb806 intitial checkin ca parents: diff changeset	1194	item := self itemAt:stringOrNumber.
dce33f8bb806 intitial checkin ca parents: diff changeset	1195	item notNil ifTrue:[ ^ aOneArgBlock value:item ].
dce33f8bb806 intitial checkin ca parents: diff changeset	1196	^ exceptionBlock value
dce33f8bb806 intitial checkin ca parents: diff changeset	1197	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	1198
dce33f8bb806 intitial checkin ca parents: diff changeset	1199	!MenuPanel methodsFor:'accessing look'!
dce33f8bb806 intitial checkin ca parents: diff changeset	1200
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1201	fitFirstPanel
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1202	"gets true if the first panel in the menu hierarchy must be fit
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1203	to the extent of its superView
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1204	"
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1205	^ self styleAt:#fitFirstPanel
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1206	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1207
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1208	fitFirstPanel:aState
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1209	"sets true if the first panel in the menu hierarchy must be fit
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1210	to the extent of its superView
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1211	"
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1212	self styleAt:#fitFirstPanel put:aState
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1213	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1214
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1215	groupDividerSize
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1216	"get the size of the group dividers
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1217	"
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1218	^ self styleAt:#groupDividerSize
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1219	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1220
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1221	groupDividerSize:aSize
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1222	"set the size of the group dividers
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1223	"
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1224	self styleAt:#groupDividerSize put:aSize
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1225	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1226
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1227	horizontalSpace
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1228	"get the horizontal space between to items
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1229	"
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1230	^ self styleAt:#horizontalSpace
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1231	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1232
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1233	horizontalSpace:aSize
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1234	"set the horizontal space between to items
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1235	"
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1236	self styleAt:#horizontalSpace put:aSize
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1237	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1238
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1239	showGroupDivider
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1240	"get the enabled flag for showing groupDiveders
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1241	"
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1242	^ self menuAdornmentAt:#showGroupDivider
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1243	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1244
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1245	showGroupDivider:aState
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1246	"set the enabled flag for showing groupDiveders
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1247	"
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1248	self menuAdornmentAt:#showGroupDivider put:aState
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1249	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1250
dce33f8bb806 intitial checkin ca parents: diff changeset	1251	showSeparatingLines
dce33f8bb806 intitial checkin ca parents: diff changeset	1252	"gets true if drawing of separating lines is enabled.
dce33f8bb806 intitial checkin ca parents: diff changeset	1253	"
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1254	^ self menuAdornmentAt:#showSeparatingLines
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1255	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1256
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1257	showSeparatingLines:aState
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1258	"turn on/off drawing of separating lines.
dce33f8bb806 intitial checkin ca parents: diff changeset	1259	"
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1260	self menuAdornmentAt:#showSeparatingLines put:aState
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1261	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1262
dce33f8bb806 intitial checkin ca parents: diff changeset	1263	verticalLayout
dce33f8bb806 intitial checkin ca parents: diff changeset	1264	"get the layout: or vertical( true ) or horizontal( false )
dce33f8bb806 intitial checkin ca parents: diff changeset	1265	"
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1266	^ self menuAdornmentAt:#verticalLayout
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1267	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1268
dce33f8bb806 intitial checkin ca parents: diff changeset	1269	verticalLayout:aState
dce33f8bb806 intitial checkin ca parents: diff changeset	1270	"set the layout: or vertical( true ) or horizontal( false )
dce33f8bb806 intitial checkin ca parents: diff changeset	1271	"
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1272	self menuAdornmentAt:#verticalLayout put:aState.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1273	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	1274
dce33f8bb806 intitial checkin ca parents: diff changeset	1275	!MenuPanel methodsFor:'accessing submenu'!
dce33f8bb806 intitial checkin ca parents: diff changeset	1276
dce33f8bb806 intitial checkin ca parents: diff changeset	1277	subMenuAt:stringOrNumber
dce33f8bb806 intitial checkin ca parents: diff changeset	1278	"gets the submenu of an item or nil
dce33f8bb806 intitial checkin ca parents: diff changeset	1279	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1280	^ self itemAt:stringOrNumber do:[:el\| el submenu ]
dce33f8bb806 intitial checkin ca parents: diff changeset	1281	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1282
dce33f8bb806 intitial checkin ca parents: diff changeset	1283	subMenuAt:stringOrNumber put:aSubMenu
dce33f8bb806 intitial checkin ca parents: diff changeset	1284	"sets the submenu of an item
dce33f8bb806 intitial checkin ca parents: diff changeset	1285	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1286	self itemAt:stringOrNumber do:[:el\| el submenu:aSubMenu ]
dce33f8bb806 intitial checkin ca parents: diff changeset	1287
dce33f8bb806 intitial checkin ca parents: diff changeset	1288	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1289
dce33f8bb806 intitial checkin ca parents: diff changeset	1290	subMenuShown
dce33f8bb806 intitial checkin ca parents: diff changeset	1291	"return the currently visible submenu - or nil if there is none
dce33f8bb806 intitial checkin ca parents: diff changeset	1292	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1293	\|item\|
dce33f8bb806 intitial checkin ca parents: diff changeset	1294
dce33f8bb806 intitial checkin ca parents: diff changeset	1295	(item := self selection) notNil ifTrue:[
dce33f8bb806 intitial checkin ca parents: diff changeset	1296	^ item submenu
dce33f8bb806 intitial checkin ca parents: diff changeset	1297	].
dce33f8bb806 intitial checkin ca parents: diff changeset	1298	^ nil
dce33f8bb806 intitial checkin ca parents: diff changeset	1299	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	1300
dce33f8bb806 intitial checkin ca parents: diff changeset	1301	!MenuPanel methodsFor:'activation'!
dce33f8bb806 intitial checkin ca parents: diff changeset	1302
dce33f8bb806 intitial checkin ca parents: diff changeset	1303	hide
dce33f8bb806 intitial checkin ca parents: diff changeset	1304	"hide the view, leave its modal event loop
dce33f8bb806 intitial checkin ca parents: diff changeset	1305	"
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	1306
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1307	self selection:nil.
dce33f8bb806 intitial checkin ca parents: diff changeset	1308	self unmap.
dce33f8bb806 intitial checkin ca parents: diff changeset	1309
dce33f8bb806 intitial checkin ca parents: diff changeset	1310
dce33f8bb806 intitial checkin ca parents: diff changeset	1311	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1312
dce33f8bb806 intitial checkin ca parents: diff changeset	1313	show
dce33f8bb806 intitial checkin ca parents: diff changeset	1314	"realize the view at its last position
dce33f8bb806 intitial checkin ca parents: diff changeset	1315	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1316	^ self showAt:(self origin) resizing:true
dce33f8bb806 intitial checkin ca parents: diff changeset	1317
dce33f8bb806 intitial checkin ca parents: diff changeset	1318	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1319
dce33f8bb806 intitial checkin ca parents: diff changeset	1320	showAt:aPoint
dce33f8bb806 intitial checkin ca parents: diff changeset	1321	"realize the view at aPoint
dce33f8bb806 intitial checkin ca parents: diff changeset	1322	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1323	^ self showAt:aPoint resizing:true
dce33f8bb806 intitial checkin ca parents: diff changeset	1324
dce33f8bb806 intitial checkin ca parents: diff changeset	1325
dce33f8bb806 intitial checkin ca parents: diff changeset	1326	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1327
dce33f8bb806 intitial checkin ca parents: diff changeset	1328	showAt:aPoint resizing:aBoolean
dce33f8bb806 intitial checkin ca parents: diff changeset	1329	"realize the view at aPoint
dce33f8bb806 intitial checkin ca parents: diff changeset	1330	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1331	self rearrangeItems.
dce33f8bb806 intitial checkin ca parents: diff changeset	1332
dce33f8bb806 intitial checkin ca parents: diff changeset	1333	aBoolean ifTrue:[
dce33f8bb806 intitial checkin ca parents: diff changeset	1334	self fixSize.
dce33f8bb806 intitial checkin ca parents: diff changeset	1335	].
dce33f8bb806 intitial checkin ca parents: diff changeset	1336	self origin:aPoint.
dce33f8bb806 intitial checkin ca parents: diff changeset	1337	self makeFullyVisible.
dce33f8bb806 intitial checkin ca parents: diff changeset	1338	self openModal:[true]. "realize "
dce33f8bb806 intitial checkin ca parents: diff changeset	1339
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	1340	^ self lastValueAccepted
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1341
dce33f8bb806 intitial checkin ca parents: diff changeset	1342	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1343
dce33f8bb806 intitial checkin ca parents: diff changeset	1344	showAtPointer
dce33f8bb806 intitial checkin ca parents: diff changeset	1345	"realize the view at the current pointer position
dce33f8bb806 intitial checkin ca parents: diff changeset	1346	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1347	^ self showAt:(device pointerPosition) resizing:true
dce33f8bb806 intitial checkin ca parents: diff changeset	1348
dce33f8bb806 intitial checkin ca parents: diff changeset	1349
dce33f8bb806 intitial checkin ca parents: diff changeset	1350	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1351
dce33f8bb806 intitial checkin ca parents: diff changeset	1352	showCenteredIn:aView
dce33f8bb806 intitial checkin ca parents: diff changeset	1353	"make myself visible at the screen center.
dce33f8bb806 intitial checkin ca parents: diff changeset	1354	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1355	\|top\|
dce33f8bb806 intitial checkin ca parents: diff changeset	1356
dce33f8bb806 intitial checkin ca parents: diff changeset	1357	top := aView topView.
dce33f8bb806 intitial checkin ca parents: diff changeset	1358	top raise.
dce33f8bb806 intitial checkin ca parents: diff changeset	1359	^ self showAt:(top origin + (aView originRelativeTo:top) + (aView extent // 2) - (self extent // 2))
dce33f8bb806 intitial checkin ca parents: diff changeset	1360
dce33f8bb806 intitial checkin ca parents: diff changeset	1361
dce33f8bb806 intitial checkin ca parents: diff changeset	1362	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1363
dce33f8bb806 intitial checkin ca parents: diff changeset	1364	startUp
dce33f8bb806 intitial checkin ca parents: diff changeset	1365	"realize the menu at the current pointer position
dce33f8bb806 intitial checkin ca parents: diff changeset	1366	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1367	^ self showAtPointer
dce33f8bb806 intitial checkin ca parents: diff changeset	1368	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	1369
dce33f8bb806 intitial checkin ca parents: diff changeset	1370	!MenuPanel methodsFor:'adding & removing'!
dce33f8bb806 intitial checkin ca parents: diff changeset	1371
dce33f8bb806 intitial checkin ca parents: diff changeset	1372	createAtIndex:anIndexOrNil
dce33f8bb806 intitial checkin ca parents: diff changeset	1373	"create an item and add this item to the index. In case of nil the item
dce33f8bb806 intitial checkin ca parents: diff changeset	1374	is added to the end. If the index is not valid nil is returned otherwise
dce33f8bb806 intitial checkin ca parents: diff changeset	1375	the new created item.
dce33f8bb806 intitial checkin ca parents: diff changeset	1376	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1377	\|max item\|
dce33f8bb806 intitial checkin ca parents: diff changeset	1378
dce33f8bb806 intitial checkin ca parents: diff changeset	1379	max := (items size) + 1.
dce33f8bb806 intitial checkin ca parents: diff changeset	1380
dce33f8bb806 intitial checkin ca parents: diff changeset	1381	anIndexOrNil notNil ifTrue:[
dce33f8bb806 intitial checkin ca parents: diff changeset	1382	(anIndexOrNil < 1 or:[anIndexOrNil > max]) ifTrue:[
dce33f8bb806 intitial checkin ca parents: diff changeset	1383	^ nil
dce33f8bb806 intitial checkin ca parents: diff changeset	1384	]
dce33f8bb806 intitial checkin ca parents: diff changeset	1385	].
dce33f8bb806 intitial checkin ca parents: diff changeset	1386	items isNil ifTrue:[
dce33f8bb806 intitial checkin ca parents: diff changeset	1387	items := OrderedCollection new
dce33f8bb806 intitial checkin ca parents: diff changeset	1388	].
dce33f8bb806 intitial checkin ca parents: diff changeset	1389	item := Item in:self.
dce33f8bb806 intitial checkin ca parents: diff changeset	1390
dce33f8bb806 intitial checkin ca parents: diff changeset	1391	(anIndexOrNil isNil or:[anIndexOrNil == max]) ifTrue:[
dce33f8bb806 intitial checkin ca parents: diff changeset	1392	items add:item
dce33f8bb806 intitial checkin ca parents: diff changeset	1393	] ifFalse:[
dce33f8bb806 intitial checkin ca parents: diff changeset	1394	items add:item beforeIndex:anIndexOrNil
dce33f8bb806 intitial checkin ca parents: diff changeset	1395	].
dce33f8bb806 intitial checkin ca parents: diff changeset	1396	^ item
dce33f8bb806 intitial checkin ca parents: diff changeset	1397	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1398
dce33f8bb806 intitial checkin ca parents: diff changeset	1399	remove:stringOrNumber
dce33f8bb806 intitial checkin ca parents: diff changeset	1400	"remove the first item which is assigned to stringOrNumber;
dce33f8bb806 intitial checkin ca parents: diff changeset	1401	if found, remove and return it
dce33f8bb806 intitial checkin ca parents: diff changeset	1402	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1403	\|item\|
dce33f8bb806 intitial checkin ca parents: diff changeset	1404
dce33f8bb806 intitial checkin ca parents: diff changeset	1405	(item := self itemAt:stringOrNumber) notNil ifTrue:[
dce33f8bb806 intitial checkin ca parents: diff changeset	1406	items remove:item.
dce33f8bb806 intitial checkin ca parents: diff changeset	1407	item destroy.
dce33f8bb806 intitial checkin ca parents: diff changeset	1408	items isEmpty ifTrue:[items := nil].
dce33f8bb806 intitial checkin ca parents: diff changeset	1409	self mustRearrange.
dce33f8bb806 intitial checkin ca parents: diff changeset	1410	].
dce33f8bb806 intitial checkin ca parents: diff changeset	1411	^ item
dce33f8bb806 intitial checkin ca parents: diff changeset	1412	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1413
dce33f8bb806 intitial checkin ca parents: diff changeset	1414	removeAll
dce33f8bb806 intitial checkin ca parents: diff changeset	1415	"remove all items and submenus
dce33f8bb806 intitial checkin ca parents: diff changeset	1416	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1417	self disabledRedrawDo:[
dce33f8bb806 intitial checkin ca parents: diff changeset	1418	self selection:nil.
dce33f8bb806 intitial checkin ca parents: diff changeset	1419	groupSizes := nil.
dce33f8bb806 intitial checkin ca parents: diff changeset	1420	self do:[:el\| el destroy ].
dce33f8bb806 intitial checkin ca parents: diff changeset	1421	items := nil
dce33f8bb806 intitial checkin ca parents: diff changeset	1422	].
dce33f8bb806 intitial checkin ca parents: diff changeset	1423	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	1424
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	1425	!MenuPanel methodsFor:'change & update'!
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	1426
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	1427	update:something with:aParameter from:changedObject
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	1428	\|channel\|
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	1429
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	1430	channel := self menuHolder.
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	1431	channel == changedObject ifTrue:[^ self menu:(channel value)].
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	1432
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	1433	channel := self enableChannel.
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	1434	channel == changedObject ifTrue:[^ self enabled:(channel value)].
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	1435
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	1436	super update:something with:aParameter from:changedObject
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	1437	! !
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	1438
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1439	!MenuPanel methodsFor:'converting'!
dce33f8bb806 intitial checkin ca parents: diff changeset	1440
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	1441	asMenu
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	1442	"convert contents to menu
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	1443	"
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	1444	\|menu\|
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	1445
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	1446	menu := Menu new.
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	1447	menu groupSizes:groupSizes.
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	1448	self do:[:anItem\| menu addItem:(anItem asMenuItem) ].
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	1449	^ menu
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	1450	!
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	1451
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1452	fromSpec:aMenuSpec
dce33f8bb806 intitial checkin ca parents: diff changeset	1453	"build from spec
dce33f8bb806 intitial checkin ca parents: diff changeset	1454	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1455	\|menu\|
dce33f8bb806 intitial checkin ca parents: diff changeset	1456
dce33f8bb806 intitial checkin ca parents: diff changeset	1457	menu := Menu new.
dce33f8bb806 intitial checkin ca parents: diff changeset	1458	menu fromLiteralArrayEncoding:aMenuSpec.
dce33f8bb806 intitial checkin ca parents: diff changeset	1459	self menu:menu
dce33f8bb806 intitial checkin ca parents: diff changeset	1460
dce33f8bb806 intitial checkin ca parents: diff changeset	1461	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1462
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	1463	menu:aMenu
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	1464	"convert to Menu
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1465	"
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	1466	\|menu\|
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	1467
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1468	self disabledRedrawDo:[
dce33f8bb806 intitial checkin ca parents: diff changeset	1469	self removeAll.
dce33f8bb806 intitial checkin ca parents: diff changeset	1470
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	1471	(menu := aMenu) notNil ifTrue:[
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	1472	(aMenu isCollection) ifTrue:[
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	1473	menu := Menu new.
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	1474	menu fromLiteralArrayEncoding:aMenu.
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	1475	] ifFalse:[
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	1476	menu receiver notNil ifTrue:[
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	1477	receiver := menu receiver
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	1478	]
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	1479	].
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	1480	menu menuItems notNil ifTrue:[
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	1481	menu menuItems do:[:anItem\|
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1482	(self createAtIndex:nil) menuItem:anItem
dce33f8bb806 intitial checkin ca parents: diff changeset	1483	]
dce33f8bb806 intitial checkin ca parents: diff changeset	1484	].
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	1485	self groupSizes:(menu groupSizes).
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1486	]
dce33f8bb806 intitial checkin ca parents: diff changeset	1487	]
dce33f8bb806 intitial checkin ca parents: diff changeset	1488
dce33f8bb806 intitial checkin ca parents: diff changeset	1489	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	1490
dce33f8bb806 intitial checkin ca parents: diff changeset	1491	!MenuPanel methodsFor:'drawing'!
dce33f8bb806 intitial checkin ca parents: diff changeset	1492
dce33f8bb806 intitial checkin ca parents: diff changeset	1493	disabledRedrawDo:aBlock
dce33f8bb806 intitial checkin ca parents: diff changeset	1494	"evaluate a block without redrawing within the block; after processing
dce33f8bb806 intitial checkin ca parents: diff changeset	1495	of the block a redraw might be performed
dce33f8bb806 intitial checkin ca parents: diff changeset	1496	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1497	\|state\|
dce33f8bb806 intitial checkin ca parents: diff changeset	1498
dce33f8bb806 intitial checkin ca parents: diff changeset	1499	state := mustRearrange.
dce33f8bb806 intitial checkin ca parents: diff changeset	1500	mustRearrange := true.
dce33f8bb806 intitial checkin ca parents: diff changeset	1501	aBlock value.
dce33f8bb806 intitial checkin ca parents: diff changeset	1502	mustRearrange := state.
dce33f8bb806 intitial checkin ca parents: diff changeset	1503	self mustRearrange
dce33f8bb806 intitial checkin ca parents: diff changeset	1504	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1505
dce33f8bb806 intitial checkin ca parents: diff changeset	1506	mustRearrange
dce33f8bb806 intitial checkin ca parents: diff changeset	1507	"returns true if layout of items must be recomputed
dce33f8bb806 intitial checkin ca parents: diff changeset	1508	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1509	mustRearrange ifFalse:[
dce33f8bb806 intitial checkin ca parents: diff changeset	1510	mustRearrange := true.
dce33f8bb806 intitial checkin ca parents: diff changeset	1511	self invalidate.
dce33f8bb806 intitial checkin ca parents: diff changeset	1512	]
dce33f8bb806 intitial checkin ca parents: diff changeset	1513	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1514
dce33f8bb806 intitial checkin ca parents: diff changeset	1515	rearrangeItems
dce33f8bb806 intitial checkin ca parents: diff changeset	1516	"recompute layout of my items
dce33f8bb806 intitial checkin ca parents: diff changeset	1517	"
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	1518	\|expLast x y e grpDivSz hrzSpace layout\|
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1519
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1520	mustRearrange ifFalse:[ ^ self ].
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1521
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1522	"/ fetch font from superMenu
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1523	(superMenu notNil and:[superMenu font ~~ font]) ifTrue:[
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1524	super font:(superMenu font on:device)
dce33f8bb806 intitial checkin ca parents: diff changeset	1525	].
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1526
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1527	items isNil ifTrue:[
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1528	mustRearrange := false.
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1529	^ self
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1530	].
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1531	hrzSpace := self horizontalSpace.
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	1532	expLast := false.
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1533
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1534	self hasGroupDividers ifTrue:[
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1535	self isFitPanel ifFalse:[
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1536	grpDivSz := self groupDividerSize
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1537	] ifTrue:[
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	1538	expLast := true.
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1539	x := 0.
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1540	e := self computeExtent.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1541
dce33f8bb806 intitial checkin ca parents: diff changeset	1542	self verticalLayout ifTrue:[
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1543	items do:[:el\|x := x + el preferredExtentY].
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1544	y := e y.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1545	] ifFalse:[
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1546	items do:[:el\|x := x + el preferredExtentX].
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1547	x := x + ((items size - 1) * hrzSpace).
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1548	y := e x.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1549	].
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1550	(grpDivSz := (y - x) // (groupSizes size)) <= 0 ifTrue:[
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1551	grpDivSz := nil
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1552	]
dce33f8bb806 intitial checkin ca parents: diff changeset	1553	]
dce33f8bb806 intitial checkin ca parents: diff changeset	1554	].
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1555
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1556	(self isPopUpView or:[explicitExtent ~~ true]) ifTrue:[
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1557	e := self preferredExtent.
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1558
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1559	self isPopUpView ifFalse:[
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1560	self verticalLayout ifTrue:[e y:1.0]
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1561	ifFalse:[e x:1.0]
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1562	].
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1563	self extent:e
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1564	] ifFalse:[
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1565	e := self computeExtent
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1566	].
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1567
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1568	x := 0.
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1569	y := 0.
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1570
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1571	self keysAndValuesDo:[:anIndex :el\|\|org\|
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1572	org := Point x:x y:y.
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1573
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1574	self verticalLayout ifTrue:[
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1575	y := y + el preferredExtentY.
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1576	el layout:(Rectangle origin:org corner:(e x @ y)).
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1577	] ifFalse:[
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1578	x := x + el preferredExtentX.
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1579	el layout:(Rectangle origin:org corner:(x @ e y)).
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1580	x := x + hrzSpace.
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1581	].
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1582
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1583	(grpDivSz notNil and:[self hasGroupDividerAt:anIndex]) ifTrue:[
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1584	self verticalLayout ifTrue:[y := y + grpDivSz]
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1585	ifFalse:[x := x + grpDivSz]
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1586	]
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1587	].
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	1588	expLast ifTrue:[
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	1589	layout := items last layout.
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	1590
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	1591	self verticalLayout ifTrue:[layout bottom:((self extent y) + 1)]
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	1592	ifFalse:[layout right:((self extent x) + 1)].
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	1593	].
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1594	mustRearrange := false.
dce33f8bb806 intitial checkin ca parents: diff changeset	1595
dce33f8bb806 intitial checkin ca parents: diff changeset	1596
dce33f8bb806 intitial checkin ca parents: diff changeset	1597
dce33f8bb806 intitial checkin ca parents: diff changeset	1598
dce33f8bb806 intitial checkin ca parents: diff changeset	1599
dce33f8bb806 intitial checkin ca parents: diff changeset	1600	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1601
dce33f8bb806 intitial checkin ca parents: diff changeset	1602	redrawX:x y:y width:w height:h
dce33f8bb806 intitial checkin ca parents: diff changeset	1603	"redraw a rectangle
dce33f8bb806 intitial checkin ca parents: diff changeset	1604	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1605	\|start end isVrt x1 x2 y1 y2 item layout lnSz\|
dce33f8bb806 intitial checkin ca parents: diff changeset	1606
dce33f8bb806 intitial checkin ca parents: diff changeset	1607	shown ifFalse:[^ self].
dce33f8bb806 intitial checkin ca parents: diff changeset	1608
dce33f8bb806 intitial checkin ca parents: diff changeset	1609	super redrawX:x y:y width:w height:h.
dce33f8bb806 intitial checkin ca parents: diff changeset	1610	self paint:(self backgroundColor).
dce33f8bb806 intitial checkin ca parents: diff changeset	1611	self clearRectangleX:x y:y width:w height:h.
dce33f8bb806 intitial checkin ca parents: diff changeset	1612
dce33f8bb806 intitial checkin ca parents: diff changeset	1613	isVrt := self verticalLayout.
dce33f8bb806 intitial checkin ca parents: diff changeset	1614	end := items size.
dce33f8bb806 intitial checkin ca parents: diff changeset	1615
dce33f8bb806 intitial checkin ca parents: diff changeset	1616	mustRearrange ifTrue:[
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	1617	self isPopUpView not ifTrue:[
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	1618	explicitExtent := true
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	1619	].
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1620	self rearrangeItems.
dce33f8bb806 intitial checkin ca parents: diff changeset	1621	start := 1
dce33f8bb806 intitial checkin ca parents: diff changeset	1622	] ifFalse:[
dce33f8bb806 intitial checkin ca parents: diff changeset	1623	end == 0 ifTrue:[ ^ self ].
dce33f8bb806 intitial checkin ca parents: diff changeset	1624
dce33f8bb806 intitial checkin ca parents: diff changeset	1625	isVrt ifTrue:[
dce33f8bb806 intitial checkin ca parents: diff changeset	1626	start := self findFirst:[:el\| (el layout bottom) >= y ].
dce33f8bb806 intitial checkin ca parents: diff changeset	1627	start == 0 ifTrue:[ ^ self ].
dce33f8bb806 intitial checkin ca parents: diff changeset	1628	end := y + h.
dce33f8bb806 intitial checkin ca parents: diff changeset	1629	end := self findLast:[:el\| (el layout top) < end ].
dce33f8bb806 intitial checkin ca parents: diff changeset	1630	] ifFalse:[
dce33f8bb806 intitial checkin ca parents: diff changeset	1631	start := self findFirst:[:el\| (el layout right) >= x ].
dce33f8bb806 intitial checkin ca parents: diff changeset	1632	start == 0 ifTrue:[ ^ self ].
dce33f8bb806 intitial checkin ca parents: diff changeset	1633	end := x + w.
dce33f8bb806 intitial checkin ca parents: diff changeset	1634	end := self findLast:[:el\| (el layout left) < end ].
dce33f8bb806 intitial checkin ca parents: diff changeset	1635	].
dce33f8bb806 intitial checkin ca parents: diff changeset	1636
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1637	(start ~~ 1 and:[self hasGroupDividerAt:(start-1)]) ifTrue:[
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1638	start := start - 1
dce33f8bb806 intitial checkin ca parents: diff changeset	1639	]
dce33f8bb806 intitial checkin ca parents: diff changeset	1640	].
dce33f8bb806 intitial checkin ca parents: diff changeset	1641
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1642	( self hasGroupDividers
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1643	and:[self showGroupDivider
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1644	and:[self isFitPanel not]]
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1645	) ifTrue:[
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1646	lnSz := self groupDividerSize // 2
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1647	].
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1648
dce33f8bb806 intitial checkin ca parents: diff changeset	1649	start to:end do:[:i\|
dce33f8bb806 intitial checkin ca parents: diff changeset	1650	item := items at:i.
dce33f8bb806 intitial checkin ca parents: diff changeset	1651	item redraw.
dce33f8bb806 intitial checkin ca parents: diff changeset	1652
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1653	(lnSz notNil and:[self hasGroupDividerAt:i]) ifTrue:[
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1654	layout := item layout.
dce33f8bb806 intitial checkin ca parents: diff changeset	1655
dce33f8bb806 intitial checkin ca parents: diff changeset	1656	isVrt ifTrue:[
dce33f8bb806 intitial checkin ca parents: diff changeset	1657	x1 := layout left.
dce33f8bb806 intitial checkin ca parents: diff changeset	1658	x2 := layout right.
dce33f8bb806 intitial checkin ca parents: diff changeset	1659	y1 := (layout bottom) + lnSz.
dce33f8bb806 intitial checkin ca parents: diff changeset	1660	y2 := y1.
dce33f8bb806 intitial checkin ca parents: diff changeset	1661	] ifFalse:[
dce33f8bb806 intitial checkin ca parents: diff changeset	1662	x1 := (layout right) + lnSz.
dce33f8bb806 intitial checkin ca parents: diff changeset	1663	x2 := x1.
dce33f8bb806 intitial checkin ca parents: diff changeset	1664	y1 := layout top.
dce33f8bb806 intitial checkin ca parents: diff changeset	1665	y2 := layout bottom.
dce33f8bb806 intitial checkin ca parents: diff changeset	1666	].
dce33f8bb806 intitial checkin ca parents: diff changeset	1667	self paint:(self shadowColor).
dce33f8bb806 intitial checkin ca parents: diff changeset	1668	self displayLineFromX:x1 y:y1 toX:x2 y:y2.
dce33f8bb806 intitial checkin ca parents: diff changeset	1669	self paint:(self lightColor).
dce33f8bb806 intitial checkin ca parents: diff changeset	1670
dce33f8bb806 intitial checkin ca parents: diff changeset	1671	isVrt ifTrue:[y1 := y1 + 1. y2 := y1 ]
dce33f8bb806 intitial checkin ca parents: diff changeset	1672	ifFalse:[x1 := x1 + 1. x2 := x1 ].
dce33f8bb806 intitial checkin ca parents: diff changeset	1673
dce33f8bb806 intitial checkin ca parents: diff changeset	1674	self displayLineFromX:x1 y:y1 toX:x2 y:y2
dce33f8bb806 intitial checkin ca parents: diff changeset	1675	]
dce33f8bb806 intitial checkin ca parents: diff changeset	1676	]
dce33f8bb806 intitial checkin ca parents: diff changeset	1677
dce33f8bb806 intitial checkin ca parents: diff changeset	1678
dce33f8bb806 intitial checkin ca parents: diff changeset	1679	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	1680
dce33f8bb806 intitial checkin ca parents: diff changeset	1681	!MenuPanel methodsFor:'enumerting & searching'!
dce33f8bb806 intitial checkin ca parents: diff changeset	1682
dce33f8bb806 intitial checkin ca parents: diff changeset	1683	collect:aOneArgBlock
dce33f8bb806 intitial checkin ca parents: diff changeset	1684	"evaluate the argument, aOneArgBlock for every item in the menuPanel
dce33f8bb806 intitial checkin ca parents: diff changeset	1685	and return a collection of the results
dce33f8bb806 intitial checkin ca parents: diff changeset	1686	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1687	items notNil ifTrue:[^ items collect:aOneArgBlock ].
dce33f8bb806 intitial checkin ca parents: diff changeset	1688	^ nil
dce33f8bb806 intitial checkin ca parents: diff changeset	1689
dce33f8bb806 intitial checkin ca parents: diff changeset	1690	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1691
dce33f8bb806 intitial checkin ca parents: diff changeset	1692	do:aOneArgBlock
dce33f8bb806 intitial checkin ca parents: diff changeset	1693	"evaluate the argument, aOneArgBlock for every item in the menuPanel.
dce33f8bb806 intitial checkin ca parents: diff changeset	1694	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1695	items notNil ifTrue:[ items do:aOneArgBlock ].
dce33f8bb806 intitial checkin ca parents: diff changeset	1696
dce33f8bb806 intitial checkin ca parents: diff changeset	1697	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1698
dce33f8bb806 intitial checkin ca parents: diff changeset	1699	findFirst:aOneArgBlock
dce33f8bb806 intitial checkin ca parents: diff changeset	1700	"find the first item, for which evaluation of the argument, aOneArgBlock
dce33f8bb806 intitial checkin ca parents: diff changeset	1701	returns true; return its index or 0 if none detected.
dce33f8bb806 intitial checkin ca parents: diff changeset	1702	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1703	items notNil ifTrue:[ ^ items findFirst:aOneArgBlock ].
dce33f8bb806 intitial checkin ca parents: diff changeset	1704	^ 0
dce33f8bb806 intitial checkin ca parents: diff changeset	1705
dce33f8bb806 intitial checkin ca parents: diff changeset	1706	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1707
dce33f8bb806 intitial checkin ca parents: diff changeset	1708	findLast:aOneArgBlock
dce33f8bb806 intitial checkin ca parents: diff changeset	1709	"find the last item, for which evaluation of the argument, aOneArgBlock
dce33f8bb806 intitial checkin ca parents: diff changeset	1710	returns true; return its index or 0 if none detected.
dce33f8bb806 intitial checkin ca parents: diff changeset	1711	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1712	items notNil ifTrue:[ ^ items findLast:aOneArgBlock ].
dce33f8bb806 intitial checkin ca parents: diff changeset	1713	^ 0
dce33f8bb806 intitial checkin ca parents: diff changeset	1714
dce33f8bb806 intitial checkin ca parents: diff changeset	1715	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1716
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1717	indexOf:something
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1718	"returns index of an item assigned to an index, nameKey, textLabel or value if symbol.
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1719	If no item match 0 is returned. No range checks are performed on a number argument
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1720	"
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1721	\|i v\|
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1722
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1723	something isNumber ifTrue:[ ^ something ].
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1724	something isNil ifTrue:[ ^ 0 ].
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1725
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1726	i := self findFirst:[:el\|el nameKey = something].
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1727
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1728	i ~~ 0 ifTrue:[
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1729	^ i
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1730	].
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1731
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1732	something isSymbol ifTrue:[
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1733	i := self findFirst:[:el\|
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1734	v := el value.
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1735	v isSymbol and:[v == something]
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1736	].
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1737	i ~~ 0 ifTrue:[
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1738	^ i
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1739	]
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1740	].
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1741
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1742	(something respondsTo:#string) ifTrue:[
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1743	v := something string.
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1744	^ self findFirst:[:el\|el textLabel = v].
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1745	].
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1746	^ 0
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1747	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1748
dce33f8bb806 intitial checkin ca parents: diff changeset	1749	keysAndValuesDo:aTwoArgBlock
dce33f8bb806 intitial checkin ca parents: diff changeset	1750	"evaluate the argument, aTwoArgBlock for every item in the menuPanel.
dce33f8bb806 intitial checkin ca parents: diff changeset	1751	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1752	items notNil ifTrue:[ items keysAndValuesDo:aTwoArgBlock ].
dce33f8bb806 intitial checkin ca parents: diff changeset	1753
dce33f8bb806 intitial checkin ca parents: diff changeset	1754	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	1755
dce33f8bb806 intitial checkin ca parents: diff changeset	1756	!MenuPanel methodsFor:'event handling'!
dce33f8bb806 intitial checkin ca parents: diff changeset	1757
dce33f8bb806 intitial checkin ca parents: diff changeset	1758	buttonMotion:state x:x y:y
dce33f8bb806 intitial checkin ca parents: diff changeset	1759	"open or close the corresponding submenus
dce33f8bb806 intitial checkin ca parents: diff changeset	1760	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1761	\|menu point sensor\|
dce33f8bb806 intitial checkin ca parents: diff changeset	1762
dce33f8bb806 intitial checkin ca parents: diff changeset	1763	( (sensor := self sensor) notNil
dce33f8bb806 intitial checkin ca parents: diff changeset	1764	and:[sensor hasButtonMotionEventFor:nil]
dce33f8bb806 intitial checkin ca parents: diff changeset	1765	) ifTrue:[
dce33f8bb806 intitial checkin ca parents: diff changeset	1766	^ self
dce33f8bb806 intitial checkin ca parents: diff changeset	1767	].
dce33f8bb806 intitial checkin ca parents: diff changeset	1768
dce33f8bb806 intitial checkin ca parents: diff changeset	1769	(self containsPointX:x y:y) ifTrue:[
dce33f8bb806 intitial checkin ca parents: diff changeset	1770	^ self selection:(self itemAtX:x y:y)
dce33f8bb806 intitial checkin ca parents: diff changeset	1771	].
dce33f8bb806 intitial checkin ca parents: diff changeset	1772	menu := self superMenuAtX:x y:y.
dce33f8bb806 intitial checkin ca parents: diff changeset	1773
dce33f8bb806 intitial checkin ca parents: diff changeset	1774	menu isNil ifTrue:[
dce33f8bb806 intitial checkin ca parents: diff changeset	1775	^ self selection:nil
dce33f8bb806 intitial checkin ca parents: diff changeset	1776	].
dce33f8bb806 intitial checkin ca parents: diff changeset	1777	point := self translatePoint:(x@y) to:menu.
dce33f8bb806 intitial checkin ca parents: diff changeset	1778	menu selection:(menu itemAtX:(point x) y:(point y))
dce33f8bb806 intitial checkin ca parents: diff changeset	1779	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1780
dce33f8bb806 intitial checkin ca parents: diff changeset	1781	buttonPress:button x:x y:y
dce33f8bb806 intitial checkin ca parents: diff changeset	1782	"any button pressed; open or close the corresponding submenus
dce33f8bb806 intitial checkin ca parents: diff changeset	1783	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1784	\|menu point item\|
dce33f8bb806 intitial checkin ca parents: diff changeset	1785
dce33f8bb806 intitial checkin ca parents: diff changeset	1786	menu := self superMenuAtX:x y:y.
dce33f8bb806 intitial checkin ca parents: diff changeset	1787
dce33f8bb806 intitial checkin ca parents: diff changeset	1788	menu isNil ifTrue:[
dce33f8bb806 intitial checkin ca parents: diff changeset	1789	menu := self topMenu.
dce33f8bb806 intitial checkin ca parents: diff changeset	1790	] ifFalse:[
dce33f8bb806 intitial checkin ca parents: diff changeset	1791	point := self translatePoint:(x@y) to:menu.
dce33f8bb806 intitial checkin ca parents: diff changeset	1792	item := menu itemAtX:(point x) y:(point y)
dce33f8bb806 intitial checkin ca parents: diff changeset	1793	].
dce33f8bb806 intitial checkin ca parents: diff changeset	1794	menu selection:item
dce33f8bb806 intitial checkin ca parents: diff changeset	1795	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1796
dce33f8bb806 intitial checkin ca parents: diff changeset	1797	buttonRelease:button x:x y:y
dce33f8bb806 intitial checkin ca parents: diff changeset	1798	"button release action; accept selection and close all views
dce33f8bb806 intitial checkin ca parents: diff changeset	1799	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1800	( self hasSelection or:[
dce33f8bb806 intitial checkin ca parents: diff changeset	1801	(OperatingSystem millisecondTimeDeltaBetween:(Time millisecondClockValue)
dce33f8bb806 intitial checkin ca parents: diff changeset	1802	and:mapTime) > 200]
dce33f8bb806 intitial checkin ca parents: diff changeset	1803	) ifTrue:[
dce33f8bb806 intitial checkin ca parents: diff changeset	1804	self accept
dce33f8bb806 intitial checkin ca parents: diff changeset	1805	]
dce33f8bb806 intitial checkin ca parents: diff changeset	1806	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1807
dce33f8bb806 intitial checkin ca parents: diff changeset	1808	cursorPressed:aKey
dce33f8bb806 intitial checkin ca parents: diff changeset	1809	"handle a cursor key
dce33f8bb806 intitial checkin ca parents: diff changeset	1810	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1811	\|idx next first submenu item\|
dce33f8bb806 intitial checkin ca parents: diff changeset	1812
dce33f8bb806 intitial checkin ca parents: diff changeset	1813	(self hasSelection not and:[superMenu notNil]) ifTrue:[
dce33f8bb806 intitial checkin ca parents: diff changeset	1814	^ superMenu cursorPressed:aKey
dce33f8bb806 intitial checkin ca parents: diff changeset	1815	].
dce33f8bb806 intitial checkin ca parents: diff changeset	1816
dce33f8bb806 intitial checkin ca parents: diff changeset	1817	self verticalLayout ifTrue:[
dce33f8bb806 intitial checkin ca parents: diff changeset	1818	aKey == #CursorLeft ifTrue:[^ self selection:nil].
dce33f8bb806 intitial checkin ca parents: diff changeset	1819	aKey ~~ #CursorRight ifTrue:[next := aKey == #CursorDown].
dce33f8bb806 intitial checkin ca parents: diff changeset	1820	] ifFalse:[
dce33f8bb806 intitial checkin ca parents: diff changeset	1821	aKey == #CursorUp ifTrue:[^ self selection:nil].
dce33f8bb806 intitial checkin ca parents: diff changeset	1822	aKey ~~ #CursorDown ifTrue:[next := aKey == #CursorRight].
dce33f8bb806 intitial checkin ca parents: diff changeset	1823	].
dce33f8bb806 intitial checkin ca parents: diff changeset	1824
dce33f8bb806 intitial checkin ca parents: diff changeset	1825	next isNil ifTrue:[
dce33f8bb806 intitial checkin ca parents: diff changeset	1826	(item := self selection) notNil ifTrue:[
dce33f8bb806 intitial checkin ca parents: diff changeset	1827	(submenu := item submenu) notNil ifTrue:[
dce33f8bb806 intitial checkin ca parents: diff changeset	1828	idx := submenu findFirst:[:el\| el canSelect ].
dce33f8bb806 intitial checkin ca parents: diff changeset	1829	^ submenu selectionIndex:idx
dce33f8bb806 intitial checkin ca parents: diff changeset	1830	].
dce33f8bb806 intitial checkin ca parents: diff changeset	1831	^ self selection:nil
dce33f8bb806 intitial checkin ca parents: diff changeset	1832	].
dce33f8bb806 intitial checkin ca parents: diff changeset	1833	^ self
dce33f8bb806 intitial checkin ca parents: diff changeset	1834	].
dce33f8bb806 intitial checkin ca parents: diff changeset	1835
dce33f8bb806 intitial checkin ca parents: diff changeset	1836	first := self findFirst:[:el\| el canSelect ].
dce33f8bb806 intitial checkin ca parents: diff changeset	1837	first == 0 ifTrue:[^ self].
dce33f8bb806 intitial checkin ca parents: diff changeset	1838
dce33f8bb806 intitial checkin ca parents: diff changeset	1839	idx := self selectionIndex.
dce33f8bb806 intitial checkin ca parents: diff changeset	1840
dce33f8bb806 intitial checkin ca parents: diff changeset	1841	next ifTrue:[
dce33f8bb806 intitial checkin ca parents: diff changeset	1842	[((idx := idx + 1) <= items size and:[(items at:idx) canSelect not])
dce33f8bb806 intitial checkin ca parents: diff changeset	1843	] whileTrue.
dce33f8bb806 intitial checkin ca parents: diff changeset	1844
dce33f8bb806 intitial checkin ca parents: diff changeset	1845	idx > items size ifTrue:[
dce33f8bb806 intitial checkin ca parents: diff changeset	1846	idx := first
dce33f8bb806 intitial checkin ca parents: diff changeset	1847	].
dce33f8bb806 intitial checkin ca parents: diff changeset	1848	] ifFalse:[
dce33f8bb806 intitial checkin ca parents: diff changeset	1849	[((idx := idx - 1) > 0 and:[(items at:idx) canSelect not])
dce33f8bb806 intitial checkin ca parents: diff changeset	1850	] whileTrue.
dce33f8bb806 intitial checkin ca parents: diff changeset	1851
dce33f8bb806 intitial checkin ca parents: diff changeset	1852	idx < 1 ifTrue:[ idx := self findLast:[:el\| el canSelect ] ]
dce33f8bb806 intitial checkin ca parents: diff changeset	1853	].
dce33f8bb806 intitial checkin ca parents: diff changeset	1854	self selectionIndex:idx
dce33f8bb806 intitial checkin ca parents: diff changeset	1855
dce33f8bb806 intitial checkin ca parents: diff changeset	1856	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1857
dce33f8bb806 intitial checkin ca parents: diff changeset	1858	keyPress:key x:x y:y
dce33f8bb806 intitial checkin ca parents: diff changeset	1859	"any key is pressed
dce33f8bb806 intitial checkin ca parents: diff changeset	1860	"
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	1861	\|listOfItems item menu idx cIdx upperKey lowerKey\|
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1862
dce33f8bb806 intitial checkin ca parents: diff changeset	1863	menu := self.
dce33f8bb806 intitial checkin ca parents: diff changeset	1864
dce33f8bb806 intitial checkin ca parents: diff changeset	1865	[ menu shown ] whileFalse:[
dce33f8bb806 intitial checkin ca parents: diff changeset	1866	(menu := superMenu) isNil ifTrue:[^ self]
dce33f8bb806 intitial checkin ca parents: diff changeset	1867	].
dce33f8bb806 intitial checkin ca parents: diff changeset	1868
dce33f8bb806 intitial checkin ca parents: diff changeset	1869	key == #Return ifTrue:[
dce33f8bb806 intitial checkin ca parents: diff changeset	1870	^ menu accept
dce33f8bb806 intitial checkin ca parents: diff changeset	1871	].
dce33f8bb806 intitial checkin ca parents: diff changeset	1872
dce33f8bb806 intitial checkin ca parents: diff changeset	1873	( key == #CursorDown or:[key == #CursorUp
dce33f8bb806 intitial checkin ca parents: diff changeset	1874	or:[key == #CursorLeft or:[key == #CursorRight]]]
dce33f8bb806 intitial checkin ca parents: diff changeset	1875	) ifTrue:[
dce33f8bb806 intitial checkin ca parents: diff changeset	1876	^ menu cursorPressed:key
dce33f8bb806 intitial checkin ca parents: diff changeset	1877	].
dce33f8bb806 intitial checkin ca parents: diff changeset	1878
dce33f8bb806 intitial checkin ca parents: diff changeset	1879	listOfItems := self selectItemsForShortcutKey:key.
dce33f8bb806 intitial checkin ca parents: diff changeset	1880	listOfItems notNil ifTrue:[
dce33f8bb806 intitial checkin ca parents: diff changeset	1881	item := listOfItems first.
dce33f8bb806 intitial checkin ca parents: diff changeset	1882
dce33f8bb806 intitial checkin ca parents: diff changeset	1883	item hasSubmenu ifFalse:[
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	1884	^ item superMenu accept:item
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	1885	].
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	1886	^ self openMenusFromItems:listOfItems
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1887	].
dce33f8bb806 intitial checkin ca parents: diff changeset	1888
dce33f8bb806 intitial checkin ca parents: diff changeset	1889	(self hasSelection not and:[superMenu notNil]) ifTrue:[
dce33f8bb806 intitial checkin ca parents: diff changeset	1890	(superMenu containsPoint:(self translatePoint:(x@y) to:superMenu)) ifTrue:[
dce33f8bb806 intitial checkin ca parents: diff changeset	1891	menu := superMenu
dce33f8bb806 intitial checkin ca parents: diff changeset	1892	]
dce33f8bb806 intitial checkin ca parents: diff changeset	1893	].
dce33f8bb806 intitial checkin ca parents: diff changeset	1894
dce33f8bb806 intitial checkin ca parents: diff changeset	1895	cIdx := menu selectionIndex.
dce33f8bb806 intitial checkin ca parents: diff changeset	1896	cIdx isNil ifTrue:[cIdx := 0].
dce33f8bb806 intitial checkin ca parents: diff changeset	1897
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	1898	upperKey := key asUppercase.
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	1899	lowerKey := key asLowercase.
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	1900
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1901	menu keysAndValuesDo:[:anIndex :el\| \|c l\|
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1902	(el canSelect and:[(l := el textLabel) notNil]) ifTrue:[
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1903	l size ~~ 0 ifTrue:[
dce33f8bb806 intitial checkin ca parents: diff changeset	1904	(c := el accessCharacter) notNil ifTrue:[
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	1905	(c == upperKey or:[c == lowerKey]) ifTrue:[
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1906	^ menu selection:el
dce33f8bb806 intitial checkin ca parents: diff changeset	1907	]
dce33f8bb806 intitial checkin ca parents: diff changeset	1908	] ifFalse:[
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	1909	((c := l first) == upperKey or:[c == lowerKey]) ifTrue:[
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1910	anIndex > cIdx ifTrue:[
dce33f8bb806 intitial checkin ca parents: diff changeset	1911	^ menu selection:el
dce33f8bb806 intitial checkin ca parents: diff changeset	1912	] ifFalse:[
dce33f8bb806 intitial checkin ca parents: diff changeset	1913	idx isNil ifTrue:[
dce33f8bb806 intitial checkin ca parents: diff changeset	1914	idx := anIndex
dce33f8bb806 intitial checkin ca parents: diff changeset	1915	] ifFalse:[
dce33f8bb806 intitial checkin ca parents: diff changeset	1916	anIndex > idx ifTrue:[
dce33f8bb806 intitial checkin ca parents: diff changeset	1917	anIndex ~~ cIdx ifTrue:[
dce33f8bb806 intitial checkin ca parents: diff changeset	1918	idx := anIndex
dce33f8bb806 intitial checkin ca parents: diff changeset	1919	]
dce33f8bb806 intitial checkin ca parents: diff changeset	1920	]
dce33f8bb806 intitial checkin ca parents: diff changeset	1921	]
dce33f8bb806 intitial checkin ca parents: diff changeset	1922	]
dce33f8bb806 intitial checkin ca parents: diff changeset	1923
dce33f8bb806 intitial checkin ca parents: diff changeset	1924	]
dce33f8bb806 intitial checkin ca parents: diff changeset	1925	]
dce33f8bb806 intitial checkin ca parents: diff changeset	1926	]
dce33f8bb806 intitial checkin ca parents: diff changeset	1927	]
dce33f8bb806 intitial checkin ca parents: diff changeset	1928	].
dce33f8bb806 intitial checkin ca parents: diff changeset	1929	menu selection:(menu itemAt:idx)
dce33f8bb806 intitial checkin ca parents: diff changeset	1930
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1931	!
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1932
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1933	sizeChanged:how
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1934	self isFitPanel ifTrue:[
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1935	self mustRearrange.
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1936	].
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1937	super sizeChanged:how
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1938	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	1939
dce33f8bb806 intitial checkin ca parents: diff changeset	1940	!MenuPanel methodsFor:'grabbing'!
dce33f8bb806 intitial checkin ca parents: diff changeset	1941
dce33f8bb806 intitial checkin ca parents: diff changeset	1942	grabMouseAndKeyboard
dce33f8bb806 intitial checkin ca parents: diff changeset	1943	"get exclusive access to pointer and keyboard
dce33f8bb806 intitial checkin ca parents: diff changeset	1944	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1945	\|sensor\|
dce33f8bb806 intitial checkin ca parents: diff changeset	1946
dce33f8bb806 intitial checkin ca parents: diff changeset	1947	realized ifTrue:[
dce33f8bb806 intitial checkin ca parents: diff changeset	1948	sensor := self sensor.
dce33f8bb806 intitial checkin ca parents: diff changeset	1949
dce33f8bb806 intitial checkin ca parents: diff changeset	1950	device activePointerGrab ~~ self ifTrue:[
dce33f8bb806 intitial checkin ca parents: diff changeset	1951	sensor notNil ifTrue:[
dce33f8bb806 intitial checkin ca parents: diff changeset	1952	sensor flushMotionEventsFor:nil.
dce33f8bb806 intitial checkin ca parents: diff changeset	1953	].
dce33f8bb806 intitial checkin ca parents: diff changeset	1954
dce33f8bb806 intitial checkin ca parents: diff changeset	1955	(device grabPointerInView:self) ifFalse:[
dce33f8bb806 intitial checkin ca parents: diff changeset	1956	Delay waitForSeconds:0.1.
dce33f8bb806 intitial checkin ca parents: diff changeset	1957	(device grabPointerInView:self) ifFalse:[
dce33f8bb806 intitial checkin ca parents: diff changeset	1958	"give up"
dce33f8bb806 intitial checkin ca parents: diff changeset	1959	'PopUpView [warning]: could not grab pointer' errorPrintCR.
dce33f8bb806 intitial checkin ca parents: diff changeset	1960	self unmap
dce33f8bb806 intitial checkin ca parents: diff changeset	1961	]
dce33f8bb806 intitial checkin ca parents: diff changeset	1962	]
dce33f8bb806 intitial checkin ca parents: diff changeset	1963	].
dce33f8bb806 intitial checkin ca parents: diff changeset	1964
dce33f8bb806 intitial checkin ca parents: diff changeset	1965	device activeKeyboardGrab ~~ self ifTrue:[
dce33f8bb806 intitial checkin ca parents: diff changeset	1966	sensor notNil ifTrue:[
dce33f8bb806 intitial checkin ca parents: diff changeset	1967	device sync.
dce33f8bb806 intitial checkin ca parents: diff changeset	1968	sensor flushKeyboardFor:nil
dce33f8bb806 intitial checkin ca parents: diff changeset	1969	].
dce33f8bb806 intitial checkin ca parents: diff changeset	1970	device grabKeyboardInView:self.
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	1971	self getKeyboardFocus
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1972	]
dce33f8bb806 intitial checkin ca parents: diff changeset	1973	]
dce33f8bb806 intitial checkin ca parents: diff changeset	1974
dce33f8bb806 intitial checkin ca parents: diff changeset	1975
dce33f8bb806 intitial checkin ca parents: diff changeset	1976	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1977
dce33f8bb806 intitial checkin ca parents: diff changeset	1978	ungrabMouseAndKeyboard
dce33f8bb806 intitial checkin ca parents: diff changeset	1979	"ungrap resources( mouse and keyboard )
dce33f8bb806 intitial checkin ca parents: diff changeset	1980	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1981	\|sensor\|
dce33f8bb806 intitial checkin ca parents: diff changeset	1982
dce33f8bb806 intitial checkin ca parents: diff changeset	1983	device activePointerGrab == self ifTrue:[
dce33f8bb806 intitial checkin ca parents: diff changeset	1984	device ungrabPointer.
dce33f8bb806 intitial checkin ca parents: diff changeset	1985	].
dce33f8bb806 intitial checkin ca parents: diff changeset	1986	device activeKeyboardGrab == self ifTrue:[
dce33f8bb806 intitial checkin ca parents: diff changeset	1987	(sensor := self sensor) notNil ifTrue:[
dce33f8bb806 intitial checkin ca parents: diff changeset	1988	"/ make certain all X events have been received
dce33f8bb806 intitial checkin ca parents: diff changeset	1989	device sync.
dce33f8bb806 intitial checkin ca parents: diff changeset	1990	"/ now all events have been received.
dce33f8bb806 intitial checkin ca parents: diff changeset	1991	"/ now, flush all pointer events
dce33f8bb806 intitial checkin ca parents: diff changeset	1992	sensor flushKeyboardFor:self
dce33f8bb806 intitial checkin ca parents: diff changeset	1993	].
dce33f8bb806 intitial checkin ca parents: diff changeset	1994	device ungrabKeyboard.
dce33f8bb806 intitial checkin ca parents: diff changeset	1995	].
dce33f8bb806 intitial checkin ca parents: diff changeset	1996	(superMenu notNil and:[superMenu shown and:[superMenu isPopUpView]]) ifTrue:[
dce33f8bb806 intitial checkin ca parents: diff changeset	1997	superMenu grabMouseAndKeyboard
dce33f8bb806 intitial checkin ca parents: diff changeset	1998	]
dce33f8bb806 intitial checkin ca parents: diff changeset	1999
dce33f8bb806 intitial checkin ca parents: diff changeset	2000
dce33f8bb806 intitial checkin ca parents: diff changeset	2001
dce33f8bb806 intitial checkin ca parents: diff changeset	2002	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	2003
dce33f8bb806 intitial checkin ca parents: diff changeset	2004	!MenuPanel methodsFor:'initialize / release'!
dce33f8bb806 intitial checkin ca parents: diff changeset	2005
dce33f8bb806 intitial checkin ca parents: diff changeset	2006	create
dce33f8bb806 intitial checkin ca parents: diff changeset	2007	"create the shadow view for a none contained submenu; see initStyle
dce33f8bb806 intitial checkin ca parents: diff changeset	2008	"
dce33f8bb806 intitial checkin ca parents: diff changeset	2009	super create.
dce33f8bb806 intitial checkin ca parents: diff changeset	2010
dce33f8bb806 intitial checkin ca parents: diff changeset	2011	self isPopUpView ifTrue:[
dce33f8bb806 intitial checkin ca parents: diff changeset	2012	shadowView isNil ifTrue:[
dce33f8bb806 intitial checkin ca parents: diff changeset	2013	shadowView := (ShadowView onDevice:device) for:self
dce33f8bb806 intitial checkin ca parents: diff changeset	2014	]
dce33f8bb806 intitial checkin ca parents: diff changeset	2015	] ifFalse:[
dce33f8bb806 intitial checkin ca parents: diff changeset	2016	explicitExtent == true ifTrue:[
dce33f8bb806 intitial checkin ca parents: diff changeset	2017	(self extent x) == (superView extent x) ifTrue:[
dce33f8bb806 intitial checkin ca parents: diff changeset	2018	self verticalLayout:false
dce33f8bb806 intitial checkin ca parents: diff changeset	2019	]
dce33f8bb806 intitial checkin ca parents: diff changeset	2020	]
dce33f8bb806 intitial checkin ca parents: diff changeset	2021	]
dce33f8bb806 intitial checkin ca parents: diff changeset	2022	!
dce33f8bb806 intitial checkin ca parents: diff changeset	2023
dce33f8bb806 intitial checkin ca parents: diff changeset	2024	destroy
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2025	"destroy items and shadowView; remove dependencies
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2026	"
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2027	\|channel\|
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2028
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2029	self do:[:el\|el destroy].
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2030
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2031	(channel := self menuHolder) notNil ifTrue:[ channel removeDependent:self].
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2032	(channel := self enableChannel) notNil ifTrue:[ channel removeDependent:self].
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2033
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2034	super destroy.
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2035	superMenu := nil.
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2036	items := nil.
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2037	shadowView notNil ifTrue:[shadowView destroy].
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2038
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2039	!
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2040
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2041	focusSequence
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2042	"return the elements through which we can step via
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2043	NextField/PreviousField keys
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2044	"
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2045	^ nil
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2046	!
dce33f8bb806 intitial checkin ca parents: diff changeset	2047
dce33f8bb806 intitial checkin ca parents: diff changeset	2048	initialize
dce33f8bb806 intitial checkin ca parents: diff changeset	2049	"set default configuration
dce33f8bb806 intitial checkin ca parents: diff changeset	2050	"
dce33f8bb806 intitial checkin ca parents: diff changeset	2051	super initialize.
dce33f8bb806 intitial checkin ca parents: diff changeset	2052	font := font on:device.
dce33f8bb806 intitial checkin ca parents: diff changeset	2053	self origin:0.0@0.0.
dce33f8bb806 intitial checkin ca parents: diff changeset	2054	originChanged := extentChanged := false.
dce33f8bb806 intitial checkin ca parents: diff changeset	2055	explicitExtent := nil.
dce33f8bb806 intitial checkin ca parents: diff changeset	2056	shortKeyInset := 0.
dce33f8bb806 intitial checkin ca parents: diff changeset	2057	mustRearrange := false.
dce33f8bb806 intitial checkin ca parents: diff changeset	2058	self level:1.
dce33f8bb806 intitial checkin ca parents: diff changeset	2059	!
dce33f8bb806 intitial checkin ca parents: diff changeset	2060
dce33f8bb806 intitial checkin ca parents: diff changeset	2061	mapped
dce33f8bb806 intitial checkin ca parents: diff changeset	2062	"grab the pointer here, when visible (but not control is already lost).
dce33f8bb806 intitial checkin ca parents: diff changeset	2063	If the grab fails, try again and unmap myself if that fails too.
dce33f8bb806 intitial checkin ca parents: diff changeset	2064	"
dce33f8bb806 intitial checkin ca parents: diff changeset	2065	\|anItemList\|
dce33f8bb806 intitial checkin ca parents: diff changeset	2066
dce33f8bb806 intitial checkin ca parents: diff changeset	2067	mapTime := Time millisecondClockValue.
dce33f8bb806 intitial checkin ca parents: diff changeset	2068	super mapped.
dce33f8bb806 intitial checkin ca parents: diff changeset	2069
dce33f8bb806 intitial checkin ca parents: diff changeset	2070	anItemList := InitialSelectionQuerySignal raise.
dce33f8bb806 intitial checkin ca parents: diff changeset	2071
dce33f8bb806 intitial checkin ca parents: diff changeset	2072	self isPopUpView ifTrue:[
dce33f8bb806 intitial checkin ca parents: diff changeset	2073	self grabMouseAndKeyboard
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2074	] ifFalse:[
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2075	super viewBackground:(self backgroundColor)
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2076	. ].
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2077	self do:[:el\| el updateIndicators ].
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2078
dce33f8bb806 intitial checkin ca parents: diff changeset	2079	anItemList size > 0 ifTrue:[
dce33f8bb806 intitial checkin ca parents: diff changeset	2080	self redrawX:0 y:0 width:10000 height:10000.
dce33f8bb806 intitial checkin ca parents: diff changeset	2081	self openMenusFromItems:anItemList.
dce33f8bb806 intitial checkin ca parents: diff changeset	2082	].
dce33f8bb806 intitial checkin ca parents: diff changeset	2083
dce33f8bb806 intitial checkin ca parents: diff changeset	2084	!
dce33f8bb806 intitial checkin ca parents: diff changeset	2085
dce33f8bb806 intitial checkin ca parents: diff changeset	2086	realize
dce33f8bb806 intitial checkin ca parents: diff changeset	2087	"realize menu and shadowView
dce33f8bb806 intitial checkin ca parents: diff changeset	2088	"
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2089	\|bsz\|
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2090
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2091	self isPopUpView ifTrue:[
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2092	shadowView notNil ifTrue:[
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2093	bsz := self styleAt:#borderWidth.
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2094	bsz ~~ self borderWidth ifTrue:[
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2095	self borderWidth:bsz
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2096	].
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2097	shadowView realize
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2098	].
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2099	self raise.
dce33f8bb806 intitial checkin ca parents: diff changeset	2100	].
dce33f8bb806 intitial checkin ca parents: diff changeset	2101	super realize.
dce33f8bb806 intitial checkin ca parents: diff changeset	2102
dce33f8bb806 intitial checkin ca parents: diff changeset	2103
dce33f8bb806 intitial checkin ca parents: diff changeset	2104	!
dce33f8bb806 intitial checkin ca parents: diff changeset	2105
dce33f8bb806 intitial checkin ca parents: diff changeset	2106	recreate
dce33f8bb806 intitial checkin ca parents: diff changeset	2107	"this is called after a snapin. If the image was saved with an active menu,
dce33f8bb806 intitial checkin ca parents: diff changeset	2108	hide the menu
dce33f8bb806 intitial checkin ca parents: diff changeset	2109	"
dce33f8bb806 intitial checkin ca parents: diff changeset	2110	self selection:nil.
dce33f8bb806 intitial checkin ca parents: diff changeset	2111	super recreate.
dce33f8bb806 intitial checkin ca parents: diff changeset	2112
dce33f8bb806 intitial checkin ca parents: diff changeset	2113	!
dce33f8bb806 intitial checkin ca parents: diff changeset	2114
dce33f8bb806 intitial checkin ca parents: diff changeset	2115	unmap
dce33f8bb806 intitial checkin ca parents: diff changeset	2116	"unmap view
dce33f8bb806 intitial checkin ca parents: diff changeset	2117	"
dce33f8bb806 intitial checkin ca parents: diff changeset	2118	self ungrabMouseAndKeyboard.
dce33f8bb806 intitial checkin ca parents: diff changeset	2119	super unmap.
dce33f8bb806 intitial checkin ca parents: diff changeset	2120	shadowView notNil ifTrue:[shadowView unmap].
dce33f8bb806 intitial checkin ca parents: diff changeset	2121
dce33f8bb806 intitial checkin ca parents: diff changeset	2122
dce33f8bb806 intitial checkin ca parents: diff changeset	2123	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	2124
dce33f8bb806 intitial checkin ca parents: diff changeset	2125	!MenuPanel methodsFor:'misc'!
dce33f8bb806 intitial checkin ca parents: diff changeset	2126
dce33f8bb806 intitial checkin ca parents: diff changeset	2127	superMenu
dce33f8bb806 intitial checkin ca parents: diff changeset	2128	"returns supermenu or nil
dce33f8bb806 intitial checkin ca parents: diff changeset	2129	"
dce33f8bb806 intitial checkin ca parents: diff changeset	2130	^ superMenu
dce33f8bb806 intitial checkin ca parents: diff changeset	2131
dce33f8bb806 intitial checkin ca parents: diff changeset	2132
dce33f8bb806 intitial checkin ca parents: diff changeset	2133	!
dce33f8bb806 intitial checkin ca parents: diff changeset	2134
dce33f8bb806 intitial checkin ca parents: diff changeset	2135	superMenu:aSuperMenu
dce33f8bb806 intitial checkin ca parents: diff changeset	2136	"set the supermenu starting from
dce33f8bb806 intitial checkin ca parents: diff changeset	2137	"
dce33f8bb806 intitial checkin ca parents: diff changeset	2138	superMenu := aSuperMenu.
dce33f8bb806 intitial checkin ca parents: diff changeset	2139	!
dce33f8bb806 intitial checkin ca parents: diff changeset	2140
dce33f8bb806 intitial checkin ca parents: diff changeset	2141	topMenu
dce33f8bb806 intitial checkin ca parents: diff changeset	2142	"returns the topMenu; the one having no superMenu
dce33f8bb806 intitial checkin ca parents: diff changeset	2143	"
dce33f8bb806 intitial checkin ca parents: diff changeset	2144	\|top\|
dce33f8bb806 intitial checkin ca parents: diff changeset	2145
dce33f8bb806 intitial checkin ca parents: diff changeset	2146	top := self.
dce33f8bb806 intitial checkin ca parents: diff changeset	2147
dce33f8bb806 intitial checkin ca parents: diff changeset	2148	[ top superMenu notNil ] whileTrue:[
dce33f8bb806 intitial checkin ca parents: diff changeset	2149	top := top superMenu
dce33f8bb806 intitial checkin ca parents: diff changeset	2150	].
dce33f8bb806 intitial checkin ca parents: diff changeset	2151	^ top
dce33f8bb806 intitial checkin ca parents: diff changeset	2152
dce33f8bb806 intitial checkin ca parents: diff changeset	2153
dce33f8bb806 intitial checkin ca parents: diff changeset	2154	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	2155
dce33f8bb806 intitial checkin ca parents: diff changeset	2156	!MenuPanel methodsFor:'private'!
dce33f8bb806 intitial checkin ca parents: diff changeset	2157
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2158	menuAdornmentAt:aSymbol
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2159	"returns a value derived from adornment
dce33f8bb806 intitial checkin ca parents: diff changeset	2160	"
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2161	\|adm\|
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2162
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2163	adm := adornment ? DefaultAdornment.
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2164	^ adm at:aSymbol ifAbsent:nil
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2165	!
dce33f8bb806 intitial checkin ca parents: diff changeset	2166
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2167	menuAdornmentAt:aSymbol put:something
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2168	"sets a value for the specific menu
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2169	"
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2170	\|adm\|
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2171
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2172	(self menuAdornmentAt:aSymbol) ~~ something ifTrue:[
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2173	adornment isNil ifTrue:[
dce33f8bb806 intitial checkin ca parents: diff changeset	2174	adornment := DefaultAdornment copy
dce33f8bb806 intitial checkin ca parents: diff changeset	2175	].
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2176	adornment at:aSymbol put:something.
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2177	self mustRearrange.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2178	]
dce33f8bb806 intitial checkin ca parents: diff changeset	2179	!
dce33f8bb806 intitial checkin ca parents: diff changeset	2180
dce33f8bb806 intitial checkin ca parents: diff changeset	2181	onEachPerform:aSelector withArgList:aList
dce33f8bb806 intitial checkin ca parents: diff changeset	2182	"on each item perform selector with an argument derived from aList
dce33f8bb806 intitial checkin ca parents: diff changeset	2183	"
dce33f8bb806 intitial checkin ca parents: diff changeset	2184	\|size\|
dce33f8bb806 intitial checkin ca parents: diff changeset	2185
dce33f8bb806 intitial checkin ca parents: diff changeset	2186	aList isCollection ifTrue:[
dce33f8bb806 intitial checkin ca parents: diff changeset	2187	items size >= aList size ifTrue:[
dce33f8bb806 intitial checkin ca parents: diff changeset	2188	aList keysAndValuesDo:[:anIndex :anArg\|
dce33f8bb806 intitial checkin ca parents: diff changeset	2189	(items at:anIndex) perform:aSelector with:anArg
dce33f8bb806 intitial checkin ca parents: diff changeset	2190	]
dce33f8bb806 intitial checkin ca parents: diff changeset	2191	]
dce33f8bb806 intitial checkin ca parents: diff changeset	2192	] ifFalse:[
dce33f8bb806 intitial checkin ca parents: diff changeset	2193	self do:[:anItem\| anItem perform:aSelector with:aList ]
dce33f8bb806 intitial checkin ca parents: diff changeset	2194	]
dce33f8bb806 intitial checkin ca parents: diff changeset	2195
dce33f8bb806 intitial checkin ca parents: diff changeset	2196
dce33f8bb806 intitial checkin ca parents: diff changeset	2197	!
dce33f8bb806 intitial checkin ca parents: diff changeset	2198
dce33f8bb806 intitial checkin ca parents: diff changeset	2199	openMenusFromItems:anItemList
dce33f8bb806 intitial checkin ca parents: diff changeset	2200	"open all menus derived from sequence of items
dce33f8bb806 intitial checkin ca parents: diff changeset	2201	"
dce33f8bb806 intitial checkin ca parents: diff changeset	2202	\|item\|
dce33f8bb806 intitial checkin ca parents: diff changeset	2203
dce33f8bb806 intitial checkin ca parents: diff changeset	2204	(anItemList isNil or:[anItemList isEmpty]) ifTrue:[
dce33f8bb806 intitial checkin ca parents: diff changeset	2205	^ self
dce33f8bb806 intitial checkin ca parents: diff changeset	2206	].
dce33f8bb806 intitial checkin ca parents: diff changeset	2207	item := anItemList removeLast.
dce33f8bb806 intitial checkin ca parents: diff changeset	2208
dce33f8bb806 intitial checkin ca parents: diff changeset	2209	item enabled ifFalse:[
dce33f8bb806 intitial checkin ca parents: diff changeset	2210	^ self
dce33f8bb806 intitial checkin ca parents: diff changeset	2211	].
dce33f8bb806 intitial checkin ca parents: diff changeset	2212
dce33f8bb806 intitial checkin ca parents: diff changeset	2213	InitialSelectionQuerySignal answer:anItemList do:[
dce33f8bb806 intitial checkin ca parents: diff changeset	2214	self selection:item
dce33f8bb806 intitial checkin ca parents: diff changeset	2215	]
dce33f8bb806 intitial checkin ca parents: diff changeset	2216	!
dce33f8bb806 intitial checkin ca parents: diff changeset	2217
dce33f8bb806 intitial checkin ca parents: diff changeset	2218	selectItemsForShortcutKey:aKey
dce33f8bb806 intitial checkin ca parents: diff changeset	2219	"get sequence of items up to the item providing the key (inclusive). The
dce33f8bb806 intitial checkin ca parents: diff changeset	2220	first entry into the collection is the item providing the key, the last
dce33f8bb806 intitial checkin ca parents: diff changeset	2221	entry is the item in the topMenu( reverse )
dce33f8bb806 intitial checkin ca parents: diff changeset	2222	"
dce33f8bb806 intitial checkin ca parents: diff changeset	2223	\|seq\|
dce33f8bb806 intitial checkin ca parents: diff changeset	2224
dce33f8bb806 intitial checkin ca parents: diff changeset	2225	self do:[:anItem\|
dce33f8bb806 intitial checkin ca parents: diff changeset	2226	anItem isEnabled ifTrue:[
dce33f8bb806 intitial checkin ca parents: diff changeset	2227	anItem shortcutKey = aKey ifTrue:[
dce33f8bb806 intitial checkin ca parents: diff changeset	2228	seq := OrderedCollection new.
dce33f8bb806 intitial checkin ca parents: diff changeset	2229	] ifFalse:[
dce33f8bb806 intitial checkin ca parents: diff changeset	2230	anItem hasSubmenu ifTrue:[
dce33f8bb806 intitial checkin ca parents: diff changeset	2231	seq := anItem submenu selectItemsForShortcutKey:aKey
dce33f8bb806 intitial checkin ca parents: diff changeset	2232	]
dce33f8bb806 intitial checkin ca parents: diff changeset	2233	].
dce33f8bb806 intitial checkin ca parents: diff changeset	2234	seq notNil ifTrue:[
dce33f8bb806 intitial checkin ca parents: diff changeset	2235	seq add:anItem.
dce33f8bb806 intitial checkin ca parents: diff changeset	2236	^ seq
dce33f8bb806 intitial checkin ca parents: diff changeset	2237	]
dce33f8bb806 intitial checkin ca parents: diff changeset	2238	]
dce33f8bb806 intitial checkin ca parents: diff changeset	2239	].
dce33f8bb806 intitial checkin ca parents: diff changeset	2240	^ nil
dce33f8bb806 intitial checkin ca parents: diff changeset	2241
dce33f8bb806 intitial checkin ca parents: diff changeset	2242	!
dce33f8bb806 intitial checkin ca parents: diff changeset	2243
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2244	styleAt:aSymbol
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2245	"gets a value derived from the style in the topMenu
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2246	"
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2247	\|aStyle\|
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2248
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2249	superMenu isNil ifTrue:[
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2250	aStyle := style ? DefaultStyle.
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2251	^ aStyle at:aSymbol ifAbsent:nil
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2252	].
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2253	^ superMenu styleAt:aSymbol
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2254
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2255	!
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2256
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2257	styleAt:aSymbol put:aValue
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2258	"sets a value derived from the style in the topMenu
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2259	"
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2260	\|aStyle\|
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2261
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2262	superMenu isNil ifTrue:[
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2263	aStyle := style ? DefaultStyle.
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2264
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2265	(aStyle at:aSymbol ifAbsent:nil) ~~ aValue ifTrue:[
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2266	style isNil ifTrue:[
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2267	style := DefaultStyle copy.
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2268	].
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2269	style at:aSymbol put:aValue.
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2270	]
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2271	] ifFalse:[
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2272	superMenu styleAt:aSymbol put:aValue
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2273	]
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2274	!
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2275
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2276	translatePoint:aPoint to:aView
dce33f8bb806 intitial checkin ca parents: diff changeset	2277	"translate a point into a views point; in case of no view nil is returned
dce33f8bb806 intitial checkin ca parents: diff changeset	2278	"
dce33f8bb806 intitial checkin ca parents: diff changeset	2279	aView notNil ifTrue:[
dce33f8bb806 intitial checkin ca parents: diff changeset	2280	aView == self ifTrue:[^ aPoint].
dce33f8bb806 intitial checkin ca parents: diff changeset	2281	^ device translatePoint:aPoint from:(self id) to:(aView id)
dce33f8bb806 intitial checkin ca parents: diff changeset	2282	].
dce33f8bb806 intitial checkin ca parents: diff changeset	2283	^ nil
dce33f8bb806 intitial checkin ca parents: diff changeset	2284
dce33f8bb806 intitial checkin ca parents: diff changeset	2285	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	2286
dce33f8bb806 intitial checkin ca parents: diff changeset	2287	!MenuPanel methodsFor:'private searching'!
dce33f8bb806 intitial checkin ca parents: diff changeset	2288
dce33f8bb806 intitial checkin ca parents: diff changeset	2289	itemAtX:x y:y
dce33f8bb806 intitial checkin ca parents: diff changeset	2290	"returns item at a point or nil
dce33f8bb806 intitial checkin ca parents: diff changeset	2291	"
dce33f8bb806 intitial checkin ca parents: diff changeset	2292	self do:[:el\| (el containsPointX:x y:y) ifTrue:[^el] ].
dce33f8bb806 intitial checkin ca parents: diff changeset	2293	^ nil
dce33f8bb806 intitial checkin ca parents: diff changeset	2294
dce33f8bb806 intitial checkin ca parents: diff changeset	2295
dce33f8bb806 intitial checkin ca parents: diff changeset	2296	!
dce33f8bb806 intitial checkin ca parents: diff changeset	2297
dce33f8bb806 intitial checkin ca parents: diff changeset	2298	superMenuAtX:x y:y
dce33f8bb806 intitial checkin ca parents: diff changeset	2299	"returns supermenu at a point or nil
dce33f8bb806 intitial checkin ca parents: diff changeset	2300	"
dce33f8bb806 intitial checkin ca parents: diff changeset	2301	\|menu\|
dce33f8bb806 intitial checkin ca parents: diff changeset	2302
dce33f8bb806 intitial checkin ca parents: diff changeset	2303	(self containsPointX:x y:y) ifTrue:[^ self].
dce33f8bb806 intitial checkin ca parents: diff changeset	2304	menu := self.
dce33f8bb806 intitial checkin ca parents: diff changeset	2305
dce33f8bb806 intitial checkin ca parents: diff changeset	2306	[ (menu := menu superMenu) notNil ] whileTrue:[
dce33f8bb806 intitial checkin ca parents: diff changeset	2307	(menu containsPoint:(self translatePoint:(x@y) to:menu)) ifTrue:[
dce33f8bb806 intitial checkin ca parents: diff changeset	2308	^ menu
dce33f8bb806 intitial checkin ca parents: diff changeset	2309	]
dce33f8bb806 intitial checkin ca parents: diff changeset	2310	].
dce33f8bb806 intitial checkin ca parents: diff changeset	2311	^ nil
dce33f8bb806 intitial checkin ca parents: diff changeset	2312
dce33f8bb806 intitial checkin ca parents: diff changeset	2313
dce33f8bb806 intitial checkin ca parents: diff changeset	2314	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	2315
dce33f8bb806 intitial checkin ca parents: diff changeset	2316	!MenuPanel methodsFor:'queries'!
dce33f8bb806 intitial checkin ca parents: diff changeset	2317
dce33f8bb806 intitial checkin ca parents: diff changeset	2318	canDrawItem
dce33f8bb806 intitial checkin ca parents: diff changeset	2319	"returns true if an item could be drawn otherwise false
dce33f8bb806 intitial checkin ca parents: diff changeset	2320	"
dce33f8bb806 intitial checkin ca parents: diff changeset	2321	^ (mustRearrange not and:[self shown])
dce33f8bb806 intitial checkin ca parents: diff changeset	2322
dce33f8bb806 intitial checkin ca parents: diff changeset	2323
dce33f8bb806 intitial checkin ca parents: diff changeset	2324	!
dce33f8bb806 intitial checkin ca parents: diff changeset	2325
dce33f8bb806 intitial checkin ca parents: diff changeset	2326	containsPoint:aPoint
dce33f8bb806 intitial checkin ca parents: diff changeset	2327	"returns true if point is contained by the view
dce33f8bb806 intitial checkin ca parents: diff changeset	2328	"
dce33f8bb806 intitial checkin ca parents: diff changeset	2329	^ self containsPointX:(aPoint x) y:(aPoint y)
dce33f8bb806 intitial checkin ca parents: diff changeset	2330	!
dce33f8bb806 intitial checkin ca parents: diff changeset	2331
dce33f8bb806 intitial checkin ca parents: diff changeset	2332	containsPointX:x y:y
dce33f8bb806 intitial checkin ca parents: diff changeset	2333	"returns true if point is contained by the view
dce33f8bb806 intitial checkin ca parents: diff changeset	2334	"
dce33f8bb806 intitial checkin ca parents: diff changeset	2335	\|ext\|
dce33f8bb806 intitial checkin ca parents: diff changeset	2336
dce33f8bb806 intitial checkin ca parents: diff changeset	2337	(x >= 0 and:[y >= 0]) ifTrue:[
dce33f8bb806 intitial checkin ca parents: diff changeset	2338	ext := self computeExtent.
dce33f8bb806 intitial checkin ca parents: diff changeset	2339	^ (x < ext x and:[y < ext y])
dce33f8bb806 intitial checkin ca parents: diff changeset	2340	].
dce33f8bb806 intitial checkin ca parents: diff changeset	2341	^ false
dce33f8bb806 intitial checkin ca parents: diff changeset	2342
dce33f8bb806 intitial checkin ca parents: diff changeset	2343
dce33f8bb806 intitial checkin ca parents: diff changeset	2344	!
dce33f8bb806 intitial checkin ca parents: diff changeset	2345
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2346	hasGroupDividerAt:anIndex
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2347	"returns true if a divider is defined at an index
dce33f8bb806 intitial checkin ca parents: diff changeset	2348	"
dce33f8bb806 intitial checkin ca parents: diff changeset	2349	\|i\|
dce33f8bb806 intitial checkin ca parents: diff changeset	2350
dce33f8bb806 intitial checkin ca parents: diff changeset	2351	groupSizes size ~~ 0 ifTrue:[
dce33f8bb806 intitial checkin ca parents: diff changeset	2352	i := 0.
dce33f8bb806 intitial checkin ca parents: diff changeset	2353
dce33f8bb806 intitial checkin ca parents: diff changeset	2354	groupSizes do:[:t\|
dce33f8bb806 intitial checkin ca parents: diff changeset	2355	(i := i + t) == anIndex ifTrue:[
dce33f8bb806 intitial checkin ca parents: diff changeset	2356	^ true
dce33f8bb806 intitial checkin ca parents: diff changeset	2357	]
dce33f8bb806 intitial checkin ca parents: diff changeset	2358	]
dce33f8bb806 intitial checkin ca parents: diff changeset	2359	].
dce33f8bb806 intitial checkin ca parents: diff changeset	2360	^ false
dce33f8bb806 intitial checkin ca parents: diff changeset	2361
dce33f8bb806 intitial checkin ca parents: diff changeset	2362	!
dce33f8bb806 intitial checkin ca parents: diff changeset	2363
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2364	hasGroupDividers
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2365	"returns true if any group divider exists
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2366	"
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2367	^ (items size ~~ 0 and:[groupSizes size ~~ 0])
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2368	!
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2369
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2370	isEnabled
dce33f8bb806 intitial checkin ca parents: diff changeset	2371	"returns enabled state of menu and items
dce33f8bb806 intitial checkin ca parents: diff changeset	2372	"
dce33f8bb806 intitial checkin ca parents: diff changeset	2373	^ self enabled
dce33f8bb806 intitial checkin ca parents: diff changeset	2374	!
dce33f8bb806 intitial checkin ca parents: diff changeset	2375
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2376	isFitPanel
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2377	"returns true if the panel is the first in the menu hierarchy in must
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2378	be fit to the extent of its superView
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2379	"
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2380	superView isNil ifTrue:[
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2381	^ false
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2382	].
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2383	^ self styleAt:#fitFirstPanel
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2384	!
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2385
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2386	isPopUpView
dce33f8bb806 intitial checkin ca parents: diff changeset	2387	"return true if view is a popup view; without decoration
dce33f8bb806 intitial checkin ca parents: diff changeset	2388	and popUp to top immediately
dce33f8bb806 intitial checkin ca parents: diff changeset	2389	"
dce33f8bb806 intitial checkin ca parents: diff changeset	2390	^ superView isNil
dce33f8bb806 intitial checkin ca parents: diff changeset	2391
dce33f8bb806 intitial checkin ca parents: diff changeset	2392
dce33f8bb806 intitial checkin ca parents: diff changeset	2393	!
dce33f8bb806 intitial checkin ca parents: diff changeset	2394
dce33f8bb806 intitial checkin ca parents: diff changeset	2395	isVerticalLayout
dce33f8bb806 intitial checkin ca parents: diff changeset	2396	"returns true if vertical layout otherwise false( horizontal layout )
dce33f8bb806 intitial checkin ca parents: diff changeset	2397	"
dce33f8bb806 intitial checkin ca parents: diff changeset	2398	^ self verticalLayout
dce33f8bb806 intitial checkin ca parents: diff changeset	2399
dce33f8bb806 intitial checkin ca parents: diff changeset	2400
dce33f8bb806 intitial checkin ca parents: diff changeset	2401	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	2402
dce33f8bb806 intitial checkin ca parents: diff changeset	2403	!MenuPanel methodsFor:'selection'!
dce33f8bb806 intitial checkin ca parents: diff changeset	2404
dce33f8bb806 intitial checkin ca parents: diff changeset	2405	hasSelection
dce33f8bb806 intitial checkin ca parents: diff changeset	2406	"returns true if a selection exists
dce33f8bb806 intitial checkin ca parents: diff changeset	2407	"
dce33f8bb806 intitial checkin ca parents: diff changeset	2408	^ self selection notNil
dce33f8bb806 intitial checkin ca parents: diff changeset	2409	!
dce33f8bb806 intitial checkin ca parents: diff changeset	2410
dce33f8bb806 intitial checkin ca parents: diff changeset	2411	isValidSelection:something
dce33f8bb806 intitial checkin ca parents: diff changeset	2412	"returns true if something could be selected
dce33f8bb806 intitial checkin ca parents: diff changeset	2413	"
dce33f8bb806 intitial checkin ca parents: diff changeset	2414	\|item\|
dce33f8bb806 intitial checkin ca parents: diff changeset	2415
dce33f8bb806 intitial checkin ca parents: diff changeset	2416	(item := self itemAt:something) notNil ifTrue:[
dce33f8bb806 intitial checkin ca parents: diff changeset	2417	^ item canSelect
dce33f8bb806 intitial checkin ca parents: diff changeset	2418	].
dce33f8bb806 intitial checkin ca parents: diff changeset	2419	^ false
dce33f8bb806 intitial checkin ca parents: diff changeset	2420	!
dce33f8bb806 intitial checkin ca parents: diff changeset	2421
dce33f8bb806 intitial checkin ca parents: diff changeset	2422	selection
dce33f8bb806 intitial checkin ca parents: diff changeset	2423	"returns current selected item or nil
dce33f8bb806 intitial checkin ca parents: diff changeset	2424	"
dce33f8bb806 intitial checkin ca parents: diff changeset	2425	^ selection
dce33f8bb806 intitial checkin ca parents: diff changeset	2426
dce33f8bb806 intitial checkin ca parents: diff changeset	2427
dce33f8bb806 intitial checkin ca parents: diff changeset	2428	!
dce33f8bb806 intitial checkin ca parents: diff changeset	2429
dce33f8bb806 intitial checkin ca parents: diff changeset	2430	selection:anItemOrNil
dce33f8bb806 intitial checkin ca parents: diff changeset	2431	"change selection to an item
dce33f8bb806 intitial checkin ca parents: diff changeset	2432	"
dce33f8bb806 intitial checkin ca parents: diff changeset	2433	\|item newSel\|
dce33f8bb806 intitial checkin ca parents: diff changeset	2434
dce33f8bb806 intitial checkin ca parents: diff changeset	2435	selection isNumber ifTrue:[
dce33f8bb806 intitial checkin ca parents: diff changeset	2436	newSel := self itemAt:anItemOrNil
dce33f8bb806 intitial checkin ca parents: diff changeset	2437	] ifFalse:[
dce33f8bb806 intitial checkin ca parents: diff changeset	2438	(anItemOrNil notNil and:[anItemOrNil canSelect]) ifTrue:[
dce33f8bb806 intitial checkin ca parents: diff changeset	2439	newSel := anItemOrNil
dce33f8bb806 intitial checkin ca parents: diff changeset	2440	]
dce33f8bb806 intitial checkin ca parents: diff changeset	2441	].
dce33f8bb806 intitial checkin ca parents: diff changeset	2442
dce33f8bb806 intitial checkin ca parents: diff changeset	2443	selection == newSel ifTrue:[^ self].
dce33f8bb806 intitial checkin ca parents: diff changeset	2444
dce33f8bb806 intitial checkin ca parents: diff changeset	2445	(item := selection) notNil ifTrue:[
dce33f8bb806 intitial checkin ca parents: diff changeset	2446	selection := nil.
dce33f8bb806 intitial checkin ca parents: diff changeset	2447	item selected:false.
dce33f8bb806 intitial checkin ca parents: diff changeset	2448	].
dce33f8bb806 intitial checkin ca parents: diff changeset	2449	newSel isNil ifTrue:[
dce33f8bb806 intitial checkin ca parents: diff changeset	2450	self isPopUpView ifFalse:[
dce33f8bb806 intitial checkin ca parents: diff changeset	2451	self ungrabMouseAndKeyboard
dce33f8bb806 intitial checkin ca parents: diff changeset	2452	].
dce33f8bb806 intitial checkin ca parents: diff changeset	2453	^ self
dce33f8bb806 intitial checkin ca parents: diff changeset	2454	].
dce33f8bb806 intitial checkin ca parents: diff changeset	2455	selection := newSel.
dce33f8bb806 intitial checkin ca parents: diff changeset	2456	selection selected:true
dce33f8bb806 intitial checkin ca parents: diff changeset	2457	!
dce33f8bb806 intitial checkin ca parents: diff changeset	2458
dce33f8bb806 intitial checkin ca parents: diff changeset	2459	selectionIndex
dce33f8bb806 intitial checkin ca parents: diff changeset	2460	"returns index of current selection or 0
dce33f8bb806 intitial checkin ca parents: diff changeset	2461	"
dce33f8bb806 intitial checkin ca parents: diff changeset	2462	\|item\|
dce33f8bb806 intitial checkin ca parents: diff changeset	2463
dce33f8bb806 intitial checkin ca parents: diff changeset	2464	(item := self selection) notNil ifTrue:[
dce33f8bb806 intitial checkin ca parents: diff changeset	2465	^ self findFirst:[:el\| el == item ]
dce33f8bb806 intitial checkin ca parents: diff changeset	2466	].
dce33f8bb806 intitial checkin ca parents: diff changeset	2467	^ 0
dce33f8bb806 intitial checkin ca parents: diff changeset	2468
dce33f8bb806 intitial checkin ca parents: diff changeset	2469	!
dce33f8bb806 intitial checkin ca parents: diff changeset	2470
dce33f8bb806 intitial checkin ca parents: diff changeset	2471	selectionIndex:anIndex
dce33f8bb806 intitial checkin ca parents: diff changeset	2472	"set selection at an index
dce33f8bb806 intitial checkin ca parents: diff changeset	2473	"
dce33f8bb806 intitial checkin ca parents: diff changeset	2474	self selection:(self itemAt:anIndex)
dce33f8bb806 intitial checkin ca parents: diff changeset	2475	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	2476
dce33f8bb806 intitial checkin ca parents: diff changeset	2477	!MenuPanel::Item class methodsFor:'accessing'!
dce33f8bb806 intitial checkin ca parents: diff changeset	2478
dce33f8bb806 intitial checkin ca parents: diff changeset	2479	horizontalInset
dce33f8bb806 intitial checkin ca parents: diff changeset	2480	^ HorizontalInset
dce33f8bb806 intitial checkin ca parents: diff changeset	2481	!
dce33f8bb806 intitial checkin ca parents: diff changeset	2482
dce33f8bb806 intitial checkin ca parents: diff changeset	2483	labelRightOffset
dce33f8bb806 intitial checkin ca parents: diff changeset	2484	^ LabelRightOffset
dce33f8bb806 intitial checkin ca parents: diff changeset	2485	!
dce33f8bb806 intitial checkin ca parents: diff changeset	2486
dce33f8bb806 intitial checkin ca parents: diff changeset	2487	shortcutKeyOffset
dce33f8bb806 intitial checkin ca parents: diff changeset	2488	^ ShortcutKeyOffset
dce33f8bb806 intitial checkin ca parents: diff changeset	2489	!
dce33f8bb806 intitial checkin ca parents: diff changeset	2490
dce33f8bb806 intitial checkin ca parents: diff changeset	2491	verticalInset
dce33f8bb806 intitial checkin ca parents: diff changeset	2492	^ VerticalInset
dce33f8bb806 intitial checkin ca parents: diff changeset	2493	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	2494
dce33f8bb806 intitial checkin ca parents: diff changeset	2495	!MenuPanel::Item class methodsFor:'init style'!
dce33f8bb806 intitial checkin ca parents: diff changeset	2496
dce33f8bb806 intitial checkin ca parents: diff changeset	2497	initStyle
dce33f8bb806 intitial checkin ca parents: diff changeset	2498	"setup defaults
dce33f8bb806 intitial checkin ca parents: diff changeset	2499	"
dce33f8bb806 intitial checkin ca parents: diff changeset	2500	HorizontalInset := 4.
dce33f8bb806 intitial checkin ca parents: diff changeset	2501	VerticalInset := 4.
dce33f8bb806 intitial checkin ca parents: diff changeset	2502	LabelRightOffset := 15.
dce33f8bb806 intitial checkin ca parents: diff changeset	2503	ShortcutKeyOffset := 5.
dce33f8bb806 intitial checkin ca parents: diff changeset	2504
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2505	"/ IndicatorOn := Image fromFile:'RadioOn.xbm'.
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2506	"/ IndicatorOff := Image fromFile:'RadioOff.xbm'.
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2507
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2508	IndicatorOn := CheckToggle checkImageForStyle:#borderedFatcross.
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2509	IndicatorOff := CheckToggle checkImageForStyle:#border.
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2510
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2511	"
dce33f8bb806 intitial checkin ca parents: diff changeset	2512	self initStyle
dce33f8bb806 intitial checkin ca parents: diff changeset	2513	"
dce33f8bb806 intitial checkin ca parents: diff changeset	2514	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	2515
dce33f8bb806 intitial checkin ca parents: diff changeset	2516	!MenuPanel::Item class methodsFor:'instance creation'!
dce33f8bb806 intitial checkin ca parents: diff changeset	2517
dce33f8bb806 intitial checkin ca parents: diff changeset	2518	in:aSuperMenu
dce33f8bb806 intitial checkin ca parents: diff changeset	2519	^ self in:aSuperMenu label:nil
dce33f8bb806 intitial checkin ca parents: diff changeset	2520	!
dce33f8bb806 intitial checkin ca parents: diff changeset	2521
dce33f8bb806 intitial checkin ca parents: diff changeset	2522	in:aSuperMenu label:aLabel
dce33f8bb806 intitial checkin ca parents: diff changeset	2523	\|item\|
dce33f8bb806 intitial checkin ca parents: diff changeset	2524
dce33f8bb806 intitial checkin ca parents: diff changeset	2525	HorizontalInset isNil ifTrue:[ self initStyle ].
dce33f8bb806 intitial checkin ca parents: diff changeset	2526
dce33f8bb806 intitial checkin ca parents: diff changeset	2527	item := self new in:aSuperMenu.
dce33f8bb806 intitial checkin ca parents: diff changeset	2528	item label:aLabel.
dce33f8bb806 intitial checkin ca parents: diff changeset	2529	^ item
dce33f8bb806 intitial checkin ca parents: diff changeset	2530	!
dce33f8bb806 intitial checkin ca parents: diff changeset	2531
dce33f8bb806 intitial checkin ca parents: diff changeset	2532	in:aSuperMenu menuItem:aMenuItem
dce33f8bb806 intitial checkin ca parents: diff changeset	2533	\|item\|
dce33f8bb806 intitial checkin ca parents: diff changeset	2534
dce33f8bb806 intitial checkin ca parents: diff changeset	2535	item := self in:aSuperMenu.
dce33f8bb806 intitial checkin ca parents: diff changeset	2536	item menuItem:aMenuItem.
dce33f8bb806 intitial checkin ca parents: diff changeset	2537	^ item.
dce33f8bb806 intitial checkin ca parents: diff changeset	2538	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	2539
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	2540	!MenuPanel::Item methodsFor:'accept'!
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	2541
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	2542	accept
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	2543	"item accepted; perform action, ...
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	2544	"
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2545	\|sel res rcv num arg tval\|
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	2546
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	2547	(self enabled and:[self hasSubmenu not]) ifFalse:[
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	2548	^ nil
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	2549	].
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	2550
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2551	self hasIndication ifTrue:[
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2552	tval := self indicationValue not.
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2553	self indicationValue:tval
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2554	].
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2555
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	2556	value isNil ifTrue:[
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	2557	^ menuPanel findFirst:[:el\| el == self ]
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	2558	].
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	2559
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2560	(arg := self argument) isNil ifTrue:[
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2561	arg := tval
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	2562	].
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	2563
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	2564	value isSymbol ifFalse:[
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	2565	rcv := value.
396 433d9b5ecca9 bug fix in accept ca parents: 395 diff changeset	2566	(rcv respondsTo:#numArgs) ifFalse:[
433d9b5ecca9 bug fix in accept ca parents: 395 diff changeset	2567	^ rcv
433d9b5ecca9 bug fix in accept ca parents: 395 diff changeset	2568	].
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	2569	num := value numArgs.
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	2570	res := menuPanel findFirst:[:el\| el == self ].
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	2571
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	2572	num == 0 ifTrue:[
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	2573	sel := #value
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	2574	] ifFalse:[
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	2575	num == 1 ifTrue:[sel := #value:]
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	2576	ifFalse:[sel := #value:value:]
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	2577	]
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	2578	] ifTrue:[
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	2579	(rcv := menuPanel receiver) isNil ifTrue:[
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	2580	^ value
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	2581	].
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2582	sel := value.
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2583	num := value numArgs.
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	2584	res := value.
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	2585	].
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	2586
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	2587	num == 0 ifTrue:[
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	2588	rcv perform:sel
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	2589	] ifFalse:[
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	2590	num == 1 ifTrue:[
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	2591	rcv perform:sel with:arg
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	2592	] ifFalse:[
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	2593	rcv perform:sel with:arg with:self
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	2594	]
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	2595	].
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	2596	^ res
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	2597	! !
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	2598
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2599	!MenuPanel::Item methodsFor:'accessing'!
dce33f8bb806 intitial checkin ca parents: diff changeset	2600
dce33f8bb806 intitial checkin ca parents: diff changeset	2601	accessCharacter
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	2602	"returns my accessCharacter or nil
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2603	"
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	2604	accessCharacterPosition isNil ifTrue:[
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	2605	^ nil
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2606	].
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	2607	^ (rawLabel string) at:accessCharacterPosition
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2608	!
dce33f8bb806 intitial checkin ca parents: diff changeset	2609
dce33f8bb806 intitial checkin ca parents: diff changeset	2610	accessCharacterPosition
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2611	"get the access character position or nil
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2612	"
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	2613	^ accessCharacterPosition
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2614	!
dce33f8bb806 intitial checkin ca parents: diff changeset	2615
dce33f8bb806 intitial checkin ca parents: diff changeset	2616	accessCharacterPosition:anIndex
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2617	"set the access character position or nil
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2618	"
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2619	\|idx lbl\|
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2620
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2621	( (accessCharacterPosition ~~ anIndex)
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2622	and:[(lbl := self textLabel) notNil]
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	2623	) ifTrue:[
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2624	anIndex notNil ifTrue:[
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2625	(anIndex < 1 or:[anIndex > lbl size]) ifTrue:[
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2626	^ self
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2627	].
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	2628	].
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2629	accessCharacterPosition := anIndex.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2630	self updateRawLabel.
dce33f8bb806 intitial checkin ca parents: diff changeset	2631	].
dce33f8bb806 intitial checkin ca parents: diff changeset	2632	!
dce33f8bb806 intitial checkin ca parents: diff changeset	2633
dce33f8bb806 intitial checkin ca parents: diff changeset	2634	argument
dce33f8bb806 intitial checkin ca parents: diff changeset	2635	"gets the argument
dce33f8bb806 intitial checkin ca parents: diff changeset	2636	"
dce33f8bb806 intitial checkin ca parents: diff changeset	2637	adornment isNil ifTrue:[^ nil ].
dce33f8bb806 intitial checkin ca parents: diff changeset	2638	^ adornment argument
dce33f8bb806 intitial checkin ca parents: diff changeset	2639	!
dce33f8bb806 intitial checkin ca parents: diff changeset	2640
dce33f8bb806 intitial checkin ca parents: diff changeset	2641	argument:anArgument
dce33f8bb806 intitial checkin ca parents: diff changeset	2642	"sets the argument
dce33f8bb806 intitial checkin ca parents: diff changeset	2643	"
dce33f8bb806 intitial checkin ca parents: diff changeset	2644	self argument ~~ anArgument ifTrue:[
dce33f8bb806 intitial checkin ca parents: diff changeset	2645	self adornment argument:anArgument.
dce33f8bb806 intitial checkin ca parents: diff changeset	2646	]
dce33f8bb806 intitial checkin ca parents: diff changeset	2647	!
dce33f8bb806 intitial checkin ca parents: diff changeset	2648
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	2649	compareAccessCharacterWith:aKey
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	2650	"returns true if key is my access character
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	2651	"
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	2652	\|s\|
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	2653
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	2654	accessCharacterPosition notNil ifTrue:[
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	2655	s := (rawLabel string) at:accessCharacterPosition.
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	2656	s == aKey ifTrue:[^ true ].
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	2657	].
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	2658	^ false
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	2659	!
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	2660
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2661	label
dce33f8bb806 intitial checkin ca parents: diff changeset	2662	"returns the label
dce33f8bb806 intitial checkin ca parents: diff changeset	2663	"
dce33f8bb806 intitial checkin ca parents: diff changeset	2664	^ label
dce33f8bb806 intitial checkin ca parents: diff changeset	2665	!
dce33f8bb806 intitial checkin ca parents: diff changeset	2666
dce33f8bb806 intitial checkin ca parents: diff changeset	2667	label:aLabel
399 d083b1bce58d ST-80 compatibility ca parents: 396 diff changeset	2668	"set a new label; if the label changed, a redraw is performed;
d083b1bce58d ST-80 compatibility ca parents: 396 diff changeset	2669	handle characters $& (ST-80 compatibility)
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2670	"
399 d083b1bce58d ST-80 compatibility ca parents: 396 diff changeset	2671	\|type form i rest s\|
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	2672
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	2673	accessCharacterPosition := nil.
399 d083b1bce58d ST-80 compatibility ca parents: 396 diff changeset	2674	label := aLabel value.
d083b1bce58d ST-80 compatibility ca parents: 396 diff changeset	2675
d083b1bce58d ST-80 compatibility ca parents: 396 diff changeset	2676	(label isString and:[(s := label size) > 1]) ifTrue:[
d083b1bce58d ST-80 compatibility ca parents: 396 diff changeset	2677	i := 1.
d083b1bce58d ST-80 compatibility ca parents: 396 diff changeset	2678
d083b1bce58d ST-80 compatibility ca parents: 396 diff changeset	2679	[((i := label indexOf:$& startingAt:i) ~~ 0 and:[i < s])] whileTrue:[
d083b1bce58d ST-80 compatibility ca parents: 396 diff changeset	2680	rest := label copyFrom:(i+1).
d083b1bce58d ST-80 compatibility ca parents: 396 diff changeset	2681
d083b1bce58d ST-80 compatibility ca parents: 396 diff changeset	2682	i == 1 ifTrue:[label := rest]
d083b1bce58d ST-80 compatibility ca parents: 396 diff changeset	2683	ifFalse:[label := (label copyFrom:1 to:(i-1)), rest].
d083b1bce58d ST-80 compatibility ca parents: 396 diff changeset	2684
d083b1bce58d ST-80 compatibility ca parents: 396 diff changeset	2685	(label at:i) == $& ifTrue:[i := i + 1]
d083b1bce58d ST-80 compatibility ca parents: 396 diff changeset	2686	ifFalse:[accessCharacterPosition := i].
d083b1bce58d ST-80 compatibility ca parents: 396 diff changeset	2687	s := s - 1.
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	2688	]
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	2689	].
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2690
399 d083b1bce58d ST-80 compatibility ca parents: 396 diff changeset	2691	self updateRawLabel
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2692	!
dce33f8bb806 intitial checkin ca parents: diff changeset	2693
dce33f8bb806 intitial checkin ca parents: diff changeset	2694	menuPanel
dce33f8bb806 intitial checkin ca parents: diff changeset	2695	"returns my menuPanel
dce33f8bb806 intitial checkin ca parents: diff changeset	2696	"
399 d083b1bce58d ST-80 compatibility ca parents: 396 diff changeset	2697	^ menuPanel
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2698	!
dce33f8bb806 intitial checkin ca parents: diff changeset	2699
dce33f8bb806 intitial checkin ca parents: diff changeset	2700	nameKey
dce33f8bb806 intitial checkin ca parents: diff changeset	2701	"gets the nameKey
dce33f8bb806 intitial checkin ca parents: diff changeset	2702	"
dce33f8bb806 intitial checkin ca parents: diff changeset	2703	^ nameKey
dce33f8bb806 intitial checkin ca parents: diff changeset	2704	!
dce33f8bb806 intitial checkin ca parents: diff changeset	2705
dce33f8bb806 intitial checkin ca parents: diff changeset	2706	nameKey:aNameKey
dce33f8bb806 intitial checkin ca parents: diff changeset	2707	"sets the nameKey
dce33f8bb806 intitial checkin ca parents: diff changeset	2708	"
dce33f8bb806 intitial checkin ca parents: diff changeset	2709	nameKey := aNameKey.
dce33f8bb806 intitial checkin ca parents: diff changeset	2710	!
dce33f8bb806 intitial checkin ca parents: diff changeset	2711
dce33f8bb806 intitial checkin ca parents: diff changeset	2712	rawLabel
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2713	"returns my printable Label
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2714	"
dce33f8bb806 intitial checkin ca parents: diff changeset	2715	^ rawLabel
dce33f8bb806 intitial checkin ca parents: diff changeset	2716	!
dce33f8bb806 intitial checkin ca parents: diff changeset	2717
dce33f8bb806 intitial checkin ca parents: diff changeset	2718	shortcutKey
dce33f8bb806 intitial checkin ca parents: diff changeset	2719	"get the key to press to select the submenu from the keyboard or if
dce33f8bb806 intitial checkin ca parents: diff changeset	2720	no submenu exists evaluate the action assigned to the item (accept).
dce33f8bb806 intitial checkin ca parents: diff changeset	2721	"
dce33f8bb806 intitial checkin ca parents: diff changeset	2722	adornment isNil ifTrue:[^ nil ].
dce33f8bb806 intitial checkin ca parents: diff changeset	2723	^ adornment shortcutKey
dce33f8bb806 intitial checkin ca parents: diff changeset	2724	!
dce33f8bb806 intitial checkin ca parents: diff changeset	2725
dce33f8bb806 intitial checkin ca parents: diff changeset	2726	shortcutKey:aKey
dce33f8bb806 intitial checkin ca parents: diff changeset	2727	"set the key to press to select the submenu from the keyboard or if
dce33f8bb806 intitial checkin ca parents: diff changeset	2728	no submenu exists evaluate the action assigned to the item (accept).
dce33f8bb806 intitial checkin ca parents: diff changeset	2729	"
dce33f8bb806 intitial checkin ca parents: diff changeset	2730	self shortcutKey ~~ aKey ifTrue:[
dce33f8bb806 intitial checkin ca parents: diff changeset	2731	self adornment shortcutKey:aKey.
dce33f8bb806 intitial checkin ca parents: diff changeset	2732	self redraw.
dce33f8bb806 intitial checkin ca parents: diff changeset	2733	].
dce33f8bb806 intitial checkin ca parents: diff changeset	2734	!
dce33f8bb806 intitial checkin ca parents: diff changeset	2735
dce33f8bb806 intitial checkin ca parents: diff changeset	2736	submenu
dce33f8bb806 intitial checkin ca parents: diff changeset	2737	"returns my submenu or nil
dce33f8bb806 intitial checkin ca parents: diff changeset	2738	"
dce33f8bb806 intitial checkin ca parents: diff changeset	2739	^ subMenu
dce33f8bb806 intitial checkin ca parents: diff changeset	2740	!
dce33f8bb806 intitial checkin ca parents: diff changeset	2741
dce33f8bb806 intitial checkin ca parents: diff changeset	2742	submenu:aSubMenu
dce33f8bb806 intitial checkin ca parents: diff changeset	2743	"set a new submenu; an existing submenu will be destroyed. This might lead
dce33f8bb806 intitial checkin ca parents: diff changeset	2744	to a redraw if 'hasSubmenu' changed
dce33f8bb806 intitial checkin ca parents: diff changeset	2745	"
dce33f8bb806 intitial checkin ca parents: diff changeset	2746	\|hadMenu\|
dce33f8bb806 intitial checkin ca parents: diff changeset	2747
dce33f8bb806 intitial checkin ca parents: diff changeset	2748	(hadMenu := subMenu notNil) ifTrue:[
dce33f8bb806 intitial checkin ca parents: diff changeset	2749	subMenu destroy
dce33f8bb806 intitial checkin ca parents: diff changeset	2750	].
dce33f8bb806 intitial checkin ca parents: diff changeset	2751
dce33f8bb806 intitial checkin ca parents: diff changeset	2752	(subMenu := aSubMenu) notNil ifTrue:[
dce33f8bb806 intitial checkin ca parents: diff changeset	2753	aSubMenu class == Menu ifTrue:[
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2754	subMenu := menuPanel class subMenu:aSubMenu
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2755	].
dce33f8bb806 intitial checkin ca parents: diff changeset	2756	subMenu superMenu:menuPanel
dce33f8bb806 intitial checkin ca parents: diff changeset	2757	].
dce33f8bb806 intitial checkin ca parents: diff changeset	2758
dce33f8bb806 intitial checkin ca parents: diff changeset	2759	hadMenu ~~ (subMenu notNil) ifTrue:[
dce33f8bb806 intitial checkin ca parents: diff changeset	2760	self redraw
dce33f8bb806 intitial checkin ca parents: diff changeset	2761	]
dce33f8bb806 intitial checkin ca parents: diff changeset	2762
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	2763	!
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	2764
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2765	textLabel
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2766	"returns my textLabel or nil if none text
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2767	"
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2768	(rawLabel respondsTo:#string) ifTrue:[
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2769	^ rawLabel string
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2770	].
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2771	^ nil
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2772	!
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2773
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	2774	value
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	2775	"gets value
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	2776	"
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	2777	^ value
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	2778	!
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	2779
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	2780	value:something
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	2781	"could be a value holder, an action or selector
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	2782	"
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	2783	value := something.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2784	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	2785
dce33f8bb806 intitial checkin ca parents: diff changeset	2786	!MenuPanel::Item methodsFor:'accessing behavior'!
dce33f8bb806 intitial checkin ca parents: diff changeset	2787
dce33f8bb806 intitial checkin ca parents: diff changeset	2788	enabled
dce33f8bb806 intitial checkin ca parents: diff changeset	2789	"returns the enabled state
dce33f8bb806 intitial checkin ca parents: diff changeset	2790	"
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2791	^ enableChannel value ? true
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2792	!
dce33f8bb806 intitial checkin ca parents: diff changeset	2793
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	2794	enabled:something
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2795	"change the enabled state; if the state changed, a redraw is performed
dce33f8bb806 intitial checkin ca parents: diff changeset	2796	"
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2797	\|oldState newState\|
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2798
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2799	enableChannel isNil ifTrue:[
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2800	oldState := true
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2801	] ifFalse:[
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2802	oldState := enableChannel value.
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2803	(self isKindOfValueHolder:enableChannel) ifTrue:[
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2804	enableChannel removeDependent:self
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2805	]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2806	].
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2807	enableChannel := something.
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2808
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2809	enableChannel isNil ifTrue:[
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2810	newState := true
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2811	] ifFalse:[
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2812	(self isKindOfValueHolder:enableChannel) ifTrue:[
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2813	enableChannel addDependent:self
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2814	].
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2815	newState := enableChannel value.
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2816	].
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2817
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2818	newState ~~ oldState ifTrue:[
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2819	self redraw
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2820	]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2821
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2822	!
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2823
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2824	indication
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2825	"get on/off indication
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2826	"
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2827	adornment isNil ifTrue:[^ nil].
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2828	^ adornment indication
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2829	!
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2830
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2831	indication:something
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2832	"set on/off indication
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2833	"
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2834	\|old\|
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2835
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2836	old := self indication.
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2837	old == something ifTrue:[^ self].
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2838
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2839	(self isKindOfValueHolder:old) ifTrue:[
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2840	old removeDependent:self
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2841	].
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2842
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2843	(self isKindOfValueHolder:something) ifTrue:[
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2844	something addDependent:self
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2845	].
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2846	self adornment indication:something.
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2847	self updateRawLabel.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2848	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	2849
dce33f8bb806 intitial checkin ca parents: diff changeset	2850	!MenuPanel::Item methodsFor:'accessing dimension'!
dce33f8bb806 intitial checkin ca parents: diff changeset	2851
dce33f8bb806 intitial checkin ca parents: diff changeset	2852	height
dce33f8bb806 intitial checkin ca parents: diff changeset	2853	"gets height
dce33f8bb806 intitial checkin ca parents: diff changeset	2854	"
dce33f8bb806 intitial checkin ca parents: diff changeset	2855	layout isNil ifTrue:[
dce33f8bb806 intitial checkin ca parents: diff changeset	2856	^ self preferredExtentY
dce33f8bb806 intitial checkin ca parents: diff changeset	2857	].
dce33f8bb806 intitial checkin ca parents: diff changeset	2858	^ layout height
dce33f8bb806 intitial checkin ca parents: diff changeset	2859	!
dce33f8bb806 intitial checkin ca parents: diff changeset	2860
dce33f8bb806 intitial checkin ca parents: diff changeset	2861	layout
dce33f8bb806 intitial checkin ca parents: diff changeset	2862	"returns my layout ( Rectangle )
dce33f8bb806 intitial checkin ca parents: diff changeset	2863	"
dce33f8bb806 intitial checkin ca parents: diff changeset	2864	^ layout
dce33f8bb806 intitial checkin ca parents: diff changeset	2865	!
dce33f8bb806 intitial checkin ca parents: diff changeset	2866
dce33f8bb806 intitial checkin ca parents: diff changeset	2867	layout:aLayout
dce33f8bb806 intitial checkin ca parents: diff changeset	2868	"set a new layout ( Rectangle )
dce33f8bb806 intitial checkin ca parents: diff changeset	2869	"
dce33f8bb806 intitial checkin ca parents: diff changeset	2870	layout := aLayout.
dce33f8bb806 intitial checkin ca parents: diff changeset	2871	self redraw.
dce33f8bb806 intitial checkin ca parents: diff changeset	2872	!
dce33f8bb806 intitial checkin ca parents: diff changeset	2873
dce33f8bb806 intitial checkin ca parents: diff changeset	2874	preferredExtentX
dce33f8bb806 intitial checkin ca parents: diff changeset	2875	"compute my preferred extent x
dce33f8bb806 intitial checkin ca parents: diff changeset	2876	"
dce33f8bb806 intitial checkin ca parents: diff changeset	2877	\|x s\|
dce33f8bb806 intitial checkin ca parents: diff changeset	2878
dce33f8bb806 intitial checkin ca parents: diff changeset	2879	x := HorizontalInset + HorizontalInset.
dce33f8bb806 intitial checkin ca parents: diff changeset	2880
dce33f8bb806 intitial checkin ca parents: diff changeset	2881	rawLabel notNil ifTrue:[
dce33f8bb806 intitial checkin ca parents: diff changeset	2882	x := x + (rawLabel widthOn:menuPanel).
dce33f8bb806 intitial checkin ca parents: diff changeset	2883
dce33f8bb806 intitial checkin ca parents: diff changeset	2884	(s := self shortcutKeyAsString) notNil ifTrue:[
dce33f8bb806 intitial checkin ca parents: diff changeset	2885	x := x + LabelRightOffset + (s widthOn:menuPanel)
dce33f8bb806 intitial checkin ca parents: diff changeset	2886	].
dce33f8bb806 intitial checkin ca parents: diff changeset	2887	menuPanel verticalLayout ifTrue:[
dce33f8bb806 intitial checkin ca parents: diff changeset	2888	self hasSubmenu ifTrue:[
dce33f8bb806 intitial checkin ca parents: diff changeset	2889	x := x + self rightArrow width.
dce33f8bb806 intitial checkin ca parents: diff changeset	2890
dce33f8bb806 intitial checkin ca parents: diff changeset	2891	s notNil ifTrue:[
dce33f8bb806 intitial checkin ca parents: diff changeset	2892	x := x + ShortcutKeyOffset
dce33f8bb806 intitial checkin ca parents: diff changeset	2893	] ifFalse:[
dce33f8bb806 intitial checkin ca parents: diff changeset	2894	x := x + LabelRightOffset
dce33f8bb806 intitial checkin ca parents: diff changeset	2895	]
dce33f8bb806 intitial checkin ca parents: diff changeset	2896	]
dce33f8bb806 intitial checkin ca parents: diff changeset	2897	]
dce33f8bb806 intitial checkin ca parents: diff changeset	2898	].
dce33f8bb806 intitial checkin ca parents: diff changeset	2899	^ x
dce33f8bb806 intitial checkin ca parents: diff changeset	2900	!
dce33f8bb806 intitial checkin ca parents: diff changeset	2901
dce33f8bb806 intitial checkin ca parents: diff changeset	2902	preferredExtentY
dce33f8bb806 intitial checkin ca parents: diff changeset	2903	"compute my preferred extent y
dce33f8bb806 intitial checkin ca parents: diff changeset	2904	"
dce33f8bb806 intitial checkin ca parents: diff changeset	2905	\|y\|
dce33f8bb806 intitial checkin ca parents: diff changeset	2906
dce33f8bb806 intitial checkin ca parents: diff changeset	2907	rawLabel notNil ifTrue:[y := rawLabel heightOn:menuPanel]
dce33f8bb806 intitial checkin ca parents: diff changeset	2908	ifFalse:[y := menuPanel font height].
dce33f8bb806 intitial checkin ca parents: diff changeset	2909
dce33f8bb806 intitial checkin ca parents: diff changeset	2910	^ y + VerticalInset + VerticalInset.
dce33f8bb806 intitial checkin ca parents: diff changeset	2911	!
dce33f8bb806 intitial checkin ca parents: diff changeset	2912
dce33f8bb806 intitial checkin ca parents: diff changeset	2913	width
dce33f8bb806 intitial checkin ca parents: diff changeset	2914	"gets width
dce33f8bb806 intitial checkin ca parents: diff changeset	2915	"
dce33f8bb806 intitial checkin ca parents: diff changeset	2916	layout isNil ifTrue:[
dce33f8bb806 intitial checkin ca parents: diff changeset	2917	^ self preferredExtentX
dce33f8bb806 intitial checkin ca parents: diff changeset	2918	].
dce33f8bb806 intitial checkin ca parents: diff changeset	2919	^ layout width
dce33f8bb806 intitial checkin ca parents: diff changeset	2920	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	2921
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2922	!MenuPanel::Item methodsFor:'change & update'!
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2923
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2924	update:something with:aParameter from:changedObject
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2925	changedObject == self indication ifTrue:[
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2926	rawLabel icon:(self indicator)
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2927	].
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2928	self redraw
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2929
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2930	!
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2931
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2932	updateIndicators
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2933	"update indicators
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2934	"
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2935	\|indicator\|
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2936
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2937	(indicator := self indicator) notNil ifTrue:[
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2938	indicator = rawLabel icon ifFalse:[
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2939	rawLabel icon:indicator.
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2940	self redraw.
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2941	]
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2942	].
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2943
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2944
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2945	! !
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2946
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2947	!MenuPanel::Item methodsFor:'constants'!
dce33f8bb806 intitial checkin ca parents: diff changeset	2948
dce33f8bb806 intitial checkin ca parents: diff changeset	2949	rightArrow
dce33f8bb806 intitial checkin ca parents: diff changeset	2950	"arrow used for submenu indication
dce33f8bb806 intitial checkin ca parents: diff changeset	2951	"
dce33f8bb806 intitial checkin ca parents: diff changeset	2952	^ SelectionInListView rightArrowFormOn:(menuPanel device)
dce33f8bb806 intitial checkin ca parents: diff changeset	2953	!
dce33f8bb806 intitial checkin ca parents: diff changeset	2954
dce33f8bb806 intitial checkin ca parents: diff changeset	2955	rightArrowShadow
dce33f8bb806 intitial checkin ca parents: diff changeset	2956	"shadow arrow used for submenu indication
dce33f8bb806 intitial checkin ca parents: diff changeset	2957	"
dce33f8bb806 intitial checkin ca parents: diff changeset	2958	^ SelectionInListView rightArrowShadowFormOn:(menuPanel device)
dce33f8bb806 intitial checkin ca parents: diff changeset	2959	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	2960
dce33f8bb806 intitial checkin ca parents: diff changeset	2961	!MenuPanel::Item methodsFor:'converting'!
dce33f8bb806 intitial checkin ca parents: diff changeset	2962
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2963	asMenuItem
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2964	"convert to a MenuItem
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2965	"
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2966	\|item\|
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2967
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2968	item := MenuItem labeled:(self label).
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2969	item enabled:(self enabled).
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2970	item accessCharacterPosition:(self accessCharacterPosition).
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2971	item nameKey:(self nameKey).
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2972	item shortcutKeyCharacter:(self shortcutKey).
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2973	item value:(value value).
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2974	item indication:(self indication value).
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2975
dce33f8bb806 intitial checkin ca parents: diff changeset	2976	subMenu notNil ifTrue:[
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2977	item submenu:(subMenu asMenu)
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2978	].
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2979	^ item
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2980
dce33f8bb806 intitial checkin ca parents: diff changeset	2981	!
dce33f8bb806 intitial checkin ca parents: diff changeset	2982
dce33f8bb806 intitial checkin ca parents: diff changeset	2983	menuItem:aMenuItem
dce33f8bb806 intitial checkin ca parents: diff changeset	2984	"setup attributes from a MenuItem
dce33f8bb806 intitial checkin ca parents: diff changeset	2985	"
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2986	\|acp lbl\|
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	2987
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2988	menuPanel disabledRedrawDo:[
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2989	label := nil.
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2990	self enabled:(aMenuItem enabled).
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2991	self nameKey:(aMenuItem nameKey).
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2992	self indication:(aMenuItem indication).
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2993
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2994	(lbl := aMenuItem labelImage value) isNil ifTrue:[
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2995	lbl := aMenuItem label.
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2996	].
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2997	self label:lbl.
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2998
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2999	self shortcutKey:(aMenuItem shortcutKeyCharacter).
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	3000
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	3001	(acp := aMenuItem accessCharacterPosition) notNil ifTrue:[
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	3002	self accessCharacterPosition:acp.
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	3003	].
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	3004
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3005	self submenu:(aMenuItem submenu).
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	3006	self value:(aMenuItem value).
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3007	]
dce33f8bb806 intitial checkin ca parents: diff changeset	3008	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	3009
dce33f8bb806 intitial checkin ca parents: diff changeset	3010	!MenuPanel::Item methodsFor:'drawing'!
dce33f8bb806 intitial checkin ca parents: diff changeset	3011
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3012	drawLabel
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3013	"draw label
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3014	"
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3015	\|y\|
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3016
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3017	self enabled ifTrue:[
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3018	menuPanel paint:(menuPanel foregroundColor)
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3019	] ifFalse:[
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3020	menuPanel paint:(menuPanel disabledForegroundColor)
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3021	].
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3022
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3023	y := (layout top) + (((layout height) - (rawLabel heightOn:menuPanel)) // 2).
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3024
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3025	(self textLabel) notNil ifTrue:[
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3026	y := y + menuPanel font ascent.
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3027	].
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3028	rawLabel displayOn:menuPanel x:((layout left)+HorizontalInset) y:y.
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3029	self drawShortcutKey.
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3030	!
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3031
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3032	drawSeparatingLines
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3033	"draw separating lines
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3034	"
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3035	\|l r t b\|
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3036
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3037	menuPanel showSeparatingLines ifTrue:[
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3038	l := layout left.
dce33f8bb806 intitial checkin ca parents: diff changeset	3039	r := layout right.
dce33f8bb806 intitial checkin ca parents: diff changeset	3040	t := layout top.
dce33f8bb806 intitial checkin ca parents: diff changeset	3041	b := layout bottom.
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3042
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3043	menuPanel paint:(menuPanel lightColor).
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3044
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3045	menuPanel verticalLayout ifTrue:[
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3046	b := b - 1.
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3047	t := t - 1.
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3048	menuPanel displayLineFromX:l y:b toX:r y:b.
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3049	menuPanel displayLineFromX:l y:t toX:r y:t.
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3050	b := b - 1.
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3051	t := t - 1.
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3052	menuPanel paint:(menuPanel shadowColor).
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3053	menuPanel displayLineFromX:l y:b toX:r y:b.
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3054	menuPanel displayLineFromX:l y:t toX:r y:t.
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3055	] ifFalse:[
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3056	r := r - 1.
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3057	l := l - 1.
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3058	menuPanel displayLineFromX:r y:t toX:r y:b.
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3059	menuPanel displayLineFromX:l y:t toX:l y:b.
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3060	r := r - 1.
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3061	l := l - 1.
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3062	menuPanel paint:(menuPanel shadowColor).
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3063	menuPanel displayLineFromX:r y:t toX:r y:b.
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3064	menuPanel displayLineFromX:l y:t toX:l y:b.
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3065	]
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3066	]
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3067	!
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3068
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3069	drawSeparator
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3070	"draw line separator
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3071	"
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3072	\|type l r y\|
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3073
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3074	type := self seperatorType.
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3075
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3076	(type notNil and:[type ~~ #blankLine and:[menuPanel verticalLayout]]) ifTrue:[
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3077	l := (layout left) + HorizontalInset.
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3078	r := (layout right) - HorizontalInset.
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3079	y := (layout top) - 1 + ((layout height) // 2).
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3080
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3081	type == #doubleLine ifTrue:[
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3082	y := y - 2.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3083	].
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3084	menuPanel paint:(menuPanel shadowColor).
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3085	menuPanel displayLineFromX:l y:y toX:r y:y.
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3086	menuPanel paint:(menuPanel lightColor).
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3087	y := y + 1.
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3088	menuPanel displayLineFromX:l y:y toX:r y:y.
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3089
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3090	type == #doubleLine ifTrue:[
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3091	y := y + 3.
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3092	menuPanel paint:(menuPanel shadowColor).
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3093	menuPanel displayLineFromX:l y:y toX:r y:y.
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3094	menuPanel paint:(menuPanel lightColor).
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3095	y := y + 1.
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3096	menuPanel displayLineFromX:l y:y toX:r y:y.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3097	]
dce33f8bb806 intitial checkin ca parents: diff changeset	3098	]
dce33f8bb806 intitial checkin ca parents: diff changeset	3099
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3100	!
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3101
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3102	drawShortcutKey
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3103	"draw the shorcutKey
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3104	"
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3105	\|string x y\|
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3106
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3107	(string:= self shortcutKeyAsString) notNil ifTrue:[
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3108	(x := menuPanel shortKeyInset) == 0 ifTrue:[
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3109	x := LabelRightOffset + (rawLabel widthOn:menuPanel)
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3110	].
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3111	x := (layout left) + x.
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3112	y := (layout top) + (((layout height) - (string heightOn:menuPanel)) // 2).
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3113	y := y + menuPanel font ascent.
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3114	string displayOn:menuPanel x:x y:y.
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3115	]
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3116	!
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3117
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3118	drawSubmenuIndication
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3119	"draw an arrow in case of having a submenu
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3120	"
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3121	\|form x y col\|
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3122
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3123	(subMenu notNil and:[menuPanel verticalLayout]) ifTrue:[
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3124	form := self rightArrow.
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3125	x := (layout right) - form width - HorizontalInset.
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3126	y := layout top + ((layout height - (form heightOn:menuPanel)) // 2).
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3127
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3128	self isSelected ifFalse:[
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3129	menuPanel paint:(menuPanel shadowColor).
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3130	col := menuPanel lightColor.
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3131	] ifTrue:[
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3132	menuPanel paint:(menuPanel lightColor).
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3133	col := menuPanel shadowColor.
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3134	].
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3135	menuPanel displayForm:form x:x y:y.
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3136	menuPanel paint:col.
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3137	menuPanel displayForm:(self rightArrowShadow) x:x y:y.
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3138	]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3139
dce33f8bb806 intitial checkin ca parents: diff changeset	3140	!
dce33f8bb806 intitial checkin ca parents: diff changeset	3141
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3142	redraw
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3143	"redraw item
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3144	"
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3145	\|ownBgCol x y paint\|
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3146
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3147	menuPanel canDrawItem ifFalse:[
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3148	^ self
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3149	].
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3150	self isSelected ifFalse:[
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3151	paint := menuPanel backgroundColor
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3152	] ifTrue:[
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3153	paint := menuPanel activeBackgroundColor
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3154	].
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3155
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3156	(ownBgCol := self backgroundColorFromLabel) isNil ifTrue:[
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3157	menuPanel paint:paint.
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3158	menuPanel fillRectangle:layout.
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3159	] ifFalse:[
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3160	self hasIndication ifFalse:[
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3161	menuPanel paint:ownBgCol.
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3162	menuPanel fillRectangle:layout.
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3163	] ifTrue:[
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3164	menuPanel paint:paint.
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3165	x := (rawLabel icon width) + HorizontalInset + 4.
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3166
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3167	menuPanel fillRectangleX:(layout left)
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3168	y:(layout top)
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3169	width:x
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3170	height:(layout height).
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3171
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3172	menuPanel paint:ownBgCol.
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3173
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3174	menuPanel fillRectangleX:(layout left + x)
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3175	y:(layout top)
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3176	width:(layout width - x)
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3177	height:(layout height).
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3178	ownBgCol := nil.
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3179	]
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3180	].
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3181	self drawSeparatingLines.
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3182
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3183	rawLabel notNil ifTrue:[
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3184	self drawLabel.
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3185	self drawSubmenuIndication.
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3186
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3187	(ownBgCol notNil and:[self isSelected]) ifTrue:[
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3188	x := Color black.
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3189	y := Color white.
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3190
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3191	ownBgCol brightness > 0.5 ifTrue:[menuPanel paint:(Color black)]
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3192	ifFalse:[menuPanel paint:(Color white)].
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3193
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3194	menuPanel displayRectangleX:(layout left + 1)
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3195	y:(layout top + 1)
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3196	width:(layout width - 2)
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3197	height:(layout height - 2).
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3198
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3199	menuPanel displayRectangleX:(layout left + 2)
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3200	y:(layout top + 2)
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3201	width:(layout width - 4)
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3202	height:(layout height - 4).
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3203	]
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3204	] ifFalse:[
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3205	self drawSeparator
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3206	]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3207	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	3208
dce33f8bb806 intitial checkin ca parents: diff changeset	3209	!MenuPanel::Item methodsFor:'initialization'!
dce33f8bb806 intitial checkin ca parents: diff changeset	3210
dce33f8bb806 intitial checkin ca parents: diff changeset	3211	destroy
dce33f8bb806 intitial checkin ca parents: diff changeset	3212	"destroy submenu
dce33f8bb806 intitial checkin ca parents: diff changeset	3213	"
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3214	self submenu:nil. "/ destroy submenus
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3215	self enabled:nil. "/ remove dependencies
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3216	self indication:nil. "/ remove dependencies
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3217	menuPanel := nil.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3218	!
dce33f8bb806 intitial checkin ca parents: diff changeset	3219
dce33f8bb806 intitial checkin ca parents: diff changeset	3220	in:aPanel
dce33f8bb806 intitial checkin ca parents: diff changeset	3221	"create item in a menuPanel
dce33f8bb806 intitial checkin ca parents: diff changeset	3222	"
dce33f8bb806 intitial checkin ca parents: diff changeset	3223	menuPanel := aPanel.
dce33f8bb806 intitial checkin ca parents: diff changeset	3224	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	3225
dce33f8bb806 intitial checkin ca parents: diff changeset	3226	!MenuPanel::Item methodsFor:'private'!
dce33f8bb806 intitial checkin ca parents: diff changeset	3227
dce33f8bb806 intitial checkin ca parents: diff changeset	3228	adornment
dce33f8bb806 intitial checkin ca parents: diff changeset	3229	"returns adornment; if not existing yet a new instance
dce33f8bb806 intitial checkin ca parents: diff changeset	3230	is created
dce33f8bb806 intitial checkin ca parents: diff changeset	3231	"
dce33f8bb806 intitial checkin ca parents: diff changeset	3232	adornment isNil ifTrue:[
dce33f8bb806 intitial checkin ca parents: diff changeset	3233	adornment := Adornment new
dce33f8bb806 intitial checkin ca parents: diff changeset	3234	].
dce33f8bb806 intitial checkin ca parents: diff changeset	3235	^ adornment
dce33f8bb806 intitial checkin ca parents: diff changeset	3236	!
dce33f8bb806 intitial checkin ca parents: diff changeset	3237
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3238	backgroundColorFromLabel
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3239	"returns the background color derived from label or nil
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3240	"
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3241	\|run\|
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3242
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3243	label isText ifFalse:[^ nil ].
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3244	run := label emphasis.
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3245	run size == 0 ifTrue:[^ nil ].
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3246
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3247	run := run first.
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3248
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3249	run size == 0 ifTrue:[
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3250	(run value isColor and:[run key == #backgroundColor]) ifTrue:[
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3251	^ run value
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3252	]
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3253	] ifFalse:[
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3254	run do:[:r\|
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3255	(r value isColor and:[r key == #backgroundColor]) ifTrue:[
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3256	^ r value
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3257	]
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3258	]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3259	].
dce33f8bb806 intitial checkin ca parents: diff changeset	3260	^ nil
dce33f8bb806 intitial checkin ca parents: diff changeset	3261	!
dce33f8bb806 intitial checkin ca parents: diff changeset	3262
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3263	indicationValue
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3264	"returns indication value or nil
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3265	"
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3266	\|indication val rcv sel\|
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3267
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3268	(indication := self indication) isNil ifTrue:[
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3269	^ nil
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3270	].
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3271
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3272	indication isSymbol ifFalse:[
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3273	val := indication value
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3274	] ifTrue:[
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3275	rcv := menuPanel receiver.
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3276	rcv notNil ifTrue:[
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3277	(indication last) == $: ifFalse:[
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3278	sel := indication
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3279	] ifTrue:[
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3280	sel := indication copyFrom:1 to:((indication size) - 1)
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3281	].
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3282	val := rcv perform:(sel asSymbol).
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3283	]
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3284	].
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3285	^ val == true
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3286	!
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3287
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3288	indicationValue:aValue
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3289	"returns indication value or nil
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3290	"
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3291	\|indication rcv\|
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3292
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3293	(indication := self indication) notNil ifTrue:[
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3294	indication isSymbol ifTrue:[
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3295	indication last == $: ifTrue:[
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3296	(rcv := menuPanel receiver) notNil ifTrue:[
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3297	rcv perform:indication with:aValue
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3298	]
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3299	]
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3300	] ifFalse:[
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3301	(self isKindOfValueHolder:indication) ifTrue:[
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3302	indication value:aValue
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3303	]
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3304	]
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3305	]
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3306	!
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3307
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3308	indicator
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3309	"returns indication form or nil
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3310	"
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3311	\|value\|
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3312
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3313	(value := self indicationValue) isNil ifTrue:[
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3314	^ nil
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3315	].
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3316	^ value ifTrue:[IndicatorOn] ifFalse:[IndicatorOff]
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3317	!
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3318
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3319	seperatorType
dce33f8bb806 intitial checkin ca parents: diff changeset	3320	"returns type of seperator line or nil
dce33f8bb806 intitial checkin ca parents: diff changeset	3321	"
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	3322	\|c lbl\|
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3323
dce33f8bb806 intitial checkin ca parents: diff changeset	3324	rawLabel isNil ifFalse:[
dce33f8bb806 intitial checkin ca parents: diff changeset	3325	^ nil
dce33f8bb806 intitial checkin ca parents: diff changeset	3326	].
dce33f8bb806 intitial checkin ca parents: diff changeset	3327
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	3328	(lbl := label value) isNil ifTrue:[
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3329	^ #singleLine
dce33f8bb806 intitial checkin ca parents: diff changeset	3330	].
dce33f8bb806 intitial checkin ca parents: diff changeset	3331
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	3332	lbl size == 1 ifTrue:[
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	3333	c := lbl first.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3334	c == $- ifTrue:[^ #singleLine].
dce33f8bb806 intitial checkin ca parents: diff changeset	3335	c == $= ifTrue:[^ #doubleLine].
dce33f8bb806 intitial checkin ca parents: diff changeset	3336	].
dce33f8bb806 intitial checkin ca parents: diff changeset	3337	^ #blankLine
dce33f8bb806 intitial checkin ca parents: diff changeset	3338	!
dce33f8bb806 intitial checkin ca parents: diff changeset	3339
dce33f8bb806 intitial checkin ca parents: diff changeset	3340	updateRawLabel
dce33f8bb806 intitial checkin ca parents: diff changeset	3341	"recreate rawLabel
dce33f8bb806 intitial checkin ca parents: diff changeset	3342	"
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3343	\|char size indicator\|
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3344
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	3345	(rawLabel := label value) isString ifFalse:[
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3346	^ menuPanel mustRearrange.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3347	].
dce33f8bb806 intitial checkin ca parents: diff changeset	3348
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3349	rawLabel isText ifFalse:[
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3350	rawLabel := rawLabel withoutSeparators
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3351	].
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3352	size := rawLabel size.
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3353
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3354	(indicator := self indicator) isNil ifTrue:[
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3355	size == 0 ifTrue:[
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3356	^ menuPanel mustRearrange
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3357	].
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3358
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3359	size == 1 ifTrue:[
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3360	char := rawLabel first.
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3361
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3362	(char == $- or:[char == $=]) ifTrue:[ "/ other line separators
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3363	label := String new:1.
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3364	label at:1 put:char.
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3365	rawLabel := nil.
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3366	^ menuPanel mustRearrange
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3367	]
dce33f8bb806 intitial checkin ca parents: diff changeset	3368	]
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3369	] ifFalse:[
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3370	size == 0 ifTrue:[rawLabel := label value]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3371	].
dce33f8bb806 intitial checkin ca parents: diff changeset	3372
dce33f8bb806 intitial checkin ca parents: diff changeset	3373	rawLabel isText ifFalse:[
dce33f8bb806 intitial checkin ca parents: diff changeset	3374	rawLabel := Text string:rawLabel emphasis:#bold
dce33f8bb806 intitial checkin ca parents: diff changeset	3375	].
dce33f8bb806 intitial checkin ca parents: diff changeset	3376	size := self accessCharacterPosition.
dce33f8bb806 intitial checkin ca parents: diff changeset	3377
dce33f8bb806 intitial checkin ca parents: diff changeset	3378	(size notNil and:[size <= rawLabel size]) ifTrue:[
dce33f8bb806 intitial checkin ca parents: diff changeset	3379	rawLabel emphasisAt:size add:#underline
dce33f8bb806 intitial checkin ca parents: diff changeset	3380	].
dce33f8bb806 intitial checkin ca parents: diff changeset	3381
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3382	(indicator := self indicator) notNil ifTrue:[
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3383	rawLabel := LabelAndIcon icon:indicator string:rawLabel.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3384	].
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3385	menuPanel mustRearrange.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3386	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	3387
dce33f8bb806 intitial checkin ca parents: diff changeset	3388	!MenuPanel::Item methodsFor:'queries'!
dce33f8bb806 intitial checkin ca parents: diff changeset	3389
dce33f8bb806 intitial checkin ca parents: diff changeset	3390	canSelect
dce33f8bb806 intitial checkin ca parents: diff changeset	3391	"returns true if item is selectable
dce33f8bb806 intitial checkin ca parents: diff changeset	3392	"
dce33f8bb806 intitial checkin ca parents: diff changeset	3393	^ (self enabled and:[rawLabel notNil])
dce33f8bb806 intitial checkin ca parents: diff changeset	3394	!
dce33f8bb806 intitial checkin ca parents: diff changeset	3395
dce33f8bb806 intitial checkin ca parents: diff changeset	3396	containsPointX:x y:y
dce33f8bb806 intitial checkin ca parents: diff changeset	3397	"returns true if point is contained in my layout
dce33f8bb806 intitial checkin ca parents: diff changeset	3398	"
dce33f8bb806 intitial checkin ca parents: diff changeset	3399	^ ( (x >= layout left)
dce33f8bb806 intitial checkin ca parents: diff changeset	3400	and:[x < layout right
dce33f8bb806 intitial checkin ca parents: diff changeset	3401	and:[y > layout top
dce33f8bb806 intitial checkin ca parents: diff changeset	3402	and:[y <= layout bottom]]]
dce33f8bb806 intitial checkin ca parents: diff changeset	3403	)
dce33f8bb806 intitial checkin ca parents: diff changeset	3404	!
dce33f8bb806 intitial checkin ca parents: diff changeset	3405
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3406	hasIndication
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3407	"returns true if on/off indication exists
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3408	"
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3409	^ self indication notNil
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3410	!
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3411
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3412	hasSubmenu
dce33f8bb806 intitial checkin ca parents: diff changeset	3413	"returns true if a submenu exists
dce33f8bb806 intitial checkin ca parents: diff changeset	3414	"
dce33f8bb806 intitial checkin ca parents: diff changeset	3415	^ self submenu notNil
dce33f8bb806 intitial checkin ca parents: diff changeset	3416	!
dce33f8bb806 intitial checkin ca parents: diff changeset	3417
dce33f8bb806 intitial checkin ca parents: diff changeset	3418	isEnabled
dce33f8bb806 intitial checkin ca parents: diff changeset	3419	"returns enabled state
dce33f8bb806 intitial checkin ca parents: diff changeset	3420	"
dce33f8bb806 intitial checkin ca parents: diff changeset	3421	^ self enabled
dce33f8bb806 intitial checkin ca parents: diff changeset	3422	!
dce33f8bb806 intitial checkin ca parents: diff changeset	3423
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3424	isKindOfValueHolder:something
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3425	"returns true if something is kind of vlaue holder
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3426	"
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3427	^ ((something respondsTo:#value:) and:[something isBlock not])
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3428
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3429
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3430
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3431
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3432
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3433	!
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3434
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3435	shortcutKeyAsString
dce33f8bb806 intitial checkin ca parents: diff changeset	3436	"converts shortcutKey to a text object
dce33f8bb806 intitial checkin ca parents: diff changeset	3437	"
dce33f8bb806 intitial checkin ca parents: diff changeset	3438	\|nm x key\|
dce33f8bb806 intitial checkin ca parents: diff changeset	3439
dce33f8bb806 intitial checkin ca parents: diff changeset	3440	"/ this is somewhat complicated: we have the symbolic key at hand,
dce33f8bb806 intitial checkin ca parents: diff changeset	3441	"/ but want to show the untranslated (inverse keyBoardMapped) key & modifier
dce33f8bb806 intitial checkin ca parents: diff changeset	3442	"/
dce33f8bb806 intitial checkin ca parents: diff changeset	3443
dce33f8bb806 intitial checkin ca parents: diff changeset	3444	(key := self shortcutKey) isNil ifTrue:[
dce33f8bb806 intitial checkin ca parents: diff changeset	3445	^ nil
dce33f8bb806 intitial checkin ca parents: diff changeset	3446	].
dce33f8bb806 intitial checkin ca parents: diff changeset	3447
dce33f8bb806 intitial checkin ca parents: diff changeset	3448	key isCharacter ifTrue:[
dce33f8bb806 intitial checkin ca parents: diff changeset	3449	nm := key asString
dce33f8bb806 intitial checkin ca parents: diff changeset	3450	] ifFalse:[
dce33f8bb806 intitial checkin ca parents: diff changeset	3451	nm := menuPanel device keyboardMap keyAtValue:key ifAbsent:key.
dce33f8bb806 intitial checkin ca parents: diff changeset	3452	"/
dce33f8bb806 intitial checkin ca parents: diff changeset	3453	"/ some modifier-key combination ?
dce33f8bb806 intitial checkin ca parents: diff changeset	3454	"/
dce33f8bb806 intitial checkin ca parents: diff changeset	3455
dce33f8bb806 intitial checkin ca parents: diff changeset	3456	(nm startsWith:#Cmd) ifTrue:[
dce33f8bb806 intitial checkin ca parents: diff changeset	3457	nm := (self shortcutKeyPrefixFor:#Cmd) , (nm copyFrom:4)
dce33f8bb806 intitial checkin ca parents: diff changeset	3458	] ifFalse:[(nm startsWith:#Alt) ifTrue:[
dce33f8bb806 intitial checkin ca parents: diff changeset	3459	nm := (self shortcutKeyPrefixFor:#Alt) , (nm copyFrom:4)
dce33f8bb806 intitial checkin ca parents: diff changeset	3460	] ifFalse:[(nm startsWith:#Meta) ifTrue:[
dce33f8bb806 intitial checkin ca parents: diff changeset	3461	nm := (self shortcutKeyPrefixFor:#Meta), (nm copyFrom:5)
dce33f8bb806 intitial checkin ca parents: diff changeset	3462	]
dce33f8bb806 intitial checkin ca parents: diff changeset	3463	ifFalse:[(nm startsWith:#Ctrl) ifTrue:[
dce33f8bb806 intitial checkin ca parents: diff changeset	3464	nm := (self shortcutKeyPrefixFor:#Ctrl), (nm copyFrom:5)
dce33f8bb806 intitial checkin ca parents: diff changeset	3465	] ifFalse:[
dce33f8bb806 intitial checkin ca parents: diff changeset	3466	nm := nm asString
dce33f8bb806 intitial checkin ca parents: diff changeset	3467	]]]]
dce33f8bb806 intitial checkin ca parents: diff changeset	3468	].
dce33f8bb806 intitial checkin ca parents: diff changeset	3469	^ Text string:nm emphasis:#bold
dce33f8bb806 intitial checkin ca parents: diff changeset	3470
dce33f8bb806 intitial checkin ca parents: diff changeset	3471
dce33f8bb806 intitial checkin ca parents: diff changeset	3472	!
dce33f8bb806 intitial checkin ca parents: diff changeset	3473
dce33f8bb806 intitial checkin ca parents: diff changeset	3474	shortcutKeyPrefixFor:aModifier
dce33f8bb806 intitial checkin ca parents: diff changeset	3475	"returns prefix assigned to a modifier
dce33f8bb806 intitial checkin ca parents: diff changeset	3476	"
dce33f8bb806 intitial checkin ca parents: diff changeset	3477	\|m\|
dce33f8bb806 intitial checkin ca parents: diff changeset	3478
dce33f8bb806 intitial checkin ca parents: diff changeset	3479	m := menuPanel device modifierKeyTopFor:aModifier.
dce33f8bb806 intitial checkin ca parents: diff changeset	3480
dce33f8bb806 intitial checkin ca parents: diff changeset	3481	m notNil ifTrue:[
dce33f8bb806 intitial checkin ca parents: diff changeset	3482	^ m , '-'
dce33f8bb806 intitial checkin ca parents: diff changeset	3483	].
dce33f8bb806 intitial checkin ca parents: diff changeset	3484	^ aModifier.
dce33f8bb806 intitial checkin ca parents: diff changeset	3485	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	3486
dce33f8bb806 intitial checkin ca parents: diff changeset	3487	!MenuPanel::Item methodsFor:'selection'!
dce33f8bb806 intitial checkin ca parents: diff changeset	3488
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3489	hideSubmenu
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3490	"hide submenu
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3491	"
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3492	\|windowGrp\|
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3493
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3494	subMenu realized ifFalse:[
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3495	menuPanel device unmapWindow:subMenu id
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3496	] ifTrue:[
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3497	subMenu hide
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3498	]
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3499	!
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3500
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3501	isSelected
dce33f8bb806 intitial checkin ca parents: diff changeset	3502	"returns true if item is selected
dce33f8bb806 intitial checkin ca parents: diff changeset	3503	"
dce33f8bb806 intitial checkin ca parents: diff changeset	3504	^ menuPanel selection == self
dce33f8bb806 intitial checkin ca parents: diff changeset	3505	!
dce33f8bb806 intitial checkin ca parents: diff changeset	3506
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3507	openSubmenuAt:aPoint
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3508	"open submenu at a point
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3509	"
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3510	\|windowGrp\|
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3511
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3512	windowGrp := menuPanel topMenu windowGroup.
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3513
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3514	windowGrp notNil ifTrue:[
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3515	subMenu windowGroup:windowGrp.
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3516	windowGrp addTopView:subMenu.
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3517	].
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3518	subMenu fixSize.
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3519	subMenu origin:aPoint.
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3520	subMenu makeFullyVisible.
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3521
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3522	subMenu realized ifFalse:[
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3523	subMenu realize.
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3524	] ifTrue:[
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3525	menuPanel topMenu device mapWindow:subMenu id.
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3526	].
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3527
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3528	!
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3529
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3530	selected:aState
dce33f8bb806 intitial checkin ca parents: diff changeset	3531	"change selection to a state. Dependant on the state open or hide an existing
dce33f8bb806 intitial checkin ca parents: diff changeset	3532	submenu and perform a redraw
dce33f8bb806 intitial checkin ca parents: diff changeset	3533	"
dce33f8bb806 intitial checkin ca parents: diff changeset	3534	\|p d subMenu\|
dce33f8bb806 intitial checkin ca parents: diff changeset	3535
dce33f8bb806 intitial checkin ca parents: diff changeset	3536	subMenu := self submenu.
dce33f8bb806 intitial checkin ca parents: diff changeset	3537
dce33f8bb806 intitial checkin ca parents: diff changeset	3538	aState ifFalse:[
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3539	self redraw.
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3540	subMenu notNil ifTrue:[
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3541	self hideSubmenu
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3542	].
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3543	^ self
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3544	].
dce33f8bb806 intitial checkin ca parents: diff changeset	3545	menuPanel shown ifFalse:[^ self].
dce33f8bb806 intitial checkin ca parents: diff changeset	3546	self redraw.
dce33f8bb806 intitial checkin ca parents: diff changeset	3547
dce33f8bb806 intitial checkin ca parents: diff changeset	3548	subMenu isNil ifTrue:[
dce33f8bb806 intitial checkin ca parents: diff changeset	3549	^ menuPanel grabMouseAndKeyboard
dce33f8bb806 intitial checkin ca parents: diff changeset	3550	].
dce33f8bb806 intitial checkin ca parents: diff changeset	3551
dce33f8bb806 intitial checkin ca parents: diff changeset	3552	menuPanel verticalLayout ifTrue:[p := (layout right) @ (layout top)]
dce33f8bb806 intitial checkin ca parents: diff changeset	3553	ifFalse:[p := (layout left) @ (layout bottom)].
dce33f8bb806 intitial checkin ca parents: diff changeset	3554
dce33f8bb806 intitial checkin ca parents: diff changeset	3555	d := menuPanel device.
dce33f8bb806 intitial checkin ca parents: diff changeset	3556	p := d translatePoint:p from:(menuPanel id) to:(d rootWindowId).
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3557	self openSubmenuAt:p.
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3558
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3559
dce33f8bb806 intitial checkin ca parents: diff changeset	3560	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	3561
dce33f8bb806 intitial checkin ca parents: diff changeset	3562	!MenuPanel::Item::Adornment methodsFor:'accessing'!
dce33f8bb806 intitial checkin ca parents: diff changeset	3563
dce33f8bb806 intitial checkin ca parents: diff changeset	3564	accessCharacterPosition
dce33f8bb806 intitial checkin ca parents: diff changeset	3565	"get the index of the access character in the label text or string, or nil if none
dce33f8bb806 intitial checkin ca parents: diff changeset	3566	"
dce33f8bb806 intitial checkin ca parents: diff changeset	3567	^ accessCharacterPosition
dce33f8bb806 intitial checkin ca parents: diff changeset	3568	!
dce33f8bb806 intitial checkin ca parents: diff changeset	3569
dce33f8bb806 intitial checkin ca parents: diff changeset	3570	accessCharacterPosition:anIndexOrNil
dce33f8bb806 intitial checkin ca parents: diff changeset	3571	"set the index of the access character in the label text or string, or nil if none
dce33f8bb806 intitial checkin ca parents: diff changeset	3572	"
dce33f8bb806 intitial checkin ca parents: diff changeset	3573	accessCharacterPosition := anIndexOrNil
dce33f8bb806 intitial checkin ca parents: diff changeset	3574	!
dce33f8bb806 intitial checkin ca parents: diff changeset	3575
dce33f8bb806 intitial checkin ca parents: diff changeset	3576	argument
dce33f8bb806 intitial checkin ca parents: diff changeset	3577	"ST/X goody; get argunment to a selector or block
dce33f8bb806 intitial checkin ca parents: diff changeset	3578	"
dce33f8bb806 intitial checkin ca parents: diff changeset	3579	^ argument
dce33f8bb806 intitial checkin ca parents: diff changeset	3580	!
dce33f8bb806 intitial checkin ca parents: diff changeset	3581
dce33f8bb806 intitial checkin ca parents: diff changeset	3582	argument:anArgumentOrNil
dce33f8bb806 intitial checkin ca parents: diff changeset	3583	"ST/X goody; set argunment to a selector or block
dce33f8bb806 intitial checkin ca parents: diff changeset	3584	"
dce33f8bb806 intitial checkin ca parents: diff changeset	3585	argument := anArgumentOrNil
dce33f8bb806 intitial checkin ca parents: diff changeset	3586	!
dce33f8bb806 intitial checkin ca parents: diff changeset	3587
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3588	indication
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3589	"get has on/off indicator value
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3590	"
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3591	^ indication
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3592	!
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3593
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3594	indication:something
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3595	"set has on/off indicator value
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3596	"
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3597	indication := something.
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3598	!
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3599
dce33f8bb806 intitial checkin ca parents: diff changeset	3600	shortcutKey
dce33f8bb806 intitial checkin ca parents: diff changeset	3601	"get the character that is used as a shortcut key for this item
dce33f8bb806 intitial checkin ca parents: diff changeset	3602	"
dce33f8bb806 intitial checkin ca parents: diff changeset	3603	^ shortcutKey
dce33f8bb806 intitial checkin ca parents: diff changeset	3604	!
dce33f8bb806 intitial checkin ca parents: diff changeset	3605
dce33f8bb806 intitial checkin ca parents: diff changeset	3606	shortcutKey:aKeyOrNil
dce33f8bb806 intitial checkin ca parents: diff changeset	3607	"set the character that is used as a shortcut key for this item
dce33f8bb806 intitial checkin ca parents: diff changeset	3608	"
dce33f8bb806 intitial checkin ca parents: diff changeset	3609	shortcutKey := aKeyOrNil
dce33f8bb806 intitial checkin ca parents: diff changeset	3610	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	3611
dce33f8bb806 intitial checkin ca parents: diff changeset	3612	!MenuPanel class methodsFor:'documentation'!
dce33f8bb806 intitial checkin ca parents: diff changeset	3613
dce33f8bb806 intitial checkin ca parents: diff changeset	3614	version
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3615	^ '$Header: /cvs/stx/stx/libwidg2/MenuPanel.st,v 1.7 1997-06-04 11:09:34 ca Exp $'
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3616	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	3617	MenuPanel initialize!

author	ca
	Wed, 04 Jun 1997 13:09:34 +0200
changeset 407	40554a07d5aa
parent 399	d083b1bce58d
child 416	c05874084d4c
permissions	-rw-r--r--