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

2005 a85fab2cc6f6 * empty log message * Claus Gittinger <cg@exept.de> parents: 2004 diff changeset	1	"
a85fab2cc6f6 * empty log message * Claus Gittinger <cg@exept.de> parents: 2004 diff changeset	2	COPYRIGHT (c) 1997 by eXept Software AG
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	3	All Rights Reserved
2005 a85fab2cc6f6 * empty log message * Claus Gittinger <cg@exept.de> parents: 2004 diff changeset	4
a85fab2cc6f6 * empty log message * Claus Gittinger <cg@exept.de> parents: 2004 diff changeset	5	This software is furnished under a license and may be used
a85fab2cc6f6 * empty log message * Claus Gittinger <cg@exept.de> parents: 2004 diff changeset	6	only in accordance with the terms of that license and with the
a85fab2cc6f6 * empty log message * Claus Gittinger <cg@exept.de> parents: 2004 diff changeset	7	inclusion of the above copyright notice. This software may not
a85fab2cc6f6 * empty log message * Claus Gittinger <cg@exept.de> parents: 2004 diff changeset	8	be provided or otherwise made available to, or used by, any
a85fab2cc6f6 * empty log message * Claus Gittinger <cg@exept.de> parents: 2004 diff changeset	9	other person. No title to or ownership of the software is
a85fab2cc6f6 * empty log message * Claus Gittinger <cg@exept.de> parents: 2004 diff changeset	10	hereby transferred.
a85fab2cc6f6 * empty log message * Claus Gittinger <cg@exept.de> parents: 2004 diff changeset	11	"
a85fab2cc6f6 * empty log message * Claus Gittinger <cg@exept.de> parents: 2004 diff changeset	12
a85fab2cc6f6 * empty log message * Claus Gittinger <cg@exept.de> parents: 2004 diff changeset	13
1750 f9e5700bd99a compatibility stuff Claus Gittinger <cg@exept.de> parents: 1737 diff changeset	14	"{ Package: 'stx:libwidg2' }"
f9e5700bd99a compatibility stuff Claus Gittinger <cg@exept.de> parents: 1737 diff changeset	15
2182 59a770bbb95a changed superclass to View (to inherit model) Claus Gittinger <cg@exept.de> parents: 2171 diff changeset	16	View subclass:#MenuPanel
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	17	instanceVariableNames:'adornment shadowView mapTime mustRearrange superMenu
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	18	shortKeyInset selection items groupSizes receiver enabled
93426020ceed * empty log message * ca parents: 2216 diff changeset	19	lastActiveMenu enteredItem prevFocusView previousPointerGrab
93426020ceed * empty log message * ca parents: 2216 diff changeset	20	previousKeyboardGrab relativeGrabOrigin hasImplicitGrap
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	21	scrollActivity rightArrowShadow rightArrow fgColor verticalLayout
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	22	showSeparatingLines showGroupDivider implicitGrabView
2331 ebd240410703 can now specify if menu action is to be performed by ca parents: 2326 diff changeset	23	lastPointerView openDelayedMenuBlock preferredWidth application
2347 9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	24	originator centerItems hideOnRelease defaultHideOnRelease'
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	25	classVariableNames:'InitialSelectionQuerySignal Images LigthenedImages'
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	26	poolDictionaries:''
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	27	category:'Views-Menus'
388 dce33f8bb806 intitial checkin ca parents: diff changeset	28	!
dce33f8bb806 intitial checkin ca parents: diff changeset	29
dce33f8bb806 intitial checkin ca parents: diff changeset	30	Object subclass:#Item
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	31	instanceVariableNames:'menuItem layout menuPanel subMenu rawLabel rawLabelExtent
2360 aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	32	disabledRawLabel enableChannel label activeHelpText flyByHelpText
2364 c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	33	isVisible indication choice accessCharacter font'
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	34	classVariableNames:'HorizontalInset VerticalInset HorizontalButtonInset
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	35	VerticalButtonInset LabelRightOffset VerticalPopUpInset'
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	36	poolDictionaries:''
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	37	privateIn:MenuPanel
388 dce33f8bb806 intitial checkin ca parents: diff changeset	38	!
dce33f8bb806 intitial checkin ca parents: diff changeset	39
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	40	Object subclass:#ScrollActivity
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	41	instanceVariableNames:'semaLock activeMenu scrollTask direction icons'
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	42	classVariableNames:''
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	43	poolDictionaries:''
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	44	privateIn:MenuPanel
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	45	!
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	46
388 dce33f8bb806 intitial checkin ca parents: diff changeset	47	!MenuPanel class methodsFor:'documentation'!
dce33f8bb806 intitial checkin ca parents: diff changeset	48
2005 a85fab2cc6f6 * empty log message * Claus Gittinger <cg@exept.de> parents: 2004 diff changeset	49	copyright
a85fab2cc6f6 * empty log message * Claus Gittinger <cg@exept.de> parents: 2004 diff changeset	50	"
a85fab2cc6f6 * empty log message * Claus Gittinger <cg@exept.de> parents: 2004 diff changeset	51	COPYRIGHT (c) 1997 by eXept Software AG
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	52	All Rights Reserved
2005 a85fab2cc6f6 * empty log message * Claus Gittinger <cg@exept.de> parents: 2004 diff changeset	53
a85fab2cc6f6 * empty log message * Claus Gittinger <cg@exept.de> parents: 2004 diff changeset	54	This software is furnished under a license and may be used
a85fab2cc6f6 * empty log message * Claus Gittinger <cg@exept.de> parents: 2004 diff changeset	55	only in accordance with the terms of that license and with the
a85fab2cc6f6 * empty log message * Claus Gittinger <cg@exept.de> parents: 2004 diff changeset	56	inclusion of the above copyright notice. This software may not
a85fab2cc6f6 * empty log message * Claus Gittinger <cg@exept.de> parents: 2004 diff changeset	57	be provided or otherwise made available to, or used by, any
a85fab2cc6f6 * empty log message * Claus Gittinger <cg@exept.de> parents: 2004 diff changeset	58	other person. No title to or ownership of the software is
a85fab2cc6f6 * empty log message * Claus Gittinger <cg@exept.de> parents: 2004 diff changeset	59	hereby transferred.
a85fab2cc6f6 * empty log message * Claus Gittinger <cg@exept.de> parents: 2004 diff changeset	60	"
a85fab2cc6f6 * empty log message * Claus Gittinger <cg@exept.de> parents: 2004 diff changeset	61
388 dce33f8bb806 intitial checkin ca parents: diff changeset	62	!
dce33f8bb806 intitial checkin ca parents: diff changeset	63
dce33f8bb806 intitial checkin ca parents: diff changeset	64	documentation
dce33f8bb806 intitial checkin ca parents: diff changeset	65	"
dce33f8bb806 intitial checkin ca parents: diff changeset	66	a menu panel used for both pull-down-menus and pop-up-menus.
dce33f8bb806 intitial checkin ca parents: diff changeset	67
2170 e76171113581 enteredFG / enteredBG Claus Gittinger <cg@exept.de> parents: 2166 diff changeset	68	this will eventually replace most of the MenuView and PopUpMenu stuff.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	69	(and hopefully be ST-80 compatible ...)
dce33f8bb806 intitial checkin ca parents: diff changeset	70
502 dedc1b29b6ac support of arguments ca parents: 498 diff changeset	71	To create a menu, there exists a MenuEditor which will generate
dedc1b29b6ac support of arguments ca parents: 498 diff changeset	72	a menu specification.
dedc1b29b6ac support of arguments ca parents: 498 diff changeset	73
dedc1b29b6ac support of arguments ca parents: 498 diff changeset	74
2061 faf64f2cd28e * empty log message * Claus Gittinger <cg@exept.de> parents: 2059 diff changeset	75	Notice:
faf64f2cd28e * empty log message * Claus Gittinger <cg@exept.de> parents: 2059 diff changeset	76	This is going to replace the obsolete MenuView.
faf64f2cd28e * empty log message * Claus Gittinger <cg@exept.de> parents: 2059 diff changeset	77
388 dce33f8bb806 intitial checkin ca parents: diff changeset	78	[author:]
1786 f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	79	Claus Atzkern
388 dce33f8bb806 intitial checkin ca parents: diff changeset	80
dce33f8bb806 intitial checkin ca parents: diff changeset	81	[see also:]
1786 f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	82	Menu
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	83	MenuItem
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	84	MenuEditor
2170 e76171113581 enteredFG / enteredBG Claus Gittinger <cg@exept.de> parents: 2166 diff changeset	85
e76171113581 enteredFG / enteredBG Claus Gittinger <cg@exept.de> parents: 2166 diff changeset	86	cg: this code is so ugly - needs a complete rewrite...
e76171113581 enteredFG / enteredBG Claus Gittinger <cg@exept.de> parents: 2166 diff changeset	87
388 dce33f8bb806 intitial checkin ca parents: diff changeset	88	"
dce33f8bb806 intitial checkin ca parents: diff changeset	89	!
dce33f8bb806 intitial checkin ca parents: diff changeset	90
dce33f8bb806 intitial checkin ca parents: diff changeset	91	examples
dce33f8bb806 intitial checkin ca parents: diff changeset	92
dce33f8bb806 intitial checkin ca parents: diff changeset	93	"
dce33f8bb806 intitial checkin ca parents: diff changeset	94	start as PullDownMenu
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	95	[exBegin]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	96	\|top subView mview desc s1 s2 s3 img lbs labels\|
dce33f8bb806 intitial checkin ca parents: diff changeset	97
dce33f8bb806 intitial checkin ca parents: diff changeset	98	top := StandardSystemView new.
dce33f8bb806 intitial checkin ca parents: diff changeset	99
436 c03d6faa41a6 process events befor accept ca parents: 434 diff changeset	100	mview := MenuPanel in:top.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	101
502 dedc1b29b6ac support of arguments ca parents: 498 diff changeset	102	labels := #( 'foo' 'bar' 'baz' 'test' 'claus' ).
388 dce33f8bb806 intitial checkin ca parents: diff changeset	103	mview level:2.
dce33f8bb806 intitial checkin ca parents: diff changeset	104	mview verticalLayout:false.
dce33f8bb806 intitial checkin ca parents: diff changeset	105	img := Image fromFile:'bitmaps/SBrowser.xbm'.
502 dedc1b29b6ac support of arguments ca parents: 498 diff changeset	106	lbs := Array with:'foo' with:'bar' with:img with:'baz' with:'test' with:'ludwig'.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	107	mview labels:lbs.
dce33f8bb806 intitial checkin ca parents: diff changeset	108	mview shortcutKeyAt:2 put:#Cut.
dce33f8bb806 intitial checkin ca parents: diff changeset	109	mview accessCharacterPositionAt:1 put:1.
dce33f8bb806 intitial checkin ca parents: diff changeset	110	mview accessCharacterPositionAt:2 put:2.
dce33f8bb806 intitial checkin ca parents: diff changeset	111
dce33f8bb806 intitial checkin ca parents: diff changeset	112	mview enabledAt:5 put:false.
dce33f8bb806 intitial checkin ca parents: diff changeset	113	mview groupSizes:#( 2 2 ).
436 c03d6faa41a6 process events befor accept ca parents: 434 diff changeset	114	s1 := MenuPanel labels:labels.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	115	s1 accessCharacterPositionAt:1 put:1.
dce33f8bb806 intitial checkin ca parents: diff changeset	116	s1 accessCharacterPositionAt:2 put:2.
dce33f8bb806 intitial checkin ca parents: diff changeset	117	s1 groupSizes:#( 2 2 ).
436 c03d6faa41a6 process events befor accept ca parents: 434 diff changeset	118	s2 := MenuPanel labels:#( '1' nil '2' '-' '3' '=' '4' ' ' '5' ).
c03d6faa41a6 process events befor accept ca parents: 434 diff changeset	119	s3 := MenuPanel labels:lbs.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	120
dce33f8bb806 intitial checkin ca parents: diff changeset	121	s1 subMenuAt:2 put:s2.
436 c03d6faa41a6 process events befor accept ca parents: 434 diff changeset	122	s1 subMenuAt:3 put:(MenuPanel labels:lbs).
388 dce33f8bb806 intitial checkin ca parents: diff changeset	123	s2 subMenuAt:3 put:s3.
436 c03d6faa41a6 process events befor accept ca parents: 434 diff changeset	124	s3 subMenuAt:3 put:(MenuPanel labels:labels).
388 dce33f8bb806 intitial checkin ca parents: diff changeset	125	s3 shortcutKeyAt:3 put:$q.
dce33f8bb806 intitial checkin ca parents: diff changeset	126
dce33f8bb806 intitial checkin ca parents: diff changeset	127	mview subMenuAt:1 put:s1.
436 c03d6faa41a6 process events befor accept ca parents: 434 diff changeset	128	mview subMenuAt:4 put:(MenuPanel labels:lbs).
388 dce33f8bb806 intitial checkin ca parents: diff changeset	129	(mview subMenuAt:4) shortcutKeyAt:3 put:#Copy.
dce33f8bb806 intitial checkin ca parents: diff changeset	130	s1 shortcutKeyAt:1 put:#Copy.
dce33f8bb806 intitial checkin ca parents: diff changeset	131	s1 shortcutKeyAt:3 put:#Paste.
dce33f8bb806 intitial checkin ca parents: diff changeset	132
436 c03d6faa41a6 process events befor accept ca parents: 434 diff changeset	133	mview subMenuAt:2 put:(MenuPanel labels:labels).
616 a6157b083830 support of different styles ca parents: 608 diff changeset	134	top extent:(mview preferredExtent).
388 dce33f8bb806 intitial checkin ca parents: diff changeset	135	top open.
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	136	[exEnd]
93426020ceed * empty log message * ca parents: 2216 diff changeset	137
93426020ceed * empty log message * ca parents: 2216 diff changeset	138	[exBegin]
1767 e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	139	\|top menu view item\|
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	140
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	141	top := StandardSystemView extent:240@100.
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	142	menu := MenuPanel in:top.
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	143	menu labels:#( 'foo' 'Application' 'Clock' ).
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	144	menu verticalLayout:false.
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	145
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	146	menu subMenuAt:1 put:(MenuPanel labels:#( 'bar' 'baz' )).
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	147	menu subMenuAt:2 put:(MenuPanel labels:#( 'foo' 'bar' 'baz' )).
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	148
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	149	view := ClockView new.
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	150	view preferredExtent:100@100.
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	151	item := menu itemAt:3.
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	152	item submenu:view.
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	153
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	154	view := SimpleView new.
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	155	view client:(CodingExamples_GUI::GUIDemoExtendedComboBox new).
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	156	view preferredExtent:(400@50).
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	157	item := menu itemAt:2.
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	158	item submenu:view.
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	159
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	160	menu origin:0@0 corner:1.0@30.
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	161	top open.
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	162	[exEnd]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	163
dce33f8bb806 intitial checkin ca parents: diff changeset	164
dce33f8bb806 intitial checkin ca parents: diff changeset	165	start as PopUpMenu
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	166	[exBegin]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	167	\|subView mview desc s1 s2 s3 img lbs labels\|
dce33f8bb806 intitial checkin ca parents: diff changeset	168
436 c03d6faa41a6 process events befor accept ca parents: 434 diff changeset	169	mview := MenuPanel new.
502 dedc1b29b6ac support of arguments ca parents: 498 diff changeset	170	labels := #( 'foo' 'bar' 'baz' ).
388 dce33f8bb806 intitial checkin ca parents: diff changeset	171	mview level:2.
dce33f8bb806 intitial checkin ca parents: diff changeset	172
dce33f8bb806 intitial checkin ca parents: diff changeset	173	img := Image fromFile:'bitmaps/SBrowser.xbm'.
502 dedc1b29b6ac support of arguments ca parents: 498 diff changeset	174	lbs := Array with:'foo' with:'bar' with:img with:'baz' with:'test'.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	175	mview labels:lbs.
dce33f8bb806 intitial checkin ca parents: diff changeset	176
436 c03d6faa41a6 process events befor accept ca parents: 434 diff changeset	177	s1 := MenuPanel labels:labels.
c03d6faa41a6 process events befor accept ca parents: 434 diff changeset	178	s2 := MenuPanel labels:#( '1' nil '2' '-' '3' '=' '4' ' ' '5' ).
c03d6faa41a6 process events befor accept ca parents: 434 diff changeset	179	s3 := MenuPanel labels:lbs.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	180	s1 subMenuAt:2 put:s2.
436 c03d6faa41a6 process events befor accept ca parents: 434 diff changeset	181	s1 subMenuAt:3 put:(MenuPanel labels:lbs).
388 dce33f8bb806 intitial checkin ca parents: diff changeset	182	s2 subMenuAt:3 put:s3.
436 c03d6faa41a6 process events befor accept ca parents: 434 diff changeset	183	s3 subMenuAt:3 put:(MenuPanel labels:labels).
388 dce33f8bb806 intitial checkin ca parents: diff changeset	184	s3 shortcutKeyAt:3 put:$q.
dce33f8bb806 intitial checkin ca parents: diff changeset	185
dce33f8bb806 intitial checkin ca parents: diff changeset	186	mview subMenuAt:1 put:s1.
436 c03d6faa41a6 process events befor accept ca parents: 434 diff changeset	187	mview subMenuAt:4 put:(MenuPanel labels:lbs).
388 dce33f8bb806 intitial checkin ca parents: diff changeset	188	(mview subMenuAt:4) shortcutKeyAt:3 put:#Copy.
dce33f8bb806 intitial checkin ca parents: diff changeset	189	s1 shortcutKeyAt:1 put:#Copy.
dce33f8bb806 intitial checkin ca parents: diff changeset	190	s1 shortcutKeyAt:3 put:#Paste.
dce33f8bb806 intitial checkin ca parents: diff changeset	191
436 c03d6faa41a6 process events befor accept ca parents: 434 diff changeset	192	mview subMenuAt:2 put:(MenuPanel labels:labels).
388 dce33f8bb806 intitial checkin ca parents: diff changeset	193	mview startUp
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	194	[exEnd]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	195
dce33f8bb806 intitial checkin ca parents: diff changeset	196
dce33f8bb806 intitial checkin ca parents: diff changeset	197	start from menu spec
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	198	[exBegin]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	199	\|menu\|
dce33f8bb806 intitial checkin ca parents: diff changeset	200
436 c03d6faa41a6 process events befor accept ca parents: 434 diff changeset	201	menu := MenuPanel menu:
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	202	#(#Menu #( #(#MenuItem
93426020ceed * empty log message * ca parents: 2216 diff changeset	203	#label: 'File'
93426020ceed * empty log message * ca parents: 2216 diff changeset	204	#submenu:
93426020ceed * empty log message * ca parents: 2216 diff changeset	205	#(#Menu #(#(#MenuItem #label: 'quit' #value:#quit )
93426020ceed * empty log message * ca parents: 2216 diff changeset	206	(#MenuItem
93426020ceed * empty log message * ca parents: 2216 diff changeset	207	#label: 'edit'
93426020ceed * empty log message * ca parents: 2216 diff changeset	208	#submenu:
93426020ceed * empty log message * ca parents: 2216 diff changeset	209	#(#Menu #( #(#MenuItem #label: 'edit' #value:#edit )
93426020ceed * empty log message * ca parents: 2216 diff changeset	210	#(#MenuItem #label: 'close' #value:#close)
93426020ceed * empty log message * ca parents: 2216 diff changeset	211	)
93426020ceed * empty log message * ca parents: 2216 diff changeset	212	nil
93426020ceed * empty log message * ca parents: 2216 diff changeset	213	nil
93426020ceed * empty log message * ca parents: 2216 diff changeset	214	)
93426020ceed * empty log message * ca parents: 2216 diff changeset	215	)
93426020ceed * empty log message * ca parents: 2216 diff changeset	216	#(#MenuItem #label: 'help' #value:#help )
93426020ceed * empty log message * ca parents: 2216 diff changeset	217	)
93426020ceed * empty log message * ca parents: 2216 diff changeset	218	nil
93426020ceed * empty log message * ca parents: 2216 diff changeset	219	nil
93426020ceed * empty log message * ca parents: 2216 diff changeset	220	)
93426020ceed * empty log message * ca parents: 2216 diff changeset	221	)
93426020ceed * empty log message * ca parents: 2216 diff changeset	222	#(#MenuItem #label: 'Inspect' #value:#inspectMenu )
93426020ceed * empty log message * ca parents: 2216 diff changeset	223	#(#MenuItem #label: 'Bar'
93426020ceed * empty log message * ca parents: 2216 diff changeset	224	#submenu:
93426020ceed * empty log message * ca parents: 2216 diff changeset	225	#(#Menu #( #(#MenuItem #label: 'bar 1' #value:#bar1 )
93426020ceed * empty log message * ca parents: 2216 diff changeset	226	#(#MenuItem #label: 'bar 2' #value:#bar2 )
93426020ceed * empty log message * ca parents: 2216 diff changeset	227	)
93426020ceed * empty log message * ca parents: 2216 diff changeset	228	nil
93426020ceed * empty log message * ca parents: 2216 diff changeset	229	nil
93426020ceed * empty log message * ca parents: 2216 diff changeset	230	)
93426020ceed * empty log message * ca parents: 2216 diff changeset	231	)
93426020ceed * empty log message * ca parents: 2216 diff changeset	232	)
93426020ceed * empty log message * ca parents: 2216 diff changeset	233	#( 2 )
93426020ceed * empty log message * ca parents: 2216 diff changeset	234	nil
93426020ceed * empty log message * ca parents: 2216 diff changeset	235	) decodeAsLiteralArray.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	236
dce33f8bb806 intitial checkin ca parents: diff changeset	237	menu verticalLayout:false.
dce33f8bb806 intitial checkin ca parents: diff changeset	238	Transcript showCR:(menu startUp).
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	239	[exEnd]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	240
dce33f8bb806 intitial checkin ca parents: diff changeset	241	"
dce33f8bb806 intitial checkin ca parents: diff changeset	242
dce33f8bb806 intitial checkin ca parents: diff changeset	243	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	244
dce33f8bb806 intitial checkin ca parents: diff changeset	245	!MenuPanel class methodsFor:'instance creation'!
dce33f8bb806 intitial checkin ca parents: diff changeset	246
dce33f8bb806 intitial checkin ca parents: diff changeset	247	fromSpec:aSpec
dce33f8bb806 intitial checkin ca parents: diff changeset	248	^ self fromSpec:aSpec receiver:nil
dce33f8bb806 intitial checkin ca parents: diff changeset	249	!
dce33f8bb806 intitial checkin ca parents: diff changeset	250
dce33f8bb806 intitial checkin ca parents: diff changeset	251	fromSpec:aSpec receiver:aReceiver
dce33f8bb806 intitial checkin ca parents: diff changeset	252	\|menu\|
dce33f8bb806 intitial checkin ca parents: diff changeset	253
dce33f8bb806 intitial checkin ca parents: diff changeset	254	aSpec notNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	255	menu := Menu new.
93426020ceed * empty log message * ca parents: 2216 diff changeset	256	menu receiver:aReceiver.
93426020ceed * empty log message * ca parents: 2216 diff changeset	257	menu fromLiteralArrayEncoding:aSpec.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	258	].
dce33f8bb806 intitial checkin ca parents: diff changeset	259	^ self menu:menu receiver:aReceiver
dce33f8bb806 intitial checkin ca parents: diff changeset	260	!
dce33f8bb806 intitial checkin ca parents: diff changeset	261
dce33f8bb806 intitial checkin ca parents: diff changeset	262	labels:labels
dce33f8bb806 intitial checkin ca parents: diff changeset	263	^ self labels:labels nameKeys:nil receiver:nil
dce33f8bb806 intitial checkin ca parents: diff changeset	264	!
dce33f8bb806 intitial checkin ca parents: diff changeset	265
dce33f8bb806 intitial checkin ca parents: diff changeset	266	labels:labels nameKeys:nameKeys
dce33f8bb806 intitial checkin ca parents: diff changeset	267	^ self labels:labels nameKeys:nameKeys receiver:nil
dce33f8bb806 intitial checkin ca parents: diff changeset	268	!
dce33f8bb806 intitial checkin ca parents: diff changeset	269
dce33f8bb806 intitial checkin ca parents: diff changeset	270	labels:labels nameKeys:nameKeys receiver:aReceiver
dce33f8bb806 intitial checkin ca parents: diff changeset	271	\|mview\|
dce33f8bb806 intitial checkin ca parents: diff changeset	272
dce33f8bb806 intitial checkin ca parents: diff changeset	273	mview := self menu:nil receiver:aReceiver.
dce33f8bb806 intitial checkin ca parents: diff changeset	274	mview labels:labels.
dce33f8bb806 intitial checkin ca parents: diff changeset	275	mview nameKeys:nameKeys.
dce33f8bb806 intitial checkin ca parents: diff changeset	276	^ mview
dce33f8bb806 intitial checkin ca parents: diff changeset	277
dce33f8bb806 intitial checkin ca parents: diff changeset	278	!
dce33f8bb806 intitial checkin ca parents: diff changeset	279
502 dedc1b29b6ac support of arguments ca parents: 498 diff changeset	280	labels:labels receiver:aReceiver
dedc1b29b6ac support of arguments ca parents: 498 diff changeset	281	^ self labels:labels nameKeys:nil receiver:aReceiver
dedc1b29b6ac support of arguments ca parents: 498 diff changeset	282	!
dedc1b29b6ac support of arguments ca parents: 498 diff changeset	283
388 dce33f8bb806 intitial checkin ca parents: diff changeset	284	menu:aMenu
dce33f8bb806 intitial checkin ca parents: diff changeset	285	^ self menu:aMenu receiver:nil
dce33f8bb806 intitial checkin ca parents: diff changeset	286	!
dce33f8bb806 intitial checkin ca parents: diff changeset	287
dce33f8bb806 intitial checkin ca parents: diff changeset	288	menu:aMenu receiver:aReceiver
dce33f8bb806 intitial checkin ca parents: diff changeset	289	\|mview\|
dce33f8bb806 intitial checkin ca parents: diff changeset	290
dce33f8bb806 intitial checkin ca parents: diff changeset	291	mview := self new.
1955 dea13bc1f1e0 bug fix when setting the receiver ca parents: 1929 diff changeset	292
dea13bc1f1e0 bug fix when setting the receiver ca parents: 1929 diff changeset	293	(aMenu notNil and:[aMenu receiver isNil]) ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	294	"/ no receiver specified in the menu; thus set the receiver immediately
93426020ceed * empty log message * ca parents: 2216 diff changeset	295	mview receiver:aReceiver
1955 dea13bc1f1e0 bug fix when setting the receiver ca parents: 1929 diff changeset	296	].
dea13bc1f1e0 bug fix when setting the receiver ca parents: 1929 diff changeset	297
388 dce33f8bb806 intitial checkin ca parents: diff changeset	298	mview menu:aMenu.
dce33f8bb806 intitial checkin ca parents: diff changeset	299
1955 dea13bc1f1e0 bug fix when setting the receiver ca parents: 1929 diff changeset	300
388 dce33f8bb806 intitial checkin ca parents: diff changeset	301	"/ a menu itself may contain a receiver
dce33f8bb806 intitial checkin ca parents: diff changeset	302	"/ thus we do not overwrite the receiver
dce33f8bb806 intitial checkin ca parents: diff changeset	303
dce33f8bb806 intitial checkin ca parents: diff changeset	304	aReceiver notNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	305	mview receiver:aReceiver
388 dce33f8bb806 intitial checkin ca parents: diff changeset	306	].
dce33f8bb806 intitial checkin ca parents: diff changeset	307	^ mview
dce33f8bb806 intitial checkin ca parents: diff changeset	308	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	309
dce33f8bb806 intitial checkin ca parents: diff changeset	310	!MenuPanel class methodsFor:'class initialization'!
dce33f8bb806 intitial checkin ca parents: diff changeset	311
dce33f8bb806 intitial checkin ca parents: diff changeset	312	initialize
657 a8246e896fa3 class initialize routine completed tz parents: 653 diff changeset	313	"
a8246e896fa3 class initialize routine completed tz parents: 653 diff changeset	314	self initialize
a8246e896fa3 class initialize routine completed tz parents: 653 diff changeset	315	"
a8246e896fa3 class initialize routine completed tz parents: 653 diff changeset	316
388 dce33f8bb806 intitial checkin ca parents: diff changeset	317	InitialSelectionQuerySignal isNil ifTrue:[
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	318	InitialSelectionQuerySignal := QuerySignal new.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	319	].
dce33f8bb806 intitial checkin ca parents: diff changeset	320
660 d1670dfe5445 Do not call #updateStyleCache from #initialize. Stefan Vogel <sv@exept.de> parents: 658 diff changeset	321	"Modified: / 15.1.1998 / 23:08:31 / stefan"
794 5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	322	!
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	323
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	324	preSnapshot
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	325	"remove all resources
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	326	"
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	327	Images := nil.
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	328	LigthenedImages := nil.
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	329
616 a6157b083830 support of different styles ca parents: 608 diff changeset	330	! !
a6157b083830 support of different styles ca parents: 608 diff changeset	331
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	332	!MenuPanel class methodsFor:'default icons'!
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	333
2344 d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	334	delayedMenuIndicator
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	335	"This resource specification was automatically generated
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	336	by the ImageEditor of ST/X."
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	337
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	338	"Do not manually edit this!! If it is corrupted,
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	339	the ImageEditor may not be able to read the specification."
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	340
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	341	"
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	342	self delayedMenuIndicator inspect
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	343	ImageEditor openOnClass:self andSelector:#delayedMenuIndicator
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	344	Icon flushCachedIcons
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	345	"
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	346
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	347	<resource: #image>
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	348
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	349	^Icon
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	350	constantNamed:#'MenuPanel class delayedMenuIndicator'
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	351	ifAbsentPut:[(Depth1Image new) width: 7; height: 6; photometric:(#palette); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@HCB') ; colorMapFromArray:#[0 0 0 255 255 255]; mask:((Depth1Image new) width: 7; height: 6; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@J+V[C P') ; yourself); yourself]
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	352	!
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	353
1798 08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	354	iconIndicationDisabledOff
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	355	"This resource specification was automatically generated
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	356	by the ImageEditor of ST/X."
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	357
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	358	"Do not manually edit this!! If it is corrupted,
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	359	the ImageEditor may not be able to read the specification."
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	360
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	361	"
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	362	self iconIndicationDisabledOff inspect
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	363	ImageEditor openOnClass:self andSelector:#iconIndicationDisabledOff
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	364	"
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	365
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	366	<resource: #image>
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	367
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	368	^Icon
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	369	constantNamed:#'MenuPanel iconIndicationDisabledOff'
93426020ceed * empty log message * ca parents: 2216 diff changeset	370	ifAbsentPut:[(Depth2Image new) width: 14; height: 14; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'UUUUPG???8A:*@^* G*(A:@^ G(A:@^* G*(A:@Z** @@@@@@b') ; colorMapFromArray:#[255 255 255 127 127 127 170 170 170 0 0 0]; mask:((Depth1Image new) width: 14; height: 14; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'??3??O?<??3??O?<??3??O?<??3??O?<??3??@@a') ; yourself); yourself]
1889 43516e4588ce give warning messages for unimplemented menu-aspects Claus Gittinger <cg@exept.de> parents: 1878 diff changeset	371	!
1798 08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	372
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	373	iconIndicationDisabledOn
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	374	"This resource specification was automatically generated
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	375	by the ImageEditor of ST/X."
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	376
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	377	"Do not manually edit this!! If it is corrupted,
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	378	the ImageEditor may not be able to read the specification."
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	379
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	380	"
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	381	self iconIndicationDisabledOn inspect
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	382	ImageEditor openOnClass:self andSelector:#iconIndicationDisabledOn
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	383	"
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	384
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	385	<resource: #image>
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	386
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	387	^Icon
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	388	constantNamed:#'MenuPanel iconIndicationDisabledOn'
93426020ceed * empty log message * ca parents: 2216 diff changeset	389	ifAbsentPut:[(Depth2Image new) width: 14; height: 14; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'****$H@@@MBO???P#???4H??<=BO?<OP#O<C4H0<C=BL@C?P#0C?4H?C?=BO???P/???4EUUUU@b') ; colorMapFromArray:#[0 0 0 255 255 255 127 127 127 170 170 170]; mask:((Depth1Image new) width: 14; height: 14; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'??3??O?<??3??O?<??3??O?<??3??O?<??3??@@a') ; yourself); yourself]
1889 43516e4588ce give warning messages for unimplemented menu-aspects Claus Gittinger <cg@exept.de> parents: 1878 diff changeset	390	!
1798 08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	391
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	392	iconIndicationOff
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	393	"This resource specification was automatically generated
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	394	by the ImageEditor of ST/X."
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	395
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	396	"Do not manually edit this!! If it is corrupted,
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	397	the ImageEditor may not be able to read the specification."
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	398
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	399	"
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	400	self iconIndicationOff inspect
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	401	ImageEditor openOnClass:self andSelector:#iconIndicationOff
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	402	"
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	403
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	404	<resource: #image>
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	405
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	406	^Icon
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	407	constantNamed:#'MenuPanel iconIndicationOff'
93426020ceed * empty log message * ca parents: 2216 diff changeset	408	ifAbsentPut:[(Depth2Image new) width: 14; height: 14; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'UUUUPG???8A0@@B@\@@@ G@@@HA0@@B@\@@@ G@@@HA0@@B@\@@@ G@@@HA0@@B@Z*** @@@@@@b') ; colorMapFromArray:#[255 255 255 127 127 127 170 170 170 0 0 0]; mask:((Depth1Image new) width: 14; height: 14; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'??3??O?<??3??O?<??3??O?<??3??O?<??3??@@a') ; yourself); yourself]
1889 43516e4588ce give warning messages for unimplemented menu-aspects Claus Gittinger <cg@exept.de> parents: 1878 diff changeset	409	!
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	410
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	411	iconIndicationOn
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	412	"This resource specification was automatically generated
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	413	by the ImageEditor of ST/X."
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	414
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	415	"Do not manually edit this!! If it is corrupted,
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	416	the ImageEditor may not be able to read the specification."
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	417
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	418	"
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	419	self iconIndicationOn inspect
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	420	ImageEditor openOnClass:self andSelector:#iconIndicationOn
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	421	"
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	422
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	423	<resource: #image>
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	424
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	425	^Icon
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	426	constantNamed:#'MenuPanel iconIndicationOn'
93426020ceed * empty log message * ca parents: 2216 diff changeset	427	ifAbsentPut:[(Depth2Image new) width: 14; height: 14; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'****$H@@@MBEUUWP!!UUU4HUUT]BEUTGP!!ETA4HPTA]BD@AWP!!PAU4HUAU]BEUUWP/???4EUUUU@b') ; colorMapFromArray:#[0 0 0 255 255 255 127 127 127 170 170 170]; mask:((Depth1Image new) width: 14; height: 14; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'??3??O?<??3??O?<??3??O?<??3??O?<??3??@@a') ; yourself); yourself]
1889 43516e4588ce give warning messages for unimplemented menu-aspects Claus Gittinger <cg@exept.de> parents: 1878 diff changeset	428	!
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	429
1798 08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	430	iconRadioGroupDisabledOff
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	431	"This resource specification was automatically generated
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	432	by the ImageEditor of ST/X."
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	433
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	434	"Do not manually edit this!! If it is corrupted,
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	435	the ImageEditor may not be able to read the specification."
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	436
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	437	"
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	438	self iconRadioGroupDisabledOff inspect
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	439	ImageEditor openOnClass:self andSelector:#iconRadioGroupDisabledOff
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	440	"
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	441
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	442	<resource: #image>
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	443
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	444	^Icon
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	445	constantNamed:#'MenuPanel iconRadioGroupDisabledOff'
93426020ceed * empty log message * ca parents: 2216 diff changeset	446	ifAbsentPut:[(Depth2Image new) width: 15; height: 15; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@AUP@@E@AP@DJY@DZ(AJ+AJLR#D(1JLR#AZ#@Z(0A 0@C@C0@@O?@@') ; colorMapFromArray:#[0 0 0 85 85 85 170 170 170 255 255 255]; mask:((Depth1Image new) width: 15; height: 15; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'A<@_<C?8_?1??O?:??+?>/?:??)?=G?4O< HL@_@') ; yourself); yourself]
1889 43516e4588ce give warning messages for unimplemented menu-aspects Claus Gittinger <cg@exept.de> parents: 1878 diff changeset	447	!
1798 08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	448
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	449	iconRadioGroupDisabledOn
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	450	"This resource specification was automatically generated
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	451	by the ImageEditor of ST/X."
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	452
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	453	"Do not manually edit this!! If it is corrupted,
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	454	the ImageEditor may not be able to read the specification."
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	455
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	456	"
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	457	self iconRadioGroupDisabledOn inspect
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	458	ImageEditor openOnClass:self andSelector:#iconRadioGroupDisabledOn
2337 7f384db88273 centerItems attribute Claus Gittinger <cg@exept.de> parents: 2332 diff changeset	459	Icon flushCachedIcons
1798 08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	460	"
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	461
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	462	<resource: #image>
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	463
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	464	^Icon
2337 7f384db88273 centerItems attribute Claus Gittinger <cg@exept.de> parents: 2332 diff changeset	465	constantNamed:#'MenuPanel class iconRadioGroupDisabledOn'
7f384db88273 centerItems attribute Claus Gittinger <cg@exept.de> parents: 2332 diff changeset	466	ifAbsentPut:[(Depth2Image new) width: 15; height: 15; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@AUP@@E@AP@DJY@DYUZ(AIUU+AIUUVLRUUU#D%UUX1IUUVLRUUU#AYUU#@Z%U(0A* 0@C@C0@@O?@@') ; colorMapFromArray:#[0 0 0 85 85 85 170 170 170 255 255 255]; mask:((Depth1Image new) width: 15; height: 15; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'A<@_<C?8_?1??O?:??+?>/?:??)?=G?4O< HL@_@') ; yourself); yourself]
1889 43516e4588ce give warning messages for unimplemented menu-aspects Claus Gittinger <cg@exept.de> parents: 1878 diff changeset	467	!
1798 08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	468
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	469	iconRadioGroupOff
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	470	"This resource specification was automatically generated
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	471	by the ImageEditor of ST/X."
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	472
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	473	"Do not manually edit this!! If it is corrupted,
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	474	the ImageEditor may not be able to read the specification."
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	475
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	476	"
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	477	self iconRadioGroupOff inspect
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	478	ImageEditor openOnClass:self andSelector:#iconRadioGroupOff
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	479	"
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	480
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	481	<resource: #image>
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	482
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	483	^Icon
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	484	constantNamed:#'MenuPanel iconRadioGroupOff'
93426020ceed * empty log message * ca parents: 2216 diff changeset	485	ifAbsentPut:[(Depth2Image new) width: 15; height: 15; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@AUP@@E@AP@DO?Y@D_?>(AO??;AO???LS???3D???<1O???LS???3A_??3@Z??<0A+?00@C@C0@@O?@@') ; colorMapFromArray:#[0 0 0 85 85 85 170 170 170 255 255 255]; mask:((Depth1Image new) width: 15; height: 15; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'A<@_<C?8_?1??O?:??+?>/?:??)?=G?4O< HL@_@') ; yourself); yourself]
1889 43516e4588ce give warning messages for unimplemented menu-aspects Claus Gittinger <cg@exept.de> parents: 1878 diff changeset	486	!
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	487
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	488	iconRadioGroupOn
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	489	"This resource specification was automatically generated
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	490	by the ImageEditor of ST/X."
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	491
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	492	"Do not manually edit this!! If it is corrupted,
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	493	the ImageEditor may not be able to read the specification."
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	494
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	495	"
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	496	self iconRadioGroupOn inspect
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	497	ImageEditor openOnClass:self andSelector:#iconRadioGroupOn
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	498	"
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	499
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	500	<resource: #image>
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	501
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	502	^Icon
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	503	constantNamed:#'MenuPanel iconRadioGroupOn'
93426020ceed * empty log message * ca parents: 2216 diff changeset	504	ifAbsentPut:[(Depth2Image new) width: 15; height: 15; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@AUP@@E@AP@DO?Y@D]@^(AL@@;AM@@GLS@@@3D0@@L1L@@CLSP@A3A\@@3@Z4A<0A+?00@C@C0@@O?@@') ; colorMapFromArray:#[0 0 0 85 85 85 170 170 170 255 255 255]; mask:((Depth1Image new) width: 15; height: 15; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'A<@_<C?8_?1??O?:??+?>/?:??)?=G?4O< HL@_@') ; yourself); yourself]
2344 d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	505	!
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	506
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	507	menuIndicator
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	508	"This resource specification was automatically generated
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	509	by the ImageEditor of ST/X."
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	510
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	511	"Do not manually edit this!! If it is corrupted,
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	512	the ImageEditor may not be able to read the specification."
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	513
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	514	"
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	515	self menuIndicator inspect
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	516	ImageEditor openOnClass:self andSelector:#menuIndicator
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	517	Icon flushCachedIcons
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	518	"
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	519
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	520	<resource: #image>
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	521
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	522	^Icon
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	523	constantNamed:#'MenuPanel::Item class menuIndicator'
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	524	ifAbsentPut:[(Depth1Image new) width: 7; height: 4; photometric:(#palette); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@B@0 @a') ; colorMapFromArray:#[0 0 0 255 255 255]; mask:((Depth1Image new) width: 7; height: 4; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'?''08D@@a') ; yourself); yourself]
1889 43516e4588ce give warning messages for unimplemented menu-aspects Claus Gittinger <cg@exept.de> parents: 1878 diff changeset	525	! !
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	526
616 a6157b083830 support of different styles ca parents: 608 diff changeset	527	!MenuPanel class methodsFor:'defaults'!
450 ac72eb2ed895 initialize fix Claus Gittinger <cg@exept.de> parents: 441 diff changeset	528
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	529	defaultBackgroundColor
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	530	^ StyleSheet at:#'menuPanel.backgroundColor'
93426020ceed * empty log message * ca parents: 2216 diff changeset	531	!
93426020ceed * empty log message * ca parents: 2216 diff changeset	532
93426020ceed * empty log message * ca parents: 2216 diff changeset	533	defaultFont
93426020ceed * empty log message * ca parents: 2216 diff changeset	534	^ StyleSheet at:#'menu.font'
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	535	!
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	536
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	537	defaultLevel
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	538	^ StyleSheet at:#'menuPanel.level'
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	539	!
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	540
2344 d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	541	delayedMenuIndicatorOffset
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	542	"returns an additional offset between the label and the
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	543	delayedMenu indication (i.e. the down-arrow icon)
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	544	"
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	545	^ 1 "2"
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	546	!
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	547
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	548	menuIndicatorOffset
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	549	"returns an additional offset between the label and the
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	550	delayedMenu indication (i.e. the down-arrow icon)
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	551	"
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	552	^ 1 "2"
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	553	!
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	554
1786 f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	555	mnemonicIdentifier
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	556	"returns the identifier each mnemonic starts with;
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	557	ex:
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	558	&File mnemonic := Cmdf
93426020ceed * empty log message * ca parents: 2216 diff changeset	559	F&ile mnemonic := Cmdi
93426020ceed * empty log message * ca parents: 2216 diff changeset	560	.....
1786 f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	561	"
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	562	^ 'Cmd'
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	563	!
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	564
450 ac72eb2ed895 initialize fix Claus Gittinger <cg@exept.de> parents: 441 diff changeset	565	updateStyleCache
657 a8246e896fa3 class initialize routine completed tz parents: 653 diff changeset	566
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	567	<resource: #style (
93426020ceed * empty log message * ca parents: 2216 diff changeset	568	#'popup.borderWidth' #'popup.level'
93426020ceed * empty log message * ca parents: 2216 diff changeset	569	#'selection.disabledForegroundColor'
93426020ceed * empty log message * ca parents: 2216 diff changeset	570	#'pullDownMenu.foregroundColor' #'pullDownMenu.backgroundColor' #'pullDownMenu.level'
93426020ceed * empty log message * ca parents: 2216 diff changeset	571	#'menu.itemHorizontalSpace' #'menu.buttonItemHorizontalSpace' #'menu.buttonItemSpace'
93426020ceed * empty log message * ca parents: 2216 diff changeset	572	#'menu.buttonItemVerticalSpace'
93426020ceed * empty log message * ca parents: 2216 diff changeset	573	#'menu.buttonActiveLevel' #'menu.buttonPassiveLevel' #'menu.buttonEnteredLevel'
93426020ceed * empty log message * ca parents: 2216 diff changeset	574	#'menu.hilightLevel' #'menu.enteredLevel'
93426020ceed * empty log message * ca parents: 2216 diff changeset	575	#'menu.groupDividerSize' #'menu.itemMargin'
93426020ceed * empty log message * ca parents: 2216 diff changeset	576	#'menu.disabledEtchedForegroundColor' #'menu.hilightForegroundColor'
93426020ceed * empty log message * ca parents: 2216 diff changeset	577	#'menu.enteredBackgroundColor' #'menu.enteredForegroundColor'
93426020ceed * empty log message * ca parents: 2216 diff changeset	578	#'menu.disabledForegroundColor' #'menu.buttonEnteredBackgroundColor'
93426020ceed * empty log message * ca parents: 2216 diff changeset	579	#'menu.selectionFollowsMouse'
93426020ceed * empty log message * ca parents: 2216 diff changeset	580	#'button.disabledEtchedForegroundColor' #'button.disabledForegroundColor'
93426020ceed * empty log message * ca parents: 2216 diff changeset	581	#'button.activeBackgroundColor' #'button.backgroundColor' #'button.lightColor'
93426020ceed * empty log message * ca parents: 2216 diff changeset	582	#'button.enteredBackgroundColor' #'button.halfLightColor' #'button.halfShadowColor'
93426020ceed * empty log message * ca parents: 2216 diff changeset	583	#'button.activeLevel' #'button.passiveLevel' #'button.edgeStyle'
93426020ceed * empty log message * ca parents: 2216 diff changeset	584	)>
93426020ceed * empty log message * ca parents: 2216 diff changeset	585
93426020ceed * empty log message * ca parents: 2216 diff changeset	586	\|styleSheet style var foregroundColor backgroundColor buttonPassiveBackgroundColor
93426020ceed * empty log message * ca parents: 2216 diff changeset	587	buttonActiveLevel buttonPassiveLevel buttonEnteredLevel\|
93426020ceed * empty log message * ca parents: 2216 diff changeset	588	"
93426020ceed * empty log message * ca parents: 2216 diff changeset	589	self updateStyleCache
93426020ceed * empty log message * ca parents: 2216 diff changeset	590	"
93426020ceed * empty log message * ca parents: 2216 diff changeset	591	MenuView updateStyleCache.
93426020ceed * empty log message * ca parents: 2216 diff changeset	592	SelectionInListView updateStyleCache.
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	593
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	594	styleSheet := StyleSheet.
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	595	style := styleSheet name.
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	596
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	597	foregroundColor := styleSheet colorAt:#'pullDownMenu.foregroundColor' default:Color black.
93426020ceed * empty log message * ca parents: 2216 diff changeset	598	styleSheet at:#'menuPanel.foregroundColor' put:foregroundColor.
93426020ceed * empty log message * ca parents: 2216 diff changeset	599
93426020ceed * empty log message * ca parents: 2216 diff changeset	600	backgroundColor := styleSheet colorAt:#'pullDownMenu.backgroundColor' default:DefaultViewBackgroundColor.
93426020ceed * empty log message * ca parents: 2216 diff changeset	601	styleSheet at:#'menuPanel.backgroundColor' put:backgroundColor.
93426020ceed * empty log message * ca parents: 2216 diff changeset	602
93426020ceed * empty log message * ca parents: 2216 diff changeset	603	var := styleSheet at:#'menu.buttonItemHorizontalSpace'.
93426020ceed * empty log message * ca parents: 2216 diff changeset	604	var ifNil:[ var := styleSheet at:#'menu.buttonItemSpace' default:0 ].
93426020ceed * empty log message * ca parents: 2216 diff changeset	605	styleSheet at:#'menuPanel.buttonInsetX' put:(var abs).
93426020ceed * empty log message * ca parents: 2216 diff changeset	606
93426020ceed * empty log message * ca parents: 2216 diff changeset	607	var := styleSheet at:#'menu.buttonItemVerticalSpace'.
93426020ceed * empty log message * ca parents: 2216 diff changeset	608	var ifNil:[ var := styleSheet at:#'menu.buttonItemSpace' default:0 ].
93426020ceed * empty log message * ca parents: 2216 diff changeset	609	styleSheet at:#'menuPanel.buttonInsetY' put:(var abs).
93426020ceed * empty log message * ca parents: 2216 diff changeset	610
93426020ceed * empty log message * ca parents: 2216 diff changeset	611	var := styleSheet at:#'menuPanel.level' default:nil.
93426020ceed * empty log message * ca parents: 2216 diff changeset	612	var isNil ifTrue:[ var := styleSheet at:#'pullDownMenu.level' default:1 ].
93426020ceed * empty log message * ca parents: 2216 diff changeset	613	styleSheet at:#'menuPanel.level' put:var.
93426020ceed * empty log message * ca parents: 2216 diff changeset	614
93426020ceed * empty log message * ca parents: 2216 diff changeset	615	var := styleSheet at:#'menu.itemHorizontalSpace'.
93426020ceed * empty log message * ca parents: 2216 diff changeset	616	var ifNil:[ var := styleSheet at:#'menu.itemSpace' default:0 ].
93426020ceed * empty log message * ca parents: 2216 diff changeset	617	styleSheet at:#'menuPanel.itemSpace' put:var.
93426020ceed * empty log message * ca parents: 2216 diff changeset	618
93426020ceed * empty log message * ca parents: 2216 diff changeset	619	var := styleSheet colorAt:#'menu.hilightBackgroundColor'.
93426020ceed * empty log message * ca parents: 2216 diff changeset	620	var ifNil:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	621	style == #motif ifTrue:[ var := backgroundColor ]
93426020ceed * empty log message * ca parents: 2216 diff changeset	622	ifFalse:[ var := styleSheet is3D ifFalse:[foregroundColor] ifTrue:[backgroundColor] ]
93426020ceed * empty log message * ca parents: 2216 diff changeset	623	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	624	styleSheet at:#'menuPanel.activeBackgroundColor' put:var.
93426020ceed * empty log message * ca parents: 2216 diff changeset	625
93426020ceed * empty log message * ca parents: 2216 diff changeset	626	var := styleSheet colorAt:#'menu.disabledEtchedForegroundColor'.
93426020ceed * empty log message * ca parents: 2216 diff changeset	627	var ifNil:[ var := styleSheet colorAt:#'button.disabledEtchedForegroundColor' ].
93426020ceed * empty log message * ca parents: 2216 diff changeset	628	styleSheet at:#'menuPanel.disabledEtchedFgColor' put:var.
93426020ceed * empty log message * ca parents: 2216 diff changeset	629
93426020ceed * empty log message * ca parents: 2216 diff changeset	630	var := styleSheet colorAt:#'menu.disabledForegroundColor'.
93426020ceed * empty log message * ca parents: 2216 diff changeset	631	var ifNil:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	632	var := styleSheet colorAt:#'selection.disabledForegroundColor'.
93426020ceed * empty log message * ca parents: 2216 diff changeset	633	var ifNil:[ var := styleSheet colorAt:#'button.disabledForegroundColor' default:Color darkGray ]
93426020ceed * empty log message * ca parents: 2216 diff changeset	634	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	635	styleSheet at:#'menuPanel.disabledForegroundColor' put:var.
93426020ceed * empty log message * ca parents: 2216 diff changeset	636
93426020ceed * empty log message * ca parents: 2216 diff changeset	637	var := styleSheet colorAt:#'menu.hilightForegroundColor'.
93426020ceed * empty log message * ca parents: 2216 diff changeset	638	var ifNil:[ var := styleSheet is3D ifTrue:[foregroundColor] ifFalse:[backgroundColor] ].
93426020ceed * empty log message * ca parents: 2216 diff changeset	639	styleSheet at:#'menuPanel.activeForegroundColor' put:var.
93426020ceed * empty log message * ca parents: 2216 diff changeset	640
93426020ceed * empty log message * ca parents: 2216 diff changeset	641
93426020ceed * empty log message * ca parents: 2216 diff changeset	642	buttonActiveLevel := styleSheet at:#'menu.buttonActiveLevel' default:(styleSheet is3D ifTrue:[-2] ifFalse:[0]).
93426020ceed * empty log message * ca parents: 2216 diff changeset	643	buttonActiveLevel ifNil:[ buttonActiveLevel := styleSheet at:#'button.activeLevel' default:(styleSheet is3D ifTrue:[-2] ifFalse:[0]) ].
93426020ceed * empty log message * ca parents: 2216 diff changeset	644	styleSheet at:#'menuPanel.buttonActiveLevel' put:buttonActiveLevel.
93426020ceed * empty log message * ca parents: 2216 diff changeset	645
93426020ceed * empty log message * ca parents: 2216 diff changeset	646	buttonPassiveLevel := styleSheet at:#'menu.buttonPassiveLevel'.
93426020ceed * empty log message * ca parents: 2216 diff changeset	647	buttonPassiveLevel ifNil:[ buttonPassiveLevel := styleSheet at:#'button.passiveLevel' default:(styleSheet is3D ifTrue:[2] ifFalse:[0])].
93426020ceed * empty log message * ca parents: 2216 diff changeset	648	styleSheet at:#'menuPanel.buttonPassiveLevel' put:buttonPassiveLevel.
93426020ceed * empty log message * ca parents: 2216 diff changeset	649
93426020ceed * empty log message * ca parents: 2216 diff changeset	650	buttonEnteredLevel := styleSheet at:#'menu.buttonEnteredLevel' default:buttonPassiveLevel.
93426020ceed * empty log message * ca parents: 2216 diff changeset	651	styleSheet at:#'menuPanel.buttonEnteredLevel' put:buttonEnteredLevel.
93426020ceed * empty log message * ca parents: 2216 diff changeset	652
93426020ceed * empty log message * ca parents: 2216 diff changeset	653	var := (buttonActiveLevel abs max:(buttonPassiveLevel abs)) max:(buttonEnteredLevel abs).
93426020ceed * empty log message * ca parents: 2216 diff changeset	654	styleSheet at:#'menuPanel.maxAbsoluteButtonLevel' put:var.
93426020ceed * empty log message * ca parents: 2216 diff changeset	655
93426020ceed * empty log message * ca parents: 2216 diff changeset	656	buttonPassiveBackgroundColor := styleSheet at:#'button.backgroundColor'.
93426020ceed * empty log message * ca parents: 2216 diff changeset	657	buttonPassiveBackgroundColor ifNil:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	658	buttonPassiveBackgroundColor := (styleSheet at:'viewBackground') ? backgroundColor
93426020ceed * empty log message * ca parents: 2216 diff changeset	659	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	660	styleSheet at:#'menuPanel.buttonPassiveBackgroundColor' put:buttonPassiveBackgroundColor.
93426020ceed * empty log message * ca parents: 2216 diff changeset	661
93426020ceed * empty log message * ca parents: 2216 diff changeset	662	var := styleSheet at:#'button.lightColor'.
93426020ceed * empty log message * ca parents: 2216 diff changeset	663	var ifNil:[ var := (buttonPassiveBackgroundColor averageColorIn:(0@0 corner:7@7)) lightened ].
93426020ceed * empty log message * ca parents: 2216 diff changeset	664	styleSheet at:#'menuPanel.buttonLightColor' put:var.
93426020ceed * empty log message * ca parents: 2216 diff changeset	665
93426020ceed * empty log message * ca parents: 2216 diff changeset	666	var := styleSheet at:#'button.shadowColor'.
93426020ceed * empty log message * ca parents: 2216 diff changeset	667	var ifNil:[ var := (buttonPassiveBackgroundColor averageColorIn:(0@0 corner:7@7)) darkened ].
93426020ceed * empty log message * ca parents: 2216 diff changeset	668	styleSheet at:#'menuPanel.buttonShadowColor' put:var.
93426020ceed * empty log message * ca parents: 2216 diff changeset	669
93426020ceed * empty log message * ca parents: 2216 diff changeset	670	var := styleSheet colorAt:#'menu.buttonEnteredBackgroundColor'.
93426020ceed * empty log message * ca parents: 2216 diff changeset	671	var ifNil:[ var := styleSheet colorAt:#'button.enteredBackgroundColor' default:buttonPassiveBackgroundColor ].
93426020ceed * empty log message * ca parents: 2216 diff changeset	672	styleSheet at:#'menuPanel.buttonEnteredBackgroundColor' put:var.
93426020ceed * empty log message * ca parents: 2216 diff changeset	673
93426020ceed * empty log message * ca parents: 2216 diff changeset	674	Item updateStyleCache.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	675	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	676
794 5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	677	!MenuPanel class methodsFor:'image registration'!
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	678
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	679	image:anImage onDevice:aDevice
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	680	"
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	681	Images := nil
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	682	"
2269 e250e3adfc56 registration of images ca parents: 2255 diff changeset	683	\|deviceImages\|
794 5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	684
1156 6fa33dc93509 fix to avoid repeated image>>onDevice Claus Gittinger <cg@exept.de> parents: 1151 diff changeset	685	anImage device == aDevice ifTrue:[
2269 e250e3adfc56 registration of images ca parents: 2255 diff changeset	686	^ anImage
1853 399e2eac3b99 Use WeakIdentityDictionaries to cache images per Workstation. Stefan Vogel <sv@exept.de> parents: 1841 diff changeset	687	].
399e2eac3b99 Use WeakIdentityDictionaries to cache images per Workstation. Stefan Vogel <sv@exept.de> parents: 1841 diff changeset	688
399e2eac3b99 Use WeakIdentityDictionaries to cache images per Workstation. Stefan Vogel <sv@exept.de> parents: 1841 diff changeset	689	Images isNil ifTrue:[ Images := WeakIdentityDictionary new ].
794 5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	690
1097 8a2f6c5ad1a9 * empty log message * Claus Gittinger <cg@exept.de> parents: 1096 diff changeset	691	(deviceImages := Images at:aDevice ifAbsent:nil) isNil ifTrue:[
2269 e250e3adfc56 registration of images ca parents: 2255 diff changeset	692	Images at:aDevice put:(deviceImages := Dictionary new)
e250e3adfc56 registration of images ca parents: 2255 diff changeset	693	].
e250e3adfc56 registration of images ca parents: 2255 diff changeset	694
e250e3adfc56 registration of images ca parents: 2255 diff changeset	695	^ deviceImages at:anImage ifAbsentPut:[ \|image\|
e250e3adfc56 registration of images ca parents: 2255 diff changeset	696	image := anImage copy onDevice:aDevice.
e250e3adfc56 registration of images ca parents: 2255 diff changeset	697	image clearMaskedPixels.
e250e3adfc56 registration of images ca parents: 2255 diff changeset	698	deviceImages at:anImage put:image.
e250e3adfc56 registration of images ca parents: 2255 diff changeset	699	image
e250e3adfc56 registration of images ca parents: 2255 diff changeset	700	].
794 5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	701	!
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	702
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	703	lightenedImage:anImage onDevice:aDevice
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	704	"
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	705	LigthenedImages := nil
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	706	"
1097 8a2f6c5ad1a9 * empty log message * Claus Gittinger <cg@exept.de> parents: 1096 diff changeset	707	\|deviceImages image\|
794 5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	708
1853 399e2eac3b99 Use WeakIdentityDictionaries to cache images per Workstation. Stefan Vogel <sv@exept.de> parents: 1841 diff changeset	709	LigthenedImages isNil ifTrue:[ LigthenedImages := WeakIdentityDictionary new ].
794 5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	710
1097 8a2f6c5ad1a9 * empty log message * Claus Gittinger <cg@exept.de> parents: 1096 diff changeset	711	(deviceImages := LigthenedImages at:aDevice ifAbsent:nil) isNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	712	LigthenedImages at:aDevice put:(deviceImages := Dictionary new)
1097 8a2f6c5ad1a9 * empty log message * Claus Gittinger <cg@exept.de> parents: 1096 diff changeset	713	].
8a2f6c5ad1a9 * empty log message * Claus Gittinger <cg@exept.de> parents: 1096 diff changeset	714
8a2f6c5ad1a9 * empty log message * Claus Gittinger <cg@exept.de> parents: 1096 diff changeset	715	(image := deviceImages at:anImage ifAbsent:nil) notNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	716	^ image
794 5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	717	].
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	718
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	719	((anImage respondsTo:#colorMap) and:[anImage colorMap notNil]) ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	720	image := anImage copy lightened onDevice:aDevice.
93426020ceed * empty log message * ca parents: 2216 diff changeset	721	image clearMaskedPixels.
794 5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	722	] ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	723	image := self image:anImage onDevice:aDevice
794 5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	724	].
1097 8a2f6c5ad1a9 * empty log message * Claus Gittinger <cg@exept.de> parents: 1096 diff changeset	725	deviceImages at:anImage put:image.
794 5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	726	^ image
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	727
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	728
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	729	! !
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	730
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	731	!MenuPanel class methodsFor:'private'!
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	732
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	733	subMenu:aSubMenu
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	734	"create a submenu; can be redifined in derived classes
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	735	"
1063 08b7ca464437 dont show accelerators for horizontal layouts Claus Gittinger <cg@exept.de> parents: 1054 diff changeset	736	^ (self new) menu:aSubMenu.
08b7ca464437 dont show accelerators for horizontal layouts Claus Gittinger <cg@exept.de> parents: 1054 diff changeset	737
08b7ca464437 dont show accelerators for horizontal layouts Claus Gittinger <cg@exept.de> parents: 1054 diff changeset	738	"Modified: / 8.8.1998 / 02:13:11 / cg"
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	739	! !
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	740
1808 e8628b502a49 methodCategory change Claus Gittinger <cg@exept.de> parents: 1806 diff changeset	741	!MenuPanel methodsFor:'accepting'!
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	742
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	743	accept
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	744	"accept current selected item
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	745	"
1670 dbc8a05605e0 add new behavior: hideMenuOnActivated ca parents: 1666 diff changeset	746	^ self acceptItem:(self selection) inMenu:self
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	747	!
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	748
1836 89a1b938c09e fixed returned value from non-performing menu Claus Gittinger <cg@exept.de> parents: 1832 diff changeset	749	accept:anItem
2326 a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	750	"this is the topMenu: accept item "
a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	751
2050 ef5517d7a2d0 do not destroy myself after accepting (for PopUpList) Claus Gittinger <cg@exept.de> parents: 2048 diff changeset	752	\|value item tgState itemIdx recv panel masterGroup winGrp acceptAction\|
1630 01dc20096011 grabbing cleaned up; ca parents: 1613 diff changeset	753
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	754	self superMenu notNil ifTrue:[
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	755	^ self topMenu accept:anItem
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	756	].
2199 61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	757	self openDelayed:nil.
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	758	self scrollActivity stop.
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	759	self selection:nil.
420 b6f9fff472ef fixes ca parents: 417 diff changeset	760
b6f9fff472ef fixes ca parents: 417 diff changeset	761	(anItem notNil and:[anItem canAccept]) ifTrue:[
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	762	tgState := anItem toggleIndication.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	763	panel := anItem menuPanel.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	764	itemIdx := panel findFirst:[:el\| el == anItem ].
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	765	item := anItem.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	766	recv := panel receiver.
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	767	].
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	768	self doUngrab:true.
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	769
510 8f77b9382066 bug fix with redraw ca parents: 505 diff changeset	770	self isPopUpView ifFalse:[
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	771	self do:[:el\| el updateIndicators].
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	772	self windowGroup processExposeEvents.
524 d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	773	] ifTrue:[
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	774	self unmap.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	775	(winGrp := self windowGroup) notNil ifTrue:[
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	776	"/ give expose event a chance to arrive
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	777	[shown and:[realized]] whileTrue:[
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	778	winGrp processExposeEventsFor:self
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	779	].
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	780	masterGroup := winGrp previousGroup.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	781	].
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	782	"/ cg: disabled-not needed - try PopUpList with destroy...
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	783	"/ self destroy.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	784	masterGroup notNil ifTrue:[masterGroup processExposeEvents].
524 d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	785	].
1710 bb9bb814e7c4 showBusy code moved Claus Gittinger <cg@exept.de> parents: 1709 diff changeset	786
2050 ef5517d7a2d0 do not destroy myself after accepting (for PopUpList) Claus Gittinger <cg@exept.de> parents: 2048 diff changeset	787	acceptAction := [ value := self accept:item index:itemIdx toggle:tgState receiver:recv ].
ef5517d7a2d0 do not destroy myself after accepting (for PopUpList) Claus Gittinger <cg@exept.de> parents: 2048 diff changeset	788
1710 bb9bb814e7c4 showBusy code moved Claus Gittinger <cg@exept.de> parents: 1709 diff changeset	789	(item notNil
bb9bb814e7c4 showBusy code moved Claus Gittinger <cg@exept.de> parents: 1709 diff changeset	790	and:[item showBusyCursorWhilePerforming
bb9bb814e7c4 showBusy code moved Claus Gittinger <cg@exept.de> parents: 1709 diff changeset	791	and:[(winGrp := (masterGroup ? (self windowGroup))) notNil]])
bb9bb814e7c4 showBusy code moved Claus Gittinger <cg@exept.de> parents: 1709 diff changeset	792	ifTrue:[
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	793	winGrp withWaitCursorDo:acceptAction
2132 fd5b29a20fe1 * empty log message * Claus Gittinger <cg@exept.de> parents: 2125 diff changeset	794	] ifFalse:[acceptAction value].
524 d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	795
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	796	self isPopUpView ifTrue:[
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	797	self menuAdornmentAt:#item put:item.
524 d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	798	].
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	799	^ item.
524 d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	800
2050 ef5517d7a2d0 do not destroy myself after accepting (for PopUpList) Claus Gittinger <cg@exept.de> parents: 2048 diff changeset	801	"Modified: / 15.11.2001 / 17:05:40 / cg"
524 d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	802	!
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	803
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	804	accept:anItem index:anIndex toggle:aState receiver:aReceiver
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	805	"accept an item
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	806	"
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	807	\|value argument numArgs isValueModel rec args arg2
1697 345d3664e10c added 'showBusyCursorWhileActive' attribute Claus Gittinger <cg@exept.de> parents: 1695 diff changeset	808	app master fallBack\|
524 d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	809
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	810	anItem isNil ifTrue:[
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	811	self menuAdornmentAt:#hasPerformed put:true.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	812	^ nil
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	813	].
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	814
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	815	isValueModel := aReceiver isValueModel.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	816
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	817	self menuAdornmentAt:#hasPerformed put:isValueModel.
524 d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	818
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	819	(value := anItem value) isNil ifTrue:[
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	820	^ anIndex
524 d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	821	].
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	822
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	823	(argument := anItem argument) isNil ifTrue:[
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	824	argument := aState ? anItem
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	825	].
524 d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	826
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	827	value isSymbol ifFalse:[
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	828	"/ a valueHolder or block
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	829	(value respondsTo:#valueWithArguments:) ifFalse:[
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	830	^ value
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	831	].
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	832
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	833	numArgs := value perform:#numArgs ifNotUnderstood:0.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	834
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	835	numArgs == 0 ifTrue:[
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	836	args := nil
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	837	] ifFalse:[
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	838	numArgs == 1 ifTrue:[
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	839	args := Array with:argument
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	840	] ifFalse:[
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	841	args := Array with:argument with:self
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	842	]
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	843	].
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	844
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	845	value valueWithArguments:args.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	846
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	847	self menuAdornmentAt:#hasPerformed put:true.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	848	^ anIndex
524 d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	849	].
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	850
2331 ebd240410703 can now specify if menu action is to be performed by ca parents: 2326 diff changeset	851	anItem sendToOriginator ifTrue:[
ebd240410703 can now specify if menu action is to be performed by ca parents: 2326 diff changeset	852	rec := self originator
ebd240410703 can now specify if menu action is to be performed by ca parents: 2326 diff changeset	853	] ifFalse:[
ebd240410703 can now specify if menu action is to be performed by ca parents: 2326 diff changeset	854	rec := aReceiver
ebd240410703 can now specify if menu action is to be performed by ca parents: 2326 diff changeset	855	].
ebd240410703 can now specify if menu action is to be performed by ca parents: 2326 diff changeset	856
ebd240410703 can now specify if menu action is to be performed by ca parents: 2326 diff changeset	857	rec isNil ifTrue:[
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	858	^ value
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	859	].
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	860
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	861	isValueModel ifTrue:[
2331 ebd240410703 can now specify if menu action is to be performed by ca parents: 2326 diff changeset	862	rec value:value
465 67a0f3dd503a in case of performing a selector '0' is returned ca parents: 464 diff changeset	863	] ifFalse:[
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	864	arg2 := self.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	865
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	866	"/ support for ST80 style applications
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	867	"/ (expecting the message to go to the application
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	868	"/ if not understood by the view)
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	869	"/ These expect the controller to be passed as argument.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	870	"/ sigh.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	871
2331 ebd240410703 can now specify if menu action is to be performed by ca parents: 2326 diff changeset	872	(rec isView
ebd240410703 can now specify if menu action is to be performed by ca parents: 2326 diff changeset	873	and:[(rec respondsTo:value) not
ebd240410703 can now specify if menu action is to be performed by ca parents: 2326 diff changeset	874	and:[(app := rec application) ~~ rec
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	875	and:[app notNil]]]) ifTrue:[
2331 ebd240410703 can now specify if menu action is to be performed by ca parents: 2326 diff changeset	876	arg2 := rec controller. "/ the Views controller
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	877	rec := app.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	878	].
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	879
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	880	(numArgs := value numArgs) == 0 ifTrue:[
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	881	args := nil
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	882	] ifFalse:[
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	883	numArgs == 1 ifTrue:[
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	884	args := Array with:argument
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	885	] ifFalse:[
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	886	args := Array with:argument with:arg2
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	887	]
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	888	].
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	889
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	890	fallBack :=
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	891	[
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	892	"/ mhmh - the receiver did not respond to that message;
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	893	"/ if there is a master-application, try that one
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	894	"/ (recursive)
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	895	master := rec perform:#masterApplication ifNotUnderstood:nil.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	896	master notNil ifTrue:[
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	897	rec := master.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	898	rec perform:value withArguments:args ifNotUnderstood:fallBack
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	899	] ifFalse:[
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	900	self
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	901	error:'unimplemented (or error in) menu message: ' , value
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	902	mayProceed:true
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	903	].
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	904	].
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	905
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	906	rec perform:value withArguments:args ifNotUnderstood:fallBack.
420 b6f9fff472ef fixes ca parents: 417 diff changeset	907	].
524 d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	908	self menuAdornmentAt:#hasPerformed put:true.
1270 0ae582fd7294 send menuMessage to application, Claus Gittinger <cg@exept.de> parents: 1267 diff changeset	909	^ value
1679 af40842718f6 when accepting, and the application does not respond to that Claus Gittinger <cg@exept.de> parents: 1670 diff changeset	910
1719 ba7ebb56e6fd recursively try masterApps when performing Claus Gittinger <cg@exept.de> parents: 1715 diff changeset	911	"Modified: / 19.2.2000 / 11:08:22 / cg"
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	912	!
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	913
1670 dbc8a05605e0 add new behavior: hideMenuOnActivated ca parents: 1666 diff changeset	914	acceptItem:anItem inMenu:aMenu
2199 61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	915	\|tgState topMenu\|
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	916
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	917	topMenu := self topMenu.
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	918	topMenu openDelayed:nil.
1670 dbc8a05605e0 add new behavior: hideMenuOnActivated ca parents: 1666 diff changeset	919
1841 5d01716cc37c implement: triggerOnDown ca parents: 1836 diff changeset	920	(anItem isNil or:[anItem hideMenuOnActivated]) ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	921	topMenu accept:anItem
1670 dbc8a05605e0 add new behavior: hideMenuOnActivated ca parents: 1666 diff changeset	922	] ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	923	anItem canAccept ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	924	tgState := anItem toggleIndication.
93426020ceed * empty log message * ca parents: 2216 diff changeset	925
93426020ceed * empty log message * ca parents: 2216 diff changeset	926	self accept:anItem
93426020ceed * empty log message * ca parents: 2216 diff changeset	927	index:(aMenu selectionIndex)
93426020ceed * empty log message * ca parents: 2216 diff changeset	928	toggle:tgState
93426020ceed * empty log message * ca parents: 2216 diff changeset	929	receiver:(aMenu receiver).
93426020ceed * empty log message * ca parents: 2216 diff changeset	930
93426020ceed * empty log message * ca parents: 2216 diff changeset	931	aMenu do:[:el\| el updateIndicators].
93426020ceed * empty log message * ca parents: 2216 diff changeset	932	]
1670 dbc8a05605e0 add new behavior: hideMenuOnActivated ca parents: 1666 diff changeset	933	]
dbc8a05605e0 add new behavior: hideMenuOnActivated ca parents: 1666 diff changeset	934	!
dbc8a05605e0 add new behavior: hideMenuOnActivated ca parents: 1666 diff changeset	935
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	936	lastItemAccepted
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	937	"returns last item selected or nil
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	938	"
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	939	^ self topMenu menuAdornmentAt:#item
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	940	!
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	941
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	942	lastValueAccepted
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	943	"returns last value accepted or nil
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	944	"
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	945	^ self lastItemAccepted value
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	946	! !
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	947
388 dce33f8bb806 intitial checkin ca parents: diff changeset	948	!MenuPanel methodsFor:'accessing'!
dce33f8bb806 intitial checkin ca parents: diff changeset	949
dce33f8bb806 intitial checkin ca parents: diff changeset	950	accessCharacterPositionAt:stringOrNumber
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	951	"get the access character position for a textLabel
388 dce33f8bb806 intitial checkin ca parents: diff changeset	952	"
2059 c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	953	^ self itemAt:stringOrNumber do:[:el\| el accessCharacterPosition ]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	954	!
dce33f8bb806 intitial checkin ca parents: diff changeset	955
dce33f8bb806 intitial checkin ca parents: diff changeset	956	accessCharacterPositionAt:stringOrNumber put:anIndexOrNil
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	957	"get the access character position for a textLabel
388 dce33f8bb806 intitial checkin ca parents: diff changeset	958	"
dce33f8bb806 intitial checkin ca parents: diff changeset	959	self itemAt:stringOrNumber do:[:el\| el accessCharacterPosition:anIndexOrNil ]
dce33f8bb806 intitial checkin ca parents: diff changeset	960	!
dce33f8bb806 intitial checkin ca parents: diff changeset	961
dce33f8bb806 intitial checkin ca parents: diff changeset	962	accessCharacterPositions
dce33f8bb806 intitial checkin ca parents: diff changeset	963	"returns a collection of accessCharacterPosition's or nil
dce33f8bb806 intitial checkin ca parents: diff changeset	964	"
dce33f8bb806 intitial checkin ca parents: diff changeset	965	^ self collect:[:anItem\| anItem accessCharacterPosition ]
dce33f8bb806 intitial checkin ca parents: diff changeset	966
dce33f8bb806 intitial checkin ca parents: diff changeset	967	!
dce33f8bb806 intitial checkin ca parents: diff changeset	968
dce33f8bb806 intitial checkin ca parents: diff changeset	969	accessCharacterPositions:something
dce33f8bb806 intitial checkin ca parents: diff changeset	970	"define accessCharacterPosition's for each item
dce33f8bb806 intitial checkin ca parents: diff changeset	971	"
dce33f8bb806 intitial checkin ca parents: diff changeset	972	self onEachPerform:#accessCharacterPosition: withArgList:something
dce33f8bb806 intitial checkin ca parents: diff changeset	973	!
dce33f8bb806 intitial checkin ca parents: diff changeset	974
dce33f8bb806 intitial checkin ca parents: diff changeset	975	args
dce33f8bb806 intitial checkin ca parents: diff changeset	976	"returns a collection of argument's or nil
dce33f8bb806 intitial checkin ca parents: diff changeset	977	"
dce33f8bb806 intitial checkin ca parents: diff changeset	978	^ self collect:[:anItem\| anItem argument ]
dce33f8bb806 intitial checkin ca parents: diff changeset	979	!
dce33f8bb806 intitial checkin ca parents: diff changeset	980
dce33f8bb806 intitial checkin ca parents: diff changeset	981	args:something
dce33f8bb806 intitial checkin ca parents: diff changeset	982	"define arguments for each item
dce33f8bb806 intitial checkin ca parents: diff changeset	983	"
dce33f8bb806 intitial checkin ca parents: diff changeset	984	self onEachPerform:#argument: withArgList:something
dce33f8bb806 intitial checkin ca parents: diff changeset	985	!
dce33f8bb806 intitial checkin ca parents: diff changeset	986
dce33f8bb806 intitial checkin ca parents: diff changeset	987	argsAt:stringOrNumber
dce33f8bb806 intitial checkin ca parents: diff changeset	988	"gets the argument of an item or nil
dce33f8bb806 intitial checkin ca parents: diff changeset	989	"
2059 c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	990	^ self itemAt:stringOrNumber do:[:el\| el argument ]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	991	!
dce33f8bb806 intitial checkin ca parents: diff changeset	992
dce33f8bb806 intitial checkin ca parents: diff changeset	993	argsAt:stringOrNumber put:anArgument
dce33f8bb806 intitial checkin ca parents: diff changeset	994	"sets the argument of an item
dce33f8bb806 intitial checkin ca parents: diff changeset	995	"
dce33f8bb806 intitial checkin ca parents: diff changeset	996	self itemAt:stringOrNumber do:[:el\| el argument:anArgument ]
dce33f8bb806 intitial checkin ca parents: diff changeset	997	!
dce33f8bb806 intitial checkin ca parents: diff changeset	998
1081 fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	999	enteredItem
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1000	"return the item over which the mouse pointer is located;
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1001	nil if the mouse is not over any item"
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1002
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1003	^ enteredItem
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1004
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1005	"Created: / 20.8.1998 / 13:12:34 / cg"
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1006	!
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1007
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1008	groupSizes
dce33f8bb806 intitial checkin ca parents: diff changeset	1009	"gets collection of group sizes
dce33f8bb806 intitial checkin ca parents: diff changeset	1010	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1011	^ groupSizes
dce33f8bb806 intitial checkin ca parents: diff changeset	1012	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1013
dce33f8bb806 intitial checkin ca parents: diff changeset	1014	groupSizes:aGroupSizes
dce33f8bb806 intitial checkin ca parents: diff changeset	1015	"sets collection of group sizes
dce33f8bb806 intitial checkin ca parents: diff changeset	1016	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1017	aGroupSizes = groupSizes ifFalse:[
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	1018	groupSizes := aGroupSizes copy.
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	1019	self mustRearrange.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1020	].
dce33f8bb806 intitial checkin ca parents: diff changeset	1021	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1022
dce33f8bb806 intitial checkin ca parents: diff changeset	1023	labelAt:stringOrNumber
dce33f8bb806 intitial checkin ca parents: diff changeset	1024	"gets the label of an item or nil
dce33f8bb806 intitial checkin ca parents: diff changeset	1025	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1026	^ self itemAt:stringOrNumber do:[:el\| el label ]
dce33f8bb806 intitial checkin ca parents: diff changeset	1027	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1028
dce33f8bb806 intitial checkin ca parents: diff changeset	1029	labelAt:stringOrNumber put:aLabel
dce33f8bb806 intitial checkin ca parents: diff changeset	1030	"sets the label of an item
dce33f8bb806 intitial checkin ca parents: diff changeset	1031	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1032	self itemAt:stringOrNumber do:[:el\| el label:aLabel ]
dce33f8bb806 intitial checkin ca parents: diff changeset	1033	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1034
dce33f8bb806 intitial checkin ca parents: diff changeset	1035	labels
dce33f8bb806 intitial checkin ca parents: diff changeset	1036	"returns a collection of labels's or nil
dce33f8bb806 intitial checkin ca parents: diff changeset	1037	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1038	^ self collect:[:anItem\| anItem label ]
dce33f8bb806 intitial checkin ca parents: diff changeset	1039
dce33f8bb806 intitial checkin ca parents: diff changeset	1040	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1041
dce33f8bb806 intitial checkin ca parents: diff changeset	1042	labels:labels
dce33f8bb806 intitial checkin ca parents: diff changeset	1043	"define labels for each item
dce33f8bb806 intitial checkin ca parents: diff changeset	1044	"
2118 89d02ebc5b65 optimize #labels: and #fetchImages in Item. discard block ca parents: 2113 diff changeset	1045	\|size\|
89d02ebc5b65 optimize #labels: and #fetchImages in Item. discard block ca parents: 2113 diff changeset	1046
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1047	self disabledRedrawDo:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1048	self removeAll.
93426020ceed * empty log message * ca parents: 2216 diff changeset	1049	size := labels size.
93426020ceed * empty log message * ca parents: 2216 diff changeset	1050
93426020ceed * empty log message * ca parents: 2216 diff changeset	1051	size > 0 ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	1052	items := OrderedCollection new:size.
93426020ceed * empty log message * ca parents: 2216 diff changeset	1053	labels do:[:aLabel\| items add:(Item in:self label:aLabel) ]
93426020ceed * empty log message * ca parents: 2216 diff changeset	1054	]
2118 89d02ebc5b65 optimize #labels: and #fetchImages in Item. discard block ca parents: 2113 diff changeset	1055	].
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1056	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1057
1999 56a97236e72d * empty log message * Claus Gittinger <cg@exept.de> parents: 1998 diff changeset	1058	menuPerformer:anObject
56a97236e72d * empty log message * Claus Gittinger <cg@exept.de> parents: 1998 diff changeset	1059	"set the menu-receiver. Thats the one who gets the messages ( both from myself and
56a97236e72d * empty log message * Claus Gittinger <cg@exept.de> parents: 1998 diff changeset	1060	from all submenus no specific receiver is defined ).
56a97236e72d * empty log message * Claus Gittinger <cg@exept.de> parents: 1998 diff changeset	1061	"
56a97236e72d * empty log message * Claus Gittinger <cg@exept.de> parents: 1998 diff changeset	1062	^ self receiver:anObject
56a97236e72d * empty log message * Claus Gittinger <cg@exept.de> parents: 1998 diff changeset	1063	!
56a97236e72d * empty log message * Claus Gittinger <cg@exept.de> parents: 1998 diff changeset	1064
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1065	nameKeyAt:stringOrNumber
dce33f8bb806 intitial checkin ca parents: diff changeset	1066	"gets the nameKey of an item or nil
dce33f8bb806 intitial checkin ca parents: diff changeset	1067	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1068	^ self itemAt:stringOrNumber do:[:el\| el nameKey ]
dce33f8bb806 intitial checkin ca parents: diff changeset	1069	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1070
dce33f8bb806 intitial checkin ca parents: diff changeset	1071	nameKeyAt:stringOrNumber put:aNameKey
dce33f8bb806 intitial checkin ca parents: diff changeset	1072	"sets the nameKey of an item
dce33f8bb806 intitial checkin ca parents: diff changeset	1073	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1074	self itemAt:stringOrNumber do:[:el\| el nameKey:aNameKey ]
dce33f8bb806 intitial checkin ca parents: diff changeset	1075	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1076
dce33f8bb806 intitial checkin ca parents: diff changeset	1077	nameKeys
dce33f8bb806 intitial checkin ca parents: diff changeset	1078	"returns a collection of nameKeys's or nil
dce33f8bb806 intitial checkin ca parents: diff changeset	1079	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1080	^ self collect:[:anItem\| anItem nameKey ]
dce33f8bb806 intitial checkin ca parents: diff changeset	1081	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1082
dce33f8bb806 intitial checkin ca parents: diff changeset	1083	nameKeys:something
dce33f8bb806 intitial checkin ca parents: diff changeset	1084	"define nameKeys for each item
dce33f8bb806 intitial checkin ca parents: diff changeset	1085	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1086	self onEachPerform:#nameKey: withArgList:something
dce33f8bb806 intitial checkin ca parents: diff changeset	1087	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1088
dce33f8bb806 intitial checkin ca parents: diff changeset	1089	numberOfItems
dce33f8bb806 intitial checkin ca parents: diff changeset	1090	"gets number of items
dce33f8bb806 intitial checkin ca parents: diff changeset	1091	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1092	^ items size
dce33f8bb806 intitial checkin ca parents: diff changeset	1093	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1094
2331 ebd240410703 can now specify if menu action is to be performed by ca parents: 2326 diff changeset	1095	originator
ebd240410703 can now specify if menu action is to be performed by ca parents: 2326 diff changeset	1096	originator notNil ifTrue:[^ originator].
ebd240410703 can now specify if menu action is to be performed by ca parents: 2326 diff changeset	1097	superMenu notNil ifTrue:[
ebd240410703 can now specify if menu action is to be performed by ca parents: 2326 diff changeset	1098	^ superMenu originator
ebd240410703 can now specify if menu action is to be performed by ca parents: 2326 diff changeset	1099	].
ebd240410703 can now specify if menu action is to be performed by ca parents: 2326 diff changeset	1100	^ nil
ebd240410703 can now specify if menu action is to be performed by ca parents: 2326 diff changeset	1101	!
ebd240410703 can now specify if menu action is to be performed by ca parents: 2326 diff changeset	1102
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1103	receiver
dce33f8bb806 intitial checkin ca parents: diff changeset	1104	"get the menu-receiver. Thats the one who gets the messages ( both from myself and
dce33f8bb806 intitial checkin ca parents: diff changeset	1105	from all submenus no specific receiver is defined ).
dce33f8bb806 intitial checkin ca parents: diff changeset	1106	"
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	1107	(receiver isNil and:[superMenu notNil]) ifTrue:[
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	1108	^ superMenu receiver
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1109	].
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	1110	^ receiver
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1111	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1112
dce33f8bb806 intitial checkin ca parents: diff changeset	1113	receiver:anObject
dce33f8bb806 intitial checkin ca parents: diff changeset	1114	"set the menu-receiver. Thats the one who gets the messages ( both from myself and
dce33f8bb806 intitial checkin ca parents: diff changeset	1115	from all submenus no specific receiver is defined ).
dce33f8bb806 intitial checkin ca parents: diff changeset	1116	"
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	1117	receiver := anObject
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1118	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1119
dce33f8bb806 intitial checkin ca parents: diff changeset	1120	shortcutKeyAt:stringOrNumber
dce33f8bb806 intitial checkin ca parents: diff changeset	1121	"gets the shortCutKey of an item or nil
dce33f8bb806 intitial checkin ca parents: diff changeset	1122	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1123	^ self itemAt:stringOrNumber do:[:el\| el shortcutKey ]
dce33f8bb806 intitial checkin ca parents: diff changeset	1124	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1125
dce33f8bb806 intitial checkin ca parents: diff changeset	1126	shortcutKeyAt:stringOrNumber put:aKey
dce33f8bb806 intitial checkin ca parents: diff changeset	1127	"sets the shortCutKey of an item
dce33f8bb806 intitial checkin ca parents: diff changeset	1128	"
1889 43516e4588ce give warning messages for unimplemented menu-aspects Claus Gittinger <cg@exept.de> parents: 1878 diff changeset	1129	self itemAt:stringOrNumber do:[:el\| el shortcutKey:aKey ]
43516e4588ce give warning messages for unimplemented menu-aspects Claus Gittinger <cg@exept.de> parents: 1878 diff changeset	1130	!
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1131
dce33f8bb806 intitial checkin ca parents: diff changeset	1132	shortcutKeys
dce33f8bb806 intitial checkin ca parents: diff changeset	1133	"returns a collection of shortcutKey's or nil
dce33f8bb806 intitial checkin ca parents: diff changeset	1134	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1135	^ self collect:[:anItem\| anItem shortcutKey ]
dce33f8bb806 intitial checkin ca parents: diff changeset	1136
dce33f8bb806 intitial checkin ca parents: diff changeset	1137	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1138
dce33f8bb806 intitial checkin ca parents: diff changeset	1139	shortcutKeys:something
dce33f8bb806 intitial checkin ca parents: diff changeset	1140	"define shortcutKey's for each item
dce33f8bb806 intitial checkin ca parents: diff changeset	1141	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1142	self onEachPerform:#shortcutKey: withArgList:something
dce33f8bb806 intitial checkin ca parents: diff changeset	1143	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1144
dce33f8bb806 intitial checkin ca parents: diff changeset	1145	valueAt:stringOrNumber
dce33f8bb806 intitial checkin ca parents: diff changeset	1146	"gets value of an item; a block, valueHolder, ...
dce33f8bb806 intitial checkin ca parents: diff changeset	1147	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1148	^ self itemAt:stringOrNumber do:[:el\| el value ]
dce33f8bb806 intitial checkin ca parents: diff changeset	1149
dce33f8bb806 intitial checkin ca parents: diff changeset	1150	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1151
dce33f8bb806 intitial checkin ca parents: diff changeset	1152	valueAt:stringOrNumber put:someThing
dce33f8bb806 intitial checkin ca parents: diff changeset	1153	"sets value of an item; a block, valueHolder, ...
dce33f8bb806 intitial checkin ca parents: diff changeset	1154	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1155	self itemAt:stringOrNumber do:[:el\| el value:someThing ]
dce33f8bb806 intitial checkin ca parents: diff changeset	1156
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	values:something
dce33f8bb806 intitial checkin ca parents: diff changeset	1161	"define values for each item
dce33f8bb806 intitial checkin ca parents: diff changeset	1162	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1163	self onEachPerform:#value: withArgList:something
dce33f8bb806 intitial checkin ca parents: diff changeset	1164	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	1165
1679 af40842718f6 when accepting, and the application does not respond to that Claus Gittinger <cg@exept.de> parents: 1670 diff changeset	1166	!MenuPanel methodsFor:'accessing-behavior'!
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1167
dce33f8bb806 intitial checkin ca parents: diff changeset	1168	disableAll
498 b4c341497621 bug fixes: ca parents: 475 diff changeset	1169	"disable all items; not the menu in case of enabled
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1170	"
498 b4c341497621 bug fixes: ca parents: 475 diff changeset	1171	self do:[:anItem\| anItem enabled:false]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1172	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1173
dce33f8bb806 intitial checkin ca parents: diff changeset	1174	disableAll:collectionOfIndicesOrNames
dce33f8bb806 intitial checkin ca parents: diff changeset	1175	"disable an collection of items
dce33f8bb806 intitial checkin ca parents: diff changeset	1176	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1177	collectionOfIndicesOrNames do:[:entry\| self enabledAt:entry put:false ].
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	enableAll
498 b4c341497621 bug fixes: ca parents: 475 diff changeset	1182	"enable all items; not the menu in case of disabled
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1183	"
498 b4c341497621 bug fixes: ca parents: 475 diff changeset	1184	self do:[:anItem\| anItem enabled:true]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1185	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1186
dce33f8bb806 intitial checkin ca parents: diff changeset	1187	enableAll:collectionOfIndicesOrNames
dce33f8bb806 intitial checkin ca parents: diff changeset	1188	"enable an collection of items
dce33f8bb806 intitial checkin ca parents: diff changeset	1189	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1190	collectionOfIndicesOrNames do:[:entry\| self enabledAt:entry put:true ].
dce33f8bb806 intitial checkin ca parents: diff changeset	1191
dce33f8bb806 intitial checkin ca parents: diff changeset	1192	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1193
dce33f8bb806 intitial checkin ca parents: diff changeset	1194	enabled
dce33f8bb806 intitial checkin ca parents: diff changeset	1195	"returns enabled state
dce33f8bb806 intitial checkin ca parents: diff changeset	1196	"
498 b4c341497621 bug fixes: ca parents: 475 diff changeset	1197	^ enabled
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1198	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1199
dce33f8bb806 intitial checkin ca parents: diff changeset	1200	enabled:aState
dce33f8bb806 intitial checkin ca parents: diff changeset	1201	"change enabled state of menu
dce33f8bb806 intitial checkin ca parents: diff changeset	1202	"
545 d01d14358b07 * empty log message * Claus Gittinger <cg@exept.de> parents: 524 diff changeset	1203	\|state\|
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	1204
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	1205	state := aState ? true.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1206
1690 38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	1207	enabled ~~ state ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1208	enabled := state.
93426020ceed * empty log message * ca parents: 2216 diff changeset	1209	self invalidate.
498 b4c341497621 bug fixes: ca parents: 475 diff changeset	1210	].
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1211	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1212
dce33f8bb806 intitial checkin ca parents: diff changeset	1213	enabledAt:stringOrNumber
dce33f8bb806 intitial checkin ca parents: diff changeset	1214	"gets the enabled state of an item or false
dce33f8bb806 intitial checkin ca parents: diff changeset	1215	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1216	^ self itemAt:stringOrNumber do:[:el\| el enabled ] ifAbsent:false
dce33f8bb806 intitial checkin ca parents: diff changeset	1217	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1218
dce33f8bb806 intitial checkin ca parents: diff changeset	1219	enabledAt:stringOrNumber put:aState
dce33f8bb806 intitial checkin ca parents: diff changeset	1220	"sets the enabled state of an item
dce33f8bb806 intitial checkin ca parents: diff changeset	1221	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1222	self itemAt:stringOrNumber do:[:el\| el enabled:aState ]
dce33f8bb806 intitial checkin ca parents: diff changeset	1223	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1224
dce33f8bb806 intitial checkin ca parents: diff changeset	1225	isEnabled:stringOrNumber
dce33f8bb806 intitial checkin ca parents: diff changeset	1226	"gets the enabled state of an item or false
dce33f8bb806 intitial checkin ca parents: diff changeset	1227	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1228	^ self enabledAt:stringOrNumber
dce33f8bb806 intitial checkin ca parents: diff changeset	1229	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	1230
1679 af40842718f6 when accepting, and the application does not respond to that Claus Gittinger <cg@exept.de> parents: 1670 diff changeset	1231	!MenuPanel methodsFor:'accessing-channels'!
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	1232
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	1233	enableChannel:aValueHolder
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	1234	"set my enableChannel
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	1235	"
498 b4c341497621 bug fixes: ca parents: 475 diff changeset	1236	enableChannel notNil ifTrue:[
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	1237	enableChannel removeDependent:self
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	1238	].
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	1239
498 b4c341497621 bug fixes: ca parents: 475 diff changeset	1240	(enableChannel := aValueHolder) notNil ifTrue:[
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	1241	enableChannel addDependent:self.
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	1242	].
498 b4c341497621 bug fixes: ca parents: 475 diff changeset	1243	self enabled:(enableChannel value).
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	1244	!
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	1245
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	1246	menuHolder:aValueHolder
498 b4c341497621 bug fixes: ca parents: 475 diff changeset	1247	"set my menuHolder
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	1248	"
498 b4c341497621 bug fixes: ca parents: 475 diff changeset	1249	menuHolder notNil ifTrue:[
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	1250	menuHolder removeDependent:self
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	1251	].
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	1252
498 b4c341497621 bug fixes: ca parents: 475 diff changeset	1253	(menuHolder := aValueHolder) notNil ifTrue:[
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	1254	menuHolder addDependent:self.
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	1255	].
498 b4c341497621 bug fixes: ca parents: 475 diff changeset	1256	self menu:(menuHolder value)
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	1257	! !
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	1258
1679 af40842718f6 when accepting, and the application does not respond to that Claus Gittinger <cg@exept.de> parents: 1670 diff changeset	1259	!MenuPanel methodsFor:'accessing-color & font'!
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1260
616 a6157b083830 support of different styles ca parents: 608 diff changeset	1261	activeBackgroundColor
a6157b083830 support of different styles ca parents: 608 diff changeset	1262	"get the background drawing color used to highlight selection
a6157b083830 support of different styles ca parents: 608 diff changeset	1263	"
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1264	^ styleSheet colorAt:#'menuPanel.activeBackgroundColor'
616 a6157b083830 support of different styles ca parents: 608 diff changeset	1265	!
a6157b083830 support of different styles ca parents: 608 diff changeset	1266
a6157b083830 support of different styles ca parents: 608 diff changeset	1267	activeForegroundColor
a6157b083830 support of different styles ca parents: 608 diff changeset	1268	"get the foreground color used to highlight selections
a6157b083830 support of different styles ca parents: 608 diff changeset	1269	"
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1270	^ styleSheet colorAt:#'menuPanel.activeForegroundColor'
616 a6157b083830 support of different styles ca parents: 608 diff changeset	1271	!
a6157b083830 support of different styles ca parents: 608 diff changeset	1272
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1273	backgroundColor
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1274	"return the background color
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1275	"
502 dedc1b29b6ac support of arguments ca parents: 498 diff changeset	1276	^ super viewBackground
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1277	!
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1278
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1279	backgroundColor:aColor
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1280	"set the background drawing color. You should not use this method;
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1281	instead leave the value as defined in the styleSheet.
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1282	"
616 a6157b083830 support of different styles ca parents: 608 diff changeset	1283	super viewBackground ~~ aColor ifTrue:[
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	1284	super viewBackground:aColor.
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	1285	shown ifTrue:[
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	1286	self invalidate "/ RepairNow:true
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	1287	]
616 a6157b083830 support of different styles ca parents: 608 diff changeset	1288	]
a6157b083830 support of different styles ca parents: 608 diff changeset	1289
911 6b1ad8b039c5 no, repairNow should not be needed here Claus Gittinger <cg@exept.de> parents: 910 diff changeset	1290	"Modified: / 6.6.1998 / 19:50:06 / cg"
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1291	!
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1292
727 3ba54333342a button style from style sheet tz parents: 723 diff changeset	1293	buttonActiveBackgroundColor
3ba54333342a button style from style sheet tz parents: 723 diff changeset	1294	"get the background drawing color used to highlight button selection
3ba54333342a button style from style sheet tz parents: 723 diff changeset	1295	"
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1296	^ styleSheet colorAt:#'button.activeBackgroundColor'
93426020ceed * empty log message * ca parents: 2216 diff changeset	1297	default:(self viewBackground)
727 3ba54333342a button style from style sheet tz parents: 723 diff changeset	1298	!
3ba54333342a button style from style sheet tz parents: 723 diff changeset	1299
730 9e45051a4fbd better button draw routine + style sheet support tz parents: 729 diff changeset	1300	buttonEdgeStyle
9e45051a4fbd better button draw routine + style sheet support tz parents: 729 diff changeset	1301	"get the button edge style
9e45051a4fbd better button draw routine + style sheet support tz parents: 729 diff changeset	1302	"
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1303	^ styleSheet at:#'button.edgeStyle'
730 9e45051a4fbd better button draw routine + style sheet support tz parents: 729 diff changeset	1304	!
9e45051a4fbd better button draw routine + style sheet support tz parents: 729 diff changeset	1305
1081 fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1306	buttonEnteredBackgroundColor
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1307	"get the background drawing color used to highlight entered button items
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1308	"
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1309	^ styleSheet colorAt:#'menuPanel.buttonEnteredBackgroundColor'
1081 fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1310	!
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1311
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1312	buttonEnteredLevel
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1313	"get the 3D-level used to highlight entered button items
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1314	"
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1315	^ styleSheet at:#'menuPanel.buttonEnteredLevel'
1081 fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1316	!
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1317
730 9e45051a4fbd better button draw routine + style sheet support tz parents: 729 diff changeset	1318	buttonHalfLightColor
9e45051a4fbd better button draw routine + style sheet support tz parents: 729 diff changeset	1319	"get the background drawing color used to half light button frame
9e45051a4fbd better button draw routine + style sheet support tz parents: 729 diff changeset	1320	"
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1321	^ styleSheet colorAt:#'button.halfLightColor'
730 9e45051a4fbd better button draw routine + style sheet support tz parents: 729 diff changeset	1322	!
9e45051a4fbd better button draw routine + style sheet support tz parents: 729 diff changeset	1323
9e45051a4fbd better button draw routine + style sheet support tz parents: 729 diff changeset	1324	buttonHalfShadowColor
9e45051a4fbd better button draw routine + style sheet support tz parents: 729 diff changeset	1325	"get the background drawing color used to half shadow button frame
9e45051a4fbd better button draw routine + style sheet support tz parents: 729 diff changeset	1326	"
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1327	^ styleSheet colorAt:#'button.halfShadowColor'
727 3ba54333342a button style from style sheet tz parents: 723 diff changeset	1328	!
3ba54333342a button style from style sheet tz parents: 723 diff changeset	1329
3ba54333342a button style from style sheet tz parents: 723 diff changeset	1330	buttonLightColor
3ba54333342a button style from style sheet tz parents: 723 diff changeset	1331	"get the background drawing color used to light button frame
3ba54333342a button style from style sheet tz parents: 723 diff changeset	1332	"
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1333	^ styleSheet colorAt:#'menuPanel.buttonLightColor'
727 3ba54333342a button style from style sheet tz parents: 723 diff changeset	1334	!
3ba54333342a button style from style sheet tz parents: 723 diff changeset	1335
3ba54333342a button style from style sheet tz parents: 723 diff changeset	1336	buttonPassiveBackgroundColor
3ba54333342a button style from style sheet tz parents: 723 diff changeset	1337	"get the background drawing color used for button
3ba54333342a button style from style sheet tz parents: 723 diff changeset	1338	"
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1339	^ styleSheet colorAt:#'menuPanel.buttonPassiveBackgroundColor'
727 3ba54333342a button style from style sheet tz parents: 723 diff changeset	1340	!
3ba54333342a button style from style sheet tz parents: 723 diff changeset	1341
3ba54333342a button style from style sheet tz parents: 723 diff changeset	1342	buttonShadowColor
3ba54333342a button style from style sheet tz parents: 723 diff changeset	1343	"get the background drawing color used to shadow button frame
3ba54333342a button style from style sheet tz parents: 723 diff changeset	1344	"
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1345	^ styleSheet colorAt:#'menuPanel.buttonShadowColor'
2059 c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	1346	!
c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	1347
c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	1348	disabledEtchedForegroundColor
c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	1349	"return the color used for etching disabled items.
c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	1350	If nil, no 3D effect is drawn.
c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	1351	"
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1352	^ styleSheet colorAt:#'menuPanel.disabledEtchedFgColor'
727 3ba54333342a button style from style sheet tz parents: 723 diff changeset	1353	!
3ba54333342a button style from style sheet tz parents: 723 diff changeset	1354
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1355	disabledForegroundColor
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1356	"return the foreground color used by disabled items
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1357	"
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1358	^ styleSheet colorAt:#'menuPanel.disabledForegroundColor'
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1359	!
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1360
2170 e76171113581 enteredFG / enteredBG Claus Gittinger <cg@exept.de> parents: 2166 diff changeset	1361	enteredBackgroundColor
e76171113581 enteredFG / enteredBG Claus Gittinger <cg@exept.de> parents: 2166 diff changeset	1362	"return the background color for entered items
e76171113581 enteredFG / enteredBG Claus Gittinger <cg@exept.de> parents: 2166 diff changeset	1363	"
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1364	^ styleSheet colorAt:#'menu.enteredBackgroundColor'
93426020ceed * empty log message * ca parents: 2216 diff changeset	1365	default:(self backgroundColor)
2170 e76171113581 enteredFG / enteredBG Claus Gittinger <cg@exept.de> parents: 2166 diff changeset	1366	!
e76171113581 enteredFG / enteredBG Claus Gittinger <cg@exept.de> parents: 2166 diff changeset	1367
e76171113581 enteredFG / enteredBG Claus Gittinger <cg@exept.de> parents: 2166 diff changeset	1368	enteredForegroundColor
e76171113581 enteredFG / enteredBG Claus Gittinger <cg@exept.de> parents: 2166 diff changeset	1369	"return the foreground color for entered items
e76171113581 enteredFG / enteredBG Claus Gittinger <cg@exept.de> parents: 2166 diff changeset	1370	"
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1371	^ styleSheet colorAt:#'menu.enteredForegroundColor' default:fgColor
2170 e76171113581 enteredFG / enteredBG Claus Gittinger <cg@exept.de> parents: 2166 diff changeset	1372	!
e76171113581 enteredFG / enteredBG Claus Gittinger <cg@exept.de> parents: 2166 diff changeset	1373
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1374	font:aFont
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1375	"set the font
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1376	"
829 c86ed87da63b bug fix: ca parents: 828 diff changeset	1377	(aFont notNil and:[aFont ~= font]) ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1378	super font:(aFont "onDevice:device").
93426020ceed * empty log message * ca parents: 2216 diff changeset	1379
93426020ceed * empty log message * ca parents: 2216 diff changeset	1380	superMenu notNil ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	1381	self extent:(self preferredExtent)
93426020ceed * empty log message * ca parents: 2216 diff changeset	1382	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	1383	self mustRearrange.
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1384	]
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1385	!
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1386
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1387	foregroundColor
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1388	"return the passive foreground color
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1389	"
2059 c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	1390	^ fgColor
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1391	!
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1392
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1393	foregroundColor:aColor
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1394	"set the foregroundColor drawing color. You should not use this method;
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1395	instead leave the value as defined in the styleSheet.
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1396	"
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1397	aColor ~= fgColor ifTrue:[
1478 38f08dec8e34 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	1398	fgColor := aColor onDevice:device.
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1399	shown ifTrue:[ self invalidate ]
93426020ceed * empty log message * ca parents: 2216 diff changeset	1400	].
580 249f6cfc5bb2 checkin from browser Claus Gittinger <cg@exept.de> parents: 571 diff changeset	1401	!
249f6cfc5bb2 checkin from browser Claus Gittinger <cg@exept.de> parents: 571 diff changeset	1402
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1403	maxAbsoluteButtonLevel
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1404	"returns the maximum absolute button level; used to compute the preferred
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1405	extent of a button
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1406	"
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1407	^ styleSheet at:#'menuPanel.maxAbsoluteButtonLevel'
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1408	!
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1409
730 9e45051a4fbd better button draw routine + style sheet support tz parents: 729 diff changeset	1410	selectionFrameBrightColor
9e45051a4fbd better button draw routine + style sheet support tz parents: 729 diff changeset	1411	"get the selection frame bright color
9e45051a4fbd better button draw routine + style sheet support tz parents: 729 diff changeset	1412	"
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1413	^ Color white
730 9e45051a4fbd better button draw routine + style sheet support tz parents: 729 diff changeset	1414	!
9e45051a4fbd better button draw routine + style sheet support tz parents: 729 diff changeset	1415
9e45051a4fbd better button draw routine + style sheet support tz parents: 729 diff changeset	1416	selectionFrameDarkColor
9e45051a4fbd better button draw routine + style sheet support tz parents: 729 diff changeset	1417	"get the selection frame dark color
9e45051a4fbd better button draw routine + style sheet support tz parents: 729 diff changeset	1418	"
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1419	^ Color black
730 9e45051a4fbd better button draw routine + style sheet support tz parents: 729 diff changeset	1420	!
9e45051a4fbd better button draw routine + style sheet support tz parents: 729 diff changeset	1421
1727 a6365337be59 support setting font in MenuPanel and Editor ca parents: 1726 diff changeset	1422	setFont:aFont
a6365337be59 support setting font in MenuPanel and Editor ca parents: 1726 diff changeset	1423	"set the font derived from item; if unchanged nil is returned otherwise the old font
a6365337be59 support setting font in MenuPanel and Editor ca parents: 1726 diff changeset	1424	"
a6365337be59 support setting font in MenuPanel and Editor ca parents: 1726 diff changeset	1425	\|currentFont\|
a6365337be59 support setting font in MenuPanel and Editor ca parents: 1726 diff changeset	1426
a6365337be59 support setting font in MenuPanel and Editor ca parents: 1726 diff changeset	1427	(aFont notNil and:[aFont ~= font]) ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1428	currentFont := font.
93426020ceed * empty log message * ca parents: 2216 diff changeset	1429	super font:aFont.
1727 a6365337be59 support setting font in MenuPanel and Editor ca parents: 1726 diff changeset	1430	].
a6365337be59 support setting font in MenuPanel and Editor ca parents: 1726 diff changeset	1431	^ currentFont
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1432	! !
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1433
1679 af40842718f6 when accepting, and the application does not respond to that Claus Gittinger <cg@exept.de> parents: 1670 diff changeset	1434	!MenuPanel methodsFor:'accessing-dimensions'!
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1435
dce33f8bb806 intitial checkin ca parents: diff changeset	1436	height
dce33f8bb806 intitial checkin ca parents: diff changeset	1437	"default height
dce33f8bb806 intitial checkin ca parents: diff changeset	1438	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1439	(explicitExtent ~~ true) ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1440	^ self preferredExtent y
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1441	].
dce33f8bb806 intitial checkin ca parents: diff changeset	1442	^ super height
dce33f8bb806 intitial checkin ca parents: diff changeset	1443	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1444
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	1445	maxExtent
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	1446	"CLAUS: returns the maximum extent
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	1447	"
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	1448	\|x y\|
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	1449
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	1450	device isNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1451	superMenu notNil ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	1452	^ superMenu maxExtent
93426020ceed * empty log message * ca parents: 2216 diff changeset	1453	].
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	1454	].
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	1455	y := device usableHeight - 2.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	1456	x := device usableWidth - 2.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	1457	^ x@y
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	1458	!
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	1459
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1460	preferredExtent
dce33f8bb806 intitial checkin ca parents: diff changeset	1461	"compute and returns my preferred extent
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	1462	"
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1463	\|maxExtent usedExtent\|
2024 1214769c0441 + #preferredWidth: Claus Gittinger <cg@exept.de> parents: 2020 diff changeset	1464
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	1465	preferredExtent notNil ifTrue:[
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1466	^ preferredExtent
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	1467	].
2024 1214769c0441 + #preferredWidth: Claus Gittinger <cg@exept.de> parents: 2020 diff changeset	1468	maxExtent := self maxExtent.
1214769c0441 + #preferredWidth: Claus Gittinger <cg@exept.de> parents: 2020 diff changeset	1469	usedExtent := self preferredExtentOfItems.
1214769c0441 + #preferredWidth: Claus Gittinger <cg@exept.de> parents: 2020 diff changeset	1470
1214769c0441 + #preferredWidth: Claus Gittinger <cg@exept.de> parents: 2020 diff changeset	1471	superView isNil ifTrue:[
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1472	"/ is standalone
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1473	preferredWidth ifNotNil:[
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1474	usedExtent x < preferredWidth ifTrue:[
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1475	usedExtent := preferredWidth @ usedExtent y.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1476	]
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1477	]
2024 1214769c0441 + #preferredWidth: Claus Gittinger <cg@exept.de> parents: 2020 diff changeset	1478	].
1214769c0441 + #preferredWidth: Claus Gittinger <cg@exept.de> parents: 2020 diff changeset	1479
1214769c0441 + #preferredWidth: Claus Gittinger <cg@exept.de> parents: 2020 diff changeset	1480	^ usedExtent min:maxExtent
1214769c0441 + #preferredWidth: Claus Gittinger <cg@exept.de> parents: 2020 diff changeset	1481
1214769c0441 + #preferredWidth: Claus Gittinger <cg@exept.de> parents: 2020 diff changeset	1482	"Modified: / 10.10.2001 / 14:57:25 / cg"
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	1483	!
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	1484
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	1485	preferredExtentOfItems
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	1486	"compute and returns my preferred extent including all items
1723 f633725a0ace use itemSpace only for horizontal menus and between labeled items ca parents: 1719 diff changeset	1487	!!!!!! changes have influence on method #rearrangeItems !!!!!!
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1488	"
1707 4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	1489	\|hasMenu shCtKey extent showAcc sck
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1490	x "{ Class:SmallInteger }"
93426020ceed * empty log message * ca parents: 2216 diff changeset	1491	y "{ Class:SmallInteger }"
93426020ceed * empty log message * ca parents: 2216 diff changeset	1492	size "{ Class:SmallInteger }"
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	1493	buttonInsetX "{ Class:SmallInteger }"
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	1494	buttonInsetY "{ Class:SmallInteger }"
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1495	labelInsetX "{ Class:SmallInteger }"
93426020ceed * empty log message * ca parents: 2216 diff changeset	1496	labelInsetY "{ Class:SmallInteger }"
93426020ceed * empty log message * ca parents: 2216 diff changeset	1497	itemSpace "{ Class:SmallInteger }"
93426020ceed * empty log message * ca parents: 2216 diff changeset	1498	itemMargin "{ Class:SmallInteger }"
93426020ceed * empty log message * ca parents: 2216 diff changeset	1499	groupDividerSize "{ Class:SmallInteger }"
1690 38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	1500	\|
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1501
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1502	(size := items size) == 0 ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1503	self isViewWrapper ifTrue:[ ^ subViews first extent ].
93426020ceed * empty log message * ca parents: 2216 diff changeset	1504	^ 32 @ 32
93426020ceed * empty log message * ca parents: 2216 diff changeset	1505	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	1506	buttonInsetX := 2 * self buttonInsetX.
93426020ceed * empty log message * ca parents: 2216 diff changeset	1507	buttonInsetY := 2 * self buttonInsetY.
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1508
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1509	self isPopUpView ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1510	labelInsetX := labelInsetY := 2 * (self enteredLevel abs).
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1511	] ifTrue:[
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	1512	labelInsetX := labelInsetY := 0.
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1513	].
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1514
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1515	x := 0.
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1516	y := 0.
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1517	groupDividerSize := self groupDividerSize.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1518
dce33f8bb806 intitial checkin ca parents: diff changeset	1519	self verticalLayout ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1520	itemSpace := self itemSpace.
93426020ceed * empty log message * ca parents: 2216 diff changeset	1521
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1522	items keysAndValuesDo:[:key :el\| \|eX eY\|
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1523	extent := el preferredExtent.
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1524
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1525	"/ check for visibility (extent x ~~ 0)
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1526	(eX := extent x) ~~ 0 ifTrue:[
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1527	eY := extent y.
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1528
1472 fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	1529	el isButton ifTrue:[
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	1530	eX := eX + buttonInsetX.
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	1531	eY := eY + buttonInsetY.
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1532	] ifFalse:[
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	1533	eX := eX + labelInsetX.
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	1534	eY := eY + labelInsetY.
1472 fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	1535	].
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1536	key ~~ size ifTrue:[
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1537	(self hasGroupDividerAt:key) ifTrue:[
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1538	x := x + groupDividerSize
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1539	] ifFalse:[
1723 f633725a0ace use itemSpace only for horizontal menus and between labeled items ca parents: 1719 diff changeset	1540	el isLabeledItem ifTrue:[
f633725a0ace use itemSpace only for horizontal menus and between labeled items ca parents: 1719 diff changeset	1541	x := x + itemSpace
f633725a0ace use itemSpace only for horizontal menus and between labeled items ca parents: 1719 diff changeset	1542	]
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1543	]
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1544	].
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1545	x := eX + x.
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1546	y := eY max:y.
1472 fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	1547	]
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1548	]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1549	] ifTrue:[
1472 fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	1550	hasMenu := false.
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	1551	shCtKey := 0.
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1552	showAcc := MenuView showAcceleratorKeys == true.
1472 fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	1553	y := x.
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	1554	x := 0.
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1555	itemMargin := 2 * self itemMargin.
1472 fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	1556
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1557	items keysAndValuesDo:[:key :el\| \|eX eY\|
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1558	extent := el preferredExtent.
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1559
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1560	"/ check for visibility (extent x ~~ 0)
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1561	(eX := extent x) ~~ 0 ifTrue:[
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1562	eY := extent y.
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1563
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1564	el isButton ifTrue:[
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	1565	eX := eX + buttonInsetX.
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	1566	eY := eY + buttonInsetY.
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1567	] ifFalse:[
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	1568	eX := eX + labelInsetX.
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	1569	eY := eY + labelInsetY.
1472 fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	1570	].
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1571	hasMenu ifFalse:[
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1572	hasMenu := el hasSubmenu
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1573	].
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1574	(showAcc and:[(sck := el shortcutKeyAsString) notNil]) ifTrue:[
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1575	shCtKey := shCtKey max:(sck widthOn:self)
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1576	].
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1577	key ~~ size ifTrue:[
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1578	(self hasGroupDividerAt:key) ifTrue:[
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1579	y := y + groupDividerSize
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1580	]
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1581	].
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1582	y := eY + y.
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1583	x := eX max:x.
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1584	].
1472 fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	1585	].
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1586	x := x + itemMargin.
1472 fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	1587
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	1588	(hasMenu or:[shCtKey ~~ 0]) ifTrue:[
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	1589	shortKeyInset := x + Item labelRightOffset.
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	1590	x := shortKeyInset + shCtKey + self subMenuIndicationWidth.
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	1591
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	1592	(shCtKey ~~ 0 and:[hasMenu]) ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1593	x := x + self shortcutKeyOffset.
1472 fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	1594	]
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	1595	].
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1596	"/ to have a small inset
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1597	y := y + 1.
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1598	"/ x := x + 1.
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1599	].
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1600	x := x + margin + margin.
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1601	y := y + margin + margin.
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1602
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1603	^ x @ y
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1604	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1605
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1606	preferredWidth:aWidthOrNil
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1607	"used for example by combo box to setup the preferred width for the popup menu.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1608	If nil (default), the width is computed from the contained items.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1609	If not nil, the width is the maximum from the contained items and the required width.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1610	"
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1611	preferredWidth := aWidthOrNil.
2024 1214769c0441 + #preferredWidth: Claus Gittinger <cg@exept.de> parents: 2020 diff changeset	1612	!
1214769c0441 + #preferredWidth: Claus Gittinger <cg@exept.de> parents: 2020 diff changeset	1613
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1614	shortKeyInset
dce33f8bb806 intitial checkin ca parents: diff changeset	1615	"left inset of shortcutKey
dce33f8bb806 intitial checkin ca parents: diff changeset	1616	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1617	^ shortKeyInset
616 a6157b083830 support of different styles ca parents: 608 diff changeset	1618	!
a6157b083830 support of different styles ca parents: 608 diff changeset	1619
a6157b083830 support of different styles ca parents: 608 diff changeset	1620	subMenuIndicationWidth
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1621	^ self rightArrow width
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1622	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	1623
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	1624	!MenuPanel methodsFor:'accessing-interactors'!
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	1625
1798 08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	1626	iconIndicationDisabledOff
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1627	^ self registerImageOnDevice:(self class iconIndicationDisabledOff)
1798 08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	1628	!
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	1629
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	1630	iconIndicationDisabledOn
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1631	^ self registerImageOnDevice:(self class iconIndicationDisabledOn)
1798 08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	1632	!
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	1633
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	1634	iconIndicationOff
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1635	^ self registerImageOnDevice:(self class iconIndicationOff)
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	1636	!
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	1637
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	1638	iconIndicationOn
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1639	^ self registerImageOnDevice:(self class iconIndicationOn)
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	1640	!
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	1641
1798 08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	1642	iconRadioGroupDisabledOff
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1643	^ self registerImageOnDevice:(self class iconRadioGroupDisabledOff)
1798 08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	1644	!
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	1645
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	1646	iconRadioGroupDisabledOn
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1647	^ self registerImageOnDevice:(self class iconRadioGroupDisabledOn)
1798 08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	1648	!
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	1649
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	1650	iconRadioGroupOff
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1651	^ self registerImageOnDevice:(self class iconRadioGroupOff)
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	1652	!
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	1653
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	1654	iconRadioGroupOn
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1655	^ self registerImageOnDevice:(self class iconRadioGroupOn)
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	1656	! !
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	1657
1679 af40842718f6 when accepting, and the application does not respond to that Claus Gittinger <cg@exept.de> parents: 1670 diff changeset	1658	!MenuPanel methodsFor:'accessing-items'!
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1659
dce33f8bb806 intitial checkin ca parents: diff changeset	1660	itemAt:stringOrNumber do:aOneArgBlock
dce33f8bb806 intitial checkin ca parents: diff changeset	1661	"evaluate teh block for an item and return the result from the block. In case that
dce33f8bb806 intitial checkin ca parents: diff changeset	1662	the item not exists nil is returned
dce33f8bb806 intitial checkin ca parents: diff changeset	1663	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1664	^ self itemAt:stringOrNumber do:aOneArgBlock ifAbsent:nil
dce33f8bb806 intitial checkin ca parents: diff changeset	1665	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1666
dce33f8bb806 intitial checkin ca parents: diff changeset	1667	itemAt:stringOrNumber do:aOneArgBlock ifAbsent:exceptionBlock
dce33f8bb806 intitial checkin ca parents: diff changeset	1668	"evaluate teh block for an item and return the result from the block. In case that
dce33f8bb806 intitial checkin ca parents: diff changeset	1669	the item not exists the result of the exception block is returned (no arguments).
dce33f8bb806 intitial checkin ca parents: diff changeset	1670	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1671	\|item\|
dce33f8bb806 intitial checkin ca parents: diff changeset	1672
dce33f8bb806 intitial checkin ca parents: diff changeset	1673	item := self itemAt:stringOrNumber.
dce33f8bb806 intitial checkin ca parents: diff changeset	1674	item notNil ifTrue:[ ^ aOneArgBlock value:item ].
dce33f8bb806 intitial checkin ca parents: diff changeset	1675	^ exceptionBlock value
706 d716edbdbe47 show separators bug cleaned tz parents: 689 diff changeset	1676	!
d716edbdbe47 show separators bug cleaned tz parents: 689 diff changeset	1677
d716edbdbe47 show separators bug cleaned tz parents: 689 diff changeset	1678	itemAtIndex:anIndex
d716edbdbe47 show separators bug cleaned tz parents: 689 diff changeset	1679	"returns item at an index or nil
d716edbdbe47 show separators bug cleaned tz parents: 689 diff changeset	1680	"
d716edbdbe47 show separators bug cleaned tz parents: 689 diff changeset	1681	^ items notNil ifTrue:[items at:anIndex ifAbsent:nil] ifFalse:[nil]
1707 4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	1682	!
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	1683
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	1684	items
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	1685	"returns list of items or nil
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	1686	"
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	1687	^ items
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1688	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	1689
1679 af40842718f6 when accepting, and the application does not respond to that Claus Gittinger <cg@exept.de> parents: 1670 diff changeset	1690	!MenuPanel methodsFor:'accessing-look'!
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1691
727 3ba54333342a button style from style sheet tz parents: 723 diff changeset	1692	buttonActiveLevel
3ba54333342a button style from style sheet tz parents: 723 diff changeset	1693	"get the button active level
3ba54333342a button style from style sheet tz parents: 723 diff changeset	1694	"
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1695	^ styleSheet at:#'menuPanel.buttonActiveLevel'
727 3ba54333342a button style from style sheet tz parents: 723 diff changeset	1696	!
3ba54333342a button style from style sheet tz parents: 723 diff changeset	1697
3ba54333342a button style from style sheet tz parents: 723 diff changeset	1698	buttonPassiveLevel
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1699	"get the button active level
93426020ceed * empty log message * ca parents: 2216 diff changeset	1700	"
93426020ceed * empty log message * ca parents: 2216 diff changeset	1701	^ styleSheet at:#'menuPanel.buttonPassiveLevel'
727 3ba54333342a button style from style sheet tz parents: 723 diff changeset	1702	!
3ba54333342a button style from style sheet tz parents: 723 diff changeset	1703
2337 7f384db88273 centerItems attribute Claus Gittinger <cg@exept.de> parents: 2332 diff changeset	1704	centerItems
7f384db88273 centerItems attribute Claus Gittinger <cg@exept.de> parents: 2332 diff changeset	1705	^ centerItems ? false
7f384db88273 centerItems attribute Claus Gittinger <cg@exept.de> parents: 2332 diff changeset	1706	!
7f384db88273 centerItems attribute Claus Gittinger <cg@exept.de> parents: 2332 diff changeset	1707
7f384db88273 centerItems attribute Claus Gittinger <cg@exept.de> parents: 2332 diff changeset	1708	centerItems:aBoolean
7f384db88273 centerItems attribute Claus Gittinger <cg@exept.de> parents: 2332 diff changeset	1709	centerItems := aBoolean
7f384db88273 centerItems attribute Claus Gittinger <cg@exept.de> parents: 2332 diff changeset	1710	!
7f384db88273 centerItems attribute Claus Gittinger <cg@exept.de> parents: 2332 diff changeset	1711
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1712	fitFirstPanel
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1713	"gets true if the first panel in the menu hierarchy must be fit
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1714	to the extent of its superView
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1715
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1716	NOT SUPPORTED
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1717	"
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1718	^ false
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1719	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1720
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1721	fitFirstPanel:aState
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1722	"sets true if the first panel in the menu hierarchy must be fit
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1723	to the extent of its superView
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1724
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1725	NOT SUPPORTED
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1726	"
616 a6157b083830 support of different styles ca parents: 608 diff changeset	1727	!
a6157b083830 support of different styles ca parents: 608 diff changeset	1728
1093 7cb44303b016 margin fixes Claus Gittinger <cg@exept.de> parents: 1090 diff changeset	1729	level:anInt
2003 732fbaf5864f avoid changing the level after realization (to avoid confusing the shadow) Claus Gittinger <cg@exept.de> parents: 2000 diff changeset	1730	anInt ~~ level ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1731	super level:anInt.
93426020ceed * empty log message * ca parents: 2216 diff changeset	1732	self mustRearrange
2003 732fbaf5864f avoid changing the level after realization (to avoid confusing the shadow) Claus Gittinger <cg@exept.de> parents: 2000 diff changeset	1733	]
2052 61367c7a47aa * empty log message * Claus Gittinger <cg@exept.de> parents: 2051 diff changeset	1734
61367c7a47aa * empty log message * Claus Gittinger <cg@exept.de> parents: 2051 diff changeset	1735	"Modified: / 15.11.2001 / 17:42:07 / cg"
1093 7cb44303b016 margin fixes Claus Gittinger <cg@exept.de> parents: 1090 diff changeset	1736	!
7cb44303b016 margin fixes Claus Gittinger <cg@exept.de> parents: 1090 diff changeset	1737
616 a6157b083830 support of different styles ca parents: 608 diff changeset	1738	rightArrow
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1739	rightArrow ifNil:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	1740	device ifNil:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	1741	^ SelectionInListView rightArrowFormOn:Display
93426020ceed * empty log message * ca parents: 2216 diff changeset	1742	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	1743	rightArrow := SelectionInListView rightArrowFormOn:device
93426020ceed * empty log message * ca parents: 2216 diff changeset	1744	].
616 a6157b083830 support of different styles ca parents: 608 diff changeset	1745	^ rightArrow
a6157b083830 support of different styles ca parents: 608 diff changeset	1746	!
a6157b083830 support of different styles ca parents: 608 diff changeset	1747
a6157b083830 support of different styles ca parents: 608 diff changeset	1748	rightArrowShadow
a6157b083830 support of different styles ca parents: 608 diff changeset	1749	^ rightArrowShadow
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1750	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1751
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1752	showGroupDivider
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1753	"get the enabled flag for showing groupDiveders
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1754	"
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1755	^ showGroupDivider
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1756	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1757
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1758	showGroupDivider:aState
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1759	"set the enabled flag for showing groupDiveders
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1760	"
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1761	showGroupDivider ~~ aState ifTrue:[
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1762	showGroupDivider := aState.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1763	self mustRearrange.
653 cf9b6ef11ade bug fix; no automatic rearrange of items ca parents: 650 diff changeset	1764	]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1765	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1766
dce33f8bb806 intitial checkin ca parents: diff changeset	1767	showSeparatingLines
dce33f8bb806 intitial checkin ca parents: diff changeset	1768	"gets true if drawing of separating lines is enabled.
dce33f8bb806 intitial checkin ca parents: diff changeset	1769	"
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1770	^ showSeparatingLines
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1771	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1772
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1773	showSeparatingLines:aState
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1774	"turn on/off drawing of separating lines.
dce33f8bb806 intitial checkin ca parents: diff changeset	1775	"
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1776	aState ~~ showSeparatingLines ifTrue:[
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1777	showSeparatingLines := aState.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1778	self mustRearrange
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1779	].
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1780	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1781
dce33f8bb806 intitial checkin ca parents: diff changeset	1782	verticalLayout
dce33f8bb806 intitial checkin ca parents: diff changeset	1783	"get the layout: or vertical( true ) or horizontal( false )
dce33f8bb806 intitial checkin ca parents: diff changeset	1784	"
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1785	verticalLayout ifNotNil:[ ^ verticalLayout ].
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1786
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1787	superMenu notNil ifTrue:[ verticalLayout := true ]
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1788	ifFalse:[ verticalLayout := self isPopUpView ].
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1789
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1790	^ verticalLayout
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1791	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1792
dce33f8bb806 intitial checkin ca parents: diff changeset	1793	verticalLayout:aState
dce33f8bb806 intitial checkin ca parents: diff changeset	1794	"set the layout: or vertical( true ) or horizontal( false )
dce33f8bb806 intitial checkin ca parents: diff changeset	1795	"
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1796	aState ~~ verticalLayout ifTrue:[
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1797	verticalLayout isNil ifTrue:[
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1798	verticalLayout := aState
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1799	] ifFalse:[
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1800	verticalLayout := aState.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1801	self mustRearrange.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1802	].
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1803	].
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1804	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	1805
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1806	!MenuPanel methodsFor:'accessing-style'!
93426020ceed * empty log message * ca parents: 2216 diff changeset	1807
93426020ceed * empty log message * ca parents: 2216 diff changeset	1808	buttonInsetX
93426020ceed * empty log message * ca parents: 2216 diff changeset	1809	"returns the verical button space
93426020ceed * empty log message * ca parents: 2216 diff changeset	1810	"
93426020ceed * empty log message * ca parents: 2216 diff changeset	1811	^ styleSheet at:#'menuPanel.buttonInsetX'
93426020ceed * empty log message * ca parents: 2216 diff changeset	1812	!
93426020ceed * empty log message * ca parents: 2216 diff changeset	1813
93426020ceed * empty log message * ca parents: 2216 diff changeset	1814	buttonInsetY
93426020ceed * empty log message * ca parents: 2216 diff changeset	1815	"returns the verical button space
93426020ceed * empty log message * ca parents: 2216 diff changeset	1816	"
93426020ceed * empty log message * ca parents: 2216 diff changeset	1817	^ styleSheet at:#'menuPanel.buttonInsetY'
93426020ceed * empty log message * ca parents: 2216 diff changeset	1818	!
93426020ceed * empty log message * ca parents: 2216 diff changeset	1819
93426020ceed * empty log message * ca parents: 2216 diff changeset	1820	enteredLevel
93426020ceed * empty log message * ca parents: 2216 diff changeset	1821	"returns the enter-level for an unselected item moved through
93426020ceed * empty log message * ca parents: 2216 diff changeset	1822	"
93426020ceed * empty log message * ca parents: 2216 diff changeset	1823	^ styleSheet at:#'menu.enteredLevel' default:0
93426020ceed * empty log message * ca parents: 2216 diff changeset	1824	!
93426020ceed * empty log message * ca parents: 2216 diff changeset	1825
93426020ceed * empty log message * ca parents: 2216 diff changeset	1826	groupDividerSize
93426020ceed * empty log message * ca parents: 2216 diff changeset	1827	"returns the width of a group divider
93426020ceed * empty log message * ca parents: 2216 diff changeset	1828	"
93426020ceed * empty log message * ca parents: 2216 diff changeset	1829	^ styleSheet at:#'menu.groupDividerSize' default:6
93426020ceed * empty log message * ca parents: 2216 diff changeset	1830	!
93426020ceed * empty log message * ca parents: 2216 diff changeset	1831
93426020ceed * empty log message * ca parents: 2216 diff changeset	1832	itemMargin
93426020ceed * empty log message * ca parents: 2216 diff changeset	1833	"returns the margin of an item
93426020ceed * empty log message * ca parents: 2216 diff changeset	1834	"
93426020ceed * empty log message * ca parents: 2216 diff changeset	1835	^ styleSheet at:#'menu.itemMargin' default:0
93426020ceed * empty log message * ca parents: 2216 diff changeset	1836	!
93426020ceed * empty log message * ca parents: 2216 diff changeset	1837
93426020ceed * empty log message * ca parents: 2216 diff changeset	1838	itemSpace
93426020ceed * empty log message * ca parents: 2216 diff changeset	1839	"returns the additional space for an item in a (vertical) panel
93426020ceed * empty log message * ca parents: 2216 diff changeset	1840	"
93426020ceed * empty log message * ca parents: 2216 diff changeset	1841	^ styleSheet at:#'menuPanel.itemSpace'
93426020ceed * empty log message * ca parents: 2216 diff changeset	1842	!
93426020ceed * empty log message * ca parents: 2216 diff changeset	1843
93426020ceed * empty log message * ca parents: 2216 diff changeset	1844	selectionFollowsMouse
93426020ceed * empty log message * ca parents: 2216 diff changeset	1845	"returns true if the selection follows the mouse
93426020ceed * empty log message * ca parents: 2216 diff changeset	1846	"
93426020ceed * empty log message * ca parents: 2216 diff changeset	1847	^ styleSheet at:#'menu.selectionFollowsMouse' default:false
93426020ceed * empty log message * ca parents: 2216 diff changeset	1848	!
93426020ceed * empty log message * ca parents: 2216 diff changeset	1849
93426020ceed * empty log message * ca parents: 2216 diff changeset	1850	shortcutKeyOffset
93426020ceed * empty log message * ca parents: 2216 diff changeset	1851	"returns the offset for a shortcutKey
93426020ceed * empty log message * ca parents: 2216 diff changeset	1852	"
93426020ceed * empty log message * ca parents: 2216 diff changeset	1853	^ 5
93426020ceed * empty log message * ca parents: 2216 diff changeset	1854	! !
93426020ceed * empty log message * ca parents: 2216 diff changeset	1855
1679 af40842718f6 when accepting, and the application does not respond to that Claus Gittinger <cg@exept.de> parents: 1670 diff changeset	1856	!MenuPanel methodsFor:'accessing-submenu'!
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1857
dce33f8bb806 intitial checkin ca parents: diff changeset	1858	subMenuAt:stringOrNumber
dce33f8bb806 intitial checkin ca parents: diff changeset	1859	"gets the submenu of an item or nil
dce33f8bb806 intitial checkin ca parents: diff changeset	1860	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1861	^ self itemAt:stringOrNumber do:[:el\| el submenu ]
dce33f8bb806 intitial checkin ca parents: diff changeset	1862	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1863
dce33f8bb806 intitial checkin ca parents: diff changeset	1864	subMenuAt:stringOrNumber put:aSubMenu
dce33f8bb806 intitial checkin ca parents: diff changeset	1865	"sets the submenu of an item
dce33f8bb806 intitial checkin ca parents: diff changeset	1866	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1867	self itemAt:stringOrNumber do:[:el\| el submenu:aSubMenu ]
dce33f8bb806 intitial checkin ca parents: diff changeset	1868
dce33f8bb806 intitial checkin ca parents: diff changeset	1869	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1870
dce33f8bb806 intitial checkin ca parents: diff changeset	1871	subMenuShown
dce33f8bb806 intitial checkin ca parents: diff changeset	1872	"return the currently visible submenu - or nil if there is none
dce33f8bb806 intitial checkin ca parents: diff changeset	1873	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1874	\|item\|
dce33f8bb806 intitial checkin ca parents: diff changeset	1875
dce33f8bb806 intitial checkin ca parents: diff changeset	1876	(item := self selection) notNil ifTrue:[
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	1877	^ item submenu
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1878	].
dce33f8bb806 intitial checkin ca parents: diff changeset	1879	^ nil
dce33f8bb806 intitial checkin ca parents: diff changeset	1880	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	1881
1698 8d29156bab20 category rename Claus Gittinger <cg@exept.de> parents: 1697 diff changeset	1882	!MenuPanel methodsFor:'activation / deactivation'!
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1883
1795 6afd0e768267 submenuChannel selector: allow upto two arguments, the arg and the menu ca parents: 1793 diff changeset	1884	closeMenus
6afd0e768267 submenuChannel selector: allow upto two arguments, the arg and the menu ca parents: 1793 diff changeset	1885	"close all menus; operation is done; nothing accepted
6afd0e768267 submenuChannel selector: allow upto two arguments, the arg and the menu ca parents: 1793 diff changeset	1886	"
6afd0e768267 submenuChannel selector: allow upto two arguments, the arg and the menu ca parents: 1793 diff changeset	1887	self topMenu accept:nil.
6afd0e768267 submenuChannel selector: allow upto two arguments, the arg and the menu ca parents: 1793 diff changeset	1888	!
6afd0e768267 submenuChannel selector: allow upto two arguments, the arg and the menu ca parents: 1793 diff changeset	1889
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1890	hide
dce33f8bb806 intitial checkin ca parents: diff changeset	1891	"hide the view, leave its modal event loop
dce33f8bb806 intitial checkin ca parents: diff changeset	1892	"
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	1893
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1894	self selection:nil.
dce33f8bb806 intitial checkin ca parents: diff changeset	1895	self unmap.
dce33f8bb806 intitial checkin ca parents: diff changeset	1896
dce33f8bb806 intitial checkin ca parents: diff changeset	1897
dce33f8bb806 intitial checkin ca parents: diff changeset	1898	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1899
dce33f8bb806 intitial checkin ca parents: diff changeset	1900	show
1836 89a1b938c09e fixed returned value from non-performing menu Claus Gittinger <cg@exept.de> parents: 1832 diff changeset	1901	"realize the view at its last position;
89a1b938c09e fixed returned value from non-performing menu Claus Gittinger <cg@exept.de> parents: 1832 diff changeset	1902	return the value of the selectedItem or nil, of none was selected
89a1b938c09e fixed returned value from non-performing menu Claus Gittinger <cg@exept.de> parents: 1832 diff changeset	1903	(unless the menu has already performed its action, by sending an appropriate message
89a1b938c09e fixed returned value from non-performing menu Claus Gittinger <cg@exept.de> parents: 1832 diff changeset	1904	to some performer)
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1905	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1906	^ self showAt:(self origin) resizing:true
dce33f8bb806 intitial checkin ca parents: diff changeset	1907
dce33f8bb806 intitial checkin ca parents: diff changeset	1908	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1909
dce33f8bb806 intitial checkin ca parents: diff changeset	1910	showAt:aPoint
1836 89a1b938c09e fixed returned value from non-performing menu Claus Gittinger <cg@exept.de> parents: 1832 diff changeset	1911	"realize the view at aPoint.
89a1b938c09e fixed returned value from non-performing menu Claus Gittinger <cg@exept.de> parents: 1832 diff changeset	1912	return the value of the selectedItem or nil, of none was selected
89a1b938c09e fixed returned value from non-performing menu Claus Gittinger <cg@exept.de> parents: 1832 diff changeset	1913	(unless the menu has already performed its action, by sending an appropriate message
89a1b938c09e fixed returned value from non-performing menu Claus Gittinger <cg@exept.de> parents: 1832 diff changeset	1914	to some performer)
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1915	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1916	^ self showAt:aPoint resizing:true
dce33f8bb806 intitial checkin ca parents: diff changeset	1917
dce33f8bb806 intitial checkin ca parents: diff changeset	1918
dce33f8bb806 intitial checkin ca parents: diff changeset	1919	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1920
dce33f8bb806 intitial checkin ca parents: diff changeset	1921	showAt:aPoint resizing:aBoolean
984 87d36803b9d8 oops - menu items fired twice. Claus Gittinger <cg@exept.de> parents: 971 diff changeset	1922	"realize the view at aPoint; return nil if no item was selected,
87d36803b9d8 oops - menu items fired twice. Claus Gittinger <cg@exept.de> parents: 971 diff changeset	1923	or if I have already performed.
87d36803b9d8 oops - menu items fired twice. Claus Gittinger <cg@exept.de> parents: 971 diff changeset	1924	Return the items value, otherwise.
87d36803b9d8 oops - menu items fired twice. Claus Gittinger <cg@exept.de> parents: 971 diff changeset	1925	Notice, that this is returned back to the one who started this
87d36803b9d8 oops - menu items fired twice. Claus Gittinger <cg@exept.de> parents: 971 diff changeset	1926	menu (i.e. the view or controller), which will perform the action
87d36803b9d8 oops - menu items fired twice. Claus Gittinger <cg@exept.de> parents: 971 diff changeset	1927	if a non-nil is returned.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1928	"
1836 89a1b938c09e fixed returned value from non-performing menu Claus Gittinger <cg@exept.de> parents: 1832 diff changeset	1929
1331 aae37cbfb30a fixed style handling to avoid bad resizing when popup-level/bw Claus Gittinger <cg@exept.de> parents: 1330 diff changeset	1930	self rearrangeItemsIfItemVisibilityChanged.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1931
dce33f8bb806 intitial checkin ca parents: diff changeset	1932	aBoolean ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1933	self fixSize.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1934	].
dce33f8bb806 intitial checkin ca parents: diff changeset	1935	self origin:aPoint.
1459 53f83c83b354 checkin from browser Claus Gittinger <cg@exept.de> parents: 1455 diff changeset	1936	"/ self makeFullyVisible. -- done in realize
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1937	self openModal:[true]. "realize "
dce33f8bb806 intitial checkin ca parents: diff changeset	1938
984 87d36803b9d8 oops - menu items fired twice. Claus Gittinger <cg@exept.de> parents: 971 diff changeset	1939	"/ if I have already performed,
87d36803b9d8 oops - menu items fired twice. Claus Gittinger <cg@exept.de> parents: 971 diff changeset	1940	"/ return nil - to avoid items triggering twice.
87d36803b9d8 oops - menu items fired twice. Claus Gittinger <cg@exept.de> parents: 971 diff changeset	1941
87d36803b9d8 oops - menu items fired twice. Claus Gittinger <cg@exept.de> parents: 971 diff changeset	1942	(self topMenu menuAdornmentAt:#hasPerformed) == true ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1943	^ nil
984 87d36803b9d8 oops - menu items fired twice. Claus Gittinger <cg@exept.de> parents: 971 diff changeset	1944	].
1836 89a1b938c09e fixed returned value from non-performing menu Claus Gittinger <cg@exept.de> parents: 1832 diff changeset	1945
984 87d36803b9d8 oops - menu items fired twice. Claus Gittinger <cg@exept.de> parents: 971 diff changeset	1946	^ self lastValueAccepted
87d36803b9d8 oops - menu items fired twice. Claus Gittinger <cg@exept.de> parents: 971 diff changeset	1947
1137 7df0b776e47a fixes for 2D styles (borderWidth) Claus Gittinger <cg@exept.de> parents: 1130 diff changeset	1948	"Modified: / 15.9.1998 / 12:50:23 / cg"
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1949	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1950
dce33f8bb806 intitial checkin ca parents: diff changeset	1951	showAtPointer
1836 89a1b938c09e fixed returned value from non-performing menu Claus Gittinger <cg@exept.de> parents: 1832 diff changeset	1952	"realize the view at the current pointer position.
89a1b938c09e fixed returned value from non-performing menu Claus Gittinger <cg@exept.de> parents: 1832 diff changeset	1953	return the value of the selectedItem or nil, of none was selected
89a1b938c09e fixed returned value from non-performing menu Claus Gittinger <cg@exept.de> parents: 1832 diff changeset	1954	(unless the menu has already performed its action, by sending an appropriate message
89a1b938c09e fixed returned value from non-performing menu Claus Gittinger <cg@exept.de> parents: 1832 diff changeset	1955	to some performer)
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1956	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1957	^ self showAt:(device pointerPosition) resizing:true
dce33f8bb806 intitial checkin ca parents: diff changeset	1958
dce33f8bb806 intitial checkin ca parents: diff changeset	1959
dce33f8bb806 intitial checkin ca parents: diff changeset	1960	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1961
dce33f8bb806 intitial checkin ca parents: diff changeset	1962	showCenteredIn:aView
dce33f8bb806 intitial checkin ca parents: diff changeset	1963	"make myself visible at the screen center.
1836 89a1b938c09e fixed returned value from non-performing menu Claus Gittinger <cg@exept.de> parents: 1832 diff changeset	1964	return the value of the selectedItem or nil, of none was selected
89a1b938c09e fixed returned value from non-performing menu Claus Gittinger <cg@exept.de> parents: 1832 diff changeset	1965	(unless the menu has already performed its action, by sending an appropriate message
89a1b938c09e fixed returned value from non-performing menu Claus Gittinger <cg@exept.de> parents: 1832 diff changeset	1966	to some performer)
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1967	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1968	\|top\|
dce33f8bb806 intitial checkin ca parents: diff changeset	1969
dce33f8bb806 intitial checkin ca parents: diff changeset	1970	top := aView topView.
dce33f8bb806 intitial checkin ca parents: diff changeset	1971	top raise.
1137 7df0b776e47a fixes for 2D styles (borderWidth) Claus Gittinger <cg@exept.de> parents: 1130 diff changeset	1972	^ self showAt:(top origin + (aView originRelativeTo:top) + (aView extent // 2) - (self extent // 2))
7df0b776e47a fixes for 2D styles (borderWidth) Claus Gittinger <cg@exept.de> parents: 1130 diff changeset	1973
7df0b776e47a fixes for 2D styles (borderWidth) Claus Gittinger <cg@exept.de> parents: 1130 diff changeset	1974	"Modified: / 15.9.1998 / 12:45:50 / cg"
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1975	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1976
dce33f8bb806 intitial checkin ca parents: diff changeset	1977	startUp
dce33f8bb806 intitial checkin ca parents: diff changeset	1978	"realize the menu at the current pointer position
1836 89a1b938c09e fixed returned value from non-performing menu Claus Gittinger <cg@exept.de> parents: 1832 diff changeset	1979	return the value of the selectedItem or nil, of none was selected
89a1b938c09e fixed returned value from non-performing menu Claus Gittinger <cg@exept.de> parents: 1832 diff changeset	1980	(unless the menu has already performed its action, by sending an appropriate message
89a1b938c09e fixed returned value from non-performing menu Claus Gittinger <cg@exept.de> parents: 1832 diff changeset	1981	to some performer)
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1982	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1983	^ self showAtPointer
897 6bbc8c15ac0a added #startUpAt: (MenuView compatibility) Claus Gittinger <cg@exept.de> parents: 890 diff changeset	1984	!
6bbc8c15ac0a added #startUpAt: (MenuView compatibility) Claus Gittinger <cg@exept.de> parents: 890 diff changeset	1985
6bbc8c15ac0a added #startUpAt: (MenuView compatibility) Claus Gittinger <cg@exept.de> parents: 890 diff changeset	1986	startUpAt:aPoint
6bbc8c15ac0a added #startUpAt: (MenuView compatibility) Claus Gittinger <cg@exept.de> parents: 890 diff changeset	1987	"realize the menu at aPoint
1836 89a1b938c09e fixed returned value from non-performing menu Claus Gittinger <cg@exept.de> parents: 1832 diff changeset	1988	return the value of the selectedItem or nil, of none was selected
89a1b938c09e fixed returned value from non-performing menu Claus Gittinger <cg@exept.de> parents: 1832 diff changeset	1989	(unless the menu has already performed its action, by sending an appropriate message
89a1b938c09e fixed returned value from non-performing menu Claus Gittinger <cg@exept.de> parents: 1832 diff changeset	1990	to some performer)
897 6bbc8c15ac0a added #startUpAt: (MenuView compatibility) Claus Gittinger <cg@exept.de> parents: 890 diff changeset	1991	"
6bbc8c15ac0a added #startUpAt: (MenuView compatibility) Claus Gittinger <cg@exept.de> parents: 890 diff changeset	1992	^ self showAt:aPoint
6bbc8c15ac0a added #startUpAt: (MenuView compatibility) Claus Gittinger <cg@exept.de> parents: 890 diff changeset	1993
6bbc8c15ac0a added #startUpAt: (MenuView compatibility) Claus Gittinger <cg@exept.de> parents: 890 diff changeset	1994	"Created: / 21.5.1998 / 14:15:57 / cg"
1750 f9e5700bd99a compatibility stuff Claus Gittinger <cg@exept.de> parents: 1737 diff changeset	1995	!
f9e5700bd99a compatibility stuff Claus Gittinger <cg@exept.de> parents: 1737 diff changeset	1996
2332 7e98cc0c92b7 can now specify if menu action is to be performed by ca parents: 2331 diff changeset	1997	startUpFor:originatingWidget
7e98cc0c92b7 can now specify if menu action is to be performed by ca parents: 2331 diff changeset	1998	"realize the menu at the current pointer position
7e98cc0c92b7 can now specify if menu action is to be performed by ca parents: 2331 diff changeset	1999	return the value of the selectedItem or nil, of none was selected
7e98cc0c92b7 can now specify if menu action is to be performed by ca parents: 2331 diff changeset	2000	(unless the menu has already performed its action, by sending an appropriate message
7e98cc0c92b7 can now specify if menu action is to be performed by ca parents: 2331 diff changeset	2001	to some performer)
7e98cc0c92b7 can now specify if menu action is to be performed by ca parents: 2331 diff changeset	2002	"
7e98cc0c92b7 can now specify if menu action is to be performed by ca parents: 2331 diff changeset	2003	originator := originatingWidget.
7e98cc0c92b7 can now specify if menu action is to be performed by ca parents: 2331 diff changeset	2004	^ self startUp
7e98cc0c92b7 can now specify if menu action is to be performed by ca parents: 2331 diff changeset	2005	!
7e98cc0c92b7 can now specify if menu action is to be performed by ca parents: 2331 diff changeset	2006
1750 f9e5700bd99a compatibility stuff Claus Gittinger <cg@exept.de> parents: 1737 diff changeset	2007	startUpOrNil
f9e5700bd99a compatibility stuff Claus Gittinger <cg@exept.de> parents: 1737 diff changeset	2008	"realize the menu at the current pointer position
1836 89a1b938c09e fixed returned value from non-performing menu Claus Gittinger <cg@exept.de> parents: 1832 diff changeset	2009	return the value of the selectedItem or nil, of none was selected
89a1b938c09e fixed returned value from non-performing menu Claus Gittinger <cg@exept.de> parents: 1832 diff changeset	2010	(unless the menu has already performed its action, by sending an appropriate message
89a1b938c09e fixed returned value from non-performing menu Claus Gittinger <cg@exept.de> parents: 1832 diff changeset	2011	to some performer)
1750 f9e5700bd99a compatibility stuff Claus Gittinger <cg@exept.de> parents: 1737 diff changeset	2012	"
f9e5700bd99a compatibility stuff Claus Gittinger <cg@exept.de> parents: 1737 diff changeset	2013	^ self showAtPointer
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2014	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	2015
dce33f8bb806 intitial checkin ca parents: diff changeset	2016	!MenuPanel methodsFor:'adding & removing'!
dce33f8bb806 intitial checkin ca parents: diff changeset	2017
dce33f8bb806 intitial checkin ca parents: diff changeset	2018	createAtIndex:anIndexOrNil
1800 600f247a2846 comment Claus Gittinger <cg@exept.de> parents: 1799 diff changeset	2019	"create an item and add this item to the index. In case of nil, the item
600f247a2846 comment Claus Gittinger <cg@exept.de> parents: 1799 diff changeset	2020	is added to the end. If the index is not valid nil is returned;
600f247a2846 comment Claus Gittinger <cg@exept.de> parents: 1799 diff changeset	2021	otherwise the new created item is returned.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2022	"
dce33f8bb806 intitial checkin ca parents: diff changeset	2023	\|max item\|
dce33f8bb806 intitial checkin ca parents: diff changeset	2024
dce33f8bb806 intitial checkin ca parents: diff changeset	2025	max := (items size) + 1.
dce33f8bb806 intitial checkin ca parents: diff changeset	2026
dce33f8bb806 intitial checkin ca parents: diff changeset	2027	anIndexOrNil notNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	2028	(anIndexOrNil < 1 or:[anIndexOrNil > max]) ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	2029	^ nil
93426020ceed * empty log message * ca parents: 2216 diff changeset	2030	]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2031	].
dce33f8bb806 intitial checkin ca parents: diff changeset	2032	items isNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	2033	items := OrderedCollection new
1151 199863d6a463 items: convert Array to OrderedCollection Claus Gittinger <cg@exept.de> parents: 1137 diff changeset	2034	] ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	2035	items := items asOrderedCollection
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2036	].
dce33f8bb806 intitial checkin ca parents: diff changeset	2037	item := Item in:self.
dce33f8bb806 intitial checkin ca parents: diff changeset	2038
dce33f8bb806 intitial checkin ca parents: diff changeset	2039	(anIndexOrNil isNil or:[anIndexOrNil == max]) ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	2040	items add:item
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2041	] ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	2042	items add:item beforeIndex:anIndexOrNil
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2043	].
dce33f8bb806 intitial checkin ca parents: diff changeset	2044	^ item
dce33f8bb806 intitial checkin ca parents: diff changeset	2045	!
dce33f8bb806 intitial checkin ca parents: diff changeset	2046
dce33f8bb806 intitial checkin ca parents: diff changeset	2047	remove:stringOrNumber
dce33f8bb806 intitial checkin ca parents: diff changeset	2048	"remove the first item which is assigned to stringOrNumber;
dce33f8bb806 intitial checkin ca parents: diff changeset	2049	if found, remove and return it
dce33f8bb806 intitial checkin ca parents: diff changeset	2050	"
dce33f8bb806 intitial checkin ca parents: diff changeset	2051	\|item\|
dce33f8bb806 intitial checkin ca parents: diff changeset	2052
dce33f8bb806 intitial checkin ca parents: diff changeset	2053	(item := self itemAt:stringOrNumber) notNil ifTrue:[
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	2054	items remove:item.
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	2055	item destroy.
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	2056	items isEmpty ifTrue:[items := nil].
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	2057	self mustRearrange.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2058	].
dce33f8bb806 intitial checkin ca parents: diff changeset	2059	^ item
dce33f8bb806 intitial checkin ca parents: diff changeset	2060	!
dce33f8bb806 intitial checkin ca parents: diff changeset	2061
dce33f8bb806 intitial checkin ca parents: diff changeset	2062	removeAll
dce33f8bb806 intitial checkin ca parents: diff changeset	2063	"remove all items and submenus
dce33f8bb806 intitial checkin ca parents: diff changeset	2064	"
dce33f8bb806 intitial checkin ca parents: diff changeset	2065	self disabledRedrawDo:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	2066	self selection:nil.
93426020ceed * empty log message * ca parents: 2216 diff changeset	2067	groupSizes := nil.
93426020ceed * empty log message * ca parents: 2216 diff changeset	2068	items notNil ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	2069	items copy do:[:el\| el destroy ].
93426020ceed * empty log message * ca parents: 2216 diff changeset	2070	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	2071	items := nil
2050 ef5517d7a2d0 do not destroy myself after accepting (for PopUpList) Claus Gittinger <cg@exept.de> parents: 2048 diff changeset	2072	].
ef5517d7a2d0 do not destroy myself after accepting (for PopUpList) Claus Gittinger <cg@exept.de> parents: 2048 diff changeset	2073
ef5517d7a2d0 do not destroy myself after accepting (for PopUpList) Claus Gittinger <cg@exept.de> parents: 2048 diff changeset	2074	"Modified: / 15.11.2001 / 17:02:51 / cg"
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2075	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	2076
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2077	!MenuPanel methodsFor:'change & update'!
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2078
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2079	update:something with:aParameter from:changedObject
498 b4c341497621 bug fixes: ca parents: 475 diff changeset	2080
b4c341497621 bug fixes: ca parents: 475 diff changeset	2081	changedObject == menuHolder ifTrue:[^ self menu:(menuHolder value)].
b4c341497621 bug fixes: ca parents: 475 diff changeset	2082	changedObject == enableChannel ifTrue:[^ self enabled:(enableChannel value)].
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2083
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2084	super update:something with:aParameter from:changedObject
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2085	! !
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2086
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2087	!MenuPanel methodsFor:'converting'!
dce33f8bb806 intitial checkin ca parents: diff changeset	2088
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2089	asMenu
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2090	"convert contents to menu
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2091	"
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2092	\|menu\|
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2093
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2094	menu := Menu new.
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2095	menu groupSizes:groupSizes.
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2096	self do:[:anItem\| menu addItem:(anItem asMenuItem) ].
2059 c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	2097	^ menu
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2098	!
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2099
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2100	fromSpec:aMenuSpec
dce33f8bb806 intitial checkin ca parents: diff changeset	2101	"build from spec
dce33f8bb806 intitial checkin ca parents: diff changeset	2102	"
dce33f8bb806 intitial checkin ca parents: diff changeset	2103	\|menu\|
dce33f8bb806 intitial checkin ca parents: diff changeset	2104
dce33f8bb806 intitial checkin ca parents: diff changeset	2105	menu := Menu new.
dce33f8bb806 intitial checkin ca parents: diff changeset	2106	menu fromLiteralArrayEncoding:aMenuSpec.
dce33f8bb806 intitial checkin ca parents: diff changeset	2107	self menu:menu
dce33f8bb806 intitial checkin ca parents: diff changeset	2108
dce33f8bb806 intitial checkin ca parents: diff changeset	2109	!
dce33f8bb806 intitial checkin ca parents: diff changeset	2110
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2111	menu:aMenu
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2112	"convert to Menu
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2113	"
dce33f8bb806 intitial checkin ca parents: diff changeset	2114	self disabledRedrawDo:[
2232 5784671fb497 when searching for a sumbenus application, do NOT Claus Gittinger <cg@exept.de> parents: 2231 diff changeset	2115	\|menu newItems menuReceiver\|
5784671fb497 when searching for a sumbenus application, do NOT Claus Gittinger <cg@exept.de> parents: 2231 diff changeset	2116
5784671fb497 when searching for a sumbenus application, do NOT Claus Gittinger <cg@exept.de> parents: 2231 diff changeset	2117	self removeAll.
5784671fb497 when searching for a sumbenus application, do NOT Claus Gittinger <cg@exept.de> parents: 2231 diff changeset	2118
5784671fb497 when searching for a sumbenus application, do NOT Claus Gittinger <cg@exept.de> parents: 2231 diff changeset	2119	(menu := aMenu) notNil ifTrue:[
5784671fb497 when searching for a sumbenus application, do NOT Claus Gittinger <cg@exept.de> parents: 2231 diff changeset	2120	(aMenu isCollection) ifTrue:[
5784671fb497 when searching for a sumbenus application, do NOT Claus Gittinger <cg@exept.de> parents: 2231 diff changeset	2121	menu := Menu new.
5784671fb497 when searching for a sumbenus application, do NOT Claus Gittinger <cg@exept.de> parents: 2231 diff changeset	2122	menu fromLiteralArrayEncoding:aMenu.
5784671fb497 when searching for a sumbenus application, do NOT Claus Gittinger <cg@exept.de> parents: 2231 diff changeset	2123	] ifFalse:[
5784671fb497 when searching for a sumbenus application, do NOT Claus Gittinger <cg@exept.de> parents: 2231 diff changeset	2124	menuReceiver := menu receiver.
5784671fb497 when searching for a sumbenus application, do NOT Claus Gittinger <cg@exept.de> parents: 2231 diff changeset	2125	menuReceiver notNil ifTrue:[
5784671fb497 when searching for a sumbenus application, do NOT Claus Gittinger <cg@exept.de> parents: 2231 diff changeset	2126	receiver := menuReceiver.
5784671fb497 when searching for a sumbenus application, do NOT Claus Gittinger <cg@exept.de> parents: 2231 diff changeset	2127	]
5784671fb497 when searching for a sumbenus application, do NOT Claus Gittinger <cg@exept.de> parents: 2231 diff changeset	2128	].
5784671fb497 when searching for a sumbenus application, do NOT Claus Gittinger <cg@exept.de> parents: 2231 diff changeset	2129	(newItems := menu menuItems) size > 0 ifTrue:[
5784671fb497 when searching for a sumbenus application, do NOT Claus Gittinger <cg@exept.de> parents: 2231 diff changeset	2130	items := newItems collect:[:ni \|
5784671fb497 when searching for a sumbenus application, do NOT Claus Gittinger <cg@exept.de> parents: 2231 diff changeset	2131	\|i\|
5784671fb497 when searching for a sumbenus application, do NOT Claus Gittinger <cg@exept.de> parents: 2231 diff changeset	2132
5784671fb497 when searching for a sumbenus application, do NOT Claus Gittinger <cg@exept.de> parents: 2231 diff changeset	2133	i:= Item in:self.
5784671fb497 when searching for a sumbenus application, do NOT Claus Gittinger <cg@exept.de> parents: 2231 diff changeset	2134	i menuItem:ni.
5784671fb497 when searching for a sumbenus application, do NOT Claus Gittinger <cg@exept.de> parents: 2231 diff changeset	2135	i.
5784671fb497 when searching for a sumbenus application, do NOT Claus Gittinger <cg@exept.de> parents: 2231 diff changeset	2136	].
5784671fb497 when searching for a sumbenus application, do NOT Claus Gittinger <cg@exept.de> parents: 2231 diff changeset	2137	].
5784671fb497 when searching for a sumbenus application, do NOT Claus Gittinger <cg@exept.de> parents: 2231 diff changeset	2138	self groupSizes:(menu groupSizes).
5784671fb497 when searching for a sumbenus application, do NOT Claus Gittinger <cg@exept.de> parents: 2231 diff changeset	2139	]
1063 08b7ca464437 dont show accelerators for horizontal layouts Claus Gittinger <cg@exept.de> parents: 1054 diff changeset	2140	]
08b7ca464437 dont show accelerators for horizontal layouts Claus Gittinger <cg@exept.de> parents: 1054 diff changeset	2141
08b7ca464437 dont show accelerators for horizontal layouts Claus Gittinger <cg@exept.de> parents: 1054 diff changeset	2142	"Modified: / 8.8.1998 / 02:05:04 / cg"
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2143	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	2144
dce33f8bb806 intitial checkin ca parents: diff changeset	2145	!MenuPanel methodsFor:'drawing'!
dce33f8bb806 intitial checkin ca parents: diff changeset	2146
dce33f8bb806 intitial checkin ca parents: diff changeset	2147	disabledRedrawDo:aBlock
dce33f8bb806 intitial checkin ca parents: diff changeset	2148	"evaluate a block without redrawing within the block; after processing
dce33f8bb806 intitial checkin ca parents: diff changeset	2149	of the block a redraw might be performed
dce33f8bb806 intitial checkin ca parents: diff changeset	2150	"
dce33f8bb806 intitial checkin ca parents: diff changeset	2151	\|state\|
dce33f8bb806 intitial checkin ca parents: diff changeset	2152
dce33f8bb806 intitial checkin ca parents: diff changeset	2153	state := mustRearrange.
dce33f8bb806 intitial checkin ca parents: diff changeset	2154	mustRearrange := true.
dce33f8bb806 intitial checkin ca parents: diff changeset	2155	aBlock value.
dce33f8bb806 intitial checkin ca parents: diff changeset	2156	mustRearrange := state.
dce33f8bb806 intitial checkin ca parents: diff changeset	2157	self mustRearrange
dce33f8bb806 intitial checkin ca parents: diff changeset	2158	!
dce33f8bb806 intitial checkin ca parents: diff changeset	2159
1690 38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2160	drawButtonEdgesFor:anItem level:aLevel
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2161	\|layout\|
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2162
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2163	aLevel ~~ 0 ifTrue:[
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2164	layout := anItem layout.
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2165
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2166	styleSheet is3D ifFalse:[
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2167	self displayRectangle:layout.
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2168	] ifTrue:[
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2169	self drawEdgesForX:(layout left)
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2170	y:(layout top)
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2171	width:(layout width)
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2172	height:(layout height)
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2173	level:aLevel
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	2174	shadow:(self buttonShadowColor)
93426020ceed * empty log message * ca parents: 2216 diff changeset	2175	light:(self buttonLightColor)
93426020ceed * empty log message * ca parents: 2216 diff changeset	2176	halfShadow:(self buttonHalfShadowColor)
93426020ceed * empty log message * ca parents: 2216 diff changeset	2177	halfLight:(self buttonHalfLightColor)
93426020ceed * empty log message * ca parents: 2216 diff changeset	2178	style:(self buttonEdgeStyle)
1690 38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2179	]
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2180	]
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2181	!
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2182
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2183	drawItemsX:x y:y width:w height:h
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2184	"redraw items and groups in a damage
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2185	"
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2186	\|isVertical item layout prevClip
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2187	x1 "{ Class:SmallInteger }"
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2188	x2 "{ Class:SmallInteger }"
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2189	y1 "{ Class:SmallInteger }"
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2190	y2 "{ Class:SmallInteger }"
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2191	start "{ Class:SmallInteger }"
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2192	stop "{ Class:SmallInteger }"
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2193	size "{ Class:SmallInteger }"
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2194	groupDivInset "{ Class:SmallInteger }"
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2195	\|
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2196
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2197	size := items size.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2198	isVertical := self verticalLayout.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2199
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2200	isVertical ifTrue:[
2064 0e0d1fe431fb checkin from browser Claus Gittinger <cg@exept.de> parents: 2063 diff changeset	2201	start := items findFirst:[:el\| \|l\| l := el layout. l notNil and:[l bottom > y]].
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2202	start == 0 ifTrue:[ ^ self ].
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2203	y1 := y + h.
2064 0e0d1fe431fb checkin from browser Claus Gittinger <cg@exept.de> parents: 2063 diff changeset	2204	stop := items findFirst:[:el\| \|l\| l := el layout. l notNil and:[l top > y1] ]
0e0d1fe431fb checkin from browser Claus Gittinger <cg@exept.de> parents: 2063 diff changeset	2205	startingAt:(start + 1).
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2206	] ifFalse:[
2064 0e0d1fe431fb checkin from browser Claus Gittinger <cg@exept.de> parents: 2063 diff changeset	2207	start := items findFirst:[:el\| \|l\| l := el layout. l notNil and:[l right > x ]].
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2208	start == 0 ifTrue:[ ^ self ].
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2209	x1 := x + w.
2064 0e0d1fe431fb checkin from browser Claus Gittinger <cg@exept.de> parents: 2063 diff changeset	2210	stop := items findFirst:[:el\| \|l\| l := el layout.l notNil and:[l left > x1]]
0e0d1fe431fb checkin from browser Claus Gittinger <cg@exept.de> parents: 2063 diff changeset	2211	startingAt:(start + 1).
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2212	].
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2213	stop == 0 ifTrue:[stop := size] ifFalse:[stop := stop - 1].
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2214
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	2215	(groupSizes size ~~ 0 and:[showGroupDivider]) ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	2216	groupDivInset := self groupDividerSize // 2.
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2217
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2218	groupDivInset ~~ 0 ifTrue:[
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2219	(start ~~ 1 and:[self hasGroupDividerAt:(start-1)]) ifTrue:[
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2220	start := start - 1
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2221	]
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2222	].
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2223	] ifFalse:[
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2224	groupDivInset := 0
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2225	].
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2226
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2227	prevClip := clipRect.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2228	self clippingRectangle:(Rectangle left:x top:y width:w height:h).
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2229
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2230	start to:stop do:[:i\|
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2231	item := items at:i.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2232	item redraw.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2233
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2234	(groupDivInset ~~ 0 and:[i ~~ size and:[self hasGroupDividerAt:i]]) ifTrue:[
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2235	layout := item layout.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2236
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2237	isVertical ifTrue:[
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2238	x1 := layout left.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2239	x2 := layout right.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2240	y1 := layout bottom + groupDivInset.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2241	y2 := y1.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2242	] ifFalse:[
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2243	y1 := layout top.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2244	y2 := layout bottom.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2245	x1 := layout right + groupDivInset.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2246	x2 := x1.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2247	].
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2248	self paint:shadowColor.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2249	self displayLineFromX:x1 y:y1 toX:x2 y:y2.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2250	self paint:lightColor.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2251
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2252	isVertical ifTrue:[y1 := y1 + 1. y2 := y1 ]
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2253	ifFalse:[x1 := x1 + 1. x2 := x1 ].
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2254
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2255	self displayLineFromX:x1 y:y1 toX:x2 y:y2
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2256	]
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2257	].
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2258	self clippingRectangle:prevClip.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2259	!
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2260
1690 38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2261	drawLabelEdgeFor:anItem selected:isSelected
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2262	\|level layout\|
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2263
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2264	isSelected ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	2265	level := styleSheet at:#'menu.hilightLevel' default:0.
1690 38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2266	] ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	2267	anItem == enteredItem ifTrue:[ level := self enteredLevel ]
93426020ceed * empty log message * ca parents: 2216 diff changeset	2268	ifFalse:[ level := 0 ]
1690 38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2269	].
1081 fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	2270
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	2271	level ~~ 0 ifTrue:[
1690 38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2272	layout := anItem layout.
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2273
1691 8e1a9d7a298e bugfix in drawLableEdge... ca parents: 1690 diff changeset	2274	self drawEdgesForX:(layout left)
8e1a9d7a298e bugfix in drawLableEdge... ca parents: 1690 diff changeset	2275	y:(layout top)
8e1a9d7a298e bugfix in drawLableEdge... ca parents: 1690 diff changeset	2276	width:(layout width)
8e1a9d7a298e bugfix in drawLableEdge... ca parents: 1690 diff changeset	2277	height:(layout height)
1690 38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2278	level:level
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2279	].
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2280	!
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2281
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2282	drawScrollerAt:aDirection bounds:bounds
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2283	"draw a scroller
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2284	"
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2285	\|scrolling icon level x y w h\|
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2286
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2287	x := bounds left.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2288	y := bounds top.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2289	w := bounds width.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2290	h := bounds height.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2291
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	2292	scrolling := self scrollActivity.
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2293
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2294	(scrolling activeMenu == self and:[scrolling direction == aDirection]) ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	2295	level := -2
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2296	] ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	2297	level := 1
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2298	].
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2299
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2300	level ~~ 0 ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	2301	self drawEdgesForX:x y:y width:w height:h level:level.
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2302	].
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2303	icon := scrolling iconAt:aDirection on:self.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2304
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2305	icon displayOn:self x:(x + (w - icon width // 2))
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	2306	y:(y + (h - icon height // 2)).
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2307	!
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2308
1690 38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2309	invalidateItem:anItem repairNow:aBool
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2310	"an item changed; invalidate the items layout
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2311	"
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2312	\|layout\|
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2313
2073 26c30a04413d do not invalidate if sensor is nil Claus Gittinger <cg@exept.de> parents: 2069 diff changeset	2314	self sensor isNil ifTrue:[^ self].
26c30a04413d do not invalidate if sensor is nil Claus Gittinger <cg@exept.de> parents: 2069 diff changeset	2315
1690 38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2316	(mustRearrange not and:[shown]) ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	2317	layout := anItem layout.
93426020ceed * empty log message * ca parents: 2216 diff changeset	2318
93426020ceed * empty log message * ca parents: 2216 diff changeset	2319	(layout bottom > margin and:[layout top < (height - margin)]) ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	2320	self invalidate:(layout copy insetBy:-1) repairNow:aBool
93426020ceed * empty log message * ca parents: 2216 diff changeset	2321	]
1728 fc0bd6482feb kludge redraw bug fix Claus Gittinger <cg@exept.de> parents: 1727 diff changeset	2322	].
fc0bd6482feb kludge redraw bug fix Claus Gittinger <cg@exept.de> parents: 1727 diff changeset	2323
fc0bd6482feb kludge redraw bug fix Claus Gittinger <cg@exept.de> parents: 1727 diff changeset	2324	"Modified: / 29.2.2000 / 11:28:59 / cg"
746 bd252bbe276f better drawing routine for button behavior tz parents: 739 diff changeset	2325	!
bd252bbe276f better drawing routine for button behavior tz parents: 739 diff changeset	2326
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2327	mustRearrange
910 5c9592e782fd always repairNow (to make change visible immediately) Claus Gittinger <cg@exept.de> parents: 898 diff changeset	2328	"force rearrange (i.e. set the rearrange flag)
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2329	"
2080 f37673e44158 Fix rearrangeItem stuff Stefan Vogel <sv@exept.de> parents: 2079 diff changeset	2330	mustRearrange ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	2331	mustRearrange := true.
93426020ceed * empty log message * ca parents: 2216 diff changeset	2332	shown ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	2333	self invalidate "/ RepairNow:true
93426020ceed * empty log message * ca parents: 2216 diff changeset	2334	]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2335	]
590 3177528b5f95 checkin from browser Claus Gittinger <cg@exept.de> parents: 587 diff changeset	2336
911 6b1ad8b039c5 no, repairNow should not be needed here Claus Gittinger <cg@exept.de> parents: 910 diff changeset	2337	"Modified: / 6.6.1998 / 19:51:07 / cg"
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2338	!
dce33f8bb806 intitial checkin ca parents: diff changeset	2339
710 4453e463ff16 add new feature: ca parents: 709 diff changeset	2340	rearrangeGroups
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2341	"implements the groupIdentifier #right in a horizontal menu
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2342	"
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2343	\|layout point
710 4453e463ff16 add new feature: ca parents: 709 diff changeset	2344	dltX "{ Class:SmallInteger }"
4453e463ff16 add new feature: ca parents: 709 diff changeset	2345	start "{ Class:SmallInteger }"
4453e463ff16 add new feature: ca parents: 709 diff changeset	2346	\|
4453e463ff16 add new feature: ca parents: 709 diff changeset	2347
4453e463ff16 add new feature: ca parents: 709 diff changeset	2348	(self isPopUpView or:[self verticalLayout]) ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	2349	^ self
710 4453e463ff16 add new feature: ca parents: 709 diff changeset	2350	].
4453e463ff16 add new feature: ca parents: 709 diff changeset	2351
4453e463ff16 add new feature: ca parents: 709 diff changeset	2352	layout := items last layout.
4453e463ff16 add new feature: ca parents: 709 diff changeset	2353
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2354	(dltX := width - margin - layout right) <= 0 ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	2355	^ self "/ no free space
710 4453e463ff16 add new feature: ca parents: 709 diff changeset	2356	].
4453e463ff16 add new feature: ca parents: 709 diff changeset	2357	start := items findFirst:[:anItem\| anItem startGroup == #right ].
4453e463ff16 add new feature: ca parents: 709 diff changeset	2358
4453e463ff16 add new feature: ca parents: 709 diff changeset	2359	start == 0 ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	2360	^ self "/ no item detected
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2361	].
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2362	point := dltX @ 0.
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2363
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2364	"/ move items layout to right
710 4453e463ff16 add new feature: ca parents: 709 diff changeset	2365
4453e463ff16 add new feature: ca parents: 709 diff changeset	2366	items from:start do:[:anItem\|
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	2367	anItem isVisible ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	2368	anItem layout moveBy:point.
93426020ceed * empty log message * ca parents: 2216 diff changeset	2369	]
710 4453e463ff16 add new feature: ca parents: 709 diff changeset	2370	].
4453e463ff16 add new feature: ca parents: 709 diff changeset	2371	!
4453e463ff16 add new feature: ca parents: 709 diff changeset	2372
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2373	rearrangeItems
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2374	"recompute the layout of each item
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2375	!!!!!! changes have influence on method #preferredExtentOfItems !!!!!!
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2376	"
1791 bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	2377	\|isVertical extent isPopUpMenu
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	2378	x "{ Class:SmallInteger }"
93426020ceed * empty log message * ca parents: 2216 diff changeset	2379	y "{ Class:SmallInteger }"
93426020ceed * empty log message * ca parents: 2216 diff changeset	2380	x0 "{ Class:SmallInteger }"
93426020ceed * empty log message * ca parents: 2216 diff changeset	2381	y0 "{ Class:SmallInteger }"
93426020ceed * empty log message * ca parents: 2216 diff changeset	2382	x1 "{ Class:SmallInteger }"
93426020ceed * empty log message * ca parents: 2216 diff changeset	2383	y1 "{ Class:SmallInteger }"
93426020ceed * empty log message * ca parents: 2216 diff changeset	2384	size "{ Class:SmallInteger }"
93426020ceed * empty log message * ca parents: 2216 diff changeset	2385	insetX "{ Class:SmallInteger }"
93426020ceed * empty log message * ca parents: 2216 diff changeset	2386	insetY "{ Class:SmallInteger }"
93426020ceed * empty log message * ca parents: 2216 diff changeset	2387	labelInsetX "{ Class:SmallInteger }"
93426020ceed * empty log message * ca parents: 2216 diff changeset	2388	labelInsetY "{ Class:SmallInteger }"
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	2389	buttonInsetX "{ Class:SmallInteger }"
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	2390	buttonInsetY "{ Class:SmallInteger }"
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	2391	itemMargin "{ Class:SmallInteger }"
93426020ceed * empty log message * ca parents: 2216 diff changeset	2392	itemSpace "{ Class:SmallInteger }"
93426020ceed * empty log message * ca parents: 2216 diff changeset	2393	groupDividerSize "{ Class:SmallInteger }"
710 4453e463ff16 add new feature: ca parents: 709 diff changeset	2394	\|
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2395	(mustRearrange and:[(size := items size) ~~ 0]) ifFalse:[
1478 38f08dec8e34 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	2396	mustRearrange := false.
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2397	^ self
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2398	].
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	2399
2080 f37673e44158 Fix rearrangeItem stuff Stefan Vogel <sv@exept.de> parents: 2079 diff changeset	2400	"/ DON'T SET THIS!!
f37673e44158 Fix rearrangeItem stuff Stefan Vogel <sv@exept.de> parents: 2079 diff changeset	2401	"/ item layout: below of first item -> item invalidate
f37673e44158 Fix rearrangeItem stuff Stefan Vogel <sv@exept.de> parents: 2079 diff changeset	2402	"/ -> menuPanel invalidateItem:repairDamage:
f37673e44158 Fix rearrangeItem stuff Stefan Vogel <sv@exept.de> parents: 2079 diff changeset	2403	"/ -> invalidate:rapairDamage:
f37673e44158 Fix rearrangeItem stuff Stefan Vogel <sv@exept.de> parents: 2079 diff changeset	2404	"/ -> redrawX:y:width:height:
f37673e44158 Fix rearrangeItem stuff Stefan Vogel <sv@exept.de> parents: 2079 diff changeset	2405	"/ tries to get uninitialized layout from second item.
f37673e44158 Fix rearrangeItem stuff Stefan Vogel <sv@exept.de> parents: 2079 diff changeset	2406	"/ This happens in a modal debugger!!
f37673e44158 Fix rearrangeItem stuff Stefan Vogel <sv@exept.de> parents: 2079 diff changeset	2407	"/ mustRearrange := false.
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	2408	isVertical := self verticalLayout.
93426020ceed * empty log message * ca parents: 2216 diff changeset	2409	itemSpace := self itemSpace.
93426020ceed * empty log message * ca parents: 2216 diff changeset	2410	groupDividerSize := self groupDividerSize.
93426020ceed * empty log message * ca parents: 2216 diff changeset	2411	buttonInsetX := self buttonInsetX.
93426020ceed * empty log message * ca parents: 2216 diff changeset	2412	buttonInsetY := self buttonInsetY.
93426020ceed * empty log message * ca parents: 2216 diff changeset	2413	isPopUpMenu := self isPopUpView.
1791 bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	2414
bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	2415	isPopUpMenu ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	2416	labelInsetX := labelInsetY := self enteredLevel abs.
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2417	] ifTrue:[
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	2418	labelInsetX := labelInsetY := 0
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2419	].
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2420
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2421	(isPopUpMenu or:[explicitExtent ~~ true]) ifTrue:[ \|savExt maxExt\|
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2422	savExt := extent := self preferredExtent copy.
1478 38f08dec8e34 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	2423
1791 bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	2424	isPopUpMenu ifFalse:[
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2425	isVertical ifTrue:[extent y:1.0] ifFalse:[extent x:1.0]
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2426	] ifTrue:[
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2427	savExt := extent copy.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2428	maxExt := self maxExtent.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2429
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2430	isVertical ifTrue:[
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2431	extent y:(extent y min:(maxExt y))
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2432	] ifFalse:[
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2433	extent x:(extent x min:(maxExt x))
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2434	]
1478 38f08dec8e34 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	2435	].
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2436	self extent:extent.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2437	extent := savExt.
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2438	] ifFalse:[
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2439	extent := self computeExtent
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2440	].
1082 382324ddce3f support and additional buttonSpacing (for normal and win95 styles) Claus Gittinger <cg@exept.de> parents: 1081 diff changeset	2441
1093 7cb44303b016 margin fixes Claus Gittinger <cg@exept.de> parents: 1090 diff changeset	2442	x := y := margin.
7cb44303b016 margin fixes Claus Gittinger <cg@exept.de> parents: 1090 diff changeset	2443
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2444	isVertical ifFalse:[
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2445	y0 := margin.
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2446	y1 := extent y - margin.
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2447
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2448	items keysAndValuesDo:[:anIndex :el\|
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2449	el isVisible ifFalse:[
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2450	el layout:(Rectangle left:x top:y0 right:x bottom:y1)
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2451	] ifTrue:[
1478 38f08dec8e34 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	2452	el isButton ifTrue:[
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	2453	insetX := buttonInsetX.
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	2454	insetY := buttonInsetY.
2062 31ba9af25394 checkin from browser Claus Gittinger <cg@exept.de> parents: 2061 diff changeset	2455	] ifFalse:[
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	2456	insetX := labelInsetX.
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	2457	insetY := labelInsetY.
1478 38f08dec8e34 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	2458	].
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	2459	x0 := x + insetX.
2171 90a7393eb53c * empty log message * Claus Gittinger <cg@exept.de> parents: 2170 diff changeset	2460	x1 := x0 + (el preferredExtent x).
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	2461	el layout:(Rectangle left:x0 top:(y0 + insetY) right:x1 bottom:(y1 - insetY)).
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	2462	x := x1 + insetX.
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2463
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2464	size ~~ anIndex ifTrue:[
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2465	(self hasGroupDividerAt:anIndex) ifTrue:[
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2466	x := x + groupDividerSize
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2467	] ifFalse:[
1723 f633725a0ace use itemSpace only for horizontal menus and between labeled items ca parents: 1719 diff changeset	2468	el isLabeledItem ifTrue:[
f633725a0ace use itemSpace only for horizontal menus and between labeled items ca parents: 1719 diff changeset	2469	x := x + itemSpace
f633725a0ace use itemSpace only for horizontal menus and between labeled items ca parents: 1719 diff changeset	2470	]
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2471	]
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2472	]
1478 38f08dec8e34 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	2473	].
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2474	].
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2475	] ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	2476	itemMargin := self itemMargin.
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2477	x0 := margin.
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	2478	x1 := extent x - margin - itemMargin. "/ -1
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2479
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2480	items keysAndValuesDo:[:anIndex :el\|
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2481	el isVisible ifFalse:[
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2482	el layout:(Rectangle left:x0 top:y right:x1 bottom:y)
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2483	] ifTrue:[
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2484	el isButton ifTrue:[
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	2485	insetX := buttonInsetX.
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	2486	insetY := buttonInsetY.
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2487	] ifFalse:[
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	2488	insetX := labelInsetX.
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	2489	insetY := labelInsetY.
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2490	].
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	2491	y0 := y + insetY.
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2492	y1 := y0 + el preferredExtent y.
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	2493	el layout:(Rectangle left:(x0 + insetX + itemMargin) top:y0 right:(x1 - insetX) bottom:y1).
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	2494	y := y1 + insetY.
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2495
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2496	size ~~ anIndex ifTrue:[
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2497	(self hasGroupDividerAt:anIndex) ifTrue:[
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2498	y := y + groupDividerSize
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2499	]
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2500	]
1478 38f08dec8e34 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	2501	]
38f08dec8e34 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	2502	]
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2503	].
710 4453e463ff16 add new feature: ca parents: 709 diff changeset	2504	self rearrangeGroups.
2048 ba472f3f46c7 code cleanup Claus Gittinger <cg@exept.de> parents: 2047 diff changeset	2505	selection notNil ifTrue:[self makeItemVisible:selection].
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2506	mustRearrange := false.
2048 ba472f3f46c7 code cleanup Claus Gittinger <cg@exept.de> parents: 2047 diff changeset	2507
ba472f3f46c7 code cleanup Claus Gittinger <cg@exept.de> parents: 2047 diff changeset	2508	"Modified: / 13.11.2001 / 20:17:21 / cg"
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2509	!
dce33f8bb806 intitial checkin ca parents: diff changeset	2510
1217 c6a4c536aa8c care for items which change visibility via Claus Gittinger <cg@exept.de> parents: 1212 diff changeset	2511	rearrangeItemsIfItemVisibilityChanged
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2512	"check for items which can change its visibility;
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2513	if at least one item exists, rearrange all items
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2514	"
1464 3070de4c8b88 checkin from browser Claus Gittinger <cg@exept.de> parents: 1459 diff changeset	2515	items isNil ifTrue:[^ self].
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2516
1217 c6a4c536aa8c care for items which change visibility via Claus Gittinger <cg@exept.de> parents: 1212 diff changeset	2517	items do:[:item \|
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	2518	item canChangeVisibility ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	2519	mustRearrange := true.
93426020ceed * empty log message * ca parents: 2216 diff changeset	2520	self rearrangeItems.
93426020ceed * empty log message * ca parents: 2216 diff changeset	2521	^ self
93426020ceed * empty log message * ca parents: 2216 diff changeset	2522	].
1217 c6a4c536aa8c care for items which change visibility via Claus Gittinger <cg@exept.de> parents: 1212 diff changeset	2523	]
c6a4c536aa8c care for items which change visibility via Claus Gittinger <cg@exept.de> parents: 1212 diff changeset	2524	!
c6a4c536aa8c care for items which change visibility via Claus Gittinger <cg@exept.de> parents: 1212 diff changeset	2525
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2526	redrawX:x y:y width:w height:h
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2527	"redraw a damage
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2528	"
2052 61367c7a47aa * empty log message * Claus Gittinger <cg@exept.de> parents: 2051 diff changeset	2529	\|y0 y1 x0 x1 bounds mustDrawPrevScroller mustDrawNextScroller\|
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2530
710 4453e463ff16 add new feature: ca parents: 709 diff changeset	2531	(shown and:[w ~~ 0]) ifFalse:[^ self].
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2532
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2533	mustRearrange ifTrue:[
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2534	self isPopUpView not ifTrue:[explicitExtent := true].
1387 ad7a920fdf61 less flicker by using a clipRect in redraw Claus Gittinger <cg@exept.de> parents: 1382 diff changeset	2535	self rearrangeItems.
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2536	^ self invalidate
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2537	].
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	2538	self paint:(self viewBackground).
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2539	self clearRectangleX:x y:y width:w height:h.
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2540
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2541	items size == 0 ifTrue:[
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2542	^ self
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2543	].
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2544	y0 := y.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2545	y1 := y + h.
2018 2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	2546	x0 := x.
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	2547	x1 := x + w.
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2548
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2549	self hasScrollers ifTrue:[
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2550	(self hasScrollerAt:#PREV) ifTrue:[
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2551	bounds := self scrollerBoundsAt:#PREV.
2052 61367c7a47aa * empty log message * Claus Gittinger <cg@exept.de> parents: 2051 diff changeset	2552	mustDrawPrevScroller := false.
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2553
2018 2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	2554	self verticalLayout ifTrue:[
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	2555	bounds bottom > y ifTrue:[
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	2556	y0 := bounds bottom.
2052 61367c7a47aa * empty log message * Claus Gittinger <cg@exept.de> parents: 2051 diff changeset	2557	mustDrawPrevScroller := true.
2018 2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	2558	].
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	2559	] ifFalse:[
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	2560	bounds right > x ifTrue:[
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	2561	x0 := bounds right.
2052 61367c7a47aa * empty log message * Claus Gittinger <cg@exept.de> parents: 2051 diff changeset	2562	mustDrawPrevScroller := true.
2018 2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	2563	].
2052 61367c7a47aa * empty log message * Claus Gittinger <cg@exept.de> parents: 2051 diff changeset	2564	].
61367c7a47aa * empty log message * Claus Gittinger <cg@exept.de> parents: 2051 diff changeset	2565	mustDrawPrevScroller ifTrue:[
61367c7a47aa * empty log message * Claus Gittinger <cg@exept.de> parents: 2051 diff changeset	2566	self drawScrollerAt:#PREV bounds:bounds.
61367c7a47aa * empty log message * Claus Gittinger <cg@exept.de> parents: 2051 diff changeset	2567	].
1387 ad7a920fdf61 less flicker by using a clipRect in redraw Claus Gittinger <cg@exept.de> parents: 1382 diff changeset	2568	].
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2569
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2570	(self hasScrollerAt:#NEXT) ifTrue:[
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2571	bounds := self scrollerBoundsAt:#NEXT.
2052 61367c7a47aa * empty log message * Claus Gittinger <cg@exept.de> parents: 2051 diff changeset	2572	mustDrawNextScroller := false.
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2573
2018 2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	2574	self verticalLayout ifTrue:[
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	2575	bounds top < y1 ifTrue:[
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	2576	y1 := bounds top.
2052 61367c7a47aa * empty log message * Claus Gittinger <cg@exept.de> parents: 2051 diff changeset	2577	mustDrawNextScroller := true.
2018 2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	2578	]
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	2579	] ifFalse:[
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	2580	bounds left < x1 ifTrue:[
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	2581	x1 := bounds left.
2052 61367c7a47aa * empty log message * Claus Gittinger <cg@exept.de> parents: 2051 diff changeset	2582	mustDrawNextScroller := true.
2018 2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	2583	]
2052 61367c7a47aa * empty log message * Claus Gittinger <cg@exept.de> parents: 2051 diff changeset	2584	].
61367c7a47aa * empty log message * Claus Gittinger <cg@exept.de> parents: 2051 diff changeset	2585	mustDrawNextScroller ifTrue:[
61367c7a47aa * empty log message * Claus Gittinger <cg@exept.de> parents: 2051 diff changeset	2586	self drawScrollerAt:#NEXT bounds:bounds.
61367c7a47aa * empty log message * Claus Gittinger <cg@exept.de> parents: 2051 diff changeset	2587	].
1387 ad7a920fdf61 less flicker by using a clipRect in redraw Claus Gittinger <cg@exept.de> parents: 1382 diff changeset	2588	]
ad7a920fdf61 less flicker by using a clipRect in redraw Claus Gittinger <cg@exept.de> parents: 1382 diff changeset	2589	].
2018 2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	2590	(y1 > y0 and:[x1 > x0]) ifTrue:[
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	2591	self drawItemsX:x0 y:y0 width:(x1 - x0) height:(y1 - y0)
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2592	].
2052 61367c7a47aa * empty log message * Claus Gittinger <cg@exept.de> parents: 2051 diff changeset	2593
61367c7a47aa * empty log message * Claus Gittinger <cg@exept.de> parents: 2051 diff changeset	2594	"Modified: / 15.11.2001 / 20:57:32 / cg"
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2595	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	2596
dce33f8bb806 intitial checkin ca parents: diff changeset	2597	!MenuPanel methodsFor:'enumerting & searching'!
dce33f8bb806 intitial checkin ca parents: diff changeset	2598
dce33f8bb806 intitial checkin ca parents: diff changeset	2599	collect:aOneArgBlock
dce33f8bb806 intitial checkin ca parents: diff changeset	2600	"evaluate the argument, aOneArgBlock for every item in the menuPanel
dce33f8bb806 intitial checkin ca parents: diff changeset	2601	and return a collection of the results
dce33f8bb806 intitial checkin ca parents: diff changeset	2602	"
dce33f8bb806 intitial checkin ca parents: diff changeset	2603	items notNil ifTrue:[^ items collect:aOneArgBlock ].
2059 c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	2604	^ nil
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2605	!
dce33f8bb806 intitial checkin ca parents: diff changeset	2606
dce33f8bb806 intitial checkin ca parents: diff changeset	2607	do:aOneArgBlock
dce33f8bb806 intitial checkin ca parents: diff changeset	2608	"evaluate the argument, aOneArgBlock for every item in the menuPanel.
dce33f8bb806 intitial checkin ca parents: diff changeset	2609	"
dce33f8bb806 intitial checkin ca parents: diff changeset	2610	items notNil ifTrue:[ items do:aOneArgBlock ].
dce33f8bb806 intitial checkin ca parents: diff changeset	2611
dce33f8bb806 intitial checkin ca parents: diff changeset	2612	!
dce33f8bb806 intitial checkin ca parents: diff changeset	2613
dce33f8bb806 intitial checkin ca parents: diff changeset	2614	findFirst:aOneArgBlock
dce33f8bb806 intitial checkin ca parents: diff changeset	2615	"find the first item, for which evaluation of the argument, aOneArgBlock
dce33f8bb806 intitial checkin ca parents: diff changeset	2616	returns true; return its index or 0 if none detected.
dce33f8bb806 intitial checkin ca parents: diff changeset	2617	"
dce33f8bb806 intitial checkin ca parents: diff changeset	2618	items notNil ifTrue:[ ^ items findFirst:aOneArgBlock ].
dce33f8bb806 intitial checkin ca parents: diff changeset	2619	^ 0
dce33f8bb806 intitial checkin ca parents: diff changeset	2620
dce33f8bb806 intitial checkin ca parents: diff changeset	2621	!
dce33f8bb806 intitial checkin ca parents: diff changeset	2622
dce33f8bb806 intitial checkin ca parents: diff changeset	2623	findLast:aOneArgBlock
dce33f8bb806 intitial checkin ca parents: diff changeset	2624	"find the last item, for which evaluation of the argument, aOneArgBlock
dce33f8bb806 intitial checkin ca parents: diff changeset	2625	returns true; return its index or 0 if none detected.
dce33f8bb806 intitial checkin ca parents: diff changeset	2626	"
dce33f8bb806 intitial checkin ca parents: diff changeset	2627	items notNil ifTrue:[ ^ items findLast:aOneArgBlock ].
dce33f8bb806 intitial checkin ca parents: diff changeset	2628	^ 0
dce33f8bb806 intitial checkin ca parents: diff changeset	2629
dce33f8bb806 intitial checkin ca parents: diff changeset	2630	!
dce33f8bb806 intitial checkin ca parents: diff changeset	2631
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2632	indexOf:something
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2633	"returns index of an item assigned to an index, nameKey, textLabel or value if symbol.
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2634	If no item match 0 is returned. No range checks are performed on a number argument
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2635	"
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2636	\|i v\|
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2637
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2638	something isNumber ifTrue:[ ^ something ].
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2639	something isNil ifTrue:[ ^ 0 ].
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2640
1218 6ce43fcb2603 code cleanup Claus Gittinger <cg@exept.de> parents: 1217 diff changeset	2641	i := self findFirst:[:el \| (el nameKey = something) or: [el = something]].
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2642
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2643	i ~~ 0 ifTrue:[
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	2644	^ i
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2645	].
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2646
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2647	something isSymbol ifTrue:[
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	2648	i := self findFirst:[:el\|
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	2649	v := el value.
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	2650	v isSymbol and:[v == something]
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	2651	].
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	2652	i ~~ 0 ifTrue:[
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	2653	^ i
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	2654	]
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2655	].
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2656
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2657	(something respondsTo:#string) ifTrue:[
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	2658	v := something string.
1218 6ce43fcb2603 code cleanup Claus Gittinger <cg@exept.de> parents: 1217 diff changeset	2659	^ self findFirst:[:el \| el textLabel = v].
6ce43fcb2603 code cleanup Claus Gittinger <cg@exept.de> parents: 1217 diff changeset	2660	].
6ce43fcb2603 code cleanup Claus Gittinger <cg@exept.de> parents: 1217 diff changeset	2661	^ 0
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2662	!
dce33f8bb806 intitial checkin ca parents: diff changeset	2663
706 d716edbdbe47 show separators bug cleaned tz parents: 689 diff changeset	2664	indexOfItem:anItem
d716edbdbe47 show separators bug cleaned tz parents: 689 diff changeset	2665	"returns the index of the item or 0
d716edbdbe47 show separators bug cleaned tz parents: 689 diff changeset	2666	"
d716edbdbe47 show separators bug cleaned tz parents: 689 diff changeset	2667	^ items notNil ifTrue:[items identityIndexOf:anItem] ifFalse:[0]
d716edbdbe47 show separators bug cleaned tz parents: 689 diff changeset	2668	!
d716edbdbe47 show separators bug cleaned tz parents: 689 diff changeset	2669
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2670	keysAndValuesDo:aTwoArgBlock
dce33f8bb806 intitial checkin ca parents: diff changeset	2671	"evaluate the argument, aTwoArgBlock for every item in the menuPanel.
dce33f8bb806 intitial checkin ca parents: diff changeset	2672	"
dce33f8bb806 intitial checkin ca parents: diff changeset	2673	items notNil ifTrue:[ items keysAndValuesDo:aTwoArgBlock ].
dce33f8bb806 intitial checkin ca parents: diff changeset	2674
dce33f8bb806 intitial checkin ca parents: diff changeset	2675	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	2676
dce33f8bb806 intitial checkin ca parents: diff changeset	2677	!MenuPanel methodsFor:'event handling'!
dce33f8bb806 intitial checkin ca parents: diff changeset	2678
dce33f8bb806 intitial checkin ca parents: diff changeset	2679	buttonMotion:state x:x y:y
dce33f8bb806 intitial checkin ca parents: diff changeset	2680	"open or close the corresponding submenus
dce33f8bb806 intitial checkin ca parents: diff changeset	2681	"
2046 012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	2682	\|menue motionPoint translatedPoint sensor\|
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2683
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	2684	self scrollActivity isActive ifTrue:[
2347 9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	2685	^ self
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2686	].
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2687
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2688	sensor := self sensor.
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2689
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2690	(sensor isNil or:[sensor hasButtonMotionEventFor:nil]) ifTrue:[
2347 9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	2691	^ self
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2692	].
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2693	menue := self detectGrabMenu.
1841 5d01716cc37c implement: triggerOnDown ca parents: 1836 diff changeset	2694
2046 012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	2695	motionPoint := x@y.
012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	2696	translatedPoint := menue translateGrabPoint:motionPoint.
2048 ba472f3f46c7 code cleanup Claus Gittinger <cg@exept.de> parents: 2047 diff changeset	2697	menue handleButtonMotion:state atPoint:translatedPoint.
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2698
2347 9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	2699	hideOnRelease := true.
9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	2700
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2701	(self isPopUpView or:[sensor anyButtonPressed]) ifTrue:[
2347 9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	2702	^ self
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2703	].
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2704
1786 f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	2705	(selection notNil and:[selection visibleSubmenu isNil]) ifTrue:[
2347 9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	2706	"/ selection on grabView withou a submenu (Button ...); check whether moving out
9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	2707	(self containsPoint:motionPoint) ifFalse:[
9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	2708	^ self accept:nil
9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	2709	]
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2710	].
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2711
2048 ba472f3f46c7 code cleanup Claus Gittinger <cg@exept.de> parents: 2047 diff changeset	2712	"Modified: / 13.11.2001 / 20:21:49 / cg"
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2713	!
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2714
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2715	buttonPress:button x:x y:y
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2716	"any button pressed; open or close the corresponding submenus
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2717	"
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2718	\|menu point\|
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2719
2347 9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	2720	hideOnRelease := true.
9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	2721
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	2722	self scrollActivity stop.
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2723	point := x@y.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2724	menu := self detectMenuAtGrabPoint:point.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2725
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2726	menu isNil ifTrue:[
2133 293dadf237ad hide on buttonRelease outside (instead of buttonPress outside) Claus Gittinger <cg@exept.de> parents: 2132 diff changeset	2727	"/ self accept:nil
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2728	] ifFalse:[
2347 9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	2729	point := menu translateGrabPoint:point.
9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	2730	menu handleButtonPressAtPoint:point.
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2731	]
2046 012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	2732
012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	2733	"Modified: / 13.11.2001 / 14:12:32 / cg"
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2734	!
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2735
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2736	buttonRelease:button x:x y:y
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2737	"button release action; accept selection and close all views
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2738	"
2347 9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	2739	\|topMenu dstMenu item srcPoint dstPoint subm doAction\|
2199 61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	2740
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	2741	topMenu := self topMenu.
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	2742	topMenu openDelayed:nil.
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2743
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	2744	self scrollActivity stop ifTrue:[
2255 e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2745	^ self
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2746	].
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2747
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2748	dstMenu := topMenu activeMenu.
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2749
2347 9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	2750	doAction := dstMenu selection notNil
9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	2751	or:[dstMenu isPopUpView not].
9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	2752
9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	2753	doAction ifFalse:[
9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	2754	doAction := hideOnRelease.
9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	2755	((OperatingSystem
9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	2756	millisecondTimeDeltaBetween:(Time millisecondClockValue)
9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	2757	and:(dstMenu mapTime))
9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	2758	> (PopUpMenu maxClickTimeToStayOpen)) ifFalse:[
9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	2759	doAction := false
9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	2760	]
9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	2761	].
9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	2762
9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	2763	doAction ifTrue:[
2255 e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2764	srcPoint := x@y.
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2765
2255 e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2766	( (dstMenu := self detectMenuAtGrabPoint:srcPoint) notNil
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2767	and:[(item := dstMenu selection) notNil]
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2768	) ifTrue:[
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2769	item visibleSubmenu notNil ifTrue:[
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2770	dstMenu selection:nil.
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2771
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2772	(selection isNil and:[self isPopUpView not]) ifTrue:[
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2773	self accept:nil
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2774	].
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2775	^ self
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2776
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2777	].
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2778	subm := item currentSubmenu.
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2779
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2780	subm ifNotNil:[
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2781	subm shown ifTrue:[^ self].
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2782	"/ test whether any action is assigned to the menu
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2783	"/ if not ignorre accept
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2784	item hasDelayedMenu ifFalse:[^ self].
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2785	"/ handle action defined for the delayed menu
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2786	].
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2787	dstPoint := dstMenu translateGrabPoint:srcPoint.
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2788
2347 9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	2789	(dstMenu itemAtPoint:dstPoint) == dstMenu selection ifFalse:[
2255 e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2790	item := nil
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2791	].
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2792	topMenu acceptItem:item inMenu:dstMenu.
2347 9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	2793	^ self
2255 e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2794	].
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2795
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2796	(selection notNil and:[dstMenu == self]) ifTrue:[
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2797	selection visibleSubmenu notNil ifTrue:[
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2798	^ self
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2799	]
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2800	].
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2801	self accept:nil.
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2802	].
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2803	!
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2804
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2805	keyPress:key x:x y:y
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2806	"any key is pressed
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2807	"
2251 30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	2808	\|menu superMenu sensor\|
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	2809
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	2810	sensor := self sensor.
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	2811	sensor ifNil:[^ self].
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	2812
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	2813	sensor anyButtonPressed ifTrue:[
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	2814	^ self "/ ignorred while any button is pressed
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	2815	].
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2816
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	2817	self scrollActivity isActive ifTrue:[
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2818	key ~~ #Escape ifTrue:[
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2819	^ self
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2820	].
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	2821	self scrollActivity stop
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2822	].
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2823
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2824	(key == #Tab
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2825	or:[key == #FocusNext
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2826	or:[key == #FocusPrevious]]) ifTrue:[
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2827	self accept:nil.
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2828	^ super keyPress:key x:x y:y
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2829	].
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2830
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2831	menu := self detectGrabMenu.
2251 30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	2832	superMenu := menu superMenu.
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2833
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2834	key == #Escape ifTrue:[
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2835	"/ must hide the active menu
2251 30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	2836	(superMenu notNil and:[superMenu ~~ self]) ifTrue:[
1703 e127eff742bb bugfix: request focus ca parents: 1701 diff changeset	2837	"/ hide active menu but keep the grab
2251 30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	2838	superMenu selection:nil
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2839	] ifFalse:[
1703 e127eff742bb bugfix: request focus ca parents: 1701 diff changeset	2840	"/ hide active menu and ungrab
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2841	self accept:nil
2251 30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	2842	].
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	2843	^ self
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	2844	].
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	2845
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	2846	menu isViewWrapper ifFalse:[
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	2847	sensor compressKeyPressEventsWithKey:key.
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	2848	menu handleKeyPress:key.
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	2849	^ self
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	2850	].
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	2851	superMenu == self ifFalse:[^ self].
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	2852
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	2853	"/ allow cursor movement
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	2854	(key == #CursorLeft or:[key == #CursorRight]) ifTrue:[
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	2855	(self containsPoint:x@y) ifTrue:[
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	2856	self handleKeyPress:key.
1786 f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	2857	]
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	2858	].
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2859	!
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2860
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2861	pointerLeave:state
2255 e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2862	\|sensor\|
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2863
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	2864	self scrollActivity isActive ifTrue:[^ self].
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2865
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2866	self detectGrabMenu handlePointerLeave:state.
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2867
2255 e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2868	(selection isNil or:[self isPopUpView]) ifTrue:[
2251 30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	2869	^ self
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	2870	].
2255 e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2871
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2872	selection visibleSubmenu ifNotNil:[^ self].
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2873
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2874	windowGroup focusView ~~ self ifTrue:[
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2875	self accept:nil
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2876	] ifFalse:[
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2877	selection isButton ifTrue:[
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2878	sensor := self sensor.
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2879
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2880	sensor isNil ifTrue:[
2251 30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	2881	self accept:nil
2255 e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2882	] ifFalse:[
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2883	"/ I'have the focus; if no button pressed, than keep the selection
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2884	sensor anyButtonPressed ifTrue:[
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2885	self selection:nil
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2886	]
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2887	].
2251 30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	2888	]
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2889	].
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2890	!
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2891
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2892	sizeChanged:how
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2893	"redraw #right groups
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2894	"
2018 2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	2895	self isPopUpView ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	2896	mustRearrange := true.
93426020ceed * empty log message * ca parents: 2216 diff changeset	2897	shown ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	2898	self invalidate
93426020ceed * empty log message * ca parents: 2216 diff changeset	2899	]
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2900	].
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2901	super sizeChanged:how
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2902	! !
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2903
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2904	!MenuPanel methodsFor:'event handling processing'!
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2905
1767 e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	2906	clearImplicitGrab
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	2907	implicitGrabView := lastPointerView := nil.
1767 e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	2908	!
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	2909
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	2910	dispatchEvent:ev withFocusOn:focusView delegate:doDelegate
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	2911	"dispatch and handle an event
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	2912	"
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	2913	\|view x y p syntheticEvent menu\|
1767 e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	2914
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	2915	"/ situation: we get a buttonPress, set implicitGrab (for scrollbars etc.)
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	2916	"/ but never get the buttonRelease, since someone else (a popUp) grabbed the
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	2917	"/ pointer in the meantime, and has eaten the release event ... (double-sigh)
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	2918	implicitGrabView notNil ifTrue:[
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	2919	self sensor leftButtonPressed ifFalse:[
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	2920	self clearImplicitGrab.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	2921	].
1767 e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	2922	].
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	2923
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	2924	((x := ev x) isNil or:[(y := ev y) isNil]) ifTrue:[
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	2925	^ super dispatchEvent:ev withFocusOn:focusView delegate:false.
1767 e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	2926	].
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	2927
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	2928	implicitGrabView notNil ifTrue:[
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	2929	ev isButtonEvent ifTrue:[
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	2930	p := device translatePoint:(x@y) fromView:self toView:implicitGrabView.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	2931	ev view:implicitGrabView.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	2932	ev arguments at:2 put:p x.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	2933	ev arguments at:3 put:p y.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	2934	implicitGrabView dispatchEvent:ev withFocusOn:focusView delegate:false.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	2935
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	2936	ev isButtonReleaseEvent ifTrue:[
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	2937	self clearImplicitGrab.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	2938	].
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	2939	^ self
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	2940	]
1767 e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	2941	].
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	2942	menu := self detectMenuAtGrabPoint:(x@y).
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	2943
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2944	(menu isNil or:[menu isViewWrapper not]) ifTrue:[
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	2945	self clearImplicitGrab.
1767 e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	2946	^ super dispatchEvent:ev withFocusOn:focusView delegate:false
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	2947	].
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	2948
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	2949	p := menu translateGrabPoint:(x@y).
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	2950	view := self detectViewAtX:(p x) y:(p y) in:menu.
2020 1f1868eba475 extracted common code to detectViewAt:aPoint. Claus Gittinger <cg@exept.de> parents: 2018 diff changeset	2951	p := device translatePoint:(x@y) fromView:self toView:view.
1767 e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	2952
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	2953	ev isButtonPressEvent ifTrue:[
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	2954	(view wantsFocusWithButtonPress) ifTrue:[
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	2955	view requestFocus.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	2956	].
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	2957	view ~~ self ifTrue:[ "/ can this ever be self ?
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	2958	implicitGrabView := view.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	2959	]
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	2960	].
1767 e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	2961
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	2962	ev isButtonMotionEvent ifTrue:[
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	2963	lastPointerView ~~ view ifTrue:[
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	2964	"/ must generate enter/leave ... (sigh)
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	2965	lastPointerView notNil ifTrue:[
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	2966	"/ XXX: should be fixed
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	2967	syntheticEvent := WindowEvent pointerLeave:0 view:lastPointerView.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	2968	lastPointerView dispatchEvent:syntheticEvent withFocusOn:nil delegate:false.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	2969	].
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	2970	view notNil ifTrue:[
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	2971	syntheticEvent := WindowEvent pointerEnter:0 x:x y:y view:view.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	2972	view dispatchEvent:syntheticEvent withFocusOn:nil delegate:false.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	2973	].
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	2974	lastPointerView := view.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	2975	].
1767 e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	2976	].
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	2977
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	2978	ev view:view.
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	2979	ev x:p x.
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	2980	ev y:p y.
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	2981	view dispatchEvent:ev withFocusOn:focusView delegate:false.
2020 1f1868eba475 extracted common code to detectViewAt:aPoint. Claus Gittinger <cg@exept.de> parents: 2018 diff changeset	2982
1f1868eba475 extracted common code to detectViewAt:aPoint. Claus Gittinger <cg@exept.de> parents: 2018 diff changeset	2983	"Modified: / 10.10.2001 / 13:54:47 / cg"
1767 e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	2984	!
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	2985
2048 ba472f3f46c7 code cleanup Claus Gittinger <cg@exept.de> parents: 2047 diff changeset	2986	handleButtonMotion:state atPoint:motionPoint
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2987	"open or close the corresponding submenus
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2988	"
2251 30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	2989	\|menu item translatedPoint containsPoint\|
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	2990
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	2991	containsPoint := self containsPoint:motionPoint.
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	2992	containsPoint ifTrue:[ item := self itemAtPoint:motionPoint ]
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	2993	ifFalse:[ item := nil ].
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	2994
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	2995	self pointerEntersItem:item.
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2996
1910 119f91172b70 * empty log message * Claus Gittinger <cg@exept.de> parents: 1902 diff changeset	2997	(state == 0 or:[self sensor anyButtonPressed not]) ifTrue:[
2251 30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	2998	"/ only update pointerEnter
2048 ba472f3f46c7 code cleanup Claus Gittinger <cg@exept.de> parents: 2047 diff changeset	2999	^ self
ba472f3f46c7 code cleanup Claus Gittinger <cg@exept.de> parents: 2047 diff changeset	3000	].
ba472f3f46c7 code cleanup Claus Gittinger <cg@exept.de> parents: 2047 diff changeset	3001
2251 30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3002	containsPoint ifTrue:[
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3003	self selection:item openMenu:true.
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3004	^ self
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3005	].
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3006
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3007	menu := self superMenuAtPoint:motionPoint.
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3008
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3009	menu ifNotNil:[
2046 012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	3010	translatedPoint := self translateMenuPoint:motionPoint toMenu:menu.
2251 30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3011	menu handleButtonMotion:state atPoint:translatedPoint.
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3012	^ self
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3013	].
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3014	self isPopUpView ifTrue:[
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3015	self selection:nil
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3016	].
2046 012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	3017	!
012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	3018
012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	3019	handleButtonPressAtPoint:aPoint
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	3020	"a button pressed; open or close the corresponding submenus
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	3021	"
2251 30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3022	\| item sensor direction wasSelected\|
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	3023
2046 012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	3024	item := self itemAtPoint:aPoint.
2251 30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3025	item ifNil:[
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3026	self selection:nil openMenu:false.
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3027	^ self
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3028	].
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3029
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3030	direction := self scrollerDirectionAtPoint:aPoint.
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3031	direction notNil ifTrue:[
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3032	(self scrollActivity startIfRequiredAt:direction on:self) ifTrue:[
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3033	self pointerEntersItem:nil.
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3034	^ self
2238 68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3035	]
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	3036	].
2251 30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3037
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3038	wasSelected := (selection == item).
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3039	wasSelected ifFalse:[
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3040	self selection:item openMenu:true
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3041	].
2199 61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	3042	item hasDelayedMenu ifTrue:[^ self].
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	3043
2238 68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3044	(item isToggle or:[item triggerOnDown]) ifFalse:[
2251 30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3045	(wasSelected and:[item hasSubmenu and:[item visibleSubmenu isNil]]) ifTrue:[
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3046	item toggleSubmenuVisibility
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3047	].
2238 68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3048	^ self
68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3049	].
68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3050	(item canAccept and:[item == self selection]) ifFalse:[
68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3051	^ self
68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3052	].
68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3053	self invalidateItem:item repairNow:true.
68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3054	self acceptItem:item inMenu:self.
68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3055
68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3056	(sensor := self sensor) notNil ifTrue:[
68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3057	[sensor anyButtonPressed] whileTrue:[ Delay waitForSeconds:0.1 ].
68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3058	sensor flushUserEvents.
68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3059	].
68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3060	self selection:nil.
2046 012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	3061
012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	3062	"Created: / 13.11.2001 / 14:12:04 / cg"
2047 62de65e3a61b initial delay; autoRepeat delay Claus Gittinger <cg@exept.de> parents: 2046 diff changeset	3063	"Modified: / 13.11.2001 / 19:50:52 / cg"
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	3064	!
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	3065
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3066	handleCursorKey:aKey
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3067	"handle a cursor key
dce33f8bb806 intitial checkin ca parents: diff changeset	3068	"
1786 f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3069	\|next menu item isVrt backKey p1 p2
2354 1bd2ac73b73c cursorUp/Down behavior Claus Gittinger <cg@exept.de> parents: 2347 diff changeset	3070	idx0 "{ Class:SmallInteger }"
687 23ce9888d76f bug fixes: ca parents: 681 diff changeset	3071	idx "{ Class:SmallInteger }"
1705 201f9ce1b2d2 checkin from browser ca parents: 1704 diff changeset	3072	size "{ Class:SmallInteger }"
687 23ce9888d76f bug fixes: ca parents: 681 diff changeset	3073	\|
1786 f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3074	(size := items size) == 0 ifTrue:[
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3075	superMenu notNil ifTrue:[superMenu handleCursorKey:aKey].
2354 1bd2ac73b73c cursorUp/Down behavior Claus Gittinger <cg@exept.de> parents: 2347 diff changeset	3076	^ self
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3077	].
1786 f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3078
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3079	isVrt := self verticalLayout.
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3080
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	3081
1786 f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3082	( (isVrt and:[aKey == #CursorUp or:[aKey == #CursorDown]])
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3083	or:[(isVrt not and:[aKey == #CursorRight or:[aKey == #CursorLeft]])]
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3084	) ifTrue:[
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3085	selection isNil ifTrue:[
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3086	(superMenu notNil and:[superMenu verticalLayout == isVrt]) ifTrue:[
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3087	^ superMenu handleCursorKey:aKey
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3088	].
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	3089	idx := 0.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	3090
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	3091	isVrt ifTrue:[
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	3092	"/ used because of vertical scrolling
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	3093	idx := items findFirst:[:el\| el layout top > 0 ].
2354 1bd2ac73b73c cursorUp/Down behavior Claus Gittinger <cg@exept.de> parents: 2347 diff changeset	3094	idx ~~ 0 ifTrue:[idx := idx - 1 ]
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	3095	].
1786 f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3096	] ifFalse:[
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	3097	idx := self indexOf:selection.
1786 f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3098	].
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3099	next := aKey == #CursorRight or:[aKey == #CursorDown].
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3100
2354 1bd2ac73b73c cursorUp/Down behavior Claus Gittinger <cg@exept.de> parents: 2347 diff changeset	3101	idx0 := idx.
1bd2ac73b73c cursorUp/Down behavior Claus Gittinger <cg@exept.de> parents: 2347 diff changeset	3102	size timesRepeat:[
1bd2ac73b73c cursorUp/Down behavior Claus Gittinger <cg@exept.de> parents: 2347 diff changeset	3103	\|el\|
1bd2ac73b73c cursorUp/Down behavior Claus Gittinger <cg@exept.de> parents: 2347 diff changeset	3104
1bd2ac73b73c cursorUp/Down behavior Claus Gittinger <cg@exept.de> parents: 2347 diff changeset	3105	next ifTrue:[idx := idx + 1] ifFalse:[idx := idx - 1].
1bd2ac73b73c cursorUp/Down behavior Claus Gittinger <cg@exept.de> parents: 2347 diff changeset	3106
1bd2ac73b73c cursorUp/Down behavior Claus Gittinger <cg@exept.de> parents: 2347 diff changeset	3107	idx > size ifTrue:[
1bd2ac73b73c cursorUp/Down behavior Claus Gittinger <cg@exept.de> parents: 2347 diff changeset	3108	idx := 0 "1"
1bd2ac73b73c cursorUp/Down behavior Claus Gittinger <cg@exept.de> parents: 2347 diff changeset	3109	] ifFalse:[
1bd2ac73b73c cursorUp/Down behavior Claus Gittinger <cg@exept.de> parents: 2347 diff changeset	3110	idx < 0 ifTrue:[
1bd2ac73b73c cursorUp/Down behavior Claus Gittinger <cg@exept.de> parents: 2347 diff changeset	3111	idx := size
1bd2ac73b73c cursorUp/Down behavior Claus Gittinger <cg@exept.de> parents: 2347 diff changeset	3112	]
1bd2ac73b73c cursorUp/Down behavior Claus Gittinger <cg@exept.de> parents: 2347 diff changeset	3113	].
1bd2ac73b73c cursorUp/Down behavior Claus Gittinger <cg@exept.de> parents: 2347 diff changeset	3114
1bd2ac73b73c cursorUp/Down behavior Claus Gittinger <cg@exept.de> parents: 2347 diff changeset	3115	idx == 0 ifTrue:[
1bd2ac73b73c cursorUp/Down behavior Claus Gittinger <cg@exept.de> parents: 2347 diff changeset	3116	self selection:nil.
1bd2ac73b73c cursorUp/Down behavior Claus Gittinger <cg@exept.de> parents: 2347 diff changeset	3117	^ self
1bd2ac73b73c cursorUp/Down behavior Claus Gittinger <cg@exept.de> parents: 2347 diff changeset	3118	] ifFalse:[
1bd2ac73b73c cursorUp/Down behavior Claus Gittinger <cg@exept.de> parents: 2347 diff changeset	3119	(el := items at:idx ifAbsent:nil) notNil ifTrue:[
1bd2ac73b73c cursorUp/Down behavior Claus Gittinger <cg@exept.de> parents: 2347 diff changeset	3120	el canSelect ifTrue:[
1bd2ac73b73c cursorUp/Down behavior Claus Gittinger <cg@exept.de> parents: 2347 diff changeset	3121	el hasDelayedMenu ifTrue:[
1bd2ac73b73c cursorUp/Down behavior Claus Gittinger <cg@exept.de> parents: 2347 diff changeset	3122	"/ do not open menu
1bd2ac73b73c cursorUp/Down behavior Claus Gittinger <cg@exept.de> parents: 2347 diff changeset	3123	self selection:el openMenu:false
1bd2ac73b73c cursorUp/Down behavior Claus Gittinger <cg@exept.de> parents: 2347 diff changeset	3124	] ifFalse:[
1bd2ac73b73c cursorUp/Down behavior Claus Gittinger <cg@exept.de> parents: 2347 diff changeset	3125	"/ open comes from style-sheet
1bd2ac73b73c cursorUp/Down behavior Claus Gittinger <cg@exept.de> parents: 2347 diff changeset	3126	self selection:el.
1bd2ac73b73c cursorUp/Down behavior Claus Gittinger <cg@exept.de> parents: 2347 diff changeset	3127	].
1bd2ac73b73c cursorUp/Down behavior Claus Gittinger <cg@exept.de> parents: 2347 diff changeset	3128	^ self
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	3129	].
2354 1bd2ac73b73c cursorUp/Down behavior Claus Gittinger <cg@exept.de> parents: 2347 diff changeset	3130	]
1bd2ac73b73c cursorUp/Down behavior Claus Gittinger <cg@exept.de> parents: 2347 diff changeset	3131	].
1bd2ac73b73c cursorUp/Down behavior Claus Gittinger <cg@exept.de> parents: 2347 diff changeset	3132	idx == idx0 ifTrue:[
1bd2ac73b73c cursorUp/Down behavior Claus Gittinger <cg@exept.de> parents: 2347 diff changeset	3133	^ self
1bd2ac73b73c cursorUp/Down behavior Claus Gittinger <cg@exept.de> parents: 2347 diff changeset	3134	].
1786 f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3135	].
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3136	^ self
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3137	].
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3138
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3139	superMenu notNil ifTrue:[
1791 bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	3140	p1 := self translateGrabPoint:0.
bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	3141	p2 := superMenu translateGrabPoint:0.
1786 f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3142	].
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3143
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3144	isVrt ifTrue:[
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3145	(superMenu notNil and:[p1 x > p2 x]) ifTrue:[
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3146	backKey := #CursorRight
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3147	] ifFalse:[
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3148	backKey := #CursorLeft.
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3149	]
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3150	] ifFalse:[
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3151	(superMenu notNil and:[p1 y > p2 y]) ifTrue:[
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3152	backKey := #CursorDown
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3153	] ifFalse:[
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3154	backKey := #CursorUp.
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3155	]
1786 f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3156	].
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3157
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3158	aKey == backKey ifTrue:[
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3159	superMenu isNil ifTrue:[
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3160	self accept:nil
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3161	] ifFalse:[
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3162	superMenu verticalLayout ~~ isVrt ifTrue:[
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3163	superMenu handleCursorKey:aKey
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3164	] ifFalse:[
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3165	superMenu selection hideSubmenu
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3166	]
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3167	].
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3168	^ self
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3169	].
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3170
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3171	selection isNil ifTrue:[
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3172	superMenu isNil ifTrue:[^ self accept:nil].
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3173
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3174	superMenu verticalLayout ~~ isVrt ifTrue:[
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3175	superMenu handleCursorKey:aKey
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3176	] ifFalse:[
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3177	(item := items findFirst:[:el\| el canSelect]) notNil ifTrue:[
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	3178	self selectionIndex:item
1786 f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3179	]
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3180	].
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3181	^ self
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3182	].
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3183
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3184	selection hasSubmenu ifTrue:[
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3185	(menu := selection visibleSubmenu) isNil ifTrue:[
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3186	selection toggleSubmenuVisibility
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3187	] ifFalse:[
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3188	menu selectionIndex:1
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3189	]
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3190	] ifFalse:[
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3191	superMenu notNil ifTrue:[
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3192	superMenu verticalLayout ~~ isVrt ifTrue:[
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3193	superMenu handleCursorKey:aKey
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3194	]
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3195	] ifFalse:[
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3196	self accept:nil
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3197	]
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3198	].
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3199	!
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3200
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3201	handleKeyPress:key
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3202	"any key is pressed
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3203	"
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	3204	\|item inMenu\|
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3205
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3206	(key == #Return or:[key == Character space]) ifTrue:[
1786 f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3207	self handleReturnPressed
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3208	] ifFalse:[
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3209	key isCharacter ifTrue:[
1862 ffbe4c06defd handleKeyPress: search character-key in wrapped menu ca parents: 1853 diff changeset	3210	"/ selection notNil ifTrue:[
ffbe4c06defd handleKeyPress: search character-key in wrapped menu ca parents: 1853 diff changeset	3211	"/ inMenu := self
ffbe4c06defd handleKeyPress: search character-key in wrapped menu ca parents: 1853 diff changeset	3212	"/ ] ifFalse:[
ffbe4c06defd handleKeyPress: search character-key in wrapped menu ca parents: 1853 diff changeset	3213	"/ (inMenu := superMenu) isNil ifTrue:[^ self].
ffbe4c06defd handleKeyPress: search character-key in wrapped menu ca parents: 1853 diff changeset	3214	"/ ].
ffbe4c06defd handleKeyPress: search character-key in wrapped menu ca parents: 1853 diff changeset	3215	inMenu := self.
1786 f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3216
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3217	(item := inMenu detectItemForKey:key) notNil ifTrue:[
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3218	inMenu selection:item
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3219	]
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3220	] ifFalse:[
1786 f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3221	( key == #CursorDown or:[key == #CursorUp
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3222	or:[key == #CursorLeft or:[key == #CursorRight]]]
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3223	) ifTrue:[
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3224	self handleCursorKey:key
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3225	]
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3226	]
1889 43516e4588ce give warning messages for unimplemented menu-aspects Claus Gittinger <cg@exept.de> parents: 1878 diff changeset	3227	]
43516e4588ce give warning messages for unimplemented menu-aspects Claus Gittinger <cg@exept.de> parents: 1878 diff changeset	3228	!
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3229
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3230	handlePointerLeave:state
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3231	self pointerEntersItem:nil.
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3232	super pointerLeave:state
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3233	!
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3234
1786 f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3235	handleReturnPressed
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3236	"any key is pressed
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3237	"
2238 68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3238	\|sensor subm item\|
68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3239
68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3240	(item := selection) isNil ifTrue:[
68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3241	superMenu notNil ifTrue:[
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	3242	item := superMenu selection.
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	3243
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	3244	item value notNil ifTrue:[
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	3245	"/ is a delayed menu
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	3246	self accept:item
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	3247	] ifFalse:[
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	3248	item toggleSubmenuVisibility
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	3249	]
2238 68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3250	] ifFalse:[
68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3251	self accept
68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3252	].
68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3253	^ self
1841 5d01716cc37c implement: triggerOnDown ca parents: 1836 diff changeset	3254	].
5d01716cc37c implement: triggerOnDown ca parents: 1836 diff changeset	3255	selection hasSubmenu ifTrue:[
2238 68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3256	selection hasDelayedMenu ifFalse:[
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	3257	selection toggleSubmenuVisibility.
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	3258	^ self
2238 68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3259	].
68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3260	subm := selection currentSubmenu.
68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3261
68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3262	(subm notNil and:[subm shown]) ifTrue:[
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	3263	selection toggleSubmenuVisibility.
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	3264	^ self
2238 68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3265	].
68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3266	self openDelayed:nil
1841 5d01716cc37c implement: triggerOnDown ca parents: 1836 diff changeset	3267	].
5d01716cc37c implement: triggerOnDown ca parents: 1836 diff changeset	3268	self accept.
5d01716cc37c implement: triggerOnDown ca parents: 1836 diff changeset	3269
2238 68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3270	" test for toggle "
68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3271	item isToggle ifTrue:[
68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3272	self selection:item.
68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3273	] ifFalse:[
68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3274	(selection notNil and:[selection triggerOnDown]) ifFalse:[
68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3275	^ self
68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3276	]
68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3277	].
1841 5d01716cc37c implement: triggerOnDown ca parents: 1836 diff changeset	3278
5d01716cc37c implement: triggerOnDown ca parents: 1836 diff changeset	3279	(sensor := self sensor) isNil ifTrue:[
2238 68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3280	^ self
1841 5d01716cc37c implement: triggerOnDown ca parents: 1836 diff changeset	3281	].
5d01716cc37c implement: triggerOnDown ca parents: 1836 diff changeset	3282
5d01716cc37c implement: triggerOnDown ca parents: 1836 diff changeset	3283	[ sensor flushKeyboardFor:nil.
2238 68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3284	Delay waitForSeconds:0.1.
68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3285	sensor hasKeyPressEventFor:nil.
1841 5d01716cc37c implement: triggerOnDown ca parents: 1836 diff changeset	3286
5d01716cc37c implement: triggerOnDown ca parents: 1836 diff changeset	3287	] whileTrue.
1786 f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3288	!
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3289
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3290	pointerEntersItem:anItemOrNil
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3291	"the pointer moves over an item or nil; restore the old item and
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3292	redraw the new item highlighted.
1690 38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3293	"
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3294	\|oldItem newItem\|
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3295
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3296	( anItemOrNil notNil
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3297	and:[anItemOrNil canSelect
1690 38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3298	and:[selection isNil
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3299	and:[self isPopUpView not]]]) ifTrue:[
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3300	anItemOrNil isButton ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	3301	( self buttonEnteredBackgroundColor ~= self buttonPassiveBackgroundColor
93426020ceed * empty log message * ca parents: 2216 diff changeset	3302	or:[self buttonEnteredLevel ~= self buttonPassiveLevel]
1690 38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3303	) ifTrue:[
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3304	newItem := anItemOrNil
1690 38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3305	]
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3306	] ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	3307	(self enteredLevel ~~ 0
93426020ceed * empty log message * ca parents: 2216 diff changeset	3308	or:[self enteredBackgroundColor ~= self backgroundColor]
93426020ceed * empty log message * ca parents: 2216 diff changeset	3309	) ifTrue:[
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3310	newItem := anItemOrNil
1690 38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3311	]
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3312	]
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3313	].
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3314
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3315	newItem ~~ enteredItem ifTrue:[
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3316	oldItem := enteredItem.
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3317	enteredItem := newItem.
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3318
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3319	oldItem notNil ifTrue:[
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3320	self invalidateItem:oldItem repairNow:(enteredItem isNil).
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3321	].
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3322
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3323	enteredItem notNil ifTrue:[
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3324	self invalidateItem:enteredItem repairNow:true.
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3325	].
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3326	].
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3327	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	3328
2251 30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3329	!MenuPanel methodsFor:'focus handling'!
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3330
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3331	hasKeyboardFocus:aBoolean
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3332	"notification from the windowGroup that I got/lost the keyboard focus.
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3333	"
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3334	\|focusView\|
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3335
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3336	self isPopUpView ifTrue:[
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3337	"/ not visible for popup menus
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3338	^ super hasKeyboardFocus:aBoolean
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3339	].
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3340
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3341	(aBoolean not and:[selection notNil]) ifTrue:[
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3342	hasImplicitGrap ~~ true ifTrue:[
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3343	focusView := windowGroup focusView.
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3344
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3345	focusView == self ifFalse:[
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3346	self selection:nil.
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3347	]
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3348	]
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3349	].
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3350	super hasKeyboardFocus:aBoolean.
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3351	! !
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3352
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3353	!MenuPanel methodsFor:'grabbing'!
dce33f8bb806 intitial checkin ca parents: diff changeset	3354
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3355	doGrab
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3356	relativeGrabOrigin := nil.
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3357
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3358	superMenu notNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	3359	superMenu doGrab
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3360	] ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	3361	hasImplicitGrap ~~ true ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	3362	self grabMouseAndKeyboard.
93426020ceed * empty log message * ca parents: 2216 diff changeset	3363	hasImplicitGrap := true
93426020ceed * empty log message * ca parents: 2216 diff changeset	3364	]
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3365	]
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3366	!
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3367
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3368	doUngrab:forceDo
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3369
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3370	relativeGrabOrigin := nil.
1767 e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	3371	self clearImplicitGrab.
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3372
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3373	superMenu notNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	3374	forceDo ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	3375	superMenu doUngrab:true
93426020ceed * empty log message * ca parents: 2216 diff changeset	3376	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	3377	^ self
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3378	].
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3379
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3380	hasImplicitGrap ~~ true ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	3381	^ self
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3382	].
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3383
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3384	forceDo ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	3385	(selection notNil or:[prevFocusView == self]) ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	3386	^ self
93426020ceed * empty log message * ca parents: 2216 diff changeset	3387	].
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3388	].
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3389	self ungrabMouseAndKeyboard.
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3390	self selection:nil.
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3391	hasImplicitGrap := nil.
1703 e127eff742bb bugfix: request focus ca parents: 1701 diff changeset	3392	prevFocusView := nil.
e127eff742bb bugfix: request focus ca parents: 1701 diff changeset	3393
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3394	!
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3395
1630 01dc20096011 grabbing cleaned up; ca parents: 1613 diff changeset	3396	grabKeyboard
1690 38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3397	"grap the keyboard; keep previous grab
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3398	"
1630 01dc20096011 grabbing cleaned up; ca parents: 1613 diff changeset	3399	previousKeyboardGrab := device activeKeyboardGrab.
1690 38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3400	^ super grabKeyboard
1630 01dc20096011 grabbing cleaned up; ca parents: 1613 diff changeset	3401
01dc20096011 grabbing cleaned up; ca parents: 1613 diff changeset	3402
01dc20096011 grabbing cleaned up; ca parents: 1613 diff changeset	3403	!
01dc20096011 grabbing cleaned up; ca parents: 1613 diff changeset	3404
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3405	grabMouseAndKeyboard
717 540e638fdebb Avoid pointer and keyboard grabbing if not necessary Stefan Vogel <sv@exept.de> parents: 712 diff changeset	3406	"get exclusive access to pointer and keyboard.
1690 38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3407	"
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3408	\|sensor\|
dce33f8bb806 intitial checkin ca parents: diff changeset	3409
dce33f8bb806 intitial checkin ca parents: diff changeset	3410	realized ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	3411	prevFocusView := self windowGroup focusView.
93426020ceed * empty log message * ca parents: 2216 diff changeset	3412
93426020ceed * empty log message * ca parents: 2216 diff changeset	3413	sensor := self sensor.
93426020ceed * empty log message * ca parents: 2216 diff changeset	3414	device activePointerGrab ~~ self ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	3415	sensor notNil ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	3416	sensor flushMotionEventsFor:nil.
93426020ceed * empty log message * ca parents: 2216 diff changeset	3417	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	3418
93426020ceed * empty log message * ca parents: 2216 diff changeset	3419	(self grabPointer) ifFalse:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	3420	Delay waitForSeconds:0.1.
93426020ceed * empty log message * ca parents: 2216 diff changeset	3421	(self grabPointer) ifFalse:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	3422	"give up"
93426020ceed * empty log message * ca parents: 2216 diff changeset	3423	'MenuPanel [warning]: could not grab pointer' errorPrintCR.
93426020ceed * empty log message * ca parents: 2216 diff changeset	3424	self unmap
93426020ceed * empty log message * ca parents: 2216 diff changeset	3425	]
93426020ceed * empty log message * ca parents: 2216 diff changeset	3426	]
93426020ceed * empty log message * ca parents: 2216 diff changeset	3427	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	3428
93426020ceed * empty log message * ca parents: 2216 diff changeset	3429	device activeKeyboardGrab ~~ self ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	3430	sensor notNil ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	3431	device sync.
93426020ceed * empty log message * ca parents: 2216 diff changeset	3432	sensor flushKeyboardFor:nil
93426020ceed * empty log message * ca parents: 2216 diff changeset	3433	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	3434	self grabKeyboard.
93426020ceed * empty log message * ca parents: 2216 diff changeset	3435	]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3436	]
dce33f8bb806 intitial checkin ca parents: diff changeset	3437
717 540e638fdebb Avoid pointer and keyboard grabbing if not necessary Stefan Vogel <sv@exept.de> parents: 712 diff changeset	3438	"Modified: / 2.2.1998 / 23:43:59 / stefan"
1254 38b8bcfabbd7 checkin from browser Claus Gittinger <cg@exept.de> parents: 1253 diff changeset	3439	"Modified: / 15.3.1999 / 12:01:38 / cg"
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3440	!
dce33f8bb806 intitial checkin ca parents: diff changeset	3441
1630 01dc20096011 grabbing cleaned up; ca parents: 1613 diff changeset	3442	grabPointerWithCursor:aCursorOrNil
1690 38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3443	"grap the pointer; keep previous grab
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3444	"
1630 01dc20096011 grabbing cleaned up; ca parents: 1613 diff changeset	3445	previousPointerGrab := device activePointerGrab.
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3446	hasImplicitGrap := true.
1690 38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3447	^ super grabPointerWithCursor:aCursorOrNil
1630 01dc20096011 grabbing cleaned up; ca parents: 1613 diff changeset	3448
01dc20096011 grabbing cleaned up; ca parents: 1613 diff changeset	3449
01dc20096011 grabbing cleaned up; ca parents: 1613 diff changeset	3450	!
01dc20096011 grabbing cleaned up; ca parents: 1613 diff changeset	3451
01dc20096011 grabbing cleaned up; ca parents: 1613 diff changeset	3452	ungrabKeyboard
1690 38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3453	"ungrap the keyboard; restore previous grab
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3454	"
1630 01dc20096011 grabbing cleaned up; ca parents: 1613 diff changeset	3455	super ungrabKeyboard.
1690 38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3456
1630 01dc20096011 grabbing cleaned up; ca parents: 1613 diff changeset	3457	previousKeyboardGrab notNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	3458	device grabKeyboardInView:previousKeyboardGrab.
1630 01dc20096011 grabbing cleaned up; ca parents: 1613 diff changeset	3459	].
01dc20096011 grabbing cleaned up; ca parents: 1613 diff changeset	3460
01dc20096011 grabbing cleaned up; ca parents: 1613 diff changeset	3461
01dc20096011 grabbing cleaned up; ca parents: 1613 diff changeset	3462	!
01dc20096011 grabbing cleaned up; ca parents: 1613 diff changeset	3463
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3464	ungrabMouseAndKeyboard
717 540e638fdebb Avoid pointer and keyboard grabbing if not necessary Stefan Vogel <sv@exept.de> parents: 712 diff changeset	3465	"ungrab resources (mouse and keyboard)
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3466	"
1630 01dc20096011 grabbing cleaned up; ca parents: 1613 diff changeset	3467	self ungrabPointer.
01dc20096011 grabbing cleaned up; ca parents: 1613 diff changeset	3468	self ungrabKeyboard.
01dc20096011 grabbing cleaned up; ca parents: 1613 diff changeset	3469	!
01dc20096011 grabbing cleaned up; ca parents: 1613 diff changeset	3470
01dc20096011 grabbing cleaned up; ca parents: 1613 diff changeset	3471	ungrabPointer
1690 38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3472	"ungrap the pointer; restore previous grab
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3473	"
1630 01dc20096011 grabbing cleaned up; ca parents: 1613 diff changeset	3474	super ungrabPointer.
1690 38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3475
1630 01dc20096011 grabbing cleaned up; ca parents: 1613 diff changeset	3476	previousPointerGrab notNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	3477	device grabPointerInView:previousPointerGrab.
1630 01dc20096011 grabbing cleaned up; ca parents: 1613 diff changeset	3478	].
01dc20096011 grabbing cleaned up; ca parents: 1613 diff changeset	3479
01dc20096011 grabbing cleaned up; ca parents: 1613 diff changeset	3480
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3481	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	3482
1251 eb5b4cdbacde fixed helpText display; Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	3483	!MenuPanel methodsFor:'help'!
eb5b4cdbacde fixed helpText display; Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	3484
2058 f0a23f80454e flyByHelp Claus Gittinger <cg@exept.de> parents: 2052 diff changeset	3485	flyByHelpTextAt:srcPoint
f0a23f80454e flyByHelp Claus Gittinger <cg@exept.de> parents: 2052 diff changeset	3486	"return the helpText for aPoint (i.e. when mouse-pointer is moved over an item).
2063 8bff9e49f1e9 * empty log message * Claus Gittinger <cg@exept.de> parents: 2062 diff changeset	3487	If there is a selection, that items helpText is used (ignoring the given point).
2058 f0a23f80454e flyByHelp Claus Gittinger <cg@exept.de> parents: 2052 diff changeset	3488	"
f0a23f80454e flyByHelp Claus Gittinger <cg@exept.de> parents: 2052 diff changeset	3489	\|dstMenu dstPoint\|
f0a23f80454e flyByHelp Claus Gittinger <cg@exept.de> parents: 2052 diff changeset	3490
f0a23f80454e flyByHelp Claus Gittinger <cg@exept.de> parents: 2052 diff changeset	3491	dstMenu := self detectMenuAtGrabPoint:srcPoint.
2063 8bff9e49f1e9 * empty log message * Claus Gittinger <cg@exept.de> parents: 2062 diff changeset	3492	dstMenu isNil ifTrue:[^ nil].
2058 f0a23f80454e flyByHelp Claus Gittinger <cg@exept.de> parents: 2052 diff changeset	3493
f0a23f80454e flyByHelp Claus Gittinger <cg@exept.de> parents: 2052 diff changeset	3494	dstPoint := dstMenu translateGrabPoint:srcPoint.
2347 9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	3495	^ dstMenu flyByHelpTextForItem:(dstMenu itemAtPoint:dstPoint).
2058 f0a23f80454e flyByHelp Claus Gittinger <cg@exept.de> parents: 2052 diff changeset	3496	!
f0a23f80454e flyByHelp Claus Gittinger <cg@exept.de> parents: 2052 diff changeset	3497
f0a23f80454e flyByHelp Claus Gittinger <cg@exept.de> parents: 2052 diff changeset	3498	flyByHelpTextForItem:anItem
f0a23f80454e flyByHelp Claus Gittinger <cg@exept.de> parents: 2052 diff changeset	3499	"returns the helpText for an item (empty if none)
f0a23f80454e flyByHelp Claus Gittinger <cg@exept.de> parents: 2052 diff changeset	3500	"
2326 a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	3501	\|key app text\|
2063 8bff9e49f1e9 * empty log message * Claus Gittinger <cg@exept.de> parents: 2062 diff changeset	3502
8bff9e49f1e9 * empty log message * Claus Gittinger <cg@exept.de> parents: 2062 diff changeset	3503	anItem isNil ifTrue:[^ nil].
8bff9e49f1e9 * empty log message * Claus Gittinger <cg@exept.de> parents: 2062 diff changeset	3504	anItem isButton ifFalse:[^ nil].
8bff9e49f1e9 * empty log message * Claus Gittinger <cg@exept.de> parents: 2062 diff changeset	3505
2345 8b7b3e384002 fallBack to activeHelpKey and label, if no flyByHelp is Claus Gittinger <cg@exept.de> parents: 2344 diff changeset	3506	text := anItem flyByHelpText.
8b7b3e384002 fallBack to activeHelpKey and label, if no flyByHelp is Claus Gittinger <cg@exept.de> parents: 2344 diff changeset	3507	text isNil ifTrue:[
8b7b3e384002 fallBack to activeHelpKey and label, if no flyByHelp is Claus Gittinger <cg@exept.de> parents: 2344 diff changeset	3508	((key := anItem activeHelpKey) notNil
8b7b3e384002 fallBack to activeHelpKey and label, if no flyByHelp is Claus Gittinger <cg@exept.de> parents: 2344 diff changeset	3509	and:[(app := self application) notNil]) ifTrue:[
2326 a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	3510	text := app flyByHelpTextForKey:key.
2345 8b7b3e384002 fallBack to activeHelpKey and label, if no flyByHelp is Claus Gittinger <cg@exept.de> parents: 2344 diff changeset	3511	"/ text notNil ifTrue:[
8b7b3e384002 fallBack to activeHelpKey and label, if no flyByHelp is Claus Gittinger <cg@exept.de> parents: 2344 diff changeset	3512	"/ anItem flyByHelpText:text.
8b7b3e384002 fallBack to activeHelpKey and label, if no flyByHelp is Claus Gittinger <cg@exept.de> parents: 2344 diff changeset	3513	"/ ]
8b7b3e384002 fallBack to activeHelpKey and label, if no flyByHelp is Claus Gittinger <cg@exept.de> parents: 2344 diff changeset	3514	].
2326 a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	3515	].
a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	3516	text isNil ifTrue:[
2345 8b7b3e384002 fallBack to activeHelpKey and label, if no flyByHelp is Claus Gittinger <cg@exept.de> parents: 2344 diff changeset	3517	text := anItem activeHelpKey.
8b7b3e384002 fallBack to activeHelpKey and label, if no flyByHelp is Claus Gittinger <cg@exept.de> parents: 2344 diff changeset	3518	text isNil ifTrue:[
8b7b3e384002 fallBack to activeHelpKey and label, if no flyByHelp is Claus Gittinger <cg@exept.de> parents: 2344 diff changeset	3519	text := anItem label.
8b7b3e384002 fallBack to activeHelpKey and label, if no flyByHelp is Claus Gittinger <cg@exept.de> parents: 2344 diff changeset	3520	text isString ifFalse:[
8b7b3e384002 fallBack to activeHelpKey and label, if no flyByHelp is Claus Gittinger <cg@exept.de> parents: 2344 diff changeset	3521	text := nil.
8b7b3e384002 fallBack to activeHelpKey and label, if no flyByHelp is Claus Gittinger <cg@exept.de> parents: 2344 diff changeset	3522	]
8b7b3e384002 fallBack to activeHelpKey and label, if no flyByHelp is Claus Gittinger <cg@exept.de> parents: 2344 diff changeset	3523	]
2326 a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	3524	].
a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	3525	^ text
2058 f0a23f80454e flyByHelp Claus Gittinger <cg@exept.de> parents: 2052 diff changeset	3526	!
f0a23f80454e flyByHelp Claus Gittinger <cg@exept.de> parents: 2052 diff changeset	3527
1251 eb5b4cdbacde fixed helpText display; Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	3528	helpText
1613 5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	3529	"return the helpText for the currently selected item (empty if none)
5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	3530	"
5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	3531	^ self helpTextForItem:selection
1251 eb5b4cdbacde fixed helpText display; Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	3532	!
eb5b4cdbacde fixed helpText display; Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	3533
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3534	helpTextAt:srcPoint
1252 6db6906da49b debug print Claus Gittinger <cg@exept.de> parents: 1251 diff changeset	3535	"return the helpText for aPoint (i.e. when mouse-pointer is moved over an item).
6db6906da49b debug print Claus Gittinger <cg@exept.de> parents: 1251 diff changeset	3536	If there is a selection, that items helpText is used (ignoreing the given point).
6db6906da49b debug print Claus Gittinger <cg@exept.de> parents: 1251 diff changeset	3537	"
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3538	\|dstMenu dstPoint\|
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3539
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3540	dstMenu := self detectMenuAtGrabPoint:srcPoint.
2345 8b7b3e384002 fallBack to activeHelpKey and label, if no flyByHelp is Claus Gittinger <cg@exept.de> parents: 2344 diff changeset	3541	dstMenu isNil ifTrue:[^ ''].
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3542
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3543	dstPoint := dstMenu translateGrabPoint:srcPoint.
2347 9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	3544	^ dstMenu helpTextForItem:(dstMenu itemAtPoint:dstPoint).
1613 5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	3545	!
5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	3546
5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	3547	helpTextForItem:anItem
5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	3548	"returns the helpText for an item (empty if none)
5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	3549	"
2345 8b7b3e384002 fallBack to activeHelpKey and label, if no flyByHelp is Claus Gittinger <cg@exept.de> parents: 2344 diff changeset	3550	\|key text app\|
1613 5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	3551
5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	3552	anItem isNil ifTrue:[^ ''].
5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	3553
2345 8b7b3e384002 fallBack to activeHelpKey and label, if no flyByHelp is Claus Gittinger <cg@exept.de> parents: 2344 diff changeset	3554	text := anItem activeHelpText.
8b7b3e384002 fallBack to activeHelpKey and label, if no flyByHelp is Claus Gittinger <cg@exept.de> parents: 2344 diff changeset	3555	text isNil ifTrue:[
8b7b3e384002 fallBack to activeHelpKey and label, if no flyByHelp is Claus Gittinger <cg@exept.de> parents: 2344 diff changeset	3556	((key := anItem activeHelpKey) notNil
8b7b3e384002 fallBack to activeHelpKey and label, if no flyByHelp is Claus Gittinger <cg@exept.de> parents: 2344 diff changeset	3557	and:[(app := self application) notNil]) ifTrue:[
8b7b3e384002 fallBack to activeHelpKey and label, if no flyByHelp is Claus Gittinger <cg@exept.de> parents: 2344 diff changeset	3558	text := app helpTextForKey:key.
8b7b3e384002 fallBack to activeHelpKey and label, if no flyByHelp is Claus Gittinger <cg@exept.de> parents: 2344 diff changeset	3559	"/ text notNil ifTrue:[
8b7b3e384002 fallBack to activeHelpKey and label, if no flyByHelp is Claus Gittinger <cg@exept.de> parents: 2344 diff changeset	3560	"/ anItem activeHelpText:text.
8b7b3e384002 fallBack to activeHelpKey and label, if no flyByHelp is Claus Gittinger <cg@exept.de> parents: 2344 diff changeset	3561	"/ ]
8b7b3e384002 fallBack to activeHelpKey and label, if no flyByHelp is Claus Gittinger <cg@exept.de> parents: 2344 diff changeset	3562	].
8b7b3e384002 fallBack to activeHelpKey and label, if no flyByHelp is Claus Gittinger <cg@exept.de> parents: 2344 diff changeset	3563	].
8b7b3e384002 fallBack to activeHelpKey and label, if no flyByHelp is Claus Gittinger <cg@exept.de> parents: 2344 diff changeset	3564	^ text
1251 eb5b4cdbacde fixed helpText display; Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	3565	! !
eb5b4cdbacde fixed helpText display; Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	3566
794 5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	3567	!MenuPanel methodsFor:'image registration'!
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	3568
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	3569	imageOnDevice:anImage
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	3570	"returns image registered on device
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	3571	"
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	3572	^ self class image:anImage onDevice:device
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	3573	!
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	3574
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	3575	lightenedImageOnDevice:anImage
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	3576	"returns lightened image registered on device
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	3577	"
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	3578	^ self class lightenedImage:anImage onDevice:device
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	3579	! !
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	3580
1688 271829d6a2e4 category changes Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3581	!MenuPanel methodsFor:'initialization & release'!
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3582
767 ffa2a09a1039 added #addToCurrentProject in order to avoid restart errors tz parents: 746 diff changeset	3583	addToCurrentProject
ffa2a09a1039 added #addToCurrentProject in order to avoid restart errors tz parents: 746 diff changeset	3584	"ignored here"
ffa2a09a1039 added #addToCurrentProject in order to avoid restart errors tz parents: 746 diff changeset	3585	!
ffa2a09a1039 added #addToCurrentProject in order to avoid restart errors tz parents: 746 diff changeset	3586
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3587	create
616 a6157b083830 support of different styles ca parents: 608 diff changeset	3588	"create the shadow view for a none contained submenu
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3589	"
dce33f8bb806 intitial checkin ca parents: diff changeset	3590	super create.
dce33f8bb806 intitial checkin ca parents: diff changeset	3591
dce33f8bb806 intitial checkin ca parents: diff changeset	3592	self isPopUpView ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	3593	(PopUpView shadowsOnDevice:device) ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	3594	shadowView isNil ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	3595	shadowView := (ShadowView onDevice:device) for:self
93426020ceed * empty log message * ca parents: 2216 diff changeset	3596	] ifFalse:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	3597	self saveUnder:true.
93426020ceed * empty log message * ca parents: 2216 diff changeset	3598	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	3599	]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3600	] ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	3601	explicitExtent == true ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	3602	(self width) == (superView width) ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	3603	self verticalLayout:false
93426020ceed * empty log message * ca parents: 2216 diff changeset	3604	]
93426020ceed * empty log message * ca parents: 2216 diff changeset	3605	]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3606	]
1024 28c87a2369f6 show active help on pointer motion. Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	3607
28c87a2369f6 show active help on pointer motion. Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	3608	"Modified: / 28.7.1998 / 02:11:44 / cg"
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3609	!
dce33f8bb806 intitial checkin ca parents: diff changeset	3610
dce33f8bb806 intitial checkin ca parents: diff changeset	3611	destroy
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3612	"destroy items and shadowView; remove dependencies
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3613	"
798 74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	3614	self clearLastActiveMenu.
2051 d958c12cc08e * empty log message * Claus Gittinger <cg@exept.de> parents: 2050 diff changeset	3615	items notNil ifTrue:[items copy do:[:el\|el destroy]].
2050 ef5517d7a2d0 do not destroy myself after accepting (for PopUpList) Claus Gittinger <cg@exept.de> parents: 2048 diff changeset	3616	items := nil.
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3617
498 b4c341497621 bug fixes: ca parents: 475 diff changeset	3618	menuHolder notNil ifTrue:[menuHolder removeDependent:self].
b4c341497621 bug fixes: ca parents: 475 diff changeset	3619	enableChannel notNil ifTrue:[enableChannel removeDependent:self].
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3620
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3621	super destroy.
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3622	superMenu := nil.
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3623	shadowView notNil ifTrue:[shadowView destroy].
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3624
2051 d958c12cc08e * empty log message * Claus Gittinger <cg@exept.de> parents: 2050 diff changeset	3625	"Modified: / 15.11.2001 / 17:08:45 / cg"
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3626	!
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3627
616 a6157b083830 support of different styles ca parents: 608 diff changeset	3628	fetchDeviceResources
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	3629	"fetch device colors, to avoid reallocation at redraw time
93426020ceed * empty log message * ca parents: 2216 diff changeset	3630	"
93426020ceed * empty log message * ca parents: 2216 diff changeset	3631	\|style\|
93426020ceed * empty log message * ca parents: 2216 diff changeset	3632
93426020ceed * empty log message * ca parents: 2216 diff changeset	3633	superMenu ifNotNil:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	3634	styleSheet := superMenu styleSheet
93426020ceed * empty log message * ca parents: 2216 diff changeset	3635	].
616 a6157b083830 support of different styles ca parents: 608 diff changeset	3636
a6157b083830 support of different styles ca parents: 608 diff changeset	3637	super fetchDeviceResources.
a6157b083830 support of different styles ca parents: 608 diff changeset	3638
1081 fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	3639	"/ thats a kludge - will be replaced by values from the styleSheet ...
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	3640	"/ (i.e. read menu.buttonActiveLevel & menu.buttonPassiveLevel)
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	3641
616 a6157b083830 support of different styles ca parents: 608 diff changeset	3642	superMenu isNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	3643	rightArrow ifNil:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	3644	rightArrow := SelectionInListView rightArrowFormOn:device.
2059 c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	3645	].
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	3646	fgColor := fgColor onDevice:device.
93426020ceed * empty log message * ca parents: 2216 diff changeset	3647	style := styleSheet name.
93426020ceed * empty log message * ca parents: 2216 diff changeset	3648
93426020ceed * empty log message * ca parents: 2216 diff changeset	3649	(style ~~ #os2 and:[style ~~ #win95]) ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	3650	rightArrowShadow := SelectionInListView rightArrowShadowFormOn:device
93426020ceed * empty log message * ca parents: 2216 diff changeset	3651	] ifFalse:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	3652	rightArrowShadow := nil
93426020ceed * empty log message * ca parents: 2216 diff changeset	3653	].
616 a6157b083830 support of different styles ca parents: 608 diff changeset	3654	] ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	3655	rightArrow := superMenu rightArrow.
93426020ceed * empty log message * ca parents: 2216 diff changeset	3656	rightArrowShadow := superMenu rightArrowShadow.
93426020ceed * empty log message * ca parents: 2216 diff changeset	3657
93426020ceed * empty log message * ca parents: 2216 diff changeset	3658	self foregroundColor:(superMenu foregroundColor).
93426020ceed * empty log message * ca parents: 2216 diff changeset	3659	self font:(superMenu font).
93426020ceed * empty log message * ca parents: 2216 diff changeset	3660	self viewBackground:(superMenu viewBackground).
1137 7df0b776e47a fixes for 2D styles (borderWidth) Claus Gittinger <cg@exept.de> parents: 1130 diff changeset	3661	].
7df0b776e47a fixes for 2D styles (borderWidth) Claus Gittinger <cg@exept.de> parents: 1130 diff changeset	3662
1829 bd8b95c5bb89 migration fixes Claus Gittinger <cg@exept.de> parents: 1825 diff changeset	3663	items notNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	3664	items do:[:eachItem\| eachItem fetchDeviceResources ]
1829 bd8b95c5bb89 migration fixes Claus Gittinger <cg@exept.de> parents: 1825 diff changeset	3665	].
bd8b95c5bb89 migration fixes Claus Gittinger <cg@exept.de> parents: 1825 diff changeset	3666
1137 7df0b776e47a fixes for 2D styles (borderWidth) Claus Gittinger <cg@exept.de> parents: 1130 diff changeset	3667	"Modified: / 15.9.1998 / 12:51:29 / cg"
616 a6157b083830 support of different styles ca parents: 608 diff changeset	3668	!
a6157b083830 support of different styles ca parents: 608 diff changeset	3669
580 249f6cfc5bb2 checkin from browser Claus Gittinger <cg@exept.de> parents: 571 diff changeset	3670	initStyle
249f6cfc5bb2 checkin from browser Claus Gittinger <cg@exept.de> parents: 571 diff changeset	3671	"initialize style specific stuff"
249f6cfc5bb2 checkin from browser Claus Gittinger <cg@exept.de> parents: 571 diff changeset	3672
249f6cfc5bb2 checkin from browser Claus Gittinger <cg@exept.de> parents: 571 diff changeset	3673	super initStyle.
616 a6157b083830 support of different styles ca parents: 608 diff changeset	3674
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	3675	viewBackground := styleSheet colorAt:#'menuPanel.backgroundColor'.
93426020ceed * empty log message * ca parents: 2216 diff changeset	3676	font := styleSheet fontAt:#'menu.font'.
93426020ceed * empty log message * ca parents: 2216 diff changeset	3677	fgColor := styleSheet colorAt:#'menuPanel.foregroundColor'.
1923 530426a3d692 support #level: ca parents: 1922 diff changeset	3678
2347 9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	3679	defaultHideOnRelease := styleSheet at:#'popup.hideOnRelease' default:true.
9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	3680
2003 732fbaf5864f avoid changing the level after realization (to avoid confusing the shadow) Claus Gittinger <cg@exept.de> parents: 2000 diff changeset	3681	self updateLevelAndBorder.
580 249f6cfc5bb2 checkin from browser Claus Gittinger <cg@exept.de> parents: 571 diff changeset	3682	!
249f6cfc5bb2 checkin from browser Claus Gittinger <cg@exept.de> parents: 571 diff changeset	3683
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3684	initialize
dce33f8bb806 intitial checkin ca parents: diff changeset	3685	"set default configuration
dce33f8bb806 intitial checkin ca parents: diff changeset	3686	"
dce33f8bb806 intitial checkin ca parents: diff changeset	3687	super initialize.
616 a6157b083830 support of different styles ca parents: 608 diff changeset	3688
1730 4936edfc2eee must enable motion events in #initialize (not in map) Claus Gittinger <cg@exept.de> parents: 1728 diff changeset	3689	self enableMotionEvents.
498 b4c341497621 bug fixes: ca parents: 475 diff changeset	3690	enabled := true.
1877 3b415fa4710f only access originChanged, extentChanged and cornerChanged Claus Gittinger <cg@exept.de> parents: 1874 diff changeset	3691	self extentChangedFlag:false.
3b415fa4710f only access originChanged, extentChanged and cornerChanged Claus Gittinger <cg@exept.de> parents: 1874 diff changeset	3692	self originChangedFlag:false.
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	3693	explicitExtent := nil.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	3694	shortKeyInset := 0.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	3695	mustRearrange := false.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	3696	showSeparatingLines := false.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	3697	showGroupDivider := true.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3698	!
dce33f8bb806 intitial checkin ca parents: diff changeset	3699
1573 fd124ee2bce5 shortcutKeys; arrange layout if selection changed ca parents: 1572 diff changeset	3700	map
717 540e638fdebb Avoid pointer and keyboard grabbing if not necessary Stefan Vogel <sv@exept.de> parents: 712 diff changeset	3701	"grab the pointer here, when visible (but not if control has already been lost).
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3702	If the grab fails, try again and unmap myself if that fails too.
dce33f8bb806 intitial checkin ca parents: diff changeset	3703	"
1791 bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	3704	\|loIndices loItems\|
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3705
1690 38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3706	enteredItem := nil.
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3707
1024 28c87a2369f6 show active help on pointer motion. Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	3708	self enableMotionEvents.
798 74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	3709	self becomesActiveMenu.
1573 fd124ee2bce5 shortcutKeys; arrange layout if selection changed ca parents: 1572 diff changeset	3710	super map.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3711
1785 efa4cc8ca917 mnemonic behaviour changed ca parents: 1775 diff changeset	3712	loIndices := InitialSelectionQuerySignal query.
1791 bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	3713	loItems := items ? #[].
bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	3714
bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	3715	loItems do:[:anItem\| anItem fetchImages ].
1572 80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	3716
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3717	self isPopUpView ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	3718	self doGrab
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3719	] ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	3720	super viewBackground:(self backgroundColor).
717 540e638fdebb Avoid pointer and keyboard grabbing if not necessary Stefan Vogel <sv@exept.de> parents: 712 diff changeset	3721	].
1791 bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	3722	loItems do:[:el\| el updateIndicators ].
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3723
1785 efa4cc8ca917 mnemonic behaviour changed ca parents: 1775 diff changeset	3724	loIndices size > 0 ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	3725	self redrawX:0 y:0 width:width height:height.
93426020ceed * empty log message * ca parents: 2216 diff changeset	3726	self openMenusFromItemIndices:loIndices.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3727	].
dce33f8bb806 intitial checkin ca parents: diff changeset	3728
1177 cfd7f71639f3 checkin from browser Claus Gittinger <cg@exept.de> parents: 1164 diff changeset	3729	"Modified: / 19.11.1998 / 12:59:00 / cg"
1257 79a40d3f8c2f Use #query instead of #raise when invoking QuerySignals Stefan Vogel <sv@exept.de> parents: 1255 diff changeset	3730	"Modified: / 18.3.1999 / 18:22:18 / stefan"
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3731	!
dce33f8bb806 intitial checkin ca parents: diff changeset	3732
dce33f8bb806 intitial checkin ca parents: diff changeset	3733	realize
dce33f8bb806 intitial checkin ca parents: diff changeset	3734	"realize menu and shadowView
dce33f8bb806 intitial checkin ca parents: diff changeset	3735	"
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3736
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3737	self isPopUpView ifTrue:[
2347 9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	3738	"Because of #saveUnder of ShadowView the order of realize is significant:
9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	3739	shadowView must be realized before self"
9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	3740	self hiddenOnRealize:true.
9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	3741	super realize.
9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	3742	self resize.
9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	3743	self makeFullyVisible.
2003 732fbaf5864f avoid changing the level after realization (to avoid confusing the shadow) Claus Gittinger <cg@exept.de> parents: 2000 diff changeset	3744	"/ self mustRearrange.
2347 9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	3745	shadowView notNil ifTrue:[
9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	3746	shadowView realize.
9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	3747	].
9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	3748	self raise.
9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	3749	self map.
736 220741d8049b Use #saveUnder. Claus Gittinger <cg@exept.de> parents: 735 diff changeset	3750	] ifFalse:[
2347 9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	3751	super realize.
1767 e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	3752	].
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	3753	self allSubViewsDo:[:aView\| aView realize ].
2347 9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	3754	hideOnRelease := defaultHideOnRelease.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3755	!
dce33f8bb806 intitial checkin ca parents: diff changeset	3756
dce33f8bb806 intitial checkin ca parents: diff changeset	3757	recreate
1832 f6e6640e99a3 comment Claus Gittinger <cg@exept.de> parents: 1829 diff changeset	3758	"this is called after a snapin or a migration.
f6e6640e99a3 comment Claus Gittinger <cg@exept.de> parents: 1829 diff changeset	3759	If the image was saved with an active menu, hide the menu
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3760	"
1455 5685ec322a5b sizeChanged:... Claus Gittinger <cg@exept.de> parents: 1388 diff changeset	3761	selection := nil.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3762	super recreate.
dce33f8bb806 intitial checkin ca parents: diff changeset	3763	!
dce33f8bb806 intitial checkin ca parents: diff changeset	3764
1130 fb79ef4aeec8 style changes Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	3765	reinitStyle
fb79ef4aeec8 style changes Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	3766	"handle style change while being open (win32 only - for now)"
fb79ef4aeec8 style changes Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	3767
fb79ef4aeec8 style changes Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	3768	super reinitStyle.
fb79ef4aeec8 style changes Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	3769
fb79ef4aeec8 style changes Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	3770	self fetchDeviceResources.
1811 df4f5e5b3396 restart under windows Claus Gittinger <cg@exept.de> parents: 1810 diff changeset	3771	self mustRearrange. "/ care for changed font sizes etc.
df4f5e5b3396 restart under windows Claus Gittinger <cg@exept.de> parents: 1810 diff changeset	3772
df4f5e5b3396 restart under windows Claus Gittinger <cg@exept.de> parents: 1810 diff changeset	3773	self do:[:anItem \|
df4f5e5b3396 restart under windows Claus Gittinger <cg@exept.de> parents: 1810 diff changeset	3774	anItem reinitStyle
df4f5e5b3396 restart under windows Claus Gittinger <cg@exept.de> parents: 1810 diff changeset	3775	].
1130 fb79ef4aeec8 style changes Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	3776
fb79ef4aeec8 style changes Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	3777	"Created: / 10.9.1998 / 21:37:05 / cg"
1811 df4f5e5b3396 restart under windows Claus Gittinger <cg@exept.de> parents: 1810 diff changeset	3778	"Modified: / 17.8.2000 / 18:01:33 / cg"
1130 fb79ef4aeec8 style changes Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	3779	!
fb79ef4aeec8 style changes Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	3780
1796 c9d801c011f7 recompute layout after snapIn (font geometry could be different) Claus Gittinger <cg@exept.de> parents: 1795 diff changeset	3781	reinitialize
c9d801c011f7 recompute layout after snapIn (font geometry could be different) Claus Gittinger <cg@exept.de> parents: 1795 diff changeset	3782	"reinit after a snapIn
c9d801c011f7 recompute layout after snapIn (font geometry could be different) Claus Gittinger <cg@exept.de> parents: 1795 diff changeset	3783	"
c9d801c011f7 recompute layout after snapIn (font geometry could be different) Claus Gittinger <cg@exept.de> parents: 1795 diff changeset	3784
c9d801c011f7 recompute layout after snapIn (font geometry could be different) Claus Gittinger <cg@exept.de> parents: 1795 diff changeset	3785	super reinitialize.
1811 df4f5e5b3396 restart under windows Claus Gittinger <cg@exept.de> parents: 1810 diff changeset	3786	"/ self reinitStyle.
df4f5e5b3396 restart under windows Claus Gittinger <cg@exept.de> parents: 1810 diff changeset	3787
df4f5e5b3396 restart under windows Claus Gittinger <cg@exept.de> parents: 1810 diff changeset	3788	"Modified: / 17.8.2000 / 17:53:31 / cg"
1796 c9d801c011f7 recompute layout after snapIn (font geometry could be different) Claus Gittinger <cg@exept.de> parents: 1795 diff changeset	3789	!
c9d801c011f7 recompute layout after snapIn (font geometry could be different) Claus Gittinger <cg@exept.de> parents: 1795 diff changeset	3790
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3791	unmap
1330 63d2fe5ebd48 comment Claus Gittinger <cg@exept.de> parents: 1313 diff changeset	3792	"unmap the view - the view stays created (but invisible), and can be remapped again later.
63d2fe5ebd48 comment Claus Gittinger <cg@exept.de> parents: 1313 diff changeset	3793	If we have a popup supermenu, it will get all keyboard and mouse events."
736 220741d8049b Use #saveUnder. Claus Gittinger <cg@exept.de> parents: 735 diff changeset	3794
798 74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	3795	self clearLastActiveMenu.
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3796	self doUngrab:(superMenu isNil).
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3797	"/ self isPopUpView ifTrue:[
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3798	"/ self doUngrab:(superMenu isNil)
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3799	"/ ].
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3800
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3801	super unmap.
dce33f8bb806 intitial checkin ca parents: diff changeset	3802	shadowView notNil ifTrue:[shadowView unmap].
2003 732fbaf5864f avoid changing the level after realization (to avoid confusing the shadow) Claus Gittinger <cg@exept.de> parents: 2000 diff changeset	3803	!
732fbaf5864f avoid changing the level after realization (to avoid confusing the shadow) Claus Gittinger <cg@exept.de> parents: 2000 diff changeset	3804
732fbaf5864f avoid changing the level after realization (to avoid confusing the shadow) Claus Gittinger <cg@exept.de> parents: 2000 diff changeset	3805	updateLevelAndBorder
732fbaf5864f avoid changing the level after realization (to avoid confusing the shadow) Claus Gittinger <cg@exept.de> parents: 2000 diff changeset	3806	"update level & border, when it is known if I am a popUpView"
732fbaf5864f avoid changing the level after realization (to avoid confusing the shadow) Claus Gittinger <cg@exept.de> parents: 2000 diff changeset	3807
732fbaf5864f avoid changing the level after realization (to avoid confusing the shadow) Claus Gittinger <cg@exept.de> parents: 2000 diff changeset	3808	\|bw lvl\|
732fbaf5864f avoid changing the level after realization (to avoid confusing the shadow) Claus Gittinger <cg@exept.de> parents: 2000 diff changeset	3809
732fbaf5864f avoid changing the level after realization (to avoid confusing the shadow) Claus Gittinger <cg@exept.de> parents: 2000 diff changeset	3810	self isPopUpView ifTrue:[
732fbaf5864f avoid changing the level after realization (to avoid confusing the shadow) Claus Gittinger <cg@exept.de> parents: 2000 diff changeset	3811	bw := styleSheet at:#'popup.borderWidth' default:1.
732fbaf5864f avoid changing the level after realization (to avoid confusing the shadow) Claus Gittinger <cg@exept.de> parents: 2000 diff changeset	3812	lvl := styleSheet at:#'popup.level' default:0.
732fbaf5864f avoid changing the level after realization (to avoid confusing the shadow) Claus Gittinger <cg@exept.de> parents: 2000 diff changeset	3813	] ifFalse:[
732fbaf5864f avoid changing the level after realization (to avoid confusing the shadow) Claus Gittinger <cg@exept.de> parents: 2000 diff changeset	3814	bw := styleSheet is3D ifFalse:[1] ifTrue:[0].
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	3815	lvl := styleSheet at:#'menuPanel.level'.
2003 732fbaf5864f avoid changing the level after realization (to avoid confusing the shadow) Claus Gittinger <cg@exept.de> parents: 2000 diff changeset	3816	].
732fbaf5864f avoid changing the level after realization (to avoid confusing the shadow) Claus Gittinger <cg@exept.de> parents: 2000 diff changeset	3817	self borderWidth:bw.
732fbaf5864f avoid changing the level after realization (to avoid confusing the shadow) Claus Gittinger <cg@exept.de> parents: 2000 diff changeset	3818	self level:lvl.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3819	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	3820
1878 1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3821	!MenuPanel methodsFor:'keyboard control'!
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3822
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3823	mnemonicViewNext:aKeyEvent
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3824	"a mnemonicKey event as forwarded from the keyboardProcessor - if there
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3825	is the mnemonic-key defined for any menuItem, handle the menuItem and
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3826	return the topMenu otherwise nil.
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3827	"
2112 c4cd07f21fac processing mnemonic's (search next from current) ca parents: 2111 diff changeset	3828	\|menu uKey lKey list index\|
c4cd07f21fac processing mnemonic's (search next from current) ca parents: 2111 diff changeset	3829
c4cd07f21fac processing mnemonic's (search next from current) ca parents: 2111 diff changeset	3830	superMenu notNil ifTrue:[ ^ superMenu mnemonicViewNext:aKeyEvent ].
1878 1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3831	shown ifFalse:[^ nil].
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3832
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3833	uKey := aKeyEvent rawKey last asUppercase.
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3834	lKey := uKey asLowercase.
2112 c4cd07f21fac processing mnemonic's (search next from current) ca parents: 2111 diff changeset	3835
c4cd07f21fac processing mnemonic's (search next from current) ca parents: 2111 diff changeset	3836	selection notNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	3837	"first lookup the current grapMenu before starting in the topMenu
93426020ceed * empty log message * ca parents: 2216 diff changeset	3838	"
93426020ceed * empty log message * ca parents: 2216 diff changeset	3839	menu := self detectGrabMenu.
93426020ceed * empty log message * ca parents: 2216 diff changeset	3840
93426020ceed * empty log message * ca parents: 2216 diff changeset	3841	[ menu ~~ self ] whileTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	3842	index := menu selectionIndex.
93426020ceed * empty log message * ca parents: 2216 diff changeset	3843	list := menu selectItemIndicesFor:[:el\|\|k\| k := el accessCharacter. k == uKey or:[k == lKey]]
93426020ceed * empty log message * ca parents: 2216 diff changeset	3844	maxDepth:10 from:(index + 1) to:99999.
2112 c4cd07f21fac processing mnemonic's (search next from current) ca parents: 2111 diff changeset	3845
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	3846	list size ~~ 0 ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	3847	"/ has item which responds to the mnemonic
93426020ceed * empty log message * ca parents: 2216 diff changeset	3848	menu processCollectedIndices:list.
93426020ceed * empty log message * ca parents: 2216 diff changeset	3849	^ self
93426020ceed * empty log message * ca parents: 2216 diff changeset	3850	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	3851	menu := menu superMenu.
93426020ceed * empty log message * ca parents: 2216 diff changeset	3852	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	3853	index := self selectionIndex.
93426020ceed * empty log message * ca parents: 2216 diff changeset	3854	list := self selectItemIndicesFor:[:el\|\|k\| k := el accessCharacter. k == uKey or:[k == lKey] ]
93426020ceed * empty log message * ca parents: 2216 diff changeset	3855	maxDepth:10 from:(1 + index) to:99999.
2112 c4cd07f21fac processing mnemonic's (search next from current) ca parents: 2111 diff changeset	3856	] ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	3857	index := 99999.
93426020ceed * empty log message * ca parents: 2216 diff changeset	3858	list := nil.
2112 c4cd07f21fac processing mnemonic's (search next from current) ca parents: 2111 diff changeset	3859	].
c4cd07f21fac processing mnemonic's (search next from current) ca parents: 2111 diff changeset	3860
c4cd07f21fac processing mnemonic's (search next from current) ca parents: 2111 diff changeset	3861	list ifNil:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	3862	list := self selectItemIndicesFor:[:el\|\|k\| k := el accessCharacter. k == uKey or:[k == lKey] ]
93426020ceed * empty log message * ca parents: 2216 diff changeset	3863	maxDepth:10 from:1 to:index.
93426020ceed * empty log message * ca parents: 2216 diff changeset	3864
93426020ceed * empty log message * ca parents: 2216 diff changeset	3865	list isNil ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	3866	"/ must clear existing selection
93426020ceed * empty log message * ca parents: 2216 diff changeset	3867	self selection:nil.
93426020ceed * empty log message * ca parents: 2216 diff changeset	3868	^ nil
93426020ceed * empty log message * ca parents: 2216 diff changeset	3869	]
2112 c4cd07f21fac processing mnemonic's (search next from current) ca parents: 2111 diff changeset	3870	].
c4cd07f21fac processing mnemonic's (search next from current) ca parents: 2111 diff changeset	3871
c4cd07f21fac processing mnemonic's (search next from current) ca parents: 2111 diff changeset	3872	"/ has item which responds to the mnemonic
c4cd07f21fac processing mnemonic's (search next from current) ca parents: 2111 diff changeset	3873	self processCollectedIndices:list.
c4cd07f21fac processing mnemonic's (search next from current) ca parents: 2111 diff changeset	3874	^ self
1889 43516e4588ce give warning messages for unimplemented menu-aspects Claus Gittinger <cg@exept.de> parents: 1878 diff changeset	3875	!
1878 1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3876
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3877	openMenusFromItemIndices:anItemIndiceList
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3878	"open all menus derived from sequence of item indices
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3879	"
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3880	\|item\|
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3881
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3882	anItemIndiceList size == 0 ifTrue:[
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	3883	^ self
1878 1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3884	].
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3885	item := self itemAt:(anItemIndiceList removeFirst).
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3886
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3887	(item notNil and:[item enabled]) ifTrue:[
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	3888	InitialSelectionQuerySignal answer:anItemIndiceList do:[
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	3889	self selection:item openMenu:true.
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	3890	]
1889 43516e4588ce give warning messages for unimplemented menu-aspects Claus Gittinger <cg@exept.de> parents: 1878 diff changeset	3891	].
43516e4588ce give warning messages for unimplemented menu-aspects Claus Gittinger <cg@exept.de> parents: 1878 diff changeset	3892	!
1878 1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3893
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3894	processCollectedIndices:indices
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3895	\|menu item\|
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3896
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3897	indices size == 0 ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	3898	^ self
1878 1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3899	].
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3900	menu := self.
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3901
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3902	[menu selectionIndex == indices first] whileTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	3903	( (item := menu selection) isNil "/ shouldn't happen
93426020ceed * empty log message * ca parents: 2216 diff changeset	3904	or:[(menu := item submenu) isNil] "/ no more indices; done
93426020ceed * empty log message * ca parents: 2216 diff changeset	3905	) ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	3906	^ true
93426020ceed * empty log message * ca parents: 2216 diff changeset	3907	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	3908	indices removeFirst.
93426020ceed * empty log message * ca parents: 2216 diff changeset	3909
93426020ceed * empty log message * ca parents: 2216 diff changeset	3910	indices isEmpty ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	3911	menu selection:nil.
93426020ceed * empty log message * ca parents: 2216 diff changeset	3912	^ self
93426020ceed * empty log message * ca parents: 2216 diff changeset	3913	]
1878 1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3914	].
1889 43516e4588ce give warning messages for unimplemented menu-aspects Claus Gittinger <cg@exept.de> parents: 1878 diff changeset	3915	menu openMenusFromItemIndices:indices.
43516e4588ce give warning messages for unimplemented menu-aspects Claus Gittinger <cg@exept.de> parents: 1878 diff changeset	3916	!
1878 1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3917
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3918	processShortcut:aKeyEvent
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3919	"a shortcutKey event as forwarded from the keyboardProcessor - if there is the
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3920	shortcut-key defined process the shortcut and return true otherwise false.
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3921	"
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	3922	\|menu rKey lKey list item\|
1878 1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3923
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3924	superMenu notNil ifTrue:[
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3925	^ superMenu processShortcut:aKeyEvent
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3926	].
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3927	shown ifFalse:[^ false].
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3928
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3929	item := nil.
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3930	rKey := aKeyEvent rawKey.
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3931	lKey := aKeyEvent key.
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3932	menu := self detectGrabMenu. "/ first lookup the current grapMenu before starting in the topMenu
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3933
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3934	[true] whileTrue:[
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3935	list := menu selectItemIndicesFor:[:el\|\|skey\|
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3936	item := el.
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3937	skey := el shortcutKey.
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3938	skey == rKey or:[skey == lKey]
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3939	]
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3940	maxDepth:10.
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3941
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3942	list size ~~ 0 ifTrue:[
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3943	"/ has item which responds to the shortcut
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3944	item hasSubmenu ifFalse:[
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3945	menu accept:item
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3946	] ifTrue:[
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3947	menu processCollectedIndices:list.
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3948	self windowGroup focusView:self.
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3949	].
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3950	^ true
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3951	].
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3952
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3953	menu == self ifTrue:[ ^ false ].
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3954	menu := self.
1889 43516e4588ce give warning messages for unimplemented menu-aspects Claus Gittinger <cg@exept.de> parents: 1878 diff changeset	3955	].
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	3956	^ false "/ never reached
1889 43516e4588ce give warning messages for unimplemented menu-aspects Claus Gittinger <cg@exept.de> parents: 1878 diff changeset	3957	!
1878 1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3958
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3959	selectItemIndicesFor:aOneArgBlock maxDepth:maxDepth
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3960	"returns the sequence of indices up to the item for which the block
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3961	returns true. The first entry is the topmenu, the last entry the
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3962	item for which the block returns true.
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3963	If no item is detected, nil is returned
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3964	"
2112 c4cd07f21fac processing mnemonic's (search next from current) ca parents: 2111 diff changeset	3965	^ self selectItemIndicesFor:aOneArgBlock maxDepth:maxDepth from:1 to:99999
c4cd07f21fac processing mnemonic's (search next from current) ca parents: 2111 diff changeset	3966	!
c4cd07f21fac processing mnemonic's (search next from current) ca parents: 2111 diff changeset	3967
c4cd07f21fac processing mnemonic's (search next from current) ca parents: 2111 diff changeset	3968	selectItemIndicesFor:aOneArgBlock maxDepth:maxDepth from:aStart to:aStop
c4cd07f21fac processing mnemonic's (search next from current) ca parents: 2111 diff changeset	3969	"returns the sequence of indices up to the item for which the block
c4cd07f21fac processing mnemonic's (search next from current) ca parents: 2111 diff changeset	3970	returns true. The first entry is the topmenu, the last entry the
c4cd07f21fac processing mnemonic's (search next from current) ca parents: 2111 diff changeset	3971	item for which the block returns true.
c4cd07f21fac processing mnemonic's (search next from current) ca parents: 2111 diff changeset	3972	If no item is detected, nil is returned
c4cd07f21fac processing mnemonic's (search next from current) ca parents: 2111 diff changeset	3973	"
c4cd07f21fac processing mnemonic's (search next from current) ca parents: 2111 diff changeset	3974	\|start stop\|
c4cd07f21fac processing mnemonic's (search next from current) ca parents: 2111 diff changeset	3975
c4cd07f21fac processing mnemonic's (search next from current) ca parents: 2111 diff changeset	3976	maxDepth <= 0 ifTrue:[^ nil].
c4cd07f21fac processing mnemonic's (search next from current) ca parents: 2111 diff changeset	3977
c4cd07f21fac processing mnemonic's (search next from current) ca parents: 2111 diff changeset	3978	start := aStart max:1.
c4cd07f21fac processing mnemonic's (search next from current) ca parents: 2111 diff changeset	3979	stop := aStop min:(items size).
c4cd07f21fac processing mnemonic's (search next from current) ca parents: 2111 diff changeset	3980
2199 61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	3981	start to:stop do:[:i\| \|item menu seq isItem test\|
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	3982	item := items at:i.
93426020ceed * empty log message * ca parents: 2216 diff changeset	3983	test := isItem := aOneArgBlock value:item.
93426020ceed * empty log message * ca parents: 2216 diff changeset	3984
93426020ceed * empty log message * ca parents: 2216 diff changeset	3985	test ifFalse:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	3986	item hasSubmenu ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	3987	test := item hasDelayedMenu not
93426020ceed * empty log message * ca parents: 2216 diff changeset	3988	]
93426020ceed * empty log message * ca parents: 2216 diff changeset	3989	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	3990	test ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	3991	(item enabled and:[item isVisible]) ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	3992	isItem ifTrue:[ ^ OrderedCollection with:i ].
93426020ceed * empty log message * ca parents: 2216 diff changeset	3993
93426020ceed * empty log message * ca parents: 2216 diff changeset	3994	"process submenu"
93426020ceed * empty log message * ca parents: 2216 diff changeset	3995	menu := item submenu.
93426020ceed * empty log message * ca parents: 2216 diff changeset	3996
93426020ceed * empty log message * ca parents: 2216 diff changeset	3997	(menu notNil and:[menu isEnabled]) ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	3998	seq := menu selectItemIndicesFor:aOneArgBlock maxDepth:(maxDepth - 1).
93426020ceed * empty log message * ca parents: 2216 diff changeset	3999	seq notNil ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	4000	seq addFirst:i.
93426020ceed * empty log message * ca parents: 2216 diff changeset	4001	^ seq
93426020ceed * empty log message * ca parents: 2216 diff changeset	4002	]
93426020ceed * empty log message * ca parents: 2216 diff changeset	4003	]
93426020ceed * empty log message * ca parents: 2216 diff changeset	4004	]
93426020ceed * empty log message * ca parents: 2216 diff changeset	4005	].
1878 1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	4006	].
1889 43516e4588ce give warning messages for unimplemented menu-aspects Claus Gittinger <cg@exept.de> parents: 1878 diff changeset	4007	^ nil
43516e4588ce give warning messages for unimplemented menu-aspects Claus Gittinger <cg@exept.de> parents: 1878 diff changeset	4008	! !
1878 1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	4009
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4010	!MenuPanel methodsFor:'misc'!
dce33f8bb806 intitial checkin ca parents: diff changeset	4011
427 82cbad72e197 raiseDeiconified is treated like a raise Claus Gittinger <cg@exept.de> parents: 420 diff changeset	4012	raiseDeiconified
82cbad72e197 raiseDeiconified is treated like a raise Claus Gittinger <cg@exept.de> parents: 420 diff changeset	4013	^ self raise
82cbad72e197 raiseDeiconified is treated like a raise Claus Gittinger <cg@exept.de> parents: 420 diff changeset	4014
82cbad72e197 raiseDeiconified is treated like a raise Claus Gittinger <cg@exept.de> parents: 420 diff changeset	4015	"Created: 21.6.1997 / 13:29:12 / cg"
82cbad72e197 raiseDeiconified is treated like a raise Claus Gittinger <cg@exept.de> parents: 420 diff changeset	4016	!
82cbad72e197 raiseDeiconified is treated like a raise Claus Gittinger <cg@exept.de> parents: 420 diff changeset	4017
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4018	superMenu
dce33f8bb806 intitial checkin ca parents: diff changeset	4019	"returns supermenu or nil
dce33f8bb806 intitial checkin ca parents: diff changeset	4020	"
dce33f8bb806 intitial checkin ca parents: diff changeset	4021	^ superMenu
dce33f8bb806 intitial checkin ca parents: diff changeset	4022
dce33f8bb806 intitial checkin ca parents: diff changeset	4023
dce33f8bb806 intitial checkin ca parents: diff changeset	4024	!
dce33f8bb806 intitial checkin ca parents: diff changeset	4025
dce33f8bb806 intitial checkin ca parents: diff changeset	4026	topMenu
dce33f8bb806 intitial checkin ca parents: diff changeset	4027	"returns the topMenu; the one having no superMenu
dce33f8bb806 intitial checkin ca parents: diff changeset	4028	"
1791 bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	4029	\|menu smenu\|
bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	4030
bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	4031	menu := self.
bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	4032
bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	4033	[(smenu := menu superMenu) notNil] whileTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	4034	menu := smenu
1791 bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	4035	].
bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	4036	^ menu
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4037	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	4038
1825 962390f1b499 category change Claus Gittinger <cg@exept.de> parents: 1824 diff changeset	4039	!MenuPanel methodsFor:'printing & storing'!
798 74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4040
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4041	printString
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4042	"return a printed representation of the menu
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4043	"
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4044	\|string label\|
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4045
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4046	string := 'Menu:'.
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4047
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4048	self do:[:anItem\|
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	4049	label := anItem label ? ''.
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	4050	string := string ,' ', label printString.
798 74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4051	].
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4052	^ string
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4053
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4054	"Modified: / 27.2.1998 / 17:41:22 / cg"
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4055	! !
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4056
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4057	!MenuPanel methodsFor:'private'!
dce33f8bb806 intitial checkin ca parents: diff changeset	4058
434 9898a2909ef0 add active help for items ca parents: 433 diff changeset	4059	application
1613 5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	4060	"optimize access to retrive the application
5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	4061	"
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	4062	application ifNotNil:[^ application ].
434 9898a2909ef0 add active help for items ca parents: 433 diff changeset	4063
9898a2909ef0 add active help for items ca parents: 433 diff changeset	4064	superMenu notNil ifTrue:[
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	4065	application := superMenu application.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	4066	^ application
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	4067	].
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	4068	application := super application.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	4069	^ application
1872 b20e27632fd8 application fetch fix Claus Gittinger <cg@exept.de> parents: 1870 diff changeset	4070	!
434 9898a2909ef0 add active help for items ca parents: 433 diff changeset	4071
1572 80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	4072	detectItemForKey:aKey
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	4073	"returns the item assigned to a key, accessCharacter or starts with.
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	4074	if no item is detected nil is returned.
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	4075	"
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	4076	\|cIdx uKey lKey item\|
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	4077
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4078	items isNil ifTrue:[^ nil].
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4079
1572 80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	4080	cIdx := self selectionIndex.
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	4081	uKey := aKey asUppercase.
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	4082	lKey := aKey asLowercase.
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	4083
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4084	items keysAndValuesDo:[:anIndex :anItem\| \|char label\|
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	4085	( anIndex ~~ cIdx
93426020ceed * empty log message * ca parents: 2216 diff changeset	4086	and:[anItem canSelect
93426020ceed * empty log message * ca parents: 2216 diff changeset	4087	and:[(label := anItem textLabel) notNil
93426020ceed * empty log message * ca parents: 2216 diff changeset	4088	and:[label size ~~ 0]]]
93426020ceed * empty log message * ca parents: 2216 diff changeset	4089	) ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	4090	(char := anItem accessCharacter) notNil ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	4091	(char == uKey or:[char == lKey]) ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	4092	^ anItem
93426020ceed * empty log message * ca parents: 2216 diff changeset	4093	]
93426020ceed * empty log message * ca parents: 2216 diff changeset	4094	] ifFalse:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	4095	char := label at:1.
93426020ceed * empty log message * ca parents: 2216 diff changeset	4096
93426020ceed * empty log message * ca parents: 2216 diff changeset	4097	(char == uKey or:[char == lKey]) ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	4098	anIndex > cIdx ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	4099	^ anItem
93426020ceed * empty log message * ca parents: 2216 diff changeset	4100	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	4101	item isNil ifTrue:[item := anItem]
93426020ceed * empty log message * ca parents: 2216 diff changeset	4102	]
93426020ceed * empty log message * ca parents: 2216 diff changeset	4103	]
93426020ceed * empty log message * ca parents: 2216 diff changeset	4104	]
1572 80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	4105	].
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	4106	^ item
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	4107	!
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	4108
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	4109	menuAdornmentAt:aSymbol
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4110	"returns a value derived from adornment
dce33f8bb806 intitial checkin ca parents: diff changeset	4111	"
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	4112	adornment ifNil:[^ nil].
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	4113	^ adornment at:aSymbol ifAbsent:nil
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4114	!
dce33f8bb806 intitial checkin ca parents: diff changeset	4115
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	4116	menuAdornmentAt:aSymbol put:something
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	4117	"sets a value for the specific menu
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	4118	"
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	4119	\|oldValue\|
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	4120
653 cf9b6ef11ade bug fix; no automatic rearrange of items ca parents: 650 diff changeset	4121	adornment isNil ifTrue:[
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	4122	something ifNil:[^ self].
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	4123	adornment := IdentityDictionary new.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	4124	] ifFalse:[
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	4125	oldValue := adornment at:aSymbol ifAbsent:nil.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	4126	oldValue == something ifTrue:[^ self].
653 cf9b6ef11ade bug fix; no automatic rearrange of items ca parents: 650 diff changeset	4127	].
cf9b6ef11ade bug fix; no automatic rearrange of items ca parents: 650 diff changeset	4128	adornment at:aSymbol put:something.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4129	!
dce33f8bb806 intitial checkin ca parents: diff changeset	4130
dce33f8bb806 intitial checkin ca parents: diff changeset	4131	onEachPerform:aSelector withArgList:aList
dce33f8bb806 intitial checkin ca parents: diff changeset	4132	"on each item perform selector with an argument derived from aList
dce33f8bb806 intitial checkin ca parents: diff changeset	4133	"
dce33f8bb806 intitial checkin ca parents: diff changeset	4134	aList isCollection ifTrue:[
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	4135	items size >= aList size ifTrue:[
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	4136	aList keysAndValuesDo:[:anIndex :anArg\|
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	4137	(items at:anIndex) perform:aSelector with:anArg
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	4138	]
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	4139	]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4140	] ifFalse:[
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	4141	self do:[:anItem\| anItem perform:aSelector with:aList ]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4142	]
dce33f8bb806 intitial checkin ca parents: diff changeset	4143
dce33f8bb806 intitial checkin ca parents: diff changeset	4144
dce33f8bb806 intitial checkin ca parents: diff changeset	4145	!
dce33f8bb806 intitial checkin ca parents: diff changeset	4146
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	4147	registerImageOnDevice:anImage
2269 e250e3adfc56 registration of images ca parents: 2255 diff changeset	4148
e250e3adfc56 registration of images ca parents: 2255 diff changeset	4149	anImage isNil ifTrue:[ ^ nil ].
e250e3adfc56 registration of images ca parents: 2255 diff changeset	4150	^ self class image:anImage onDevice:device
e250e3adfc56 registration of images ca parents: 2255 diff changeset	4151
e250e3adfc56 registration of images ca parents: 2255 diff changeset	4152	"/ \|image\|
e250e3adfc56 registration of images ca parents: 2255 diff changeset	4153	"/
e250e3adfc56 registration of images ca parents: 2255 diff changeset	4154	"/ (image := anImage) notNil ifTrue:[
e250e3adfc56 registration of images ca parents: 2255 diff changeset	4155	"/ image device ~~ device ifTrue:[
e250e3adfc56 registration of images ca parents: 2255 diff changeset	4156	"/ image := image copy.
e250e3adfc56 registration of images ca parents: 2255 diff changeset	4157	"/ ].
e250e3adfc56 registration of images ca parents: 2255 diff changeset	4158	"/ image := image onDevice:device.
e250e3adfc56 registration of images ca parents: 2255 diff changeset	4159	"/ image := image clearMaskedPixels.
e250e3adfc56 registration of images ca parents: 2255 diff changeset	4160	"/ ].
e250e3adfc56 registration of images ca parents: 2255 diff changeset	4161	"/ ^ image
2355 cd91ed4dc4c6 * empty log message * Claus Gittinger <cg@exept.de> parents: 2354 diff changeset	4162	!
cd91ed4dc4c6 * empty log message * Claus Gittinger <cg@exept.de> parents: 2354 diff changeset	4163
cd91ed4dc4c6 * empty log message * Claus Gittinger <cg@exept.de> parents: 2354 diff changeset	4164	superMenu:aSuperMenu
cd91ed4dc4c6 * empty log message * Claus Gittinger <cg@exept.de> parents: 2354 diff changeset	4165	"set my supermenu from which i'am activated
cd91ed4dc4c6 * empty log message * Claus Gittinger <cg@exept.de> parents: 2354 diff changeset	4166	"
cd91ed4dc4c6 * empty log message * Claus Gittinger <cg@exept.de> parents: 2354 diff changeset	4167	superMenu := aSuperMenu.
cd91ed4dc4c6 * empty log message * Claus Gittinger <cg@exept.de> parents: 2354 diff changeset	4168
cd91ed4dc4c6 * empty log message * Claus Gittinger <cg@exept.de> parents: 2354 diff changeset	4169	superMenu ifNotNil:[
cd91ed4dc4c6 * empty log message * Claus Gittinger <cg@exept.de> parents: 2354 diff changeset	4170	styleSheet := superMenu styleSheet.
cd91ed4dc4c6 * empty log message * Claus Gittinger <cg@exept.de> parents: 2354 diff changeset	4171	rightArrow := superMenu rightArrow.
cd91ed4dc4c6 * empty log message * Claus Gittinger <cg@exept.de> parents: 2354 diff changeset	4172	rightArrowShadow := superMenu rightArrowShadow.
cd91ed4dc4c6 * empty log message * Claus Gittinger <cg@exept.de> parents: 2354 diff changeset	4173	].
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4174	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	4175
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	4176	!MenuPanel methodsFor:'private-activation'!
687 23ce9888d76f bug fixes: ca parents: 681 diff changeset	4177
798 74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4178	activeMenu
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4179	"returns the current active menu or self (the top menu)
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4180	"
687 23ce9888d76f bug fixes: ca parents: 681 diff changeset	4181	^ lastActiveMenu ? self
23ce9888d76f bug fixes: ca parents: 681 diff changeset	4182
798 74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4183	"Created: / 27.2.1998 / 17:41:15 / cg"
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4184	!
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4185
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4186	activeMenu:aMenu
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4187	"set the current active menu
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4188	"
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4189	lastActiveMenu := aMenu
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4190
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4191	"Created: / 27.2.1998 / 17:41:16 / cg"
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4192	!
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4193
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4194	becomesActiveMenu
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4195	"submenu becomes the active menu
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4196	"
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4197	mapTime := Time millisecondClockValue.
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4198	self topMenu activeMenu:self.
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4199
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4200	"Created: / 27.2.1998 / 17:41:23 / cg"
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4201	!
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4202
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4203	clearLastActiveMenu
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4204	"reset the current active menu
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4205	"
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4206	\|top\|
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4207
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4208	top := self topMenu.
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4209
2251 30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	4210	"/ prevFocusView notNil ifTrue:[
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	4211	"/ self windowGroup focusView:prevFocusView.
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	4212	"/ prevFocusView := nil.
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	4213	"/ ].
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	4214	"/
798 74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4215	top activeMenu == self ifTrue:[
2251 30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	4216	top activeMenu:nil
687 23ce9888d76f bug fixes: ca parents: 681 diff changeset	4217	]
23ce9888d76f bug fixes: ca parents: 681 diff changeset	4218
798 74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4219	"Created: / 27.2.1998 / 17:41:17 / cg"
687 23ce9888d76f bug fixes: ca parents: 681 diff changeset	4220	!
23ce9888d76f bug fixes: ca parents: 681 diff changeset	4221
23ce9888d76f bug fixes: ca parents: 681 diff changeset	4222	mapTime
798 74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4223	"returns the time when the menu becomes active
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4224	"
687 23ce9888d76f bug fixes: ca parents: 681 diff changeset	4225	^ mapTime
798 74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4226
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4227	"Modified: / 27.2.1998 / 17:41:18 / cg"
687 23ce9888d76f bug fixes: ca parents: 681 diff changeset	4228	! !
23ce9888d76f bug fixes: ca parents: 681 diff changeset	4229
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	4230	!MenuPanel methodsFor:'private-scrolling'!
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4231
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4232	hasScrollerAt:aDirection
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4233	"returns true if a visible scroller at a direction exists
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4234	"
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4235	\|layout\|
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4236
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4237	self hasScrollers ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	4238	^ false
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4239	].
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4240
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4241	aDirection == #PREV ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	4242	layout := items first layout.
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4243
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4244	^ self verticalLayout ifTrue:[ layout top < margin]
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	4245	ifFalse:[ layout left < margin]
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4246	].
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4247	layout := items last layout.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4248
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4249	^ self verticalLayout ifTrue:[ layout bottom > (height - margin)]
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	4250	ifFalse:[ layout right > (width - margin)]
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4251	!
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4252
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4253	hasScrollers
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4254	"returns true if scrollers are needed
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4255	"
2018 2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4256	\|maxExtent first last isVert\|
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4257
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4258	(mustRearrange or:[items size < 2]) ifTrue:[^ false].
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4259
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4260	isVert := self verticalLayout.
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4261
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4262	superView notNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	4263	( (first := items first layout) isNil
93426020ceed * empty log message * ca parents: 2216 diff changeset	4264	or:[(last := items last layout) isNil]
93426020ceed * empty log message * ca parents: 2216 diff changeset	4265	) ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	4266	^ false
93426020ceed * empty log message * ca parents: 2216 diff changeset	4267	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	4268	isVert ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	4269	^ first top < 0 or:[last bottom > height]
93426020ceed * empty log message * ca parents: 2216 diff changeset	4270	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	4271	^ first left < 0 or:[last right > width]
2018 2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4272	].
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4273	maxExtent := self maxExtent.
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4274
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4275	isVert ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	4276	^ (height < maxExtent y) not
2018 2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4277	].
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4278	^ (width < maxExtent x) not
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4279	!
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4280
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4281	indexOfItemAtScroller:aDirection
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4282	"returns the index of the item under the scroller or 0
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4283	"
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4284	\|bounds min max layout\|
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4285
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4286	bounds := self scrollerBoundsAt:aDirection.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4287
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4288	bounds isNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	4289	^ 0
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4290	].
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4291
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4292	self verticalLayout ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	4293	min := bounds top.
93426020ceed * empty log message * ca parents: 2216 diff changeset	4294	max := bounds bottom.
93426020ceed * empty log message * ca parents: 2216 diff changeset	4295
93426020ceed * empty log message * ca parents: 2216 diff changeset	4296	items keysAndValuesDo:[:anIndex :anItem\|
93426020ceed * empty log message * ca parents: 2216 diff changeset	4297	anItem isVisible ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	4298	layout := anItem layout.
93426020ceed * empty log message * ca parents: 2216 diff changeset	4299
93426020ceed * empty log message * ca parents: 2216 diff changeset	4300	(layout top < max and:[layout bottom > min]) ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	4301	^ anIndex
93426020ceed * empty log message * ca parents: 2216 diff changeset	4302	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	4303	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	4304	].
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4305	] ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	4306	min := bounds left.
93426020ceed * empty log message * ca parents: 2216 diff changeset	4307	max := bounds right.
93426020ceed * empty log message * ca parents: 2216 diff changeset	4308
93426020ceed * empty log message * ca parents: 2216 diff changeset	4309	items keysAndValuesDo:[:anIndex :anItem\|
93426020ceed * empty log message * ca parents: 2216 diff changeset	4310	anItem isVisible ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	4311	layout := anItem layout.
93426020ceed * empty log message * ca parents: 2216 diff changeset	4312
93426020ceed * empty log message * ca parents: 2216 diff changeset	4313	(layout left < max and:[layout right > min]) ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	4314	^ anIndex
93426020ceed * empty log message * ca parents: 2216 diff changeset	4315	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	4316	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	4317	]
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4318	].
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4319	^ 0
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4320	!
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4321
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4322	makeItemVisible:anItem
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4323	"make an item visible
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4324	"
2018 2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4325	\|boundsPREV boundsNEXT delta layout index scr0 scr1 windowSz scrSz doScroll
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4326	isVertical boundsMin layoutMin boundsMax layoutMax dltOrg
2042 cc2141b4117f checkin from browser Claus Gittinger <cg@exept.de> parents: 2041 diff changeset	4327	inv1 inv2\|
2018 2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4328
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4329	( anItem notNil
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4330	and:[self hasScrollers
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4331	and:[(layout := anItem layout) notNil]]
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4332	) ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	4333	^ self
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4334	].
2018 2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4335	index := self indexOfItem:anItem.
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4336	boundsPREV := self scrollerBoundsAt:#PREV.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4337	boundsNEXT := self scrollerBoundsAt:#NEXT.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4338
2018 2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4339	isVertical := self verticalLayout.
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4340
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4341	isVertical ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	4342	boundsMin := boundsPREV bottom.
93426020ceed * empty log message * ca parents: 2216 diff changeset	4343	boundsMax := boundsNEXT top.
93426020ceed * empty log message * ca parents: 2216 diff changeset	4344	layoutMin := layout top.
93426020ceed * empty log message * ca parents: 2216 diff changeset	4345	layoutMax := layout bottom.
93426020ceed * empty log message * ca parents: 2216 diff changeset	4346	windowSz := height.
2018 2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4347	] ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	4348	boundsMin := boundsPREV right.
93426020ceed * empty log message * ca parents: 2216 diff changeset	4349	boundsMax := boundsNEXT left.
93426020ceed * empty log message * ca parents: 2216 diff changeset	4350	layoutMin := layout left.
93426020ceed * empty log message * ca parents: 2216 diff changeset	4351	layoutMax := layout right.
93426020ceed * empty log message * ca parents: 2216 diff changeset	4352	windowSz := width.
2018 2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4353	].
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4354
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4355
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4356	layoutMin < boundsMin ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	4357	layoutMin >= 0 ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	4358	^ self
93426020ceed * empty log message * ca parents: 2216 diff changeset	4359	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	4360	"/ test whether is first visible item
93426020ceed * empty log message * ca parents: 2216 diff changeset	4361	index := items findLast:[:el\| el isVisible] startingAt:(index - 1).
93426020ceed * empty log message * ca parents: 2216 diff changeset	4362
93426020ceed * empty log message * ca parents: 2216 diff changeset	4363	index == 0 ifTrue:[ scr0 := margin ]
93426020ceed * empty log message * ca parents: 2216 diff changeset	4364	ifFalse:[ scr0 := boundsMin ].
93426020ceed * empty log message * ca parents: 2216 diff changeset	4365
93426020ceed * empty log message * ca parents: 2216 diff changeset	4366	delta := layoutMin negated + scr0.
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4367	] ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	4368	layoutMax > boundsMax ifFalse:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	4369	^ self
93426020ceed * empty log message * ca parents: 2216 diff changeset	4370	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	4371	"/ test whether is last visible item
93426020ceed * empty log message * ca parents: 2216 diff changeset	4372	index := items findFirst:[:el\| el isVisible ] startingAt:(index + 1).
93426020ceed * empty log message * ca parents: 2216 diff changeset	4373
93426020ceed * empty log message * ca parents: 2216 diff changeset	4374	index == 0 ifTrue:[ scr0 := windowSz - margin ]
93426020ceed * empty log message * ca parents: 2216 diff changeset	4375	ifFalse:[ scr0 := boundsMax ].
93426020ceed * empty log message * ca parents: 2216 diff changeset	4376
93426020ceed * empty log message * ca parents: 2216 diff changeset	4377	delta := scr0 - layoutMax.
2018 2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4378	].
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4379	delta == 0 ifTrue:[ ^ self ].
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4380
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4381	doScroll := false.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4382
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4383	shown ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	4384	delta abs < (windowSz / 2) ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	4385	doScroll := true.
93426020ceed * empty log message * ca parents: 2216 diff changeset	4386	self repairDamage
93426020ceed * empty log message * ca parents: 2216 diff changeset	4387	]
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4388	].
2018 2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4389	isVertical ifTrue:[ dltOrg := 0@delta ] ifFalse:[dltOrg := delta@0].
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4390	items do:[:el\| el moveBy:dltOrg ].
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4391
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4392	doScroll ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	4393	^ self invalidate
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4394	].
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4395
2018 2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4396	windowSz := windowSz - margin - margin.
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4397
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4398	scr0 := boundsMin.
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4399	scr1 := scr0 + delta abs.
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4400	scrSz := boundsMax - scr1.
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4401
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4402	delta < 0 ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	4403	isVertical ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	4404	self copyFrom:self x:margin y:scr1 toX:margin y:scr0
93426020ceed * empty log message * ca parents: 2216 diff changeset	4405	width:windowSz height:scrSz async:false.
93426020ceed * empty log message * ca parents: 2216 diff changeset	4406
93426020ceed * empty log message * ca parents: 2216 diff changeset	4407	scr1 := scr0 + scrSz.
93426020ceed * empty log message * ca parents: 2216 diff changeset	4408	inv2 := (margin @ scr1) extent:(windowSz @ (height - scr1 - margin)).
93426020ceed * empty log message * ca parents: 2216 diff changeset	4409	"/ self invalidateX:margin y:scr1 width:windowSz height:(height - scr1 - margin).
93426020ceed * empty log message * ca parents: 2216 diff changeset	4410	] ifFalse:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	4411	self copyFrom:self x:scr1 y:margin toX:scr0 y:margin
93426020ceed * empty log message * ca parents: 2216 diff changeset	4412	width:scrSz height:windowSz async:false.
93426020ceed * empty log message * ca parents: 2216 diff changeset	4413
93426020ceed * empty log message * ca parents: 2216 diff changeset	4414	scr1 := scr0 + scrSz.
93426020ceed * empty log message * ca parents: 2216 diff changeset	4415	inv2 := (scr1 @ margin) extent:((width - scr1 - margin) @ windowSz).
93426020ceed * empty log message * ca parents: 2216 diff changeset	4416	"/ self invalidateX:scr1 y:margin width:(width - scr1 - margin) height:windowSz.
93426020ceed * empty log message * ca parents: 2216 diff changeset	4417	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	4418	inv1 := boundsPREV.
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4419	] ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	4420	isVertical ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	4421	self copyFrom:self x:margin y:scr0 toX:margin y:scr1
93426020ceed * empty log message * ca parents: 2216 diff changeset	4422	width:windowSz height:scrSz async:false.
93426020ceed * empty log message * ca parents: 2216 diff changeset	4423
93426020ceed * empty log message * ca parents: 2216 diff changeset	4424	inv2 := (margin @ margin) extent:(windowSz @ (scr1 - margin)).
93426020ceed * empty log message * ca parents: 2216 diff changeset	4425	"/ self invalidateX:margin y:margin width:windowSz height:scr1 - margin.
93426020ceed * empty log message * ca parents: 2216 diff changeset	4426	] ifFalse:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	4427	self copyFrom:self x:scr0 y:margin toX:scr1 y:margin
93426020ceed * empty log message * ca parents: 2216 diff changeset	4428	width:scrSz height:windowSz async:false.
93426020ceed * empty log message * ca parents: 2216 diff changeset	4429
93426020ceed * empty log message * ca parents: 2216 diff changeset	4430	inv2 := (margin @ margin) extent:(scr1 - margin) @ windowSz.
93426020ceed * empty log message * ca parents: 2216 diff changeset	4431	"/ self invalidateX:margin y:margin width:scr1 - margin height:windowSz.
93426020ceed * empty log message * ca parents: 2216 diff changeset	4432	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	4433	inv1 := boundsNEXT.
2042 cc2141b4117f checkin from browser Claus Gittinger <cg@exept.de> parents: 2041 diff changeset	4434	].
cc2141b4117f checkin from browser Claus Gittinger <cg@exept.de> parents: 2041 diff changeset	4435	self invalidate:inv1.
cc2141b4117f checkin from browser Claus Gittinger <cg@exept.de> parents: 2041 diff changeset	4436	self invalidate:inv2.
2048 ba472f3f46c7 code cleanup Claus Gittinger <cg@exept.de> parents: 2047 diff changeset	4437
ba472f3f46c7 code cleanup Claus Gittinger <cg@exept.de> parents: 2047 diff changeset	4438	"Modified: / 13.11.2001 / 20:26:42 / cg"
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4439	!
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4440
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	4441	scrollActivity
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	4442	"returns the one and only scrollActivity - data holder
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	4443	for a menu and all contained submenus
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	4444	"
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	4445	superMenu notNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	4446	^ superMenu scrollActivity
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	4447	].
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	4448	scrollActivity isNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	4449	scrollActivity := ScrollActivity new.
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	4450	].
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	4451	^ scrollActivity
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	4452	!
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	4453
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4454	scrollerBoundsAt:aDirection
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4455	"returns the bounds of the scroller at a direction or nil
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4456	"
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4457	\|y x w h inset\|
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4458
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4459	self hasScrollers ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	4460	^ nil
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4461	].
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4462	inset := 0.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4463	x := y := inset.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4464	w := h := 15.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4465
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4466	self verticalLayout ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	4467	aDirection == #NEXT ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	4468	y := height - h - inset.
93426020ceed * empty log message * ca parents: 2216 diff changeset	4469	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	4470	w := width - inset - inset.
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4471	] ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	4472	aDirection == #NEXT ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	4473	x := width - w - inset.
93426020ceed * empty log message * ca parents: 2216 diff changeset	4474	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	4475	h := height - inset - inset.
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4476	].
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4477	^ Rectangle left:x top:y width:w height:h
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4478	!
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4479
2046 012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	4480	scrollerDirectionAtPoint:aPoint
012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	4481	"returns the scroller-direction at aPoint, or nil
012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	4482	"
012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	4483	self hasScrollers ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	4484	#( PREV NEXT ) do:[:aDirection\| \|bounds\|
93426020ceed * empty log message * ca parents: 2216 diff changeset	4485	( (bounds := self scrollerBoundsAt:aDirection) notNil
93426020ceed * empty log message * ca parents: 2216 diff changeset	4486	and:[bounds containsPoint:aPoint]
93426020ceed * empty log message * ca parents: 2216 diff changeset	4487	) ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	4488	^ (self hasScrollerAt:aDirection) ifTrue:[aDirection] ifFalse:[nil]
93426020ceed * empty log message * ca parents: 2216 diff changeset	4489	]
93426020ceed * empty log message * ca parents: 2216 diff changeset	4490	]
2046 012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	4491	].
012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	4492	^ nil
012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	4493
012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	4494	"Created: / 13.11.2001 / 14:13:16 / cg"
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4495	! !
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4496
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	4497	!MenuPanel methodsFor:'private-searching'!
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4498
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4499	detectGrabMenu
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4500	"returns the menu which is responsible for the grap; the last opened menu
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4501	"
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4502	\|subMenu\|
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4503
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4504	selection notNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	4505	(subMenu := selection visibleSubmenu) notNil ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	4506	^ subMenu detectGrabMenu
93426020ceed * empty log message * ca parents: 2216 diff changeset	4507	]
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4508	].
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4509	^ self
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4510	!
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4511
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4512	detectMenuAtGrabPoint:aGrabPoint
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4513	"returns the menu which contains the grab-point
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4514	"
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4515	\|dstMenu dstPoint firstMenu\|
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4516
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4517	dstPoint := self translateGrabPoint:aGrabPoint.
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4518
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4519	((dstPoint x between:0 and:width) and:[dstPoint y between:0 and:height]) ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	4520	firstMenu := self.
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4521	].
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4522
1786 f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	4523	(selection isNil or:[(dstMenu := selection visibleSubmenu) isNil]) ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	4524	^ firstMenu
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4525	].
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4526	dstMenu := dstMenu detectMenuAtGrabPoint:aGrabPoint.
2059 c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	4527	^ dstMenu ? firstMenu
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4528	!
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4529
1767 e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	4530	detectViewAtX:x y:y in:aTopView
1922 1a2ab52eb2ab bug fix in #detectViewAtX:y:in: ca parents: 1921 diff changeset	4531	"detect view at x@y
1a2ab52eb2ab bug fix in #detectViewAtX:y:in: ca parents: 1921 diff changeset	4532	"
2020 1f1868eba475 extracted common code to detectViewAt:aPoint. Claus Gittinger <cg@exept.de> parents: 2018 diff changeset	4533	^ aTopView detectViewAt:(x@y).
1f1868eba475 extracted common code to detectViewAt:aPoint. Claus Gittinger <cg@exept.de> parents: 2018 diff changeset	4534
1f1868eba475 extracted common code to detectViewAt:aPoint. Claus Gittinger <cg@exept.de> parents: 2018 diff changeset	4535	"/ cg: old code was (refactored to use common code)
1f1868eba475 extracted common code to detectViewAt:aPoint. Claus Gittinger <cg@exept.de> parents: 2018 diff changeset	4536	"/
1f1868eba475 extracted common code to detectViewAt:aPoint. Claus Gittinger <cg@exept.de> parents: 2018 diff changeset	4537	"/ \|p subViews\|
1f1868eba475 extracted common code to detectViewAt:aPoint. Claus Gittinger <cg@exept.de> parents: 2018 diff changeset	4538	"/
1f1868eba475 extracted common code to detectViewAt:aPoint. Claus Gittinger <cg@exept.de> parents: 2018 diff changeset	4539	"/ (subViews := aTopView subViews) notNil ifTrue:[
1f1868eba475 extracted common code to detectViewAt:aPoint. Claus Gittinger <cg@exept.de> parents: 2018 diff changeset	4540	"/ subViews do:[:v\| \|p\|
1f1868eba475 extracted common code to detectViewAt:aPoint. Claus Gittinger <cg@exept.de> parents: 2018 diff changeset	4541	"/ v shown ifTrue:[
1f1868eba475 extracted common code to detectViewAt:aPoint. Claus Gittinger <cg@exept.de> parents: 2018 diff changeset	4542	"/ ( (x between:(v left) and:(v right))
1f1868eba475 extracted common code to detectViewAt:aPoint. Claus Gittinger <cg@exept.de> parents: 2018 diff changeset	4543	"/ and:[y between:(v top) and:(v bottom)]
1f1868eba475 extracted common code to detectViewAt:aPoint. Claus Gittinger <cg@exept.de> parents: 2018 diff changeset	4544	"/ ) ifTrue:[
1f1868eba475 extracted common code to detectViewAt:aPoint. Claus Gittinger <cg@exept.de> parents: 2018 diff changeset	4545	"/ p := device translatePoint:(x@y) from:(aTopView id) to:(v id).
1f1868eba475 extracted common code to detectViewAt:aPoint. Claus Gittinger <cg@exept.de> parents: 2018 diff changeset	4546	"/ ^ self detectViewAtX:p x y:p y in:v.
1f1868eba475 extracted common code to detectViewAt:aPoint. Claus Gittinger <cg@exept.de> parents: 2018 diff changeset	4547	"/ ]
1f1868eba475 extracted common code to detectViewAt:aPoint. Claus Gittinger <cg@exept.de> parents: 2018 diff changeset	4548	"/ ]
1f1868eba475 extracted common code to detectViewAt:aPoint. Claus Gittinger <cg@exept.de> parents: 2018 diff changeset	4549	"/ ]
1f1868eba475 extracted common code to detectViewAt:aPoint. Claus Gittinger <cg@exept.de> parents: 2018 diff changeset	4550	"/ ].
1f1868eba475 extracted common code to detectViewAt:aPoint. Claus Gittinger <cg@exept.de> parents: 2018 diff changeset	4551	"/ ^ aTopView
1f1868eba475 extracted common code to detectViewAt:aPoint. Claus Gittinger <cg@exept.de> parents: 2018 diff changeset	4552
1f1868eba475 extracted common code to detectViewAt:aPoint. Claus Gittinger <cg@exept.de> parents: 2018 diff changeset	4553	"Modified: / 10.10.2001 / 13:45:56 / cg"
1767 e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	4554	!
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	4555
2347 9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	4556	itemAt:stringOrNumberOrPoint
9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	4557	"returns item assigned to an index, nameKey, textLabel or value if symbol.
9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	4558	If no item match nil is returned.
9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	4559	"
9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	4560	\|idx\|
9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	4561
9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	4562	stringOrNumberOrPoint isPoint ifTrue:[
9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	4563	^ self itemAtPoint:stringOrNumberOrPoint
9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	4564	].
9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	4565	idx := self indexOf:stringOrNumberOrPoint.
9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	4566	(idx > 0 and:[idx <= items size]) ifTrue:[ ^ items at:idx ].
2046 012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	4567	^ nil
2347 9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	4568	!
9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	4569
9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	4570	itemAtPoint:aPoint
9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	4571	"returns the item at aPoint or nil if none detected
9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	4572	"
9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	4573	\|x y\|
9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	4574
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4575	items notNil ifTrue:[
2347 9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	4576	x := aPoint x.
9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	4577	y := aPoint y.
9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	4578	^ items detect:[:el\| el containsPointX:x y:y] ifNone:nil
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4579	].
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4580	^ nil
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4581	!
dce33f8bb806 intitial checkin ca parents: diff changeset	4582
2048 ba472f3f46c7 code cleanup Claus Gittinger <cg@exept.de> parents: 2047 diff changeset	4583	superMenuAtPoint:aPoint
ba472f3f46c7 code cleanup Claus Gittinger <cg@exept.de> parents: 2047 diff changeset	4584	"returns the superMenu which contains aPoint, or nil if none detected
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4585	"
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4586	\|grabPoint superMenu\|
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4587
2048 ba472f3f46c7 code cleanup Claus Gittinger <cg@exept.de> parents: 2047 diff changeset	4588	(self containsPoint:aPoint) ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	4589	^ self
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4590	].
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4591
2048 ba472f3f46c7 code cleanup Claus Gittinger <cg@exept.de> parents: 2047 diff changeset	4592	grabPoint := aPoint - (self translateGrabPoint:0).
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4593	superMenu := self.
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4594
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4595	[ (superMenu := superMenu superMenu) notNil ] whileTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	4596	(superMenu containsPoint:(superMenu translateGrabPoint:grabPoint)) ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	4597	^ superMenu
93426020ceed * empty log message * ca parents: 2216 diff changeset	4598	]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4599	].
dce33f8bb806 intitial checkin ca parents: diff changeset	4600	^ nil
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4601
2048 ba472f3f46c7 code cleanup Claus Gittinger <cg@exept.de> parents: 2047 diff changeset	4602	"Created: / 13.11.2001 / 20:22:53 / cg"
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4603	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	4604
dce33f8bb806 intitial checkin ca parents: diff changeset	4605	!MenuPanel methodsFor:'queries'!
dce33f8bb806 intitial checkin ca parents: diff changeset	4606
2003 732fbaf5864f avoid changing the level after realization (to avoid confusing the shadow) Claus Gittinger <cg@exept.de> parents: 2000 diff changeset	4607	container:aView
732fbaf5864f avoid changing the level after realization (to avoid confusing the shadow) Claus Gittinger <cg@exept.de> parents: 2000 diff changeset	4608	super container:aView.
732fbaf5864f avoid changing the level after realization (to avoid confusing the shadow) Claus Gittinger <cg@exept.de> parents: 2000 diff changeset	4609	aView notNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	4610	"/ I am no longer a popUpView
93426020ceed * empty log message * ca parents: 2216 diff changeset	4611	self updateLevelAndBorder
2003 732fbaf5864f avoid changing the level after realization (to avoid confusing the shadow) Claus Gittinger <cg@exept.de> parents: 2000 diff changeset	4612	].
732fbaf5864f avoid changing the level after realization (to avoid confusing the shadow) Claus Gittinger <cg@exept.de> parents: 2000 diff changeset	4613	!
732fbaf5864f avoid changing the level after realization (to avoid confusing the shadow) Claus Gittinger <cg@exept.de> parents: 2000 diff changeset	4614
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4615	containsPoint:aPoint
dce33f8bb806 intitial checkin ca parents: diff changeset	4616	"returns true if point is contained by the view
dce33f8bb806 intitial checkin ca parents: diff changeset	4617	"
dce33f8bb806 intitial checkin ca parents: diff changeset	4618	^ self containsPointX:(aPoint x) y:(aPoint y)
dce33f8bb806 intitial checkin ca parents: diff changeset	4619	!
dce33f8bb806 intitial checkin ca parents: diff changeset	4620
dce33f8bb806 intitial checkin ca parents: diff changeset	4621	containsPointX:x y:y
dce33f8bb806 intitial checkin ca parents: diff changeset	4622	"returns true if point is contained by the view
dce33f8bb806 intitial checkin ca parents: diff changeset	4623	"
708 245b1aa06151 checkin from browser Claus Gittinger <cg@exept.de> parents: 706 diff changeset	4624	^ (x between:0 and:width) and:[y between:0 and:height]
879 837cee20fdcb * empty log message * Claus Gittinger <cg@exept.de> parents: 878 diff changeset	4625
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4626	!
dce33f8bb806 intitial checkin ca parents: diff changeset	4627
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	4628	hasGroupDividerAt:anIndex
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4629	"returns true if a divider is defined at an index
dce33f8bb806 intitial checkin ca parents: diff changeset	4630	"
dce33f8bb806 intitial checkin ca parents: diff changeset	4631	\|i\|
dce33f8bb806 intitial checkin ca parents: diff changeset	4632
dce33f8bb806 intitial checkin ca parents: diff changeset	4633	groupSizes size ~~ 0 ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	4634	i := 0.
93426020ceed * empty log message * ca parents: 2216 diff changeset	4635
93426020ceed * empty log message * ca parents: 2216 diff changeset	4636	groupSizes do:[:t\|
93426020ceed * empty log message * ca parents: 2216 diff changeset	4637	(i := i + t) == anIndex ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	4638	^ true
93426020ceed * empty log message * ca parents: 2216 diff changeset	4639	]
93426020ceed * empty log message * ca parents: 2216 diff changeset	4640	]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4641	].
dce33f8bb806 intitial checkin ca parents: diff changeset	4642	^ false
dce33f8bb806 intitial checkin ca parents: diff changeset	4643
dce33f8bb806 intitial checkin ca parents: diff changeset	4644	!
dce33f8bb806 intitial checkin ca parents: diff changeset	4645
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	4646	hasGroupDividers
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	4647	"returns true if any group divider exists
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	4648	"
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	4649	^ (items size ~~ 0 and:[groupSizes size ~~ 0])
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	4650	!
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	4651
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4652	isEnabled
dce33f8bb806 intitial checkin ca parents: diff changeset	4653	"returns enabled state of menu and items
dce33f8bb806 intitial checkin ca parents: diff changeset	4654	"
dce33f8bb806 intitial checkin ca parents: diff changeset	4655	^ self enabled
dce33f8bb806 intitial checkin ca parents: diff changeset	4656	!
dce33f8bb806 intitial checkin ca parents: diff changeset	4657
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	4658	isFitPanel
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	4659	"returns true if the panel is the first in the menu hierarchy in must
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4660	be fit to the extent of its superView;
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4661	NOT SUPPORTED
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4662	"
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4663	^ false
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	4664	!
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	4665
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4666	isPopUpView
dce33f8bb806 intitial checkin ca parents: diff changeset	4667	"return true if view is a popup view; without decoration
dce33f8bb806 intitial checkin ca parents: diff changeset	4668	and popUp to top immediately
dce33f8bb806 intitial checkin ca parents: diff changeset	4669	"
dce33f8bb806 intitial checkin ca parents: diff changeset	4670	^ superView isNil
dce33f8bb806 intitial checkin ca parents: diff changeset	4671
dce33f8bb806 intitial checkin ca parents: diff changeset	4672
dce33f8bb806 intitial checkin ca parents: diff changeset	4673	!
dce33f8bb806 intitial checkin ca parents: diff changeset	4674
dce33f8bb806 intitial checkin ca parents: diff changeset	4675	isVerticalLayout
dce33f8bb806 intitial checkin ca parents: diff changeset	4676	"returns true if vertical layout otherwise false( horizontal layout )
dce33f8bb806 intitial checkin ca parents: diff changeset	4677	"
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4678	^ self verticalLayout
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4679
dce33f8bb806 intitial checkin ca parents: diff changeset	4680
416 c05874084d4c implement ca parents: 407 diff changeset	4681	!
c05874084d4c implement ca parents: 407 diff changeset	4682
1793 f76529768dd6 keyPress:... check for wrapped view ca parents: 1791 diff changeset	4683	isViewWrapper
2214 8eefad87cf62 drawing delayed menu indicators... first try not yet finished ca parents: 2199 diff changeset	4684	^ items size == 0 and:[subViews size ~~ 0]
1793 f76529768dd6 keyPress:... check for wrapped view ca parents: 1791 diff changeset	4685	!
f76529768dd6 keyPress:... check for wrapped view ca parents: 1791 diff changeset	4686
416 c05874084d4c implement ca parents: 407 diff changeset	4687	type
428 5cf5fb7ecf39 type ca parents: 427 diff changeset	4688	^ nil.
416 c05874084d4c implement ca parents: 407 diff changeset	4689
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4690	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	4691
dce33f8bb806 intitial checkin ca parents: diff changeset	4692	!MenuPanel methodsFor:'selection'!
dce33f8bb806 intitial checkin ca parents: diff changeset	4693
dce33f8bb806 intitial checkin ca parents: diff changeset	4694	hasSelection
dce33f8bb806 intitial checkin ca parents: diff changeset	4695	"returns true if a selection exists
dce33f8bb806 intitial checkin ca parents: diff changeset	4696	"
dce33f8bb806 intitial checkin ca parents: diff changeset	4697	^ self selection notNil
dce33f8bb806 intitial checkin ca parents: diff changeset	4698	!
dce33f8bb806 intitial checkin ca parents: diff changeset	4699
2199 61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	4700	openDelayed:anItem
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	4701
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	4702	superMenu ifNotNil:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	4703	superMenu openDelayed:anItem.
93426020ceed * empty log message * ca parents: 2216 diff changeset	4704	^ self
93426020ceed * empty log message * ca parents: 2216 diff changeset	4705	].
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	4706	openDelayedMenuBlock ifNotNil:[
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	4707	Processor removeTimedBlock:openDelayedMenuBlock.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	4708	openDelayedMenuBlock := nil.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	4709	].
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	4710	anItem ifNil:[
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	4711	openDelayedMenuBlock := nil.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	4712	^ self
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	4713	].
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	4714	openDelayedMenuBlock := [
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	4715	openDelayedMenuBlock := nil.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	4716	anItem openDelayedSubmenu
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	4717	].
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	4718
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	4719	Processor addTimedBlock:openDelayedMenuBlock afterSeconds:0.5.
2199 61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	4720	!
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	4721
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4722	selection
dce33f8bb806 intitial checkin ca parents: diff changeset	4723	"returns current selected item or nil
dce33f8bb806 intitial checkin ca parents: diff changeset	4724	"
dce33f8bb806 intitial checkin ca parents: diff changeset	4725	^ selection
dce33f8bb806 intitial checkin ca parents: diff changeset	4726
dce33f8bb806 intitial checkin ca parents: diff changeset	4727
dce33f8bb806 intitial checkin ca parents: diff changeset	4728	!
dce33f8bb806 intitial checkin ca parents: diff changeset	4729
dce33f8bb806 intitial checkin ca parents: diff changeset	4730	selection:anItemOrNil
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4731	"change selection to an item or nil
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4732	if the item has a submenu the first item might be selected (style-sheet)
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4733	"
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4734	\|openMenu openOnSelect submenu item\|
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4735
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4736	selection == anItemOrNil ifTrue:[^ self].
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4737
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4738	(anItemOrNil isNil or:[anItemOrNil hasSubmenu not]) ifTrue:[
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4739	self selection:anItemOrNil openMenu:false.
2347 9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	4740	^ self
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4741	].
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4742
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4743	openMenu := self isPopUpView not.
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4744	openOnSelect := styleSheet at:#'menu.openOnSelect' default:false.
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4745
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4746	openMenu ifFalse:[
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4747	openMenu := openOnSelect.
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4748	].
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4749	self selection:anItemOrNil openMenu:openMenu.
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4750
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4751	openOnSelect ifFalse:[
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4752	"/ select first item in submenu
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4753
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4754	submenu := anItemOrNil currentSubmenu.
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4755
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4756	submenu ifNotNil:[
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4757	item := submenu itemAt:1.
2347 9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	4758	(item notNil and:[item hasSubmenu not]) ifTrue:[
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4759	submenu selection:item openMenu:false
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4760	]
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4761	].
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4762	].
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4763	!
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4764
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4765	selection:anItemOrNil openMenu:openMenu
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4766	"change selection to an item or nil
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4767	"
2251 30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	4768	\|helpListener oldSelect\|
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4769
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4770	anItemOrNil == selection ifTrue:[
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4771	^ self
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4772	].
2199 61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	4773	self openDelayed:nil.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4774
2251 30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	4775	oldSelect := selection.
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	4776	selection := nil.
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4777
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4778	anItemOrNil ifNotNil:[
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4779	self makeItemVisible:anItemOrNil.
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4780	anItemOrNil canSelect ifTrue:[
2251 30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	4781	selection := anItemOrNil
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4782	] ifFalse:[
2251 30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	4783	oldSelect ifNil:[^ self].
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4784	].
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4785	].
2251 30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	4786	oldSelect ifNotNil:[
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4787	"/ clear current selection
2251 30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	4788	oldSelect isSelected:false.
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	4789	].
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	4790	selection ifNil:[^ self].
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	4791
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	4792	selection == enteredItem ifTrue:[
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4793	enteredItem := nil
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4794	] ifFalse:[
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4795	self pointerEntersItem:nil
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4796	].
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4797	ActiveHelp isActive ifTrue:[
2251 30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	4798	helpListener := ActiveHelp currentHelpListener.
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	4799	helpListener initiateHelpFor:self at:nil now:true.
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4800	].
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4801	shown ifTrue:[
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4802	self rearrangeItems.
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4803
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4804	openMenu ifFalse:[
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4805	selection invalidate.
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4806	]
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4807	].
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4808	openMenu ifTrue:[
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4809	selection isSelected:true.
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4810	].
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4811	!
dce33f8bb806 intitial checkin ca parents: diff changeset	4812
dce33f8bb806 intitial checkin ca parents: diff changeset	4813	selectionIndex
dce33f8bb806 intitial checkin ca parents: diff changeset	4814	"returns index of current selection or 0
dce33f8bb806 intitial checkin ca parents: diff changeset	4815	"
dce33f8bb806 intitial checkin ca parents: diff changeset	4816	\|item\|
dce33f8bb806 intitial checkin ca parents: diff changeset	4817
dce33f8bb806 intitial checkin ca parents: diff changeset	4818	(item := self selection) notNil ifTrue:[
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	4819	^ self findFirst:[:el\| el == item ]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4820	].
dce33f8bb806 intitial checkin ca parents: diff changeset	4821	^ 0
dce33f8bb806 intitial checkin ca parents: diff changeset	4822
dce33f8bb806 intitial checkin ca parents: diff changeset	4823	!
dce33f8bb806 intitial checkin ca parents: diff changeset	4824
dce33f8bb806 intitial checkin ca parents: diff changeset	4825	selectionIndex:anIndex
dce33f8bb806 intitial checkin ca parents: diff changeset	4826	"set selection at an index
dce33f8bb806 intitial checkin ca parents: diff changeset	4827	"
dce33f8bb806 intitial checkin ca parents: diff changeset	4828	self selection:(self itemAt:anIndex)
dce33f8bb806 intitial checkin ca parents: diff changeset	4829	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	4830
1791 bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	4831	!MenuPanel methodsFor:'translation'!
bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	4832
bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	4833	translateGrabPoint:aGrabPoint
bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	4834	"translate the grab point into self
bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	4835	"
bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	4836	superMenu isNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	4837	"I am the grapView"
93426020ceed * empty log message * ca parents: 2216 diff changeset	4838	aGrabPoint isNumber ifTrue:[^ aGrabPoint @ aGrabPoint].
1791 bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	4839	^ aGrabPoint
bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	4840	].
bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	4841
bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	4842	relativeGrabOrigin isNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	4843	relativeGrabOrigin := self topMenu translatePoint:0 to:self.
1791 bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	4844	].
bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	4845	^ relativeGrabOrigin + aGrabPoint
bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	4846
bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	4847	!
bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	4848
bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	4849	translateMenuPoint:aPoint toMenu:aMenu
bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	4850	"translate a point into another menu its point
bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	4851	"
bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	4852	\|grapPoint\|
bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	4853
bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	4854	aMenu == self ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	4855	^ aPoint
1791 bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	4856	].
bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	4857	grapPoint := aPoint - (self translateGrabPoint:0).
bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	4858
bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	4859	^ aMenu translateGrabPoint:grapPoint
bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	4860
bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	4861	!
bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	4862
2020 1f1868eba475 extracted common code to detectViewAt:aPoint. Claus Gittinger <cg@exept.de> parents: 2018 diff changeset	4863	translatePoint:aPoint to:anotherWindowOrNilForScreen
1f1868eba475 extracted common code to detectViewAt:aPoint. Claus Gittinger <cg@exept.de> parents: 2018 diff changeset	4864	"translate a point in my window to anotherWindowOrNilForScreen (or root window if nil)
1f1868eba475 extracted common code to detectViewAt:aPoint. Claus Gittinger <cg@exept.de> parents: 2018 diff changeset	4865	"
1f1868eba475 extracted common code to detectViewAt:aPoint. Claus Gittinger <cg@exept.de> parents: 2018 diff changeset	4866
1f1868eba475 extracted common code to detectViewAt:aPoint. Claus Gittinger <cg@exept.de> parents: 2018 diff changeset	4867	^ device
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	4868	translatePoint:aPoint asPoint
93426020ceed * empty log message * ca parents: 2216 diff changeset	4869	fromView:self
93426020ceed * empty log message * ca parents: 2216 diff changeset	4870	toView:anotherWindowOrNilForScreen
2020 1f1868eba475 extracted common code to detectViewAt:aPoint. Claus Gittinger <cg@exept.de> parents: 2018 diff changeset	4871
1f1868eba475 extracted common code to detectViewAt:aPoint. Claus Gittinger <cg@exept.de> parents: 2018 diff changeset	4872	"Modified: / 10.10.2001 / 14:11:47 / cg"
1791 bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	4873	! !
bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	4874
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4875	!MenuPanel::Item class methodsFor:'accessing'!
dce33f8bb806 intitial checkin ca parents: diff changeset	4876
689 aa13913add84 clear lastActiveMenu when closed ca parents: 687 diff changeset	4877	horizontalInset
aa13913add84 clear lastActiveMenu when closed ca parents: 687 diff changeset	4878	^ HorizontalInset
aa13913add84 clear lastActiveMenu when closed ca parents: 687 diff changeset	4879	!
aa13913add84 clear lastActiveMenu when closed ca parents: 687 diff changeset	4880
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4881	labelRightOffset
dce33f8bb806 intitial checkin ca parents: diff changeset	4882	^ LabelRightOffset
dce33f8bb806 intitial checkin ca parents: diff changeset	4883	!
dce33f8bb806 intitial checkin ca parents: diff changeset	4884
689 aa13913add84 clear lastActiveMenu when closed ca parents: 687 diff changeset	4885	verticalInset
aa13913add84 clear lastActiveMenu when closed ca parents: 687 diff changeset	4886	^ VerticalInset
1765 a003f417d6ad fix for vertical spacing Claus Gittinger <cg@exept.de> parents: 1762 diff changeset	4887	!
a003f417d6ad fix for vertical spacing Claus Gittinger <cg@exept.de> parents: 1762 diff changeset	4888
a003f417d6ad fix for vertical spacing Claus Gittinger <cg@exept.de> parents: 1762 diff changeset	4889	verticalPopUpInset
a003f417d6ad fix for vertical spacing Claus Gittinger <cg@exept.de> parents: 1762 diff changeset	4890	^ VerticalPopUpInset
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4891	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	4892
616 a6157b083830 support of different styles ca parents: 608 diff changeset	4893	!MenuPanel::Item class methodsFor:'defaults'!
a6157b083830 support of different styles ca parents: 608 diff changeset	4894
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	4895	halfSeparatorSize
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	4896	"returns size of a space-separator
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	4897	"
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	4898	^ 5
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	4899	!
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	4900
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4901	separatorSize
616 a6157b083830 support of different styles ca parents: 608 diff changeset	4902	"returns size of a separator
a6157b083830 support of different styles ca parents: 608 diff changeset	4903	"
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4904	^ 10
616 a6157b083830 support of different styles ca parents: 608 diff changeset	4905	!
a6157b083830 support of different styles ca parents: 608 diff changeset	4906
a6157b083830 support of different styles ca parents: 608 diff changeset	4907	updateStyleCache
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4908	"setup defaults
650 29dcdf6a5994 button and label translation support added tz parents: 638 diff changeset	4909	self updateStyleCache
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4910	"
1765 a003f417d6ad fix for vertical spacing Claus Gittinger <cg@exept.de> parents: 1762 diff changeset	4911	<resource: #style (#'menuPanel.verticalInset')>
a003f417d6ad fix for vertical spacing Claus Gittinger <cg@exept.de> parents: 1762 diff changeset	4912
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4913	HorizontalInset := 2.
1765 a003f417d6ad fix for vertical spacing Claus Gittinger <cg@exept.de> parents: 1762 diff changeset	4914	VerticalInset := MenuPanel styleSheet at:#'menuPanel.verticalInset' default:2.
a003f417d6ad fix for vertical spacing Claus Gittinger <cg@exept.de> parents: 1762 diff changeset	4915	VerticalPopUpInset := 2.
727 3ba54333342a button style from style sheet tz parents: 723 diff changeset	4916
3ba54333342a button style from style sheet tz parents: 723 diff changeset	4917	HorizontalButtonInset := 3.
3ba54333342a button style from style sheet tz parents: 723 diff changeset	4918	VerticalButtonInset := 3.
3ba54333342a button style from style sheet tz parents: 723 diff changeset	4919
681 62c7cdaca188 extra default inset values for button behaviour added tz parents: 680 diff changeset	4920	LabelRightOffset := 15.
1765 a003f417d6ad fix for vertical spacing Claus Gittinger <cg@exept.de> parents: 1762 diff changeset	4921
a003f417d6ad fix for vertical spacing Claus Gittinger <cg@exept.de> parents: 1762 diff changeset	4922
1124 4a7fec62a572 smaller checkbox. Claus Gittinger <cg@exept.de> parents: 1117 diff changeset	4923	! !
1078 3adf74275ebd support choice for buttons ca parents: 1076 diff changeset	4924
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4925	!MenuPanel::Item class methodsFor:'instance creation'!
dce33f8bb806 intitial checkin ca parents: diff changeset	4926
dce33f8bb806 intitial checkin ca parents: diff changeset	4927	in:aSuperMenu
dce33f8bb806 intitial checkin ca parents: diff changeset	4928	^ self in:aSuperMenu label:nil
dce33f8bb806 intitial checkin ca parents: diff changeset	4929	!
dce33f8bb806 intitial checkin ca parents: diff changeset	4930
dce33f8bb806 intitial checkin ca parents: diff changeset	4931	in:aSuperMenu label:aLabel
dce33f8bb806 intitial checkin ca parents: diff changeset	4932	\|item\|
dce33f8bb806 intitial checkin ca parents: diff changeset	4933
dce33f8bb806 intitial checkin ca parents: diff changeset	4934	item := self new in:aSuperMenu.
dce33f8bb806 intitial checkin ca parents: diff changeset	4935	item label:aLabel.
dce33f8bb806 intitial checkin ca parents: diff changeset	4936	^ item
dce33f8bb806 intitial checkin ca parents: diff changeset	4937	!
dce33f8bb806 intitial checkin ca parents: diff changeset	4938
dce33f8bb806 intitial checkin ca parents: diff changeset	4939	in:aSuperMenu menuItem:aMenuItem
dce33f8bb806 intitial checkin ca parents: diff changeset	4940	\|item\|
dce33f8bb806 intitial checkin ca parents: diff changeset	4941
dce33f8bb806 intitial checkin ca parents: diff changeset	4942	item := self in:aSuperMenu.
dce33f8bb806 intitial checkin ca parents: diff changeset	4943	item menuItem:aMenuItem.
dce33f8bb806 intitial checkin ca parents: diff changeset	4944	^ item.
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	4945	!
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	4946
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	4947	new
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	4948	^ self basicNew initialize
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4949	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	4950
1808 e8628b502a49 methodCategory change Claus Gittinger <cg@exept.de> parents: 1806 diff changeset	4951	!MenuPanel::Item methodsFor:'accepting'!
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	4952
420 b6f9fff472ef fixes ca parents: 417 diff changeset	4953	canAccept
b6f9fff472ef fixes ca parents: 417 diff changeset	4954	"returns true if item is acceptable
b6f9fff472ef fixes ca parents: 417 diff changeset	4955	"
2199 61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	4956	self enabled ifFalse:[ ^ false].
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	4957	self hasSubmenu ifFalse:[ ^ true ].
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	4958
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	4959	self hasDelayedMenu ifFalse:[^ false ].
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	4960	^ subMenu isNil or:[subMenu shown not]
524 d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	4961	!
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	4962
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	4963	toggleIndication
1074 25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	4964	"toggle indication or choice
524 d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	4965	"
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	4966	\|arg\|
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	4967
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	4968	indication notNil ifTrue:[
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	4969	arg := self indicationValue not.
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	4970	self indicationValue:arg.
1074 25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	4971	] ifFalse:[
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	4972	choice notNil ifTrue:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	4973	choice value:(menuItem choiceValue).
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	4974	^ true
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	4975	]
524 d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	4976	].
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	4977	^ arg
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	4978	! !
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	4979
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4980	!MenuPanel::Item methodsFor:'accessing'!
dce33f8bb806 intitial checkin ca parents: diff changeset	4981
dce33f8bb806 intitial checkin ca parents: diff changeset	4982	accessCharacter
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	4983	"returns my accessCharacter or nil
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4984	"
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	4985	^ accessCharacter
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4986	!
dce33f8bb806 intitial checkin ca parents: diff changeset	4987
dce33f8bb806 intitial checkin ca parents: diff changeset	4988	accessCharacterPosition
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	4989	"get the access character position or nil
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4990	"
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	4991	^ menuItem accessCharacterPosition
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	4992	!
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	4993
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	4994	accessCharacterPosition:anIndex
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	4995	"set the access character position or nil
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4996	"
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	4997	menuItem accessCharacterPosition:anIndex.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4998	!
dce33f8bb806 intitial checkin ca parents: diff changeset	4999
dce33f8bb806 intitial checkin ca parents: diff changeset	5000	argument
dce33f8bb806 intitial checkin ca parents: diff changeset	5001	"gets the argument
dce33f8bb806 intitial checkin ca parents: diff changeset	5002	"
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5003	^ menuItem argument
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5004	!
dce33f8bb806 intitial checkin ca parents: diff changeset	5005
dce33f8bb806 intitial checkin ca parents: diff changeset	5006	argument:anArgument
dce33f8bb806 intitial checkin ca parents: diff changeset	5007	"sets the argument
dce33f8bb806 intitial checkin ca parents: diff changeset	5008	"
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5009	menuItem argument:anArgument.
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	5010	!
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	5011
1727 a6365337be59 support setting font in MenuPanel and Editor ca parents: 1726 diff changeset	5012	font
a6365337be59 support setting font in MenuPanel and Editor ca parents: 1726 diff changeset	5013	"returns the user configured font or nil (default menu font)
a6365337be59 support setting font in MenuPanel and Editor ca parents: 1726 diff changeset	5014	"
a6365337be59 support setting font in MenuPanel and Editor ca parents: 1726 diff changeset	5015	^ font
a6365337be59 support setting font in MenuPanel and Editor ca parents: 1726 diff changeset	5016	!
a6365337be59 support setting font in MenuPanel and Editor ca parents: 1726 diff changeset	5017
a6365337be59 support setting font in MenuPanel and Editor ca parents: 1726 diff changeset	5018	font:aFont
a6365337be59 support setting font in MenuPanel and Editor ca parents: 1726 diff changeset	5019	"returns the user configured font or nil (default menu font)
a6365337be59 support setting font in MenuPanel and Editor ca parents: 1726 diff changeset	5020	"
2362 7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	5021	self isSeparator ifTrue:[^ self].
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	5022
1727 a6365337be59 support setting font in MenuPanel and Editor ca parents: 1726 diff changeset	5023	aFont ~= font ifTrue:[
2362 7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	5024	aFont notNil ifTrue:[
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	5025	font := aFont onDevice:(menuPanel device)
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	5026	] ifFalse:[
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	5027	"/ use font from menupanel
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	5028	font := nil
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	5029	].
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	5030
2364 c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	5031	rawLabel isString ifTrue:[
2362 7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	5032	"have to recompute the extent"
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	5033	self label:label
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	5034	]
1727 a6365337be59 support setting font in MenuPanel and Editor ca parents: 1726 diff changeset	5035	].
a6365337be59 support setting font in MenuPanel and Editor ca parents: 1726 diff changeset	5036	!
a6365337be59 support setting font in MenuPanel and Editor ca parents: 1726 diff changeset	5037
2345 8b7b3e384002 fallBack to activeHelpKey and label, if no flyByHelp is Claus Gittinger <cg@exept.de> parents: 2344 diff changeset	5038	itemValue
8b7b3e384002 fallBack to activeHelpKey and label, if no flyByHelp is Claus Gittinger <cg@exept.de> parents: 2344 diff changeset	5039	"gets value
8b7b3e384002 fallBack to activeHelpKey and label, if no flyByHelp is Claus Gittinger <cg@exept.de> parents: 2344 diff changeset	5040	"
2360 aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5041	^ menuItem itemValue
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5042	!
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5043
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5044	itemValue:aValue
2345 8b7b3e384002 fallBack to activeHelpKey and label, if no flyByHelp is Claus Gittinger <cg@exept.de> parents: 2344 diff changeset	5045	"argument could be a value holder, an action or selector
8b7b3e384002 fallBack to activeHelpKey and label, if no flyByHelp is Claus Gittinger <cg@exept.de> parents: 2344 diff changeset	5046	"
2360 aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5047	menuItem itemValue:aValue.
2345 8b7b3e384002 fallBack to activeHelpKey and label, if no flyByHelp is Claus Gittinger <cg@exept.de> parents: 2344 diff changeset	5048	!
8b7b3e384002 fallBack to activeHelpKey and label, if no flyByHelp is Claus Gittinger <cg@exept.de> parents: 2344 diff changeset	5049
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5050	label
dce33f8bb806 intitial checkin ca parents: diff changeset	5051	"returns the label
dce33f8bb806 intitial checkin ca parents: diff changeset	5052	"
dce33f8bb806 intitial checkin ca parents: diff changeset	5053	^ label
dce33f8bb806 intitial checkin ca parents: diff changeset	5054	!
dce33f8bb806 intitial checkin ca parents: diff changeset	5055
dce33f8bb806 intitial checkin ca parents: diff changeset	5056	label:aLabel
399 d083b1bce58d ST-80 compatibility ca parents: 396 diff changeset	5057	"set a new label; if the label changed, a redraw is performed;
d083b1bce58d ST-80 compatibility ca parents: 396 diff changeset	5058	handle characters $& (ST-80 compatibility)
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5059	"
1978 a53447b8cbe2 set label; reange menu if extent changed otherwise redraw only the item martin parents: 1955 diff changeset	5060	\|size char lbl mfont f oldExtent
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5061	h "{ Class:SmallInteger }"
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5062	w "{ Class:SmallInteger }"
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5063	\|
1978 a53447b8cbe2 set label; reange menu if extent changed otherwise redraw only the item martin parents: 1955 diff changeset	5064	oldExtent := rawLabelExtent.
2362 7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	5065	rawLabelExtent := 0@0.
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	5066	accessCharacter := disabledRawLabel := nil.
1978 a53447b8cbe2 set label; reange menu if extent changed otherwise redraw only the item martin parents: 1955 diff changeset	5067	label := aLabel value.
a53447b8cbe2 set label; reange menu if extent changed otherwise redraw only the item martin parents: 1955 diff changeset	5068	rawLabel := label value ? ''.
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5069
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5070	rawLabel isString ifTrue:[
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5071	"CHECK FOR SEPARATOR"
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5072
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5073	(menuItem isButton not and:[indication isNil and:[choice isNil]]) ifTrue:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5074	size := rawLabel size.
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5075
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5076	size == 0 ifTrue:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5077	rawLabel := nil. "blank separator"
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5078	^ self
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5079	].
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5080
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5081	size == 1 ifTrue:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5082	char := rawLabel first.
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5083
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5084	(char == $- or:[char == $=]) ifTrue:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5085	label := rawLabel. "line separator"
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5086	rawLabel := nil.
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5087	^ self
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5088	]
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5089	]
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5090	]
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5091	] ifFalse:[
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5092	rawLabel isCollection ifTrue:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5093	rawLabel := rawLabel asArray.
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5094	]
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5095	].
1727 a6365337be59 support setting font in MenuPanel and Editor ca parents: 1726 diff changeset	5096	mfont := menuPanel setFont:font.
a6365337be59 support setting font in MenuPanel and Editor ca parents: 1726 diff changeset	5097
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5098	rawLabel isArray ifTrue:[
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5099	w := h := 0.
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5100
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5101	rawLabel keysAndValuesDo:[:i :el\|
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5102	el notNil ifTrue:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5103	lbl := self updateAccessCharacterFor:el.
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5104	rawLabel at:i put:lbl.
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5105	w := w max:(lbl widthOn:menuPanel).
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5106	h := h + 1 + (lbl heightOn:menuPanel).
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5107	] ifFalse:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5108	h := h + 3
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5109	]
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5110	]
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5111	] ifFalse:[
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5112	rawLabel := self updateAccessCharacterFor:rawLabel.
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5113	w := rawLabel widthOn:menuPanel.
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5114	h := rawLabel heightOn:menuPanel.
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5115	].
1797 28327a68241b give a few more pixels at the right if the used font is Claus Gittinger <cg@exept.de> parents: 1796 diff changeset	5116
28327a68241b give a few more pixels at the right if the used font is Claus Gittinger <cg@exept.de> parents: 1796 diff changeset	5117	"/ care for italic fonts - give a few more pixels at the end
28327a68241b give a few more pixels at the right if the used font is Claus Gittinger <cg@exept.de> parents: 1796 diff changeset	5118	f := mfont ? (menuPanel font).
28327a68241b give a few more pixels at the right if the used font is Claus Gittinger <cg@exept.de> parents: 1796 diff changeset	5119	(f notNil and:[f italic]) ifTrue:[
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5120	w := w + 2.
1797 28327a68241b give a few more pixels at the right if the used font is Claus Gittinger <cg@exept.de> parents: 1796 diff changeset	5121	].
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5122	rawLabelExtent := w@h.
1978 a53447b8cbe2 set label; reange menu if extent changed otherwise redraw only the item martin parents: 1955 diff changeset	5123
1727 a6365337be59 support setting font in MenuPanel and Editor ca parents: 1726 diff changeset	5124	menuPanel setFont:mfont.
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5125	menuPanel shown ifTrue:[ self fetchImages ].
1978 a53447b8cbe2 set label; reange menu if extent changed otherwise redraw only the item martin parents: 1955 diff changeset	5126
a53447b8cbe2 set label; reange menu if extent changed otherwise redraw only the item martin parents: 1955 diff changeset	5127	oldExtent = rawLabelExtent ifTrue:[
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5128	self invalidate
1978 a53447b8cbe2 set label; reange menu if extent changed otherwise redraw only the item martin parents: 1955 diff changeset	5129	] ifFalse:[
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5130	menuPanel mustRearrange
1978 a53447b8cbe2 set label; reange menu if extent changed otherwise redraw only the item martin parents: 1955 diff changeset	5131	].
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5132	!
dce33f8bb806 intitial checkin ca parents: diff changeset	5133
dce33f8bb806 intitial checkin ca parents: diff changeset	5134	menuPanel
dce33f8bb806 intitial checkin ca parents: diff changeset	5135	"returns my menuPanel
dce33f8bb806 intitial checkin ca parents: diff changeset	5136	"
399 d083b1bce58d ST-80 compatibility ca parents: 396 diff changeset	5137	^ menuPanel
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5138	!
dce33f8bb806 intitial checkin ca parents: diff changeset	5139
dce33f8bb806 intitial checkin ca parents: diff changeset	5140	nameKey
dce33f8bb806 intitial checkin ca parents: diff changeset	5141	"gets the nameKey
dce33f8bb806 intitial checkin ca parents: diff changeset	5142	"
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5143	^ menuItem nameKey
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5144	!
dce33f8bb806 intitial checkin ca parents: diff changeset	5145
dce33f8bb806 intitial checkin ca parents: diff changeset	5146	nameKey:aNameKey
dce33f8bb806 intitial checkin ca parents: diff changeset	5147	"sets the nameKey
dce33f8bb806 intitial checkin ca parents: diff changeset	5148	"
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5149	menuItem nameKey:aNameKey.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5150	!
dce33f8bb806 intitial checkin ca parents: diff changeset	5151
dce33f8bb806 intitial checkin ca parents: diff changeset	5152	rawLabel
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	5153	"returns my printable Label
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5154	"
dce33f8bb806 intitial checkin ca parents: diff changeset	5155	^ rawLabel
dce33f8bb806 intitial checkin ca parents: diff changeset	5156	!
dce33f8bb806 intitial checkin ca parents: diff changeset	5157
dce33f8bb806 intitial checkin ca parents: diff changeset	5158	shortcutKey
dce33f8bb806 intitial checkin ca parents: diff changeset	5159	"get the key to press to select the submenu from the keyboard or if
dce33f8bb806 intitial checkin ca parents: diff changeset	5160	no submenu exists evaluate the action assigned to the item (accept).
dce33f8bb806 intitial checkin ca parents: diff changeset	5161	"
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5162	^ menuItem shortcutKey
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5163	!
dce33f8bb806 intitial checkin ca parents: diff changeset	5164
dce33f8bb806 intitial checkin ca parents: diff changeset	5165	shortcutKey:aKey
dce33f8bb806 intitial checkin ca parents: diff changeset	5166	"set the key to press to select the submenu from the keyboard or if
dce33f8bb806 intitial checkin ca parents: diff changeset	5167	no submenu exists evaluate the action assigned to the item (accept).
dce33f8bb806 intitial checkin ca parents: diff changeset	5168	"
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5169	menuItem shortcutKey ~= aKey ifTrue:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5170	menuItem shortcutKey:aKey.
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5171	self invalidate.
1889 43516e4588ce give warning messages for unimplemented menu-aspects Claus Gittinger <cg@exept.de> parents: 1878 diff changeset	5172	].
43516e4588ce give warning messages for unimplemented menu-aspects Claus Gittinger <cg@exept.de> parents: 1878 diff changeset	5173	!
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5174
710 4453e463ff16 add new feature: ca parents: 709 diff changeset	5175	startGroup
4453e463ff16 add new feature: ca parents: 709 diff changeset	5176	"start group #left #right #center ... or nil
4453e463ff16 add new feature: ca parents: 709 diff changeset	5177	at the moment only #right is implemented
4453e463ff16 add new feature: ca parents: 709 diff changeset	5178	"
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5179	^ menuItem startGroup
710 4453e463ff16 add new feature: ca parents: 709 diff changeset	5180	!
4453e463ff16 add new feature: ca parents: 709 diff changeset	5181
4453e463ff16 add new feature: ca parents: 709 diff changeset	5182	startGroup:aSymbol
4453e463ff16 add new feature: ca parents: 709 diff changeset	5183	"start group #left #right #center ...
4453e463ff16 add new feature: ca parents: 709 diff changeset	5184	at the moment only #right is implemented
4453e463ff16 add new feature: ca parents: 709 diff changeset	5185	"
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5186	menuItem startGroup:aSymbol.
710 4453e463ff16 add new feature: ca parents: 709 diff changeset	5187	!
4453e463ff16 add new feature: ca parents: 709 diff changeset	5188
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5189	submenu
dce33f8bb806 intitial checkin ca parents: diff changeset	5190	"returns my submenu or nil
dce33f8bb806 intitial checkin ca parents: diff changeset	5191	"
464 a788fdce92e2 add submenuChannel ca parents: 461 diff changeset	5192	subMenu notNil ifTrue:[^ subMenu].
a788fdce92e2 add submenuChannel ca parents: 461 diff changeset	5193	^ self setupSubmenu
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5194	!
dce33f8bb806 intitial checkin ca parents: diff changeset	5195
dce33f8bb806 intitial checkin ca parents: diff changeset	5196	submenu:aSubMenu
dce33f8bb806 intitial checkin ca parents: diff changeset	5197	"set a new submenu; an existing submenu will be destroyed. This might lead
dce33f8bb806 intitial checkin ca parents: diff changeset	5198	to a redraw if 'hasSubmenu' changed
dce33f8bb806 intitial checkin ca parents: diff changeset	5199	"
1795 6afd0e768267 submenuChannel selector: allow upto two arguments, the arg and the menu ca parents: 1793 diff changeset	5200	\|widget\|
1767 e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	5201
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	5202	aSubMenu isNil ifTrue:[
2360 aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5203	subMenu notNil ifTrue:[
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5204	subMenu destroy.
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5205	subMenu := nil.
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5206	].
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5207	^ self
1767 e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	5208	].
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	5209
1795 6afd0e768267 submenuChannel selector: allow upto two arguments, the arg and the menu ca parents: 1793 diff changeset	5210	(aSubMenu isKindOf:Menu) ifTrue:[
2360 aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5211	subMenu := MenuPanel new.
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5212
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5213	menuPanel notNil ifTrue:[
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5214	subMenu receiver:menuPanel receiver.
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5215	].
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5216	subMenu superMenu:menuPanel.
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5217
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5218	menuItem horizontalLayout == true ifTrue:[
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5219	subMenu verticalLayout:false
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5220	].
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5221	subMenu menu:aSubMenu.
1767 e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	5222	] ifFalse:[
2360 aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5223	aSubMenu isView ifFalse:[
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5224	(aSubMenu isKindOf:ApplicationModel) ifFalse:[
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5225	"/ ... mhhhh ....
2364 c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	5226	^ menuItem submenuChannel:aSubMenu
2360 aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5227	].
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5228	widget := SimpleView new.
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5229	widget client:aSubMenu.
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5230	] ifTrue:[
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5231	widget := aSubMenu
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5232	].
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5233
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5234	(widget isKindOf:MenuPanel) ifTrue:[
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5235	subMenu := widget.
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5236
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5237	menuItem horizontalLayout == true ifTrue:[
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5238	subMenu verticalLayout:false
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5239	].
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5240	] ifFalse:[
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5241	subMenu := MenuPanel new.
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5242	subMenu receiver:menuPanel receiver.
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5243	subMenu addSubView:widget.
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5244	subMenu extent:(widget preferredExtent).
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5245	widget origin:0.0@0.0 corner:1.0@1.0.
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5246	].
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5247	subMenu superMenu:menuPanel.
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5248	].
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	5249	!
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	5250
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	5251	textLabel
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	5252	"returns my textLabel or nil if none text
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	5253	"
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5254	\|txt\|
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5255
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5256	rawLabel notNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	5257	rawLabel isArray ifFalse:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	5258	^ rawLabel perform:#string ifNotUnderstood:nil
93426020ceed * empty log message * ca parents: 2216 diff changeset	5259	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	5260
93426020ceed * empty log message * ca parents: 2216 diff changeset	5261	rawLabel do:[:el\|
93426020ceed * empty log message * ca parents: 2216 diff changeset	5262	(txt := el perform:#string ifNotUnderstood:nil) notNil ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	5263	^ txt
93426020ceed * empty log message * ca parents: 2216 diff changeset	5264	]
93426020ceed * empty log message * ca parents: 2216 diff changeset	5265	].
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5266	].
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5267	^ nil
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	5268
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	5269	!
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	5270
1841 5d01716cc37c implement: triggerOnDown ca parents: 1836 diff changeset	5271	triggerOnDown
5d01716cc37c implement: triggerOnDown ca parents: 1836 diff changeset	5272	"trigger the action if pressed
5d01716cc37c implement: triggerOnDown ca parents: 1836 diff changeset	5273	"
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5274	menuItem triggerOnDown ifTrue:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5275	self hasSubmenu ifFalse:[^ true].
1841 5d01716cc37c implement: triggerOnDown ca parents: 1836 diff changeset	5276	].
5d01716cc37c implement: triggerOnDown ca parents: 1836 diff changeset	5277	^ false
5d01716cc37c implement: triggerOnDown ca parents: 1836 diff changeset	5278	!
5d01716cc37c implement: triggerOnDown ca parents: 1836 diff changeset	5279
5d01716cc37c implement: triggerOnDown ca parents: 1836 diff changeset	5280	triggerOnDown:aBool
5d01716cc37c implement: triggerOnDown ca parents: 1836 diff changeset	5281	"trigger the action if pressed
5d01716cc37c implement: triggerOnDown ca parents: 1836 diff changeset	5282	"
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5283	menuItem triggerOnDown:aBool.
1841 5d01716cc37c implement: triggerOnDown ca parents: 1836 diff changeset	5284	!
5d01716cc37c implement: triggerOnDown ca parents: 1836 diff changeset	5285
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	5286	value
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	5287	"gets value
2345 8b7b3e384002 fallBack to activeHelpKey and label, if no flyByHelp is Claus Gittinger <cg@exept.de> parents: 2344 diff changeset	5288	Left here for ST80 compatibility - value is a bad name
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	5289	"
2360 aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5290	^ menuItem itemValue
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5291	!
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5292
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5293	value:aValue
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	5294	"could be a value holder, an action or selector
2345 8b7b3e384002 fallBack to activeHelpKey and label, if no flyByHelp is Claus Gittinger <cg@exept.de> parents: 2344 diff changeset	5295	Left here for ST80 compatibility - value: is a bad name
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	5296	"
2360 aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5297	menuItem itemValue:aValue.
502 dedc1b29b6ac support of arguments ca parents: 498 diff changeset	5298	!
dedc1b29b6ac support of arguments ca parents: 498 diff changeset	5299
dedc1b29b6ac support of arguments ca parents: 498 diff changeset	5300	value:aValue argument:anArgument
dedc1b29b6ac support of arguments ca parents: 498 diff changeset	5301	"set the value and an argument
dedc1b29b6ac support of arguments ca parents: 498 diff changeset	5302	"
2360 aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5303	menuItem itemValue:aValue.
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5304	menuItem argument:anArgument.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5305	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	5306
1679 af40842718f6 when accepting, and the application does not respond to that Claus Gittinger <cg@exept.de> parents: 1670 diff changeset	5307	!MenuPanel::Item methodsFor:'accessing-behavior'!
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5308
1074 25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	5309	choice
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5310	"implements a radio group; the field
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5311	"
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5312	^ choice
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5313
1074 25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	5314	!
25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	5315
25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	5316	choice:something
25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	5317	"set choice indication
25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	5318	"
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5319	choice == something ifTrue:[^ self].
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5320
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5321	choice isValueModel ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	5322	choice removeDependent:self
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5323	].
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5324
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5325	(choice := something) notNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	5326	choice isSymbol ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	5327	(choice := self aspectAt:choice) isNil ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	5328	choice := something
93426020ceed * empty log message * ca parents: 2216 diff changeset	5329	]
93426020ceed * empty log message * ca parents: 2216 diff changeset	5330	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	5331	choice isValueModel ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	5332	choice addDependent:self
93426020ceed * empty log message * ca parents: 2216 diff changeset	5333	]
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	5334	].
1074 25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	5335	!
25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	5336
25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	5337	choiceValue
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5338	"implements a radio group; the value writen to the choice if selected
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5339	"
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5340	^ menuItem choiceValue
1074 25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	5341	!
25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	5342
25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	5343	choiceValue:something
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5344	"implements a radio group; the value writen to the choice if selected
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5345	"
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5346	menuItem choiceValue ~= something ifTrue:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5347	menuItem choiceValue:something.
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5348	choice notNil ifTrue:[ self invalidate ].
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5349	].
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5350	!
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5351
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5352	enabled
dce33f8bb806 intitial checkin ca parents: diff changeset	5353	"returns the enabled state
dce33f8bb806 intitial checkin ca parents: diff changeset	5354	"
524 d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	5355	\|state\|
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	5356
2364 c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	5357	menuPanel enabled ifFalse:[^ false].
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	5358
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	5359	enableChannel isSymbol ifTrue:[
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	5360	state := self aspectAt:enableChannel.
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	5361
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	5362	state isNil ifTrue:[
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	5363	self ifNotInUIBuilderInfoPrintCR:
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	5364	('MenuPanel::Item [info]: no aspect for ', enableChannel, ' (in ' , label printString , ')').
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	5365	^ true
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	5366	].
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	5367
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	5368	state isValueModel ifTrue:[
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	5369	enableChannel := state.
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	5370	enableChannel addDependent:self.
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	5371	state := enableChannel value.
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	5372	] ifFalse:[
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	5373	state := state value
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	5374	]
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	5375	] ifFalse:[
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	5376	state := enableChannel value
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	5377	].
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	5378	^ state ~~ false
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5379	!
dce33f8bb806 intitial checkin ca parents: diff changeset	5380
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	5381	enabled:something
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5382	"change the enabled state; if the state changed, a redraw is performed
dce33f8bb806 intitial checkin ca parents: diff changeset	5383	"
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	5384	\|oldState newState\|
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	5385
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	5386	enableChannel isNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	5387	oldState := true
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	5388	] ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	5389	oldState := enableChannel value.
93426020ceed * empty log message * ca parents: 2216 diff changeset	5390	enableChannel isValueModel ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	5391	enableChannel removeDependent:self
93426020ceed * empty log message * ca parents: 2216 diff changeset	5392	]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5393	].
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	5394	enableChannel := something.
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	5395
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	5396	enableChannel isNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	5397	menuPanel shown ifFalse:[^ self].
93426020ceed * empty log message * ca parents: 2216 diff changeset	5398	newState := true
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	5399	] ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	5400	enableChannel isValueModel ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	5401	enableChannel addDependent:self
93426020ceed * empty log message * ca parents: 2216 diff changeset	5402	] ifFalse:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	5403	enableChannel isSymbol ifTrue:[^ self]
93426020ceed * empty log message * ca parents: 2216 diff changeset	5404	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	5405	menuPanel shown ifFalse:[^ self].
93426020ceed * empty log message * ca parents: 2216 diff changeset	5406	newState := enableChannel value.
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	5407	].
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	5408
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	5409	newState ~~ oldState ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	5410	self invalidate
1690 38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	5411	].
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	5412	!
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	5413
1670 dbc8a05605e0 add new behavior: hideMenuOnActivated ca parents: 1666 diff changeset	5414	hideMenuOnActivated
dbc8a05605e0 add new behavior: hideMenuOnActivated ca parents: 1666 diff changeset	5415	"hide the menu when the item was activated; the default is true
dbc8a05605e0 add new behavior: hideMenuOnActivated ca parents: 1666 diff changeset	5416	"
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5417	^ menuItem hideMenuOnActivated
1670 dbc8a05605e0 add new behavior: hideMenuOnActivated ca parents: 1666 diff changeset	5418	!
dbc8a05605e0 add new behavior: hideMenuOnActivated ca parents: 1666 diff changeset	5419
dbc8a05605e0 add new behavior: hideMenuOnActivated ca parents: 1666 diff changeset	5420	hideMenuOnActivated:aBool
dbc8a05605e0 add new behavior: hideMenuOnActivated ca parents: 1666 diff changeset	5421	"hide the menu when the item was activated; the default is true
dbc8a05605e0 add new behavior: hideMenuOnActivated ca parents: 1666 diff changeset	5422	"
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5423	menuItem hideMenuOnActivated:aBool.
1670 dbc8a05605e0 add new behavior: hideMenuOnActivated ca parents: 1666 diff changeset	5424	!
dbc8a05605e0 add new behavior: hideMenuOnActivated ca parents: 1666 diff changeset	5425
2216 9cbeda150dae no info for toolbarmenu enable channel penk parents: 2214 diff changeset	5426	ifNotInUIBuilderInfoPrintCR:aMessage
9cbeda150dae no info for toolbarmenu enable channel penk parents: 2214 diff changeset	5427	"/ q&d hack to suppress info-messages in UIBuilder
9cbeda150dae no info for toolbarmenu enable channel penk parents: 2214 diff changeset	5428
9cbeda150dae no info for toolbarmenu enable channel penk parents: 2214 diff changeset	5429	(menuPanel receiver isNil
9cbeda150dae no info for toolbarmenu enable channel penk parents: 2214 diff changeset	5430	and:[ menuPanel application notNil
9cbeda150dae no info for toolbarmenu enable channel penk parents: 2214 diff changeset	5431	and:[ menuPanel application askFor:#isUIPainter]])
9cbeda150dae no info for toolbarmenu enable channel penk parents: 2214 diff changeset	5432	ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	5433	^ self "/ suppressed
2216 9cbeda150dae no info for toolbarmenu enable channel penk parents: 2214 diff changeset	5434	].
9cbeda150dae no info for toolbarmenu enable channel penk parents: 2214 diff changeset	5435	aMessage infoPrintCR
9cbeda150dae no info for toolbarmenu enable channel penk parents: 2214 diff changeset	5436	!
9cbeda150dae no info for toolbarmenu enable channel penk parents: 2214 diff changeset	5437
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	5438	indication
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	5439	"get on/off indication
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	5440	"
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5441	^ indication
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	5442	!
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	5443
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	5444	indication:something
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	5445	"set on/off indication
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	5446	"
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5447	indication == something ifTrue:[^ self].
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5448
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5449	indication isValueModel ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	5450	indication removeDependent:self
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5451	].
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5452
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5453	(indication := something) notNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	5454	indication isValueModel ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	5455	indication addDependent:self
93426020ceed * empty log message * ca parents: 2216 diff changeset	5456	] ifFalse:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	5457	"/ to force an update of the value
93426020ceed * empty log message * ca parents: 2216 diff changeset	5458	self indicationValue
93426020ceed * empty log message * ca parents: 2216 diff changeset	5459	]
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5460	].
464 a788fdce92e2 add submenuChannel ca parents: 461 diff changeset	5461	!
a788fdce92e2 add submenuChannel ca parents: 461 diff changeset	5462
1767 e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	5463	keepLinkedMenu
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	5464	"get the keepLinkedMenu flag
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	5465	"
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5466	^ menuItem keepLinkedMenu
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5467	!
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5468
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5469	keepLinkedMenu:aBool
1767 e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	5470	"get the keepLinkedMenu flag
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	5471	"
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5472	menuItem keepLinkedMenu:aBool.
1767 e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	5473	!
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	5474
2331 ebd240410703 can now specify if menu action is to be performed by ca parents: 2326 diff changeset	5475	sendToOriginator
ebd240410703 can now specify if menu action is to be performed by ca parents: 2326 diff changeset	5476	"if true, the message is sent to the originating widget;
ebd240410703 can now specify if menu action is to be performed by ca parents: 2326 diff changeset	5477	otherwise (the default), it it sent to the receiver/application."
ebd240410703 can now specify if menu action is to be performed by ca parents: 2326 diff changeset	5478
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5479	^ menuItem sendToOriginator
2331 ebd240410703 can now specify if menu action is to be performed by ca parents: 2326 diff changeset	5480	!
ebd240410703 can now specify if menu action is to be performed by ca parents: 2326 diff changeset	5481
ebd240410703 can now specify if menu action is to be performed by ca parents: 2326 diff changeset	5482	sendToOriginator:aBoolean
ebd240410703 can now specify if menu action is to be performed by ca parents: 2326 diff changeset	5483	"if true, the message is sent to the originating widget;
ebd240410703 can now specify if menu action is to be performed by ca parents: 2326 diff changeset	5484	otherwise (the default), it it sent to the receiver/application."
ebd240410703 can now specify if menu action is to be performed by ca parents: 2326 diff changeset	5485
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5486	menuItem sendToOriginator:aBoolean.
2331 ebd240410703 can now specify if menu action is to be performed by ca parents: 2326 diff changeset	5487	!
ebd240410703 can now specify if menu action is to be performed by ca parents: 2326 diff changeset	5488
464 a788fdce92e2 add submenuChannel ca parents: 461 diff changeset	5489	submenuChannel
a788fdce92e2 add submenuChannel ca parents: 461 diff changeset	5490	"get the submenu channel
a788fdce92e2 add submenuChannel ca parents: 461 diff changeset	5491	"
2364 c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	5492	^ menuItem submenuChannel
464 a788fdce92e2 add submenuChannel ca parents: 461 diff changeset	5493	!
a788fdce92e2 add submenuChannel ca parents: 461 diff changeset	5494
a788fdce92e2 add submenuChannel ca parents: 461 diff changeset	5495	submenuChannel:aSelectorOrNil
a788fdce92e2 add submenuChannel ca parents: 461 diff changeset	5496	"returns the submenu channel
a788fdce92e2 add submenuChannel ca parents: 461 diff changeset	5497	"
2364 c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	5498	menuItem submenuChannel:aSelectorOrNil.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5499	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	5500
1679 af40842718f6 when accepting, and the application does not respond to that Claus Gittinger <cg@exept.de> parents: 1670 diff changeset	5501	!MenuPanel::Item methodsFor:'accessing-dimension'!
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5502
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	5503	moveBy:aPoint
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	5504	"move layout origin
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	5505	"
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	5506	layout moveBy:aPoint.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	5507	!
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	5508
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	5509	preferredExtent
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	5510	"compute my preferred extent excluding the shortCutKey and the menu identifier
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	5511	"
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5512	\|isVertical icon wIcon isButton
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	5513	x "{ Class:SmallInteger }"
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	5514	y "{ Class:SmallInteger }"
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	5515	s "{ Class:SmallInteger }"
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	5516	\|
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	5517	self isVisible ifFalse:[^ 0@0 ].
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	5518
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5519	isButton := menuItem isButton.
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5520
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	5521	isButton ifTrue:[
2326 a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	5522	s := menuPanel maxAbsoluteButtonLevel.
a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	5523	x := s + HorizontalButtonInset.
a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	5524	y := s + VerticalButtonInset.
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	5525	] ifFalse:[
2326 a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	5526	x := HorizontalInset.
a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	5527	y := (menuPanel isPopUpView ifTrue:[VerticalPopUpInset] ifFalse:[VerticalInset]) ? 2.
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	5528	].
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	5529	x := x * 2.
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	5530	y := y * 2.
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	5531
1707 4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	5532	isVertical := menuPanel verticalLayout.
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	5533
2362 7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	5534	self isSeparator ifTrue:[
2326 a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	5535	"SEPARATOR"
a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	5536
a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	5537	s := self class separatorSize.
a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	5538	label = '' ifTrue:[
a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	5539	s := self class halfSeparatorSize.
a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	5540	].
a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	5541
a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	5542	"width of doubleSeparator is 5 !!!!"
a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	5543	isVertical ifFalse:[
a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	5544	x := x max:s.
a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	5545	y := y + 5.
a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	5546	] ifTrue:[
a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	5547	y := y max:s.
a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	5548	x := x + 5.
a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	5549	].
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	5550	] ifFalse:[
2326 a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	5551	x := x + rawLabelExtent x.
a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	5552	y := y + rawLabelExtent y.
a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	5553
a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	5554	isButton ifFalse:[
a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	5555	menuPanel showSeparatingLines ifTrue:[
a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	5556	"width of separator is 2 plus right offset 1 := 3"
a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	5557	isVertical ifFalse:[x := x + 3] ifTrue:[y := y + 3].
a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	5558	].
a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	5559	(indication notNil or:[choice notNil]) ifTrue:[
a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	5560	x := x + 2 + menuPanel iconIndicationOff width.
a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	5561	].
a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	5562	].
2344 d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	5563	wIcon := 0.
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	5564	self hasMenuIndicator ifTrue:[
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	5565	icon := MenuPanel menuIndicator.
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	5566	wIcon := MenuPanel menuIndicatorOffset + icon width.
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	5567	] ifFalse:[
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	5568	self hasDelayedMenuIndicator ifTrue:[
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	5569	icon := MenuPanel delayedMenuIndicator.
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	5570	wIcon := MenuPanel delayedMenuIndicatorOffset + icon width.
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	5571	]
2326 a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	5572	].
2344 d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	5573	x := x + wIcon.
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	5574	].
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	5575	^ x@y
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5576	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	5577
1679 af40842718f6 when accepting, and the application does not respond to that Claus Gittinger <cg@exept.de> parents: 1670 diff changeset	5578	!MenuPanel::Item methodsFor:'accessing-help'!
1613 5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	5579
5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	5580	activeHelpKey
5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	5581	"get the active helpKey; the key to retrieve the helpText from the application
5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	5582	"
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5583	^ menuItem activeHelpKey
1613 5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	5584	!
5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	5585
5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	5586	activeHelpKey:aHelpKey
5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	5587	"set the active helpKey; the key to retrieve the helpText from the application
5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	5588	"
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5589	menuItem activeHelpKey:aHelpKey.
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5590	activeHelpText := nil.
1613 5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	5591	!
5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	5592
5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	5593	activeHelpText
5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	5594	"get the active helpText or nil if not yet resolved
5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	5595	"
5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	5596	^ activeHelpText
5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	5597	!
5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	5598
5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	5599	activeHelpText:aText
5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	5600	"set the active helpText
5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	5601	"
5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	5602	activeHelpText := aText.
2345 8b7b3e384002 fallBack to activeHelpKey and label, if no flyByHelp is Claus Gittinger <cg@exept.de> parents: 2344 diff changeset	5603	!
8b7b3e384002 fallBack to activeHelpKey and label, if no flyByHelp is Claus Gittinger <cg@exept.de> parents: 2344 diff changeset	5604
8b7b3e384002 fallBack to activeHelpKey and label, if no flyByHelp is Claus Gittinger <cg@exept.de> parents: 2344 diff changeset	5605	flyByHelpText
8b7b3e384002 fallBack to activeHelpKey and label, if no flyByHelp is Claus Gittinger <cg@exept.de> parents: 2344 diff changeset	5606	"get the flyBy helpText or nil if not yet resolved
8b7b3e384002 fallBack to activeHelpKey and label, if no flyByHelp is Claus Gittinger <cg@exept.de> parents: 2344 diff changeset	5607	"
8b7b3e384002 fallBack to activeHelpKey and label, if no flyByHelp is Claus Gittinger <cg@exept.de> parents: 2344 diff changeset	5608	^ flyByHelpText
8b7b3e384002 fallBack to activeHelpKey and label, if no flyByHelp is Claus Gittinger <cg@exept.de> parents: 2344 diff changeset	5609	!
8b7b3e384002 fallBack to activeHelpKey and label, if no flyByHelp is Claus Gittinger <cg@exept.de> parents: 2344 diff changeset	5610
8b7b3e384002 fallBack to activeHelpKey and label, if no flyByHelp is Claus Gittinger <cg@exept.de> parents: 2344 diff changeset	5611	flyByHelpText:aText
8b7b3e384002 fallBack to activeHelpKey and label, if no flyByHelp is Claus Gittinger <cg@exept.de> parents: 2344 diff changeset	5612	"set the flyBy helpText
8b7b3e384002 fallBack to activeHelpKey and label, if no flyByHelp is Claus Gittinger <cg@exept.de> parents: 2344 diff changeset	5613	"
8b7b3e384002 fallBack to activeHelpKey and label, if no flyByHelp is Claus Gittinger <cg@exept.de> parents: 2344 diff changeset	5614	flyByHelpText := aText.
1613 5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	5615	! !
5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	5616
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5617	!MenuPanel::Item methodsFor:'accessing-look'!
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5618
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5619	horizontalLayout
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5620	"on default submenus has a vertical layout;
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5621	true, the submenu has a horizontal layout.
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5622	"
2360 aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5623	^ menuItem horizontalLayout ? false
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5624	!
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5625
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5626	horizontalLayout:aBoolean
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5627	"on default submenus has a vertical layout;
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5628	true, the submenu has a horizontal layout.
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5629	"
2360 aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5630	menuItem horizontalLayout:aBoolean.
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5631	!
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5632
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5633	isButton
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5634	"returns whether item looks like a Button
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5635	"
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5636	^ menuItem isButton
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5637	!
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5638
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5639	isButton:aBool
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5640	"sets whether item looks like a Button
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5641	"
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5642	menuItem isButton ~~ aBool ifTrue:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5643	menuItem isButton:aBool.
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5644	self invalidate.
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5645	]
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5646	!
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5647
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5648	layout
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5649	"returns my layout ( Rectangle )
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5650	"
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5651	^ layout
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5652	!
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5653
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5654	layout:aLayout
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5655	"set a new layout ( Rectangle )
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5656	"
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5657	layout := aLayout.
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5658	self invalidate.
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5659
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5660	!
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5661
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5662	showBusyCursorWhilePerforming
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5663	"get the flag which controls if a busy cursor is to be shown
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5664	while performing the menu action. Defaults to false.
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5665	"
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5666	^ menuItem showBusyCursorWhilePerforming
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5667	!
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5668
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5669	showBusyCursorWhilePerforming:aBoolean
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5670	"set/clear the flag which controls if a busy cursor is to be shown
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5671	while performing the menu action. Defaults to false.
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5672	"
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5673	menuItem showBusyCursorWhilePerforming:aBoolean.
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5674	! !
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5675
1705 201f9ce1b2d2 checkin from browser ca parents: 1704 diff changeset	5676	!MenuPanel::Item methodsFor:'activation / deactivation'!
201f9ce1b2d2 checkin from browser ca parents: 1704 diff changeset	5677
1786 f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	5678	currentSubmenu
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	5679	"returns the current submenu or nil
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	5680	"
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	5681	^ subMenu
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	5682
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	5683
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	5684
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	5685	!
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	5686
1705 201f9ce1b2d2 checkin from browser ca parents: 1704 diff changeset	5687	hideSubmenu
201f9ce1b2d2 checkin from browser ca parents: 1704 diff changeset	5688	"hide submenu
201f9ce1b2d2 checkin from browser ca parents: 1704 diff changeset	5689	"
2199 61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	5690	self hideSubmenu:subMenu.
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	5691	!
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	5692
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	5693	hideSubmenu:aSubmenu
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	5694	"hide submenu
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	5695	"
1705 201f9ce1b2d2 checkin from browser ca parents: 1704 diff changeset	5696	\|id\|
201f9ce1b2d2 checkin from browser ca parents: 1704 diff changeset	5697
2199 61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	5698	aSubmenu ifNil:[^ self].
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	5699
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	5700	aSubmenu realized ifFalse:[
2364 c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	5701	id := aSubmenu id.
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	5702	id ifNotNil:[ menuPanel device unmapWindow:id ]
2199 61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	5703	] ifTrue:[
2364 c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	5704	aSubmenu hide
2199 61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	5705	].
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	5706
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	5707	aSubmenu windowGroup:nil.
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	5708	menuPanel windowGroup removeView:aSubmenu.
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	5709
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	5710	"/ release menu if derived from channel
2364 c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	5711	(subMenu == aSubmenu and:[menuItem submenuChannel notNil]) ifTrue:[
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	5712	menuItem keepLinkedMenu ifFalse:[
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	5713	subMenu := nil
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	5714	]
2199 61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	5715	].
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	5716	!
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	5717
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	5718	openDelayedSubmenu
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	5719	"called to open now my delayed submenu
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	5720	"
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	5721	\|subm\|
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	5722
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	5723	(self isSelected and:[menuPanel shown]) ifFalse:[^ self].
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	5724
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	5725	subMenu ifNotNil:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	5726	subMenu realized ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	5727	"/ already open
93426020ceed * empty log message * ca parents: 2216 diff changeset	5728	^ self
93426020ceed * empty log message * ca parents: 2216 diff changeset	5729	].
2199 61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	5730	].
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	5731	subm := self setupSubmenu.
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	5732	subm ifNil:[^ self].
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	5733
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	5734	self openSubmenu.
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	5735
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	5736	(subm == subMenu and:[self isSelected]) ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	5737	"/ closed during building or opening the submenu
93426020ceed * empty log message * ca parents: 2216 diff changeset	5738	self hideSubmenu:subm.
2199 61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	5739	].
1705 201f9ce1b2d2 checkin from browser ca parents: 1704 diff changeset	5740	!
1701 026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5741
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5742	openSubmenu
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5743	"opens the submenu; make sure, that the submenu and the menPanel
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5744	is fully visible by shifting it into the visible screen area if
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5745	nescessary.
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5746	"
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	5747	\|p o device isVertical topMenu windGrp prefExtent
1701 026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5748	devBot "{ Class:SmallInteger }"
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5749	devRight "{ Class:SmallInteger }"
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5750	width "{ Class:SmallInteger }"
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5751	height "{ Class:SmallInteger }"
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5752	top "{ Class:SmallInteger }"
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5753	left "{ Class:SmallInteger }"
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5754	\|
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5755
1737 c18896a7cb50 replace shown by realized; when opening a submenue-submenue by shortcut key ca parents: 1735 diff changeset	5756	(subMenu notNil and:[subMenu shown not and:[self isSelected and:[menuPanel realized]]]) ifFalse:[
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	5757	^ self
1701 026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5758	].
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5759
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5760	topMenu := menuPanel topMenu.
1829 bd8b95c5bb89 migration fixes Claus Gittinger <cg@exept.de> parents: 1825 diff changeset	5761	(subMenu device notNil and:[topMenu device ~~ subMenu device]) ifTrue:[
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	5762	subMenu releaseDeviceResources.
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	5763	subMenu setDevice:topMenu device id:nil gcId:nil.
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	5764	subMenu recreate.
1829 bd8b95c5bb89 migration fixes Claus Gittinger <cg@exept.de> parents: 1825 diff changeset	5765	].
bd8b95c5bb89 migration fixes Claus Gittinger <cg@exept.de> parents: 1825 diff changeset	5766
1701 026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5767	windGrp := topMenu windowGroup.
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5768
1707 4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	5769	subMenu superMenu:menuPanel.
1701 026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5770	subMenu becomesActiveMenu.
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5771	subMenu cursor:Cursor hand.
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5772
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5773	windGrp notNil ifTrue:[
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	5774	subMenu windowGroup:windGrp.
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	5775	windGrp addTopView:subMenu.
1701 026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5776	].
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5777
2111 f3d67f7c0f92 bug fix when opening a menu by mnemonic ca parents: 2100 diff changeset	5778	"Q&D kludge - test whether the layout is nil;
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	5779	if true recompute the layouts
2111 f3d67f7c0f92 bug fix when opening a menu by mnemonic ca parents: 2100 diff changeset	5780	"
f3d67f7c0f92 bug fix when opening a menu by mnemonic ca parents: 2100 diff changeset	5781	layout ifNil:[menuPanel rearrangeItems].
f3d67f7c0f92 bug fix when opening a menu by mnemonic ca parents: 2100 diff changeset	5782
1701 026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5783	" Q&D kludge - if any visibility attributes are blocks;
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5784	TODO: only invoke mustRearrange if any are blocks
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	5785	(since I react correctly on valueHolder changes)
1701 026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5786	"
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5787	subMenu rearrangeItemsIfItemVisibilityChanged.
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5788	subMenu fixSize.
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5789
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5790	"compute origin of subMenu
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5791	"
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5792	isVertical := menuPanel verticalLayout.
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5793	device := menuPanel device.
1714 b4c05977e9d5 get heigth and width from preferredExtent when open a submenu ca parents: 1710 diff changeset	5794	prefExtent := subMenu preferredExtent.
b4c05977e9d5 get heigth and width from preferredExtent when open a submenu ca parents: 1710 diff changeset	5795	height := prefExtent y.
b4c05977e9d5 get heigth and width from preferredExtent when open a submenu ca parents: 1710 diff changeset	5796	width := prefExtent x.
1701 026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5797	devBot := device usableHeight.
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5798	devRight := device usableWidth.
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5799
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5800	p := isVertical ifTrue:[layout topRight - 2] ifFalse:[layout bottomLeft].
1707 4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	5801
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	5802	menuPanel isPopUpView ifTrue:[
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	5803	o := menuPanel origin + p
1707 4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	5804	] ifFalse:[
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	5805	o := menuPanel translatePoint:p to:nil. "/ translate to root window
1707 4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	5806	].
1701 026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5807	left := o x.
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5808	top := o y.
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5809
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	5810	top + height > devBot ifTrue:[
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	5811	top := isVertical ifTrue:[devBot - height]
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	5812	ifFalse:[top - layout height - height + 2]
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	5813	].
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	5814	top := top max:0.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	5815
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	5816	"/ (isVertical not and:[subMenu isVerticalLayout]) ifTrue:[
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	5817	"/ top < menuPanel bottom ifTrue:[
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	5818	"/ left := left + layout width.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	5819	"/ ].
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	5820	"/ left + width > devRight ifTrue:[
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	5821	"/ left := o x - width - 2
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	5822	"/ ].
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	5823	"/ ].
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	5824
1701 026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5825	left + width > devRight ifTrue:[
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	5826	left := isVertical ifTrue:[left - layout width - width + 2]
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	5827	ifFalse:[devRight - width]
1701 026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5828	].
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5829	left := left max:0.
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5830
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5831	subMenu origin:(left@top).
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5832
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5833	subMenu realized ifFalse:[
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	5834	subMenu realize.
1701 026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5835	] ifTrue:[
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	5836	topMenu device mapWindow:(subMenu id).
1786 f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	5837	].
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	5838	!
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	5839
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	5840	toggleSubmenuVisibility
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	5841	"toggle the visibility of the submenu
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	5842	"
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	5843	subMenu notNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	5844	subMenu shown ifTrue:[^ self hideSubmenu]
1786 f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	5845	] ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	5846	(subMenu := self setupSubmenu) isNil ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	5847	"/ cannot open a submenu
93426020ceed * empty log message * ca parents: 2216 diff changeset	5848	^ self
93426020ceed * empty log message * ca parents: 2216 diff changeset	5849	]
1786 f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	5850	].
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	5851	self openSubmenu.
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	5852
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	5853
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	5854	!
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	5855
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	5856	visibleSubmenu
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	5857	"returns the current visible submenu or nil
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	5858	"
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	5859	subMenu notNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	5860	subMenu shown ifTrue:[^ subMenu].
1786 f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	5861	].
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	5862	^ nil
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	5863
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	5864
1701 026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5865
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5866	! !
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5867
524 d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	5868	!MenuPanel::Item methodsFor:'building'!
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	5869
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	5870	aspectAt:aKey
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	5871	"retursns value assigned to key or nil
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	5872	"
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	5873	\|appl value\|
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	5874
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	5875	appl := menuPanel receiver.
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	5876
1219 6a0d677a6fac removed some #isKindOf: calls. Claus Gittinger <cg@exept.de> parents: 1218 diff changeset	5877	(appl isValueModel) ifTrue:[
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5878	^ appl value:aKey
524 d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	5879	].
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	5880
2123 091268558e93 * empty log message * ca parents: 2118 diff changeset	5881	appl isNil ifTrue:[
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5882	appl := menuPanel application.
2123 091268558e93 * empty log message * ca parents: 2118 diff changeset	5883	].
091268558e93 * empty log message * ca parents: 2118 diff changeset	5884	appl isNil ifTrue:[ ^ nil].
091268558e93 * empty log message * ca parents: 2118 diff changeset	5885
091268558e93 * empty log message * ca parents: 2118 diff changeset	5886	MessageNotUnderstood handle:[:ex\|
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5887	ex selector == aKey ifFalse:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5888	ex reject
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5889	].
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5890	self ifNotInUIBuilderInfoPrintCR:
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5891	('MenuPanel::Item [info]: application does not provide aspect: ' , aKey).
2123 091268558e93 * empty log message * ca parents: 2118 diff changeset	5892	] do:[
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5893	aKey numArgs == 1 ifTrue:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5894	value := appl perform:aKey with:(menuItem argument ? self).
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5895	] ifFalse:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5896	(appl respondsTo:#aspectFor:) ifTrue:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5897	value := appl aspectFor:aKey
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5898	] ifFalse:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5899	value := appl perform:aKey
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5900	]
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5901	]
524 d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	5902	].
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	5903	^ value
1029 c9e90585fa89 only ignore messageNotUnderstood for my aspects. Claus Gittinger <cg@exept.de> parents: 1026 diff changeset	5904
c9e90585fa89 only ignore messageNotUnderstood for my aspects. Claus Gittinger <cg@exept.de> parents: 1026 diff changeset	5905	"Modified: / 29.7.1998 / 11:59:50 / cg"
524 d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	5906	! !
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	5907
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	5908	!MenuPanel::Item methodsFor:'change & update'!
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	5909
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5910	update:something with:aParameter from:changedObject
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5911
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5912	\|form rect\|
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5913
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5914	(menuPanel isNil or:[layout isNil]) ifTrue:[^ self]. "/ not yet realized or computed
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5915
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5916	self isSeparator ifFalse:[
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5917	"/ NOT A SEPARATOR
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5918
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5919	menuPanel shown ifTrue:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5920	changedObject == enableChannel ifTrue:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5921	(enableChannel value == false and:[self isSelected]) ifTrue:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5922	^ menuPanel selection:nil.
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5923	].
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5924	^ self invalidate
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5925	].
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5926
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5927	(changedObject == indication or:[changedObject == choice]) ifTrue:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5928	menuItem isButton ifTrue:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5929	self invalidate
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5930	] ifFalse:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5931	"/ invalidate the interactor only
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5932	"/ take any interactor; interactors has the same extent
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5933	form := menuPanel iconIndicationOff.
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5934
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5935	rect := Rectangle left:(layout left + HorizontalInset)
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5936	top:(layout top)
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5937	width:(form width)
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5938	height:(layout height).
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5939
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5940	menuPanel invalidate:rect repairNow:false
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5941	].
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5942	^ self
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5943	].
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5944	].
498 b4c341497621 bug fixes: ca parents: 475 diff changeset	5945	].
712 4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	5946
4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	5947	changedObject == isVisible ifTrue:[
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5948	menuPanel mustRearrange.
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5949	menuPanel rearrangeItems.
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5950	^ self.
712 4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	5951	].
4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	5952
498 b4c341497621 bug fixes: ca parents: 475 diff changeset	5953	super update:something with:aParameter from:changedObject
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	5954	!
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	5955
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	5956	updateIndicators
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	5957	"update indicators
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	5958	"
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5959	(indication notNil and:[indication isSymbol]) ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	5960	" indication is a selector otherwise a change notification
93426020ceed * empty log message * ca parents: 2216 diff changeset	5961	is raised from the model !!!!
93426020ceed * empty log message * ca parents: 2216 diff changeset	5962	"
93426020ceed * empty log message * ca parents: 2216 diff changeset	5963	self update:nil with:nil from:indication
1074 25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	5964	]
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	5965	! !
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	5966
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5967	!MenuPanel::Item methodsFor:'converting'!
dce33f8bb806 intitial checkin ca parents: diff changeset	5968
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	5969	asMenuItem
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	5970	"convert to a MenuItem
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	5971	"
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5972	^ menuItem
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5973	!
dce33f8bb806 intitial checkin ca parents: diff changeset	5974
dce33f8bb806 intitial checkin ca parents: diff changeset	5975	menuItem:aMenuItem
dce33f8bb806 intitial checkin ca parents: diff changeset	5976	"setup attributes from a MenuItem
dce33f8bb806 intitial checkin ca parents: diff changeset	5977	"
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5978	\|lbl\|
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	5979
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5980	menuPanel disabledRedrawDo:[
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5981	menuItem := aMenuItem.
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5982	menuItem isNil ifTrue:[ menuItem := MenuItem new].
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5983
2360 aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5984	label := rawLabel := activeHelpText := nil.
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5985
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5986	self font:(menuItem font).
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5987
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5988	self enabled:(menuItem enabled).
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5989	self indication:(menuItem indication).
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5990	self choice:(menuItem choice).
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5991	self isVisible:(menuItem isVisible ? true).
2326 a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	5992
a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	5993	"/ we should call here resourceRetriever insteat of labelImage
a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	5994	"/ but ... ??
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5995	(lbl := menuItem labelImage value) isNil ifTrue:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5996	lbl := menuItem rawLabel. "/ avoid translating &'s twice
2326 a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	5997	].
a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	5998
2364 c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	5999	self submenu:(menuItem submenu).
2326 a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	6000	self label:lbl.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	6001	]
1033 9badc22e3d03 oops &'s where eliminated twice - leading to double &'s Claus Gittinger <cg@exept.de> parents: 1032 diff changeset	6002
1090 cf3d9f5648da only draw with enteredLevel, if item is enabled Claus Gittinger <cg@exept.de> parents: 1083 diff changeset	6003	"Modified: / 22.8.1998 / 15:34:16 / cg"
388 dce33f8bb806 intitial checkin ca parents: diff changeset	6004	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	6005
dce33f8bb806 intitial checkin ca parents: diff changeset	6006	!MenuPanel::Item methodsFor:'drawing'!
dce33f8bb806 intitial checkin ca parents: diff changeset	6007
1707 4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6008	drawButton
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6009	"draw as button
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6010	"
2362 7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6011	\|drawObject fg etchFg level isEnabled isSelected bg ownBgCol showSelected
1707 4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6012	x "{ Class:SmallInteger }"
2143 7b99a7348c97 draw label shifted right-down when pressed penk parents: 2142 diff changeset	6013	y "{ Class:SmallInteger }"
1707 4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6014	\|
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6015	drawObject := rawLabel.
2362 7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6016	isEnabled := self enabled.
2159 1eac041aeb3d toggle button draw & behavior Claus Gittinger <cg@exept.de> parents: 2145 diff changeset	6017	isSelected := self isSelected.
2362 7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6018
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6019	isSelected ifFalse:[
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6020	"/ test whether button has pressed toggle behaviour
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6021	showSelected := (self isToggle and:[self indicationValue]).
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6022	] ifTrue:[
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6023	showSelected := isSelected
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6024	].
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6025
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6026	showSelected ifTrue:[
1707 4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6027	bg := self activeBackgroundColor.
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6028	fg := self activeForegroundColor.
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6029	] ifFalse:[
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6030	self isEntered ifTrue:[
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6031	bg := self buttonEnteredBackgroundColor
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6032	] ifFalse:[
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6033	bg := self backgroundColor
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6034	].
2059 c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6035	isEnabled ifTrue:[
1707 4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6036	fg := menuPanel foregroundColor
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6037	] ifFalse:[
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6038	fg := menuPanel disabledForegroundColor.
2059 c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6039	etchFg := menuPanel disabledEtchedForegroundColor.
1707 4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6040	drawObject := self disabledRawLabel
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6041	]
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6042	].
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6043
1708 cfaf55b9043d bug fix in background color of button when derives from label(text) ca parents: 1707 diff changeset	6044	(ownBgCol := self backgroundColorFromLabel) notNil ifTrue:[
cfaf55b9043d bug fix in background color of button when derives from label(text) ca parents: 1707 diff changeset	6045	bg := ownBgCol
cfaf55b9043d bug fix in background color of button when derives from label(text) ca parents: 1707 diff changeset	6046	].
cfaf55b9043d bug fix in background color of button when derives from label(text) ca parents: 1707 diff changeset	6047
1707 4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6048	"DRAW BACKGROUND"
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6049	bg ~= menuPanel backgroundColor ifTrue:[
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6050	menuPanel paint:bg.
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6051	menuPanel fillRectangle:layout.
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6052	].
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6053
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6054	x := layout left + menuPanel buttonPassiveLevel + HorizontalButtonInset.
2362 7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6055
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6056	(drawObject isImage and:[menuPanel centerItems]) ifTrue:[
2337 7f384db88273 centerItems attribute Claus Gittinger <cg@exept.de> parents: 2332 diff changeset	6057	x := x + (layout width - menuPanel buttonPassiveLevel - HorizontalButtonInset - 1 - drawObject width // 2).
7f384db88273 centerItems attribute Claus Gittinger <cg@exept.de> parents: 2332 diff changeset	6058	].
1707 4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6059
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6060	isSelected ifFalse:[
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6061	"check whether button should be drawn selected; indicator or radio button"
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6062
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6063	indication notNil ifTrue:[
1707 4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6064	"button is indicator and set"
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6065	isSelected := self indicationValue
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6066	] ifFalse:[
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6067	isSelected := (choice notNil and:[choice value = menuItem choiceValue]).
1707 4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6068	]
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6069	].
2143 7b99a7348c97 draw label shifted right-down when pressed penk parents: 2142 diff changeset	6070	y := 0.
1707 4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6071
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6072	isSelected ifTrue:[
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6073	level := menuPanel buttonActiveLevel.
2142 ea2a32738005 pressed button label only shifted by one pixel penk parents: 2141 diff changeset	6074	x := x + 1 "level abs".
2143 7b99a7348c97 draw label shifted right-down when pressed penk parents: 2142 diff changeset	6075	y := y + 1 "level abs".
1707 4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6076	] ifFalse:[
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6077	level := self isEntered ifTrue:[menuPanel buttonEnteredLevel]
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	6078	ifFalse:[menuPanel buttonPassiveLevel].
2059 c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6079	].
c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6080
2362 7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6081	drawObject isEmptyOrNil ifFalse:[
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6082	etchFg notNil ifTrue:[
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6083	self drawRawLabel:drawObject atX:x+1 yOffset:y+1 paint:etchFg.
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6084	].
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6085	self drawRawLabel:drawObject atX:x yOffset:y+0 paint:fg.
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6086	].
2344 d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6087	self drawMenuIndicator.
1707 4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6088
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6089	level ~~ 0 ifTrue:[
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6090	menuPanel drawButtonEdgesFor:self level:level
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6091	].
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6092	!
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6093
2344 d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6094	drawLabel
2214 8eefad87cf62 drawing delayed menu indicators... first try not yet finished ca parents: 2199 diff changeset	6095	"draw a labeled entry; no button, no separator.
8eefad87cf62 drawing delayed menu indicators... first try not yet finished ca parents: 2199 diff changeset	6096	"
2344 d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6097	\|scKey cLb cLa drawObject fg etchFg arrow
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6098	isSelected isEnabled form
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6099	h "{ Class:SmallInteger }"
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6100	y "{ Class:SmallInteger }"
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6101	x "{ Class:SmallInteger }"
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6102	t "{ Class:SmallInteger }"
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6103	\|
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6104	drawObject := rawLabel.
2362 7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6105	isEnabled := self enabled.
2344 d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6106	isSelected := self isSelected.
2362 7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6107
2344 d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6108	isSelected ifTrue:[
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6109	fg := self activeForegroundColor
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6110	] ifFalse:[
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6111	isEnabled ifTrue:[
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6112	self isEntered ifTrue:[
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6113	fg := menuPanel enteredForegroundColor
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6114	] ifFalse:[
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6115	fg := menuPanel foregroundColor
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6116	]
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6117	] ifFalse:[
2362 7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6118	fg := menuPanel disabledForegroundColor.
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6119	etchFg := menuPanel disabledEtchedForegroundColor.
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6120	drawObject := self disabledRawLabel
2344 d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6121	]
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6122	].
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6123
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6124	h := layout height.
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6125	x := layout left + HorizontalInset.
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6126	t := layout top.
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6127
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6128	((form := self indicatorForm) notNil or:[(form := self choiceForm) notNil]) ifTrue:[
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6129	y := t + ((h - form height) // 2).
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6130
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6131	form displayOn:menuPanel x:x y:y.
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6132	x := x + 2 + form width.
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6133	].
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6134
2362 7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6135	drawObject isEmptyOrNil ifFalse:[
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6136	etchFg notNil ifTrue:[
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6137	self drawRawLabel:drawObject atX:x+1 yOffset:1 paint:etchFg.
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6138	].
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6139	self drawRawLabel:drawObject atX:x yOffset:0 paint:fg.
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6140	].
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6141
2344 d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6142	self drawMenuIndicator.
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6143
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6144	"/ DRAW SHORTCUT KEY
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6145
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6146	( menuItem shortcutKey notNil
2344 d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6147	and:[(x := menuPanel shortKeyInset) ~~ 0
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6148	and:[(scKey:= self shortcutKeyAsString) notNil]]
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6149	) ifTrue:[
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6150	x := layout left + x.
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6151	y := t + ((h - (scKey heightOn:menuPanel)) // 2).
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6152	y := y + menuPanel font ascent.
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6153	scKey displayOn:menuPanel x:x y:y.
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6154	].
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6155
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6156	"/ DRAW SUBMENU INDICATION
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6157
2362 7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6158	(menuPanel isVerticalLayout and:[self hasSubmenu]) ifFalse:[
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6159	^ self
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6160	].
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6161	arrow := menuPanel rightArrow.
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6162	x := layout right - arrow width - HorizontalInset.
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6163	y := t + (h - arrow height // 2).
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6164
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6165	(menuPanel styleSheet is3D not
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6166	or:[(drawObject := menuPanel rightArrowShadow) isNil]) ifTrue:[
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6167	^ menuPanel displayForm:arrow x:x y:y
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6168	].
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6169	cLa := menuPanel shadowColor.
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6170	cLb := menuPanel lightColor.
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6171
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6172	isSelected ifFalse:[
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6173	fg := cLa.
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6174	cLa := cLb.
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6175	cLb := fg
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6176	].
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6177	menuPanel paint:cLa.
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6178	menuPanel displayForm:arrow x:x y:y.
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6179	menuPanel paint:cLb.
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6180	menuPanel displayForm:drawObject x:x y:y.
2344 d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6181
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6182	"Modified: / 6.9.1998 / 21:48:53 / cg"
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6183	!
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6184
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6185	drawMenuIndicator
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6186	"draw a menu indicator if the item has a menu or delayed menu.
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6187	"
2220 5ea0ceb20354 delayed submenu indicator Claus Gittinger <cg@exept.de> parents: 2219 diff changeset	6188	\|x y icon bAbsLevel\|
2214 8eefad87cf62 drawing delayed menu indicators... first try not yet finished ca parents: 2199 diff changeset	6189
2344 d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6190	self hasDelayedMenuIndicator ifTrue:[
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6191	icon := MenuPanel delayedMenuIndicator.
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6192	] ifFalse:[
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6193	self hasMenuIndicator ifTrue:[
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6194	icon := MenuPanel menuIndicator.
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6195	] ifFalse:[
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6196	^ self
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6197	]
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6198	].
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6199
2214 8eefad87cf62 drawing delayed menu indicators... first try not yet finished ca parents: 2199 diff changeset	6200	x := layout right - icon width.
2220 5ea0ceb20354 delayed submenu indicator Claus Gittinger <cg@exept.de> parents: 2219 diff changeset	6201	false "/ delayedMenuIndicatorVerticalPosition == #center
5ea0ceb20354 delayed submenu indicator Claus Gittinger <cg@exept.de> parents: 2219 diff changeset	6202	ifTrue:[
5ea0ceb20354 delayed submenu indicator Claus Gittinger <cg@exept.de> parents: 2219 diff changeset	6203	y := layout height - icon height // 2 + layout top.
5ea0ceb20354 delayed submenu indicator Claus Gittinger <cg@exept.de> parents: 2219 diff changeset	6204	] ifFalse:[
5ea0ceb20354 delayed submenu indicator Claus Gittinger <cg@exept.de> parents: 2219 diff changeset	6205	y := layout bottom - icon height - 2.
5ea0ceb20354 delayed submenu indicator Claus Gittinger <cg@exept.de> parents: 2219 diff changeset	6206	].
5ea0ceb20354 delayed submenu indicator Claus Gittinger <cg@exept.de> parents: 2219 diff changeset	6207
5ea0ceb20354 delayed submenu indicator Claus Gittinger <cg@exept.de> parents: 2219 diff changeset	6208	bAbsLevel := 0.
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6209	menuItem isButton ifTrue:[
2220 5ea0ceb20354 delayed submenu indicator Claus Gittinger <cg@exept.de> parents: 2219 diff changeset	6210	self isSelected ifTrue:[
5ea0ceb20354 delayed submenu indicator Claus Gittinger <cg@exept.de> parents: 2219 diff changeset	6211	x := x + 1.
5ea0ceb20354 delayed submenu indicator Claus Gittinger <cg@exept.de> parents: 2219 diff changeset	6212	y := y + 1.
5ea0ceb20354 delayed submenu indicator Claus Gittinger <cg@exept.de> parents: 2219 diff changeset	6213	].
5ea0ceb20354 delayed submenu indicator Claus Gittinger <cg@exept.de> parents: 2219 diff changeset	6214	bAbsLevel := menuPanel maxAbsoluteButtonLevel.
5ea0ceb20354 delayed submenu indicator Claus Gittinger <cg@exept.de> parents: 2219 diff changeset	6215	x := x - bAbsLevel.
5ea0ceb20354 delayed submenu indicator Claus Gittinger <cg@exept.de> parents: 2219 diff changeset	6216	y := y - bAbsLevel.
5ea0ceb20354 delayed submenu indicator Claus Gittinger <cg@exept.de> parents: 2219 diff changeset	6217	].
5ea0ceb20354 delayed submenu indicator Claus Gittinger <cg@exept.de> parents: 2219 diff changeset	6218	x := x - 1 "- HorizontalInset".
5ea0ceb20354 delayed submenu indicator Claus Gittinger <cg@exept.de> parents: 2219 diff changeset	6219
5ea0ceb20354 delayed submenu indicator Claus Gittinger <cg@exept.de> parents: 2219 diff changeset	6220	(self isEnabled "and:[self delayedMenuIsEnabled]") ifFalse:[
5ea0ceb20354 delayed submenu indicator Claus Gittinger <cg@exept.de> parents: 2219 diff changeset	6221	icon := menuPanel lightenedImageOnDevice:icon
2214 8eefad87cf62 drawing delayed menu indicators... first try not yet finished ca parents: 2199 diff changeset	6222	].
8eefad87cf62 drawing delayed menu indicators... first try not yet finished ca parents: 2199 diff changeset	6223	icon displayOn:menuPanel x:x y:y.
2220 5ea0ceb20354 delayed submenu indicator Claus Gittinger <cg@exept.de> parents: 2219 diff changeset	6224
2234 29eba50f76eb drawColSep beautified; Claus Gittinger <cg@exept.de> parents: 2232 diff changeset	6225	(false "drawDelayedMenuIndicatorSeparator" and:[ menuPanel buttonPassiveLevel ~~ 0 ])
2220 5ea0ceb20354 delayed submenu indicator Claus Gittinger <cg@exept.de> parents: 2219 diff changeset	6226	ifTrue:[
5ea0ceb20354 delayed submenu indicator Claus Gittinger <cg@exept.de> parents: 2219 diff changeset	6227	menuPanel paint:menuPanel buttonShadowColor.
5ea0ceb20354 delayed submenu indicator Claus Gittinger <cg@exept.de> parents: 2219 diff changeset	6228	menuPanel displayLineFromX:x-2 y:layout top+bAbsLevel+1 toX:x-2 y:layout bottom-bAbsLevel-2.
5ea0ceb20354 delayed submenu indicator Claus Gittinger <cg@exept.de> parents: 2219 diff changeset	6229	menuPanel paint:menuPanel buttonLightColor.
5ea0ceb20354 delayed submenu indicator Claus Gittinger <cg@exept.de> parents: 2219 diff changeset	6230	menuPanel displayLineFromX:x-1 y:layout top+bAbsLevel+1 toX:x-1 y:layout bottom-bAbsLevel-2.
5ea0ceb20354 delayed submenu indicator Claus Gittinger <cg@exept.de> parents: 2219 diff changeset	6231	].
2214 8eefad87cf62 drawing delayed menu indicators... first try not yet finished ca parents: 2199 diff changeset	6232	!
8eefad87cf62 drawing delayed menu indicators... first try not yet finished ca parents: 2199 diff changeset	6233
2059 c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6234	drawRawLabel:aLabel atX:x yOffset:yOffset paint:fg
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6235	"draw a labeled entry; no button, no separator.
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6236	"
2059 c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6237	\|mfont fontAscent
1727 a6365337be59 support setting font in MenuPanel and Editor ca parents: 1726 diff changeset	6238	y "{ Class:SmallInteger }"
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6239	y0 "{ Class:SmallInteger }"
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6240	x0 "{ Class:SmallInteger }"
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6241	\|
2059 c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6242
1727 a6365337be59 support setting font in MenuPanel and Editor ca parents: 1726 diff changeset	6243	mfont := menuPanel setFont:font.
2059 c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6244	fontAscent := menuPanel font ascent.
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6245	menuPanel paint:fg.
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6246
2059 c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6247	y := layout top + (layout height - rawLabelExtent y // 2) + yOffset.
2337 7f384db88273 centerItems attribute Claus Gittinger <cg@exept.de> parents: 2332 diff changeset	6248	"/ menuPanel centerItems ifTrue:[self halt].
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6249	aLabel isArray ifFalse:[
2337 7f384db88273 centerItems attribute Claus Gittinger <cg@exept.de> parents: 2332 diff changeset	6250	aLabel isImageOrForm ifFalse:[
7f384db88273 centerItems attribute Claus Gittinger <cg@exept.de> parents: 2332 diff changeset	6251	y := y + fontAscent.
7f384db88273 centerItems attribute Claus Gittinger <cg@exept.de> parents: 2332 diff changeset	6252	].
7f384db88273 centerItems attribute Claus Gittinger <cg@exept.de> parents: 2332 diff changeset	6253	aLabel displayOn:menuPanel x:x y:y.
1727 a6365337be59 support setting font in MenuPanel and Editor ca parents: 1726 diff changeset	6254	] ifTrue:[
2337 7f384db88273 centerItems attribute Claus Gittinger <cg@exept.de> parents: 2332 diff changeset	6255	aLabel do:[:el\|
7f384db88273 centerItems attribute Claus Gittinger <cg@exept.de> parents: 2332 diff changeset	6256	el notNil ifTrue:[
7f384db88273 centerItems attribute Claus Gittinger <cg@exept.de> parents: 2332 diff changeset	6257	el isImageOrForm ifFalse:[
7f384db88273 centerItems attribute Claus Gittinger <cg@exept.de> parents: 2332 diff changeset	6258	y0 := y + fontAscent
7f384db88273 centerItems attribute Claus Gittinger <cg@exept.de> parents: 2332 diff changeset	6259	] ifTrue:[
7f384db88273 centerItems attribute Claus Gittinger <cg@exept.de> parents: 2332 diff changeset	6260	y0 := y
7f384db88273 centerItems attribute Claus Gittinger <cg@exept.de> parents: 2332 diff changeset	6261	].
7f384db88273 centerItems attribute Claus Gittinger <cg@exept.de> parents: 2332 diff changeset	6262	x0 := x + (rawLabelExtent x - (el widthOn:menuPanel) // 2).
7f384db88273 centerItems attribute Claus Gittinger <cg@exept.de> parents: 2332 diff changeset	6263	el displayOn:menuPanel x:x0 y:y0.
7f384db88273 centerItems attribute Claus Gittinger <cg@exept.de> parents: 2332 diff changeset	6264	y := y + 1 + (el heightOn:menuPanel)
7f384db88273 centerItems attribute Claus Gittinger <cg@exept.de> parents: 2332 diff changeset	6265	] ifFalse:[
7f384db88273 centerItems attribute Claus Gittinger <cg@exept.de> parents: 2332 diff changeset	6266	y := y + 3 "/ see #label:
7f384db88273 centerItems attribute Claus Gittinger <cg@exept.de> parents: 2332 diff changeset	6267	]
7f384db88273 centerItems attribute Claus Gittinger <cg@exept.de> parents: 2332 diff changeset	6268	].
1727 a6365337be59 support setting font in MenuPanel and Editor ca parents: 1726 diff changeset	6269	].
a6365337be59 support setting font in MenuPanel and Editor ca parents: 1726 diff changeset	6270	menuPanel setFont:mfont
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6271	!
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6272
1707 4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6273	drawSeparatingLines
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6274	"draw separating lines
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6275	"
2059 c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6276	\|myIndex lfSep rtSep items prevItem nextItem
c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6277	lightColor shadowColor
1707 4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6278	l "{ Class:SmallInteger }"
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6279	t "{ Class:SmallInteger }"
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6280	r "{ Class:SmallInteger }"
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6281	b "{ Class:SmallInteger }"
706 d716edbdbe47 show separators bug cleaned tz parents: 689 diff changeset	6282	\|
2059 c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6283
1707 4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6284	items := menuPanel items.
2059 c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6285	myIndex := items identityIndexOf:self.
c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6286
c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6287	prevItem := items at:(myIndex - 1) ifAbsent:nil.
c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6288	lfSep := prevItem notNil and:[prevItem isButton not].
c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6289
c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6290	nextItem := items at:(myIndex + 1) ifAbsent:nil.
c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6291	rtSep := nextItem notNil and:[nextItem isButton not].
c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6292
c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6293	(lfSep or:[rtSep]) ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	6294	^ self
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	6295	].
2059 c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6296
c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6297	lightColor := menuPanel lightColor.
c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6298	shadowColor := menuPanel shadowColor.
c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6299
c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6300	menuPanel paint:lightColor.
1707 4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6301
608 0d8d910768af use default font derived from style ca parents: 601 diff changeset	6302	l := layout left.
0d8d910768af use default font derived from style ca parents: 601 diff changeset	6303	t := layout top.
0d8d910768af use default font derived from style ca parents: 601 diff changeset	6304	r := layout right.
0d8d910768af use default font derived from style ca parents: 601 diff changeset	6305	b := layout bottom.
1707 4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6306
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6307	menuPanel verticalLayout ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	6308	lfSep ifTrue:[menuPanel displayLineFromX:l y:t-1 toX:r y:t-1].
93426020ceed * empty log message * ca parents: 2216 diff changeset	6309	rtSep ifTrue:[menuPanel displayLineFromX:l y:b-1 toX:r y:b-1].
93426020ceed * empty log message * ca parents: 2216 diff changeset	6310
93426020ceed * empty log message * ca parents: 2216 diff changeset	6311	menuPanel paint:shadowColor.
93426020ceed * empty log message * ca parents: 2216 diff changeset	6312	lfSep ifTrue:[menuPanel displayLineFromX:l y:t-2 toX:r y:t-2].
93426020ceed * empty log message * ca parents: 2216 diff changeset	6313	rtSep ifTrue:[menuPanel displayLineFromX:l y:b-2 toX:r y:b-2].
1707 4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6314	] ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	6315	lfSep ifTrue:[menuPanel displayLineFromX:l-1 y:t toX:l-1 y:b].
93426020ceed * empty log message * ca parents: 2216 diff changeset	6316	rtSep ifTrue:[menuPanel displayLineFromX:r-1 y:t toX:r-1 y:b].
93426020ceed * empty log message * ca parents: 2216 diff changeset	6317
93426020ceed * empty log message * ca parents: 2216 diff changeset	6318	menuPanel paint:shadowColor.
93426020ceed * empty log message * ca parents: 2216 diff changeset	6319	lfSep ifTrue:[menuPanel displayLineFromX:l-2 y:t toX:l-2 y:b].
93426020ceed * empty log message * ca parents: 2216 diff changeset	6320	rtSep ifTrue:[menuPanel displayLineFromX:r-2 y:t toX:r-2 y:b].
1707 4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6321	]
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6322	!
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6323
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6324	drawSeparator
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6325	"draw as separator
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6326	"
2059 c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6327	\|type lightColor shadowColor isDouble
c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6328	left top
1707 4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6329	x0 "{ Class:SmallInteger }"
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6330	x1 "{ Class:SmallInteger }"
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6331	y0 "{ Class:SmallInteger }"
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6332	y1 "{ Class:SmallInteger }"
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6333	\|
2059 c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6334
1707 4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6335	type := self separatorType.
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6336	(type isNil or:[type == #blankLine]) ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	6337	^ self
1707 4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6338	].
2059 c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6339
c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6340	isDouble := type == #doubleLine.
c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6341
1707 4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6342	lightColor := menuPanel lightColor.
2059 c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6343	shadowColor := menuPanel shadowColor.
c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6344	menuPanel paint:shadowColor.
c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6345
c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6346	left := layout left.
c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6347	top := layout top.
1707 4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6348
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6349	menuPanel verticalLayout ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	6350	x0 := left + HorizontalInset.
93426020ceed * empty log message * ca parents: 2216 diff changeset	6351	x1 := layout right - HorizontalInset.
93426020ceed * empty log message * ca parents: 2216 diff changeset	6352	y0 := top - 1 + (layout height // 2).
93426020ceed * empty log message * ca parents: 2216 diff changeset	6353	isDouble ifTrue:[y0 := y0 - 2].
93426020ceed * empty log message * ca parents: 2216 diff changeset	6354
93426020ceed * empty log message * ca parents: 2216 diff changeset	6355	menuPanel displayLineFromX:x0 y:y0 toX:x1 y:y0.
93426020ceed * empty log message * ca parents: 2216 diff changeset	6356	isDouble ifTrue:[menuPanel displayLineFromX:x0 y:y0+4 toX:x1 y:y0+4].
93426020ceed * empty log message * ca parents: 2216 diff changeset	6357
93426020ceed * empty log message * ca parents: 2216 diff changeset	6358	menuPanel paint:lightColor.
93426020ceed * empty log message * ca parents: 2216 diff changeset	6359	menuPanel displayLineFromX:x0 y:y0+1 toX:x1 y:y0+1.
93426020ceed * empty log message * ca parents: 2216 diff changeset	6360	isDouble ifTrue:[menuPanel displayLineFromX:x0 y:y0+5 toX:x1 y:y0+5].
1707 4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6361
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6362	] ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	6363	y1 := layout bottom.
93426020ceed * empty log message * ca parents: 2216 diff changeset	6364	x0 := left - 1 + (layout width // 2).
93426020ceed * empty log message * ca parents: 2216 diff changeset	6365	y0 := top.
93426020ceed * empty log message * ca parents: 2216 diff changeset	6366	isDouble ifTrue:[x0 := x0 - 2].
93426020ceed * empty log message * ca parents: 2216 diff changeset	6367
93426020ceed * empty log message * ca parents: 2216 diff changeset	6368	menuPanel displayLineFromX:x0 y:y0 toX:x0 y:y1.
93426020ceed * empty log message * ca parents: 2216 diff changeset	6369	isDouble ifTrue:[menuPanel displayLineFromX:x0+4 y:y0 toX:x0+4 y:y1].
93426020ceed * empty log message * ca parents: 2216 diff changeset	6370
93426020ceed * empty log message * ca parents: 2216 diff changeset	6371	menuPanel paint:lightColor.
93426020ceed * empty log message * ca parents: 2216 diff changeset	6372	menuPanel displayLineFromX:x0+1 y:y0 toX:x0+1 y:y1.
93426020ceed * empty log message * ca parents: 2216 diff changeset	6373	isDouble ifTrue:[menuPanel displayLineFromX:x0+5 y:y0 toX:x0+5 y:y1].
1707 4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6374	]
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6375	!
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6376
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6377	invalidate
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6378
2362 7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6379	layout isNil ifTrue:[^ self].
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6380
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6381	(rawLabel notNil and:[menuPanel notNil]) ifTrue:[
2362 7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6382	menuPanel invalidateItem:self repairNow:false
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6383	]
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6384	!
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6385
1707 4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6386	redraw
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6387	"redraw item
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6388	"
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6389	\|isSelected ownBgCol paint bgColor
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6390	x "{ Class:SmallInteger }"
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6391	y "{ Class:SmallInteger }"
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6392	w "{ Class:SmallInteger }"
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6393	h "{ Class:SmallInteger }"
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6394	\|
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6395
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6396	self isVisible ifFalse:[^ self].
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6397
2362 7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6398	self isSeparator ifTrue:[
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6399	self drawSeparator.
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6400	^ self
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6401	].
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6402	menuItem isButton ifTrue:[
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6403	self drawButton.
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6404	^ self
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6405	].
1707 4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6406
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6407	"/ DRAW A LABELED ENTRY; no button, no separator
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6408
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6409	isSelected := self isSelected.
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6410	bgColor := menuPanel backgroundColor.
2170 e76171113581 enteredFG / enteredBG Claus Gittinger <cg@exept.de> parents: 2166 diff changeset	6411	paint := isSelected
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	6412	ifTrue:[self activeBackgroundColor]
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	6413	ifFalse:[
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	6414	(self isEnabled and:[ self isEntered ]) ifTrue:[
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	6415	menuPanel enteredBackgroundColor
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	6416	] ifFalse:[
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	6417	bgColor
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	6418	]].
1707 4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6419
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6420	(ownBgCol := self backgroundColorFromLabel) notNil ifTrue:[
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	6421	paint := ownBgCol
1707 4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6422	].
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6423
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6424	paint ~= bgColor ifTrue:[
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	6425	menuPanel paint:paint.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	6426	menuPanel fillRectangle:layout.
1707 4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6427	].
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6428
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6429	menuPanel showSeparatingLines ifTrue:[
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	6430	self drawSeparatingLines
608 0d8d910768af use default font derived from style ca parents: 601 diff changeset	6431	].
0d8d910768af use default font derived from style ca parents: 601 diff changeset	6432
650 29dcdf6a5994 button and label translation support added tz parents: 638 diff changeset	6433	self drawLabel.
29dcdf6a5994 button and label translation support added tz parents: 638 diff changeset	6434
1045 25d174d7b019 optimize: ca parents: 1044 diff changeset	6435	(ownBgCol notNil and:[isSelected]) ifTrue:[
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	6436	ownBgCol brightness > 0.5 ifTrue:[menuPanel paint: menuPanel selectionFrameDarkColor]
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	6437	ifFalse:[menuPanel paint: menuPanel selectionFrameBrightColor].
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	6438
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	6439	x := layout left.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	6440	y := layout top.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	6441	w := layout width.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	6442	h := layout height.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	6443
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	6444	menuPanel displayRectangleX:(x + 1) y:(y + 1) width:(w - 2) height:(h - 2).
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	6445	menuPanel displayRectangleX:(x + 2) y:(y + 2) width:(w - 4) height:(h - 4).
1690 38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	6446	].
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	6447	menuPanel drawLabelEdgeFor:self selected:isSelected.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	6448	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	6449
dce33f8bb806 intitial checkin ca parents: diff changeset	6450	!MenuPanel::Item methodsFor:'initialization'!
dce33f8bb806 intitial checkin ca parents: diff changeset	6451
dce33f8bb806 intitial checkin ca parents: diff changeset	6452	destroy
616 a6157b083830 support of different styles ca parents: 608 diff changeset	6453	"destroy submenus, remove dependencies
388 dce33f8bb806 intitial checkin ca parents: diff changeset	6454	"
616 a6157b083830 support of different styles ca parents: 608 diff changeset	6455	self submenu:nil.
a6157b083830 support of different styles ca parents: 608 diff changeset	6456
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6457	enableChannel isValueModel ifTrue:[enableChannel removeDependent:self].
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6458	isVisible isValueModel ifTrue:[isVisible removeDependent:self].
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6459	indication isValueModel ifTrue:[indication removeDependent:self].
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6460	choice isValueModel ifTrue:[choice removeDependent:self].
616 a6157b083830 support of different styles ca parents: 608 diff changeset	6461
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	6462	menuPanel := nil.
616 a6157b083830 support of different styles ca parents: 608 diff changeset	6463	!
a6157b083830 support of different styles ca parents: 608 diff changeset	6464
794 5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	6465	in:aPanel
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	6466	"create item in a menuPanel
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	6467	"
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	6468	menuPanel := aPanel.
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6469
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6470	menuItem isNil ifTrue:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6471	self halt.
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6472	menuItem := MenuItem new
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6473	].
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6474	!
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6475
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6476	initialize
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6477	menuItem := MenuItem new.
1811 df4f5e5b3396 restart under windows Claus Gittinger <cg@exept.de> parents: 1810 diff changeset	6478	!
df4f5e5b3396 restart under windows Claus Gittinger <cg@exept.de> parents: 1810 diff changeset	6479
df4f5e5b3396 restart under windows Claus Gittinger <cg@exept.de> parents: 1810 diff changeset	6480	reinitStyle
df4f5e5b3396 restart under windows Claus Gittinger <cg@exept.de> parents: 1810 diff changeset	6481
df4f5e5b3396 restart under windows Claus Gittinger <cg@exept.de> parents: 1810 diff changeset	6482	subMenu notNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	6483	subMenu reinitStyle
1811 df4f5e5b3396 restart under windows Claus Gittinger <cg@exept.de> parents: 1810 diff changeset	6484	].
df4f5e5b3396 restart under windows Claus Gittinger <cg@exept.de> parents: 1810 diff changeset	6485
df4f5e5b3396 restart under windows Claus Gittinger <cg@exept.de> parents: 1810 diff changeset	6486	"Created: / 17.8.2000 / 17:57:07 / cg"
df4f5e5b3396 restart under windows Claus Gittinger <cg@exept.de> parents: 1810 diff changeset	6487	"Modified: / 17.8.2000 / 18:00:08 / cg"
794 5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	6488	! !
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	6489
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	6490	!MenuPanel::Item methodsFor:'label basics'!
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	6491
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	6492	disabledRawLabel
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	6493	"returns the label used if the item is disabled
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	6494	"
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6495	\|block form image\|
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6496
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6497	disabledRawLabel notNil ifTrue:[^ disabledRawLabel].
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6498
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6499	disabledRawLabel := rawLabel ? ''.
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6500
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6501	disabledRawLabel isString ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	6502	^ disabledRawLabel
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6503	].
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6504
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6505	block := [:el\| \|rslt\|
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	6506	(rslt := el) notNil ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	6507	el isImageOrForm ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	6508	el colorMap notNil ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	6509	rslt := menuPanel lightenedImageOnDevice:el
93426020ceed * empty log message * ca parents: 2216 diff changeset	6510	]
93426020ceed * empty log message * ca parents: 2216 diff changeset	6511	] ifFalse:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	6512	el class == LabelAndIcon ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	6513	((form := el icon) notNil and:[form colorMap notNil]) ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	6514	form := menuPanel lightenedImageOnDevice:form
93426020ceed * empty log message * ca parents: 2216 diff changeset	6515	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	6516	((image := el image) notNil and:[image colorMap notNil]) ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	6517	image := menuPanel lightenedImageOnDevice:image
93426020ceed * empty log message * ca parents: 2216 diff changeset	6518	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	6519	rslt := LabelAndIcon form:form image:image string:(el string).
93426020ceed * empty log message * ca parents: 2216 diff changeset	6520	]
93426020ceed * empty log message * ca parents: 2216 diff changeset	6521	]
93426020ceed * empty log message * ca parents: 2216 diff changeset	6522	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	6523	rslt
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6524	].
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6525
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6526	rawLabel isArray ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	6527	disabledRawLabel := Array new:(rawLabel size).
93426020ceed * empty log message * ca parents: 2216 diff changeset	6528
93426020ceed * empty log message * ca parents: 2216 diff changeset	6529	rawLabel keysAndValuesDo:[:anIndex :aLabel\|
93426020ceed * empty log message * ca parents: 2216 diff changeset	6530	disabledRawLabel at:anIndex put:(block value:aLabel)
93426020ceed * empty log message * ca parents: 2216 diff changeset	6531	]
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6532	] ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	6533	disabledRawLabel := block value:rawLabel
794 5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	6534	].
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	6535	^ disabledRawLabel
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	6536	!
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	6537
1829 bd8b95c5bb89 migration fixes Claus Gittinger <cg@exept.de> parents: 1825 diff changeset	6538	fetchDeviceResources
bd8b95c5bb89 migration fixes Claus Gittinger <cg@exept.de> parents: 1825 diff changeset	6539	disabledRawLabel := nil.
bd8b95c5bb89 migration fixes Claus Gittinger <cg@exept.de> parents: 1825 diff changeset	6540	self fetchImages.
bd8b95c5bb89 migration fixes Claus Gittinger <cg@exept.de> parents: 1825 diff changeset	6541
bd8b95c5bb89 migration fixes Claus Gittinger <cg@exept.de> parents: 1825 diff changeset	6542	font notNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	6543	font := font onDevice:(menuPanel device)
1829 bd8b95c5bb89 migration fixes Claus Gittinger <cg@exept.de> parents: 1825 diff changeset	6544	].
bd8b95c5bb89 migration fixes Claus Gittinger <cg@exept.de> parents: 1825 diff changeset	6545	!
bd8b95c5bb89 migration fixes Claus Gittinger <cg@exept.de> parents: 1825 diff changeset	6546
616 a6157b083830 support of different styles ca parents: 608 diff changeset	6547	fetchImages
a6157b083830 support of different styles ca parents: 608 diff changeset	6548	"fetch images
a6157b083830 support of different styles ca parents: 608 diff changeset	6549	"
2118 89d02ebc5b65 optimize #labels: and #fetchImages in Item. discard block ca parents: 2113 diff changeset	6550	\|icon\|
89d02ebc5b65 optimize #labels: and #fetchImages in Item. discard block ca parents: 2113 diff changeset	6551
89d02ebc5b65 optimize #labels: and #fetchImages in Item. discard block ca parents: 2113 diff changeset	6552	(rawLabel isNil or:[rawLabel isString]) ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	6553	^ self
2118 89d02ebc5b65 optimize #labels: and #fetchImages in Item. discard block ca parents: 2113 diff changeset	6554	].
89d02ebc5b65 optimize #labels: and #fetchImages in Item. discard block ca parents: 2113 diff changeset	6555	rawLabel isImageOrForm ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	6556	rawLabel := menuPanel imageOnDevice:rawLabel.
2118 89d02ebc5b65 optimize #labels: and #fetchImages in Item. discard block ca parents: 2113 diff changeset	6557	^ self.
89d02ebc5b65 optimize #labels: and #fetchImages in Item. discard block ca parents: 2113 diff changeset	6558	].
89d02ebc5b65 optimize #labels: and #fetchImages in Item. discard block ca parents: 2113 diff changeset	6559
89d02ebc5b65 optimize #labels: and #fetchImages in Item. discard block ca parents: 2113 diff changeset	6560	rawLabel class == LabelAndIcon ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	6561	(icon := rawLabel image) notNil ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	6562	rawLabel image:(menuPanel imageOnDevice:icon)
93426020ceed * empty log message * ca parents: 2216 diff changeset	6563	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	6564	(icon := rawLabel icon) notNil ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	6565	rawLabel icon:(menuPanel imageOnDevice:icon)
93426020ceed * empty log message * ca parents: 2216 diff changeset	6566	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	6567	^ self
2118 89d02ebc5b65 optimize #labels: and #fetchImages in Item. discard block ca parents: 2113 diff changeset	6568	].
89d02ebc5b65 optimize #labels: and #fetchImages in Item. discard block ca parents: 2113 diff changeset	6569
89d02ebc5b65 optimize #labels: and #fetchImages in Item. discard block ca parents: 2113 diff changeset	6570	rawLabel isArray ifFalse:[^ self].
89d02ebc5b65 optimize #labels: and #fetchImages in Item. discard block ca parents: 2113 diff changeset	6571
89d02ebc5b65 optimize #labels: and #fetchImages in Item. discard block ca parents: 2113 diff changeset	6572	rawLabel keysAndValuesDo:[:i :el\|
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	6573	(el notNil and:[el isString not]) ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	6574	el isImageOrForm ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	6575	rawLabel at:i put:(menuPanel imageOnDevice:el).
93426020ceed * empty log message * ca parents: 2216 diff changeset	6576	] ifFalse:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	6577	el class == LabelAndIcon ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	6578	(icon := el image) notNil ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	6579	el image:(menuPanel imageOnDevice:icon)
93426020ceed * empty log message * ca parents: 2216 diff changeset	6580	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	6581	(icon := el icon) notNil ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	6582	el icon:(menuPanel imageOnDevice:icon)
93426020ceed * empty log message * ca parents: 2216 diff changeset	6583	]
93426020ceed * empty log message * ca parents: 2216 diff changeset	6584	]
93426020ceed * empty log message * ca parents: 2216 diff changeset	6585	]
93426020ceed * empty log message * ca parents: 2216 diff changeset	6586	]
1078 3adf74275ebd support choice for buttons ca parents: 1076 diff changeset	6587	].
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6588	!
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6589
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6590	updateAccessCharacterFor:aLabel
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6591	\|s i rest label pos\|
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6592
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6593	(accessCharacter notNil or:[aLabel isNil]) ifTrue:[
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6594	^ aLabel
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6595	].
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6596
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6597	aLabel isString ifFalse:[
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6598	aLabel class == LabelAndIcon ifTrue:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6599	aLabel string:(self updateAccessCharacterFor:(aLabel string))
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6600	].
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6601	^ aLabel
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6602	].
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6603
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6604	s := aLabel size.
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6605	i := 1.
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6606
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6607	label := aLabel.
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6608	pos := menuItem accessCharacterPosition.
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6609
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6610	[((i := label indexOf:$& startingAt:i) ~~ 0 and:[i < s])] whileTrue:[
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6611	rest := label copyFrom:(i+1).
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6612
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6613	i == 1 ifTrue:[label := rest]
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6614	ifFalse:[label := (label copyFrom:1 to:(i-1)), rest].
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6615
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6616	(label at:i) == $& ifTrue:[i := i + 1] ifFalse:[pos := i].
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6617	s := s - 1.
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6618	].
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6619
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6620	(pos isNil or:[(accessCharacter := label at:pos ifAbsent:nil) isNil]) ifTrue:[
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6621	^ label
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6622	].
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6623
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6624	label isText ifFalse:[
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6625	label := Text string:label
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6626	].
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6627	label emphasisAt:pos add:#underline.
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6628	^ label
388 dce33f8bb806 intitial checkin ca parents: diff changeset	6629	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	6630
1573 fd124ee2bce5 shortcutKeys; arrange layout if selection changed ca parents: 1572 diff changeset	6631	!MenuPanel::Item methodsFor:'printing & storing'!
fd124ee2bce5 shortcutKeys; arrange layout if selection changed ca parents: 1572 diff changeset	6632
fd124ee2bce5 shortcutKeys; arrange layout if selection changed ca parents: 1572 diff changeset	6633	displayString
1690 38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	6634	^ self class name, '[', label printString, ']'
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	6635
1573 fd124ee2bce5 shortcutKeys; arrange layout if selection changed ca parents: 1572 diff changeset	6636	! !
fd124ee2bce5 shortcutKeys; arrange layout if selection changed ca parents: 1572 diff changeset	6637
388 dce33f8bb806 intitial checkin ca parents: diff changeset	6638	!MenuPanel::Item methodsFor:'private'!
dce33f8bb806 intitial checkin ca parents: diff changeset	6639
650 29dcdf6a5994 button and label translation support added tz parents: 638 diff changeset	6640	activeBackgroundColor
29dcdf6a5994 button and label translation support added tz parents: 638 diff changeset	6641	"returns the active background color derived from menuPanel
29dcdf6a5994 button and label translation support added tz parents: 638 diff changeset	6642	"
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6643	menuItem isButton ifTrue:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6644	^ menuPanel buttonActiveBackgroundColor
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6645	].
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6646	^ menuPanel activeBackgroundColor
650 29dcdf6a5994 button and label translation support added tz parents: 638 diff changeset	6647	!
29dcdf6a5994 button and label translation support added tz parents: 638 diff changeset	6648
29dcdf6a5994 button and label translation support added tz parents: 638 diff changeset	6649	activeForegroundColor
29dcdf6a5994 button and label translation support added tz parents: 638 diff changeset	6650	"returns the active foreground color derived from menuPanel
29dcdf6a5994 button and label translation support added tz parents: 638 diff changeset	6651	"
29dcdf6a5994 button and label translation support added tz parents: 638 diff changeset	6652
29dcdf6a5994 button and label translation support added tz parents: 638 diff changeset	6653	^menuPanel activeForegroundColor
29dcdf6a5994 button and label translation support added tz parents: 638 diff changeset	6654	!
29dcdf6a5994 button and label translation support added tz parents: 638 diff changeset	6655
727 3ba54333342a button style from style sheet tz parents: 723 diff changeset	6656	backgroundColor
3ba54333342a button style from style sheet tz parents: 723 diff changeset	6657	"returns the background color derived from menuPanel
3ba54333342a button style from style sheet tz parents: 723 diff changeset	6658	"
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6659	menuItem isButton ifTrue:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6660	^ menuPanel buttonPassiveBackgroundColor
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6661	].
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6662	^ menuPanel backgroundColor
727 3ba54333342a button style from style sheet tz parents: 723 diff changeset	6663	!
3ba54333342a button style from style sheet tz parents: 723 diff changeset	6664
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	6665	backgroundColorFromLabel
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	6666	"returns the background color derived from label or nil
388 dce33f8bb806 intitial checkin ca parents: diff changeset	6667	"
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	6668	\|run\|
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	6669
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	6670	label isText ifFalse:[^ nil ].
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	6671	run := label emphasis.
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	6672	run size == 0 ifTrue:[^ nil ].
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	6673
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	6674	run := run first.
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	6675
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	6676	run size == 0 ifTrue:[
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	6677	(run value isColor and:[run key == #backgroundColor]) ifTrue:[
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	6678	^ run value
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	6679	]
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	6680	] ifFalse:[
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	6681	run do:[:r\|
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	6682	(r value isColor and:[r key == #backgroundColor]) ifTrue:[
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	6683	^ r value
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	6684	]
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	6685	]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	6686	].
dce33f8bb806 intitial checkin ca parents: diff changeset	6687	^ nil
dce33f8bb806 intitial checkin ca parents: diff changeset	6688	!
dce33f8bb806 intitial checkin ca parents: diff changeset	6689
1081 fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	6690	buttonEnteredBackgroundColor
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	6691	"returns the background color to use when thhe mouse has entered
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	6692	derived from menuPanel
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	6693	"
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6694	menuItem isButton ifTrue:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6695	^ menuPanel buttonEnteredBackgroundColor
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6696	].
1081 fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	6697	^ menuPanel backgroundColor
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	6698	!
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	6699
1074 25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	6700	choiceForm
25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	6701	"returns choice form or nil
25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	6702	"
1798 08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	6703	\|isOn\|
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	6704
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6705	choice isNil ifTrue:[^ nil].
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6706
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6707	isOn := (choice value = menuItem choiceValue).
1798 08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	6708	self enabled ifFalse:[
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6709	^ isOn ifTrue:[menuPanel iconRadioGroupDisabledOn]
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6710	ifFalse:[menuPanel iconRadioGroupDisabledOff]
1798 08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	6711	].
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	6712	^ isOn ifTrue:[menuPanel iconRadioGroupOn]
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6713	ifFalse:[menuPanel iconRadioGroupOff]
1074 25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	6714	!
25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	6715
663 b418df6b72d8 retrive submenu: ca parents: 661 diff changeset	6716	findSubMenuIn:aRecv
1051 a448c854fcbb catch messageNotUnderstood for #aspectFor: Claus Gittinger <cg@exept.de> parents: 1048 diff changeset	6717	"ask the receiver for a submenu aspect, sending it
a448c854fcbb catch messageNotUnderstood for #aspectFor: Claus Gittinger <cg@exept.de> parents: 1048 diff changeset	6718	#aspectFor: first; then trying the selector itself.
a448c854fcbb catch messageNotUnderstood for #aspectFor: Claus Gittinger <cg@exept.de> parents: 1048 diff changeset	6719	Ignore the error if that message is not understood
a448c854fcbb catch messageNotUnderstood for #aspectFor: Claus Gittinger <cg@exept.de> parents: 1048 diff changeset	6720	(but not other message-not-understoods)"
a448c854fcbb catch messageNotUnderstood for #aspectFor: Claus Gittinger <cg@exept.de> parents: 1048 diff changeset	6721
2069 7891c7d3af69 use new #perform:withOptionalArgument: Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	6722	\|subm sel numArgs\|
1795 6afd0e768267 submenuChannel selector: allow upto two arguments, the arg and the menu ca parents: 1793 diff changeset	6723
6afd0e768267 submenuChannel selector: allow upto two arguments, the arg and the menu ca parents: 1793 diff changeset	6724	aRecv isNil ifTrue:[^ nil].
6afd0e768267 submenuChannel selector: allow upto two arguments, the arg and the menu ca parents: 1793 diff changeset	6725
2364 c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	6726	sel := menuItem submenuChannel.
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	6727	sel isString ifFalse:[^ nil].
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	6728	sel := sel asSymbol.
2069 7891c7d3af69 use new #perform:withOptionalArgument: Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	6729	numArgs := sel numArgs.
7891c7d3af69 use new #perform:withOptionalArgument: Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	6730
7891c7d3af69 use new #perform:withOptionalArgument: Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	6731	numArgs == 0 ifTrue:[
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6732	MessageNotUnderstood handle:[:ex \|
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6733	\|selector\|
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6734
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6735	((selector := ex message selector) == sel
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6736	or:[selector == #aspectFor:]) ifFalse:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6737	ex reject
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6738	].
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6739	] do:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6740	subm := aRecv aspectFor:sel.
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6741	].
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6742	subm notNil ifTrue:[^ subm].
1795 6afd0e768267 submenuChannel selector: allow upto two arguments, the arg and the menu ca parents: 1793 diff changeset	6743	].
6afd0e768267 submenuChannel selector: allow upto two arguments, the arg and the menu ca parents: 1793 diff changeset	6744
2043 133a9674bcdf * empty log message * Claus Gittinger <cg@exept.de> parents: 2042 diff changeset	6745	(Array with:(aRecv) with:(aRecv class))
133a9674bcdf * empty log message * Claus Gittinger <cg@exept.de> parents: 2042 diff changeset	6746	do:[:aPossibleReceiver \|
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6747	MessageNotUnderstood handle:[:ex\|
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6748	ex message selector == sel ifFalse:[ ex reject ]
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6749	] do:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6750	numArgs == 0 ifTrue:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6751	subm := aPossibleReceiver perform:sel
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6752	] ifFalse:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6753	numArgs == 1 ifTrue:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6754	subm := aPossibleReceiver perform:sel with:(menuItem argument ? menuPanel)
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6755	] ifFalse:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6756	subm := aPossibleReceiver perform:sel with:(menuItem argument) with:menuPanel
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6757	]
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6758	]
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6759	].
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6760	subm notNil ifTrue:[^ subm].
1795 6afd0e768267 submenuChannel selector: allow upto two arguments, the arg and the menu ca parents: 1793 diff changeset	6761	].
6afd0e768267 submenuChannel selector: allow upto two arguments, the arg and the menu ca parents: 1793 diff changeset	6762
663 b418df6b72d8 retrive submenu: ca parents: 661 diff changeset	6763	^ subm
2043 133a9674bcdf * empty log message * Claus Gittinger <cg@exept.de> parents: 2042 diff changeset	6764
133a9674bcdf * empty log message * Claus Gittinger <cg@exept.de> parents: 2042 diff changeset	6765	"Modified: / 30.10.2001 / 13:28:25 / cg"
663 b418df6b72d8 retrive submenu: ca parents: 661 diff changeset	6766	!
b418df6b72d8 retrive submenu: ca parents: 661 diff changeset	6767
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	6768	indicationValue
524 d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	6769	"returns indication value or nil in case of no indication
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	6770	"
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6771	\|numArgs sel recv\|
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6772
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6773	indication isNil ifTrue:[^ nil]. "no indication specified"
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6774
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6775	indication isSymbol ifFalse:[
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6776	^ indication value == true "block or model"
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6777	].
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6778
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6779	(numArgs := indication numArgs) == 2 ifTrue:[
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6780	recv := menuPanel receiver.
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6781
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6782	(recv isValueModel) ifFalse:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6783	(recv notNil or:[(recv := menuPanel application) notNil]) ifTrue:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6784	sel := indication copyFrom:1 to:(indication indexOf:$:).
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6785	sel := sel asSymbol.
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6786
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6787	MessageNotUnderstood handle:[:ex\|
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6788	ex message selector == sel ifFalse:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6789	ex reject
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6790	].
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6791	] do:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6792	sel := recv perform:sel with:(menuItem argument)
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6793	]
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6794	].
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6795	].
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6796	^ sel value == true
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6797	].
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6798
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6799	numArgs ~~ 0 ifTrue:[
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6800	sel := (indication copyWithoutLast:1) asSymbol
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6801	] ifFalse:[
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6802	sel := indication
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6803	].
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6804	sel := self aspectAt:sel.
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6805
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6806	sel isValueModel ifTrue:[
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6807	indication := sel.
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6808	indication addDependent:self.
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6809	].
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6810	^ sel value == true
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	6811	!
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	6812
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	6813	indicationValue:aValue
1218 6ce43fcb2603 code cleanup Claus Gittinger <cg@exept.de> parents: 1217 diff changeset	6814	"set the indication value
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	6815	"
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6816	\|numArgs recv\|
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6817
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6818	indication isNil ifTrue:[^ self]. "no indication specified"
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6819
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6820	indication isSymbol ifFalse:[
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6821	indication perform:#value: with:aValue ifNotUnderstood:nil. "block or model"
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6822	^ self
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6823	].
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6824
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6825	(numArgs := indication numArgs) == 0 ifTrue:[ "no arguments to selector; cannot set"
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6826	^ self
1218 6ce43fcb2603 code cleanup Claus Gittinger <cg@exept.de> parents: 1217 diff changeset	6827	].
6ce43fcb2603 code cleanup Claus Gittinger <cg@exept.de> parents: 1217 diff changeset	6828
524 d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	6829	recv := menuPanel receiver.
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6830	recv isValueModel ifTrue:[^ self].
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6831
1218 6ce43fcb2603 code cleanup Claus Gittinger <cg@exept.de> parents: 1217 diff changeset	6832	recv isNil ifTrue:[
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6833	recv := menuPanel application.
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6834	recv isNil ifTrue:[^ self].
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6835	].
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6836
2069 7891c7d3af69 use new #perform:withOptionalArgument: Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	6837	MessageNotUnderstood handle:[:ex\|
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6838	(ex message selector ~~ indication) ifTrue:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6839	ex reject
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6840	].
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6841	self ifNotInUIBuilderInfoPrintCR:
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6842	('MenuPanel::Item [info]: application does not respond to ' , indication).
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6843	] do:[
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6844	numArgs == 1 ifTrue:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6845	recv perform:indication with:aValue
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6846	] ifFalse:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6847	recv perform:indication with:(menuItem argument ? self) with:aValue
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6848	]
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6849	].
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	6850	!
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	6851
1074 25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	6852	indicatorForm
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	6853	"returns indication form or nil
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	6854	"
1798 08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	6855	\|val\|
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	6856
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6857	indication isNil ifTrue:[^ nil].
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6858
1798 08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	6859	val := self indicationValue.
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	6860	self enabled ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	6861	^ val == true
93426020ceed * empty log message * ca parents: 2216 diff changeset	6862	ifTrue:[menuPanel iconIndicationDisabledOn]
93426020ceed * empty log message * ca parents: 2216 diff changeset	6863	ifFalse:[menuPanel iconIndicationDisabledOff]
1798 08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	6864	].
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	6865	^ val == true
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	6866	ifTrue:[menuPanel iconIndicationOn]
93426020ceed * empty log message * ca parents: 2216 diff changeset	6867	ifFalse:[menuPanel iconIndicationOff]
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	6868	!
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	6869
1081 fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	6870	isEntered
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	6871	"returns true if the mouse pointer is over the item
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	6872	"
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	6873	^ menuPanel enteredItem == self
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	6874
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	6875	"Created: / 20.8.1998 / 13:11:50 / cg"
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	6876	!
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	6877
464 a788fdce92e2 add submenuChannel ca parents: 461 diff changeset	6878	separatorType
a788fdce92e2 add submenuChannel ca parents: 461 diff changeset	6879	"returns type of separator line or nil
388 dce33f8bb806 intitial checkin ca parents: diff changeset	6880	"
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	6881	\|c lbl\|
388 dce33f8bb806 intitial checkin ca parents: diff changeset	6882
dce33f8bb806 intitial checkin ca parents: diff changeset	6883	rawLabel isNil ifFalse:[
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	6884	^ nil
388 dce33f8bb806 intitial checkin ca parents: diff changeset	6885	].
dce33f8bb806 intitial checkin ca parents: diff changeset	6886
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	6887	(lbl := label value) isNil ifTrue:[
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	6888	^ #singleLine
388 dce33f8bb806 intitial checkin ca parents: diff changeset	6889	].
dce33f8bb806 intitial checkin ca parents: diff changeset	6890
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	6891	lbl size == 1 ifTrue:[
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	6892	c := lbl first.
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	6893	c == $- ifTrue:[^ #singleLine].
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	6894	c == $= ifTrue:[^ #doubleLine].
388 dce33f8bb806 intitial checkin ca parents: diff changeset	6895	].
dce33f8bb806 intitial checkin ca parents: diff changeset	6896	^ #blankLine
1130 fb79ef4aeec8 style changes Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	6897	!
fb79ef4aeec8 style changes Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	6898
fb79ef4aeec8 style changes Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	6899	setupSubmenu
2364 c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	6900	\|appl master recv submenuHolder submenu submenuEncoding channel\|
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	6901
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	6902	channel := menuItem submenuChannel value.
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	6903	channel isNil ifTrue:[ ^ subMenu ].
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	6904
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	6905	subMenu notNil ifTrue:[
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	6906	menuItem keepLinkedMenu ifTrue:[ ^ subMenu ].
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	6907	].
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	6908
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	6909	channel isSymbol ifFalse:[
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	6910	submenuHolder := channel
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	6911	] ifTrue:[
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	6912	appl := menuPanel application.
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	6913	appl isNil ifTrue:[
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	6914	appl := menuPanel receiver.
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	6915	appl notNil ifTrue:[
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	6916	(submenuHolder := self findSubMenuIn:appl) isNil ifTrue:[
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	6917	[submenuHolder isNil
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	6918	and:[(master := appl perform:#masterApplication ifNotUnderstood:nil) notNil
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	6919	and:[master ~~ appl]]] whileTrue:[
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	6920	appl := master.
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	6921	submenuHolder := self findSubMenuIn:appl.
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	6922	].
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	6923	]
2232 5784671fb497 when searching for a sumbenus application, do NOT Claus Gittinger <cg@exept.de> parents: 2231 diff changeset	6924	].
2364 c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	6925	].
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	6926	submenuHolder isNil ifTrue:[
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	6927	(submenuHolder := self findSubMenuIn:appl) isNil ifTrue:[
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	6928	(recv := menuPanel receiver) ~~ appl ifTrue:[
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	6929	appl := recv.
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	6930	submenuHolder := self findSubMenuIn:appl
2232 5784671fb497 when searching for a sumbenus application, do NOT Claus Gittinger <cg@exept.de> parents: 2231 diff changeset	6931	]
5784671fb497 when searching for a sumbenus application, do NOT Claus Gittinger <cg@exept.de> parents: 2231 diff changeset	6932	]
2364 c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	6933	]
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	6934	].
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	6935
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	6936	(submenu := submenuHolder value) isArray ifTrue:[
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	6937	submenuEncoding := submenu.
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	6938	submenu := Menu new fromLiteralArrayEncoding:submenuEncoding.
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	6939	"/ cg: linked menus also may contain translations ...
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	6940	submenu notNil ifTrue:[
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	6941	appl notNil ifTrue:[
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	6942	submenu findGuiResourcesIn:appl.
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	6943	]
2232 5784671fb497 when searching for a sumbenus application, do NOT Claus Gittinger <cg@exept.de> parents: 2231 diff changeset	6944	].
2364 c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	6945	].
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	6946	"/ appl notNil ifTrue:[submenu application:appl].
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	6947	self submenu:submenu.
1130 fb79ef4aeec8 style changes Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	6948	^ subMenu
fb79ef4aeec8 style changes Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	6949
fb79ef4aeec8 style changes Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	6950	"Modified: / 19.5.1998 / 19:36:56 / cg"
388 dce33f8bb806 intitial checkin ca parents: diff changeset	6951	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	6952
dce33f8bb806 intitial checkin ca parents: diff changeset	6953	!MenuPanel::Item methodsFor:'queries'!
dce33f8bb806 intitial checkin ca parents: diff changeset	6954
1217 c6a4c536aa8c care for items which change visibility via Claus Gittinger <cg@exept.de> parents: 1212 diff changeset	6955	canChangeVisibility
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	6956	"return true if I am not always visible; can only be changed by a selector
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	6957	otherwise there is a change notification raised if the model changed
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	6958	"
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	6959	^ isVisible isSymbol
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	6960	"/ ^ isVisible notNil and:[isVisible ~~ true]
1217 c6a4c536aa8c care for items which change visibility via Claus Gittinger <cg@exept.de> parents: 1212 diff changeset	6961	!
c6a4c536aa8c care for items which change visibility via Claus Gittinger <cg@exept.de> parents: 1212 diff changeset	6962
388 dce33f8bb806 intitial checkin ca parents: diff changeset	6963	canSelect
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	6964	"returns true if item is selectable; no separator, visible and enabled.
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	6965	in case of a choice (RadioButton) i have to check for the choiceValue
388 dce33f8bb806 intitial checkin ca parents: diff changeset	6966	"
2362 7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6967	self isSeparator ifTrue:[^ false].
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6968
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6969	(self isVisible and:[self enabled]) ifTrue:[
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6970	(choice isNil or:[choice value ~= menuItem choiceValue]) ifTrue:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6971	^ true
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6972	].
1078 3adf74275ebd support choice for buttons ca parents: 1076 diff changeset	6973	].
3adf74275ebd support choice for buttons ca parents: 1076 diff changeset	6974	^ false
388 dce33f8bb806 intitial checkin ca parents: diff changeset	6975	!
dce33f8bb806 intitial checkin ca parents: diff changeset	6976
2046 012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	6977	containsPoint:aPoint
012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	6978	"returns true if aPoint is contained in my layout
012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	6979	"
012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	6980	(self isVisible and:[layout notNil]) ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	6981	^ layout containsPoint:aPoint
2046 012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	6982	].
012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	6983	^ false
012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	6984
012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	6985	"Created: / 13.11.2001 / 13:55:31 / cg"
012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	6986	!
012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	6987
388 dce33f8bb806 intitial checkin ca parents: diff changeset	6988	containsPointX:x y:y
dce33f8bb806 intitial checkin ca parents: diff changeset	6989	"returns true if point is contained in my layout
dce33f8bb806 intitial checkin ca parents: diff changeset	6990	"
712 4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	6991	(self isVisible and:[layout notNil]) ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	6992	^ layout containsPointX:x y:y
505 562d5661a855 check for valid layout ca parents: 502 diff changeset	6993	].
562d5661a855 check for valid layout ca parents: 502 diff changeset	6994	^ false
388 dce33f8bb806 intitial checkin ca parents: diff changeset	6995	!
dce33f8bb806 intitial checkin ca parents: diff changeset	6996
2199 61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	6997	hasDelayedMenu
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	6998	"returns true if a delayed menu exists
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	6999	"
2360 aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	7000	self hasSubmenu ifFalse:[
2326 a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	7001	^ false
2199 61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	7002	].
2360 aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	7003	menuItem itemValue notNil ifTrue:[ ^ true ].
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	7004
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	7005	(indication isNil and:[choice isNil]) ifTrue:[
2326 a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	7006	^ false
2199 61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	7007	].
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	7008	^ true
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	7009	!
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	7010
2214 8eefad87cf62 drawing delayed menu indicators... first try not yet finished ca parents: 2199 diff changeset	7011	hasDelayedMenuIndicator
8eefad87cf62 drawing delayed menu indicators... first try not yet finished ca parents: 2199 diff changeset	7012	"returns true if the item has a delayed menu
2326 a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	7013	and is in the topMenuPanel (because submenuIndicator is already drawn in popUpViews)
2214 8eefad87cf62 drawing delayed menu indicators... first try not yet finished ca parents: 2199 diff changeset	7014	"
8eefad87cf62 drawing delayed menu indicators... first try not yet finished ca parents: 2199 diff changeset	7015	menuPanel isPopUpView ifFalse:[
2344 d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	7016	^ self hasDelayedMenu
2214 8eefad87cf62 drawing delayed menu indicators... first try not yet finished ca parents: 2199 diff changeset	7017	].
8eefad87cf62 drawing delayed menu indicators... first try not yet finished ca parents: 2199 diff changeset	7018	^ false
8eefad87cf62 drawing delayed menu indicators... first try not yet finished ca parents: 2199 diff changeset	7019	!
8eefad87cf62 drawing delayed menu indicators... first try not yet finished ca parents: 2199 diff changeset	7020
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	7021	hasIndication
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	7022	"returns true if on/off indication exists
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	7023	"
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	7024	^ indication notNil
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	7025	!
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	7026
2344 d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	7027	hasMenuIndicator
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	7028	"returns true if the item has a delayed menu
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	7029	and is in the topMenuPanel (because submenuIndicator is already drawn in popUpViews)
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	7030	"
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	7031	menuPanel isPopUpView ifFalse:[
2360 aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	7032	^ self hasSubmenu and:[menuItem isButton]
2344 d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	7033	].
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	7034	^ false
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	7035	!
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	7036
388 dce33f8bb806 intitial checkin ca parents: diff changeset	7037	hasSubmenu
1473 1f62652f146e use hasSubmenu insteat of submenu if possible; Claus Gittinger <cg@exept.de> parents: 1472 diff changeset	7038	"returns true if the item is configured as an subMenu entry
388 dce33f8bb806 intitial checkin ca parents: diff changeset	7039	"
2364 c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7040	^ subMenu notNil or:[menuItem submenuChannel notNil]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	7041	!
dce33f8bb806 intitial checkin ca parents: diff changeset	7042
dce33f8bb806 intitial checkin ca parents: diff changeset	7043	isEnabled
dce33f8bb806 intitial checkin ca parents: diff changeset	7044	"returns enabled state
dce33f8bb806 intitial checkin ca parents: diff changeset	7045	"
dce33f8bb806 intitial checkin ca parents: diff changeset	7046	^ self enabled
dce33f8bb806 intitial checkin ca parents: diff changeset	7047	!
dce33f8bb806 intitial checkin ca parents: diff changeset	7048
1723 f633725a0ace use itemSpace only for horizontal menus and between labeled items ca parents: 1719 diff changeset	7049	isLabeledItem
f633725a0ace use itemSpace only for horizontal menus and between labeled items ca parents: 1719 diff changeset	7050	"returns true if the item is no button and no separator
f633725a0ace use itemSpace only for horizontal menus and between labeled items ca parents: 1719 diff changeset	7051	"
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7052	^ rawLabel notNil and:[menuItem isButton not]
1723 f633725a0ace use itemSpace only for horizontal menus and between labeled items ca parents: 1719 diff changeset	7053	!
f633725a0ace use itemSpace only for horizontal menus and between labeled items ca parents: 1719 diff changeset	7054
608 0d8d910768af use default font derived from style ca parents: 601 diff changeset	7055	isSeparator
0d8d910768af use default font derived from style ca parents: 601 diff changeset	7056	"returns true if item is a separator
0d8d910768af use default font derived from style ca parents: 601 diff changeset	7057	"
0d8d910768af use default font derived from style ca parents: 601 diff changeset	7058	^ rawLabel isNil
0d8d910768af use default font derived from style ca parents: 601 diff changeset	7059	!
0d8d910768af use default font derived from style ca parents: 601 diff changeset	7060
2159 1eac041aeb3d toggle button draw & behavior Claus Gittinger <cg@exept.de> parents: 2145 diff changeset	7061	isToggle
1eac041aeb3d toggle button draw & behavior Claus Gittinger <cg@exept.de> parents: 2145 diff changeset	7062	"returns true if on/off indication exists
1eac041aeb3d toggle button draw & behavior Claus Gittinger <cg@exept.de> parents: 2145 diff changeset	7063	"
1eac041aeb3d toggle button draw & behavior Claus Gittinger <cg@exept.de> parents: 2145 diff changeset	7064	^ self hasIndication and:[ self isButton ]
1eac041aeb3d toggle button draw & behavior Claus Gittinger <cg@exept.de> parents: 2145 diff changeset	7065	!
1eac041aeb3d toggle button draw & behavior Claus Gittinger <cg@exept.de> parents: 2145 diff changeset	7066
712 4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	7067	isVisible
4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	7068	"returns the visibility state
4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	7069	"
4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	7070	\|state\|
4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	7071
4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	7072	isVisible isSymbol ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	7073	state := self aspectAt:isVisible.
93426020ceed * empty log message * ca parents: 2216 diff changeset	7074
93426020ceed * empty log message * ca parents: 2216 diff changeset	7075	state isValueModel ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	7076	isVisible := state.
93426020ceed * empty log message * ca parents: 2216 diff changeset	7077	isVisible addDependent:self.
93426020ceed * empty log message * ca parents: 2216 diff changeset	7078	state := isVisible.
93426020ceed * empty log message * ca parents: 2216 diff changeset	7079	]
712 4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	7080	] ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	7081	state := isVisible
1164 e6e9633abf48 kludge fix: invoke mustRearrange to care for block-visibility attributes Claus Gittinger <cg@exept.de> parents: 1156 diff changeset	7082	].
e6e9633abf48 kludge fix: invoke mustRearrange to care for block-visibility attributes Claus Gittinger <cg@exept.de> parents: 1156 diff changeset	7083	^ state value ~~ false
e6e9633abf48 kludge fix: invoke mustRearrange to care for block-visibility attributes Claus Gittinger <cg@exept.de> parents: 1156 diff changeset	7084
e6e9633abf48 kludge fix: invoke mustRearrange to care for block-visibility attributes Claus Gittinger <cg@exept.de> parents: 1156 diff changeset	7085	"Modified: / 5.10.1998 / 12:08:28 / cg"
712 4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	7086	!
4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	7087
4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	7088	isVisible:something
4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	7089	"change the state; if the state changed, a redraw is performed
4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	7090	"
4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	7091	\|oldState newState\|
4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	7092
4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	7093	isVisible isNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	7094	oldState := true
712 4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	7095	] ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	7096	oldState := isVisible value.
93426020ceed * empty log message * ca parents: 2216 diff changeset	7097	isVisible isValueModel ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	7098	isVisible removeDependent:self
93426020ceed * empty log message * ca parents: 2216 diff changeset	7099	]
712 4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	7100	].
4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	7101	isVisible := something.
4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	7102
4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	7103	isVisible isNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	7104	newState := true
712 4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	7105	] ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	7106	isVisible isValueModel ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	7107	isVisible addDependent:self
93426020ceed * empty log message * ca parents: 2216 diff changeset	7108	] ifFalse:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	7109	isVisible isSymbol ifTrue:[^ self]
93426020ceed * empty log message * ca parents: 2216 diff changeset	7110	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	7111	menuPanel shown ifFalse:[^ self].
93426020ceed * empty log message * ca parents: 2216 diff changeset	7112	newState := isVisible value.
712 4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	7113	].
4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	7114
4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	7115	newState ~~ oldState ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	7116	menuPanel mustRearrange
712 4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	7117	]
1164 e6e9633abf48 kludge fix: invoke mustRearrange to care for block-visibility attributes Claus Gittinger <cg@exept.de> parents: 1156 diff changeset	7118
e6e9633abf48 kludge fix: invoke mustRearrange to care for block-visibility attributes Claus Gittinger <cg@exept.de> parents: 1156 diff changeset	7119	"Modified: / 5.10.1998 / 12:12:04 / cg"
712 4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	7120	!
4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	7121
388 dce33f8bb806 intitial checkin ca parents: diff changeset	7122	shortcutKeyAsString
dce33f8bb806 intitial checkin ca parents: diff changeset	7123	"converts shortcutKey to a text object
dce33f8bb806 intitial checkin ca parents: diff changeset	7124	"
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7125	\|nm prefix shortcutKey\|
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7126
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7127	shortcutKey := menuItem shortcutKey.
1609 2c8d62894ebe optimize searchinf for shortCutKeys ca parents: 1600 diff changeset	7128
2c8d62894ebe optimize searchinf for shortCutKeys ca parents: 1600 diff changeset	7129	shortcutKey isNil ifTrue:[
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7130	^ nil
1609 2c8d62894ebe optimize searchinf for shortCutKeys ca parents: 1600 diff changeset	7131	].
2c8d62894ebe optimize searchinf for shortCutKeys ca parents: 1600 diff changeset	7132
2c8d62894ebe optimize searchinf for shortCutKeys ca parents: 1600 diff changeset	7133	shortcutKey isCharacter ifTrue:[
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7134	nm := shortcutKey asString
388 dce33f8bb806 intitial checkin ca parents: diff changeset	7135	] ifFalse:[
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7136	"/ this is somewhat complicated: we have the symbolic key at hand,
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7137	"/ but want to show the untranslated (inverse keyBoardMapped) key & modifier
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7138	"/ Ask the devices keyboardMap for the backtranslation.
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7139
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7140	nm := menuPanel device keyboardMap keyAtValue:shortcutKey ifAbsent:shortcutKey.
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7141	"/
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7142	"/ some modifier-key combination ?
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7143	"/
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7144	(nm startsWith:#Cmd) ifTrue:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7145	prefix := #Cmd.
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7146	] ifFalse:[(nm startsWith:#Alt) ifTrue:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7147	prefix := #Alt.
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7148	] ifFalse:[(nm startsWith:#Meta) ifTrue:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7149	prefix := #Meta.
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7150	] ifFalse:[(nm startsWith:#Ctrl) ifTrue:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7151	prefix := #Ctrl.
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7152	]]]].
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7153	prefix notNil ifTrue:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7154	nm := (self shortcutKeyPrefixFor:prefix), (nm copyFrom:(prefix size + 1))
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7155	] ifFalse:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7156	nm := nm asString
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7157	]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	7158	].
608 0d8d910768af use default font derived from style ca parents: 601 diff changeset	7159	^ nm
388 dce33f8bb806 intitial checkin ca parents: diff changeset	7160
987 541dff179cc2 checkin from browser Claus Gittinger <cg@exept.de> parents: 984 diff changeset	7161	"Modified: / 17.7.1998 / 11:56:40 / cg"
388 dce33f8bb806 intitial checkin ca parents: diff changeset	7162	!
dce33f8bb806 intitial checkin ca parents: diff changeset	7163
dce33f8bb806 intitial checkin ca parents: diff changeset	7164	shortcutKeyPrefixFor:aModifier
dce33f8bb806 intitial checkin ca parents: diff changeset	7165	"returns prefix assigned to a modifier
dce33f8bb806 intitial checkin ca parents: diff changeset	7166	"
dce33f8bb806 intitial checkin ca parents: diff changeset	7167	\|m\|
dce33f8bb806 intitial checkin ca parents: diff changeset	7168
dce33f8bb806 intitial checkin ca parents: diff changeset	7169	m := menuPanel device modifierKeyTopFor:aModifier.
dce33f8bb806 intitial checkin ca parents: diff changeset	7170	m notNil ifTrue:[
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	7171	^ m , '-'
388 dce33f8bb806 intitial checkin ca parents: diff changeset	7172	].
987 541dff179cc2 checkin from browser Claus Gittinger <cg@exept.de> parents: 984 diff changeset	7173	^ aModifier , '-'.
541dff179cc2 checkin from browser Claus Gittinger <cg@exept.de> parents: 984 diff changeset	7174
541dff179cc2 checkin from browser Claus Gittinger <cg@exept.de> parents: 984 diff changeset	7175	"Modified: / 17.7.1998 / 11:56:46 / cg"
388 dce33f8bb806 intitial checkin ca parents: diff changeset	7176	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	7177
dce33f8bb806 intitial checkin ca parents: diff changeset	7178	!MenuPanel::Item methodsFor:'selection'!
dce33f8bb806 intitial checkin ca parents: diff changeset	7179
dce33f8bb806 intitial checkin ca parents: diff changeset	7180	isSelected
dce33f8bb806 intitial checkin ca parents: diff changeset	7181	"returns true if item is selected
dce33f8bb806 intitial checkin ca parents: diff changeset	7182	"
1998 5059b7c9cd2c * empty log message * Claus Gittinger <cg@exept.de> parents: 1997 diff changeset	7183
5059b7c9cd2c * empty log message * Claus Gittinger <cg@exept.de> parents: 1997 diff changeset	7184	^ menuPanel notNil and:[menuPanel selection == self]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	7185	!
dce33f8bb806 intitial checkin ca parents: diff changeset	7186
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	7187	isSelected:isSelected
1473 1f62652f146e use hasSubmenu insteat of submenu if possible; Claus Gittinger <cg@exept.de> parents: 1472 diff changeset	7188	"change selection to a state. Dependant on the state open or hide an existing
1f62652f146e use hasSubmenu insteat of submenu if possible; Claus Gittinger <cg@exept.de> parents: 1472 diff changeset	7189	submenu and perform a redraw
1f62652f146e use hasSubmenu insteat of submenu if possible; Claus Gittinger <cg@exept.de> parents: 1472 diff changeset	7190	"
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	7191	(isSelected and:[menuPanel notNil]) ifFalse:[
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	7192	self invalidate.
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	7193	self hideSubmenu.
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7194	^ self
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	7195	].
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	7196
2199 61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	7197	menuPanel realized ifFalse:[ ^ self ].
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	7198
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7199	(indication isNil or:[menuItem isButton not]) ifTrue:[
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	7200	self invalidate
2199 61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	7201	].
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	7202	self hasSubmenu ifFalse:[ ^ self].
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	7203
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	7204	self hasDelayedMenu ifTrue:[
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	7205	menuPanel openDelayed:self
2199 61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	7206	] ifFalse:[
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	7207	subMenu := self setupSubmenu.
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	7208	subMenu ifNotNil:[ self openSubmenu ].
1701 026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	7209	].
388 dce33f8bb806 intitial checkin ca parents: diff changeset	7210	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	7211
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	7212	!MenuPanel::ScrollActivity class methodsFor:'default icons'!
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7213
2018 2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	7214	icon
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7215	"This resource specification was automatically generated
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7216	by the ImageEditor of ST/X."
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7217
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7218	"Do not manually edit this!! If it is corrupted,
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7219	the ImageEditor may not be able to read the specification."
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7220
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7221	"
2018 2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	7222	self icon inspect
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	7223	ImageEditor openOnClass:self andSelector:#icon
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7224	"
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7225
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7226	<resource: #image>
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7227
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7228	^Icon
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	7229	constantNamed:#'MenuPanel::Scrolling class icon'
93426020ceed * empty log message * ca parents: 2216 diff changeset	7230	ifAbsentPut:[(Depth1Image new) width: 11; height: 11; photometric:(#palette); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'?>@@@@@@ @C@@N@@<@C8@O<@@@@@@@@a') ; colorMapFromArray:#[0 0 0 255 255 255]; mask:((Depth1Image new) width: 11; height: 11; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@_<@? A<@C @D@@@@@@@@@@@a') ; yourself); yourself]
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7231	! !
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7232
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	7233	!MenuPanel::ScrollActivity class methodsFor:'instance creation'!
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7234
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7235	new
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7236	^ self basicNew initialize
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7237	! !
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7238
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	7239	!MenuPanel::ScrollActivity methodsFor:'accessing'!
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7240
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7241	activeMenu
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7242	"returns the active menu the scrolling is activated on; nil
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7243	is returned if scrolling is deactivated
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7244	"
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7245	^ activeMenu
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7246	!
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7247
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7248	direction
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7249	"returns the scroll-direction
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7250	"
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7251	^ direction
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7252	!
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7253
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7254	iconAt:aDirection on:aMenu
2018 2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	7255	\|icon device index\|
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7256
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7257	device := aMenu device.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7258
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7259	aDirection == #PREV ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	7260	aMenu verticalLayout ifTrue:[index := 3] "/ 3 - 1 * 90 180
93426020ceed * empty log message * ca parents: 2216 diff changeset	7261	ifFalse:[index := 2] "/ 2 - 1 * 90 90
2018 2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	7262	] ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	7263	aMenu verticalLayout ifTrue:[index := 1] "/ 1 - 1 * 90 0
93426020ceed * empty log message * ca parents: 2216 diff changeset	7264	ifFalse:[index := 4] "/ 4 - 1 * 90 270
2018 2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	7265	].
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	7266
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	7267	icon := icons at:index.
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	7268
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	7269	(icon isNil or:[icon device ~~ device]) ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	7270	icon := self class icon.
93426020ceed * empty log message * ca parents: 2216 diff changeset	7271	index > 1 ifTrue:[ icon := icon rotated:(index - 1 * 90) ]
93426020ceed * empty log message * ca parents: 2216 diff changeset	7272	ifFalse:[ icon := icon copy ].
93426020ceed * empty log message * ca parents: 2216 diff changeset	7273
93426020ceed * empty log message * ca parents: 2216 diff changeset	7274	icon := icon onDevice:device.
93426020ceed * empty log message * ca parents: 2216 diff changeset	7275	icon clearMaskedPixels.
93426020ceed * empty log message * ca parents: 2216 diff changeset	7276	icons at:index put:icon
2018 2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	7277	].
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	7278	^ icon
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7279	! !
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7280
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	7281	!MenuPanel::ScrollActivity methodsFor:'initialization'!
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7282
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7283	initialize
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7284
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7285	semaLock := RecursionLock new.
2018 2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	7286	icons := Array new:4.
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7287	! !
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7288
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	7289	!MenuPanel::ScrollActivity methodsFor:'queries'!
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7290
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7291	isActive
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7292	"returns true if scrolling is activated
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7293	"
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7294	^ activeMenu notNil
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7295	! !
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7296
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	7297	!MenuPanel::ScrollActivity methodsFor:'user operations'!
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7298
2047 62de65e3a61b initial delay; autoRepeat delay Claus Gittinger <cg@exept.de> parents: 2046 diff changeset	7299	startIfRequiredAt:aDirection on:aMenu
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7300	"start scrolling; returns true if scrolling is activated
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7301	"
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7302	\|bounds index\|
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7303
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7304	semaLock critical:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	7305	self stop.
93426020ceed * empty log message * ca parents: 2216 diff changeset	7306
93426020ceed * empty log message * ca parents: 2216 diff changeset	7307	( aDirection notNil
93426020ceed * empty log message * ca parents: 2216 diff changeset	7308	and:[aMenu notNil
93426020ceed * empty log message * ca parents: 2216 diff changeset	7309	and:[(bounds := aMenu scrollerBoundsAt:aDirection) notNil]]
93426020ceed * empty log message * ca parents: 2216 diff changeset	7310	) ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	7311	activeMenu := aMenu.
93426020ceed * empty log message * ca parents: 2216 diff changeset	7312	direction := aDirection.
93426020ceed * empty log message * ca parents: 2216 diff changeset	7313
93426020ceed * empty log message * ca parents: 2216 diff changeset	7314	index := aMenu indexOfItemAtScroller:aDirection.
93426020ceed * empty log message * ca parents: 2216 diff changeset	7315
93426020ceed * empty log message * ca parents: 2216 diff changeset	7316	index ~~ 0 ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	7317	scrollTask :=
93426020ceed * empty log message * ca parents: 2216 diff changeset	7318	[
93426020ceed * empty log message * ca parents: 2216 diff changeset	7319	\|item step\|
93426020ceed * empty log message * ca parents: 2216 diff changeset	7320
93426020ceed * empty log message * ca parents: 2216 diff changeset	7321	[
93426020ceed * empty log message * ca parents: 2216 diff changeset	7322	step := (aDirection == #PREV) ifTrue:[-1] ifFalse:[1].
93426020ceed * empty log message * ca parents: 2216 diff changeset	7323	( aMenu shown and:[(item := aMenu itemAt:index) notNil] ) ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	7324	aMenu makeItemVisible:item.
93426020ceed * empty log message * ca parents: 2216 diff changeset	7325	index := index + step.
93426020ceed * empty log message * ca parents: 2216 diff changeset	7326	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	7327
93426020ceed * empty log message * ca parents: 2216 diff changeset	7328	Delay waitForSeconds:(ButtonController defaultInitialDelay).
93426020ceed * empty log message * ca parents: 2216 diff changeset	7329
93426020ceed * empty log message * ca parents: 2216 diff changeset	7330	[ aMenu shown and:[(item := aMenu itemAt:index) notNil] ] whileTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	7331	aMenu makeItemVisible:item.
93426020ceed * empty log message * ca parents: 2216 diff changeset	7332	Delay waitForSeconds:(ButtonController defaultRepeatDelay).
93426020ceed * empty log message * ca parents: 2216 diff changeset	7333	index := index + step.
93426020ceed * empty log message * ca parents: 2216 diff changeset	7334	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	7335	item := nil.
93426020ceed * empty log message * ca parents: 2216 diff changeset	7336	] ensure:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	7337	scrollTask := nil.
93426020ceed * empty log message * ca parents: 2216 diff changeset	7338
93426020ceed * empty log message * ca parents: 2216 diff changeset	7339	item notNil ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	7340	"/ process was killed
93426020ceed * empty log message * ca parents: 2216 diff changeset	7341	aMenu invalidate:bounds
93426020ceed * empty log message * ca parents: 2216 diff changeset	7342	]
93426020ceed * empty log message * ca parents: 2216 diff changeset	7343	]
93426020ceed * empty log message * ca parents: 2216 diff changeset	7344	] forkAt:8.
93426020ceed * empty log message * ca parents: 2216 diff changeset	7345	]
93426020ceed * empty log message * ca parents: 2216 diff changeset	7346	]
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7347	].
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7348	^ bounds notNil
2047 62de65e3a61b initial delay; autoRepeat delay Claus Gittinger <cg@exept.de> parents: 2046 diff changeset	7349
2048 ba472f3f46c7 code cleanup Claus Gittinger <cg@exept.de> parents: 2047 diff changeset	7350	"Created: ca"
ba472f3f46c7 code cleanup Claus Gittinger <cg@exept.de> parents: 2047 diff changeset	7351
ba472f3f46c7 code cleanup Claus Gittinger <cg@exept.de> parents: 2047 diff changeset	7352	"Modified: / 13.11.2001 / 20:15:52 / cg"
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7353	!
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7354
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7355	stop
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7356	"stop scrolling; returns true if the scrolling was activated otherwise false
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7357	"
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7358	\|task resp\|
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7359
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7360	activeMenu isNil ifTrue:[
2231 65cec3d10fb1 Change sends to obsolete methods Stefan Vogel <sv@exept.de> parents: 2220 diff changeset	7361	^ false
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7362	].
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7363	semaLock critical:[
2231 65cec3d10fb1 Change sends to obsolete methods Stefan Vogel <sv@exept.de> parents: 2220 diff changeset	7364	resp := activeMenu notNil.
65cec3d10fb1 Change sends to obsolete methods Stefan Vogel <sv@exept.de> parents: 2220 diff changeset	7365
65cec3d10fb1 Change sends to obsolete methods Stefan Vogel <sv@exept.de> parents: 2220 diff changeset	7366	(task := scrollTask) notNil ifTrue:[
65cec3d10fb1 Change sends to obsolete methods Stefan Vogel <sv@exept.de> parents: 2220 diff changeset	7367	scrollTask := nil.
65cec3d10fb1 Change sends to obsolete methods Stefan Vogel <sv@exept.de> parents: 2220 diff changeset	7368
65cec3d10fb1 Change sends to obsolete methods Stefan Vogel <sv@exept.de> parents: 2220 diff changeset	7369	Error handle:[:ex\|
65cec3d10fb1 Change sends to obsolete methods Stefan Vogel <sv@exept.de> parents: 2220 diff changeset	7370	] do:[
65cec3d10fb1 Change sends to obsolete methods Stefan Vogel <sv@exept.de> parents: 2220 diff changeset	7371	task terminateWithAllSubprocessesInGroup.
65cec3d10fb1 Change sends to obsolete methods Stefan Vogel <sv@exept.de> parents: 2220 diff changeset	7372	task waitUntilTerminated.
65cec3d10fb1 Change sends to obsolete methods Stefan Vogel <sv@exept.de> parents: 2220 diff changeset	7373	].
65cec3d10fb1 Change sends to obsolete methods Stefan Vogel <sv@exept.de> parents: 2220 diff changeset	7374	].
65cec3d10fb1 Change sends to obsolete methods Stefan Vogel <sv@exept.de> parents: 2220 diff changeset	7375	activeMenu := direction := nil.
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7376	].
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7377	^ resp
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7378	! !
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7379
388 dce33f8bb806 intitial checkin ca parents: diff changeset	7380	!MenuPanel class methodsFor:'documentation'!
dce33f8bb806 intitial checkin ca parents: diff changeset	7381
dce33f8bb806 intitial checkin ca parents: diff changeset	7382	version
2364 c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7383	^ '$Header: /cvs/stx/stx/libwidg2/MenuPanel.st,v 1.353 2002-11-11 10:29:41 ca Exp $'
388 dce33f8bb806 intitial checkin ca parents: diff changeset	7384	! !
2199 61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	7385
388 dce33f8bb806 intitial checkin ca parents: diff changeset	7386	MenuPanel initialize!

author	ca
	Mon, 11 Nov 2002 11:29:41 +0100
changeset 2364	c72f35819bda
parent 2362	7a0f2e986289
child 2372	d136f6d4b7c5
permissions	-rw-r--r--