hg/stx-libwidg2: MenuPanel.st@5ea0ceb20354 (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
93426020ceed * empty log message * ca parents: 2216 diff changeset	21	scrollActivity rightArrowShadow rightArrow fgColor'
93426020ceed * empty log message * ca parents: 2216 diff changeset	22	classVariableNames:'InitialSelectionQuerySignal DefaultAdornment Images
93426020ceed * empty log message * ca parents: 2216 diff changeset	23	LigthenedImages'
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	24	poolDictionaries:''
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	25	category:'Views-Menus'
388 dce33f8bb806 intitial checkin ca parents: diff changeset	26	!
dce33f8bb806 intitial checkin ca parents: diff changeset	27
dce33f8bb806 intitial checkin ca parents: diff changeset	28	Object subclass:#Item
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	29	instanceVariableNames:'layout menuPanel subMenu rawLabel rawLabelExtent disabledRawLabel
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	30	enableChannel nameKey value label activeHelpKey activeHelpText
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	31	submenuChannel startGroup isButton isVisible hideMenuOnActivated
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	32	indication accessCharacterPosition shortcutKey argument choice
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	33	choiceValue showBusyCursorWhilePerforming accessCharacter font
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	34	keepLinkedMenu triggerOnDown horizontalLayout delayMenu'
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	35	classVariableNames:'HorizontalInset VerticalInset HorizontalButtonInset
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	36	VerticalButtonInset LabelRightOffset VerticalPopUpInset'
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	37	poolDictionaries:''
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	38	privateIn:MenuPanel
388 dce33f8bb806 intitial checkin ca parents: diff changeset	39	!
dce33f8bb806 intitial checkin ca parents: diff changeset	40
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	41	Object subclass:#ScrollActivity
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	42	instanceVariableNames:'semaLock activeMenu scrollTask direction icons'
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	43	classVariableNames:''
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	44	poolDictionaries:''
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	45	privateIn:MenuPanel
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	46	!
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	47
388 dce33f8bb806 intitial checkin ca parents: diff changeset	48	!MenuPanel class methodsFor:'documentation'!
dce33f8bb806 intitial checkin ca parents: diff changeset	49
2005 a85fab2cc6f6 * empty log message * Claus Gittinger <cg@exept.de> parents: 2004 diff changeset	50	copyright
a85fab2cc6f6 * empty log message * Claus Gittinger <cg@exept.de> parents: 2004 diff changeset	51	"
a85fab2cc6f6 * empty log message * Claus Gittinger <cg@exept.de> parents: 2004 diff changeset	52	COPYRIGHT (c) 1997 by eXept Software AG
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	53	All Rights Reserved
2005 a85fab2cc6f6 * empty log message * Claus Gittinger <cg@exept.de> parents: 2004 diff changeset	54
a85fab2cc6f6 * empty log message * Claus Gittinger <cg@exept.de> parents: 2004 diff changeset	55	This software is furnished under a license and may be used
a85fab2cc6f6 * empty log message * Claus Gittinger <cg@exept.de> parents: 2004 diff changeset	56	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	57	inclusion of the above copyright notice. This software may not
a85fab2cc6f6 * empty log message * Claus Gittinger <cg@exept.de> parents: 2004 diff changeset	58	be provided or otherwise made available to, or used by, any
a85fab2cc6f6 * empty log message * Claus Gittinger <cg@exept.de> parents: 2004 diff changeset	59	other person. No title to or ownership of the software is
a85fab2cc6f6 * empty log message * Claus Gittinger <cg@exept.de> parents: 2004 diff changeset	60	hereby transferred.
a85fab2cc6f6 * empty log message * Claus Gittinger <cg@exept.de> parents: 2004 diff changeset	61	"
a85fab2cc6f6 * empty log message * Claus Gittinger <cg@exept.de> parents: 2004 diff changeset	62
388 dce33f8bb806 intitial checkin ca parents: diff changeset	63	!
dce33f8bb806 intitial checkin ca parents: diff changeset	64
dce33f8bb806 intitial checkin ca parents: diff changeset	65	documentation
dce33f8bb806 intitial checkin ca parents: diff changeset	66	"
dce33f8bb806 intitial checkin ca parents: diff changeset	67	a menu panel used for both pull-down-menus and pop-up-menus.
dce33f8bb806 intitial checkin ca parents: diff changeset	68
2170 e76171113581 enteredFG / enteredBG Claus Gittinger <cg@exept.de> parents: 2166 diff changeset	69	this will eventually replace most of the MenuView and PopUpMenu stuff.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	70	(and hopefully be ST-80 compatible ...)
dce33f8bb806 intitial checkin ca parents: diff changeset	71
502 dedc1b29b6ac support of arguments ca parents: 498 diff changeset	72	To create a menu, there exists a MenuEditor which will generate
dedc1b29b6ac support of arguments ca parents: 498 diff changeset	73	a menu specification.
dedc1b29b6ac support of arguments ca parents: 498 diff changeset	74
dedc1b29b6ac support of arguments ca parents: 498 diff changeset	75
2061 faf64f2cd28e * empty log message * Claus Gittinger <cg@exept.de> parents: 2059 diff changeset	76	Notice:
faf64f2cd28e * empty log message * Claus Gittinger <cg@exept.de> parents: 2059 diff changeset	77	This is going to replace the obsolete MenuView.
faf64f2cd28e * empty log message * Claus Gittinger <cg@exept.de> parents: 2059 diff changeset	78
388 dce33f8bb806 intitial checkin ca parents: diff changeset	79	[author:]
1786 f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	80	Claus Atzkern
388 dce33f8bb806 intitial checkin ca parents: diff changeset	81
dce33f8bb806 intitial checkin ca parents: diff changeset	82	[see also:]
1786 f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	83	Menu
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	84	MenuItem
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	85	MenuEditor
2170 e76171113581 enteredFG / enteredBG Claus Gittinger <cg@exept.de> parents: 2166 diff changeset	86
e76171113581 enteredFG / enteredBG Claus Gittinger <cg@exept.de> parents: 2166 diff changeset	87	cg: this code is so ugly - needs a complete rewrite...
e76171113581 enteredFG / enteredBG Claus Gittinger <cg@exept.de> parents: 2166 diff changeset	88
388 dce33f8bb806 intitial checkin ca parents: diff changeset	89	"
dce33f8bb806 intitial checkin ca parents: diff changeset	90	!
dce33f8bb806 intitial checkin ca parents: diff changeset	91
dce33f8bb806 intitial checkin ca parents: diff changeset	92	examples
dce33f8bb806 intitial checkin ca parents: diff changeset	93
dce33f8bb806 intitial checkin ca parents: diff changeset	94	"
dce33f8bb806 intitial checkin ca parents: diff changeset	95	start as PullDownMenu
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	96	[exBegin]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	97	\|top subView mview desc s1 s2 s3 img lbs labels\|
dce33f8bb806 intitial checkin ca parents: diff changeset	98
dce33f8bb806 intitial checkin ca parents: diff changeset	99	top := StandardSystemView new.
dce33f8bb806 intitial checkin ca parents: diff changeset	100
436 c03d6faa41a6 process events befor accept ca parents: 434 diff changeset	101	mview := MenuPanel in:top.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	102
502 dedc1b29b6ac support of arguments ca parents: 498 diff changeset	103	labels := #( 'foo' 'bar' 'baz' 'test' 'claus' ).
388 dce33f8bb806 intitial checkin ca parents: diff changeset	104	mview level:2.
dce33f8bb806 intitial checkin ca parents: diff changeset	105	mview verticalLayout:false.
dce33f8bb806 intitial checkin ca parents: diff changeset	106	img := Image fromFile:'bitmaps/SBrowser.xbm'.
502 dedc1b29b6ac support of arguments ca parents: 498 diff changeset	107	lbs := Array with:'foo' with:'bar' with:img with:'baz' with:'test' with:'ludwig'.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	108	mview labels:lbs.
dce33f8bb806 intitial checkin ca parents: diff changeset	109	mview shortcutKeyAt:2 put:#Cut.
dce33f8bb806 intitial checkin ca parents: diff changeset	110	mview accessCharacterPositionAt:1 put:1.
dce33f8bb806 intitial checkin ca parents: diff changeset	111	mview accessCharacterPositionAt:2 put:2.
dce33f8bb806 intitial checkin ca parents: diff changeset	112
dce33f8bb806 intitial checkin ca parents: diff changeset	113	mview enabledAt:5 put:false.
dce33f8bb806 intitial checkin ca parents: diff changeset	114	mview groupSizes:#( 2 2 ).
436 c03d6faa41a6 process events befor accept ca parents: 434 diff changeset	115	s1 := MenuPanel labels:labels.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	116	s1 accessCharacterPositionAt:1 put:1.
dce33f8bb806 intitial checkin ca parents: diff changeset	117	s1 accessCharacterPositionAt:2 put:2.
dce33f8bb806 intitial checkin ca parents: diff changeset	118	s1 groupSizes:#( 2 2 ).
436 c03d6faa41a6 process events befor accept ca parents: 434 diff changeset	119	s2 := MenuPanel labels:#( '1' nil '2' '-' '3' '=' '4' ' ' '5' ).
c03d6faa41a6 process events befor accept ca parents: 434 diff changeset	120	s3 := MenuPanel labels:lbs.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	121
dce33f8bb806 intitial checkin ca parents: diff changeset	122	s1 subMenuAt:2 put:s2.
436 c03d6faa41a6 process events befor accept ca parents: 434 diff changeset	123	s1 subMenuAt:3 put:(MenuPanel labels:lbs).
388 dce33f8bb806 intitial checkin ca parents: diff changeset	124	s2 subMenuAt:3 put:s3.
436 c03d6faa41a6 process events befor accept ca parents: 434 diff changeset	125	s3 subMenuAt:3 put:(MenuPanel labels:labels).
388 dce33f8bb806 intitial checkin ca parents: diff changeset	126	s3 shortcutKeyAt:3 put:$q.
dce33f8bb806 intitial checkin ca parents: diff changeset	127
dce33f8bb806 intitial checkin ca parents: diff changeset	128	mview subMenuAt:1 put:s1.
436 c03d6faa41a6 process events befor accept ca parents: 434 diff changeset	129	mview subMenuAt:4 put:(MenuPanel labels:lbs).
388 dce33f8bb806 intitial checkin ca parents: diff changeset	130	(mview subMenuAt:4) shortcutKeyAt:3 put:#Copy.
dce33f8bb806 intitial checkin ca parents: diff changeset	131	s1 shortcutKeyAt:1 put:#Copy.
dce33f8bb806 intitial checkin ca parents: diff changeset	132	s1 shortcutKeyAt:3 put:#Paste.
dce33f8bb806 intitial checkin ca parents: diff changeset	133
436 c03d6faa41a6 process events befor accept ca parents: 434 diff changeset	134	mview subMenuAt:2 put:(MenuPanel labels:labels).
616 a6157b083830 support of different styles ca parents: 608 diff changeset	135	top extent:(mview preferredExtent).
388 dce33f8bb806 intitial checkin ca parents: diff changeset	136	top open.
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	137	[exEnd]
93426020ceed * empty log message * ca parents: 2216 diff changeset	138
93426020ceed * empty log message * ca parents: 2216 diff changeset	139	[exBegin]
1767 e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	140	\|top menu view item\|
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	141
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	142	top := StandardSystemView extent:240@100.
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	143	menu := MenuPanel in:top.
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	144	menu labels:#( 'foo' 'Application' 'Clock' ).
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	145	menu verticalLayout:false.
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	146
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	147	menu subMenuAt:1 put:(MenuPanel labels:#( 'bar' 'baz' )).
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	148	menu subMenuAt:2 put:(MenuPanel labels:#( 'foo' 'bar' 'baz' )).
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	149
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	150	view := ClockView new.
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	151	view preferredExtent:100@100.
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	152	item := menu itemAt:3.
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	153	item submenu:view.
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	154
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	155	view := SimpleView new.
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	156	view client:(CodingExamples_GUI::GUIDemoExtendedComboBox new).
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	157	view preferredExtent:(400@50).
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	158	item := menu itemAt:2.
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	159	item submenu:view.
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	160
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	161	menu origin:0@0 corner:1.0@30.
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	162	top open.
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	163	[exEnd]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	164
dce33f8bb806 intitial checkin ca parents: diff changeset	165
dce33f8bb806 intitial checkin ca parents: diff changeset	166	start as PopUpMenu
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	167	[exBegin]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	168	\|subView mview desc s1 s2 s3 img lbs labels\|
dce33f8bb806 intitial checkin ca parents: diff changeset	169
436 c03d6faa41a6 process events befor accept ca parents: 434 diff changeset	170	mview := MenuPanel new.
502 dedc1b29b6ac support of arguments ca parents: 498 diff changeset	171	labels := #( 'foo' 'bar' 'baz' ).
388 dce33f8bb806 intitial checkin ca parents: diff changeset	172	mview level:2.
dce33f8bb806 intitial checkin ca parents: diff changeset	173
dce33f8bb806 intitial checkin ca parents: diff changeset	174	img := Image fromFile:'bitmaps/SBrowser.xbm'.
502 dedc1b29b6ac support of arguments ca parents: 498 diff changeset	175	lbs := Array with:'foo' with:'bar' with:img with:'baz' with:'test'.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	176	mview labels:lbs.
dce33f8bb806 intitial checkin ca parents: diff changeset	177
436 c03d6faa41a6 process events befor accept ca parents: 434 diff changeset	178	s1 := MenuPanel labels:labels.
c03d6faa41a6 process events befor accept ca parents: 434 diff changeset	179	s2 := MenuPanel labels:#( '1' nil '2' '-' '3' '=' '4' ' ' '5' ).
c03d6faa41a6 process events befor accept ca parents: 434 diff changeset	180	s3 := MenuPanel labels:lbs.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	181	s1 subMenuAt:2 put:s2.
436 c03d6faa41a6 process events befor accept ca parents: 434 diff changeset	182	s1 subMenuAt:3 put:(MenuPanel labels:lbs).
388 dce33f8bb806 intitial checkin ca parents: diff changeset	183	s2 subMenuAt:3 put:s3.
436 c03d6faa41a6 process events befor accept ca parents: 434 diff changeset	184	s3 subMenuAt:3 put:(MenuPanel labels:labels).
388 dce33f8bb806 intitial checkin ca parents: diff changeset	185	s3 shortcutKeyAt:3 put:$q.
dce33f8bb806 intitial checkin ca parents: diff changeset	186
dce33f8bb806 intitial checkin ca parents: diff changeset	187	mview subMenuAt:1 put:s1.
436 c03d6faa41a6 process events befor accept ca parents: 434 diff changeset	188	mview subMenuAt:4 put:(MenuPanel labels:lbs).
388 dce33f8bb806 intitial checkin ca parents: diff changeset	189	(mview subMenuAt:4) shortcutKeyAt:3 put:#Copy.
dce33f8bb806 intitial checkin ca parents: diff changeset	190	s1 shortcutKeyAt:1 put:#Copy.
dce33f8bb806 intitial checkin ca parents: diff changeset	191	s1 shortcutKeyAt:3 put:#Paste.
dce33f8bb806 intitial checkin ca parents: diff changeset	192
436 c03d6faa41a6 process events befor accept ca parents: 434 diff changeset	193	mview subMenuAt:2 put:(MenuPanel labels:labels).
388 dce33f8bb806 intitial checkin ca parents: diff changeset	194	mview startUp
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	195	[exEnd]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	196
dce33f8bb806 intitial checkin ca parents: diff changeset	197
dce33f8bb806 intitial checkin ca parents: diff changeset	198	start from menu spec
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	199	[exBegin]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	200	\|menu\|
dce33f8bb806 intitial checkin ca parents: diff changeset	201
436 c03d6faa41a6 process events befor accept ca parents: 434 diff changeset	202	menu := MenuPanel menu:
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	203	#(#Menu #( #(#MenuItem
93426020ceed * empty log message * ca parents: 2216 diff changeset	204	#label: 'File'
93426020ceed * empty log message * ca parents: 2216 diff changeset	205	#submenu:
93426020ceed * empty log message * ca parents: 2216 diff changeset	206	#(#Menu #(#(#MenuItem #label: 'quit' #value:#quit )
93426020ceed * empty log message * ca parents: 2216 diff changeset	207	(#MenuItem
93426020ceed * empty log message * ca parents: 2216 diff changeset	208	#label: 'edit'
93426020ceed * empty log message * ca parents: 2216 diff changeset	209	#submenu:
93426020ceed * empty log message * ca parents: 2216 diff changeset	210	#(#Menu #( #(#MenuItem #label: 'edit' #value:#edit )
93426020ceed * empty log message * ca parents: 2216 diff changeset	211	#(#MenuItem #label: 'close' #value:#close)
93426020ceed * empty log message * ca parents: 2216 diff changeset	212	)
93426020ceed * empty log message * ca parents: 2216 diff changeset	213	nil
93426020ceed * empty log message * ca parents: 2216 diff changeset	214	nil
93426020ceed * empty log message * ca parents: 2216 diff changeset	215	)
93426020ceed * empty log message * ca parents: 2216 diff changeset	216	)
93426020ceed * empty log message * ca parents: 2216 diff changeset	217	#(#MenuItem #label: 'help' #value:#help )
93426020ceed * empty log message * ca parents: 2216 diff changeset	218	)
93426020ceed * empty log message * ca parents: 2216 diff changeset	219	nil
93426020ceed * empty log message * ca parents: 2216 diff changeset	220	nil
93426020ceed * empty log message * ca parents: 2216 diff changeset	221	)
93426020ceed * empty log message * ca parents: 2216 diff changeset	222	)
93426020ceed * empty log message * ca parents: 2216 diff changeset	223	#(#MenuItem #label: 'Inspect' #value:#inspectMenu )
93426020ceed * empty log message * ca parents: 2216 diff changeset	224	#(#MenuItem #label: 'Bar'
93426020ceed * empty log message * ca parents: 2216 diff changeset	225	#submenu:
93426020ceed * empty log message * ca parents: 2216 diff changeset	226	#(#Menu #( #(#MenuItem #label: 'bar 1' #value:#bar1 )
93426020ceed * empty log message * ca parents: 2216 diff changeset	227	#(#MenuItem #label: 'bar 2' #value:#bar2 )
93426020ceed * empty log message * ca parents: 2216 diff changeset	228	)
93426020ceed * empty log message * ca parents: 2216 diff changeset	229	nil
93426020ceed * empty log message * ca parents: 2216 diff changeset	230	nil
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	)
93426020ceed * empty log message * ca parents: 2216 diff changeset	234	#( 2 )
93426020ceed * empty log message * ca parents: 2216 diff changeset	235	nil
93426020ceed * empty log message * ca parents: 2216 diff changeset	236	) decodeAsLiteralArray.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	237
dce33f8bb806 intitial checkin ca parents: diff changeset	238	menu verticalLayout:false.
dce33f8bb806 intitial checkin ca parents: diff changeset	239	Transcript showCR:(menu startUp).
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	240	[exEnd]
388 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
dce33f8bb806 intitial checkin ca parents: diff changeset	246	!MenuPanel class methodsFor:'instance creation'!
dce33f8bb806 intitial checkin ca parents: diff changeset	247
dce33f8bb806 intitial checkin ca parents: diff changeset	248	fromSpec:aSpec
dce33f8bb806 intitial checkin ca parents: diff changeset	249	^ self fromSpec:aSpec receiver:nil
dce33f8bb806 intitial checkin ca parents: diff changeset	250	!
dce33f8bb806 intitial checkin ca parents: diff changeset	251
dce33f8bb806 intitial checkin ca parents: diff changeset	252	fromSpec:aSpec receiver:aReceiver
dce33f8bb806 intitial checkin ca parents: diff changeset	253	\|menu\|
dce33f8bb806 intitial checkin ca parents: diff changeset	254
dce33f8bb806 intitial checkin ca parents: diff changeset	255	aSpec notNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	256	menu := Menu new.
93426020ceed * empty log message * ca parents: 2216 diff changeset	257	menu receiver:aReceiver.
93426020ceed * empty log message * ca parents: 2216 diff changeset	258	menu fromLiteralArrayEncoding:aSpec.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	259	].
dce33f8bb806 intitial checkin ca parents: diff changeset	260	^ self menu:menu receiver:aReceiver
dce33f8bb806 intitial checkin ca parents: diff changeset	261	!
dce33f8bb806 intitial checkin ca parents: diff changeset	262
dce33f8bb806 intitial checkin ca parents: diff changeset	263	labels:labels
dce33f8bb806 intitial checkin ca parents: diff changeset	264	^ self labels:labels nameKeys:nil receiver:nil
dce33f8bb806 intitial checkin ca parents: diff changeset	265	!
dce33f8bb806 intitial checkin ca parents: diff changeset	266
dce33f8bb806 intitial checkin ca parents: diff changeset	267	labels:labels nameKeys:nameKeys
dce33f8bb806 intitial checkin ca parents: diff changeset	268	^ self labels:labels nameKeys:nameKeys receiver:nil
dce33f8bb806 intitial checkin ca parents: diff changeset	269	!
dce33f8bb806 intitial checkin ca parents: diff changeset	270
dce33f8bb806 intitial checkin ca parents: diff changeset	271	labels:labels nameKeys:nameKeys receiver:aReceiver
dce33f8bb806 intitial checkin ca parents: diff changeset	272	\|mview\|
dce33f8bb806 intitial checkin ca parents: diff changeset	273
dce33f8bb806 intitial checkin ca parents: diff changeset	274	mview := self menu:nil receiver:aReceiver.
dce33f8bb806 intitial checkin ca parents: diff changeset	275	mview labels:labels.
dce33f8bb806 intitial checkin ca parents: diff changeset	276	mview nameKeys:nameKeys.
dce33f8bb806 intitial checkin ca parents: diff changeset	277	^ mview
dce33f8bb806 intitial checkin ca parents: diff changeset	278
dce33f8bb806 intitial checkin ca parents: diff changeset	279	!
dce33f8bb806 intitial checkin ca parents: diff changeset	280
502 dedc1b29b6ac support of arguments ca parents: 498 diff changeset	281	labels:labels receiver:aReceiver
dedc1b29b6ac support of arguments ca parents: 498 diff changeset	282	^ self labels:labels nameKeys:nil receiver:aReceiver
dedc1b29b6ac support of arguments ca parents: 498 diff changeset	283	!
dedc1b29b6ac support of arguments ca parents: 498 diff changeset	284
388 dce33f8bb806 intitial checkin ca parents: diff changeset	285	menu:aMenu
dce33f8bb806 intitial checkin ca parents: diff changeset	286	^ self menu:aMenu receiver:nil
dce33f8bb806 intitial checkin ca parents: diff changeset	287	!
dce33f8bb806 intitial checkin ca parents: diff changeset	288
dce33f8bb806 intitial checkin ca parents: diff changeset	289	menu:aMenu receiver:aReceiver
dce33f8bb806 intitial checkin ca parents: diff changeset	290	\|mview\|
dce33f8bb806 intitial checkin ca parents: diff changeset	291
dce33f8bb806 intitial checkin ca parents: diff changeset	292	mview := self new.
1955 dea13bc1f1e0 bug fix when setting the receiver ca parents: 1929 diff changeset	293
dea13bc1f1e0 bug fix when setting the receiver ca parents: 1929 diff changeset	294	(aMenu notNil and:[aMenu receiver isNil]) ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	295	"/ no receiver specified in the menu; thus set the receiver immediately
93426020ceed * empty log message * ca parents: 2216 diff changeset	296	mview receiver:aReceiver
1955 dea13bc1f1e0 bug fix when setting the receiver ca parents: 1929 diff changeset	297	].
dea13bc1f1e0 bug fix when setting the receiver ca parents: 1929 diff changeset	298
388 dce33f8bb806 intitial checkin ca parents: diff changeset	299	mview menu:aMenu.
dce33f8bb806 intitial checkin ca parents: diff changeset	300
1955 dea13bc1f1e0 bug fix when setting the receiver ca parents: 1929 diff changeset	301
388 dce33f8bb806 intitial checkin ca parents: diff changeset	302	"/ a menu itself may contain a receiver
dce33f8bb806 intitial checkin ca parents: diff changeset	303	"/ thus we do not overwrite the receiver
dce33f8bb806 intitial checkin ca parents: diff changeset	304
dce33f8bb806 intitial checkin ca parents: diff changeset	305	aReceiver notNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	306	mview receiver:aReceiver
388 dce33f8bb806 intitial checkin ca parents: diff changeset	307	].
dce33f8bb806 intitial checkin ca parents: diff changeset	308	^ mview
dce33f8bb806 intitial checkin ca parents: diff changeset	309	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	310
dce33f8bb806 intitial checkin ca parents: diff changeset	311	!MenuPanel class methodsFor:'class initialization'!
dce33f8bb806 intitial checkin ca parents: diff changeset	312
dce33f8bb806 intitial checkin ca parents: diff changeset	313	initialize
657 a8246e896fa3 class initialize routine completed tz parents: 653 diff changeset	314	"
a8246e896fa3 class initialize routine completed tz parents: 653 diff changeset	315	DefaultAdornment := nil.
a8246e896fa3 class initialize routine completed tz parents: 653 diff changeset	316	self initialize
a8246e896fa3 class initialize routine completed tz parents: 653 diff changeset	317	"
a8246e896fa3 class initialize routine completed tz parents: 653 diff changeset	318
388 dce33f8bb806 intitial checkin ca parents: diff changeset	319	InitialSelectionQuerySignal isNil ifTrue:[
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	320	InitialSelectionQuerySignal := QuerySignal new.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	321	].
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	322
388 dce33f8bb806 intitial checkin ca parents: diff changeset	323	DefaultAdornment isNil ifTrue:[
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	324	DefaultAdornment := IdentityDictionary new
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	325	at:#showSeparatingLines put:false;
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	326	at:#showGroupDivider put:true;
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	327	at:#verticalLayout put:true;
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	328	at:#item put:nil;
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	329	at:#value put:nil;
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	330	yourself
388 dce33f8bb806 intitial checkin ca parents: diff changeset	331	].
dce33f8bb806 intitial checkin ca parents: diff changeset	332
660 d1670dfe5445 Do not call #updateStyleCache from #initialize. Stefan Vogel <sv@exept.de> parents: 658 diff changeset	333	"Modified: / 15.1.1998 / 23:08:31 / stefan"
794 5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	334	!
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	335
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	336	preSnapshot
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	337	"remove all resources
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	338	"
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	339	Images := nil.
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	340	LigthenedImages := nil.
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	341
616 a6157b083830 support of different styles ca parents: 608 diff changeset	342	! !
a6157b083830 support of different styles ca parents: 608 diff changeset	343
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	344	!MenuPanel class methodsFor:'default icons'!
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	345
1798 08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	346	iconIndicationDisabledOff
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	347	"This resource specification was automatically generated
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	348	by the ImageEditor of ST/X."
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	349
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	350	"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	351	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	352
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	353	"
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	354	self iconIndicationDisabledOff inspect
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	355	ImageEditor openOnClass:self andSelector:#iconIndicationDisabledOff
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	356	"
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	<resource: #image>
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	359
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	360	^Icon
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	361	constantNamed:#'MenuPanel iconIndicationDisabledOff'
93426020ceed * empty log message * ca parents: 2216 diff changeset	362	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	363	!
1798 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	iconIndicationDisabledOn
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	366	"This resource specification was automatically generated
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	367	by the ImageEditor of ST/X."
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	368
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	369	"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	370	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	371
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	self iconIndicationDisabledOn inspect
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	374	ImageEditor openOnClass:self andSelector:#iconIndicationDisabledOn
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	375	"
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	<resource: #image>
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	378
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	379	^Icon
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	380	constantNamed:#'MenuPanel iconIndicationDisabledOn'
93426020ceed * empty log message * ca parents: 2216 diff changeset	381	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	382	!
1798 08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	383
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	384	iconIndicationOff
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	385	"This resource specification was automatically generated
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	386	by the ImageEditor of ST/X."
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	387
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	388	"Do not manually edit this!! If it is corrupted,
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	389	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	390
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	391	"
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	392	self iconIndicationOff inspect
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	393	ImageEditor openOnClass:self andSelector:#iconIndicationOff
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	394	"
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	<resource: #image>
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	397
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	398	^Icon
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	399	constantNamed:#'MenuPanel iconIndicationOff'
93426020ceed * empty log message * ca parents: 2216 diff changeset	400	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	401	!
1726 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	iconIndicationOn
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	404	"This resource specification was automatically generated
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	405	by the ImageEditor of ST/X."
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	406
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	407	"Do not manually edit this!! If it is corrupted,
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	408	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	409
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	self iconIndicationOn inspect
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	412	ImageEditor openOnClass:self andSelector:#iconIndicationOn
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	413	"
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	<resource: #image>
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	416
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	417	^Icon
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	418	constantNamed:#'MenuPanel iconIndicationOn'
93426020ceed * empty log message * ca parents: 2216 diff changeset	419	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	420	!
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	421
1798 08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	422	iconRadioGroupDisabledOff
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	423	"This resource specification was automatically generated
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	424	by the ImageEditor of ST/X."
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	425
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	426	"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	427	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	428
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	429	"
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	430	self iconRadioGroupDisabledOff inspect
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	431	ImageEditor openOnClass:self andSelector:#iconRadioGroupDisabledOff
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	432	"
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	<resource: #image>
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	435
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	436	^Icon
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	437	constantNamed:#'MenuPanel iconRadioGroupDisabledOff'
93426020ceed * empty log message * ca parents: 2216 diff changeset	438	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	439	!
1798 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	iconRadioGroupDisabledOn
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	442	"This resource specification was automatically generated
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	443	by the ImageEditor of ST/X."
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	444
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	445	"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	446	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	447
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	self iconRadioGroupDisabledOn inspect
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	450	ImageEditor openOnClass:self andSelector:#iconRadioGroupDisabledOn
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	451	"
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	<resource: #image>
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	454
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	455	^Icon
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	456	constantNamed:#'MenuPanel iconRadioGroupDisabledOn'
93426020ceed * empty log message * ca parents: 2216 diff changeset	457	ifAbsentPut:[(Depth2Image new) width: 15; height: 15; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@AUP@@E@AP@DJY@DY@Z(AH@@+AI@@FLR@@@#D @@H1H@@BLRP@A#AX@@#@Z$A(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	458	!
1798 08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	459
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	460	iconRadioGroupOff
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	461	"This resource specification was automatically generated
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	462	by the ImageEditor of ST/X."
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	463
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	464	"Do not manually edit this!! If it is corrupted,
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	465	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	466
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	467	"
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	468	self iconRadioGroupOff inspect
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	469	ImageEditor openOnClass:self andSelector:#iconRadioGroupOff
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	470	"
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	471
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	472	<resource: #image>
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	473
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	474	^Icon
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	475	constantNamed:#'MenuPanel iconRadioGroupOff'
93426020ceed * empty log message * ca parents: 2216 diff changeset	476	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	477	!
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	478
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	479	iconRadioGroupOn
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	480	"This resource specification was automatically generated
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	481	by the ImageEditor of ST/X."
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	"Do not manually edit this!! If it is corrupted,
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	484	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	485
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	486	"
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	487	self iconRadioGroupOn inspect
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	488	ImageEditor openOnClass:self andSelector:#iconRadioGroupOn
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	489	"
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	490
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	491	<resource: #image>
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	492
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	493	^Icon
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	494	constantNamed:#'MenuPanel iconRadioGroupOn'
93426020ceed * empty log message * ca parents: 2216 diff changeset	495	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]
1889 43516e4588ce give warning messages for unimplemented menu-aspects Claus Gittinger <cg@exept.de> parents: 1878 diff changeset	496	! !
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	497
616 a6157b083830 support of different styles ca parents: 608 diff changeset	498	!MenuPanel class methodsFor:'defaults'!
450 ac72eb2ed895 initialize fix Claus Gittinger <cg@exept.de> parents: 441 diff changeset	499
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	500	defaultBackgroundColor
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	501	^ StyleSheet at:#'menuPanel.backgroundColor'
93426020ceed * empty log message * ca parents: 2216 diff changeset	502	!
93426020ceed * empty log message * ca parents: 2216 diff changeset	503
93426020ceed * empty log message * ca parents: 2216 diff changeset	504	defaultFont
93426020ceed * empty log message * ca parents: 2216 diff changeset	505	^ StyleSheet at:#'menu.font'
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	506	!
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	507
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	508	defaultLevel
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	509	^ StyleSheet at:#'menuPanel.level'
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	510	!
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	511
1786 f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	512	mnemonicIdentifier
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	513	"returns the identifier each mnemonic starts with;
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	514	ex:
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	515	&File mnemonic := Cmdf
93426020ceed * empty log message * ca parents: 2216 diff changeset	516	F&ile mnemonic := Cmdi
93426020ceed * empty log message * ca parents: 2216 diff changeset	517	.....
1786 f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	518	"
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	519	^ 'Cmd'
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	520	!
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	521
450 ac72eb2ed895 initialize fix Claus Gittinger <cg@exept.de> parents: 441 diff changeset	522	updateStyleCache
657 a8246e896fa3 class initialize routine completed tz parents: 653 diff changeset	523
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	524	<resource: #style (
93426020ceed * empty log message * ca parents: 2216 diff changeset	525	#'popup.borderWidth' #'popup.level'
93426020ceed * empty log message * ca parents: 2216 diff changeset	526	#'selection.disabledForegroundColor'
93426020ceed * empty log message * ca parents: 2216 diff changeset	527	#'pullDownMenu.foregroundColor' #'pullDownMenu.backgroundColor' #'pullDownMenu.level'
93426020ceed * empty log message * ca parents: 2216 diff changeset	528	#'menu.itemHorizontalSpace' #'menu.buttonItemHorizontalSpace' #'menu.buttonItemSpace'
93426020ceed * empty log message * ca parents: 2216 diff changeset	529	#'menu.buttonItemVerticalSpace'
93426020ceed * empty log message * ca parents: 2216 diff changeset	530	#'menu.buttonActiveLevel' #'menu.buttonPassiveLevel' #'menu.buttonEnteredLevel'
93426020ceed * empty log message * ca parents: 2216 diff changeset	531	#'menu.hilightLevel' #'menu.enteredLevel'
93426020ceed * empty log message * ca parents: 2216 diff changeset	532	#'menu.groupDividerSize' #'menu.itemMargin'
93426020ceed * empty log message * ca parents: 2216 diff changeset	533	#'menu.disabledEtchedForegroundColor' #'menu.hilightForegroundColor'
93426020ceed * empty log message * ca parents: 2216 diff changeset	534	#'menu.enteredBackgroundColor' #'menu.enteredForegroundColor'
93426020ceed * empty log message * ca parents: 2216 diff changeset	535	#'menu.disabledForegroundColor' #'menu.buttonEnteredBackgroundColor'
93426020ceed * empty log message * ca parents: 2216 diff changeset	536	#'menu.selectionFollowsMouse'
93426020ceed * empty log message * ca parents: 2216 diff changeset	537	#'button.disabledEtchedForegroundColor' #'button.disabledForegroundColor'
93426020ceed * empty log message * ca parents: 2216 diff changeset	538	#'button.activeBackgroundColor' #'button.backgroundColor' #'button.lightColor'
93426020ceed * empty log message * ca parents: 2216 diff changeset	539	#'button.enteredBackgroundColor' #'button.halfLightColor' #'button.halfShadowColor'
93426020ceed * empty log message * ca parents: 2216 diff changeset	540	#'button.activeLevel' #'button.passiveLevel' #'button.edgeStyle'
93426020ceed * empty log message * ca parents: 2216 diff changeset	541	)>
93426020ceed * empty log message * ca parents: 2216 diff changeset	542
93426020ceed * empty log message * ca parents: 2216 diff changeset	543	\|styleSheet style var foregroundColor backgroundColor buttonPassiveBackgroundColor
93426020ceed * empty log message * ca parents: 2216 diff changeset	544	buttonActiveLevel buttonPassiveLevel buttonEnteredLevel\|
93426020ceed * empty log message * ca parents: 2216 diff changeset	545	"
93426020ceed * empty log message * ca parents: 2216 diff changeset	546	self updateStyleCache
93426020ceed * empty log message * ca parents: 2216 diff changeset	547	"
93426020ceed * empty log message * ca parents: 2216 diff changeset	548	MenuView updateStyleCache.
93426020ceed * empty log message * ca parents: 2216 diff changeset	549	SelectionInListView updateStyleCache.
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	550
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	551	styleSheet := StyleSheet.
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	552	style := styleSheet name.
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	553
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	554	foregroundColor := styleSheet colorAt:#'pullDownMenu.foregroundColor' default:Color black.
93426020ceed * empty log message * ca parents: 2216 diff changeset	555	styleSheet at:#'menuPanel.foregroundColor' put:foregroundColor.
93426020ceed * empty log message * ca parents: 2216 diff changeset	556
93426020ceed * empty log message * ca parents: 2216 diff changeset	557	backgroundColor := styleSheet colorAt:#'pullDownMenu.backgroundColor' default:DefaultViewBackgroundColor.
93426020ceed * empty log message * ca parents: 2216 diff changeset	558	styleSheet at:#'menuPanel.backgroundColor' put:backgroundColor.
93426020ceed * empty log message * ca parents: 2216 diff changeset	559
93426020ceed * empty log message * ca parents: 2216 diff changeset	560	var := styleSheet at:#'menu.buttonItemHorizontalSpace'.
93426020ceed * empty log message * ca parents: 2216 diff changeset	561	var ifNil:[ var := styleSheet at:#'menu.buttonItemSpace' default:0 ].
93426020ceed * empty log message * ca parents: 2216 diff changeset	562	styleSheet at:#'menuPanel.buttonInsetX' put:(var abs).
93426020ceed * empty log message * ca parents: 2216 diff changeset	563
93426020ceed * empty log message * ca parents: 2216 diff changeset	564	var := styleSheet at:#'menu.buttonItemVerticalSpace'.
93426020ceed * empty log message * ca parents: 2216 diff changeset	565	var ifNil:[ var := styleSheet at:#'menu.buttonItemSpace' default:0 ].
93426020ceed * empty log message * ca parents: 2216 diff changeset	566	styleSheet at:#'menuPanel.buttonInsetY' put:(var abs).
93426020ceed * empty log message * ca parents: 2216 diff changeset	567
93426020ceed * empty log message * ca parents: 2216 diff changeset	568	var := styleSheet at:#'menuPanel.level' default:nil.
93426020ceed * empty log message * ca parents: 2216 diff changeset	569	var isNil ifTrue:[ var := styleSheet at:#'pullDownMenu.level' default:1 ].
93426020ceed * empty log message * ca parents: 2216 diff changeset	570	styleSheet at:#'menuPanel.level' put:var.
93426020ceed * empty log message * ca parents: 2216 diff changeset	571
93426020ceed * empty log message * ca parents: 2216 diff changeset	572	var := styleSheet at:#'menu.itemHorizontalSpace'.
93426020ceed * empty log message * ca parents: 2216 diff changeset	573	var ifNil:[ var := styleSheet at:#'menu.itemSpace' default:0 ].
93426020ceed * empty log message * ca parents: 2216 diff changeset	574	styleSheet at:#'menuPanel.itemSpace' put:var.
93426020ceed * empty log message * ca parents: 2216 diff changeset	575
93426020ceed * empty log message * ca parents: 2216 diff changeset	576	var := styleSheet colorAt:#'menu.hilightBackgroundColor'.
93426020ceed * empty log message * ca parents: 2216 diff changeset	577	var ifNil:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	578	style == #motif ifTrue:[ var := backgroundColor ]
93426020ceed * empty log message * ca parents: 2216 diff changeset	579	ifFalse:[ var := styleSheet is3D ifFalse:[foregroundColor] ifTrue:[backgroundColor] ]
93426020ceed * empty log message * ca parents: 2216 diff changeset	580	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	581	styleSheet at:#'menuPanel.activeBackgroundColor' put:var.
93426020ceed * empty log message * ca parents: 2216 diff changeset	582
93426020ceed * empty log message * ca parents: 2216 diff changeset	583	var := styleSheet colorAt:#'menu.disabledEtchedForegroundColor'.
93426020ceed * empty log message * ca parents: 2216 diff changeset	584	var ifNil:[ var := styleSheet colorAt:#'button.disabledEtchedForegroundColor' ].
93426020ceed * empty log message * ca parents: 2216 diff changeset	585	styleSheet at:#'menuPanel.disabledEtchedFgColor' put:var.
93426020ceed * empty log message * ca parents: 2216 diff changeset	586
93426020ceed * empty log message * ca parents: 2216 diff changeset	587	var := styleSheet colorAt:#'menu.disabledForegroundColor'.
93426020ceed * empty log message * ca parents: 2216 diff changeset	588	var ifNil:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	589	var := styleSheet colorAt:#'selection.disabledForegroundColor'.
93426020ceed * empty log message * ca parents: 2216 diff changeset	590	var ifNil:[ var := styleSheet colorAt:#'button.disabledForegroundColor' default:Color darkGray ]
93426020ceed * empty log message * ca parents: 2216 diff changeset	591	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	592	styleSheet at:#'menuPanel.disabledForegroundColor' put:var.
93426020ceed * empty log message * ca parents: 2216 diff changeset	593
93426020ceed * empty log message * ca parents: 2216 diff changeset	594	var := styleSheet colorAt:#'menu.hilightForegroundColor'.
93426020ceed * empty log message * ca parents: 2216 diff changeset	595	var ifNil:[ var := styleSheet is3D ifTrue:[foregroundColor] ifFalse:[backgroundColor] ].
93426020ceed * empty log message * ca parents: 2216 diff changeset	596	styleSheet at:#'menuPanel.activeForegroundColor' put:var.
93426020ceed * empty log message * ca parents: 2216 diff changeset	597
93426020ceed * empty log message * ca parents: 2216 diff changeset	598
93426020ceed * empty log message * ca parents: 2216 diff changeset	599	buttonActiveLevel := styleSheet at:#'menu.buttonActiveLevel' default:(styleSheet is3D ifTrue:[-2] ifFalse:[0]).
93426020ceed * empty log message * ca parents: 2216 diff changeset	600	buttonActiveLevel ifNil:[ buttonActiveLevel := styleSheet at:#'button.activeLevel' default:(styleSheet is3D ifTrue:[-2] ifFalse:[0]) ].
93426020ceed * empty log message * ca parents: 2216 diff changeset	601	styleSheet at:#'menuPanel.buttonActiveLevel' put:buttonActiveLevel.
93426020ceed * empty log message * ca parents: 2216 diff changeset	602
93426020ceed * empty log message * ca parents: 2216 diff changeset	603	buttonPassiveLevel := styleSheet at:#'menu.buttonPassiveLevel'.
93426020ceed * empty log message * ca parents: 2216 diff changeset	604	buttonPassiveLevel ifNil:[ buttonPassiveLevel := styleSheet at:#'button.passiveLevel' default:(styleSheet is3D ifTrue:[2] ifFalse:[0])].
93426020ceed * empty log message * ca parents: 2216 diff changeset	605	styleSheet at:#'menuPanel.buttonPassiveLevel' put:buttonPassiveLevel.
93426020ceed * empty log message * ca parents: 2216 diff changeset	606
93426020ceed * empty log message * ca parents: 2216 diff changeset	607	buttonEnteredLevel := styleSheet at:#'menu.buttonEnteredLevel' default:buttonPassiveLevel.
93426020ceed * empty log message * ca parents: 2216 diff changeset	608	styleSheet at:#'menuPanel.buttonEnteredLevel' put:buttonEnteredLevel.
93426020ceed * empty log message * ca parents: 2216 diff changeset	609
93426020ceed * empty log message * ca parents: 2216 diff changeset	610	var := (buttonActiveLevel abs max:(buttonPassiveLevel abs)) max:(buttonEnteredLevel abs).
93426020ceed * empty log message * ca parents: 2216 diff changeset	611	styleSheet at:#'menuPanel.maxAbsoluteButtonLevel' put:var.
93426020ceed * empty log message * ca parents: 2216 diff changeset	612
93426020ceed * empty log message * ca parents: 2216 diff changeset	613	buttonPassiveBackgroundColor := styleSheet at:#'button.backgroundColor'.
93426020ceed * empty log message * ca parents: 2216 diff changeset	614	buttonPassiveBackgroundColor ifNil:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	615	buttonPassiveBackgroundColor := (styleSheet at:'viewBackground') ? backgroundColor
93426020ceed * empty log message * ca parents: 2216 diff changeset	616	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	617	styleSheet at:#'menuPanel.buttonPassiveBackgroundColor' put:buttonPassiveBackgroundColor.
93426020ceed * empty log message * ca parents: 2216 diff changeset	618
93426020ceed * empty log message * ca parents: 2216 diff changeset	619	var := styleSheet at:#'button.lightColor'.
93426020ceed * empty log message * ca parents: 2216 diff changeset	620	var ifNil:[ var := (buttonPassiveBackgroundColor averageColorIn:(0@0 corner:7@7)) lightened ].
93426020ceed * empty log message * ca parents: 2216 diff changeset	621	styleSheet at:#'menuPanel.buttonLightColor' put:var.
93426020ceed * empty log message * ca parents: 2216 diff changeset	622
93426020ceed * empty log message * ca parents: 2216 diff changeset	623	var := styleSheet at:#'button.shadowColor'.
93426020ceed * empty log message * ca parents: 2216 diff changeset	624	var ifNil:[ var := (buttonPassiveBackgroundColor averageColorIn:(0@0 corner:7@7)) darkened ].
93426020ceed * empty log message * ca parents: 2216 diff changeset	625	styleSheet at:#'menuPanel.buttonShadowColor' put:var.
93426020ceed * empty log message * ca parents: 2216 diff changeset	626
93426020ceed * empty log message * ca parents: 2216 diff changeset	627	var := styleSheet colorAt:#'menu.buttonEnteredBackgroundColor'.
93426020ceed * empty log message * ca parents: 2216 diff changeset	628	var ifNil:[ var := styleSheet colorAt:#'button.enteredBackgroundColor' default:buttonPassiveBackgroundColor ].
93426020ceed * empty log message * ca parents: 2216 diff changeset	629	styleSheet at:#'menuPanel.buttonEnteredBackgroundColor' put:var.
93426020ceed * empty log message * ca parents: 2216 diff changeset	630
93426020ceed * empty log message * ca parents: 2216 diff changeset	631	Item updateStyleCache.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	632	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	633
794 5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	634	!MenuPanel class methodsFor:'image registration'!
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	635
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	636	image:anImage onDevice:aDevice
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	637	"
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	638	Images := nil
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	639	"
1097 8a2f6c5ad1a9 * empty log message * Claus Gittinger <cg@exept.de> parents: 1096 diff changeset	640	\|deviceImages image\|
794 5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	641
1156 6fa33dc93509 fix to avoid repeated image>>onDevice Claus Gittinger <cg@exept.de> parents: 1151 diff changeset	642	anImage device == aDevice ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	643	^ anImage
1853 399e2eac3b99 Use WeakIdentityDictionaries to cache images per Workstation. Stefan Vogel <sv@exept.de> parents: 1841 diff changeset	644	].
399e2eac3b99 Use WeakIdentityDictionaries to cache images per Workstation. Stefan Vogel <sv@exept.de> parents: 1841 diff changeset	645
399e2eac3b99 Use WeakIdentityDictionaries to cache images per Workstation. Stefan Vogel <sv@exept.de> parents: 1841 diff changeset	646	Images isNil ifTrue:[ Images := WeakIdentityDictionary new ].
794 5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	647
1097 8a2f6c5ad1a9 * empty log message * Claus Gittinger <cg@exept.de> parents: 1096 diff changeset	648	(deviceImages := Images at:aDevice ifAbsent:nil) isNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	649	Images at:aDevice put:(deviceImages := Dictionary new)
1097 8a2f6c5ad1a9 * empty log message * Claus Gittinger <cg@exept.de> parents: 1096 diff changeset	650	].
8a2f6c5ad1a9 * empty log message * Claus Gittinger <cg@exept.de> parents: 1096 diff changeset	651
8a2f6c5ad1a9 * empty log message * Claus Gittinger <cg@exept.de> parents: 1096 diff changeset	652	(image := deviceImages at:anImage ifAbsent:nil) notNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	653	^ image
794 5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	654	].
798 74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	655
794 5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	656	image := anImage copy onDevice:aDevice.
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	657	image clearMaskedPixels.
1097 8a2f6c5ad1a9 * empty log message * Claus Gittinger <cg@exept.de> parents: 1096 diff changeset	658	deviceImages at:anImage put:image.
794 5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	659	^ image
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	660
1156 6fa33dc93509 fix to avoid repeated image>>onDevice Claus Gittinger <cg@exept.de> parents: 1151 diff changeset	661	"Modified: / 29.9.1998 / 12:02:41 / cg"
794 5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	662	!
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	663
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	664	lightenedImage:anImage onDevice:aDevice
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	665	"
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	666	LigthenedImages := nil
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	667	"
1097 8a2f6c5ad1a9 * empty log message * Claus Gittinger <cg@exept.de> parents: 1096 diff changeset	668	\|deviceImages image\|
794 5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	669
1853 399e2eac3b99 Use WeakIdentityDictionaries to cache images per Workstation. Stefan Vogel <sv@exept.de> parents: 1841 diff changeset	670	LigthenedImages isNil ifTrue:[ LigthenedImages := WeakIdentityDictionary new ].
794 5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	671
1097 8a2f6c5ad1a9 * empty log message * Claus Gittinger <cg@exept.de> parents: 1096 diff changeset	672	(deviceImages := LigthenedImages at:aDevice ifAbsent:nil) isNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	673	LigthenedImages at:aDevice put:(deviceImages := Dictionary new)
1097 8a2f6c5ad1a9 * empty log message * Claus Gittinger <cg@exept.de> parents: 1096 diff changeset	674	].
8a2f6c5ad1a9 * empty log message * Claus Gittinger <cg@exept.de> parents: 1096 diff changeset	675
8a2f6c5ad1a9 * empty log message * Claus Gittinger <cg@exept.de> parents: 1096 diff changeset	676	(image := deviceImages at:anImage ifAbsent:nil) notNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	677	^ image
794 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
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	680	((anImage respondsTo:#colorMap) and:[anImage colorMap notNil]) ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	681	image := anImage copy lightened onDevice:aDevice.
93426020ceed * empty log message * ca parents: 2216 diff changeset	682	image clearMaskedPixels.
794 5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	683	] ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	684	image := self image:anImage onDevice:aDevice
794 5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	685	].
1097 8a2f6c5ad1a9 * empty log message * Claus Gittinger <cg@exept.de> parents: 1096 diff changeset	686	deviceImages at:anImage put:image.
794 5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	687	^ image
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	688
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	689
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	690	! !
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	691
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	692	!MenuPanel class methodsFor:'private'!
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	693
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	694	subMenu:aSubMenu
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	695	"create a submenu; can be redifined in derived classes
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	696	"
1063 08b7ca464437 dont show accelerators for horizontal layouts Claus Gittinger <cg@exept.de> parents: 1054 diff changeset	697	^ (self new) menu:aSubMenu.
08b7ca464437 dont show accelerators for horizontal layouts Claus Gittinger <cg@exept.de> parents: 1054 diff changeset	698
08b7ca464437 dont show accelerators for horizontal layouts Claus Gittinger <cg@exept.de> parents: 1054 diff changeset	699	"Modified: / 8.8.1998 / 02:13:11 / cg"
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	700	! !
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	701
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	702	!MenuPanel methodsFor:'a zeige claus'!
93426020ceed * empty log message * ca parents: 2216 diff changeset	703
93426020ceed * empty log message * ca parents: 2216 diff changeset	704	superMenu:aSuperMenu
93426020ceed * empty log message * ca parents: 2216 diff changeset	705	"set my supermenu from which i'am activated
93426020ceed * empty log message * ca parents: 2216 diff changeset	706	"
93426020ceed * empty log message * ca parents: 2216 diff changeset	707	superMenu := aSuperMenu.
93426020ceed * empty log message * ca parents: 2216 diff changeset	708
93426020ceed * empty log message * ca parents: 2216 diff changeset	709	superMenu ifNotNil:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	710	styleSheet := superMenu styleSheet.
93426020ceed * empty log message * ca parents: 2216 diff changeset	711	rightArrow := superMenu rightArrow.
93426020ceed * empty log message * ca parents: 2216 diff changeset	712	rightArrowShadow := superMenu rightArrowShadow.
93426020ceed * empty log message * ca parents: 2216 diff changeset	713	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	714	! !
93426020ceed * empty log message * ca parents: 2216 diff changeset	715
1808 e8628b502a49 methodCategory change Claus Gittinger <cg@exept.de> parents: 1806 diff changeset	716	!MenuPanel methodsFor:'accepting'!
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	717
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	718	accept
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	719	"accept current selected item
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	720	"
1670 dbc8a05605e0 add new behavior: hideMenuOnActivated ca parents: 1666 diff changeset	721	^ self acceptItem:(self selection) inMenu:self
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	722	!
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	723
1836 89a1b938c09e fixed returned value from non-performing menu Claus Gittinger <cg@exept.de> parents: 1832 diff changeset	724	accept:anItem
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	725	"this is the topMenu: accept item
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	726	"
2050 ef5517d7a2d0 do not destroy myself after accepting (for PopUpList) Claus Gittinger <cg@exept.de> parents: 2048 diff changeset	727	\|value item tgState itemIdx recv panel masterGroup winGrp acceptAction\|
1630 01dc20096011 grabbing cleaned up; ca parents: 1613 diff changeset	728
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	729	self superMenu notNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	730	^ self topMenu accept:anItem
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	731	].
2199 61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	732	self openDelayed:nil.
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	733	self scrollActivity stop.
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	734	self selection:nil.
420 b6f9fff472ef fixes ca parents: 417 diff changeset	735
b6f9fff472ef fixes ca parents: 417 diff changeset	736	(anItem notNil and:[anItem canAccept]) ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	737	tgState := anItem toggleIndication.
93426020ceed * empty log message * ca parents: 2216 diff changeset	738	panel := anItem menuPanel.
93426020ceed * empty log message * ca parents: 2216 diff changeset	739	itemIdx := panel findFirst:[:el\| el == anItem ].
93426020ceed * empty log message * ca parents: 2216 diff changeset	740	item := anItem.
93426020ceed * empty log message * ca parents: 2216 diff changeset	741	recv := panel receiver.
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	742	].
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	743	self doUngrab:true.
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	744
510 8f77b9382066 bug fix with redraw ca parents: 505 diff changeset	745	self isPopUpView ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	746	self do:[:el\| el updateIndicators].
93426020ceed * empty log message * ca parents: 2216 diff changeset	747	self windowGroup processExposeEvents.
524 d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	748	] ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	749	self unmap.
93426020ceed * empty log message * ca parents: 2216 diff changeset	750	(winGrp := self windowGroup) notNil ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	751	"/ give expose event a chance to arrive
93426020ceed * empty log message * ca parents: 2216 diff changeset	752	[shown and:[realized]] whileTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	753	winGrp processExposeEventsFor:self
93426020ceed * empty log message * ca parents: 2216 diff changeset	754	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	755	masterGroup := winGrp previousGroup.
93426020ceed * empty log message * ca parents: 2216 diff changeset	756	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	757	"/ cg: disabled-not needed - try PopUpList with destroy...
93426020ceed * empty log message * ca parents: 2216 diff changeset	758	"/ self destroy.
93426020ceed * empty log message * ca parents: 2216 diff changeset	759	masterGroup notNil ifTrue:[masterGroup processExposeEvents].
524 d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	760	].
1710 bb9bb814e7c4 showBusy code moved Claus Gittinger <cg@exept.de> parents: 1709 diff changeset	761
2050 ef5517d7a2d0 do not destroy myself after accepting (for PopUpList) Claus Gittinger <cg@exept.de> parents: 2048 diff changeset	762	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	763
1710 bb9bb814e7c4 showBusy code moved Claus Gittinger <cg@exept.de> parents: 1709 diff changeset	764	(item notNil
bb9bb814e7c4 showBusy code moved Claus Gittinger <cg@exept.de> parents: 1709 diff changeset	765	and:[item showBusyCursorWhilePerforming
bb9bb814e7c4 showBusy code moved Claus Gittinger <cg@exept.de> parents: 1709 diff changeset	766	and:[(winGrp := (masterGroup ? (self windowGroup))) notNil]])
bb9bb814e7c4 showBusy code moved Claus Gittinger <cg@exept.de> parents: 1709 diff changeset	767	ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	768	winGrp withWaitCursorDo:acceptAction
2132 fd5b29a20fe1 * empty log message * Claus Gittinger <cg@exept.de> parents: 2125 diff changeset	769	] ifFalse:[acceptAction value].
524 d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	770
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	771	self isPopUpView ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	772	self menuAdornmentAt:#value put:value.
93426020ceed * empty log message * ca parents: 2216 diff changeset	773	self menuAdornmentAt:#item put:item.
524 d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	774	].
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	775	^ item.
524 d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	776
2050 ef5517d7a2d0 do not destroy myself after accepting (for PopUpList) Claus Gittinger <cg@exept.de> parents: 2048 diff changeset	777	"Modified: / 15.11.2001 / 17:05:40 / cg"
524 d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	778	!
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	779
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	780	accept:anItem index:anIndex toggle:aState receiver:aReceiver
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	781	"accept an item
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	782	"
1679 af40842718f6 when accepting, and the application does not respond to that Claus Gittinger <cg@exept.de> parents: 1670 diff changeset	783	\|value argument numArgs isKindOfValueModel rec args arg2
1697 345d3664e10c added 'showBusyCursorWhileActive' attribute Claus Gittinger <cg@exept.de> parents: 1695 diff changeset	784	app master fallBack\|
524 d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	785
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	786	anItem isNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	787	self menuAdornmentAt:#hasPerformed put:true.
93426020ceed * empty log message * ca parents: 2216 diff changeset	788	^ nil
524 d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	789	].
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	790
1219 6a0d677a6fac removed some #isKindOf: calls. Claus Gittinger <cg@exept.de> parents: 1218 diff changeset	791	self menuAdornmentAt:#hasPerformed put:(aReceiver isValueModel).
524 d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	792
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	793	(value := anItem value) isNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	794	^ anIndex
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
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	797	(argument := anItem argument) isNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	798	argument := aState ? anItem
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	799	].
524 d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	800
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	801	value isSymbol ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	802	"/ a valueHolder or block
93426020ceed * empty log message * ca parents: 2216 diff changeset	803	(value respondsTo:#valueWithArguments:) ifFalse:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	804	^ value
93426020ceed * empty log message * ca parents: 2216 diff changeset	805	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	806
93426020ceed * empty log message * ca parents: 2216 diff changeset	807	numArgs := value perform:#numArgs ifNotUnderstood:0.
93426020ceed * empty log message * ca parents: 2216 diff changeset	808
93426020ceed * empty log message * ca parents: 2216 diff changeset	809	numArgs == 0 ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	810	args := nil
93426020ceed * empty log message * ca parents: 2216 diff changeset	811	] ifFalse:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	812	numArgs == 1 ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	813	args := Array with:argument
93426020ceed * empty log message * ca parents: 2216 diff changeset	814	] ifFalse:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	815	args := Array with:argument with:self
93426020ceed * empty log message * ca parents: 2216 diff changeset	816	]
93426020ceed * empty log message * ca parents: 2216 diff changeset	817	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	818
93426020ceed * empty log message * ca parents: 2216 diff changeset	819	value valueWithArguments:args.
93426020ceed * empty log message * ca parents: 2216 diff changeset	820
93426020ceed * empty log message * ca parents: 2216 diff changeset	821	self menuAdornmentAt:#hasPerformed put:true.
93426020ceed * empty log message * ca parents: 2216 diff changeset	822	^ anIndex
524 d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	823	].
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	824
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	825	aReceiver isNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	826	^ value
524 d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	827	].
1270 0ae582fd7294 send menuMessage to application, Claus Gittinger <cg@exept.de> parents: 1267 diff changeset	828
1219 6a0d677a6fac removed some #isKindOf: calls. Claus Gittinger <cg@exept.de> parents: 1218 diff changeset	829	isKindOfValueModel := aReceiver isValueModel.
1270 0ae582fd7294 send menuMessage to application, Claus Gittinger <cg@exept.de> parents: 1267 diff changeset	830	isKindOfValueModel ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	831	aReceiver value:value
465 67a0f3dd503a in case of performing a selector '0' is returned ca parents: 464 diff changeset	832	] ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	833	rec := aReceiver.
93426020ceed * empty log message * ca parents: 2216 diff changeset	834	arg2 := self.
93426020ceed * empty log message * ca parents: 2216 diff changeset	835
93426020ceed * empty log message * ca parents: 2216 diff changeset	836	"/ support for ST80 style applications
93426020ceed * empty log message * ca parents: 2216 diff changeset	837	"/ (expecting the message to go to the application
93426020ceed * empty log message * ca parents: 2216 diff changeset	838	"/ if not understood by the view)
93426020ceed * empty log message * ca parents: 2216 diff changeset	839	"/ These expect the controller to be passed as argument.
93426020ceed * empty log message * ca parents: 2216 diff changeset	840	"/ sigh.
93426020ceed * empty log message * ca parents: 2216 diff changeset	841
93426020ceed * empty log message * ca parents: 2216 diff changeset	842	(aReceiver isView
93426020ceed * empty log message * ca parents: 2216 diff changeset	843	and:[(aReceiver respondsTo:value) not
93426020ceed * empty log message * ca parents: 2216 diff changeset	844	and:[(app := aReceiver application) ~~ aReceiver
93426020ceed * empty log message * ca parents: 2216 diff changeset	845	and:[app notNil]]]) ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	846	rec := app.
93426020ceed * empty log message * ca parents: 2216 diff changeset	847	arg2 := aReceiver controller "/ the Views controller
93426020ceed * empty log message * ca parents: 2216 diff changeset	848	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	849
93426020ceed * empty log message * ca parents: 2216 diff changeset	850	(numArgs := value numArgs) == 0 ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	851	args := nil
93426020ceed * empty log message * ca parents: 2216 diff changeset	852	] ifFalse:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	853	numArgs == 1 ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	854	args := Array with:argument
93426020ceed * empty log message * ca parents: 2216 diff changeset	855	] ifFalse:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	856	args := Array with:argument with:arg2
93426020ceed * empty log message * ca parents: 2216 diff changeset	857	]
93426020ceed * empty log message * ca parents: 2216 diff changeset	858	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	859
93426020ceed * empty log message * ca parents: 2216 diff changeset	860	fallBack :=
93426020ceed * empty log message * ca parents: 2216 diff changeset	861	[
93426020ceed * empty log message * ca parents: 2216 diff changeset	862	"/ mhmh - the receiver did not respond to that message;
93426020ceed * empty log message * ca parents: 2216 diff changeset	863	"/ if there is a master-application, try that one
93426020ceed * empty log message * ca parents: 2216 diff changeset	864	"/ (recursive)
93426020ceed * empty log message * ca parents: 2216 diff changeset	865	master := rec perform:#masterApplication ifNotUnderstood:nil.
93426020ceed * empty log message * ca parents: 2216 diff changeset	866	master notNil ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	867	rec := master.
93426020ceed * empty log message * ca parents: 2216 diff changeset	868	rec perform:value withArguments:args ifNotUnderstood:fallBack
93426020ceed * empty log message * ca parents: 2216 diff changeset	869	] ifFalse:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	870	self
93426020ceed * empty log message * ca parents: 2216 diff changeset	871	error:'unimplemented (or error in) menu message: ' , value
93426020ceed * empty log message * ca parents: 2216 diff changeset	872	mayProceed:true
93426020ceed * empty log message * ca parents: 2216 diff changeset	873	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	874	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	875
93426020ceed * empty log message * ca parents: 2216 diff changeset	876	rec perform:value withArguments:args ifNotUnderstood:fallBack.
420 b6f9fff472ef fixes ca parents: 417 diff changeset	877	].
524 d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	878	self menuAdornmentAt:#hasPerformed put:true.
1270 0ae582fd7294 send menuMessage to application, Claus Gittinger <cg@exept.de> parents: 1267 diff changeset	879	^ value
1679 af40842718f6 when accepting, and the application does not respond to that Claus Gittinger <cg@exept.de> parents: 1670 diff changeset	880
1719 ba7ebb56e6fd recursively try masterApps when performing Claus Gittinger <cg@exept.de> parents: 1715 diff changeset	881	"Modified: / 19.2.2000 / 11:08:22 / cg"
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	882	!
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	883
1670 dbc8a05605e0 add new behavior: hideMenuOnActivated ca parents: 1666 diff changeset	884	acceptItem:anItem inMenu:aMenu
2199 61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	885	\|tgState topMenu\|
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	886
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	887	topMenu := self topMenu.
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	888	topMenu openDelayed:nil.
1670 dbc8a05605e0 add new behavior: hideMenuOnActivated ca parents: 1666 diff changeset	889
1841 5d01716cc37c implement: triggerOnDown ca parents: 1836 diff changeset	890	(anItem isNil or:[anItem hideMenuOnActivated]) ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	891	topMenu accept:anItem
1670 dbc8a05605e0 add new behavior: hideMenuOnActivated ca parents: 1666 diff changeset	892	] ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	893	anItem canAccept ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	894	tgState := anItem toggleIndication.
93426020ceed * empty log message * ca parents: 2216 diff changeset	895
93426020ceed * empty log message * ca parents: 2216 diff changeset	896	self accept:anItem
93426020ceed * empty log message * ca parents: 2216 diff changeset	897	index:(aMenu selectionIndex)
93426020ceed * empty log message * ca parents: 2216 diff changeset	898	toggle:tgState
93426020ceed * empty log message * ca parents: 2216 diff changeset	899	receiver:(aMenu receiver).
93426020ceed * empty log message * ca parents: 2216 diff changeset	900
93426020ceed * empty log message * ca parents: 2216 diff changeset	901	aMenu do:[:el\| el updateIndicators].
93426020ceed * empty log message * ca parents: 2216 diff changeset	902	]
1670 dbc8a05605e0 add new behavior: hideMenuOnActivated ca parents: 1666 diff changeset	903	]
dbc8a05605e0 add new behavior: hideMenuOnActivated ca parents: 1666 diff changeset	904	!
dbc8a05605e0 add new behavior: hideMenuOnActivated ca parents: 1666 diff changeset	905
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	906	lastItemAccepted
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	907	"returns last item selected or nil
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	908	"
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	909	^ self topMenu menuAdornmentAt:#item
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	910	!
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	911
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	912	lastValueAccepted
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	913	"returns last value accepted or nil
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	914	"
971 c000e2691543 fixed #lastValueSelected Claus Gittinger <cg@exept.de> parents: 963 diff changeset	915	^ (self lastItemAccepted) value
c000e2691543 fixed #lastValueSelected Claus Gittinger <cg@exept.de> parents: 963 diff changeset	916	"/ \|top\|
c000e2691543 fixed #lastValueSelected Claus Gittinger <cg@exept.de> parents: 963 diff changeset	917	"/
c000e2691543 fixed #lastValueSelected Claus Gittinger <cg@exept.de> parents: 963 diff changeset	918	"/ top := self topMenu.
c000e2691543 fixed #lastValueSelected Claus Gittinger <cg@exept.de> parents: 963 diff changeset	919	"/
c000e2691543 fixed #lastValueSelected Claus Gittinger <cg@exept.de> parents: 963 diff changeset	920	"/ (top menuAdornmentAt:#hasPerformed) == true ifTrue:[
c000e2691543 fixed #lastValueSelected Claus Gittinger <cg@exept.de> parents: 963 diff changeset	921	"/ ^ self topMenu menuAdornmentAt:#value.
c000e2691543 fixed #lastValueSelected Claus Gittinger <cg@exept.de> parents: 963 diff changeset	922	"/ ].
c000e2691543 fixed #lastValueSelected Claus Gittinger <cg@exept.de> parents: 963 diff changeset	923	"/ ^ nil
c000e2691543 fixed #lastValueSelected Claus Gittinger <cg@exept.de> parents: 963 diff changeset	924
c000e2691543 fixed #lastValueSelected Claus Gittinger <cg@exept.de> parents: 963 diff changeset	925	"Modified: / 18.6.1998 / 23:37:09 / cg"
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	926	! !
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	927
388 dce33f8bb806 intitial checkin ca parents: diff changeset	928	!MenuPanel methodsFor:'accessing'!
dce33f8bb806 intitial checkin ca parents: diff changeset	929
dce33f8bb806 intitial checkin ca parents: diff changeset	930	accessCharacterPositionAt:stringOrNumber
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	931	"get the access character position for a textLabel
388 dce33f8bb806 intitial checkin ca parents: diff changeset	932	"
2059 c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	933	^ self itemAt:stringOrNumber do:[:el\| el accessCharacterPosition ]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	934	!
dce33f8bb806 intitial checkin ca parents: diff changeset	935
dce33f8bb806 intitial checkin ca parents: diff changeset	936	accessCharacterPositionAt:stringOrNumber put:anIndexOrNil
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	937	"get the access character position for a textLabel
388 dce33f8bb806 intitial checkin ca parents: diff changeset	938	"
dce33f8bb806 intitial checkin ca parents: diff changeset	939	self itemAt:stringOrNumber do:[:el\| el accessCharacterPosition:anIndexOrNil ]
dce33f8bb806 intitial checkin ca parents: diff changeset	940	!
dce33f8bb806 intitial checkin ca parents: diff changeset	941
dce33f8bb806 intitial checkin ca parents: diff changeset	942	accessCharacterPositions
dce33f8bb806 intitial checkin ca parents: diff changeset	943	"returns a collection of accessCharacterPosition's or nil
dce33f8bb806 intitial checkin ca parents: diff changeset	944	"
dce33f8bb806 intitial checkin ca parents: diff changeset	945	^ self collect:[:anItem\| anItem accessCharacterPosition ]
dce33f8bb806 intitial checkin ca parents: diff changeset	946
dce33f8bb806 intitial checkin ca parents: diff changeset	947	!
dce33f8bb806 intitial checkin ca parents: diff changeset	948
dce33f8bb806 intitial checkin ca parents: diff changeset	949	accessCharacterPositions:something
dce33f8bb806 intitial checkin ca parents: diff changeset	950	"define accessCharacterPosition's for each item
dce33f8bb806 intitial checkin ca parents: diff changeset	951	"
dce33f8bb806 intitial checkin ca parents: diff changeset	952	self onEachPerform:#accessCharacterPosition: withArgList:something
dce33f8bb806 intitial checkin ca parents: diff changeset	953	!
dce33f8bb806 intitial checkin ca parents: diff changeset	954
dce33f8bb806 intitial checkin ca parents: diff changeset	955	args
dce33f8bb806 intitial checkin ca parents: diff changeset	956	"returns a collection of argument's or nil
dce33f8bb806 intitial checkin ca parents: diff changeset	957	"
dce33f8bb806 intitial checkin ca parents: diff changeset	958	^ self collect:[:anItem\| anItem argument ]
dce33f8bb806 intitial checkin ca parents: diff changeset	959	!
dce33f8bb806 intitial checkin ca parents: diff changeset	960
dce33f8bb806 intitial checkin ca parents: diff changeset	961	args:something
dce33f8bb806 intitial checkin ca parents: diff changeset	962	"define arguments for each item
dce33f8bb806 intitial checkin ca parents: diff changeset	963	"
dce33f8bb806 intitial checkin ca parents: diff changeset	964	self onEachPerform:#argument: withArgList:something
dce33f8bb806 intitial checkin ca parents: diff changeset	965	!
dce33f8bb806 intitial checkin ca parents: diff changeset	966
dce33f8bb806 intitial checkin ca parents: diff changeset	967	argsAt:stringOrNumber
dce33f8bb806 intitial checkin ca parents: diff changeset	968	"gets the argument of an item or nil
dce33f8bb806 intitial checkin ca parents: diff changeset	969	"
2059 c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	970	^ self itemAt:stringOrNumber do:[:el\| el argument ]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	971	!
dce33f8bb806 intitial checkin ca parents: diff changeset	972
dce33f8bb806 intitial checkin ca parents: diff changeset	973	argsAt:stringOrNumber put:anArgument
dce33f8bb806 intitial checkin ca parents: diff changeset	974	"sets the argument of an item
dce33f8bb806 intitial checkin ca parents: diff changeset	975	"
dce33f8bb806 intitial checkin ca parents: diff changeset	976	self itemAt:stringOrNumber do:[:el\| el argument:anArgument ]
dce33f8bb806 intitial checkin ca parents: diff changeset	977	!
dce33f8bb806 intitial checkin ca parents: diff changeset	978
1081 fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	979	enteredItem
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	980	"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	981	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	982
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	983	^ enteredItem
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	984
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	985	"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	986	!
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	987
388 dce33f8bb806 intitial checkin ca parents: diff changeset	988	groupSizes
dce33f8bb806 intitial checkin ca parents: diff changeset	989	"gets collection of group sizes
dce33f8bb806 intitial checkin ca parents: diff changeset	990	"
dce33f8bb806 intitial checkin ca parents: diff changeset	991	^ groupSizes
dce33f8bb806 intitial checkin ca parents: diff changeset	992	!
dce33f8bb806 intitial checkin ca parents: diff changeset	993
dce33f8bb806 intitial checkin ca parents: diff changeset	994	groupSizes:aGroupSizes
dce33f8bb806 intitial checkin ca parents: diff changeset	995	"sets collection of group sizes
dce33f8bb806 intitial checkin ca parents: diff changeset	996	"
dce33f8bb806 intitial checkin ca parents: diff changeset	997	aGroupSizes = groupSizes ifFalse:[
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	998	groupSizes := aGroupSizes copy.
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	999	self mustRearrange.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1000	].
dce33f8bb806 intitial checkin ca parents: diff changeset	1001	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1002
dce33f8bb806 intitial checkin ca parents: diff changeset	1003	labelAt:stringOrNumber
dce33f8bb806 intitial checkin ca parents: diff changeset	1004	"gets the label of an item or nil
dce33f8bb806 intitial checkin ca parents: diff changeset	1005	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1006	^ self itemAt:stringOrNumber do:[:el\| el label ]
dce33f8bb806 intitial checkin ca parents: diff changeset	1007	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1008
dce33f8bb806 intitial checkin ca parents: diff changeset	1009	labelAt:stringOrNumber put:aLabel
dce33f8bb806 intitial checkin ca parents: diff changeset	1010	"sets the label of an item
dce33f8bb806 intitial checkin ca parents: diff changeset	1011	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1012	self itemAt:stringOrNumber do:[:el\| el label:aLabel ]
dce33f8bb806 intitial checkin ca parents: diff changeset	1013	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1014
dce33f8bb806 intitial checkin ca parents: diff changeset	1015	labels
dce33f8bb806 intitial checkin ca parents: diff changeset	1016	"returns a collection of labels's or nil
dce33f8bb806 intitial checkin ca parents: diff changeset	1017	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1018	^ self collect:[:anItem\| anItem label ]
dce33f8bb806 intitial checkin ca parents: diff changeset	1019
dce33f8bb806 intitial checkin ca parents: diff changeset	1020	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1021
dce33f8bb806 intitial checkin ca parents: diff changeset	1022	labels:labels
dce33f8bb806 intitial checkin ca parents: diff changeset	1023	"define labels for each item
dce33f8bb806 intitial checkin ca parents: diff changeset	1024	"
2118 89d02ebc5b65 optimize #labels: and #fetchImages in Item. discard block ca parents: 2113 diff changeset	1025	\|size\|
89d02ebc5b65 optimize #labels: and #fetchImages in Item. discard block ca parents: 2113 diff changeset	1026
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1027	self disabledRedrawDo:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1028	self removeAll.
93426020ceed * empty log message * ca parents: 2216 diff changeset	1029	size := labels size.
93426020ceed * empty log message * ca parents: 2216 diff changeset	1030
93426020ceed * empty log message * ca parents: 2216 diff changeset	1031	size > 0 ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	1032	items := OrderedCollection new:size.
93426020ceed * empty log message * ca parents: 2216 diff changeset	1033	labels do:[:aLabel\| items add:(Item in:self label:aLabel) ]
93426020ceed * empty log message * ca parents: 2216 diff changeset	1034	]
2118 89d02ebc5b65 optimize #labels: and #fetchImages in Item. discard block ca parents: 2113 diff changeset	1035	].
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1036	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1037
1999 56a97236e72d * empty log message * Claus Gittinger <cg@exept.de> parents: 1998 diff changeset	1038	menuPerformer:anObject
56a97236e72d * empty log message * Claus Gittinger <cg@exept.de> parents: 1998 diff changeset	1039	"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	1040	from all submenus no specific receiver is defined ).
56a97236e72d * empty log message * Claus Gittinger <cg@exept.de> parents: 1998 diff changeset	1041	"
56a97236e72d * empty log message * Claus Gittinger <cg@exept.de> parents: 1998 diff changeset	1042	^ self receiver:anObject
56a97236e72d * empty log message * Claus Gittinger <cg@exept.de> parents: 1998 diff changeset	1043	!
56a97236e72d * empty log message * Claus Gittinger <cg@exept.de> parents: 1998 diff changeset	1044
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1045	nameKeyAt:stringOrNumber
dce33f8bb806 intitial checkin ca parents: diff changeset	1046	"gets the nameKey of an item or nil
dce33f8bb806 intitial checkin ca parents: diff changeset	1047	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1048	^ self itemAt:stringOrNumber do:[:el\| el nameKey ]
dce33f8bb806 intitial checkin ca parents: diff changeset	1049	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1050
dce33f8bb806 intitial checkin ca parents: diff changeset	1051	nameKeyAt:stringOrNumber put:aNameKey
dce33f8bb806 intitial checkin ca parents: diff changeset	1052	"sets the nameKey of an item
dce33f8bb806 intitial checkin ca parents: diff changeset	1053	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1054	self itemAt:stringOrNumber do:[:el\| el nameKey:aNameKey ]
dce33f8bb806 intitial checkin ca parents: diff changeset	1055	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1056
dce33f8bb806 intitial checkin ca parents: diff changeset	1057	nameKeys
dce33f8bb806 intitial checkin ca parents: diff changeset	1058	"returns a collection of nameKeys's or nil
dce33f8bb806 intitial checkin ca parents: diff changeset	1059	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1060	^ self collect:[:anItem\| anItem nameKey ]
dce33f8bb806 intitial checkin ca parents: diff changeset	1061	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1062
dce33f8bb806 intitial checkin ca parents: diff changeset	1063	nameKeys:something
dce33f8bb806 intitial checkin ca parents: diff changeset	1064	"define nameKeys for each item
dce33f8bb806 intitial checkin ca parents: diff changeset	1065	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1066	self onEachPerform:#nameKey: withArgList:something
dce33f8bb806 intitial checkin ca parents: diff changeset	1067	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1068
dce33f8bb806 intitial checkin ca parents: diff changeset	1069	numberOfItems
dce33f8bb806 intitial checkin ca parents: diff changeset	1070	"gets number of items
dce33f8bb806 intitial checkin ca parents: diff changeset	1071	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1072	^ items size
dce33f8bb806 intitial checkin ca parents: diff changeset	1073	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1074
dce33f8bb806 intitial checkin ca parents: diff changeset	1075	receiver
dce33f8bb806 intitial checkin ca parents: diff changeset	1076	"get the menu-receiver. Thats the one who gets the messages ( both from myself and
dce33f8bb806 intitial checkin ca parents: diff changeset	1077	from all submenus no specific receiver is defined ).
dce33f8bb806 intitial checkin ca parents: diff changeset	1078	"
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	1079	(receiver isNil and:[superMenu notNil]) ifTrue:[
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	1080	^ superMenu receiver
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1081	].
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	1082	^ receiver
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1083	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1084
dce33f8bb806 intitial checkin ca parents: diff changeset	1085	receiver:anObject
dce33f8bb806 intitial checkin ca parents: diff changeset	1086	"set the menu-receiver. Thats the one who gets the messages ( both from myself and
dce33f8bb806 intitial checkin ca parents: diff changeset	1087	from all submenus no specific receiver is defined ).
dce33f8bb806 intitial checkin ca parents: diff changeset	1088	"
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	1089	receiver := anObject
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1090	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1091
dce33f8bb806 intitial checkin ca parents: diff changeset	1092	shortcutKeyAt:stringOrNumber
dce33f8bb806 intitial checkin ca parents: diff changeset	1093	"gets the shortCutKey of an item or nil
dce33f8bb806 intitial checkin ca parents: diff changeset	1094	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1095	^ self itemAt:stringOrNumber do:[:el\| el shortcutKey ]
dce33f8bb806 intitial checkin ca parents: diff changeset	1096	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1097
dce33f8bb806 intitial checkin ca parents: diff changeset	1098	shortcutKeyAt:stringOrNumber put:aKey
dce33f8bb806 intitial checkin ca parents: diff changeset	1099	"sets the shortCutKey of an item
dce33f8bb806 intitial checkin ca parents: diff changeset	1100	"
1889 43516e4588ce give warning messages for unimplemented menu-aspects Claus Gittinger <cg@exept.de> parents: 1878 diff changeset	1101	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	1102	!
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1103
dce33f8bb806 intitial checkin ca parents: diff changeset	1104	shortcutKeys
dce33f8bb806 intitial checkin ca parents: diff changeset	1105	"returns a collection of shortcutKey's or nil
dce33f8bb806 intitial checkin ca parents: diff changeset	1106	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1107	^ self collect:[:anItem\| anItem shortcutKey ]
dce33f8bb806 intitial checkin ca parents: diff changeset	1108
dce33f8bb806 intitial checkin ca parents: diff changeset	1109	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1110
dce33f8bb806 intitial checkin ca parents: diff changeset	1111	shortcutKeys:something
dce33f8bb806 intitial checkin ca parents: diff changeset	1112	"define shortcutKey's for each item
dce33f8bb806 intitial checkin ca parents: diff changeset	1113	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1114	self onEachPerform:#shortcutKey: withArgList:something
dce33f8bb806 intitial checkin ca parents: diff changeset	1115	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1116
dce33f8bb806 intitial checkin ca parents: diff changeset	1117	valueAt:stringOrNumber
dce33f8bb806 intitial checkin ca parents: diff changeset	1118	"gets value of an item; a block, valueHolder, ...
dce33f8bb806 intitial checkin ca parents: diff changeset	1119	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1120	^ self itemAt:stringOrNumber do:[:el\| el value ]
dce33f8bb806 intitial checkin ca parents: diff changeset	1121
dce33f8bb806 intitial checkin ca parents: diff changeset	1122	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1123
dce33f8bb806 intitial checkin ca parents: diff changeset	1124	valueAt:stringOrNumber put:someThing
dce33f8bb806 intitial checkin ca parents: diff changeset	1125	"sets value of an item; a block, valueHolder, ...
dce33f8bb806 intitial checkin ca parents: diff changeset	1126	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1127	self itemAt:stringOrNumber do:[:el\| el value:someThing ]
dce33f8bb806 intitial checkin ca parents: diff changeset	1128
dce33f8bb806 intitial checkin ca parents: diff changeset	1129
dce33f8bb806 intitial checkin ca parents: diff changeset	1130	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1131
dce33f8bb806 intitial checkin ca parents: diff changeset	1132	values:something
dce33f8bb806 intitial checkin ca parents: diff changeset	1133	"define values for each item
dce33f8bb806 intitial checkin ca parents: diff changeset	1134	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1135	self onEachPerform:#value: withArgList:something
dce33f8bb806 intitial checkin ca parents: diff changeset	1136	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	1137
1679 af40842718f6 when accepting, and the application does not respond to that Claus Gittinger <cg@exept.de> parents: 1670 diff changeset	1138	!MenuPanel methodsFor:'accessing-behavior'!
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1139
dce33f8bb806 intitial checkin ca parents: diff changeset	1140	disableAll
498 b4c341497621 bug fixes: ca parents: 475 diff changeset	1141	"disable all items; not the menu in case of enabled
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1142	"
498 b4c341497621 bug fixes: ca parents: 475 diff changeset	1143	self do:[:anItem\| anItem enabled:false]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1144	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1145
dce33f8bb806 intitial checkin ca parents: diff changeset	1146	disableAll:collectionOfIndicesOrNames
dce33f8bb806 intitial checkin ca parents: diff changeset	1147	"disable an collection of items
dce33f8bb806 intitial checkin ca parents: diff changeset	1148	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1149	collectionOfIndicesOrNames do:[:entry\| self enabledAt:entry put:false ].
dce33f8bb806 intitial checkin ca parents: diff changeset	1150
dce33f8bb806 intitial checkin ca parents: diff changeset	1151	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1152
dce33f8bb806 intitial checkin ca parents: diff changeset	1153	enableAll
498 b4c341497621 bug fixes: ca parents: 475 diff changeset	1154	"enable all items; not the menu in case of disabled
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1155	"
498 b4c341497621 bug fixes: ca parents: 475 diff changeset	1156	self do:[:anItem\| anItem enabled:true]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1157	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1158
dce33f8bb806 intitial checkin ca parents: diff changeset	1159	enableAll:collectionOfIndicesOrNames
dce33f8bb806 intitial checkin ca parents: diff changeset	1160	"enable an collection of items
dce33f8bb806 intitial checkin ca parents: diff changeset	1161	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1162	collectionOfIndicesOrNames do:[:entry\| self enabledAt:entry put:true ].
dce33f8bb806 intitial checkin ca parents: diff changeset	1163
dce33f8bb806 intitial checkin ca parents: diff changeset	1164	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1165
dce33f8bb806 intitial checkin ca parents: diff changeset	1166	enabled
dce33f8bb806 intitial checkin ca parents: diff changeset	1167	"returns enabled state
dce33f8bb806 intitial checkin ca parents: diff changeset	1168	"
498 b4c341497621 bug fixes: ca parents: 475 diff changeset	1169	^ enabled
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1170	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1171
dce33f8bb806 intitial checkin ca parents: diff changeset	1172	enabled:aState
dce33f8bb806 intitial checkin ca parents: diff changeset	1173	"change enabled state of menu
dce33f8bb806 intitial checkin ca parents: diff changeset	1174	"
545 d01d14358b07 * empty log message * Claus Gittinger <cg@exept.de> parents: 524 diff changeset	1175	\|state\|
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	1176
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	1177	state := aState ? true.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1178
1690 38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	1179	enabled ~~ state ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1180	enabled := state.
93426020ceed * empty log message * ca parents: 2216 diff changeset	1181	self invalidate.
498 b4c341497621 bug fixes: ca parents: 475 diff changeset	1182	].
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1183	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1184
dce33f8bb806 intitial checkin ca parents: diff changeset	1185	enabledAt:stringOrNumber
dce33f8bb806 intitial checkin ca parents: diff changeset	1186	"gets the enabled state of an item or false
dce33f8bb806 intitial checkin ca parents: diff changeset	1187	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1188	^ self itemAt:stringOrNumber do:[:el\| el enabled ] ifAbsent:false
dce33f8bb806 intitial checkin ca parents: diff changeset	1189	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1190
dce33f8bb806 intitial checkin ca parents: diff changeset	1191	enabledAt:stringOrNumber put:aState
dce33f8bb806 intitial checkin ca parents: diff changeset	1192	"sets the enabled state of an item
dce33f8bb806 intitial checkin ca parents: diff changeset	1193	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1194	self itemAt:stringOrNumber do:[:el\| el enabled:aState ]
dce33f8bb806 intitial checkin ca parents: diff changeset	1195	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1196
dce33f8bb806 intitial checkin ca parents: diff changeset	1197	isEnabled:stringOrNumber
dce33f8bb806 intitial checkin ca parents: diff changeset	1198	"gets the enabled state of an item or false
dce33f8bb806 intitial checkin ca parents: diff changeset	1199	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1200	^ self enabledAt:stringOrNumber
dce33f8bb806 intitial checkin ca parents: diff changeset	1201	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	1202
1679 af40842718f6 when accepting, and the application does not respond to that Claus Gittinger <cg@exept.de> parents: 1670 diff changeset	1203	!MenuPanel methodsFor:'accessing-channels'!
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	enableChannel:aValueHolder
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	1206	"set my enableChannel
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	1207	"
498 b4c341497621 bug fixes: ca parents: 475 diff changeset	1208	enableChannel notNil ifTrue:[
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	1209	enableChannel removeDependent:self
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	1210	].
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	1211
498 b4c341497621 bug fixes: ca parents: 475 diff changeset	1212	(enableChannel := aValueHolder) notNil ifTrue:[
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	1213	enableChannel addDependent:self.
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	1214	].
498 b4c341497621 bug fixes: ca parents: 475 diff changeset	1215	self enabled:(enableChannel value).
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	1216	!
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	1217
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	1218	menuHolder:aValueHolder
498 b4c341497621 bug fixes: ca parents: 475 diff changeset	1219	"set my menuHolder
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	1220	"
498 b4c341497621 bug fixes: ca parents: 475 diff changeset	1221	menuHolder notNil ifTrue:[
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	1222	menuHolder removeDependent:self
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	1223	].
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	1224
498 b4c341497621 bug fixes: ca parents: 475 diff changeset	1225	(menuHolder := aValueHolder) notNil ifTrue:[
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	1226	menuHolder addDependent:self.
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	1227	].
498 b4c341497621 bug fixes: ca parents: 475 diff changeset	1228	self menu:(menuHolder value)
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	1229	! !
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 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-color & font'!
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1232
616 a6157b083830 support of different styles ca parents: 608 diff changeset	1233	activeBackgroundColor
a6157b083830 support of different styles ca parents: 608 diff changeset	1234	"get the background drawing color used to highlight selection
a6157b083830 support of different styles ca parents: 608 diff changeset	1235	"
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1236	^ styleSheet colorAt:#'menuPanel.activeBackgroundColor'
616 a6157b083830 support of different styles ca parents: 608 diff changeset	1237	!
a6157b083830 support of different styles ca parents: 608 diff changeset	1238
a6157b083830 support of different styles ca parents: 608 diff changeset	1239	activeForegroundColor
a6157b083830 support of different styles ca parents: 608 diff changeset	1240	"get the foreground color used to highlight selections
a6157b083830 support of different styles ca parents: 608 diff changeset	1241	"
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1242	^ styleSheet colorAt:#'menuPanel.activeForegroundColor'
616 a6157b083830 support of different styles ca parents: 608 diff changeset	1243	!
a6157b083830 support of different styles ca parents: 608 diff changeset	1244
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1245	backgroundColor
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1246	"return the background color
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1247	"
502 dedc1b29b6ac support of arguments ca parents: 498 diff changeset	1248	^ super viewBackground
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1249	!
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1250
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1251	backgroundColor:aColor
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1252	"set the background drawing color. You should not use this method;
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1253	instead leave the value as defined in the styleSheet.
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1254	"
616 a6157b083830 support of different styles ca parents: 608 diff changeset	1255	super viewBackground ~~ aColor ifTrue:[
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	1256	super viewBackground:aColor.
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	1257	shown ifTrue:[
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	1258	self invalidate "/ RepairNow:true
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	1259	]
616 a6157b083830 support of different styles ca parents: 608 diff changeset	1260	]
a6157b083830 support of different styles ca parents: 608 diff changeset	1261
911 6b1ad8b039c5 no, repairNow should not be needed here Claus Gittinger <cg@exept.de> parents: 910 diff changeset	1262	"Modified: / 6.6.1998 / 19:50:06 / cg"
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1263	!
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1264
727 3ba54333342a button style from style sheet tz parents: 723 diff changeset	1265	buttonActiveBackgroundColor
3ba54333342a button style from style sheet tz parents: 723 diff changeset	1266	"get the background drawing color used to highlight button selection
3ba54333342a button style from style sheet tz parents: 723 diff changeset	1267	"
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1268	^ styleSheet colorAt:#'button.activeBackgroundColor'
93426020ceed * empty log message * ca parents: 2216 diff changeset	1269	default:(self viewBackground)
727 3ba54333342a button style from style sheet tz parents: 723 diff changeset	1270	!
3ba54333342a button style from style sheet tz parents: 723 diff changeset	1271
730 9e45051a4fbd better button draw routine + style sheet support tz parents: 729 diff changeset	1272	buttonEdgeStyle
9e45051a4fbd better button draw routine + style sheet support tz parents: 729 diff changeset	1273	"get the button edge style
9e45051a4fbd better button draw routine + style sheet support tz parents: 729 diff changeset	1274	"
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1275	^ styleSheet at:#'button.edgeStyle'
730 9e45051a4fbd better button draw routine + style sheet support tz parents: 729 diff changeset	1276	!
9e45051a4fbd better button draw routine + style sheet support tz parents: 729 diff changeset	1277
1081 fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1278	buttonEnteredBackgroundColor
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1279	"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	1280	"
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1281	^ styleSheet colorAt:#'menuPanel.buttonEnteredBackgroundColor'
1081 fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1282	!
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1283
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1284	buttonEnteredLevel
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1285	"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	1286	"
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1287	^ styleSheet at:#'menuPanel.buttonEnteredLevel'
1081 fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1288	!
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1289
730 9e45051a4fbd better button draw routine + style sheet support tz parents: 729 diff changeset	1290	buttonHalfLightColor
9e45051a4fbd better button draw routine + style sheet support tz parents: 729 diff changeset	1291	"get the background drawing color used to half light button frame
9e45051a4fbd better button draw routine + style sheet support tz parents: 729 diff changeset	1292	"
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1293	^ styleSheet colorAt:#'button.halfLightColor'
730 9e45051a4fbd better button draw routine + style sheet support tz parents: 729 diff changeset	1294	!
9e45051a4fbd better button draw routine + style sheet support tz parents: 729 diff changeset	1295
9e45051a4fbd better button draw routine + style sheet support tz parents: 729 diff changeset	1296	buttonHalfShadowColor
9e45051a4fbd better button draw routine + style sheet support tz parents: 729 diff changeset	1297	"get the background drawing color used to half shadow button frame
9e45051a4fbd better button draw routine + style sheet support tz parents: 729 diff changeset	1298	"
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1299	^ styleSheet colorAt:#'button.halfShadowColor'
727 3ba54333342a button style from style sheet tz parents: 723 diff changeset	1300	!
3ba54333342a button style from style sheet tz parents: 723 diff changeset	1301
3ba54333342a button style from style sheet tz parents: 723 diff changeset	1302	buttonLightColor
3ba54333342a button style from style sheet tz parents: 723 diff changeset	1303	"get the background drawing color used to light button frame
3ba54333342a button style from style sheet tz parents: 723 diff changeset	1304	"
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1305	^ styleSheet colorAt:#'menuPanel.buttonLightColor'
727 3ba54333342a button style from style sheet tz parents: 723 diff changeset	1306	!
3ba54333342a button style from style sheet tz parents: 723 diff changeset	1307
3ba54333342a button style from style sheet tz parents: 723 diff changeset	1308	buttonPassiveBackgroundColor
3ba54333342a button style from style sheet tz parents: 723 diff changeset	1309	"get the background drawing color used for button
3ba54333342a button style from style sheet tz parents: 723 diff changeset	1310	"
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1311	^ styleSheet colorAt:#'menuPanel.buttonPassiveBackgroundColor'
727 3ba54333342a button style from style sheet tz parents: 723 diff changeset	1312	!
3ba54333342a button style from style sheet tz parents: 723 diff changeset	1313
3ba54333342a button style from style sheet tz parents: 723 diff changeset	1314	buttonShadowColor
3ba54333342a button style from style sheet tz parents: 723 diff changeset	1315	"get the background drawing color used to shadow button frame
3ba54333342a button style from style sheet tz parents: 723 diff changeset	1316	"
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1317	^ styleSheet colorAt:#'menuPanel.buttonShadowColor'
2059 c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	1318	!
c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	1319
c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	1320	disabledEtchedForegroundColor
c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	1321	"return the color used for etching disabled items.
c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	1322	If nil, no 3D effect is drawn.
c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	1323	"
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1324	^ styleSheet colorAt:#'menuPanel.disabledEtchedFgColor'
727 3ba54333342a button style from style sheet tz parents: 723 diff changeset	1325	!
3ba54333342a button style from style sheet tz parents: 723 diff changeset	1326
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1327	disabledForegroundColor
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1328	"return the foreground color used by disabled items
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1329	"
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1330	^ styleSheet colorAt:#'menuPanel.disabledForegroundColor'
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1331	!
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1332
2170 e76171113581 enteredFG / enteredBG Claus Gittinger <cg@exept.de> parents: 2166 diff changeset	1333	enteredBackgroundColor
e76171113581 enteredFG / enteredBG Claus Gittinger <cg@exept.de> parents: 2166 diff changeset	1334	"return the background color for entered items
e76171113581 enteredFG / enteredBG Claus Gittinger <cg@exept.de> parents: 2166 diff changeset	1335	"
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1336	^ styleSheet colorAt:#'menu.enteredBackgroundColor'
93426020ceed * empty log message * ca parents: 2216 diff changeset	1337	default:(self backgroundColor)
2170 e76171113581 enteredFG / enteredBG Claus Gittinger <cg@exept.de> parents: 2166 diff changeset	1338	!
e76171113581 enteredFG / enteredBG Claus Gittinger <cg@exept.de> parents: 2166 diff changeset	1339
e76171113581 enteredFG / enteredBG Claus Gittinger <cg@exept.de> parents: 2166 diff changeset	1340	enteredForegroundColor
e76171113581 enteredFG / enteredBG Claus Gittinger <cg@exept.de> parents: 2166 diff changeset	1341	"return the foreground color for entered items
e76171113581 enteredFG / enteredBG Claus Gittinger <cg@exept.de> parents: 2166 diff changeset	1342	"
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1343	^ styleSheet colorAt:#'menu.enteredForegroundColor' default:fgColor
2170 e76171113581 enteredFG / enteredBG Claus Gittinger <cg@exept.de> parents: 2166 diff changeset	1344	!
e76171113581 enteredFG / enteredBG Claus Gittinger <cg@exept.de> parents: 2166 diff changeset	1345
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1346	font:aFont
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1347	"set the font
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1348	"
829 c86ed87da63b bug fix: ca parents: 828 diff changeset	1349	(aFont notNil and:[aFont ~= font]) ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1350	super font:(aFont "onDevice:device").
93426020ceed * empty log message * ca parents: 2216 diff changeset	1351
93426020ceed * empty log message * ca parents: 2216 diff changeset	1352	superMenu notNil ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	1353	self extent:(self preferredExtent)
93426020ceed * empty log message * ca parents: 2216 diff changeset	1354	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	1355	self mustRearrange.
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1356	]
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1357	!
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1358
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1359	foregroundColor
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1360	"return the passive foreground color
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1361	"
2059 c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	1362	^ fgColor
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1363	!
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1364
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1365	foregroundColor:aColor
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1366	"set the foregroundColor drawing color. You should not use this method;
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1367	instead leave the value as defined in the styleSheet.
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1368	"
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1369	aColor ~= fgColor ifTrue:[
1478 38f08dec8e34 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	1370	fgColor := aColor onDevice:device.
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1371	shown ifTrue:[ self invalidate ]
93426020ceed * empty log message * ca parents: 2216 diff changeset	1372	].
580 249f6cfc5bb2 checkin from browser Claus Gittinger <cg@exept.de> parents: 571 diff changeset	1373	!
249f6cfc5bb2 checkin from browser Claus Gittinger <cg@exept.de> parents: 571 diff changeset	1374
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1375	maxAbsoluteButtonLevel
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1376	"returns the maximum absolute button level; used to compute the preferred
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1377	extent of a button
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1378	"
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1379	^ styleSheet at:#'menuPanel.maxAbsoluteButtonLevel'
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1380	!
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1381
730 9e45051a4fbd better button draw routine + style sheet support tz parents: 729 diff changeset	1382	selectionFrameBrightColor
9e45051a4fbd better button draw routine + style sheet support tz parents: 729 diff changeset	1383	"get the selection frame bright color
9e45051a4fbd better button draw routine + style sheet support tz parents: 729 diff changeset	1384	"
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1385	^ Color white
730 9e45051a4fbd better button draw routine + style sheet support tz parents: 729 diff changeset	1386	!
9e45051a4fbd better button draw routine + style sheet support tz parents: 729 diff changeset	1387
9e45051a4fbd better button draw routine + style sheet support tz parents: 729 diff changeset	1388	selectionFrameDarkColor
9e45051a4fbd better button draw routine + style sheet support tz parents: 729 diff changeset	1389	"get the selection frame dark color
9e45051a4fbd better button draw routine + style sheet support tz parents: 729 diff changeset	1390	"
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1391	^ Color black
730 9e45051a4fbd better button draw routine + style sheet support tz parents: 729 diff changeset	1392	!
9e45051a4fbd better button draw routine + style sheet support tz parents: 729 diff changeset	1393
1727 a6365337be59 support setting font in MenuPanel and Editor ca parents: 1726 diff changeset	1394	setFont:aFont
a6365337be59 support setting font in MenuPanel and Editor ca parents: 1726 diff changeset	1395	"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	1396	"
a6365337be59 support setting font in MenuPanel and Editor ca parents: 1726 diff changeset	1397	\|currentFont\|
a6365337be59 support setting font in MenuPanel and Editor ca parents: 1726 diff changeset	1398
a6365337be59 support setting font in MenuPanel and Editor ca parents: 1726 diff changeset	1399	(aFont notNil and:[aFont ~= font]) ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1400	currentFont := font.
93426020ceed * empty log message * ca parents: 2216 diff changeset	1401	super font:aFont.
1727 a6365337be59 support setting font in MenuPanel and Editor ca parents: 1726 diff changeset	1402	].
a6365337be59 support setting font in MenuPanel and Editor ca parents: 1726 diff changeset	1403	^ currentFont
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1404	! !
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1405
1679 af40842718f6 when accepting, and the application does not respond to that Claus Gittinger <cg@exept.de> parents: 1670 diff changeset	1406	!MenuPanel methodsFor:'accessing-dimensions'!
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1407
dce33f8bb806 intitial checkin ca parents: diff changeset	1408	height
dce33f8bb806 intitial checkin ca parents: diff changeset	1409	"default height
dce33f8bb806 intitial checkin ca parents: diff changeset	1410	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1411	(explicitExtent ~~ true) ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1412	^ self preferredExtent y
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1413	].
dce33f8bb806 intitial checkin ca parents: diff changeset	1414	^ super height
dce33f8bb806 intitial checkin ca parents: diff changeset	1415	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1416
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	1417	maxExtent
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	1418	"CLAUS: returns the maximum extent
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	1419	"
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	1420	\|x y\|
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	1421
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	1422	device isNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1423	superMenu notNil ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	1424	^ superMenu maxExtent
93426020ceed * empty log message * ca parents: 2216 diff changeset	1425	].
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	1426	].
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	1427	y := device usableHeight - 2.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	1428	x := device usableWidth - 2.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	1429	^ x@y
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	1430	!
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	1431
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1432	preferredExtent
dce33f8bb806 intitial checkin ca parents: diff changeset	1433	"compute and returns my preferred extent
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	1434	"
2024 1214769c0441 + #preferredWidth: Claus Gittinger <cg@exept.de> parents: 2020 diff changeset	1435	\|maxExtent usedExtent w\|
1214769c0441 + #preferredWidth: Claus Gittinger <cg@exept.de> parents: 2020 diff changeset	1436
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	1437	preferredExtent notNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1438	^ preferredExtent
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	1439	].
2024 1214769c0441 + #preferredWidth: Claus Gittinger <cg@exept.de> parents: 2020 diff changeset	1440	maxExtent := self maxExtent.
1214769c0441 + #preferredWidth: Claus Gittinger <cg@exept.de> parents: 2020 diff changeset	1441	usedExtent := self preferredExtentOfItems.
1214769c0441 + #preferredWidth: Claus Gittinger <cg@exept.de> parents: 2020 diff changeset	1442
1214769c0441 + #preferredWidth: Claus Gittinger <cg@exept.de> parents: 2020 diff changeset	1443	superView isNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1444	"/ is standalone
93426020ceed * empty log message * ca parents: 2216 diff changeset	1445	w := self menuAdornmentAt:#Width.
93426020ceed * empty log message * ca parents: 2216 diff changeset	1446
93426020ceed * empty log message * ca parents: 2216 diff changeset	1447	w notNil ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	1448	usedExtent x < w ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	1449	usedExtent := w @ usedExtent y.
93426020ceed * empty log message * ca parents: 2216 diff changeset	1450	]
93426020ceed * empty log message * ca parents: 2216 diff changeset	1451	]
2024 1214769c0441 + #preferredWidth: Claus Gittinger <cg@exept.de> parents: 2020 diff changeset	1452	].
1214769c0441 + #preferredWidth: Claus Gittinger <cg@exept.de> parents: 2020 diff changeset	1453
1214769c0441 + #preferredWidth: Claus Gittinger <cg@exept.de> parents: 2020 diff changeset	1454	^ usedExtent min:maxExtent
1214769c0441 + #preferredWidth: Claus Gittinger <cg@exept.de> parents: 2020 diff changeset	1455
1214769c0441 + #preferredWidth: Claus Gittinger <cg@exept.de> parents: 2020 diff changeset	1456	"Modified: / 10.10.2001 / 14:57:25 / cg"
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	1457	!
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	1458
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	1459	preferredExtentOfItems
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	1460	"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	1461	!!!!!! changes have influence on method #rearrangeItems !!!!!!
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1462	"
1707 4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	1463	\|hasMenu shCtKey extent showAcc sck
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1464	x "{ Class:SmallInteger }"
93426020ceed * empty log message * ca parents: 2216 diff changeset	1465	y "{ Class:SmallInteger }"
93426020ceed * empty log message * ca parents: 2216 diff changeset	1466	size "{ Class:SmallInteger }"
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	1467	buttonInsetX "{ Class:SmallInteger }"
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	1468	buttonInsetY "{ Class:SmallInteger }"
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1469	labelInsetX "{ Class:SmallInteger }"
93426020ceed * empty log message * ca parents: 2216 diff changeset	1470	labelInsetY "{ Class:SmallInteger }"
93426020ceed * empty log message * ca parents: 2216 diff changeset	1471	itemSpace "{ Class:SmallInteger }"
93426020ceed * empty log message * ca parents: 2216 diff changeset	1472	itemMargin "{ Class:SmallInteger }"
93426020ceed * empty log message * ca parents: 2216 diff changeset	1473	groupDividerSize "{ Class:SmallInteger }"
1690 38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	1474	\|
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1475
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1476	(size := items size) == 0 ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1477	self isViewWrapper ifTrue:[ ^ subViews first extent ].
93426020ceed * empty log message * ca parents: 2216 diff changeset	1478	^ 32 @ 32
93426020ceed * empty log message * ca parents: 2216 diff changeset	1479	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	1480	buttonInsetX := 2 * self buttonInsetX.
93426020ceed * empty log message * ca parents: 2216 diff changeset	1481	buttonInsetY := 2 * self buttonInsetY.
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1482
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1483	self isPopUpView ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1484	labelInsetX := labelInsetY := 2 * (self enteredLevel abs).
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1485	] ifTrue:[
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	1486	labelInsetX := labelInsetY := 0.
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1487	].
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1488
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1489	x := 0.
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1490	y := 0.
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1491	groupDividerSize := self groupDividerSize.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1492
dce33f8bb806 intitial checkin ca parents: diff changeset	1493	self verticalLayout ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1494	itemSpace := self itemSpace.
93426020ceed * empty log message * ca parents: 2216 diff changeset	1495
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1496	items keysAndValuesDo:[:key :el\| \|eX eY\|
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1497	extent := el preferredExtent.
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1498
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1499	"/ check for visibility (extent x ~~ 0)
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1500	(eX := extent x) ~~ 0 ifTrue:[
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1501	eY := extent y.
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1502
1472 fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	1503	el isButton ifTrue:[
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	1504	eX := eX + buttonInsetX.
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	1505	eY := eY + buttonInsetY.
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1506	] ifFalse:[
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	1507	eX := eX + labelInsetX.
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	1508	eY := eY + labelInsetY.
1472 fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	1509	].
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1510	key ~~ size ifTrue:[
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1511	(self hasGroupDividerAt:key) ifTrue:[
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1512	x := x + groupDividerSize
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1513	] ifFalse:[
1723 f633725a0ace use itemSpace only for horizontal menus and between labeled items ca parents: 1719 diff changeset	1514	el isLabeledItem ifTrue:[
f633725a0ace use itemSpace only for horizontal menus and between labeled items ca parents: 1719 diff changeset	1515	x := x + itemSpace
f633725a0ace use itemSpace only for horizontal menus and between labeled items ca parents: 1719 diff changeset	1516	]
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1517	]
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1518	].
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1519	x := eX + x.
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1520	y := eY max:y.
1472 fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	1521	]
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1522	]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1523	] ifTrue:[
1472 fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	1524	hasMenu := false.
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	1525	shCtKey := 0.
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1526	showAcc := MenuView showAcceleratorKeys == true.
1472 fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	1527	y := x.
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	1528	x := 0.
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1529	itemMargin := 2 * self itemMargin.
1472 fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	1530
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1531	items keysAndValuesDo:[:key :el\| \|eX eY\|
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1532	extent := el preferredExtent.
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1533
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1534	"/ check for visibility (extent x ~~ 0)
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1535	(eX := extent x) ~~ 0 ifTrue:[
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1536	eY := extent y.
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1537
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1538	el isButton ifTrue:[
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	1539	eX := eX + buttonInsetX.
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	1540	eY := eY + buttonInsetY.
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1541	] ifFalse:[
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	1542	eX := eX + labelInsetX.
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	1543	eY := eY + labelInsetY.
1472 fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	1544	].
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1545	hasMenu ifFalse:[
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1546	hasMenu := el hasSubmenu
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1547	].
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1548	(showAcc and:[(sck := el shortcutKeyAsString) notNil]) ifTrue:[
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1549	shCtKey := shCtKey max:(sck widthOn:self)
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1550	].
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1551	key ~~ size ifTrue:[
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1552	(self hasGroupDividerAt:key) ifTrue:[
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1553	y := y + groupDividerSize
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1554	]
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1555	].
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1556	y := eY + y.
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1557	x := eX max:x.
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1558	].
1472 fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	1559	].
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1560	x := x + itemMargin.
1472 fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	1561
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	1562	(hasMenu or:[shCtKey ~~ 0]) ifTrue:[
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	1563	shortKeyInset := x + Item labelRightOffset.
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	1564	x := shortKeyInset + shCtKey + self subMenuIndicationWidth.
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	1565
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	1566	(shCtKey ~~ 0 and:[hasMenu]) ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1567	x := x + self shortcutKeyOffset.
1472 fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	1568	]
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	1569	].
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1570	"/ to have a small inset
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1571	y := y + 1.
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1572	"/ x := x + 1.
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1573	].
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1574	x := x + margin + margin.
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1575	y := y + margin + margin.
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1576
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1577	^ x @ y
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1578	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1579
2024 1214769c0441 + #preferredWidth: Claus Gittinger <cg@exept.de> parents: 2020 diff changeset	1580	preferredWidth:aWidth
1214769c0441 + #preferredWidth: Claus Gittinger <cg@exept.de> parents: 2020 diff changeset	1581	self menuAdornmentAt:#Width put:aWidth.
1214769c0441 + #preferredWidth: Claus Gittinger <cg@exept.de> parents: 2020 diff changeset	1582
1214769c0441 + #preferredWidth: Claus Gittinger <cg@exept.de> parents: 2020 diff changeset	1583	"Created: / 10.10.2001 / 14:56:39 / cg"
1214769c0441 + #preferredWidth: Claus Gittinger <cg@exept.de> parents: 2020 diff changeset	1584	!
1214769c0441 + #preferredWidth: Claus Gittinger <cg@exept.de> parents: 2020 diff changeset	1585
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1586	shortKeyInset
dce33f8bb806 intitial checkin ca parents: diff changeset	1587	"left inset of shortcutKey
dce33f8bb806 intitial checkin ca parents: diff changeset	1588	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1589	^ shortKeyInset
616 a6157b083830 support of different styles ca parents: 608 diff changeset	1590	!
a6157b083830 support of different styles ca parents: 608 diff changeset	1591
a6157b083830 support of different styles ca parents: 608 diff changeset	1592	subMenuIndicationWidth
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1593	^ self rightArrow width
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1594	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	1595
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	1596	!MenuPanel methodsFor:'accessing-interactors'!
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	1597
1798 08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	1598	iconIndicationDisabledOff
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1599	^ self registerImageOnDevice:(self class iconIndicationDisabledOff)
1798 08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	1600	!
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	1601
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	1602	iconIndicationDisabledOn
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1603	^ self registerImageOnDevice:(self class iconIndicationDisabledOn)
1798 08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	1604	!
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	1605
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	1606	iconIndicationOff
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1607	^ self registerImageOnDevice:(self class iconIndicationOff)
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	1608	!
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	1609
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	1610	iconIndicationOn
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1611	^ self registerImageOnDevice:(self class iconIndicationOn)
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	1612	!
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	1613
1798 08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	1614	iconRadioGroupDisabledOff
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1615	^ self registerImageOnDevice:(self class iconRadioGroupDisabledOff)
1798 08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	1616	!
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	1617
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	1618	iconRadioGroupDisabledOn
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1619	^ self registerImageOnDevice:(self class iconRadioGroupDisabledOn)
1798 08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	1620	!
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	1621
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	1622	iconRadioGroupOff
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1623	^ self registerImageOnDevice:(self class iconRadioGroupOff)
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	1624	!
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	1625
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	1626	iconRadioGroupOn
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1627	^ self registerImageOnDevice:(self class iconRadioGroupOn)
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	1628	! !
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	1629
1679 af40842718f6 when accepting, and the application does not respond to that Claus Gittinger <cg@exept.de> parents: 1670 diff changeset	1630	!MenuPanel methodsFor:'accessing-items'!
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1631
dce33f8bb806 intitial checkin ca parents: diff changeset	1632	itemAt:stringOrNumber
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1633	"returns item assigned to an index, nameKey, textLabel or value if symbol.
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1634	If no item match nil is returned.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1635	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1636	\|idx\|
dce33f8bb806 intitial checkin ca parents: diff changeset	1637
dce33f8bb806 intitial checkin ca parents: diff changeset	1638	idx := self indexOf:stringOrNumber.
dce33f8bb806 intitial checkin ca parents: diff changeset	1639	(idx > 0 and:[idx <= items size]) ifTrue:[ ^ items at:idx ].
dce33f8bb806 intitial checkin ca parents: diff changeset	1640	^ nil
dce33f8bb806 intitial checkin ca parents: diff changeset	1641
dce33f8bb806 intitial checkin ca parents: diff changeset	1642	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1643
dce33f8bb806 intitial checkin ca parents: diff changeset	1644	itemAt:stringOrNumber do:aOneArgBlock
dce33f8bb806 intitial checkin ca parents: diff changeset	1645	"evaluate teh block for an item and return the result from the block. In case that
dce33f8bb806 intitial checkin ca parents: diff changeset	1646	the item not exists nil is returned
dce33f8bb806 intitial checkin ca parents: diff changeset	1647	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1648	^ self itemAt:stringOrNumber do:aOneArgBlock ifAbsent:nil
dce33f8bb806 intitial checkin ca parents: diff changeset	1649	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1650
dce33f8bb806 intitial checkin ca parents: diff changeset	1651	itemAt:stringOrNumber do:aOneArgBlock ifAbsent:exceptionBlock
dce33f8bb806 intitial checkin ca parents: diff changeset	1652	"evaluate teh block for an item and return the result from the block. In case that
dce33f8bb806 intitial checkin ca parents: diff changeset	1653	the item not exists the result of the exception block is returned (no arguments).
dce33f8bb806 intitial checkin ca parents: diff changeset	1654	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1655	\|item\|
dce33f8bb806 intitial checkin ca parents: diff changeset	1656
dce33f8bb806 intitial checkin ca parents: diff changeset	1657	item := self itemAt:stringOrNumber.
dce33f8bb806 intitial checkin ca parents: diff changeset	1658	item notNil ifTrue:[ ^ aOneArgBlock value:item ].
dce33f8bb806 intitial checkin ca parents: diff changeset	1659	^ exceptionBlock value
706 d716edbdbe47 show separators bug cleaned tz parents: 689 diff changeset	1660	!
d716edbdbe47 show separators bug cleaned tz parents: 689 diff changeset	1661
d716edbdbe47 show separators bug cleaned tz parents: 689 diff changeset	1662	itemAtIndex:anIndex
d716edbdbe47 show separators bug cleaned tz parents: 689 diff changeset	1663	"returns item at an index or nil
d716edbdbe47 show separators bug cleaned tz parents: 689 diff changeset	1664	"
d716edbdbe47 show separators bug cleaned tz parents: 689 diff changeset	1665	^ 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	1666	!
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	1667
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	1668	items
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	1669	"returns list of items or nil
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	1670	"
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	1671	^ items
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1672	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	1673
1679 af40842718f6 when accepting, and the application does not respond to that Claus Gittinger <cg@exept.de> parents: 1670 diff changeset	1674	!MenuPanel methodsFor:'accessing-look'!
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1675
727 3ba54333342a button style from style sheet tz parents: 723 diff changeset	1676	buttonActiveLevel
3ba54333342a button style from style sheet tz parents: 723 diff changeset	1677	"get the button active level
3ba54333342a button style from style sheet tz parents: 723 diff changeset	1678	"
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1679	^ styleSheet at:#'menuPanel.buttonActiveLevel'
727 3ba54333342a button style from style sheet tz parents: 723 diff changeset	1680	!
3ba54333342a button style from style sheet tz parents: 723 diff changeset	1681
3ba54333342a button style from style sheet tz parents: 723 diff changeset	1682	buttonPassiveLevel
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1683	"get the button active level
93426020ceed * empty log message * ca parents: 2216 diff changeset	1684	"
93426020ceed * empty log message * ca parents: 2216 diff changeset	1685	^ styleSheet at:#'menuPanel.buttonPassiveLevel'
727 3ba54333342a button style from style sheet tz parents: 723 diff changeset	1686	!
3ba54333342a button style from style sheet tz parents: 723 diff changeset	1687
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1688	fitFirstPanel
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1689	"gets true if the first panel in the menu hierarchy must be fit
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1690	to the extent of its superView
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1691
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1692	NOT SUPPORTED
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1693	"
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1694	^ false
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1695	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1696
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1697	fitFirstPanel:aState
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1698	"sets true if the first panel in the menu hierarchy must be fit
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1699	to the extent of its superView
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1700
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1701	NOT SUPPORTED
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1702	"
616 a6157b083830 support of different styles ca parents: 608 diff changeset	1703	!
a6157b083830 support of different styles ca parents: 608 diff changeset	1704
1093 7cb44303b016 margin fixes Claus Gittinger <cg@exept.de> parents: 1090 diff changeset	1705	level:anInt
2003 732fbaf5864f avoid changing the level after realization (to avoid confusing the shadow) Claus Gittinger <cg@exept.de> parents: 2000 diff changeset	1706	anInt ~~ level ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1707	super level:anInt.
93426020ceed * empty log message * ca parents: 2216 diff changeset	1708	self mustRearrange
2003 732fbaf5864f avoid changing the level after realization (to avoid confusing the shadow) Claus Gittinger <cg@exept.de> parents: 2000 diff changeset	1709	]
2052 61367c7a47aa * empty log message * Claus Gittinger <cg@exept.de> parents: 2051 diff changeset	1710
61367c7a47aa * empty log message * Claus Gittinger <cg@exept.de> parents: 2051 diff changeset	1711	"Modified: / 15.11.2001 / 17:42:07 / cg"
1093 7cb44303b016 margin fixes Claus Gittinger <cg@exept.de> parents: 1090 diff changeset	1712	!
7cb44303b016 margin fixes Claus Gittinger <cg@exept.de> parents: 1090 diff changeset	1713
616 a6157b083830 support of different styles ca parents: 608 diff changeset	1714	rightArrow
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1715	rightArrow ifNil:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	1716	device ifNil:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	1717	^ SelectionInListView rightArrowFormOn:Display
93426020ceed * empty log message * ca parents: 2216 diff changeset	1718	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	1719	rightArrow := SelectionInListView rightArrowFormOn:device
93426020ceed * empty log message * ca parents: 2216 diff changeset	1720	].
616 a6157b083830 support of different styles ca parents: 608 diff changeset	1721	^ rightArrow
a6157b083830 support of different styles ca parents: 608 diff changeset	1722	!
a6157b083830 support of different styles ca parents: 608 diff changeset	1723
a6157b083830 support of different styles ca parents: 608 diff changeset	1724	rightArrowShadow
a6157b083830 support of different styles ca parents: 608 diff changeset	1725	^ rightArrowShadow
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1726	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1727
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1728	showGroupDivider
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1729	"get the enabled flag for showing groupDiveders
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1730	"
1222 8d58a1a93582 * empty log message * Claus Gittinger <cg@exept.de> parents: 1221 diff changeset	1731	^ (self menuAdornmentAt:#showGroupDivider)
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1732	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1733
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1734	showGroupDivider:aState
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1735	"set the enabled flag for showing groupDiveders
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1736	"
653 cf9b6ef11ade bug fix; no automatic rearrange of items ca parents: 650 diff changeset	1737	(self menuAdornmentAt:#showGroupDivider put:aState) ifTrue:[
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	1738	self mustRearrange.
653 cf9b6ef11ade bug fix; no automatic rearrange of items ca parents: 650 diff changeset	1739	]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1740	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1741
dce33f8bb806 intitial checkin ca parents: diff changeset	1742	showSeparatingLines
dce33f8bb806 intitial checkin ca parents: diff changeset	1743	"gets true if drawing of separating lines is enabled.
dce33f8bb806 intitial checkin ca parents: diff changeset	1744	"
1222 8d58a1a93582 * empty log message * Claus Gittinger <cg@exept.de> parents: 1221 diff changeset	1745	^ (self menuAdornmentAt:#showSeparatingLines)
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1746	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1747
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1748	showSeparatingLines:aState
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1749	"turn on/off drawing of separating lines.
dce33f8bb806 intitial checkin ca parents: diff changeset	1750	"
653 cf9b6ef11ade bug fix; no automatic rearrange of items ca parents: 650 diff changeset	1751	(self menuAdornmentAt:#showSeparatingLines put:aState) ifTrue:[
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	1752	self mustRearrange
653 cf9b6ef11ade bug fix; no automatic rearrange of items ca parents: 650 diff changeset	1753	]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1754	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1755
dce33f8bb806 intitial checkin ca parents: diff changeset	1756	verticalLayout
dce33f8bb806 intitial checkin ca parents: diff changeset	1757	"get the layout: or vertical( true ) or horizontal( false )
dce33f8bb806 intitial checkin ca parents: diff changeset	1758	"
1824 ad38ecd8752d support horizontal or vertical layout for popup menus ca parents: 1819 diff changeset	1759	\|direction\|
ad38ecd8752d support horizontal or vertical layout for popup menus ca parents: 1819 diff changeset	1760
ad38ecd8752d support horizontal or vertical layout for popup menus ca parents: 1819 diff changeset	1761	direction := self menuAdornmentAt:#verticalLayout.
2079 0cd146d5c163 verticalLayout fix Claus Gittinger <cg@exept.de> parents: 2073 diff changeset	1762	direction notNil ifTrue:[^ direction].
0cd146d5c163 verticalLayout fix Claus Gittinger <cg@exept.de> parents: 2073 diff changeset	1763	self isPopUpView ifTrue:[^ true].
0cd146d5c163 verticalLayout fix Claus Gittinger <cg@exept.de> parents: 2073 diff changeset	1764	^ superMenu notNil
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	verticalLayout:aState
dce33f8bb806 intitial checkin ca parents: diff changeset	1768	"set the layout: or vertical( true ) or horizontal( false )
dce33f8bb806 intitial checkin ca parents: diff changeset	1769	"
653 cf9b6ef11ade bug fix; no automatic rearrange of items ca parents: 650 diff changeset	1770	(self menuAdornmentAt:#verticalLayout put:aState) ifTrue:[
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	1771	self mustRearrange
653 cf9b6ef11ade bug fix; no automatic rearrange of items ca parents: 650 diff changeset	1772	]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1773	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	1774
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1775	!MenuPanel methodsFor:'accessing-style'!
93426020ceed * empty log message * ca parents: 2216 diff changeset	1776
93426020ceed * empty log message * ca parents: 2216 diff changeset	1777	buttonInsetX
93426020ceed * empty log message * ca parents: 2216 diff changeset	1778	"returns the verical button space
93426020ceed * empty log message * ca parents: 2216 diff changeset	1779	"
93426020ceed * empty log message * ca parents: 2216 diff changeset	1780	^ styleSheet at:#'menuPanel.buttonInsetX'
93426020ceed * empty log message * ca parents: 2216 diff changeset	1781	!
93426020ceed * empty log message * ca parents: 2216 diff changeset	1782
93426020ceed * empty log message * ca parents: 2216 diff changeset	1783	buttonInsetY
93426020ceed * empty log message * ca parents: 2216 diff changeset	1784	"returns the verical button space
93426020ceed * empty log message * ca parents: 2216 diff changeset	1785	"
93426020ceed * empty log message * ca parents: 2216 diff changeset	1786	^ styleSheet at:#'menuPanel.buttonInsetY'
93426020ceed * empty log message * ca parents: 2216 diff changeset	1787	!
93426020ceed * empty log message * ca parents: 2216 diff changeset	1788
93426020ceed * empty log message * ca parents: 2216 diff changeset	1789	enteredLevel
93426020ceed * empty log message * ca parents: 2216 diff changeset	1790	"returns the enter-level for an unselected item moved through
93426020ceed * empty log message * ca parents: 2216 diff changeset	1791	"
93426020ceed * empty log message * ca parents: 2216 diff changeset	1792	^ styleSheet at:#'menu.enteredLevel' default:0
93426020ceed * empty log message * ca parents: 2216 diff changeset	1793	!
93426020ceed * empty log message * ca parents: 2216 diff changeset	1794
93426020ceed * empty log message * ca parents: 2216 diff changeset	1795	groupDividerSize
93426020ceed * empty log message * ca parents: 2216 diff changeset	1796	"returns the width of a group divider
93426020ceed * empty log message * ca parents: 2216 diff changeset	1797	"
93426020ceed * empty log message * ca parents: 2216 diff changeset	1798	^ styleSheet at:#'menu.groupDividerSize' default:6
93426020ceed * empty log message * ca parents: 2216 diff changeset	1799	!
93426020ceed * empty log message * ca parents: 2216 diff changeset	1800
93426020ceed * empty log message * ca parents: 2216 diff changeset	1801	itemMargin
93426020ceed * empty log message * ca parents: 2216 diff changeset	1802	"returns the margin of an item
93426020ceed * empty log message * ca parents: 2216 diff changeset	1803	"
93426020ceed * empty log message * ca parents: 2216 diff changeset	1804	^ styleSheet at:#'menu.itemMargin' default:0
93426020ceed * empty log message * ca parents: 2216 diff changeset	1805	!
93426020ceed * empty log message * ca parents: 2216 diff changeset	1806
93426020ceed * empty log message * ca parents: 2216 diff changeset	1807	itemSpace
93426020ceed * empty log message * ca parents: 2216 diff changeset	1808	"returns the additional space for an item in a (vertical) panel
93426020ceed * empty log message * ca parents: 2216 diff changeset	1809	"
93426020ceed * empty log message * ca parents: 2216 diff changeset	1810	^ styleSheet at:#'menuPanel.itemSpace'
93426020ceed * empty log message * ca parents: 2216 diff changeset	1811	!
93426020ceed * empty log message * ca parents: 2216 diff changeset	1812
93426020ceed * empty log message * ca parents: 2216 diff changeset	1813	selectionFollowsMouse
93426020ceed * empty log message * ca parents: 2216 diff changeset	1814	"returns true if the selection follows the mouse
93426020ceed * empty log message * ca parents: 2216 diff changeset	1815	"
93426020ceed * empty log message * ca parents: 2216 diff changeset	1816	^ styleSheet at:#'menu.selectionFollowsMouse' default:false
93426020ceed * empty log message * ca parents: 2216 diff changeset	1817	!
93426020ceed * empty log message * ca parents: 2216 diff changeset	1818
93426020ceed * empty log message * ca parents: 2216 diff changeset	1819	shortcutKeyOffset
93426020ceed * empty log message * ca parents: 2216 diff changeset	1820	"returns the offset for a shortcutKey
93426020ceed * empty log message * ca parents: 2216 diff changeset	1821	"
93426020ceed * empty log message * ca parents: 2216 diff changeset	1822	^ 5
93426020ceed * empty log message * ca parents: 2216 diff changeset	1823	! !
93426020ceed * empty log message * ca parents: 2216 diff changeset	1824
1679 af40842718f6 when accepting, and the application does not respond to that Claus Gittinger <cg@exept.de> parents: 1670 diff changeset	1825	!MenuPanel methodsFor:'accessing-submenu'!
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1826
dce33f8bb806 intitial checkin ca parents: diff changeset	1827	subMenuAt:stringOrNumber
dce33f8bb806 intitial checkin ca parents: diff changeset	1828	"gets the submenu of an item or nil
dce33f8bb806 intitial checkin ca parents: diff changeset	1829	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1830	^ self itemAt:stringOrNumber do:[:el\| el submenu ]
dce33f8bb806 intitial checkin ca parents: diff changeset	1831	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1832
dce33f8bb806 intitial checkin ca parents: diff changeset	1833	subMenuAt:stringOrNumber put:aSubMenu
dce33f8bb806 intitial checkin ca parents: diff changeset	1834	"sets the submenu of an item
dce33f8bb806 intitial checkin ca parents: diff changeset	1835	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1836	self itemAt:stringOrNumber do:[:el\| el submenu:aSubMenu ]
dce33f8bb806 intitial checkin ca parents: diff changeset	1837
dce33f8bb806 intitial checkin ca parents: diff changeset	1838	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1839
dce33f8bb806 intitial checkin ca parents: diff changeset	1840	subMenuShown
dce33f8bb806 intitial checkin ca parents: diff changeset	1841	"return the currently visible submenu - or nil if there is none
dce33f8bb806 intitial checkin ca parents: diff changeset	1842	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1843	\|item\|
dce33f8bb806 intitial checkin ca parents: diff changeset	1844
dce33f8bb806 intitial checkin ca parents: diff changeset	1845	(item := self selection) notNil ifTrue:[
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	1846	^ item submenu
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1847	].
dce33f8bb806 intitial checkin ca parents: diff changeset	1848	^ nil
dce33f8bb806 intitial checkin ca parents: diff changeset	1849	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	1850
1698 8d29156bab20 category rename Claus Gittinger <cg@exept.de> parents: 1697 diff changeset	1851	!MenuPanel methodsFor:'activation / deactivation'!
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1852
1795 6afd0e768267 submenuChannel selector: allow upto two arguments, the arg and the menu ca parents: 1793 diff changeset	1853	closeMenus
6afd0e768267 submenuChannel selector: allow upto two arguments, the arg and the menu ca parents: 1793 diff changeset	1854	"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	1855	"
6afd0e768267 submenuChannel selector: allow upto two arguments, the arg and the menu ca parents: 1793 diff changeset	1856	self topMenu accept:nil.
6afd0e768267 submenuChannel selector: allow upto two arguments, the arg and the menu ca parents: 1793 diff changeset	1857	!
6afd0e768267 submenuChannel selector: allow upto two arguments, the arg and the menu ca parents: 1793 diff changeset	1858
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1859	hide
dce33f8bb806 intitial checkin ca parents: diff changeset	1860	"hide the view, leave its modal event loop
dce33f8bb806 intitial checkin ca parents: diff changeset	1861	"
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	1862
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1863	self selection:nil.
dce33f8bb806 intitial checkin ca parents: diff changeset	1864	self unmap.
dce33f8bb806 intitial checkin ca parents: diff changeset	1865
dce33f8bb806 intitial checkin ca parents: diff changeset	1866
dce33f8bb806 intitial checkin ca parents: diff changeset	1867	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1868
dce33f8bb806 intitial checkin ca parents: diff changeset	1869	show
1836 89a1b938c09e fixed returned value from non-performing menu Claus Gittinger <cg@exept.de> parents: 1832 diff changeset	1870	"realize the view at its last position;
89a1b938c09e fixed returned value from non-performing menu Claus Gittinger <cg@exept.de> parents: 1832 diff changeset	1871	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	1872	(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	1873	to some performer)
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1874	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1875	^ self showAt:(self origin) resizing:true
dce33f8bb806 intitial checkin ca parents: diff changeset	1876
dce33f8bb806 intitial checkin ca parents: diff changeset	1877	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1878
dce33f8bb806 intitial checkin ca parents: diff changeset	1879	showAt:aPoint
1836 89a1b938c09e fixed returned value from non-performing menu Claus Gittinger <cg@exept.de> parents: 1832 diff changeset	1880	"realize the view at aPoint.
89a1b938c09e fixed returned value from non-performing menu Claus Gittinger <cg@exept.de> parents: 1832 diff changeset	1881	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	1882	(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	1883	to some performer)
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1884	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1885	^ self showAt:aPoint resizing:true
dce33f8bb806 intitial checkin ca parents: diff changeset	1886
dce33f8bb806 intitial checkin ca parents: diff changeset	1887
dce33f8bb806 intitial checkin ca parents: diff changeset	1888	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1889
dce33f8bb806 intitial checkin ca parents: diff changeset	1890	showAt:aPoint resizing:aBoolean
984 87d36803b9d8 oops - menu items fired twice. Claus Gittinger <cg@exept.de> parents: 971 diff changeset	1891	"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	1892	or if I have already performed.
87d36803b9d8 oops - menu items fired twice. Claus Gittinger <cg@exept.de> parents: 971 diff changeset	1893	Return the items value, otherwise.
87d36803b9d8 oops - menu items fired twice. Claus Gittinger <cg@exept.de> parents: 971 diff changeset	1894	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	1895	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	1896	if a non-nil is returned.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1897	"
1836 89a1b938c09e fixed returned value from non-performing menu Claus Gittinger <cg@exept.de> parents: 1832 diff changeset	1898
1331 aae37cbfb30a fixed style handling to avoid bad resizing when popup-level/bw Claus Gittinger <cg@exept.de> parents: 1330 diff changeset	1899	self rearrangeItemsIfItemVisibilityChanged.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1900
dce33f8bb806 intitial checkin ca parents: diff changeset	1901	aBoolean ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1902	self fixSize.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1903	].
dce33f8bb806 intitial checkin ca parents: diff changeset	1904	self origin:aPoint.
1459 53f83c83b354 checkin from browser Claus Gittinger <cg@exept.de> parents: 1455 diff changeset	1905	"/ self makeFullyVisible. -- done in realize
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1906	self openModal:[true]. "realize "
dce33f8bb806 intitial checkin ca parents: diff changeset	1907
984 87d36803b9d8 oops - menu items fired twice. Claus Gittinger <cg@exept.de> parents: 971 diff changeset	1908	"/ if I have already performed,
87d36803b9d8 oops - menu items fired twice. Claus Gittinger <cg@exept.de> parents: 971 diff changeset	1909	"/ return nil - to avoid items triggering twice.
87d36803b9d8 oops - menu items fired twice. Claus Gittinger <cg@exept.de> parents: 971 diff changeset	1910
87d36803b9d8 oops - menu items fired twice. Claus Gittinger <cg@exept.de> parents: 971 diff changeset	1911	(self topMenu menuAdornmentAt:#hasPerformed) == true ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1912	^ nil
984 87d36803b9d8 oops - menu items fired twice. Claus Gittinger <cg@exept.de> parents: 971 diff changeset	1913	].
1836 89a1b938c09e fixed returned value from non-performing menu Claus Gittinger <cg@exept.de> parents: 1832 diff changeset	1914
984 87d36803b9d8 oops - menu items fired twice. Claus Gittinger <cg@exept.de> parents: 971 diff changeset	1915	^ self lastValueAccepted
87d36803b9d8 oops - menu items fired twice. Claus Gittinger <cg@exept.de> parents: 971 diff changeset	1916
1137 7df0b776e47a fixes for 2D styles (borderWidth) Claus Gittinger <cg@exept.de> parents: 1130 diff changeset	1917	"Modified: / 15.9.1998 / 12:50:23 / cg"
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1918	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1919
dce33f8bb806 intitial checkin ca parents: diff changeset	1920	showAtPointer
1836 89a1b938c09e fixed returned value from non-performing menu Claus Gittinger <cg@exept.de> parents: 1832 diff changeset	1921	"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	1922	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	1923	(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	1924	to some performer)
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1925	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1926	^ self showAt:(device pointerPosition) resizing:true
dce33f8bb806 intitial checkin ca parents: diff changeset	1927
dce33f8bb806 intitial checkin ca parents: diff changeset	1928
dce33f8bb806 intitial checkin ca parents: diff changeset	1929	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1930
dce33f8bb806 intitial checkin ca parents: diff changeset	1931	showCenteredIn:aView
dce33f8bb806 intitial checkin ca parents: diff changeset	1932	"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	1933	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	1934	(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	1935	to some performer)
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1936	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1937	\|top\|
dce33f8bb806 intitial checkin ca parents: diff changeset	1938
dce33f8bb806 intitial checkin ca parents: diff changeset	1939	top := aView topView.
dce33f8bb806 intitial checkin ca parents: diff changeset	1940	top raise.
1137 7df0b776e47a fixes for 2D styles (borderWidth) Claus Gittinger <cg@exept.de> parents: 1130 diff changeset	1941	^ 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	1942
7df0b776e47a fixes for 2D styles (borderWidth) Claus Gittinger <cg@exept.de> parents: 1130 diff changeset	1943	"Modified: / 15.9.1998 / 12:45:50 / cg"
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1944	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1945
dce33f8bb806 intitial checkin ca parents: diff changeset	1946	startUp
dce33f8bb806 intitial checkin ca parents: diff changeset	1947	"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	1948	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	1949	(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	1950	to some performer)
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1951	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1952	^ self showAtPointer
897 6bbc8c15ac0a added #startUpAt: (MenuView compatibility) Claus Gittinger <cg@exept.de> parents: 890 diff changeset	1953	!
6bbc8c15ac0a added #startUpAt: (MenuView compatibility) Claus Gittinger <cg@exept.de> parents: 890 diff changeset	1954
6bbc8c15ac0a added #startUpAt: (MenuView compatibility) Claus Gittinger <cg@exept.de> parents: 890 diff changeset	1955	startUpAt:aPoint
6bbc8c15ac0a added #startUpAt: (MenuView compatibility) Claus Gittinger <cg@exept.de> parents: 890 diff changeset	1956	"realize the menu at aPoint
1836 89a1b938c09e fixed returned value from non-performing menu Claus Gittinger <cg@exept.de> parents: 1832 diff changeset	1957	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	1958	(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	1959	to some performer)
897 6bbc8c15ac0a added #startUpAt: (MenuView compatibility) Claus Gittinger <cg@exept.de> parents: 890 diff changeset	1960	"
6bbc8c15ac0a added #startUpAt: (MenuView compatibility) Claus Gittinger <cg@exept.de> parents: 890 diff changeset	1961	^ self showAt:aPoint
6bbc8c15ac0a added #startUpAt: (MenuView compatibility) Claus Gittinger <cg@exept.de> parents: 890 diff changeset	1962
6bbc8c15ac0a added #startUpAt: (MenuView compatibility) Claus Gittinger <cg@exept.de> parents: 890 diff changeset	1963	"Created: / 21.5.1998 / 14:15:57 / cg"
1750 f9e5700bd99a compatibility stuff Claus Gittinger <cg@exept.de> parents: 1737 diff changeset	1964	!
f9e5700bd99a compatibility stuff Claus Gittinger <cg@exept.de> parents: 1737 diff changeset	1965
f9e5700bd99a compatibility stuff Claus Gittinger <cg@exept.de> parents: 1737 diff changeset	1966	startUpOrNil
f9e5700bd99a compatibility stuff Claus Gittinger <cg@exept.de> parents: 1737 diff changeset	1967	"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	1968	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	1969	(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	1970	to some performer)
1750 f9e5700bd99a compatibility stuff Claus Gittinger <cg@exept.de> parents: 1737 diff changeset	1971	"
f9e5700bd99a compatibility stuff Claus Gittinger <cg@exept.de> parents: 1737 diff changeset	1972	^ self showAtPointer
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1973	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	1974
dce33f8bb806 intitial checkin ca parents: diff changeset	1975	!MenuPanel methodsFor:'adding & removing'!
dce33f8bb806 intitial checkin ca parents: diff changeset	1976
dce33f8bb806 intitial checkin ca parents: diff changeset	1977	createAtIndex:anIndexOrNil
1800 600f247a2846 comment Claus Gittinger <cg@exept.de> parents: 1799 diff changeset	1978	"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	1979	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	1980	otherwise the new created item is returned.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1981	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1982	\|max item\|
dce33f8bb806 intitial checkin ca parents: diff changeset	1983
dce33f8bb806 intitial checkin ca parents: diff changeset	1984	max := (items size) + 1.
dce33f8bb806 intitial checkin ca parents: diff changeset	1985
dce33f8bb806 intitial checkin ca parents: diff changeset	1986	anIndexOrNil notNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1987	(anIndexOrNil < 1 or:[anIndexOrNil > max]) ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	1988	^ nil
93426020ceed * empty log message * ca parents: 2216 diff changeset	1989	]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1990	].
dce33f8bb806 intitial checkin ca parents: diff changeset	1991	items isNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1992	items := OrderedCollection new
1151 199863d6a463 items: convert Array to OrderedCollection Claus Gittinger <cg@exept.de> parents: 1137 diff changeset	1993	] ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1994	items := items asOrderedCollection
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1995	].
dce33f8bb806 intitial checkin ca parents: diff changeset	1996	item := Item in:self.
dce33f8bb806 intitial checkin ca parents: diff changeset	1997
dce33f8bb806 intitial checkin ca parents: diff changeset	1998	(anIndexOrNil isNil or:[anIndexOrNil == max]) ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1999	items add:item
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2000	] ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	2001	items add:item beforeIndex:anIndexOrNil
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2002	].
dce33f8bb806 intitial checkin ca parents: diff changeset	2003	^ item
dce33f8bb806 intitial checkin ca parents: diff changeset	2004	!
dce33f8bb806 intitial checkin ca parents: diff changeset	2005
dce33f8bb806 intitial checkin ca parents: diff changeset	2006	remove:stringOrNumber
dce33f8bb806 intitial checkin ca parents: diff changeset	2007	"remove the first item which is assigned to stringOrNumber;
dce33f8bb806 intitial checkin ca parents: diff changeset	2008	if found, remove and return it
dce33f8bb806 intitial checkin ca parents: diff changeset	2009	"
dce33f8bb806 intitial checkin ca parents: diff changeset	2010	\|item\|
dce33f8bb806 intitial checkin ca parents: diff changeset	2011
dce33f8bb806 intitial checkin ca parents: diff changeset	2012	(item := self itemAt:stringOrNumber) notNil ifTrue:[
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	2013	items remove:item.
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	2014	item destroy.
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	2015	items isEmpty ifTrue:[items := nil].
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	2016	self mustRearrange.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2017	].
dce33f8bb806 intitial checkin ca parents: diff changeset	2018	^ item
dce33f8bb806 intitial checkin ca parents: diff changeset	2019	!
dce33f8bb806 intitial checkin ca parents: diff changeset	2020
dce33f8bb806 intitial checkin ca parents: diff changeset	2021	removeAll
dce33f8bb806 intitial checkin ca parents: diff changeset	2022	"remove all items and submenus
dce33f8bb806 intitial checkin ca parents: diff changeset	2023	"
dce33f8bb806 intitial checkin ca parents: diff changeset	2024	self disabledRedrawDo:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	2025	self selection:nil.
93426020ceed * empty log message * ca parents: 2216 diff changeset	2026	groupSizes := nil.
93426020ceed * empty log message * ca parents: 2216 diff changeset	2027	items notNil ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	2028	items copy do:[:el\| el destroy ].
93426020ceed * empty log message * ca parents: 2216 diff changeset	2029	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	2030	items := nil
2050 ef5517d7a2d0 do not destroy myself after accepting (for PopUpList) Claus Gittinger <cg@exept.de> parents: 2048 diff changeset	2031	].
ef5517d7a2d0 do not destroy myself after accepting (for PopUpList) Claus Gittinger <cg@exept.de> parents: 2048 diff changeset	2032
ef5517d7a2d0 do not destroy myself after accepting (for PopUpList) Claus Gittinger <cg@exept.de> parents: 2048 diff changeset	2033	"Modified: / 15.11.2001 / 17:02:51 / cg"
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2034	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	2035
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2036	!MenuPanel methodsFor:'change & update'!
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2037
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2038	update:something with:aParameter from:changedObject
498 b4c341497621 bug fixes: ca parents: 475 diff changeset	2039
b4c341497621 bug fixes: ca parents: 475 diff changeset	2040	changedObject == menuHolder ifTrue:[^ self menu:(menuHolder value)].
b4c341497621 bug fixes: ca parents: 475 diff changeset	2041	changedObject == enableChannel ifTrue:[^ self enabled:(enableChannel value)].
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2042
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2043	super update:something with:aParameter from:changedObject
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2044	! !
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2045
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2046	!MenuPanel methodsFor:'converting'!
dce33f8bb806 intitial checkin ca parents: diff changeset	2047
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2048	asMenu
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2049	"convert contents to menu
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2050	"
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2051	\|menu\|
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2052
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2053	menu := Menu new.
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2054	menu groupSizes:groupSizes.
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2055	self do:[:anItem\| menu addItem:(anItem asMenuItem) ].
2059 c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	2056	^ menu
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2057	!
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2058
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2059	fromSpec:aMenuSpec
dce33f8bb806 intitial checkin ca parents: diff changeset	2060	"build from spec
dce33f8bb806 intitial checkin ca parents: diff changeset	2061	"
dce33f8bb806 intitial checkin ca parents: diff changeset	2062	\|menu\|
dce33f8bb806 intitial checkin ca parents: diff changeset	2063
dce33f8bb806 intitial checkin ca parents: diff changeset	2064	menu := Menu new.
dce33f8bb806 intitial checkin ca parents: diff changeset	2065	menu fromLiteralArrayEncoding:aMenuSpec.
dce33f8bb806 intitial checkin ca parents: diff changeset	2066	self menu:menu
dce33f8bb806 intitial checkin ca parents: diff changeset	2067
dce33f8bb806 intitial checkin ca parents: diff changeset	2068	!
dce33f8bb806 intitial checkin ca parents: diff changeset	2069
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2070	menu:aMenu
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2071	"convert to Menu
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2072	"
dce33f8bb806 intitial checkin ca parents: diff changeset	2073	self disabledRedrawDo:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	2074	\|menu newItems\|
93426020ceed * empty log message * ca parents: 2216 diff changeset	2075
93426020ceed * empty log message * ca parents: 2216 diff changeset	2076	self removeAll.
93426020ceed * empty log message * ca parents: 2216 diff changeset	2077
93426020ceed * empty log message * ca parents: 2216 diff changeset	2078	(menu := aMenu) notNil ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	2079	(aMenu isCollection) ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	2080	menu := Menu new.
93426020ceed * empty log message * ca parents: 2216 diff changeset	2081	menu fromLiteralArrayEncoding:aMenu.
93426020ceed * empty log message * ca parents: 2216 diff changeset	2082	] ifFalse:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	2083	menu receiver notNil ifTrue:[receiver := menu receiver]
93426020ceed * empty log message * ca parents: 2216 diff changeset	2084	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	2085	(newItems := menu menuItems) size > 0 ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	2086	items := newItems collect:[:ni \|
93426020ceed * empty log message * ca parents: 2216 diff changeset	2087	\|i\|
93426020ceed * empty log message * ca parents: 2216 diff changeset	2088
93426020ceed * empty log message * ca parents: 2216 diff changeset	2089	i:= Item in:self.
93426020ceed * empty log message * ca parents: 2216 diff changeset	2090	i menuItem:ni.
93426020ceed * empty log message * ca parents: 2216 diff changeset	2091	i.
93426020ceed * empty log message * ca parents: 2216 diff changeset	2092	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	2093	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	2094	self groupSizes:(menu groupSizes).
93426020ceed * empty log message * ca parents: 2216 diff changeset	2095	]
1063 08b7ca464437 dont show accelerators for horizontal layouts Claus Gittinger <cg@exept.de> parents: 1054 diff changeset	2096	]
08b7ca464437 dont show accelerators for horizontal layouts Claus Gittinger <cg@exept.de> parents: 1054 diff changeset	2097
08b7ca464437 dont show accelerators for horizontal layouts Claus Gittinger <cg@exept.de> parents: 1054 diff changeset	2098	"Modified: / 8.8.1998 / 02:05:04 / cg"
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2099	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	2100
dce33f8bb806 intitial checkin ca parents: diff changeset	2101	!MenuPanel methodsFor:'drawing'!
dce33f8bb806 intitial checkin ca parents: diff changeset	2102
dce33f8bb806 intitial checkin ca parents: diff changeset	2103	disabledRedrawDo:aBlock
dce33f8bb806 intitial checkin ca parents: diff changeset	2104	"evaluate a block without redrawing within the block; after processing
dce33f8bb806 intitial checkin ca parents: diff changeset	2105	of the block a redraw might be performed
dce33f8bb806 intitial checkin ca parents: diff changeset	2106	"
dce33f8bb806 intitial checkin ca parents: diff changeset	2107	\|state\|
dce33f8bb806 intitial checkin ca parents: diff changeset	2108
dce33f8bb806 intitial checkin ca parents: diff changeset	2109	state := mustRearrange.
dce33f8bb806 intitial checkin ca parents: diff changeset	2110	mustRearrange := true.
dce33f8bb806 intitial checkin ca parents: diff changeset	2111	aBlock value.
dce33f8bb806 intitial checkin ca parents: diff changeset	2112	mustRearrange := state.
dce33f8bb806 intitial checkin ca parents: diff changeset	2113	self mustRearrange
dce33f8bb806 intitial checkin ca parents: diff changeset	2114	!
dce33f8bb806 intitial checkin ca parents: diff changeset	2115
1690 38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2116	drawButtonEdgesFor:anItem level:aLevel
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2117	\|layout\|
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2118
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2119	aLevel ~~ 0 ifTrue:[
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2120	layout := anItem layout.
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2121
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2122	styleSheet is3D ifFalse:[
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2123	self displayRectangle:layout.
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2124	] ifTrue:[
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2125	self drawEdgesForX:(layout left)
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2126	y:(layout top)
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2127	width:(layout width)
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2128	height:(layout height)
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2129	level:aLevel
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	2130	shadow:(self buttonShadowColor)
93426020ceed * empty log message * ca parents: 2216 diff changeset	2131	light:(self buttonLightColor)
93426020ceed * empty log message * ca parents: 2216 diff changeset	2132	halfShadow:(self buttonHalfShadowColor)
93426020ceed * empty log message * ca parents: 2216 diff changeset	2133	halfLight:(self buttonHalfLightColor)
93426020ceed * empty log message * ca parents: 2216 diff changeset	2134	style:(self buttonEdgeStyle)
1690 38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2135	]
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2136	]
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2137	!
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2138
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2139	drawItemsX:x y:y width:w height:h
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2140	"redraw items and groups in a damage
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2141	"
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2142	\|isVertical item layout prevClip
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2143	x1 "{ Class:SmallInteger }"
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2144	x2 "{ Class:SmallInteger }"
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2145	y1 "{ Class:SmallInteger }"
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2146	y2 "{ Class:SmallInteger }"
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2147	start "{ Class:SmallInteger }"
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2148	stop "{ Class:SmallInteger }"
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2149	size "{ Class:SmallInteger }"
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2150	groupDivInset "{ Class:SmallInteger }"
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2151	\|
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2152
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2153	size := items size.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2154	isVertical := self verticalLayout.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2155
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2156	isVertical ifTrue:[
2064 0e0d1fe431fb checkin from browser Claus Gittinger <cg@exept.de> parents: 2063 diff changeset	2157	start := items findFirst:[:el\| \|l\| l := el layout. l notNil and:[l bottom > y]].
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2158	start == 0 ifTrue:[ ^ self ].
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2159	y1 := y + h.
2064 0e0d1fe431fb checkin from browser Claus Gittinger <cg@exept.de> parents: 2063 diff changeset	2160	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	2161	startingAt:(start + 1).
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2162	] ifFalse:[
2064 0e0d1fe431fb checkin from browser Claus Gittinger <cg@exept.de> parents: 2063 diff changeset	2163	start := items findFirst:[:el\| \|l\| l := el layout. l notNil and:[l right > x ]].
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2164	start == 0 ifTrue:[ ^ self ].
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2165	x1 := x + w.
2064 0e0d1fe431fb checkin from browser Claus Gittinger <cg@exept.de> parents: 2063 diff changeset	2166	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	2167	startingAt:(start + 1).
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2168	].
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2169	stop == 0 ifTrue:[stop := size] ifFalse:[stop := stop - 1].
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2170
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2171	(groupSizes size ~~ 0 and:[self showGroupDivider]) ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	2172	groupDivInset := self groupDividerSize // 2.
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2173
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2174	groupDivInset ~~ 0 ifTrue:[
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2175	(start ~~ 1 and:[self hasGroupDividerAt:(start-1)]) ifTrue:[
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2176	start := start - 1
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2177	]
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2178	].
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2179	] ifFalse:[
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2180	groupDivInset := 0
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2181	].
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2182
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2183	prevClip := clipRect.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2184	self clippingRectangle:(Rectangle left:x top:y width:w height:h).
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2185
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2186	start to:stop do:[:i\|
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2187	item := items at:i.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2188	item redraw.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2189
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2190	(groupDivInset ~~ 0 and:[i ~~ size and:[self hasGroupDividerAt:i]]) ifTrue:[
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2191	layout := item layout.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2192
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2193	isVertical ifTrue:[
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2194	x1 := layout left.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2195	x2 := layout right.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2196	y1 := layout bottom + groupDivInset.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2197	y2 := y1.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2198	] ifFalse:[
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2199	y1 := layout top.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2200	y2 := layout bottom.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2201	x1 := layout right + groupDivInset.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2202	x2 := x1.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2203	].
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2204	self paint:shadowColor.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2205	self displayLineFromX:x1 y:y1 toX:x2 y:y2.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2206	self paint:lightColor.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2207
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2208	isVertical ifTrue:[y1 := y1 + 1. y2 := y1 ]
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2209	ifFalse:[x1 := x1 + 1. x2 := x1 ].
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2210
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2211	self displayLineFromX:x1 y:y1 toX:x2 y:y2
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2212	]
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2213	].
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2214	self clippingRectangle:prevClip.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2215	!
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2216
1690 38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2217	drawLabelEdgeFor:anItem selected:isSelected
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2218	\|level layout\|
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2219
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2220	isSelected ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	2221	level := styleSheet at:#'menu.hilightLevel' default:0.
1690 38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2222	] ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	2223	anItem == enteredItem ifTrue:[ level := self enteredLevel ]
93426020ceed * empty log message * ca parents: 2216 diff changeset	2224	ifFalse:[ level := 0 ]
1690 38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2225	].
1081 fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	2226
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	2227	level ~~ 0 ifTrue:[
1690 38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2228	layout := anItem layout.
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2229
1691 8e1a9d7a298e bugfix in drawLableEdge... ca parents: 1690 diff changeset	2230	self drawEdgesForX:(layout left)
8e1a9d7a298e bugfix in drawLableEdge... ca parents: 1690 diff changeset	2231	y:(layout top)
8e1a9d7a298e bugfix in drawLableEdge... ca parents: 1690 diff changeset	2232	width:(layout width)
8e1a9d7a298e bugfix in drawLableEdge... ca parents: 1690 diff changeset	2233	height:(layout height)
1690 38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2234	level:level
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2235	].
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2236	!
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2237
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2238	drawScrollerAt:aDirection bounds:bounds
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2239	"draw a scroller
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2240	"
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2241	\|scrolling icon level x y w h\|
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2242
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2243	x := bounds left.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2244	y := bounds top.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2245	w := bounds width.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2246	h := bounds height.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2247
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	2248	scrolling := self scrollActivity.
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2249
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2250	(scrolling activeMenu == self and:[scrolling direction == aDirection]) ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	2251	level := -2
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2252	] ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	2253	level := 1
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2254	].
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2255
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2256	level ~~ 0 ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	2257	self drawEdgesForX:x y:y width:w height:h level:level.
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2258	].
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2259	icon := scrolling iconAt:aDirection on:self.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2260
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2261	icon displayOn:self x:(x + (w - icon width // 2))
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	2262	y:(y + (h - icon height // 2)).
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2263	!
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2264
1690 38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2265	invalidateItem:anItem repairNow:aBool
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2266	"an item changed; invalidate the items layout
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2267	"
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2268	\|layout\|
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2269
2073 26c30a04413d do not invalidate if sensor is nil Claus Gittinger <cg@exept.de> parents: 2069 diff changeset	2270	self sensor isNil ifTrue:[^ self].
26c30a04413d do not invalidate if sensor is nil Claus Gittinger <cg@exept.de> parents: 2069 diff changeset	2271
1690 38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2272	(mustRearrange not and:[shown]) ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	2273	layout := anItem layout.
93426020ceed * empty log message * ca parents: 2216 diff changeset	2274
93426020ceed * empty log message * ca parents: 2216 diff changeset	2275	(layout bottom > margin and:[layout top < (height - margin)]) ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	2276	self invalidate:(layout copy insetBy:-1) repairNow:aBool
93426020ceed * empty log message * ca parents: 2216 diff changeset	2277	]
1728 fc0bd6482feb kludge redraw bug fix Claus Gittinger <cg@exept.de> parents: 1727 diff changeset	2278	].
fc0bd6482feb kludge redraw bug fix Claus Gittinger <cg@exept.de> parents: 1727 diff changeset	2279
fc0bd6482feb kludge redraw bug fix Claus Gittinger <cg@exept.de> parents: 1727 diff changeset	2280	"Modified: / 29.2.2000 / 11:28:59 / cg"
746 bd252bbe276f better drawing routine for button behavior tz parents: 739 diff changeset	2281	!
bd252bbe276f better drawing routine for button behavior tz parents: 739 diff changeset	2282
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2283	mustRearrange
910 5c9592e782fd always repairNow (to make change visible immediately) Claus Gittinger <cg@exept.de> parents: 898 diff changeset	2284	"force rearrange (i.e. set the rearrange flag)
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2285	"
2080 f37673e44158 Fix rearrangeItem stuff Stefan Vogel <sv@exept.de> parents: 2079 diff changeset	2286	mustRearrange ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	2287	mustRearrange := true.
93426020ceed * empty log message * ca parents: 2216 diff changeset	2288	shown ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	2289	self invalidate "/ RepairNow:true
93426020ceed * empty log message * ca parents: 2216 diff changeset	2290	]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2291	]
590 3177528b5f95 checkin from browser Claus Gittinger <cg@exept.de> parents: 587 diff changeset	2292
911 6b1ad8b039c5 no, repairNow should not be needed here Claus Gittinger <cg@exept.de> parents: 910 diff changeset	2293	"Modified: / 6.6.1998 / 19:51:07 / cg"
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2294	!
dce33f8bb806 intitial checkin ca parents: diff changeset	2295
710 4453e463ff16 add new feature: ca parents: 709 diff changeset	2296	rearrangeGroups
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2297	"implements the groupIdentifier #right in a horizontal menu
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2298	"
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2299	\|layout point
710 4453e463ff16 add new feature: ca parents: 709 diff changeset	2300	dltX "{ Class:SmallInteger }"
4453e463ff16 add new feature: ca parents: 709 diff changeset	2301	start "{ Class:SmallInteger }"
4453e463ff16 add new feature: ca parents: 709 diff changeset	2302	\|
4453e463ff16 add new feature: ca parents: 709 diff changeset	2303
4453e463ff16 add new feature: ca parents: 709 diff changeset	2304	(self isPopUpView or:[self verticalLayout]) ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	2305	^ self
710 4453e463ff16 add new feature: ca parents: 709 diff changeset	2306	].
4453e463ff16 add new feature: ca parents: 709 diff changeset	2307
4453e463ff16 add new feature: ca parents: 709 diff changeset	2308	layout := items last layout.
4453e463ff16 add new feature: ca parents: 709 diff changeset	2309
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2310	(dltX := width - margin - layout right) <= 0 ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	2311	^ self "/ no free space
710 4453e463ff16 add new feature: ca parents: 709 diff changeset	2312	].
4453e463ff16 add new feature: ca parents: 709 diff changeset	2313	start := items findFirst:[:anItem\| anItem startGroup == #right ].
4453e463ff16 add new feature: ca parents: 709 diff changeset	2314
4453e463ff16 add new feature: ca parents: 709 diff changeset	2315	start == 0 ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	2316	^ self "/ no item detected
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2317	].
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2318	point := dltX @ 0.
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2319
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2320	"/ move items layout to right
710 4453e463ff16 add new feature: ca parents: 709 diff changeset	2321
4453e463ff16 add new feature: ca parents: 709 diff changeset	2322	items from:start do:[:anItem\|
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	2323	anItem isVisible ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	2324	anItem layout moveBy:point.
93426020ceed * empty log message * ca parents: 2216 diff changeset	2325	]
710 4453e463ff16 add new feature: ca parents: 709 diff changeset	2326	].
4453e463ff16 add new feature: ca parents: 709 diff changeset	2327	!
4453e463ff16 add new feature: ca parents: 709 diff changeset	2328
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2329	rearrangeItems
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2330	"recompute the layout of each item
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2331	!!!!!! changes have influence on method #preferredExtentOfItems !!!!!!
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2332	"
1791 bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	2333	\|isVertical extent isPopUpMenu
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	2334	x "{ Class:SmallInteger }"
93426020ceed * empty log message * ca parents: 2216 diff changeset	2335	y "{ Class:SmallInteger }"
93426020ceed * empty log message * ca parents: 2216 diff changeset	2336	x0 "{ Class:SmallInteger }"
93426020ceed * empty log message * ca parents: 2216 diff changeset	2337	y0 "{ Class:SmallInteger }"
93426020ceed * empty log message * ca parents: 2216 diff changeset	2338	x1 "{ Class:SmallInteger }"
93426020ceed * empty log message * ca parents: 2216 diff changeset	2339	y1 "{ Class:SmallInteger }"
93426020ceed * empty log message * ca parents: 2216 diff changeset	2340	size "{ Class:SmallInteger }"
93426020ceed * empty log message * ca parents: 2216 diff changeset	2341	insetX "{ Class:SmallInteger }"
93426020ceed * empty log message * ca parents: 2216 diff changeset	2342	insetY "{ Class:SmallInteger }"
93426020ceed * empty log message * ca parents: 2216 diff changeset	2343	labelInsetX "{ Class:SmallInteger }"
93426020ceed * empty log message * ca parents: 2216 diff changeset	2344	labelInsetY "{ Class:SmallInteger }"
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	2345	buttonInsetX "{ Class:SmallInteger }"
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	2346	buttonInsetY "{ Class:SmallInteger }"
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	2347	itemMargin "{ Class:SmallInteger }"
93426020ceed * empty log message * ca parents: 2216 diff changeset	2348	itemSpace "{ Class:SmallInteger }"
93426020ceed * empty log message * ca parents: 2216 diff changeset	2349	groupDividerSize "{ Class:SmallInteger }"
710 4453e463ff16 add new feature: ca parents: 709 diff changeset	2350	\|
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2351	(mustRearrange and:[(size := items size) ~~ 0]) ifFalse:[
1478 38f08dec8e34 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	2352	mustRearrange := false.
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2353	^ self
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2354	].
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	2355
2080 f37673e44158 Fix rearrangeItem stuff Stefan Vogel <sv@exept.de> parents: 2079 diff changeset	2356	"/ DON'T SET THIS!!
f37673e44158 Fix rearrangeItem stuff Stefan Vogel <sv@exept.de> parents: 2079 diff changeset	2357	"/ item layout: below of first item -> item invalidate
f37673e44158 Fix rearrangeItem stuff Stefan Vogel <sv@exept.de> parents: 2079 diff changeset	2358	"/ -> menuPanel invalidateItem:repairDamage:
f37673e44158 Fix rearrangeItem stuff Stefan Vogel <sv@exept.de> parents: 2079 diff changeset	2359	"/ -> invalidate:rapairDamage:
f37673e44158 Fix rearrangeItem stuff Stefan Vogel <sv@exept.de> parents: 2079 diff changeset	2360	"/ -> redrawX:y:width:height:
f37673e44158 Fix rearrangeItem stuff Stefan Vogel <sv@exept.de> parents: 2079 diff changeset	2361	"/ tries to get uninitialized layout from second item.
f37673e44158 Fix rearrangeItem stuff Stefan Vogel <sv@exept.de> parents: 2079 diff changeset	2362	"/ This happens in a modal debugger!!
f37673e44158 Fix rearrangeItem stuff Stefan Vogel <sv@exept.de> parents: 2079 diff changeset	2363	"/ mustRearrange := false.
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	2364	isVertical := self verticalLayout.
93426020ceed * empty log message * ca parents: 2216 diff changeset	2365	itemSpace := self itemSpace.
93426020ceed * empty log message * ca parents: 2216 diff changeset	2366	groupDividerSize := self groupDividerSize.
93426020ceed * empty log message * ca parents: 2216 diff changeset	2367	buttonInsetX := self buttonInsetX.
93426020ceed * empty log message * ca parents: 2216 diff changeset	2368	buttonInsetY := self buttonInsetY.
93426020ceed * empty log message * ca parents: 2216 diff changeset	2369	isPopUpMenu := self isPopUpView.
1791 bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	2370
bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	2371	isPopUpMenu ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	2372	labelInsetX := labelInsetY := self enteredLevel abs.
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2373	] ifTrue:[
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	2374	labelInsetX := labelInsetY := 0
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2375	].
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2376
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2377	(isPopUpMenu or:[explicitExtent ~~ true]) ifTrue:[ \|savExt maxExt\|
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2378	savExt := extent := self preferredExtent copy.
1478 38f08dec8e34 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	2379
1791 bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	2380	isPopUpMenu ifFalse:[
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2381	isVertical ifTrue:[extent y:1.0] ifFalse:[extent x:1.0]
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2382	] ifTrue:[
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2383	savExt := extent copy.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2384	maxExt := self maxExtent.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2385
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2386	isVertical ifTrue:[
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2387	extent y:(extent y min:(maxExt y))
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2388	] ifFalse:[
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2389	extent x:(extent x min:(maxExt x))
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2390	]
1478 38f08dec8e34 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	2391	].
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2392	self extent:extent.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2393	extent := savExt.
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2394	] ifFalse:[
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2395	extent := self computeExtent
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2396	].
1082 382324ddce3f support and additional buttonSpacing (for normal and win95 styles) Claus Gittinger <cg@exept.de> parents: 1081 diff changeset	2397
1093 7cb44303b016 margin fixes Claus Gittinger <cg@exept.de> parents: 1090 diff changeset	2398	x := y := margin.
7cb44303b016 margin fixes Claus Gittinger <cg@exept.de> parents: 1090 diff changeset	2399
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2400	isVertical ifFalse:[
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2401	y0 := margin.
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2402	y1 := extent y - margin.
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2403
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2404	items keysAndValuesDo:[:anIndex :el\|
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2405	el isVisible ifFalse:[
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2406	el layout:(Rectangle left:x top:y0 right:x bottom:y1)
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2407	] ifTrue:[
1478 38f08dec8e34 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	2408	el isButton ifTrue:[
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	2409	insetX := buttonInsetX.
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	2410	insetY := buttonInsetY.
2062 31ba9af25394 checkin from browser Claus Gittinger <cg@exept.de> parents: 2061 diff changeset	2411	] ifFalse:[
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	2412	insetX := labelInsetX.
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	2413	insetY := labelInsetY.
1478 38f08dec8e34 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	2414	].
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	2415	x0 := x + insetX.
2171 90a7393eb53c * empty log message * Claus Gittinger <cg@exept.de> parents: 2170 diff changeset	2416	x1 := x0 + (el preferredExtent x).
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	2417	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	2418	x := x1 + insetX.
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2419
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2420	size ~~ anIndex ifTrue:[
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2421	(self hasGroupDividerAt:anIndex) ifTrue:[
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2422	x := x + groupDividerSize
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2423	] ifFalse:[
1723 f633725a0ace use itemSpace only for horizontal menus and between labeled items ca parents: 1719 diff changeset	2424	el isLabeledItem ifTrue:[
f633725a0ace use itemSpace only for horizontal menus and between labeled items ca parents: 1719 diff changeset	2425	x := x + itemSpace
f633725a0ace use itemSpace only for horizontal menus and between labeled items ca parents: 1719 diff changeset	2426	]
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2427	]
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2428	]
1478 38f08dec8e34 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	2429	].
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2430	].
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2431	] ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	2432	itemMargin := self itemMargin.
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2433	x0 := margin.
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	2434	x1 := extent x - margin - itemMargin. "/ -1
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2435
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2436	items keysAndValuesDo:[:anIndex :el\|
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2437	el isVisible ifFalse:[
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2438	el layout:(Rectangle left:x0 top:y right:x1 bottom:y)
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2439	] ifTrue:[
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2440	el isButton ifTrue:[
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	2441	insetX := buttonInsetX.
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	2442	insetY := buttonInsetY.
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2443	] ifFalse:[
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	2444	insetX := labelInsetX.
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	2445	insetY := labelInsetY.
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2446	].
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	2447	y0 := y + insetY.
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2448	y1 := y0 + el preferredExtent y.
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	2449	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	2450	y := y1 + insetY.
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2451
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2452	size ~~ anIndex ifTrue:[
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2453	(self hasGroupDividerAt:anIndex) ifTrue:[
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2454	y := y + groupDividerSize
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2455	]
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2456	]
1478 38f08dec8e34 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	2457	]
38f08dec8e34 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	2458	]
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2459	].
710 4453e463ff16 add new feature: ca parents: 709 diff changeset	2460	self rearrangeGroups.
2048 ba472f3f46c7 code cleanup Claus Gittinger <cg@exept.de> parents: 2047 diff changeset	2461	selection notNil ifTrue:[self makeItemVisible:selection].
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2462	mustRearrange := false.
2048 ba472f3f46c7 code cleanup Claus Gittinger <cg@exept.de> parents: 2047 diff changeset	2463
ba472f3f46c7 code cleanup Claus Gittinger <cg@exept.de> parents: 2047 diff changeset	2464	"Modified: / 13.11.2001 / 20:17:21 / cg"
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2465	!
dce33f8bb806 intitial checkin ca parents: diff changeset	2466
1217 c6a4c536aa8c care for items which change visibility via Claus Gittinger <cg@exept.de> parents: 1212 diff changeset	2467	rearrangeItemsIfItemVisibilityChanged
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2468	"check for items which can change its visibility;
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2469	if at least one item exists, rearrange all items
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2470	"
1464 3070de4c8b88 checkin from browser Claus Gittinger <cg@exept.de> parents: 1459 diff changeset	2471	items isNil ifTrue:[^ self].
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2472
1217 c6a4c536aa8c care for items which change visibility via Claus Gittinger <cg@exept.de> parents: 1212 diff changeset	2473	items do:[:item \|
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	2474	item canChangeVisibility ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	2475	mustRearrange := true.
93426020ceed * empty log message * ca parents: 2216 diff changeset	2476	self rearrangeItems.
93426020ceed * empty log message * ca parents: 2216 diff changeset	2477	^ self
93426020ceed * empty log message * ca parents: 2216 diff changeset	2478	].
1217 c6a4c536aa8c care for items which change visibility via Claus Gittinger <cg@exept.de> parents: 1212 diff changeset	2479	]
c6a4c536aa8c care for items which change visibility via Claus Gittinger <cg@exept.de> parents: 1212 diff changeset	2480	!
c6a4c536aa8c care for items which change visibility via Claus Gittinger <cg@exept.de> parents: 1212 diff changeset	2481
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2482	redrawX:x y:y width:w height:h
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2483	"redraw a damage
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2484	"
2052 61367c7a47aa * empty log message * Claus Gittinger <cg@exept.de> parents: 2051 diff changeset	2485	\|y0 y1 x0 x1 bounds mustDrawPrevScroller mustDrawNextScroller\|
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2486
710 4453e463ff16 add new feature: ca parents: 709 diff changeset	2487	(shown and:[w ~~ 0]) ifFalse:[^ self].
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2488
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2489	mustRearrange ifTrue:[
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2490	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	2491	self rearrangeItems.
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2492	^ self invalidate
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2493	].
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	2494	self paint:(self viewBackground).
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2495	self clearRectangleX:x y:y width:w height:h.
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2496
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2497	items size == 0 ifTrue:[
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2498	^ self
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2499	].
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2500	y0 := y.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2501	y1 := y + h.
2018 2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	2502	x0 := x.
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	2503	x1 := x + w.
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2504
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2505	self hasScrollers ifTrue:[
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2506	(self hasScrollerAt:#PREV) ifTrue:[
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2507	bounds := self scrollerBoundsAt:#PREV.
2052 61367c7a47aa * empty log message * Claus Gittinger <cg@exept.de> parents: 2051 diff changeset	2508	mustDrawPrevScroller := false.
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2509
2018 2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	2510	self verticalLayout ifTrue:[
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	2511	bounds bottom > y ifTrue:[
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	2512	y0 := bounds bottom.
2052 61367c7a47aa * empty log message * Claus Gittinger <cg@exept.de> parents: 2051 diff changeset	2513	mustDrawPrevScroller := true.
2018 2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	2514	].
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	2515	] ifFalse:[
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	2516	bounds right > x ifTrue:[
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	2517	x0 := bounds right.
2052 61367c7a47aa * empty log message * Claus Gittinger <cg@exept.de> parents: 2051 diff changeset	2518	mustDrawPrevScroller := true.
2018 2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	2519	].
2052 61367c7a47aa * empty log message * Claus Gittinger <cg@exept.de> parents: 2051 diff changeset	2520	].
61367c7a47aa * empty log message * Claus Gittinger <cg@exept.de> parents: 2051 diff changeset	2521	mustDrawPrevScroller ifTrue:[
61367c7a47aa * empty log message * Claus Gittinger <cg@exept.de> parents: 2051 diff changeset	2522	self drawScrollerAt:#PREV bounds:bounds.
61367c7a47aa * empty log message * Claus Gittinger <cg@exept.de> parents: 2051 diff changeset	2523	].
1387 ad7a920fdf61 less flicker by using a clipRect in redraw Claus Gittinger <cg@exept.de> parents: 1382 diff changeset	2524	].
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2525
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2526	(self hasScrollerAt:#NEXT) ifTrue:[
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2527	bounds := self scrollerBoundsAt:#NEXT.
2052 61367c7a47aa * empty log message * Claus Gittinger <cg@exept.de> parents: 2051 diff changeset	2528	mustDrawNextScroller := false.
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2529
2018 2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	2530	self verticalLayout ifTrue:[
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	2531	bounds top < y1 ifTrue:[
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	2532	y1 := bounds top.
2052 61367c7a47aa * empty log message * Claus Gittinger <cg@exept.de> parents: 2051 diff changeset	2533	mustDrawNextScroller := true.
2018 2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	2534	]
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	2535	] ifFalse:[
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	2536	bounds left < x1 ifTrue:[
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	2537	x1 := bounds left.
2052 61367c7a47aa * empty log message * Claus Gittinger <cg@exept.de> parents: 2051 diff changeset	2538	mustDrawNextScroller := true.
2018 2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	2539	]
2052 61367c7a47aa * empty log message * Claus Gittinger <cg@exept.de> parents: 2051 diff changeset	2540	].
61367c7a47aa * empty log message * Claus Gittinger <cg@exept.de> parents: 2051 diff changeset	2541	mustDrawNextScroller ifTrue:[
61367c7a47aa * empty log message * Claus Gittinger <cg@exept.de> parents: 2051 diff changeset	2542	self drawScrollerAt:#NEXT bounds:bounds.
61367c7a47aa * empty log message * Claus Gittinger <cg@exept.de> parents: 2051 diff changeset	2543	].
1387 ad7a920fdf61 less flicker by using a clipRect in redraw Claus Gittinger <cg@exept.de> parents: 1382 diff changeset	2544	]
ad7a920fdf61 less flicker by using a clipRect in redraw Claus Gittinger <cg@exept.de> parents: 1382 diff changeset	2545	].
2018 2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	2546	(y1 > y0 and:[x1 > x0]) ifTrue:[
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	2547	self drawItemsX:x0 y:y0 width:(x1 - x0) height:(y1 - y0)
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2548	].
2052 61367c7a47aa * empty log message * Claus Gittinger <cg@exept.de> parents: 2051 diff changeset	2549
61367c7a47aa * empty log message * Claus Gittinger <cg@exept.de> parents: 2051 diff changeset	2550	"Modified: / 15.11.2001 / 20:57:32 / cg"
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2551	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	2552
dce33f8bb806 intitial checkin ca parents: diff changeset	2553	!MenuPanel methodsFor:'enumerting & searching'!
dce33f8bb806 intitial checkin ca parents: diff changeset	2554
dce33f8bb806 intitial checkin ca parents: diff changeset	2555	collect:aOneArgBlock
dce33f8bb806 intitial checkin ca parents: diff changeset	2556	"evaluate the argument, aOneArgBlock for every item in the menuPanel
dce33f8bb806 intitial checkin ca parents: diff changeset	2557	and return a collection of the results
dce33f8bb806 intitial checkin ca parents: diff changeset	2558	"
dce33f8bb806 intitial checkin ca parents: diff changeset	2559	items notNil ifTrue:[^ items collect:aOneArgBlock ].
2059 c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	2560	^ nil
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2561	!
dce33f8bb806 intitial checkin ca parents: diff changeset	2562
dce33f8bb806 intitial checkin ca parents: diff changeset	2563	do:aOneArgBlock
dce33f8bb806 intitial checkin ca parents: diff changeset	2564	"evaluate the argument, aOneArgBlock for every item in the menuPanel.
dce33f8bb806 intitial checkin ca parents: diff changeset	2565	"
dce33f8bb806 intitial checkin ca parents: diff changeset	2566	items notNil ifTrue:[ items do:aOneArgBlock ].
dce33f8bb806 intitial checkin ca parents: diff changeset	2567
dce33f8bb806 intitial checkin ca parents: diff changeset	2568	!
dce33f8bb806 intitial checkin ca parents: diff changeset	2569
dce33f8bb806 intitial checkin ca parents: diff changeset	2570	findFirst:aOneArgBlock
dce33f8bb806 intitial checkin ca parents: diff changeset	2571	"find the first item, for which evaluation of the argument, aOneArgBlock
dce33f8bb806 intitial checkin ca parents: diff changeset	2572	returns true; return its index or 0 if none detected.
dce33f8bb806 intitial checkin ca parents: diff changeset	2573	"
dce33f8bb806 intitial checkin ca parents: diff changeset	2574	items notNil ifTrue:[ ^ items findFirst:aOneArgBlock ].
dce33f8bb806 intitial checkin ca parents: diff changeset	2575	^ 0
dce33f8bb806 intitial checkin ca parents: diff changeset	2576
dce33f8bb806 intitial checkin ca parents: diff changeset	2577	!
dce33f8bb806 intitial checkin ca parents: diff changeset	2578
dce33f8bb806 intitial checkin ca parents: diff changeset	2579	findLast:aOneArgBlock
dce33f8bb806 intitial checkin ca parents: diff changeset	2580	"find the last item, for which evaluation of the argument, aOneArgBlock
dce33f8bb806 intitial checkin ca parents: diff changeset	2581	returns true; return its index or 0 if none detected.
dce33f8bb806 intitial checkin ca parents: diff changeset	2582	"
dce33f8bb806 intitial checkin ca parents: diff changeset	2583	items notNil ifTrue:[ ^ items findLast:aOneArgBlock ].
dce33f8bb806 intitial checkin ca parents: diff changeset	2584	^ 0
dce33f8bb806 intitial checkin ca parents: diff changeset	2585
dce33f8bb806 intitial checkin ca parents: diff changeset	2586	!
dce33f8bb806 intitial checkin ca parents: diff changeset	2587
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2588	indexOf:something
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2589	"returns index of an item assigned to an index, nameKey, textLabel or value if symbol.
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2590	If no item match 0 is returned. No range checks are performed on a number argument
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2591	"
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2592	\|i v\|
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2593
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2594	something isNumber ifTrue:[ ^ something ].
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2595	something isNil ifTrue:[ ^ 0 ].
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2596
1218 6ce43fcb2603 code cleanup Claus Gittinger <cg@exept.de> parents: 1217 diff changeset	2597	i := self findFirst:[:el \| (el nameKey = something) or: [el = something]].
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2598
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2599	i ~~ 0 ifTrue:[
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	2600	^ i
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2601	].
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2602
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2603	something isSymbol ifTrue:[
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	2604	i := self findFirst:[:el\|
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	2605	v := el value.
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	2606	v isSymbol and:[v == something]
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	2607	].
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	2608	i ~~ 0 ifTrue:[
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	2609	^ i
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	2610	]
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2611	].
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2612
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2613	(something respondsTo:#string) ifTrue:[
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	2614	v := something string.
1218 6ce43fcb2603 code cleanup Claus Gittinger <cg@exept.de> parents: 1217 diff changeset	2615	^ self findFirst:[:el \| el textLabel = v].
6ce43fcb2603 code cleanup Claus Gittinger <cg@exept.de> parents: 1217 diff changeset	2616	].
6ce43fcb2603 code cleanup Claus Gittinger <cg@exept.de> parents: 1217 diff changeset	2617	^ 0
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2618	!
dce33f8bb806 intitial checkin ca parents: diff changeset	2619
706 d716edbdbe47 show separators bug cleaned tz parents: 689 diff changeset	2620	indexOfItem:anItem
d716edbdbe47 show separators bug cleaned tz parents: 689 diff changeset	2621	"returns the index of the item or 0
d716edbdbe47 show separators bug cleaned tz parents: 689 diff changeset	2622	"
d716edbdbe47 show separators bug cleaned tz parents: 689 diff changeset	2623	^ items notNil ifTrue:[items identityIndexOf:anItem] ifFalse:[0]
d716edbdbe47 show separators bug cleaned tz parents: 689 diff changeset	2624	!
d716edbdbe47 show separators bug cleaned tz parents: 689 diff changeset	2625
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2626	keysAndValuesDo:aTwoArgBlock
dce33f8bb806 intitial checkin ca parents: diff changeset	2627	"evaluate the argument, aTwoArgBlock for every item in the menuPanel.
dce33f8bb806 intitial checkin ca parents: diff changeset	2628	"
dce33f8bb806 intitial checkin ca parents: diff changeset	2629	items notNil ifTrue:[ items keysAndValuesDo:aTwoArgBlock ].
dce33f8bb806 intitial checkin ca parents: diff changeset	2630
dce33f8bb806 intitial checkin ca parents: diff changeset	2631	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	2632
dce33f8bb806 intitial checkin ca parents: diff changeset	2633	!MenuPanel methodsFor:'event handling'!
dce33f8bb806 intitial checkin ca parents: diff changeset	2634
dce33f8bb806 intitial checkin ca parents: diff changeset	2635	buttonMotion:state x:x y:y
dce33f8bb806 intitial checkin ca parents: diff changeset	2636	"open or close the corresponding submenus
dce33f8bb806 intitial checkin ca parents: diff changeset	2637	"
2046 012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	2638	\|menue motionPoint translatedPoint sensor\|
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2639
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	2640	self scrollActivity isActive ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	2641	^ self
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2642	].
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2643
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2644	sensor := self sensor.
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2645
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2646	(sensor isNil or:[sensor hasButtonMotionEventFor:nil]) ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	2647	^ self
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2648	].
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2649	menue := self detectGrabMenu.
1841 5d01716cc37c implement: triggerOnDown ca parents: 1836 diff changeset	2650
2046 012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	2651	motionPoint := x@y.
012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	2652	translatedPoint := menue translateGrabPoint:motionPoint.
2048 ba472f3f46c7 code cleanup Claus Gittinger <cg@exept.de> parents: 2047 diff changeset	2653	menue handleButtonMotion:state atPoint:translatedPoint.
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2654
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2655	(self isPopUpView or:[sensor anyButtonPressed]) ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	2656	^ self
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2657	].
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2658
1786 f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	2659	(selection notNil and:[selection visibleSubmenu isNil]) ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	2660	"/ selection on grabView withou a submenu (Button ...); check whether moving out
93426020ceed * empty log message * ca parents: 2216 diff changeset	2661	(self containsPoint:motionPoint) ifFalse:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	2662	^ self accept:nil
93426020ceed * empty log message * ca parents: 2216 diff changeset	2663	]
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2664	].
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2665
2048 ba472f3f46c7 code cleanup Claus Gittinger <cg@exept.de> parents: 2047 diff changeset	2666	"Modified: / 13.11.2001 / 20:21:49 / cg"
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2667	!
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2668
2162 cdf83d988d83 ignore double clicks Claus Gittinger <cg@exept.de> parents: 2159 diff changeset	2669	buttonMultiPress:button x:x y:y
cdf83d988d83 ignore double clicks Claus Gittinger <cg@exept.de> parents: 2159 diff changeset	2670	"/ self buttonPress:button x:x y:y
cdf83d988d83 ignore double clicks Claus Gittinger <cg@exept.de> parents: 2159 diff changeset	2671	!
cdf83d988d83 ignore double clicks Claus Gittinger <cg@exept.de> parents: 2159 diff changeset	2672
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2673	buttonPress:button x:x y:y
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2674	"any button pressed; open or close the corresponding submenus
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2675	"
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2676	\|menu point\|
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2677
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	2678	self scrollActivity stop.
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2679	point := x@y.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2680	menu := self detectMenuAtGrabPoint:point.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2681
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2682	menu isNil ifTrue:[
2133 293dadf237ad hide on buttonRelease outside (instead of buttonPress outside) Claus Gittinger <cg@exept.de> parents: 2132 diff changeset	2683	"/ self accept:nil
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2684	] ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	2685	point := menu translateGrabPoint:point.
93426020ceed * empty log message * ca parents: 2216 diff changeset	2686	menu handleButtonPressAtPoint:point.
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2687	]
2046 012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	2688
012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	2689	"Modified: / 13.11.2001 / 14:12:32 / cg"
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2690	!
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2691
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2692	buttonRelease:button x:x y:y
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2693	"button release action; accept selection and close all views
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2694	"
2199 61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	2695	\|topMenu dstMenu item srcPoint dstPoint subm\|
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	2696
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	2697	topMenu := self topMenu.
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	2698	topMenu openDelayed:nil.
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2699
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	2700	self scrollActivity stop ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	2701	^ self
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2702	].
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2703
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2704	dstMenu := topMenu activeMenu.
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2705
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2706	( dstMenu selection notNil
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2707	or:[dstMenu isPopUpView not
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2708	or:[(OperatingSystem millisecondTimeDeltaBetween:(Time millisecondClockValue)
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	2709	and:(dstMenu mapTime)) > 400]]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2710	) ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	2711	srcPoint := x@y.
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2712
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	2713	( (dstMenu := self detectMenuAtGrabPoint:srcPoint) notNil
93426020ceed * empty log message * ca parents: 2216 diff changeset	2714	and:[(item := dstMenu selection) notNil]
93426020ceed * empty log message * ca parents: 2216 diff changeset	2715	) ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	2716	item visibleSubmenu notNil ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	2717	dstMenu selection:nil.
93426020ceed * empty log message * ca parents: 2216 diff changeset	2718
93426020ceed * empty log message * ca parents: 2216 diff changeset	2719	(selection isNil and:[self isPopUpView not]) ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	2720	self accept:nil
93426020ceed * empty log message * ca parents: 2216 diff changeset	2721	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	2722	^ self
93426020ceed * empty log message * ca parents: 2216 diff changeset	2723
93426020ceed * empty log message * ca parents: 2216 diff changeset	2724	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	2725	subm := item currentSubmenu.
93426020ceed * empty log message * ca parents: 2216 diff changeset	2726
93426020ceed * empty log message * ca parents: 2216 diff changeset	2727	subm ifNotNil:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	2728	subm shown ifTrue:[^ self].
93426020ceed * empty log message * ca parents: 2216 diff changeset	2729	"/ test whether any action is assigned to the menu
93426020ceed * empty log message * ca parents: 2216 diff changeset	2730	"/ if not ignorre accept
93426020ceed * empty log message * ca parents: 2216 diff changeset	2731	item hasDelayedMenu ifFalse:[^ self].
93426020ceed * empty log message * ca parents: 2216 diff changeset	2732	"/ handle action defined for the delayed menu
93426020ceed * empty log message * ca parents: 2216 diff changeset	2733	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	2734	dstPoint := dstMenu translateGrabPoint:srcPoint.
93426020ceed * empty log message * ca parents: 2216 diff changeset	2735
93426020ceed * empty log message * ca parents: 2216 diff changeset	2736	(dstMenu itemAtX:(dstPoint x) y:(dstPoint y)) == dstMenu selection ifFalse:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	2737	item := nil
93426020ceed * empty log message * ca parents: 2216 diff changeset	2738	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	2739	topMenu acceptItem:item inMenu:dstMenu.
93426020ceed * empty log message * ca parents: 2216 diff changeset	2740	^ self
93426020ceed * empty log message * ca parents: 2216 diff changeset	2741	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	2742
93426020ceed * empty log message * ca parents: 2216 diff changeset	2743	(selection notNil and:[dstMenu == self]) ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	2744	selection visibleSubmenu notNil ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	2745	^ self
93426020ceed * empty log message * ca parents: 2216 diff changeset	2746	]
93426020ceed * empty log message * ca parents: 2216 diff changeset	2747	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	2748	self accept:nil.
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2749	].
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2750	!
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2751
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2752	keyPress:key x:x y:y
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2753	"any key is pressed
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2754	"
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	2755	\|menu\|
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2756
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	2757	self scrollActivity isActive ifTrue:[
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2758	key ~~ #Escape ifTrue:[
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2759	^ self
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2760	].
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	2761	self scrollActivity stop
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2762	].
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2763
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2764	(key == #Tab
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2765	or:[key == #FocusNext
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2766	or:[key == #FocusPrevious]]) ifTrue:[
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2767	self accept:nil.
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2768	^ super keyPress:key x:x y:y
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2769	].
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2770
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2771	menu := self detectGrabMenu.
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2772
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2773	key == #Escape ifTrue:[
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2774	"/ must hide the active menu
1703 e127eff742bb bugfix: request focus ca parents: 1701 diff changeset	2775	((menu := menu superMenu) notNil and:[menu ~~ self]) ifTrue:[
e127eff742bb bugfix: request focus ca parents: 1701 diff changeset	2776	"/ hide active menu but keep the grab
e127eff742bb bugfix: request focus ca parents: 1701 diff changeset	2777	menu selection:nil
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2778	] ifFalse:[
1703 e127eff742bb bugfix: request focus ca parents: 1701 diff changeset	2779	"/ hide active menu and ungrab
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2780	self accept:nil
1786 f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	2781	]
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	2782	] ifFalse:[
1793 f76529768dd6 keyPress:... check for wrapped view ca parents: 1791 diff changeset	2783	menu isViewWrapper ifFalse:[
f76529768dd6 keyPress:... check for wrapped view ca parents: 1791 diff changeset	2784	self sensor compressKeyPressEventsWithKey:key.
f76529768dd6 keyPress:... check for wrapped view ca parents: 1791 diff changeset	2785
f76529768dd6 keyPress:... check for wrapped view ca parents: 1791 diff changeset	2786	menu handleKeyPress:key.
f76529768dd6 keyPress:... check for wrapped view ca parents: 1791 diff changeset	2787
1836 89a1b938c09e fixed returned value from non-performing menu Claus Gittinger <cg@exept.de> parents: 1832 diff changeset	2788	"/ selection isNil ifTrue:[
89a1b938c09e fixed returned value from non-performing menu Claus Gittinger <cg@exept.de> parents: 1832 diff changeset	2789	"/ self accept:nil keepValue:true
89a1b938c09e fixed returned value from non-performing menu Claus Gittinger <cg@exept.de> parents: 1832 diff changeset	2790	"/ ]
1786 f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	2791	]
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	2792	].
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2793	!
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2794
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2795	pointerLeave:state
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	2796	self scrollActivity isActive ifTrue:[^ self].
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2797
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2798	self detectGrabMenu handlePointerLeave:state.
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2799
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2800	self isPopUpView ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	2801	^ self
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2802	].
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2803	(selection notNil and:[selection hasSubmenu not]) ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	2804	"/ selection on grabView withou a submenu (Button ...); check whether moving out
2141 1a9381cdeb13 turn off button when leaving the view with mouse-button pressed Claus Gittinger <cg@exept.de> parents: 2137 diff changeset	2805	"/ self sensor anyButtonPressed ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	2806	self accept:nil.
2141 1a9381cdeb13 turn off button when leaving the view with mouse-button pressed Claus Gittinger <cg@exept.de> parents: 2137 diff changeset	2807	"/ ].
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2808	].
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2809	!
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2810
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2811	sizeChanged:how
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2812	"redraw #right groups
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2813	"
2018 2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	2814	self isPopUpView ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	2815	mustRearrange := true.
93426020ceed * empty log message * ca parents: 2216 diff changeset	2816	shown ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	2817	self invalidate
93426020ceed * empty log message * ca parents: 2216 diff changeset	2818	]
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2819	].
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2820	super sizeChanged:how
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2821	! !
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2822
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2823	!MenuPanel methodsFor:'event handling processing'!
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2824
1767 e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	2825	clearImplicitGrab
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	2826	self menuAdornmentAt:#implicitGrabView put:nil.
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	2827	self menuAdornmentAt:#lastPointerView put:nil.
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	2828
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	2829
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	2830	!
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	2831
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	2832	dispatchEvent:ev withFocusOn:focusView delegate:doDelegate
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	2833	"dispatch and handle an event
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	2834	"
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	2835	\|view x y p syntheticEvent implicitGrabView lastPointerView menu\|
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	2836
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	2837	implicitGrabView := self menuAdornmentAt:#implicitGrabView.
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	2838
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	2839	"/ situation: we get a buttonPress, set implicitGrab (for scrollbars etc.)
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	2840	"/ but never get the buttonRelease, since someone else (a popUp) grabbed the
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	2841	"/ pointer in the meantime, and has eaten the release event ... (double-sigh)
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	2842	implicitGrabView notNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	2843	self sensor leftButtonPressed ifFalse:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	2844	self clearImplicitGrab.
93426020ceed * empty log message * ca parents: 2216 diff changeset	2845	].
1767 e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	2846	].
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	2847
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	2848	((x := ev x) isNil or:[(y := ev y) isNil]) ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	2849	^ super dispatchEvent:ev withFocusOn:focusView delegate:false.
1767 e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	2850	].
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	2851
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	2852	implicitGrabView notNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	2853	ev isButtonEvent ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	2854	p := device translatePoint:(x@y) fromView:self toView:implicitGrabView.
93426020ceed * empty log message * ca parents: 2216 diff changeset	2855	ev view:implicitGrabView.
93426020ceed * empty log message * ca parents: 2216 diff changeset	2856	ev arguments at:2 put:p x.
93426020ceed * empty log message * ca parents: 2216 diff changeset	2857	ev arguments at:3 put:p y.
93426020ceed * empty log message * ca parents: 2216 diff changeset	2858	implicitGrabView dispatchEvent:ev withFocusOn:focusView delegate:false.
93426020ceed * empty log message * ca parents: 2216 diff changeset	2859
93426020ceed * empty log message * ca parents: 2216 diff changeset	2860	ev isButtonReleaseEvent ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	2861	self clearImplicitGrab.
93426020ceed * empty log message * ca parents: 2216 diff changeset	2862	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	2863	^ self
93426020ceed * empty log message * ca parents: 2216 diff changeset	2864	]
1767 e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	2865	].
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	2866	menu := self detectMenuAtGrabPoint:(x@y).
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	2867
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2868	(menu isNil or:[menu isViewWrapper not]) ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	2869	self clearImplicitGrab.
1767 e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	2870	^ super dispatchEvent:ev withFocusOn:focusView delegate:false
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	2871	].
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	2872
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	2873	p := menu translateGrabPoint:(x@y).
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	2874	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	2875	p := device translatePoint:(x@y) fromView:self toView:view.
1767 e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	2876
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	2877	ev isButtonPressEvent ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	2878	(view wantsFocusWithButtonPress) ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	2879	view requestFocus.
93426020ceed * empty log message * ca parents: 2216 diff changeset	2880	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	2881	view ~~ self ifTrue:[ "/ can this ever be self ?
93426020ceed * empty log message * ca parents: 2216 diff changeset	2882	self menuAdornmentAt:#implicitGrabView put:view.
93426020ceed * empty log message * ca parents: 2216 diff changeset	2883	]
1767 e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	2884	].
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	2885	lastPointerView := self menuAdornmentAt:#lastPointerView.
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	2886
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	2887	ev isButtonMotionEvent ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	2888	lastPointerView ~~ view ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	2889	"/ must generate enter/leave ... (sigh)
93426020ceed * empty log message * ca parents: 2216 diff changeset	2890	lastPointerView notNil ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	2891	"/ XXX: should be fixed
93426020ceed * empty log message * ca parents: 2216 diff changeset	2892	syntheticEvent := WindowEvent pointerLeave:0 view:lastPointerView.
93426020ceed * empty log message * ca parents: 2216 diff changeset	2893	lastPointerView dispatchEvent:syntheticEvent withFocusOn:nil delegate:false.
93426020ceed * empty log message * ca parents: 2216 diff changeset	2894	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	2895	view notNil ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	2896	syntheticEvent := WindowEvent pointerEnter:0 x:x y:y view:view.
93426020ceed * empty log message * ca parents: 2216 diff changeset	2897	view dispatchEvent:syntheticEvent withFocusOn:nil delegate:false.
93426020ceed * empty log message * ca parents: 2216 diff changeset	2898	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	2899	self menuAdornmentAt:#lastPointerView put:view.
93426020ceed * empty log message * ca parents: 2216 diff changeset	2900	].
1767 e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	2901	].
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	2902
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	2903	ev view:view.
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	2904	ev x:p x.
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	2905	ev y:p y.
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	2906	view dispatchEvent:ev withFocusOn:focusView delegate:false.
2020 1f1868eba475 extracted common code to detectViewAt:aPoint. Claus Gittinger <cg@exept.de> parents: 2018 diff changeset	2907
1f1868eba475 extracted common code to detectViewAt:aPoint. Claus Gittinger <cg@exept.de> parents: 2018 diff changeset	2908	"Modified: / 10.10.2001 / 13:54:47 / cg"
1767 e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	2909	!
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	2910
2048 ba472f3f46c7 code cleanup Claus Gittinger <cg@exept.de> parents: 2047 diff changeset	2911	handleButtonMotion:state atPoint:motionPoint
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2912	"open or close the corresponding submenus
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2913	"
2048 ba472f3f46c7 code cleanup Claus Gittinger <cg@exept.de> parents: 2047 diff changeset	2914	\|menu translatedPoint sel\|
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2915
1910 119f91172b70 * empty log message * Claus Gittinger <cg@exept.de> parents: 1902 diff changeset	2916	(state == 0 or:[self sensor anyButtonPressed not]) ifTrue:[
1690 38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2917	"/ highlight enterItem if no selection exists
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2918	selection isNil ifTrue:[
2046 012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	2919	(self containsPoint:motionPoint) ifTrue:[
012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	2920	((sel := self itemAtPoint:motionPoint) isNil or:[sel canSelect not]) ifTrue:[
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2921	^ self pointerEntersItem:nil
1690 38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2922	].
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	2923	(superMenu notNil and:[self selectionFollowsMouse]) ifTrue:[
2061 faf64f2cd28e * empty log message * Claus Gittinger <cg@exept.de> parents: 2059 diff changeset	2924	self select:sel openMenu:true.
faf64f2cd28e * empty log message * Claus Gittinger <cg@exept.de> parents: 2059 diff changeset	2925	"/ self openMenuOnSelect:true.
faf64f2cd28e * empty log message * Claus Gittinger <cg@exept.de> parents: 2059 diff changeset	2926	"/ self selection:sel.
faf64f2cd28e * empty log message * Claus Gittinger <cg@exept.de> parents: 2059 diff changeset	2927	"/ self openMenuOnSelect:nil.
1690 38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2928	] ifFalse:[
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2929	self pointerEntersItem:sel
1690 38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2930	].
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2931	^ self
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2932	].
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2933	].
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2934	self pointerEntersItem:nil.
1690 38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2935
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	2936	( self selectionFollowsMouse
93426020ceed * empty log message * ca parents: 2216 diff changeset	2937	and:[(menu := self superMenuAtPoint:motionPoint) notNil]
93426020ceed * empty log message * ca parents: 2216 diff changeset	2938	) ifTrue:[
2046 012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	2939	translatedPoint := self translateMenuPoint:motionPoint toMenu:menu.
012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	2940	sel := menu itemAtPoint:translatedPoint.
1690 38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2941
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2942	(sel notNil and:[sel canSelect]) ifTrue:[
2096 8bb413648b84 bugfix in mode: DefaultSelectionFollowsMouse == true ca parents: 2084 diff changeset	2943	menu select:sel openMenu:true.
2061 faf64f2cd28e * empty log message * Claus Gittinger <cg@exept.de> parents: 2059 diff changeset	2944	"/ self openMenuOnSelect:true.
faf64f2cd28e * empty log message * Claus Gittinger <cg@exept.de> parents: 2059 diff changeset	2945	"/ self selection:sel.
faf64f2cd28e * empty log message * Claus Gittinger <cg@exept.de> parents: 2059 diff changeset	2946	"/ self openMenuOnSelect:nil.
1690 38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2947	]
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2948	].
2048 ba472f3f46c7 code cleanup Claus Gittinger <cg@exept.de> parents: 2047 diff changeset	2949	^ self
ba472f3f46c7 code cleanup Claus Gittinger <cg@exept.de> parents: 2047 diff changeset	2950	].
ba472f3f46c7 code cleanup Claus Gittinger <cg@exept.de> parents: 2047 diff changeset	2951
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2952	self pointerEntersItem:nil.
1690 38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2953
2048 ba472f3f46c7 code cleanup Claus Gittinger <cg@exept.de> parents: 2047 diff changeset	2954	(menu := self superMenuAtPoint:motionPoint) isNil ifTrue:[
1690 38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2955	self isPopUpView ifTrue:[
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2956	self selection:nil
1690 38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2957	].
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2958	^ self
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2959	].
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2960
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2961	menu == self ifTrue:[
2046 012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	2962	(sel := self itemAtPoint:motionPoint) notNil ifTrue:[
2061 faf64f2cd28e * empty log message * Claus Gittinger <cg@exept.de> parents: 2059 diff changeset	2963	self select:sel openMenu:true.
faf64f2cd28e * empty log message * Claus Gittinger <cg@exept.de> parents: 2059 diff changeset	2964	"/ self openMenuOnSelect:true.
faf64f2cd28e * empty log message * Claus Gittinger <cg@exept.de> parents: 2059 diff changeset	2965	"/ self selection:sel.
faf64f2cd28e * empty log message * Claus Gittinger <cg@exept.de> parents: 2059 diff changeset	2966	"/ self openMenuOnSelect:nil.
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2967	].
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2968	] ifFalse:[
2046 012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	2969	translatedPoint := self translateMenuPoint:motionPoint toMenu:menu.
012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	2970	sel := menu itemAtPoint:translatedPoint.
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2971
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2972	(sel isNil and:[menu isPopUpView not]) ifTrue:[
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2973	sel := menu selection.
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2974	].
2061 faf64f2cd28e * empty log message * Claus Gittinger <cg@exept.de> parents: 2059 diff changeset	2975	menu select:sel openMenu:true.
faf64f2cd28e * empty log message * Claus Gittinger <cg@exept.de> parents: 2059 diff changeset	2976	"/ menu openMenuOnSelect:true.
faf64f2cd28e * empty log message * Claus Gittinger <cg@exept.de> parents: 2059 diff changeset	2977	"/ menu selection:sel.
faf64f2cd28e * empty log message * Claus Gittinger <cg@exept.de> parents: 2059 diff changeset	2978	"/ menu openMenuOnSelect:nil.
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2979	]
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2980
2048 ba472f3f46c7 code cleanup Claus Gittinger <cg@exept.de> parents: 2047 diff changeset	2981	"Created: / 13.11.2001 / 20:21:24 / cg"
ba472f3f46c7 code cleanup Claus Gittinger <cg@exept.de> parents: 2047 diff changeset	2982	"Modified: / 13.11.2001 / 20:26:32 / cg"
2046 012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	2983	!
012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	2984
012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	2985	handleButtonPressAtPoint:aPoint
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2986	"a button pressed; open or close the corresponding submenus
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2987	"
2199 61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	2988	\|triggerOnDown item sensor direction\|
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2989
2046 012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	2990	item := self itemAtPoint:aPoint.
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2991
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2992	item notNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	2993	direction := self scrollerDirectionAtPoint:aPoint.
93426020ceed * empty log message * ca parents: 2216 diff changeset	2994	direction notNil ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	2995	(self scrollActivity startIfRequiredAt:direction on:self) ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	2996	self pointerEntersItem:nil.
93426020ceed * empty log message * ca parents: 2216 diff changeset	2997	^ self
93426020ceed * empty log message * ca parents: 2216 diff changeset	2998	]
93426020ceed * empty log message * ca parents: 2216 diff changeset	2999	]
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	3000	].
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	3001
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	3002	self openMenuOnSelect:true.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	3003	self selection:item.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	3004	self openMenuOnSelect:nil.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	3005
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	3006	item isNil ifTrue:[^ self].
2199 61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	3007	item hasDelayedMenu ifTrue:[^ self].
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	3008
2159 1eac041aeb3d toggle button draw & behavior Claus Gittinger <cg@exept.de> parents: 2145 diff changeset	3009	triggerOnDown := item triggerOnDown.
1eac041aeb3d toggle button draw & behavior Claus Gittinger <cg@exept.de> parents: 2145 diff changeset	3010
1eac041aeb3d toggle button draw & behavior Claus Gittinger <cg@exept.de> parents: 2145 diff changeset	3011	((item isToggle or:[triggerOnDown])
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	3012	and:[item canAccept
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	3013	and:[item == self selection]]
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	3014	) ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	3015	self invalidateItem:item repairNow:true.
93426020ceed * empty log message * ca parents: 2216 diff changeset	3016	self acceptItem:item inMenu:self.
93426020ceed * empty log message * ca parents: 2216 diff changeset	3017
93426020ceed * empty log message * ca parents: 2216 diff changeset	3018	self selection == item ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	3019	(sensor := self sensor) notNil ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	3020	[sensor anyButtonPressed] whileTrue:[ Delay waitForSeconds:0.1 ].
93426020ceed * empty log message * ca parents: 2216 diff changeset	3021	sensor flushUserEvents.
93426020ceed * empty log message * ca parents: 2216 diff changeset	3022	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	3023	self selection:nil.
93426020ceed * empty log message * ca parents: 2216 diff changeset	3024	]
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	3025	].
2046 012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	3026
012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	3027	"Created: / 13.11.2001 / 14:12:04 / cg"
2047 62de65e3a61b initial delay; autoRepeat delay Claus Gittinger <cg@exept.de> parents: 2046 diff changeset	3028	"Modified: / 13.11.2001 / 19:50:52 / cg"
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	3029	!
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	3030
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3031	handleCursorKey:aKey
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3032	"handle a cursor key
dce33f8bb806 intitial checkin ca parents: diff changeset	3033	"
1786 f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3034	\|next menu item isVrt backKey p1 p2
687 23ce9888d76f bug fixes: ca parents: 681 diff changeset	3035	idx "{ Class:SmallInteger }"
1705 201f9ce1b2d2 checkin from browser ca parents: 1704 diff changeset	3036	size "{ Class:SmallInteger }"
687 23ce9888d76f bug fixes: ca parents: 681 diff changeset	3037	\|
1786 f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3038	(size := items size) == 0 ifTrue:[
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3039	superMenu notNil ifTrue:[superMenu handleCursorKey:aKey].
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3040	^ self
dce33f8bb806 intitial checkin ca parents: diff changeset	3041	].
1786 f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3042
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3043	isVrt := self verticalLayout.
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3044
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	3045
1786 f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3046	( (isVrt and:[aKey == #CursorUp or:[aKey == #CursorDown]])
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3047	or:[(isVrt not and:[aKey == #CursorRight or:[aKey == #CursorLeft]])]
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3048	) ifTrue:[
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3049	selection isNil ifTrue:[
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3050	(superMenu notNil and:[superMenu verticalLayout == isVrt]) ifTrue:[
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3051	^ superMenu handleCursorKey:aKey
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3052	].
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	3053	idx := 0.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	3054
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	3055	isVrt ifTrue:[
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	3056	"/ used because of vertical scrolling
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	3057	idx := items findFirst:[:el\| el layout top > 0 ].
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	3058	idx ~~ 0 ifTrue:[idx := idx := idx - 1 ]
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	3059	].
1786 f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3060	] ifFalse:[
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	3061	idx := self indexOf:selection.
1786 f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3062	].
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3063	next := aKey == #CursorRight or:[aKey == #CursorDown].
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3064
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3065	size timesRepeat:[\|el\|
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3066	next ifTrue:[(idx := idx + 1) > size ifTrue:[idx := 1]]
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3067	ifFalse:[(idx := idx - 1) < 1 ifTrue:[idx := size]].
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3068
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3069	(el := items at:idx ifAbsent:nil) notNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	3070	el canSelect ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	3071	self selection:el.
93426020ceed * empty log message * ca parents: 2216 diff changeset	3072	self openDelayed:nil. "/ do not open delayed
93426020ceed * empty log message * ca parents: 2216 diff changeset	3073	^ self
93426020ceed * empty log message * ca parents: 2216 diff changeset	3074	].
1786 f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3075	]
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3076	].
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3077	^ self
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
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3080	superMenu notNil ifTrue:[
1791 bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	3081	p1 := self translateGrabPoint:0.
bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	3082	p2 := superMenu translateGrabPoint:0.
1786 f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3083	].
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3084
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3085	isVrt ifTrue:[
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3086	(superMenu notNil and:[p1 x > p2 x]) ifTrue:[
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3087	backKey := #CursorRight
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3088	] ifFalse:[
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3089	backKey := #CursorLeft.
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3090	]
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3091	] ifFalse:[
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3092	(superMenu notNil and:[p1 y > p2 y]) ifTrue:[
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3093	backKey := #CursorDown
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3094	] ifFalse:[
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3095	backKey := #CursorUp.
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3096	]
1786 f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3097	].
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	aKey == backKey ifTrue:[
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3100	superMenu isNil ifTrue:[
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3101	self accept:nil
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3102	] ifFalse:[
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3103	superMenu verticalLayout ~~ isVrt ifTrue:[
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3104	superMenu handleCursorKey:aKey
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3105	] ifFalse:[
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3106	superMenu selection hideSubmenu
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3107	]
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3108	].
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3109	^ self
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3110	].
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3111
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3112	selection isNil ifTrue:[
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3113	superMenu isNil ifTrue:[^ self accept:nil].
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3114
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3115	superMenu verticalLayout ~~ isVrt ifTrue:[
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3116	superMenu handleCursorKey:aKey
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3117	] ifFalse:[
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3118	(item := items findFirst:[:el\| el canSelect]) notNil ifTrue:[
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3119	self selection:item
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3120	]
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3121	].
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3122	^ self
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3123	].
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3124
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3125	selection hasSubmenu ifTrue:[
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3126	(menu := selection visibleSubmenu) isNil ifTrue:[
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3127	selection toggleSubmenuVisibility
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3128	] ifFalse:[
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3129	menu selectionIndex:1
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3130	]
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3131	] ifFalse:[
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3132	superMenu notNil ifTrue:[
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3133	superMenu verticalLayout ~~ isVrt ifTrue:[
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3134	superMenu handleCursorKey:aKey
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	] ifFalse:[
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3137	self accept:nil
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	].
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3140	!
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3141
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3142	handleKeyPress:key
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3143	"any key is pressed
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3144	"
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	3145	\|item inMenu\|
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3146
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3147	(key == #Return or:[key == Character space]) ifTrue:[
1786 f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3148	self handleReturnPressed
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3149	] ifFalse:[
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3150	key isCharacter ifTrue:[
1862 ffbe4c06defd handleKeyPress: search character-key in wrapped menu ca parents: 1853 diff changeset	3151	"/ selection notNil ifTrue:[
ffbe4c06defd handleKeyPress: search character-key in wrapped menu ca parents: 1853 diff changeset	3152	"/ inMenu := self
ffbe4c06defd handleKeyPress: search character-key in wrapped menu ca parents: 1853 diff changeset	3153	"/ ] ifFalse:[
ffbe4c06defd handleKeyPress: search character-key in wrapped menu ca parents: 1853 diff changeset	3154	"/ (inMenu := superMenu) isNil ifTrue:[^ self].
ffbe4c06defd handleKeyPress: search character-key in wrapped menu ca parents: 1853 diff changeset	3155	"/ ].
ffbe4c06defd handleKeyPress: search character-key in wrapped menu ca parents: 1853 diff changeset	3156	inMenu := self.
1786 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	(item := inMenu detectItemForKey:key) notNil ifTrue:[
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3159	inMenu selection:item
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3160	]
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3161	] ifFalse:[
1786 f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3162	( key == #CursorDown or:[key == #CursorUp
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3163	or:[key == #CursorLeft or:[key == #CursorRight]]]
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3164	) ifTrue:[
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3165	self handleCursorKey:key
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	]
1889 43516e4588ce give warning messages for unimplemented menu-aspects Claus Gittinger <cg@exept.de> parents: 1878 diff changeset	3168	]
43516e4588ce give warning messages for unimplemented menu-aspects Claus Gittinger <cg@exept.de> parents: 1878 diff changeset	3169	!
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3170
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3171	handlePointerLeave:state
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3172	self pointerEntersItem:nil.
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3173	super pointerLeave:state
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3174	!
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3175
1786 f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3176	handleReturnPressed
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3177	"any key is pressed
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3178	"
2199 61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	3179	\|sensor subm\|
1841 5d01716cc37c implement: triggerOnDown ca parents: 1836 diff changeset	3180
5d01716cc37c implement: triggerOnDown ca parents: 1836 diff changeset	3181	selection isNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	3182	superMenu notNil ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	3183	superMenu selection toggleSubmenuVisibility
93426020ceed * empty log message * ca parents: 2216 diff changeset	3184	] ifFalse:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	3185	self accept
93426020ceed * empty log message * ca parents: 2216 diff changeset	3186	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	3187	^ self
1841 5d01716cc37c implement: triggerOnDown ca parents: 1836 diff changeset	3188	].
5d01716cc37c implement: triggerOnDown ca parents: 1836 diff changeset	3189	selection hasSubmenu ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	3190	selection hasDelayedMenu ifFalse:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	3191	^ selection toggleSubmenuVisibility
93426020ceed * empty log message * ca parents: 2216 diff changeset	3192	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	3193	subm := selection currentSubmenu.
93426020ceed * empty log message * ca parents: 2216 diff changeset	3194
93426020ceed * empty log message * ca parents: 2216 diff changeset	3195	(subm notNil and:[subm shown]) ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	3196	^ selection toggleSubmenuVisibility
93426020ceed * empty log message * ca parents: 2216 diff changeset	3197	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	3198	self openDelayed:nil
1841 5d01716cc37c implement: triggerOnDown ca parents: 1836 diff changeset	3199	].
5d01716cc37c implement: triggerOnDown ca parents: 1836 diff changeset	3200	self accept.
5d01716cc37c implement: triggerOnDown ca parents: 1836 diff changeset	3201
5d01716cc37c implement: triggerOnDown ca parents: 1836 diff changeset	3202	(selection notNil and:[selection triggerOnDown]) ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	3203	^ self
1841 5d01716cc37c implement: triggerOnDown ca parents: 1836 diff changeset	3204	].
5d01716cc37c implement: triggerOnDown ca parents: 1836 diff changeset	3205
5d01716cc37c implement: triggerOnDown ca parents: 1836 diff changeset	3206	(sensor := self sensor) isNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	3207	^ self
1841 5d01716cc37c implement: triggerOnDown ca parents: 1836 diff changeset	3208	].
5d01716cc37c implement: triggerOnDown ca parents: 1836 diff changeset	3209
5d01716cc37c implement: triggerOnDown ca parents: 1836 diff changeset	3210	[ sensor flushKeyboardFor:nil.
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	3211	Delay waitForSeconds:0.1.
93426020ceed * empty log message * ca parents: 2216 diff changeset	3212	sensor hasKeyPressEventFor:nil.
1841 5d01716cc37c implement: triggerOnDown ca parents: 1836 diff changeset	3213
5d01716cc37c implement: triggerOnDown ca parents: 1836 diff changeset	3214	] whileTrue.
1786 f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3215	!
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3216
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3217	pointerEntersItem:anItemOrNil
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3218	"the pointer moves over an item or nil; restore the old item and
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3219	redraw the new item highlighted.
1690 38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3220	"
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3221	\|oldItem newItem\|
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3222
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3223	( anItemOrNil notNil
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3224	and:[anItemOrNil canSelect
1690 38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3225	and:[selection isNil
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3226	and:[self isPopUpView not]]]) ifTrue:[
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3227	anItemOrNil isButton ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	3228	( self buttonEnteredBackgroundColor ~= self buttonPassiveBackgroundColor
93426020ceed * empty log message * ca parents: 2216 diff changeset	3229	or:[self buttonEnteredLevel ~= self buttonPassiveLevel]
1690 38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3230	) ifTrue:[
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3231	newItem := anItemOrNil
1690 38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3232	]
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3233	] ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	3234	(self enteredLevel ~~ 0
93426020ceed * empty log message * ca parents: 2216 diff changeset	3235	or:[self enteredBackgroundColor ~= self backgroundColor]
93426020ceed * empty log message * ca parents: 2216 diff changeset	3236	) ifTrue:[
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3237	newItem := anItemOrNil
1690 38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3238	]
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3239	]
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3240	].
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3241
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3242	newItem ~~ enteredItem ifTrue:[
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3243	oldItem := enteredItem.
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3244	enteredItem := newItem.
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3245
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3246	oldItem notNil ifTrue:[
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3247	self invalidateItem:oldItem repairNow:(enteredItem isNil).
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3248	].
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3249
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3250	enteredItem notNil ifTrue:[
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3251	self invalidateItem:enteredItem repairNow:true.
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3252	].
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3253	].
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3254	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	3255
dce33f8bb806 intitial checkin ca parents: diff changeset	3256	!MenuPanel methodsFor:'grabbing'!
dce33f8bb806 intitial checkin ca parents: diff changeset	3257
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3258	doGrab
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3259	relativeGrabOrigin := nil.
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3260
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3261	superMenu notNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	3262	superMenu doGrab
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3263	] ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	3264	hasImplicitGrap ~~ true ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	3265	self grabMouseAndKeyboard.
93426020ceed * empty log message * ca parents: 2216 diff changeset	3266	hasImplicitGrap := true
93426020ceed * empty log message * ca parents: 2216 diff changeset	3267	]
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3268	]
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3269	!
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3270
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3271	doUngrab:forceDo
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3272
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3273	relativeGrabOrigin := nil.
1767 e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	3274	self clearImplicitGrab.
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3275
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3276	superMenu notNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	3277	forceDo ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	3278	superMenu doUngrab:true
93426020ceed * empty log message * ca parents: 2216 diff changeset	3279	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	3280	^ self
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3281	].
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3282
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3283	hasImplicitGrap ~~ true ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	3284	^ self
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3285	].
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3286
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3287	forceDo ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	3288	(selection notNil or:[prevFocusView == self]) ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	3289	^ self
93426020ceed * empty log message * ca parents: 2216 diff changeset	3290	].
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3291	].
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3292	self ungrabMouseAndKeyboard.
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3293	self selection:nil.
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3294	hasImplicitGrap := nil.
1703 e127eff742bb bugfix: request focus ca parents: 1701 diff changeset	3295	prevFocusView := nil.
e127eff742bb bugfix: request focus ca parents: 1701 diff changeset	3296
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3297	!
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3298
1630 01dc20096011 grabbing cleaned up; ca parents: 1613 diff changeset	3299	grabKeyboard
1690 38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3300	"grap the keyboard; keep previous grab
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3301	"
1630 01dc20096011 grabbing cleaned up; ca parents: 1613 diff changeset	3302	previousKeyboardGrab := device activeKeyboardGrab.
1690 38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3303	^ super grabKeyboard
1630 01dc20096011 grabbing cleaned up; ca parents: 1613 diff changeset	3304
01dc20096011 grabbing cleaned up; ca parents: 1613 diff changeset	3305
01dc20096011 grabbing cleaned up; ca parents: 1613 diff changeset	3306	!
01dc20096011 grabbing cleaned up; ca parents: 1613 diff changeset	3307
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3308	grabMouseAndKeyboard
717 540e638fdebb Avoid pointer and keyboard grabbing if not necessary Stefan Vogel <sv@exept.de> parents: 712 diff changeset	3309	"get exclusive access to pointer and keyboard.
1690 38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3310	"
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3311	\|sensor\|
dce33f8bb806 intitial checkin ca parents: diff changeset	3312
dce33f8bb806 intitial checkin ca parents: diff changeset	3313	realized ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	3314	prevFocusView := self windowGroup focusView.
93426020ceed * empty log message * ca parents: 2216 diff changeset	3315
93426020ceed * empty log message * ca parents: 2216 diff changeset	3316	sensor := self sensor.
93426020ceed * empty log message * ca parents: 2216 diff changeset	3317	device activePointerGrab ~~ self ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	3318	sensor notNil ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	3319	sensor flushMotionEventsFor:nil.
93426020ceed * empty log message * ca parents: 2216 diff changeset	3320	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	3321
93426020ceed * empty log message * ca parents: 2216 diff changeset	3322	(self grabPointer) ifFalse:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	3323	Delay waitForSeconds:0.1.
93426020ceed * empty log message * ca parents: 2216 diff changeset	3324	(self grabPointer) ifFalse:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	3325	"give up"
93426020ceed * empty log message * ca parents: 2216 diff changeset	3326	'MenuPanel [warning]: could not grab pointer' errorPrintCR.
93426020ceed * empty log message * ca parents: 2216 diff changeset	3327	self unmap
93426020ceed * empty log message * ca parents: 2216 diff changeset	3328	]
93426020ceed * empty log message * ca parents: 2216 diff changeset	3329	]
93426020ceed * empty log message * ca parents: 2216 diff changeset	3330	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	3331
93426020ceed * empty log message * ca parents: 2216 diff changeset	3332	device activeKeyboardGrab ~~ self ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	3333	sensor notNil ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	3334	device sync.
93426020ceed * empty log message * ca parents: 2216 diff changeset	3335	sensor flushKeyboardFor:nil
93426020ceed * empty log message * ca parents: 2216 diff changeset	3336	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	3337	self grabKeyboard.
93426020ceed * empty log message * ca parents: 2216 diff changeset	3338	]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3339	]
dce33f8bb806 intitial checkin ca parents: diff changeset	3340
717 540e638fdebb Avoid pointer and keyboard grabbing if not necessary Stefan Vogel <sv@exept.de> parents: 712 diff changeset	3341	"Modified: / 2.2.1998 / 23:43:59 / stefan"
1254 38b8bcfabbd7 checkin from browser Claus Gittinger <cg@exept.de> parents: 1253 diff changeset	3342	"Modified: / 15.3.1999 / 12:01:38 / cg"
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3343	!
dce33f8bb806 intitial checkin ca parents: diff changeset	3344
1630 01dc20096011 grabbing cleaned up; ca parents: 1613 diff changeset	3345	grabPointerWithCursor:aCursorOrNil
1690 38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3346	"grap the pointer; keep previous grab
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3347	"
1630 01dc20096011 grabbing cleaned up; ca parents: 1613 diff changeset	3348	previousPointerGrab := device activePointerGrab.
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3349	hasImplicitGrap := true.
1690 38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3350	^ super grabPointerWithCursor:aCursorOrNil
1630 01dc20096011 grabbing cleaned up; ca parents: 1613 diff changeset	3351
01dc20096011 grabbing cleaned up; ca parents: 1613 diff changeset	3352
01dc20096011 grabbing cleaned up; ca parents: 1613 diff changeset	3353	!
01dc20096011 grabbing cleaned up; ca parents: 1613 diff changeset	3354
01dc20096011 grabbing cleaned up; ca parents: 1613 diff changeset	3355	ungrabKeyboard
1690 38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3356	"ungrap the keyboard; restore previous grab
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3357	"
1630 01dc20096011 grabbing cleaned up; ca parents: 1613 diff changeset	3358	super ungrabKeyboard.
1690 38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3359
1630 01dc20096011 grabbing cleaned up; ca parents: 1613 diff changeset	3360	previousKeyboardGrab notNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	3361	device grabKeyboardInView:previousKeyboardGrab.
1630 01dc20096011 grabbing cleaned up; ca parents: 1613 diff changeset	3362	].
01dc20096011 grabbing cleaned up; ca parents: 1613 diff changeset	3363
01dc20096011 grabbing cleaned up; ca parents: 1613 diff changeset	3364
01dc20096011 grabbing cleaned up; ca parents: 1613 diff changeset	3365	!
01dc20096011 grabbing cleaned up; ca parents: 1613 diff changeset	3366
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3367	ungrabMouseAndKeyboard
717 540e638fdebb Avoid pointer and keyboard grabbing if not necessary Stefan Vogel <sv@exept.de> parents: 712 diff changeset	3368	"ungrab resources (mouse and keyboard)
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3369	"
1630 01dc20096011 grabbing cleaned up; ca parents: 1613 diff changeset	3370	self ungrabPointer.
01dc20096011 grabbing cleaned up; ca parents: 1613 diff changeset	3371	self ungrabKeyboard.
01dc20096011 grabbing cleaned up; ca parents: 1613 diff changeset	3372	!
01dc20096011 grabbing cleaned up; ca parents: 1613 diff changeset	3373
01dc20096011 grabbing cleaned up; ca parents: 1613 diff changeset	3374	ungrabPointer
1690 38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3375	"ungrap the pointer; restore previous grab
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3376	"
1630 01dc20096011 grabbing cleaned up; ca parents: 1613 diff changeset	3377	super ungrabPointer.
1690 38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3378
1630 01dc20096011 grabbing cleaned up; ca parents: 1613 diff changeset	3379	previousPointerGrab notNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	3380	device grabPointerInView:previousPointerGrab.
1630 01dc20096011 grabbing cleaned up; ca parents: 1613 diff changeset	3381	].
01dc20096011 grabbing cleaned up; ca parents: 1613 diff changeset	3382
01dc20096011 grabbing cleaned up; ca parents: 1613 diff changeset	3383
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3384	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	3385
1251 eb5b4cdbacde fixed helpText display; Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	3386	!MenuPanel methodsFor:'help'!
eb5b4cdbacde fixed helpText display; Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	3387
2058 f0a23f80454e flyByHelp Claus Gittinger <cg@exept.de> parents: 2052 diff changeset	3388	flyByHelpTextAt:srcPoint
f0a23f80454e flyByHelp Claus Gittinger <cg@exept.de> parents: 2052 diff changeset	3389	"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	3390	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	3391	"
f0a23f80454e flyByHelp Claus Gittinger <cg@exept.de> parents: 2052 diff changeset	3392	\|dstMenu dstPoint\|
f0a23f80454e flyByHelp Claus Gittinger <cg@exept.de> parents: 2052 diff changeset	3393
f0a23f80454e flyByHelp Claus Gittinger <cg@exept.de> parents: 2052 diff changeset	3394	dstMenu := self detectMenuAtGrabPoint:srcPoint.
2063 8bff9e49f1e9 * empty log message * Claus Gittinger <cg@exept.de> parents: 2062 diff changeset	3395	dstMenu isNil ifTrue:[^ nil].
2058 f0a23f80454e flyByHelp Claus Gittinger <cg@exept.de> parents: 2052 diff changeset	3396
f0a23f80454e flyByHelp Claus Gittinger <cg@exept.de> parents: 2052 diff changeset	3397	dstPoint := dstMenu translateGrabPoint:srcPoint.
2063 8bff9e49f1e9 * empty log message * Claus Gittinger <cg@exept.de> parents: 2062 diff changeset	3398	^ dstMenu flyByHelpTextForItem:(dstMenu itemAtX:(dstPoint x) y:(dstPoint y)).
2058 f0a23f80454e flyByHelp Claus Gittinger <cg@exept.de> parents: 2052 diff changeset	3399	!
f0a23f80454e flyByHelp Claus Gittinger <cg@exept.de> parents: 2052 diff changeset	3400
f0a23f80454e flyByHelp Claus Gittinger <cg@exept.de> parents: 2052 diff changeset	3401	flyByHelpTextForItem:anItem
f0a23f80454e flyByHelp Claus Gittinger <cg@exept.de> parents: 2052 diff changeset	3402	"returns the helpText for an item (empty if none)
f0a23f80454e flyByHelp Claus Gittinger <cg@exept.de> parents: 2052 diff changeset	3403	"
2063 8bff9e49f1e9 * empty log message * Claus Gittinger <cg@exept.de> parents: 2062 diff changeset	3404	\|key app\|
8bff9e49f1e9 * empty log message * Claus Gittinger <cg@exept.de> parents: 2062 diff changeset	3405
8bff9e49f1e9 * empty log message * Claus Gittinger <cg@exept.de> parents: 2062 diff changeset	3406	anItem isNil ifTrue:[^ nil].
8bff9e49f1e9 * empty log message * Claus Gittinger <cg@exept.de> parents: 2062 diff changeset	3407
8bff9e49f1e9 * empty log message * Claus Gittinger <cg@exept.de> parents: 2062 diff changeset	3408	anItem isButton ifFalse:[^ nil].
8bff9e49f1e9 * empty log message * Claus Gittinger <cg@exept.de> parents: 2062 diff changeset	3409
8bff9e49f1e9 * empty log message * Claus Gittinger <cg@exept.de> parents: 2062 diff changeset	3410	key := anItem activeHelpKey.
8bff9e49f1e9 * empty log message * Claus Gittinger <cg@exept.de> parents: 2062 diff changeset	3411	key isNil ifTrue:[^ nil].
8bff9e49f1e9 * empty log message * Claus Gittinger <cg@exept.de> parents: 2062 diff changeset	3412
8bff9e49f1e9 * empty log message * Claus Gittinger <cg@exept.de> parents: 2062 diff changeset	3413	app := self application.
8bff9e49f1e9 * empty log message * Claus Gittinger <cg@exept.de> parents: 2062 diff changeset	3414	app isNil ifTrue:[^ nil].
8bff9e49f1e9 * empty log message * Claus Gittinger <cg@exept.de> parents: 2062 diff changeset	3415
8bff9e49f1e9 * empty log message * Claus Gittinger <cg@exept.de> parents: 2062 diff changeset	3416	^ app flyByHelpTextForKey:key.
2058 f0a23f80454e flyByHelp Claus Gittinger <cg@exept.de> parents: 2052 diff changeset	3417	!
f0a23f80454e flyByHelp Claus Gittinger <cg@exept.de> parents: 2052 diff changeset	3418
1251 eb5b4cdbacde fixed helpText display; Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	3419	helpText
1613 5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	3420	"return the helpText for the currently selected item (empty if none)
5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	3421	"
5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	3422	^ self helpTextForItem:selection
1251 eb5b4cdbacde fixed helpText display; Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	3423	!
eb5b4cdbacde fixed helpText display; Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	3424
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3425	helpTextAt:srcPoint
1252 6db6906da49b debug print Claus Gittinger <cg@exept.de> parents: 1251 diff changeset	3426	"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	3427	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	3428	"
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3429	\|dstMenu dstPoint\|
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3430
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3431	dstMenu := self detectMenuAtGrabPoint:srcPoint.
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3432
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3433	dstMenu isNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	3434	^ ''
1613 5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	3435	].
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3436
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3437	dstPoint := dstMenu translateGrabPoint:srcPoint.
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3438	^ dstMenu helpTextForItem:(dstMenu itemAtX:(dstPoint x) y:(dstPoint y)).
1613 5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	3439	!
5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	3440
5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	3441	helpTextForItem:anItem
5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	3442	"returns the helpText for an item (empty if none)
5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	3443	"
5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	3444	\|key val app\|
5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	3445
5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	3446	anItem isNil ifTrue:[^ ''].
5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	3447
5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	3448	(val := anItem activeHelpText) isNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	3449	( (key := anItem activeHelpKey) notNil
93426020ceed * empty log message * ca parents: 2216 diff changeset	3450	and:[(app := self application) notNil]
93426020ceed * empty log message * ca parents: 2216 diff changeset	3451	) ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	3452	val := app helpTextForKey:key.
93426020ceed * empty log message * ca parents: 2216 diff changeset	3453	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	3454	anItem activeHelpText:(val ? '').
1613 5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	3455	].
5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	3456	^ val
1251 eb5b4cdbacde fixed helpText display; Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	3457	! !
eb5b4cdbacde fixed helpText display; Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	3458
794 5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	3459	!MenuPanel methodsFor:'image registration'!
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	3460
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	3461	imageOnDevice:anImage
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	3462	"returns image registered on device
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	3463	"
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	3464	^ self class image:anImage onDevice:device
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	3465	!
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	3466
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	3467	lightenedImageOnDevice:anImage
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	3468	"returns lightened image registered on device
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	3469	"
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	3470	^ self class lightenedImage:anImage onDevice:device
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	3471	! !
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	3472
1688 271829d6a2e4 category changes Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3473	!MenuPanel methodsFor:'initialization & release'!
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3474
767 ffa2a09a1039 added #addToCurrentProject in order to avoid restart errors tz parents: 746 diff changeset	3475	addToCurrentProject
ffa2a09a1039 added #addToCurrentProject in order to avoid restart errors tz parents: 746 diff changeset	3476	"ignored here"
ffa2a09a1039 added #addToCurrentProject in order to avoid restart errors tz parents: 746 diff changeset	3477	!
ffa2a09a1039 added #addToCurrentProject in order to avoid restart errors tz parents: 746 diff changeset	3478
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3479	create
616 a6157b083830 support of different styles ca parents: 608 diff changeset	3480	"create the shadow view for a none contained submenu
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3481	"
dce33f8bb806 intitial checkin ca parents: diff changeset	3482	super create.
dce33f8bb806 intitial checkin ca parents: diff changeset	3483
dce33f8bb806 intitial checkin ca parents: diff changeset	3484	self isPopUpView ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	3485	(PopUpView shadowsOnDevice:device) ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	3486	shadowView isNil ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	3487	shadowView := (ShadowView onDevice:device) for:self
93426020ceed * empty log message * ca parents: 2216 diff changeset	3488	] ifFalse:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	3489	self saveUnder:true.
93426020ceed * empty log message * ca parents: 2216 diff changeset	3490	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	3491	]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3492	] ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	3493	explicitExtent == true ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	3494	(self width) == (superView width) ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	3495	self verticalLayout:false
93426020ceed * empty log message * ca parents: 2216 diff changeset	3496	]
93426020ceed * empty log message * ca parents: 2216 diff changeset	3497	]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3498	]
1024 28c87a2369f6 show active help on pointer motion. Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	3499
28c87a2369f6 show active help on pointer motion. Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	3500	"Modified: / 28.7.1998 / 02:11:44 / cg"
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3501	!
dce33f8bb806 intitial checkin ca parents: diff changeset	3502
dce33f8bb806 intitial checkin ca parents: diff changeset	3503	destroy
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3504	"destroy items and shadowView; remove dependencies
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3505	"
798 74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	3506	self clearLastActiveMenu.
2051 d958c12cc08e * empty log message * Claus Gittinger <cg@exept.de> parents: 2050 diff changeset	3507	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	3508	items := nil.
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3509
498 b4c341497621 bug fixes: ca parents: 475 diff changeset	3510	menuHolder notNil ifTrue:[menuHolder removeDependent:self].
b4c341497621 bug fixes: ca parents: 475 diff changeset	3511	enableChannel notNil ifTrue:[enableChannel removeDependent:self].
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3512
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3513	super destroy.
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3514	superMenu := nil.
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3515	shadowView notNil ifTrue:[shadowView destroy].
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3516
2051 d958c12cc08e * empty log message * Claus Gittinger <cg@exept.de> parents: 2050 diff changeset	3517	"Modified: / 15.11.2001 / 17:08:45 / cg"
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3518	!
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3519
616 a6157b083830 support of different styles ca parents: 608 diff changeset	3520	fetchDeviceResources
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	3521	"fetch device colors, to avoid reallocation at redraw time
93426020ceed * empty log message * ca parents: 2216 diff changeset	3522	"
93426020ceed * empty log message * ca parents: 2216 diff changeset	3523	\|style\|
93426020ceed * empty log message * ca parents: 2216 diff changeset	3524
93426020ceed * empty log message * ca parents: 2216 diff changeset	3525	superMenu ifNotNil:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	3526	styleSheet := superMenu styleSheet
93426020ceed * empty log message * ca parents: 2216 diff changeset	3527	].
616 a6157b083830 support of different styles ca parents: 608 diff changeset	3528
a6157b083830 support of different styles ca parents: 608 diff changeset	3529	super fetchDeviceResources.
a6157b083830 support of different styles ca parents: 608 diff changeset	3530
1081 fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	3531	"/ 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	3532	"/ (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	3533
616 a6157b083830 support of different styles ca parents: 608 diff changeset	3534	superMenu isNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	3535	rightArrow ifNil:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	3536	rightArrow := SelectionInListView rightArrowFormOn:device.
2059 c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	3537	].
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	3538	fgColor := fgColor onDevice:device.
93426020ceed * empty log message * ca parents: 2216 diff changeset	3539	style := styleSheet name.
93426020ceed * empty log message * ca parents: 2216 diff changeset	3540
93426020ceed * empty log message * ca parents: 2216 diff changeset	3541	(style ~~ #os2 and:[style ~~ #win95]) ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	3542	rightArrowShadow := SelectionInListView rightArrowShadowFormOn:device
93426020ceed * empty log message * ca parents: 2216 diff changeset	3543	] ifFalse:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	3544	rightArrowShadow := nil
93426020ceed * empty log message * ca parents: 2216 diff changeset	3545	].
616 a6157b083830 support of different styles ca parents: 608 diff changeset	3546	] ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	3547	rightArrow := superMenu rightArrow.
93426020ceed * empty log message * ca parents: 2216 diff changeset	3548	rightArrowShadow := superMenu rightArrowShadow.
93426020ceed * empty log message * ca parents: 2216 diff changeset	3549
93426020ceed * empty log message * ca parents: 2216 diff changeset	3550	self foregroundColor:(superMenu foregroundColor).
93426020ceed * empty log message * ca parents: 2216 diff changeset	3551	self font:(superMenu font).
93426020ceed * empty log message * ca parents: 2216 diff changeset	3552	self viewBackground:(superMenu viewBackground).
1137 7df0b776e47a fixes for 2D styles (borderWidth) Claus Gittinger <cg@exept.de> parents: 1130 diff changeset	3553	].
7df0b776e47a fixes for 2D styles (borderWidth) Claus Gittinger <cg@exept.de> parents: 1130 diff changeset	3554
1829 bd8b95c5bb89 migration fixes Claus Gittinger <cg@exept.de> parents: 1825 diff changeset	3555	items notNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	3556	items do:[:eachItem\| eachItem fetchDeviceResources ]
1829 bd8b95c5bb89 migration fixes Claus Gittinger <cg@exept.de> parents: 1825 diff changeset	3557	].
bd8b95c5bb89 migration fixes Claus Gittinger <cg@exept.de> parents: 1825 diff changeset	3558
1137 7df0b776e47a fixes for 2D styles (borderWidth) Claus Gittinger <cg@exept.de> parents: 1130 diff changeset	3559	"Modified: / 15.9.1998 / 12:51:29 / cg"
616 a6157b083830 support of different styles ca parents: 608 diff changeset	3560	!
a6157b083830 support of different styles ca parents: 608 diff changeset	3561
580 249f6cfc5bb2 checkin from browser Claus Gittinger <cg@exept.de> parents: 571 diff changeset	3562	initStyle
249f6cfc5bb2 checkin from browser Claus Gittinger <cg@exept.de> parents: 571 diff changeset	3563	"initialize style specific stuff"
249f6cfc5bb2 checkin from browser Claus Gittinger <cg@exept.de> parents: 571 diff changeset	3564
249f6cfc5bb2 checkin from browser Claus Gittinger <cg@exept.de> parents: 571 diff changeset	3565	super initStyle.
616 a6157b083830 support of different styles ca parents: 608 diff changeset	3566
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	3567	viewBackground := styleSheet colorAt:#'menuPanel.backgroundColor'.
93426020ceed * empty log message * ca parents: 2216 diff changeset	3568	font := styleSheet fontAt:#'menu.font'.
93426020ceed * empty log message * ca parents: 2216 diff changeset	3569	fgColor := styleSheet colorAt:#'menuPanel.foregroundColor'.
1923 530426a3d692 support #level: ca parents: 1922 diff changeset	3570
2003 732fbaf5864f avoid changing the level after realization (to avoid confusing the shadow) Claus Gittinger <cg@exept.de> parents: 2000 diff changeset	3571	self updateLevelAndBorder.
580 249f6cfc5bb2 checkin from browser Claus Gittinger <cg@exept.de> parents: 571 diff changeset	3572	!
249f6cfc5bb2 checkin from browser Claus Gittinger <cg@exept.de> parents: 571 diff changeset	3573
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3574	initialize
dce33f8bb806 intitial checkin ca parents: diff changeset	3575	"set default configuration
dce33f8bb806 intitial checkin ca parents: diff changeset	3576	"
dce33f8bb806 intitial checkin ca parents: diff changeset	3577	super initialize.
616 a6157b083830 support of different styles ca parents: 608 diff changeset	3578
1730 4936edfc2eee must enable motion events in #initialize (not in map) Claus Gittinger <cg@exept.de> parents: 1728 diff changeset	3579	self enableMotionEvents.
498 b4c341497621 bug fixes: ca parents: 475 diff changeset	3580	enabled := true.
1877 3b415fa4710f only access originChanged, extentChanged and cornerChanged Claus Gittinger <cg@exept.de> parents: 1874 diff changeset	3581	self extentChangedFlag:false.
3b415fa4710f only access originChanged, extentChanged and cornerChanged Claus Gittinger <cg@exept.de> parents: 1874 diff changeset	3582	self originChangedFlag:false.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3583	explicitExtent := nil.
dce33f8bb806 intitial checkin ca parents: diff changeset	3584	shortKeyInset := 0.
dce33f8bb806 intitial checkin ca parents: diff changeset	3585	mustRearrange := false.
dce33f8bb806 intitial checkin ca parents: diff changeset	3586	!
dce33f8bb806 intitial checkin ca parents: diff changeset	3587
1573 fd124ee2bce5 shortcutKeys; arrange layout if selection changed ca parents: 1572 diff changeset	3588	map
717 540e638fdebb Avoid pointer and keyboard grabbing if not necessary Stefan Vogel <sv@exept.de> parents: 712 diff changeset	3589	"grab the pointer here, when visible (but not if control has already been lost).
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3590	If the grab fails, try again and unmap myself if that fails too.
dce33f8bb806 intitial checkin ca parents: diff changeset	3591	"
1791 bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	3592	\|loIndices loItems\|
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3593
1690 38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3594	enteredItem := nil.
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3595
1024 28c87a2369f6 show active help on pointer motion. Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	3596	self enableMotionEvents.
798 74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	3597	self becomesActiveMenu.
1573 fd124ee2bce5 shortcutKeys; arrange layout if selection changed ca parents: 1572 diff changeset	3598	super map.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3599
1785 efa4cc8ca917 mnemonic behaviour changed ca parents: 1775 diff changeset	3600	loIndices := InitialSelectionQuerySignal query.
1791 bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	3601	loItems := items ? #[].
bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	3602
bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	3603	loItems do:[:anItem\| anItem fetchImages ].
1572 80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	3604
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3605	self isPopUpView ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	3606	self doGrab
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3607	] ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	3608	super viewBackground:(self backgroundColor).
717 540e638fdebb Avoid pointer and keyboard grabbing if not necessary Stefan Vogel <sv@exept.de> parents: 712 diff changeset	3609	].
1791 bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	3610	loItems do:[:el\| el updateIndicators ].
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3611
1785 efa4cc8ca917 mnemonic behaviour changed ca parents: 1775 diff changeset	3612	loIndices size > 0 ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	3613	self redrawX:0 y:0 width:width height:height.
93426020ceed * empty log message * ca parents: 2216 diff changeset	3614	self openMenusFromItemIndices:loIndices.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3615	].
dce33f8bb806 intitial checkin ca parents: diff changeset	3616
1177 cfd7f71639f3 checkin from browser Claus Gittinger <cg@exept.de> parents: 1164 diff changeset	3617	"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	3618	"Modified: / 18.3.1999 / 18:22:18 / stefan"
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3619	!
dce33f8bb806 intitial checkin ca parents: diff changeset	3620
dce33f8bb806 intitial checkin ca parents: diff changeset	3621	realize
dce33f8bb806 intitial checkin ca parents: diff changeset	3622	"realize menu and shadowView
dce33f8bb806 intitial checkin ca parents: diff changeset	3623	"
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3624
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3625	self isPopUpView ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	3626	"Because of #saveUnder of ShadowView the order of realize is significant:
93426020ceed * empty log message * ca parents: 2216 diff changeset	3627	shadowView must be realized before self"
93426020ceed * empty log message * ca parents: 2216 diff changeset	3628	self hiddenOnRealize:true.
93426020ceed * empty log message * ca parents: 2216 diff changeset	3629	super realize.
93426020ceed * empty log message * ca parents: 2216 diff changeset	3630	self resize.
93426020ceed * empty log message * ca parents: 2216 diff changeset	3631	self makeFullyVisible.
2003 732fbaf5864f avoid changing the level after realization (to avoid confusing the shadow) Claus Gittinger <cg@exept.de> parents: 2000 diff changeset	3632	"/ self mustRearrange.
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	3633	shadowView notNil ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	3634	shadowView realize.
93426020ceed * empty log message * ca parents: 2216 diff changeset	3635	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	3636	self raise.
93426020ceed * empty log message * ca parents: 2216 diff changeset	3637	self map.
736 220741d8049b Use #saveUnder. Claus Gittinger <cg@exept.de> parents: 735 diff changeset	3638	] ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	3639	super realize.
1767 e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	3640	].
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	3641	self allSubViewsDo:[:aView\| aView realize ].
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3642	!
dce33f8bb806 intitial checkin ca parents: diff changeset	3643
dce33f8bb806 intitial checkin ca parents: diff changeset	3644	recreate
1832 f6e6640e99a3 comment Claus Gittinger <cg@exept.de> parents: 1829 diff changeset	3645	"this is called after a snapin or a migration.
f6e6640e99a3 comment Claus Gittinger <cg@exept.de> parents: 1829 diff changeset	3646	If the image was saved with an active menu, hide the menu
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3647	"
1455 5685ec322a5b sizeChanged:... Claus Gittinger <cg@exept.de> parents: 1388 diff changeset	3648	selection := nil.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3649	super recreate.
dce33f8bb806 intitial checkin ca parents: diff changeset	3650	!
dce33f8bb806 intitial checkin ca parents: diff changeset	3651
1130 fb79ef4aeec8 style changes Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	3652	reinitStyle
fb79ef4aeec8 style changes Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	3653	"handle style change while being open (win32 only - for now)"
fb79ef4aeec8 style changes Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	3654
fb79ef4aeec8 style changes Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	3655	super reinitStyle.
fb79ef4aeec8 style changes Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	3656
fb79ef4aeec8 style changes Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	3657	self fetchDeviceResources.
1811 df4f5e5b3396 restart under windows Claus Gittinger <cg@exept.de> parents: 1810 diff changeset	3658	self mustRearrange. "/ care for changed font sizes etc.
df4f5e5b3396 restart under windows Claus Gittinger <cg@exept.de> parents: 1810 diff changeset	3659
df4f5e5b3396 restart under windows Claus Gittinger <cg@exept.de> parents: 1810 diff changeset	3660	self do:[:anItem \|
df4f5e5b3396 restart under windows Claus Gittinger <cg@exept.de> parents: 1810 diff changeset	3661	anItem reinitStyle
df4f5e5b3396 restart under windows Claus Gittinger <cg@exept.de> parents: 1810 diff changeset	3662	].
1130 fb79ef4aeec8 style changes Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	3663
fb79ef4aeec8 style changes Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	3664	"Created: / 10.9.1998 / 21:37:05 / cg"
1811 df4f5e5b3396 restart under windows Claus Gittinger <cg@exept.de> parents: 1810 diff changeset	3665	"Modified: / 17.8.2000 / 18:01:33 / cg"
1130 fb79ef4aeec8 style changes Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	3666	!
fb79ef4aeec8 style changes Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	3667
1796 c9d801c011f7 recompute layout after snapIn (font geometry could be different) Claus Gittinger <cg@exept.de> parents: 1795 diff changeset	3668	reinitialize
c9d801c011f7 recompute layout after snapIn (font geometry could be different) Claus Gittinger <cg@exept.de> parents: 1795 diff changeset	3669	"reinit after a snapIn
c9d801c011f7 recompute layout after snapIn (font geometry could be different) Claus Gittinger <cg@exept.de> parents: 1795 diff changeset	3670	"
c9d801c011f7 recompute layout after snapIn (font geometry could be different) Claus Gittinger <cg@exept.de> parents: 1795 diff changeset	3671
c9d801c011f7 recompute layout after snapIn (font geometry could be different) Claus Gittinger <cg@exept.de> parents: 1795 diff changeset	3672	super reinitialize.
1811 df4f5e5b3396 restart under windows Claus Gittinger <cg@exept.de> parents: 1810 diff changeset	3673	"/ self reinitStyle.
df4f5e5b3396 restart under windows Claus Gittinger <cg@exept.de> parents: 1810 diff changeset	3674
df4f5e5b3396 restart under windows Claus Gittinger <cg@exept.de> parents: 1810 diff changeset	3675	"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	3676	!
c9d801c011f7 recompute layout after snapIn (font geometry could be different) Claus Gittinger <cg@exept.de> parents: 1795 diff changeset	3677
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3678	unmap
1330 63d2fe5ebd48 comment Claus Gittinger <cg@exept.de> parents: 1313 diff changeset	3679	"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	3680	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	3681
798 74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	3682	self clearLastActiveMenu.
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3683	self doUngrab:(superMenu isNil).
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3684	"/ self isPopUpView ifTrue:[
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3685	"/ self doUngrab:(superMenu isNil)
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3686	"/ ].
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3687
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3688	super unmap.
dce33f8bb806 intitial checkin ca parents: diff changeset	3689	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	3690	!
732fbaf5864f avoid changing the level after realization (to avoid confusing the shadow) Claus Gittinger <cg@exept.de> parents: 2000 diff changeset	3691
732fbaf5864f avoid changing the level after realization (to avoid confusing the shadow) Claus Gittinger <cg@exept.de> parents: 2000 diff changeset	3692	updateLevelAndBorder
732fbaf5864f avoid changing the level after realization (to avoid confusing the shadow) Claus Gittinger <cg@exept.de> parents: 2000 diff changeset	3693	"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	3694
732fbaf5864f avoid changing the level after realization (to avoid confusing the shadow) Claus Gittinger <cg@exept.de> parents: 2000 diff changeset	3695	\|bw lvl\|
732fbaf5864f avoid changing the level after realization (to avoid confusing the shadow) Claus Gittinger <cg@exept.de> parents: 2000 diff changeset	3696
732fbaf5864f avoid changing the level after realization (to avoid confusing the shadow) Claus Gittinger <cg@exept.de> parents: 2000 diff changeset	3697	self isPopUpView ifTrue:[
732fbaf5864f avoid changing the level after realization (to avoid confusing the shadow) Claus Gittinger <cg@exept.de> parents: 2000 diff changeset	3698	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	3699	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	3700	] ifFalse:[
732fbaf5864f avoid changing the level after realization (to avoid confusing the shadow) Claus Gittinger <cg@exept.de> parents: 2000 diff changeset	3701	bw := styleSheet is3D ifFalse:[1] ifTrue:[0].
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	3702	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	3703	].
732fbaf5864f avoid changing the level after realization (to avoid confusing the shadow) Claus Gittinger <cg@exept.de> parents: 2000 diff changeset	3704	self borderWidth:bw.
732fbaf5864f avoid changing the level after realization (to avoid confusing the shadow) Claus Gittinger <cg@exept.de> parents: 2000 diff changeset	3705	self level:lvl.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3706	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	3707
1878 1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3708	!MenuPanel methodsFor:'keyboard control'!
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3709
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3710	mnemonicViewNext:aKeyEvent
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3711	"a mnemonicKey event as forwarded from the keyboardProcessor - if there
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3712	is the mnemonic-key defined for any menuItem, handle the menuItem and
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3713	return the topMenu otherwise nil.
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3714	"
2112 c4cd07f21fac processing mnemonic's (search next from current) ca parents: 2111 diff changeset	3715	\|menu uKey lKey list index\|
c4cd07f21fac processing mnemonic's (search next from current) ca parents: 2111 diff changeset	3716
c4cd07f21fac processing mnemonic's (search next from current) ca parents: 2111 diff changeset	3717	superMenu notNil ifTrue:[ ^ superMenu mnemonicViewNext:aKeyEvent ].
1878 1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3718	shown ifFalse:[^ nil].
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3719
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3720	uKey := aKeyEvent rawKey last asUppercase.
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3721	lKey := uKey asLowercase.
2112 c4cd07f21fac processing mnemonic's (search next from current) ca parents: 2111 diff changeset	3722
c4cd07f21fac processing mnemonic's (search next from current) ca parents: 2111 diff changeset	3723	selection notNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	3724	"first lookup the current grapMenu before starting in the topMenu
93426020ceed * empty log message * ca parents: 2216 diff changeset	3725	"
93426020ceed * empty log message * ca parents: 2216 diff changeset	3726	menu := self detectGrabMenu.
93426020ceed * empty log message * ca parents: 2216 diff changeset	3727
93426020ceed * empty log message * ca parents: 2216 diff changeset	3728	[ menu ~~ self ] whileTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	3729	index := menu selectionIndex.
93426020ceed * empty log message * ca parents: 2216 diff changeset	3730	list := menu selectItemIndicesFor:[:el\|\|k\| k := el accessCharacter. k == uKey or:[k == lKey]]
93426020ceed * empty log message * ca parents: 2216 diff changeset	3731	maxDepth:10 from:(index + 1) to:99999.
2112 c4cd07f21fac processing mnemonic's (search next from current) ca parents: 2111 diff changeset	3732
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	3733	list size ~~ 0 ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	3734	"/ has item which responds to the mnemonic
93426020ceed * empty log message * ca parents: 2216 diff changeset	3735	menu processCollectedIndices:list.
93426020ceed * empty log message * ca parents: 2216 diff changeset	3736	^ self
93426020ceed * empty log message * ca parents: 2216 diff changeset	3737	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	3738	menu := menu superMenu.
93426020ceed * empty log message * ca parents: 2216 diff changeset	3739	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	3740	index := self selectionIndex.
93426020ceed * empty log message * ca parents: 2216 diff changeset	3741	list := self selectItemIndicesFor:[:el\|\|k\| k := el accessCharacter. k == uKey or:[k == lKey] ]
93426020ceed * empty log message * ca parents: 2216 diff changeset	3742	maxDepth:10 from:(1 + index) to:99999.
2112 c4cd07f21fac processing mnemonic's (search next from current) ca parents: 2111 diff changeset	3743	] ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	3744	index := 99999.
93426020ceed * empty log message * ca parents: 2216 diff changeset	3745	list := nil.
2112 c4cd07f21fac processing mnemonic's (search next from current) ca parents: 2111 diff changeset	3746	].
c4cd07f21fac processing mnemonic's (search next from current) ca parents: 2111 diff changeset	3747
c4cd07f21fac processing mnemonic's (search next from current) ca parents: 2111 diff changeset	3748	list ifNil:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	3749	list := self selectItemIndicesFor:[:el\|\|k\| k := el accessCharacter. k == uKey or:[k == lKey] ]
93426020ceed * empty log message * ca parents: 2216 diff changeset	3750	maxDepth:10 from:1 to:index.
93426020ceed * empty log message * ca parents: 2216 diff changeset	3751
93426020ceed * empty log message * ca parents: 2216 diff changeset	3752	list isNil ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	3753	"/ must clear existing selection
93426020ceed * empty log message * ca parents: 2216 diff changeset	3754	self selection:nil.
93426020ceed * empty log message * ca parents: 2216 diff changeset	3755	^ nil
93426020ceed * empty log message * ca parents: 2216 diff changeset	3756	]
2112 c4cd07f21fac processing mnemonic's (search next from current) ca parents: 2111 diff changeset	3757	].
c4cd07f21fac processing mnemonic's (search next from current) ca parents: 2111 diff changeset	3758
c4cd07f21fac processing mnemonic's (search next from current) ca parents: 2111 diff changeset	3759	"/ has item which responds to the mnemonic
c4cd07f21fac processing mnemonic's (search next from current) ca parents: 2111 diff changeset	3760	self processCollectedIndices:list.
c4cd07f21fac processing mnemonic's (search next from current) ca parents: 2111 diff changeset	3761	^ self
1889 43516e4588ce give warning messages for unimplemented menu-aspects Claus Gittinger <cg@exept.de> parents: 1878 diff changeset	3762	!
1878 1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3763
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3764	openMenusFromItemIndices:anItemIndiceList
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3765	"open all menus derived from sequence of item indices
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3766	"
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3767	\|item\|
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3768
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3769	anItemIndiceList size == 0 ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	3770	^ self
1878 1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3771	].
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3772	item := self itemAt:(anItemIndiceList removeFirst).
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3773
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3774	(item notNil and:[item enabled]) ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	3775	InitialSelectionQuerySignal answer:anItemIndiceList do:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	3776	self openMenuOnSelect:true.
93426020ceed * empty log message * ca parents: 2216 diff changeset	3777	self selection:item.
93426020ceed * empty log message * ca parents: 2216 diff changeset	3778	self openMenuOnSelect:nil.
93426020ceed * empty log message * ca parents: 2216 diff changeset	3779	]
1889 43516e4588ce give warning messages for unimplemented menu-aspects Claus Gittinger <cg@exept.de> parents: 1878 diff changeset	3780	].
43516e4588ce give warning messages for unimplemented menu-aspects Claus Gittinger <cg@exept.de> parents: 1878 diff changeset	3781	!
1878 1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3782
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3783	processCollectedIndices:indices
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3784	\|menu item\|
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3785
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3786	indices size == 0 ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	3787	^ self
1878 1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3788	].
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3789	menu := self.
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3790
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3791	[menu selectionIndex == indices first] whileTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	3792	( (item := menu selection) isNil "/ shouldn't happen
93426020ceed * empty log message * ca parents: 2216 diff changeset	3793	or:[(menu := item submenu) isNil] "/ no more indices; done
93426020ceed * empty log message * ca parents: 2216 diff changeset	3794	) ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	3795	^ true
93426020ceed * empty log message * ca parents: 2216 diff changeset	3796	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	3797	indices removeFirst.
93426020ceed * empty log message * ca parents: 2216 diff changeset	3798
93426020ceed * empty log message * ca parents: 2216 diff changeset	3799	indices isEmpty ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	3800	menu selection:nil.
93426020ceed * empty log message * ca parents: 2216 diff changeset	3801	^ self
93426020ceed * empty log message * ca parents: 2216 diff changeset	3802	]
1878 1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3803	].
1889 43516e4588ce give warning messages for unimplemented menu-aspects Claus Gittinger <cg@exept.de> parents: 1878 diff changeset	3804	menu openMenusFromItemIndices:indices.
43516e4588ce give warning messages for unimplemented menu-aspects Claus Gittinger <cg@exept.de> parents: 1878 diff changeset	3805	!
1878 1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3806
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3807	processShortcut:aKeyEvent
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3808	"a shortcutKey event as forwarded from the keyboardProcessor - if there is the
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3809	shortcut-key defined process the shortcut and return true otherwise false.
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3810	"
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	3811	\|menu rKey lKey list item\|
1878 1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3812
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3813	superMenu notNil ifTrue:[
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3814	^ superMenu processShortcut:aKeyEvent
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3815	].
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3816	shown ifFalse:[^ false].
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3817
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3818	item := nil.
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3819	rKey := aKeyEvent rawKey.
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3820	lKey := aKeyEvent key.
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3821	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	3822
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3823	[true] whileTrue:[
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3824	list := menu selectItemIndicesFor:[:el\|\|skey\|
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3825	item := el.
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3826	skey := el shortcutKey.
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3827	skey == rKey or:[skey == lKey]
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3828	]
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3829	maxDepth:10.
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3830
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3831	list size ~~ 0 ifTrue:[
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3832	"/ has item which responds to the shortcut
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3833	item hasSubmenu ifFalse:[
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3834	menu accept:item
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3835	] ifTrue:[
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3836	menu processCollectedIndices:list.
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3837	self windowGroup focusView:self.
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3838	].
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3839	^ true
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3840	].
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3841
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3842	menu == self ifTrue:[ ^ false ].
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3843	menu := self.
1889 43516e4588ce give warning messages for unimplemented menu-aspects Claus Gittinger <cg@exept.de> parents: 1878 diff changeset	3844	].
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	3845	^ false "/ never reached
1889 43516e4588ce give warning messages for unimplemented menu-aspects Claus Gittinger <cg@exept.de> parents: 1878 diff changeset	3846	!
1878 1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3847
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3848	selectItemIndicesFor:aOneArgBlock maxDepth:maxDepth
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3849	"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	3850	returns true. The first entry is the topmenu, the last entry the
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3851	item for which the block returns true.
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3852	If no item is detected, nil is returned
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3853	"
2112 c4cd07f21fac processing mnemonic's (search next from current) ca parents: 2111 diff changeset	3854	^ self selectItemIndicesFor:aOneArgBlock maxDepth:maxDepth from:1 to:99999
c4cd07f21fac processing mnemonic's (search next from current) ca parents: 2111 diff changeset	3855	!
c4cd07f21fac processing mnemonic's (search next from current) ca parents: 2111 diff changeset	3856
c4cd07f21fac processing mnemonic's (search next from current) ca parents: 2111 diff changeset	3857	selectItemIndicesFor:aOneArgBlock maxDepth:maxDepth from:aStart to:aStop
c4cd07f21fac processing mnemonic's (search next from current) ca parents: 2111 diff changeset	3858	"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	3859	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	3860	item for which the block returns true.
c4cd07f21fac processing mnemonic's (search next from current) ca parents: 2111 diff changeset	3861	If no item is detected, nil is returned
c4cd07f21fac processing mnemonic's (search next from current) ca parents: 2111 diff changeset	3862	"
c4cd07f21fac processing mnemonic's (search next from current) ca parents: 2111 diff changeset	3863	\|start stop\|
c4cd07f21fac processing mnemonic's (search next from current) ca parents: 2111 diff changeset	3864
c4cd07f21fac processing mnemonic's (search next from current) ca parents: 2111 diff changeset	3865	maxDepth <= 0 ifTrue:[^ nil].
c4cd07f21fac processing mnemonic's (search next from current) ca parents: 2111 diff changeset	3866
c4cd07f21fac processing mnemonic's (search next from current) ca parents: 2111 diff changeset	3867	start := aStart max:1.
c4cd07f21fac processing mnemonic's (search next from current) ca parents: 2111 diff changeset	3868	stop := aStop min:(items size).
c4cd07f21fac processing mnemonic's (search next from current) ca parents: 2111 diff changeset	3869
2199 61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	3870	start to:stop do:[:i\| \|item menu seq isItem test\|
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	3871	item := items at:i.
93426020ceed * empty log message * ca parents: 2216 diff changeset	3872	test := isItem := aOneArgBlock value:item.
93426020ceed * empty log message * ca parents: 2216 diff changeset	3873
93426020ceed * empty log message * ca parents: 2216 diff changeset	3874	test ifFalse:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	3875	item hasSubmenu ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	3876	test := item hasDelayedMenu not
93426020ceed * empty log message * ca parents: 2216 diff changeset	3877	]
93426020ceed * empty log message * ca parents: 2216 diff changeset	3878	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	3879	test ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	3880	(item enabled and:[item isVisible]) ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	3881	isItem ifTrue:[ ^ OrderedCollection with:i ].
93426020ceed * empty log message * ca parents: 2216 diff changeset	3882
93426020ceed * empty log message * ca parents: 2216 diff changeset	3883	"process submenu"
93426020ceed * empty log message * ca parents: 2216 diff changeset	3884	menu := item submenu.
93426020ceed * empty log message * ca parents: 2216 diff changeset	3885
93426020ceed * empty log message * ca parents: 2216 diff changeset	3886	(menu notNil and:[menu isEnabled]) ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	3887	seq := menu selectItemIndicesFor:aOneArgBlock maxDepth:(maxDepth - 1).
93426020ceed * empty log message * ca parents: 2216 diff changeset	3888	seq notNil ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	3889	seq addFirst:i.
93426020ceed * empty log message * ca parents: 2216 diff changeset	3890	^ seq
93426020ceed * empty log message * ca parents: 2216 diff changeset	3891	]
93426020ceed * empty log message * ca parents: 2216 diff changeset	3892	]
93426020ceed * empty log message * ca parents: 2216 diff changeset	3893	]
93426020ceed * empty log message * ca parents: 2216 diff changeset	3894	].
1878 1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3895	].
1889 43516e4588ce give warning messages for unimplemented menu-aspects Claus Gittinger <cg@exept.de> parents: 1878 diff changeset	3896	^ nil
43516e4588ce give warning messages for unimplemented menu-aspects Claus Gittinger <cg@exept.de> parents: 1878 diff changeset	3897	! !
1878 1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3898
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3899	!MenuPanel methodsFor:'misc'!
dce33f8bb806 intitial checkin ca parents: diff changeset	3900
427 82cbad72e197 raiseDeiconified is treated like a raise Claus Gittinger <cg@exept.de> parents: 420 diff changeset	3901	raiseDeiconified
82cbad72e197 raiseDeiconified is treated like a raise Claus Gittinger <cg@exept.de> parents: 420 diff changeset	3902	^ self raise
82cbad72e197 raiseDeiconified is treated like a raise Claus Gittinger <cg@exept.de> parents: 420 diff changeset	3903
82cbad72e197 raiseDeiconified is treated like a raise Claus Gittinger <cg@exept.de> parents: 420 diff changeset	3904	"Created: 21.6.1997 / 13:29:12 / cg"
82cbad72e197 raiseDeiconified is treated like a raise Claus Gittinger <cg@exept.de> parents: 420 diff changeset	3905	!
82cbad72e197 raiseDeiconified is treated like a raise Claus Gittinger <cg@exept.de> parents: 420 diff changeset	3906
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3907	superMenu
dce33f8bb806 intitial checkin ca parents: diff changeset	3908	"returns supermenu or nil
dce33f8bb806 intitial checkin ca parents: diff changeset	3909	"
dce33f8bb806 intitial checkin ca parents: diff changeset	3910	^ superMenu
dce33f8bb806 intitial checkin ca parents: diff changeset	3911
dce33f8bb806 intitial checkin ca parents: diff changeset	3912
dce33f8bb806 intitial checkin ca parents: diff changeset	3913	!
dce33f8bb806 intitial checkin ca parents: diff changeset	3914
dce33f8bb806 intitial checkin ca parents: diff changeset	3915	topMenu
dce33f8bb806 intitial checkin ca parents: diff changeset	3916	"returns the topMenu; the one having no superMenu
dce33f8bb806 intitial checkin ca parents: diff changeset	3917	"
1791 bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	3918	\|menu smenu\|
bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	3919
bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	3920	menu := self.
bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	3921
bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	3922	[(smenu := menu superMenu) notNil] whileTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	3923	menu := smenu
1791 bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	3924	].
bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	3925	^ menu
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3926	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	3927
1825 962390f1b499 category change Claus Gittinger <cg@exept.de> parents: 1824 diff changeset	3928	!MenuPanel methodsFor:'printing & storing'!
798 74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	3929
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	3930	printString
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	3931	"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	3932	"
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	3933	\|string label\|
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	3934
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	3935	string := 'Menu:'.
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	3936
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	3937	self do:[:anItem\|
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	3938	label := anItem label ? ''.
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	3939	string := string ,' ', label printString.
798 74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	3940	].
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	3941	^ string
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	3942
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	3943	"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	3944	! !
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	3945
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3946	!MenuPanel methodsFor:'private'!
dce33f8bb806 intitial checkin ca parents: diff changeset	3947
434 9898a2909ef0 add active help for items ca parents: 433 diff changeset	3948	application
1613 5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	3949	"optimize access to retrive the application
5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	3950	"
1921 f3f120d43849 oops - handle query for application, when view is already closed. Claus Gittinger <cg@exept.de> parents: 1919 diff changeset	3951	\|appl akey w views\|
434 9898a2909ef0 add active help for items ca parents: 433 diff changeset	3952
9898a2909ef0 add active help for items ca parents: 433 diff changeset	3953	superMenu notNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	3954	^ superMenu application
1613 5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	3955	].
1870 ba2f5f6b5005 avoid recursive runaway in #applciation ca parents: 1864 diff changeset	3956
1613 5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	3957	akey := #appl.
5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	3958	appl := self menuAdornmentAt:akey.
5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	3959
5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	3960	appl isNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	3961	(appl := super application) isNil ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	3962	windowGroup isNil ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	3963	^ nil "/ RETRY LATER
93426020ceed * empty log message * ca parents: 2216 diff changeset	3964	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	3965	views := windowGroup mainGroup topViews.
93426020ceed * empty log message * ca parents: 2216 diff changeset	3966	views size == 0 ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	3967	^ nil "/ RETRY LATER
93426020ceed * empty log message * ca parents: 2216 diff changeset	3968	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	3969	w := views first.
93426020ceed * empty log message * ca parents: 2216 diff changeset	3970	w == self ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	3971	thisContext isRecursive ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	3972	self error:'recursive application query'
93426020ceed * empty log message * ca parents: 2216 diff changeset	3973	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	3974	"/ appl := akey
93426020ceed * empty log message * ca parents: 2216 diff changeset	3975	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	3976	appl := (w application) ? akey.
93426020ceed * empty log message * ca parents: 2216 diff changeset	3977	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	3978	self menuAdornmentAt:akey put:appl
1613 5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	3979	].
1872 b20e27632fd8 application fetch fix Claus Gittinger <cg@exept.de> parents: 1870 diff changeset	3980	^ appl ~~ akey ifTrue:[appl] ifFalse:[nil]
b20e27632fd8 application fetch fix Claus Gittinger <cg@exept.de> parents: 1870 diff changeset	3981	!
434 9898a2909ef0 add active help for items ca parents: 433 diff changeset	3982
1572 80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	3983	detectItemForKey:aKey
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	3984	"returns the item assigned to a key, accessCharacter or starts with.
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	3985	if no item is detected nil is returned.
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	3986	"
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	3987	\|cIdx uKey lKey item\|
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	3988
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3989	items isNil ifTrue:[^ nil].
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3990
1572 80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	3991	cIdx := self selectionIndex.
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	3992	uKey := aKey asUppercase.
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	3993	lKey := aKey asLowercase.
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	3994
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3995	items keysAndValuesDo:[:anIndex :anItem\| \|char label\|
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	3996	( anIndex ~~ cIdx
93426020ceed * empty log message * ca parents: 2216 diff changeset	3997	and:[anItem canSelect
93426020ceed * empty log message * ca parents: 2216 diff changeset	3998	and:[(label := anItem textLabel) notNil
93426020ceed * empty log message * ca parents: 2216 diff changeset	3999	and:[label size ~~ 0]]]
93426020ceed * empty log message * ca parents: 2216 diff changeset	4000	) ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	4001	(char := anItem accessCharacter) notNil ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	4002	(char == uKey or:[char == lKey]) ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	4003	^ anItem
93426020ceed * empty log message * ca parents: 2216 diff changeset	4004	]
93426020ceed * empty log message * ca parents: 2216 diff changeset	4005	] ifFalse:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	4006	char := label at:1.
93426020ceed * empty log message * ca parents: 2216 diff changeset	4007
93426020ceed * empty log message * ca parents: 2216 diff changeset	4008	(char == uKey or:[char == lKey]) ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	4009	anIndex > cIdx ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	4010	^ anItem
93426020ceed * empty log message * ca parents: 2216 diff changeset	4011	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	4012	item isNil ifTrue:[item := anItem]
93426020ceed * empty log message * ca parents: 2216 diff changeset	4013	]
93426020ceed * empty log message * ca parents: 2216 diff changeset	4014	]
93426020ceed * empty log message * ca parents: 2216 diff changeset	4015	]
1572 80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	4016	].
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	4017	^ item
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	4018	!
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	4019
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	4020	menuAdornmentAt:aSymbol
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4021	"returns a value derived from adornment
dce33f8bb806 intitial checkin ca parents: diff changeset	4022	"
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	4023	\|adm\|
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	4024
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	4025	adm := adornment ? DefaultAdornment.
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	4026	^ adm at:aSymbol ifAbsent:nil
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4027	!
dce33f8bb806 intitial checkin ca parents: diff changeset	4028
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	4029	menuAdornmentAt:aSymbol put:something
653 cf9b6ef11ade bug fix; no automatic rearrange of items ca parents: 650 diff changeset	4030	"sets a value for the specific menu; if the value differs to the
cf9b6ef11ade bug fix; no automatic rearrange of items ca parents: 650 diff changeset	4031	current stored value, true is returned otherwise false
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4032	"
653 cf9b6ef11ade bug fix; no automatic rearrange of items ca parents: 650 diff changeset	4033	(self menuAdornmentAt:aSymbol) == something ifTrue:[
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	4034	^ false
653 cf9b6ef11ade bug fix; no automatic rearrange of items ca parents: 650 diff changeset	4035	].
cf9b6ef11ade bug fix; no automatic rearrange of items ca parents: 650 diff changeset	4036	adornment isNil ifTrue:[
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	4037	adornment := DefaultAdornment copy
653 cf9b6ef11ade bug fix; no automatic rearrange of items ca parents: 650 diff changeset	4038	].
cf9b6ef11ade bug fix; no automatic rearrange of items ca parents: 650 diff changeset	4039	adornment at:aSymbol put:something.
cf9b6ef11ade bug fix; no automatic rearrange of items ca parents: 650 diff changeset	4040	^ true
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4041	!
dce33f8bb806 intitial checkin ca parents: diff changeset	4042
dce33f8bb806 intitial checkin ca parents: diff changeset	4043	onEachPerform:aSelector withArgList:aList
dce33f8bb806 intitial checkin ca parents: diff changeset	4044	"on each item perform selector with an argument derived from aList
dce33f8bb806 intitial checkin ca parents: diff changeset	4045	"
dce33f8bb806 intitial checkin ca parents: diff changeset	4046	aList isCollection ifTrue:[
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	4047	items size >= aList size ifTrue:[
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	4048	aList keysAndValuesDo:[:anIndex :anArg\|
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	4049	(items at:anIndex) perform:aSelector with:anArg
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	4050	]
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	4051	]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4052	] ifFalse:[
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	4053	self do:[:anItem\| anItem perform:aSelector with:aList ]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4054	]
dce33f8bb806 intitial checkin ca parents: diff changeset	4055
dce33f8bb806 intitial checkin ca parents: diff changeset	4056
dce33f8bb806 intitial checkin ca parents: diff changeset	4057	!
dce33f8bb806 intitial checkin ca parents: diff changeset	4058
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	4059	registerImageOnDevice:anImage
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	4060	\|image\|
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	4061
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	4062	(image := anImage) notNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	4063	image device ~~ device ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	4064	image := image copy.
93426020ceed * empty log message * ca parents: 2216 diff changeset	4065	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	4066	image := image onDevice:device.
93426020ceed * empty log message * ca parents: 2216 diff changeset	4067	image := image clearMaskedPixels.
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	4068	].
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	4069	^ image
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4070	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	4071
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	4072	!MenuPanel methodsFor:'private-activation'!
687 23ce9888d76f bug fixes: ca parents: 681 diff changeset	4073
798 74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4074	activeMenu
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4075	"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	4076	"
687 23ce9888d76f bug fixes: ca parents: 681 diff changeset	4077	^ lastActiveMenu ? self
23ce9888d76f bug fixes: ca parents: 681 diff changeset	4078
798 74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4079	"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	4080	!
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4081
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4082	activeMenu:aMenu
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4083	"set the current active menu
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4084	"
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4085	lastActiveMenu := aMenu
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4086
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4087	"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	4088	!
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4089
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4090	becomesActiveMenu
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4091	"submenu becomes the active menu
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4092	"
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4093	mapTime := Time millisecondClockValue.
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4094	self topMenu activeMenu:self.
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4095
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4096	"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	4097	!
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4098
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4099	clearLastActiveMenu
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4100	"reset the current active menu
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4101	"
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4102	\|top\|
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4103
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4104	top := self topMenu.
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4105
1612 42e2fce5a1f9 set focus back ca parents: 1610 diff changeset	4106	prevFocusView notNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	4107	self windowGroup focusView:prevFocusView.
93426020ceed * empty log message * ca parents: 2216 diff changeset	4108	prevFocusView := nil.
1612 42e2fce5a1f9 set focus back ca parents: 1610 diff changeset	4109	].
42e2fce5a1f9 set focus back ca parents: 1610 diff changeset	4110
798 74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4111	top activeMenu == self ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	4112	top activeMenu:nil
687 23ce9888d76f bug fixes: ca parents: 681 diff changeset	4113	]
23ce9888d76f bug fixes: ca parents: 681 diff changeset	4114
798 74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4115	"Created: / 27.2.1998 / 17:41:17 / cg"
687 23ce9888d76f bug fixes: ca parents: 681 diff changeset	4116	!
23ce9888d76f bug fixes: ca parents: 681 diff changeset	4117
23ce9888d76f bug fixes: ca parents: 681 diff changeset	4118	mapTime
798 74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4119	"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	4120	"
687 23ce9888d76f bug fixes: ca parents: 681 diff changeset	4121	^ mapTime
798 74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4122
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4123	"Modified: / 27.2.1998 / 17:41:18 / cg"
687 23ce9888d76f bug fixes: ca parents: 681 diff changeset	4124	! !
23ce9888d76f bug fixes: ca parents: 681 diff changeset	4125
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	4126	!MenuPanel methodsFor:'private-scrolling'!
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4127
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4128	hasScrollerAt:aDirection
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4129	"returns true if a visible scroller at a direction exists
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4130	"
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4131	\|layout\|
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4132
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4133	self hasScrollers ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	4134	^ false
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4135	].
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4136
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4137	aDirection == #PREV ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	4138	layout := items first layout.
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4139
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4140	^ self verticalLayout ifTrue:[ layout top < margin]
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	4141	ifFalse:[ layout left < margin]
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4142	].
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4143	layout := items last layout.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4144
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4145	^ self verticalLayout ifTrue:[ layout bottom > (height - margin)]
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	4146	ifFalse:[ layout right > (width - margin)]
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4147	!
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4148
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4149	hasScrollers
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4150	"returns true if scrollers are needed
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4151	"
2018 2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4152	\|maxExtent first last isVert\|
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4153
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4154	(mustRearrange or:[items size < 2]) ifTrue:[^ false].
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4155
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4156	isVert := self verticalLayout.
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4157
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4158	superView notNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	4159	( (first := items first layout) isNil
93426020ceed * empty log message * ca parents: 2216 diff changeset	4160	or:[(last := items last layout) isNil]
93426020ceed * empty log message * ca parents: 2216 diff changeset	4161	) ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	4162	^ false
93426020ceed * empty log message * ca parents: 2216 diff changeset	4163	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	4164	isVert ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	4165	^ first top < 0 or:[last bottom > height]
93426020ceed * empty log message * ca parents: 2216 diff changeset	4166	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	4167	^ first left < 0 or:[last right > width]
2018 2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4168	].
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4169	maxExtent := self maxExtent.
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4170
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4171	isVert ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	4172	^ (height < maxExtent y) not
2018 2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4173	].
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4174	^ (width < maxExtent x) not
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4175	!
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4176
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4177	indexOfItemAtScroller:aDirection
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4178	"returns the index of the item under the scroller or 0
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4179	"
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4180	\|bounds min max layout\|
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4181
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4182	bounds := self scrollerBoundsAt:aDirection.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4183
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4184	bounds isNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	4185	^ 0
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4186	].
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4187
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4188	self verticalLayout ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	4189	min := bounds top.
93426020ceed * empty log message * ca parents: 2216 diff changeset	4190	max := bounds bottom.
93426020ceed * empty log message * ca parents: 2216 diff changeset	4191
93426020ceed * empty log message * ca parents: 2216 diff changeset	4192	items keysAndValuesDo:[:anIndex :anItem\|
93426020ceed * empty log message * ca parents: 2216 diff changeset	4193	anItem isVisible ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	4194	layout := anItem layout.
93426020ceed * empty log message * ca parents: 2216 diff changeset	4195
93426020ceed * empty log message * ca parents: 2216 diff changeset	4196	(layout top < max and:[layout bottom > min]) ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	4197	^ anIndex
93426020ceed * empty log message * ca parents: 2216 diff changeset	4198	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	4199	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	4200	].
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4201	] ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	4202	min := bounds left.
93426020ceed * empty log message * ca parents: 2216 diff changeset	4203	max := bounds right.
93426020ceed * empty log message * ca parents: 2216 diff changeset	4204
93426020ceed * empty log message * ca parents: 2216 diff changeset	4205	items keysAndValuesDo:[:anIndex :anItem\|
93426020ceed * empty log message * ca parents: 2216 diff changeset	4206	anItem isVisible ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	4207	layout := anItem layout.
93426020ceed * empty log message * ca parents: 2216 diff changeset	4208
93426020ceed * empty log message * ca parents: 2216 diff changeset	4209	(layout left < max and:[layout right > min]) ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	4210	^ anIndex
93426020ceed * empty log message * ca parents: 2216 diff changeset	4211	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	4212	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	4213	]
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4214	].
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4215	^ 0
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4216	!
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4217
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4218	makeItemVisible:anItem
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4219	"make an item visible
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4220	"
2018 2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4221	\|boundsPREV boundsNEXT delta layout index scr0 scr1 windowSz scrSz doScroll
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4222	isVertical boundsMin layoutMin boundsMax layoutMax dltOrg
2042 cc2141b4117f checkin from browser Claus Gittinger <cg@exept.de> parents: 2041 diff changeset	4223	inv1 inv2\|
2018 2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4224
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4225	( anItem notNil
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4226	and:[self hasScrollers
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4227	and:[(layout := anItem layout) notNil]]
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4228	) ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	4229	^ self
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4230	].
2018 2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4231	index := self indexOfItem:anItem.
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4232	boundsPREV := self scrollerBoundsAt:#PREV.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4233	boundsNEXT := self scrollerBoundsAt:#NEXT.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4234
2018 2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4235	isVertical := self verticalLayout.
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4236
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4237	isVertical ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	4238	boundsMin := boundsPREV bottom.
93426020ceed * empty log message * ca parents: 2216 diff changeset	4239	boundsMax := boundsNEXT top.
93426020ceed * empty log message * ca parents: 2216 diff changeset	4240	layoutMin := layout top.
93426020ceed * empty log message * ca parents: 2216 diff changeset	4241	layoutMax := layout bottom.
93426020ceed * empty log message * ca parents: 2216 diff changeset	4242	windowSz := height.
2018 2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4243	] ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	4244	boundsMin := boundsPREV right.
93426020ceed * empty log message * ca parents: 2216 diff changeset	4245	boundsMax := boundsNEXT left.
93426020ceed * empty log message * ca parents: 2216 diff changeset	4246	layoutMin := layout left.
93426020ceed * empty log message * ca parents: 2216 diff changeset	4247	layoutMax := layout right.
93426020ceed * empty log message * ca parents: 2216 diff changeset	4248	windowSz := width.
2018 2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4249	].
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4250
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4251
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4252	layoutMin < boundsMin ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	4253	layoutMin >= 0 ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	4254	^ self
93426020ceed * empty log message * ca parents: 2216 diff changeset	4255	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	4256	"/ test whether is first visible item
93426020ceed * empty log message * ca parents: 2216 diff changeset	4257	index := items findLast:[:el\| el isVisible] startingAt:(index - 1).
93426020ceed * empty log message * ca parents: 2216 diff changeset	4258
93426020ceed * empty log message * ca parents: 2216 diff changeset	4259	index == 0 ifTrue:[ scr0 := margin ]
93426020ceed * empty log message * ca parents: 2216 diff changeset	4260	ifFalse:[ scr0 := boundsMin ].
93426020ceed * empty log message * ca parents: 2216 diff changeset	4261
93426020ceed * empty log message * ca parents: 2216 diff changeset	4262	delta := layoutMin negated + scr0.
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4263	] ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	4264	layoutMax > boundsMax ifFalse:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	4265	^ self
93426020ceed * empty log message * ca parents: 2216 diff changeset	4266	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	4267	"/ test whether is last visible item
93426020ceed * empty log message * ca parents: 2216 diff changeset	4268	index := items findFirst:[:el\| el isVisible ] startingAt:(index + 1).
93426020ceed * empty log message * ca parents: 2216 diff changeset	4269
93426020ceed * empty log message * ca parents: 2216 diff changeset	4270	index == 0 ifTrue:[ scr0 := windowSz - margin ]
93426020ceed * empty log message * ca parents: 2216 diff changeset	4271	ifFalse:[ scr0 := boundsMax ].
93426020ceed * empty log message * ca parents: 2216 diff changeset	4272
93426020ceed * empty log message * ca parents: 2216 diff changeset	4273	delta := scr0 - layoutMax.
2018 2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4274	].
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4275	delta == 0 ifTrue:[ ^ self ].
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4276
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4277	doScroll := false.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4278
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4279	shown ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	4280	delta abs < (windowSz / 2) ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	4281	doScroll := true.
93426020ceed * empty log message * ca parents: 2216 diff changeset	4282	self repairDamage
93426020ceed * empty log message * ca parents: 2216 diff changeset	4283	]
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4284	].
2018 2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4285	isVertical ifTrue:[ dltOrg := 0@delta ] ifFalse:[dltOrg := delta@0].
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4286	items do:[:el\| el moveBy:dltOrg ].
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4287
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4288	doScroll ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	4289	^ self invalidate
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4290	].
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4291
2018 2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4292	windowSz := windowSz - margin - margin.
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4293
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4294	scr0 := boundsMin.
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4295	scr1 := scr0 + delta abs.
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4296	scrSz := boundsMax - scr1.
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4297
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4298	delta < 0 ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	4299	isVertical ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	4300	self copyFrom:self x:margin y:scr1 toX:margin y:scr0
93426020ceed * empty log message * ca parents: 2216 diff changeset	4301	width:windowSz height:scrSz async:false.
93426020ceed * empty log message * ca parents: 2216 diff changeset	4302
93426020ceed * empty log message * ca parents: 2216 diff changeset	4303	scr1 := scr0 + scrSz.
93426020ceed * empty log message * ca parents: 2216 diff changeset	4304	inv2 := (margin @ scr1) extent:(windowSz @ (height - scr1 - margin)).
93426020ceed * empty log message * ca parents: 2216 diff changeset	4305	"/ self invalidateX:margin y:scr1 width:windowSz height:(height - scr1 - margin).
93426020ceed * empty log message * ca parents: 2216 diff changeset	4306	] ifFalse:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	4307	self copyFrom:self x:scr1 y:margin toX:scr0 y:margin
93426020ceed * empty log message * ca parents: 2216 diff changeset	4308	width:scrSz height:windowSz async:false.
93426020ceed * empty log message * ca parents: 2216 diff changeset	4309
93426020ceed * empty log message * ca parents: 2216 diff changeset	4310	scr1 := scr0 + scrSz.
93426020ceed * empty log message * ca parents: 2216 diff changeset	4311	inv2 := (scr1 @ margin) extent:((width - scr1 - margin) @ windowSz).
93426020ceed * empty log message * ca parents: 2216 diff changeset	4312	"/ self invalidateX:scr1 y:margin width:(width - scr1 - margin) height:windowSz.
93426020ceed * empty log message * ca parents: 2216 diff changeset	4313	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	4314	inv1 := boundsPREV.
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4315	] ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	4316	isVertical ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	4317	self copyFrom:self x:margin y:scr0 toX:margin y:scr1
93426020ceed * empty log message * ca parents: 2216 diff changeset	4318	width:windowSz height:scrSz async:false.
93426020ceed * empty log message * ca parents: 2216 diff changeset	4319
93426020ceed * empty log message * ca parents: 2216 diff changeset	4320	inv2 := (margin @ margin) extent:(windowSz @ (scr1 - margin)).
93426020ceed * empty log message * ca parents: 2216 diff changeset	4321	"/ self invalidateX:margin y:margin width:windowSz height:scr1 - margin.
93426020ceed * empty log message * ca parents: 2216 diff changeset	4322	] ifFalse:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	4323	self copyFrom:self x:scr0 y:margin toX:scr1 y:margin
93426020ceed * empty log message * ca parents: 2216 diff changeset	4324	width:scrSz height:windowSz async:false.
93426020ceed * empty log message * ca parents: 2216 diff changeset	4325
93426020ceed * empty log message * ca parents: 2216 diff changeset	4326	inv2 := (margin @ margin) extent:(scr1 - margin) @ windowSz.
93426020ceed * empty log message * ca parents: 2216 diff changeset	4327	"/ self invalidateX:margin y:margin width:scr1 - margin height:windowSz.
93426020ceed * empty log message * ca parents: 2216 diff changeset	4328	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	4329	inv1 := boundsNEXT.
2042 cc2141b4117f checkin from browser Claus Gittinger <cg@exept.de> parents: 2041 diff changeset	4330	].
cc2141b4117f checkin from browser Claus Gittinger <cg@exept.de> parents: 2041 diff changeset	4331	self invalidate:inv1.
cc2141b4117f checkin from browser Claus Gittinger <cg@exept.de> parents: 2041 diff changeset	4332	self invalidate:inv2.
2048 ba472f3f46c7 code cleanup Claus Gittinger <cg@exept.de> parents: 2047 diff changeset	4333
ba472f3f46c7 code cleanup Claus Gittinger <cg@exept.de> parents: 2047 diff changeset	4334	"Modified: / 13.11.2001 / 20:26:42 / cg"
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4335	!
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4336
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	4337	scrollActivity
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	4338	"returns the one and only scrollActivity - data holder
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	4339	for a menu and all contained submenus
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	4340	"
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	4341	superMenu notNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	4342	^ superMenu scrollActivity
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	4343	].
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	4344	scrollActivity isNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	4345	scrollActivity := ScrollActivity new.
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	4346	].
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	4347	^ scrollActivity
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	4348	!
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	4349
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4350	scrollerBoundsAt:aDirection
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4351	"returns the bounds of the scroller at a direction or nil
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4352	"
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4353	\|y x w h inset\|
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4354
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4355	self hasScrollers ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	4356	^ nil
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4357	].
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4358	inset := 0.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4359	x := y := inset.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4360	w := h := 15.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4361
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4362	self verticalLayout ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	4363	aDirection == #NEXT ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	4364	y := height - h - inset.
93426020ceed * empty log message * ca parents: 2216 diff changeset	4365	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	4366	w := width - inset - inset.
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4367	] ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	4368	aDirection == #NEXT ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	4369	x := width - w - inset.
93426020ceed * empty log message * ca parents: 2216 diff changeset	4370	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	4371	h := height - inset - inset.
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4372	].
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4373	^ Rectangle left:x top:y width:w height:h
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4374	!
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4375
2046 012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	4376	scrollerDirectionAtPoint:aPoint
012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	4377	"returns the scroller-direction at aPoint, or nil
012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	4378	"
012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	4379	self hasScrollers ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	4380	#( PREV NEXT ) do:[:aDirection\| \|bounds\|
93426020ceed * empty log message * ca parents: 2216 diff changeset	4381	( (bounds := self scrollerBoundsAt:aDirection) notNil
93426020ceed * empty log message * ca parents: 2216 diff changeset	4382	and:[bounds containsPoint:aPoint]
93426020ceed * empty log message * ca parents: 2216 diff changeset	4383	) ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	4384	^ (self hasScrollerAt:aDirection) ifTrue:[aDirection] ifFalse:[nil]
93426020ceed * empty log message * ca parents: 2216 diff changeset	4385	]
93426020ceed * empty log message * ca parents: 2216 diff changeset	4386	]
2046 012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	4387	].
012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	4388	^ nil
012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	4389
012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	4390	"Created: / 13.11.2001 / 14:13:16 / cg"
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4391	! !
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4392
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	4393	!MenuPanel methodsFor:'private-searching'!
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4394
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4395	detectGrabMenu
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4396	"returns the menu which is responsible for the grap; the last opened menu
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4397	"
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4398	\|subMenu\|
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4399
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4400	selection notNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	4401	(subMenu := selection visibleSubmenu) notNil ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	4402	^ subMenu detectGrabMenu
93426020ceed * empty log message * ca parents: 2216 diff changeset	4403	]
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4404	].
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4405	^ self
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4406	!
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4407
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4408	detectMenuAtGrabPoint:aGrabPoint
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4409	"returns the menu which contains the grab-point
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4410	"
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4411	\|dstMenu dstPoint firstMenu\|
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4412
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4413	dstPoint := self translateGrabPoint:aGrabPoint.
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4414
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4415	((dstPoint x between:0 and:width) and:[dstPoint y between:0 and:height]) ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	4416	firstMenu := self.
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4417	].
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4418
1786 f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	4419	(selection isNil or:[(dstMenu := selection visibleSubmenu) isNil]) ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	4420	^ firstMenu
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4421	].
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4422	dstMenu := dstMenu detectMenuAtGrabPoint:aGrabPoint.
2059 c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	4423	^ dstMenu ? firstMenu
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4424	!
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4425
1767 e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	4426	detectViewAtX:x y:y in:aTopView
1922 1a2ab52eb2ab bug fix in #detectViewAtX:y:in: ca parents: 1921 diff changeset	4427	"detect view at x@y
1a2ab52eb2ab bug fix in #detectViewAtX:y:in: ca parents: 1921 diff changeset	4428	"
2020 1f1868eba475 extracted common code to detectViewAt:aPoint. Claus Gittinger <cg@exept.de> parents: 2018 diff changeset	4429	^ aTopView detectViewAt:(x@y).
1f1868eba475 extracted common code to detectViewAt:aPoint. Claus Gittinger <cg@exept.de> parents: 2018 diff changeset	4430
1f1868eba475 extracted common code to detectViewAt:aPoint. Claus Gittinger <cg@exept.de> parents: 2018 diff changeset	4431	"/ 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	4432	"/
1f1868eba475 extracted common code to detectViewAt:aPoint. Claus Gittinger <cg@exept.de> parents: 2018 diff changeset	4433	"/ \|p subViews\|
1f1868eba475 extracted common code to detectViewAt:aPoint. Claus Gittinger <cg@exept.de> parents: 2018 diff changeset	4434	"/
1f1868eba475 extracted common code to detectViewAt:aPoint. Claus Gittinger <cg@exept.de> parents: 2018 diff changeset	4435	"/ (subViews := aTopView subViews) notNil ifTrue:[
1f1868eba475 extracted common code to detectViewAt:aPoint. Claus Gittinger <cg@exept.de> parents: 2018 diff changeset	4436	"/ subViews do:[:v\| \|p\|
1f1868eba475 extracted common code to detectViewAt:aPoint. Claus Gittinger <cg@exept.de> parents: 2018 diff changeset	4437	"/ v shown ifTrue:[
1f1868eba475 extracted common code to detectViewAt:aPoint. Claus Gittinger <cg@exept.de> parents: 2018 diff changeset	4438	"/ ( (x between:(v left) and:(v right))
1f1868eba475 extracted common code to detectViewAt:aPoint. Claus Gittinger <cg@exept.de> parents: 2018 diff changeset	4439	"/ and:[y between:(v top) and:(v bottom)]
1f1868eba475 extracted common code to detectViewAt:aPoint. Claus Gittinger <cg@exept.de> parents: 2018 diff changeset	4440	"/ ) ifTrue:[
1f1868eba475 extracted common code to detectViewAt:aPoint. Claus Gittinger <cg@exept.de> parents: 2018 diff changeset	4441	"/ 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	4442	"/ ^ 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	4443	"/ ]
1f1868eba475 extracted common code to detectViewAt:aPoint. Claus Gittinger <cg@exept.de> parents: 2018 diff changeset	4444	"/ ]
1f1868eba475 extracted common code to detectViewAt:aPoint. Claus Gittinger <cg@exept.de> parents: 2018 diff changeset	4445	"/ ]
1f1868eba475 extracted common code to detectViewAt:aPoint. Claus Gittinger <cg@exept.de> parents: 2018 diff changeset	4446	"/ ].
1f1868eba475 extracted common code to detectViewAt:aPoint. Claus Gittinger <cg@exept.de> parents: 2018 diff changeset	4447	"/ ^ aTopView
1f1868eba475 extracted common code to detectViewAt:aPoint. Claus Gittinger <cg@exept.de> parents: 2018 diff changeset	4448
1f1868eba475 extracted common code to detectViewAt:aPoint. Claus Gittinger <cg@exept.de> parents: 2018 diff changeset	4449	"Modified: / 10.10.2001 / 13:45:56 / cg"
1767 e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	4450	!
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	4451
2046 012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	4452	itemAtPoint:aPoint
012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	4453	"returns the item at a point x@y or nil if none detected
012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	4454	"
012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	4455	items notNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	4456	^ items detect:[:el\| el containsPoint:aPoint] ifNone:nil
2046 012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	4457	].
012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	4458	^ nil
012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	4459
012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	4460	"Created: / 13.11.2001 / 13:58:23 / cg"
012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	4461	!
012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	4462
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4463	itemAtX:x y:y
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4464	"returns the item at a point x@y or nil if none detected
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4465	"
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4466	items notNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	4467	^ items detect:[:el\| el containsPointX:x y:y] ifNone:nil
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4468	].
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4469	^ nil
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4470	!
dce33f8bb806 intitial checkin ca parents: diff changeset	4471
2048 ba472f3f46c7 code cleanup Claus Gittinger <cg@exept.de> parents: 2047 diff changeset	4472	superMenuAtPoint:aPoint
ba472f3f46c7 code cleanup Claus Gittinger <cg@exept.de> parents: 2047 diff changeset	4473	"returns the superMenu which contains aPoint, or nil if none detected
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4474	"
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4475	\|grabPoint superMenu\|
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4476
2048 ba472f3f46c7 code cleanup Claus Gittinger <cg@exept.de> parents: 2047 diff changeset	4477	(self containsPoint:aPoint) ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	4478	^ self
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4479	].
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4480
2048 ba472f3f46c7 code cleanup Claus Gittinger <cg@exept.de> parents: 2047 diff changeset	4481	grabPoint := aPoint - (self translateGrabPoint:0).
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4482	superMenu := self.
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4483
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4484	[ (superMenu := superMenu superMenu) notNil ] whileTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	4485	(superMenu containsPoint:(superMenu translateGrabPoint:grabPoint)) ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	4486	^ superMenu
93426020ceed * empty log message * ca parents: 2216 diff changeset	4487	]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4488	].
dce33f8bb806 intitial checkin ca parents: diff changeset	4489	^ nil
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4490
2048 ba472f3f46c7 code cleanup Claus Gittinger <cg@exept.de> parents: 2047 diff changeset	4491	"Created: / 13.11.2001 / 20:22:53 / cg"
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4492	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	4493
dce33f8bb806 intitial checkin ca parents: diff changeset	4494	!MenuPanel methodsFor:'queries'!
dce33f8bb806 intitial checkin ca parents: diff changeset	4495
2003 732fbaf5864f avoid changing the level after realization (to avoid confusing the shadow) Claus Gittinger <cg@exept.de> parents: 2000 diff changeset	4496	container:aView
732fbaf5864f avoid changing the level after realization (to avoid confusing the shadow) Claus Gittinger <cg@exept.de> parents: 2000 diff changeset	4497	super container:aView.
732fbaf5864f avoid changing the level after realization (to avoid confusing the shadow) Claus Gittinger <cg@exept.de> parents: 2000 diff changeset	4498	aView notNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	4499	"/ I am no longer a popUpView
93426020ceed * empty log message * ca parents: 2216 diff changeset	4500	self updateLevelAndBorder
2003 732fbaf5864f avoid changing the level after realization (to avoid confusing the shadow) Claus Gittinger <cg@exept.de> parents: 2000 diff changeset	4501	].
732fbaf5864f avoid changing the level after realization (to avoid confusing the shadow) Claus Gittinger <cg@exept.de> parents: 2000 diff changeset	4502	!
732fbaf5864f avoid changing the level after realization (to avoid confusing the shadow) Claus Gittinger <cg@exept.de> parents: 2000 diff changeset	4503
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4504	containsPoint:aPoint
dce33f8bb806 intitial checkin ca parents: diff changeset	4505	"returns true if point is contained by the view
dce33f8bb806 intitial checkin ca parents: diff changeset	4506	"
dce33f8bb806 intitial checkin ca parents: diff changeset	4507	^ self containsPointX:(aPoint x) y:(aPoint y)
dce33f8bb806 intitial checkin ca parents: diff changeset	4508	!
dce33f8bb806 intitial checkin ca parents: diff changeset	4509
dce33f8bb806 intitial checkin ca parents: diff changeset	4510	containsPointX:x y:y
dce33f8bb806 intitial checkin ca parents: diff changeset	4511	"returns true if point is contained by the view
dce33f8bb806 intitial checkin ca parents: diff changeset	4512	"
708 245b1aa06151 checkin from browser Claus Gittinger <cg@exept.de> parents: 706 diff changeset	4513	^ (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	4514
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4515	!
dce33f8bb806 intitial checkin ca parents: diff changeset	4516
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	4517	hasGroupDividerAt:anIndex
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4518	"returns true if a divider is defined at an index
dce33f8bb806 intitial checkin ca parents: diff changeset	4519	"
dce33f8bb806 intitial checkin ca parents: diff changeset	4520	\|i\|
dce33f8bb806 intitial checkin ca parents: diff changeset	4521
dce33f8bb806 intitial checkin ca parents: diff changeset	4522	groupSizes size ~~ 0 ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	4523	i := 0.
93426020ceed * empty log message * ca parents: 2216 diff changeset	4524
93426020ceed * empty log message * ca parents: 2216 diff changeset	4525	groupSizes do:[:t\|
93426020ceed * empty log message * ca parents: 2216 diff changeset	4526	(i := i + t) == anIndex ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	4527	^ true
93426020ceed * empty log message * ca parents: 2216 diff changeset	4528	]
93426020ceed * empty log message * ca parents: 2216 diff changeset	4529	]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4530	].
dce33f8bb806 intitial checkin ca parents: diff changeset	4531	^ false
dce33f8bb806 intitial checkin ca parents: diff changeset	4532
dce33f8bb806 intitial checkin ca parents: diff changeset	4533	!
dce33f8bb806 intitial checkin ca parents: diff changeset	4534
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	4535	hasGroupDividers
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	4536	"returns true if any group divider exists
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	4537	"
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	4538	^ (items size ~~ 0 and:[groupSizes size ~~ 0])
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	4539	!
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	4540
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4541	isEnabled
dce33f8bb806 intitial checkin ca parents: diff changeset	4542	"returns enabled state of menu and items
dce33f8bb806 intitial checkin ca parents: diff changeset	4543	"
dce33f8bb806 intitial checkin ca parents: diff changeset	4544	^ self enabled
dce33f8bb806 intitial checkin ca parents: diff changeset	4545	!
dce33f8bb806 intitial checkin ca parents: diff changeset	4546
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	4547	isFitPanel
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	4548	"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	4549	be fit to the extent of its superView;
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4550	NOT SUPPORTED
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4551	"
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4552	^ false
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	4553	!
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	4554
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4555	isPopUpView
dce33f8bb806 intitial checkin ca parents: diff changeset	4556	"return true if view is a popup view; without decoration
dce33f8bb806 intitial checkin ca parents: diff changeset	4557	and popUp to top immediately
dce33f8bb806 intitial checkin ca parents: diff changeset	4558	"
dce33f8bb806 intitial checkin ca parents: diff changeset	4559	^ superView isNil
dce33f8bb806 intitial checkin ca parents: diff changeset	4560
dce33f8bb806 intitial checkin ca parents: diff changeset	4561
dce33f8bb806 intitial checkin ca parents: diff changeset	4562	!
dce33f8bb806 intitial checkin ca parents: diff changeset	4563
dce33f8bb806 intitial checkin ca parents: diff changeset	4564	isVerticalLayout
dce33f8bb806 intitial checkin ca parents: diff changeset	4565	"returns true if vertical layout otherwise false( horizontal layout )
dce33f8bb806 intitial checkin ca parents: diff changeset	4566	"
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4567	^ self verticalLayout
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4568
dce33f8bb806 intitial checkin ca parents: diff changeset	4569
416 c05874084d4c implement ca parents: 407 diff changeset	4570	!
c05874084d4c implement ca parents: 407 diff changeset	4571
1793 f76529768dd6 keyPress:... check for wrapped view ca parents: 1791 diff changeset	4572	isViewWrapper
2214 8eefad87cf62 drawing delayed menu indicators... first try not yet finished ca parents: 2199 diff changeset	4573	^ items size == 0 and:[subViews size ~~ 0]
1793 f76529768dd6 keyPress:... check for wrapped view ca parents: 1791 diff changeset	4574	!
f76529768dd6 keyPress:... check for wrapped view ca parents: 1791 diff changeset	4575
1786 f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	4576	openMenuOnSelect
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	4577	"returns true if the item should open its menu if selected
93426020ceed * empty log message * ca parents: 2216 diff changeset	4578	"
93426020ceed * empty log message * ca parents: 2216 diff changeset	4579	\|flag\|
93426020ceed * empty log message * ca parents: 2216 diff changeset	4580
93426020ceed * empty log message * ca parents: 2216 diff changeset	4581	flag := self menuAdornmentAt:#openMenuOnSelect.
93426020ceed * empty log message * ca parents: 2216 diff changeset	4582	flag ifNotNil:[^ flag].
93426020ceed * empty log message * ca parents: 2216 diff changeset	4583
93426020ceed * empty log message * ca parents: 2216 diff changeset	4584	^ styleSheet at:#'menu.openOnSelect' default:false
1786 f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	4585	!
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	4586
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	4587	openMenuOnSelect:something
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	4588	^ self menuAdornmentAt:#openMenuOnSelect put:something
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	4589	!
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	4590
2061 faf64f2cd28e * empty log message * Claus Gittinger <cg@exept.de> parents: 2059 diff changeset	4591	select:newSel openMenu:openMenu
faf64f2cd28e * empty log message * Claus Gittinger <cg@exept.de> parents: 2059 diff changeset	4592	\|old\|
faf64f2cd28e * empty log message * Claus Gittinger <cg@exept.de> parents: 2059 diff changeset	4593
faf64f2cd28e * empty log message * Claus Gittinger <cg@exept.de> parents: 2059 diff changeset	4594	old := self menuAdornmentAt:#openMenuOnSelect.
faf64f2cd28e * empty log message * Claus Gittinger <cg@exept.de> parents: 2059 diff changeset	4595	self menuAdornmentAt:#openMenuOnSelect put:openMenu.
faf64f2cd28e * empty log message * Claus Gittinger <cg@exept.de> parents: 2059 diff changeset	4596	self selection:newSel.
faf64f2cd28e * empty log message * Claus Gittinger <cg@exept.de> parents: 2059 diff changeset	4597	self menuAdornmentAt:#openMenuOnSelect put:old.
faf64f2cd28e * empty log message * Claus Gittinger <cg@exept.de> parents: 2059 diff changeset	4598	!
faf64f2cd28e * empty log message * Claus Gittinger <cg@exept.de> parents: 2059 diff changeset	4599
416 c05874084d4c implement ca parents: 407 diff changeset	4600	type
428 5cf5fb7ecf39 type ca parents: 427 diff changeset	4601	^ nil.
416 c05874084d4c implement ca parents: 407 diff changeset	4602
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:'selection'!
dce33f8bb806 intitial checkin ca parents: diff changeset	4606
dce33f8bb806 intitial checkin ca parents: diff changeset	4607	hasSelection
dce33f8bb806 intitial checkin ca parents: diff changeset	4608	"returns true if a selection exists
dce33f8bb806 intitial checkin ca parents: diff changeset	4609	"
dce33f8bb806 intitial checkin ca parents: diff changeset	4610	^ self selection notNil
dce33f8bb806 intitial checkin ca parents: diff changeset	4611	!
dce33f8bb806 intitial checkin ca parents: diff changeset	4612
2199 61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	4613	openDelayed:anItem
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	4614	\|block\|
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	4615
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	4616	superMenu ifNotNil:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	4617	superMenu openDelayed:anItem.
93426020ceed * empty log message * ca parents: 2216 diff changeset	4618	^ self
93426020ceed * empty log message * ca parents: 2216 diff changeset	4619	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	4620
93426020ceed * empty log message * ca parents: 2216 diff changeset	4621	adornment isNil ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	4622	anItem ifNil:[^ self].
93426020ceed * empty log message * ca parents: 2216 diff changeset	4623	adornment := DefaultAdornment copy.
93426020ceed * empty log message * ca parents: 2216 diff changeset	4624	] ifFalse:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	4625	block := adornment removeKey:#delayedBlock ifAbsent:nil.
93426020ceed * empty log message * ca parents: 2216 diff changeset	4626	block ifNotNil:[ Processor removeTimedBlock:block ].
93426020ceed * empty log message * ca parents: 2216 diff changeset	4627	anItem ifNil:[^ self].
93426020ceed * empty log message * ca parents: 2216 diff changeset	4628	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	4629
93426020ceed * empty log message * ca parents: 2216 diff changeset	4630	block := [ adornment at:#delayedBlock put:nil.
2199 61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	4631	anItem openDelayedSubmenu
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	4632	].
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	4633
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	4634	adornment at:#delayedBlock put:block.
2199 61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	4635	Processor addTimedBlock:block afterSeconds:0.5.
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	4636	!
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	4637
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4638	selection
dce33f8bb806 intitial checkin ca parents: diff changeset	4639	"returns current selected item or nil
dce33f8bb806 intitial checkin ca parents: diff changeset	4640	"
dce33f8bb806 intitial checkin ca parents: diff changeset	4641	^ selection
dce33f8bb806 intitial checkin ca parents: diff changeset	4642
dce33f8bb806 intitial checkin ca parents: diff changeset	4643
dce33f8bb806 intitial checkin ca parents: diff changeset	4644	!
dce33f8bb806 intitial checkin ca parents: diff changeset	4645
dce33f8bb806 intitial checkin ca parents: diff changeset	4646	selection:anItemOrNil
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4647	"change selection to an item or nil
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4648	"
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4649	\|item newSel hlp visItem\|
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4650
1572 80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	4651	(newSel := anItemOrNil) isNumber ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	4652	newSel := self itemAt:anItemOrNil
1572 80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	4653	].
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4654	visItem := newSel.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4655
1572 80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	4656	(newSel notNil and:[newSel canSelect]) ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	4657	newSel := nil
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4658	].
dce33f8bb806 intitial checkin ca parents: diff changeset	4659
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4660	selection == newSel ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	4661	^ self
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4662	].
2199 61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	4663	self openDelayed:nil.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4664
dce33f8bb806 intitial checkin ca parents: diff changeset	4665	(item := selection) notNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	4666	selection := nil.
93426020ceed * empty log message * ca parents: 2216 diff changeset	4667	item selected:false.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4668	].
2048 ba472f3f46c7 code cleanup Claus Gittinger <cg@exept.de> parents: 2047 diff changeset	4669	visItem notNil ifTrue:[self makeItemVisible:visItem].
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4670
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4671	newSel isNil ifTrue:[^ self].
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4672
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4673	newSel == enteredItem ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	4674	enteredItem := nil
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4675	] ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	4676	self pointerEntersItem:nil
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4677	].
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4678	selection := newSel.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4679
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4680	ActiveHelp isActive ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	4681	hlp := ActiveHelp currentHelpListener.
93426020ceed * empty log message * ca parents: 2216 diff changeset	4682	hlp initiateHelpFor:self at:nil now:true.
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4683	].
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4684	shown "realized" ifTrue:[self rearrangeItems].
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4685	selection selected:true.
2048 ba472f3f46c7 code cleanup Claus Gittinger <cg@exept.de> parents: 2047 diff changeset	4686
ba472f3f46c7 code cleanup Claus Gittinger <cg@exept.de> parents: 2047 diff changeset	4687	"Modified: / 13.11.2001 / 20:17:47 / cg"
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4688	!
dce33f8bb806 intitial checkin ca parents: diff changeset	4689
dce33f8bb806 intitial checkin ca parents: diff changeset	4690	selectionIndex
dce33f8bb806 intitial checkin ca parents: diff changeset	4691	"returns index of current selection or 0
dce33f8bb806 intitial checkin ca parents: diff changeset	4692	"
dce33f8bb806 intitial checkin ca parents: diff changeset	4693	\|item\|
dce33f8bb806 intitial checkin ca parents: diff changeset	4694
dce33f8bb806 intitial checkin ca parents: diff changeset	4695	(item := self selection) notNil ifTrue:[
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	4696	^ self findFirst:[:el\| el == item ]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4697	].
dce33f8bb806 intitial checkin ca parents: diff changeset	4698	^ 0
dce33f8bb806 intitial checkin ca parents: diff changeset	4699
dce33f8bb806 intitial checkin ca parents: diff changeset	4700	!
dce33f8bb806 intitial checkin ca parents: diff changeset	4701
dce33f8bb806 intitial checkin ca parents: diff changeset	4702	selectionIndex:anIndex
dce33f8bb806 intitial checkin ca parents: diff changeset	4703	"set selection at an index
dce33f8bb806 intitial checkin ca parents: diff changeset	4704	"
dce33f8bb806 intitial checkin ca parents: diff changeset	4705	self selection:(self itemAt:anIndex)
dce33f8bb806 intitial checkin ca parents: diff changeset	4706	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	4707
1791 bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	4708	!MenuPanel methodsFor:'translation'!
bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	4709
bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	4710	translateGrabPoint:aGrabPoint
bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	4711	"translate the grab point into self
bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	4712	"
bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	4713	superMenu isNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	4714	"I am the grapView"
93426020ceed * empty log message * ca parents: 2216 diff changeset	4715	aGrabPoint isNumber ifTrue:[^ aGrabPoint @ aGrabPoint].
1791 bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	4716	^ aGrabPoint
bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	4717	].
bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	4718
bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	4719	relativeGrabOrigin isNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	4720	relativeGrabOrigin := self topMenu translatePoint:0 to:self.
1791 bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	4721	].
bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	4722	^ relativeGrabOrigin + aGrabPoint
bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	4723
bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	4724	!
bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	4725
bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	4726	translateMenuPoint:aPoint toMenu:aMenu
bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	4727	"translate a point into another menu its point
bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	4728	"
bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	4729	\|grapPoint\|
bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	4730
bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	4731	aMenu == self ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	4732	^ aPoint
1791 bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	4733	].
bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	4734	grapPoint := aPoint - (self translateGrabPoint:0).
bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	4735
bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	4736	^ aMenu translateGrabPoint:grapPoint
bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	4737
bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	4738	!
bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	4739
2020 1f1868eba475 extracted common code to detectViewAt:aPoint. Claus Gittinger <cg@exept.de> parents: 2018 diff changeset	4740	translatePoint:aPoint to:anotherWindowOrNilForScreen
1f1868eba475 extracted common code to detectViewAt:aPoint. Claus Gittinger <cg@exept.de> parents: 2018 diff changeset	4741	"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	4742	"
1f1868eba475 extracted common code to detectViewAt:aPoint. Claus Gittinger <cg@exept.de> parents: 2018 diff changeset	4743
1f1868eba475 extracted common code to detectViewAt:aPoint. Claus Gittinger <cg@exept.de> parents: 2018 diff changeset	4744	^ device
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	4745	translatePoint:aPoint asPoint
93426020ceed * empty log message * ca parents: 2216 diff changeset	4746	fromView:self
93426020ceed * empty log message * ca parents: 2216 diff changeset	4747	toView:anotherWindowOrNilForScreen
2020 1f1868eba475 extracted common code to detectViewAt:aPoint. Claus Gittinger <cg@exept.de> parents: 2018 diff changeset	4748
1f1868eba475 extracted common code to detectViewAt:aPoint. Claus Gittinger <cg@exept.de> parents: 2018 diff changeset	4749	"Modified: / 10.10.2001 / 14:11:47 / cg"
1791 bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	4750	! !
bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	4751
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4752	!MenuPanel::Item class methodsFor:'accessing'!
dce33f8bb806 intitial checkin ca parents: diff changeset	4753
689 aa13913add84 clear lastActiveMenu when closed ca parents: 687 diff changeset	4754	horizontalInset
aa13913add84 clear lastActiveMenu when closed ca parents: 687 diff changeset	4755	^ HorizontalInset
aa13913add84 clear lastActiveMenu when closed ca parents: 687 diff changeset	4756	!
aa13913add84 clear lastActiveMenu when closed ca parents: 687 diff changeset	4757
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4758	labelRightOffset
dce33f8bb806 intitial checkin ca parents: diff changeset	4759	^ LabelRightOffset
dce33f8bb806 intitial checkin ca parents: diff changeset	4760	!
dce33f8bb806 intitial checkin ca parents: diff changeset	4761
689 aa13913add84 clear lastActiveMenu when closed ca parents: 687 diff changeset	4762	verticalInset
aa13913add84 clear lastActiveMenu when closed ca parents: 687 diff changeset	4763	^ VerticalInset
1765 a003f417d6ad fix for vertical spacing Claus Gittinger <cg@exept.de> parents: 1762 diff changeset	4764	!
a003f417d6ad fix for vertical spacing Claus Gittinger <cg@exept.de> parents: 1762 diff changeset	4765
a003f417d6ad fix for vertical spacing Claus Gittinger <cg@exept.de> parents: 1762 diff changeset	4766	verticalPopUpInset
a003f417d6ad fix for vertical spacing Claus Gittinger <cg@exept.de> parents: 1762 diff changeset	4767	^ VerticalPopUpInset
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4768	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	4769
616 a6157b083830 support of different styles ca parents: 608 diff changeset	4770	!MenuPanel::Item class methodsFor:'defaults'!
a6157b083830 support of different styles ca parents: 608 diff changeset	4771
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	4772	halfSeparatorSize
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	4773	"returns size of a space-separator
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	4774	"
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	4775	^ 5
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	4776	!
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	4777
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4778	separatorSize
616 a6157b083830 support of different styles ca parents: 608 diff changeset	4779	"returns size of a separator
a6157b083830 support of different styles ca parents: 608 diff changeset	4780	"
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4781	^ 10
616 a6157b083830 support of different styles ca parents: 608 diff changeset	4782	!
a6157b083830 support of different styles ca parents: 608 diff changeset	4783
a6157b083830 support of different styles ca parents: 608 diff changeset	4784	updateStyleCache
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4785	"setup defaults
650 29dcdf6a5994 button and label translation support added tz parents: 638 diff changeset	4786	self updateStyleCache
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4787	"
1765 a003f417d6ad fix for vertical spacing Claus Gittinger <cg@exept.de> parents: 1762 diff changeset	4788	<resource: #style (#'menuPanel.verticalInset')>
a003f417d6ad fix for vertical spacing Claus Gittinger <cg@exept.de> parents: 1762 diff changeset	4789
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4790	HorizontalInset := 2.
1765 a003f417d6ad fix for vertical spacing Claus Gittinger <cg@exept.de> parents: 1762 diff changeset	4791	VerticalInset := MenuPanel styleSheet at:#'menuPanel.verticalInset' default:2.
a003f417d6ad fix for vertical spacing Claus Gittinger <cg@exept.de> parents: 1762 diff changeset	4792	VerticalPopUpInset := 2.
727 3ba54333342a button style from style sheet tz parents: 723 diff changeset	4793
3ba54333342a button style from style sheet tz parents: 723 diff changeset	4794	HorizontalButtonInset := 3.
3ba54333342a button style from style sheet tz parents: 723 diff changeset	4795	VerticalButtonInset := 3.
3ba54333342a button style from style sheet tz parents: 723 diff changeset	4796
681 62c7cdaca188 extra default inset values for button behaviour added tz parents: 680 diff changeset	4797	LabelRightOffset := 15.
1765 a003f417d6ad fix for vertical spacing Claus Gittinger <cg@exept.de> parents: 1762 diff changeset	4798
a003f417d6ad fix for vertical spacing Claus Gittinger <cg@exept.de> parents: 1762 diff changeset	4799
1124 4a7fec62a572 smaller checkbox. Claus Gittinger <cg@exept.de> parents: 1117 diff changeset	4800	! !
1078 3adf74275ebd support choice for buttons ca parents: 1076 diff changeset	4801
2214 8eefad87cf62 drawing delayed menu indicators... first try not yet finished ca parents: 2199 diff changeset	4802	!MenuPanel::Item class methodsFor:'defaults delayed menu'!
8eefad87cf62 drawing delayed menu indicators... first try not yet finished ca parents: 2199 diff changeset	4803
8eefad87cf62 drawing delayed menu indicators... first try not yet finished ca parents: 2199 diff changeset	4804	delayedMenuIndicator
8eefad87cf62 drawing delayed menu indicators... first try not yet finished ca parents: 2199 diff changeset	4805	"This resource specification was automatically generated
8eefad87cf62 drawing delayed menu indicators... first try not yet finished ca parents: 2199 diff changeset	4806	by the ImageEditor of ST/X."
8eefad87cf62 drawing delayed menu indicators... first try not yet finished ca parents: 2199 diff changeset	4807
8eefad87cf62 drawing delayed menu indicators... first try not yet finished ca parents: 2199 diff changeset	4808	"Do not manually edit this!! If it is corrupted,
8eefad87cf62 drawing delayed menu indicators... first try not yet finished ca parents: 2199 diff changeset	4809	the ImageEditor may not be able to read the specification."
8eefad87cf62 drawing delayed menu indicators... first try not yet finished ca parents: 2199 diff changeset	4810
8eefad87cf62 drawing delayed menu indicators... first try not yet finished ca parents: 2199 diff changeset	4811	"
8eefad87cf62 drawing delayed menu indicators... first try not yet finished ca parents: 2199 diff changeset	4812	self delayedMenuIndicator inspect
8eefad87cf62 drawing delayed menu indicators... first try not yet finished ca parents: 2199 diff changeset	4813	ImageEditor openOnClass:self andSelector:#delayedMenuIndicator
8eefad87cf62 drawing delayed menu indicators... first try not yet finished ca parents: 2199 diff changeset	4814	Icon flushCachedIcons
8eefad87cf62 drawing delayed menu indicators... first try not yet finished ca parents: 2199 diff changeset	4815	"
8eefad87cf62 drawing delayed menu indicators... first try not yet finished ca parents: 2199 diff changeset	4816
8eefad87cf62 drawing delayed menu indicators... first try not yet finished ca parents: 2199 diff changeset	4817	<resource: #image>
8eefad87cf62 drawing delayed menu indicators... first try not yet finished ca parents: 2199 diff changeset	4818
8eefad87cf62 drawing delayed menu indicators... first try not yet finished ca parents: 2199 diff changeset	4819	^Icon
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	4820	constantNamed:#'MenuPanel::Item class delayedMenuIndicator'
93426020ceed * empty log message * ca parents: 2216 diff changeset	4821	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]
2214 8eefad87cf62 drawing delayed menu indicators... first try not yet finished ca parents: 2199 diff changeset	4822	!
8eefad87cf62 drawing delayed menu indicators... first try not yet finished ca parents: 2199 diff changeset	4823
8eefad87cf62 drawing delayed menu indicators... first try not yet finished ca parents: 2199 diff changeset	4824	delayedMenuIndicatorOffset
8eefad87cf62 drawing delayed menu indicators... first try not yet finished ca parents: 2199 diff changeset	4825	"returns an additional offset between the label and the
8eefad87cf62 drawing delayed menu indicators... first try not yet finished ca parents: 2199 diff changeset	4826	delayedMenu indication
8eefad87cf62 drawing delayed menu indicators... first try not yet finished ca parents: 2199 diff changeset	4827	"
8eefad87cf62 drawing delayed menu indicators... first try not yet finished ca parents: 2199 diff changeset	4828	^ 2
8eefad87cf62 drawing delayed menu indicators... first try not yet finished ca parents: 2199 diff changeset	4829	! !
8eefad87cf62 drawing delayed menu indicators... first try not yet finished ca parents: 2199 diff changeset	4830
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4831	!MenuPanel::Item class methodsFor:'instance creation'!
dce33f8bb806 intitial checkin ca parents: diff changeset	4832
dce33f8bb806 intitial checkin ca parents: diff changeset	4833	in:aSuperMenu
dce33f8bb806 intitial checkin ca parents: diff changeset	4834	^ self in:aSuperMenu label:nil
dce33f8bb806 intitial checkin ca parents: diff changeset	4835	!
dce33f8bb806 intitial checkin ca parents: diff changeset	4836
dce33f8bb806 intitial checkin ca parents: diff changeset	4837	in:aSuperMenu label:aLabel
dce33f8bb806 intitial checkin ca parents: diff changeset	4838	\|item\|
dce33f8bb806 intitial checkin ca parents: diff changeset	4839
dce33f8bb806 intitial checkin ca parents: diff changeset	4840	item := self new in:aSuperMenu.
dce33f8bb806 intitial checkin ca parents: diff changeset	4841	item label:aLabel.
dce33f8bb806 intitial checkin ca parents: diff changeset	4842	^ item
dce33f8bb806 intitial checkin ca parents: diff changeset	4843	!
dce33f8bb806 intitial checkin ca parents: diff changeset	4844
dce33f8bb806 intitial checkin ca parents: diff changeset	4845	in:aSuperMenu menuItem:aMenuItem
dce33f8bb806 intitial checkin ca parents: diff changeset	4846	\|item\|
dce33f8bb806 intitial checkin ca parents: diff changeset	4847
dce33f8bb806 intitial checkin ca parents: diff changeset	4848	item := self in:aSuperMenu.
dce33f8bb806 intitial checkin ca parents: diff changeset	4849	item menuItem:aMenuItem.
dce33f8bb806 intitial checkin ca parents: diff changeset	4850	^ item.
dce33f8bb806 intitial checkin ca parents: diff changeset	4851	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	4852
1808 e8628b502a49 methodCategory change Claus Gittinger <cg@exept.de> parents: 1806 diff changeset	4853	!MenuPanel::Item methodsFor:'accepting'!
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	4854
420 b6f9fff472ef fixes ca parents: 417 diff changeset	4855	canAccept
b6f9fff472ef fixes ca parents: 417 diff changeset	4856	"returns true if item is acceptable
b6f9fff472ef fixes ca parents: 417 diff changeset	4857	"
2199 61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	4858	self enabled ifFalse:[ ^ false].
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	4859	self hasSubmenu ifFalse:[ ^ true ].
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	4860
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	4861	self hasDelayedMenu ifFalse:[^ false ].
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	4862	^ subMenu isNil or:[subMenu shown not]
524 d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	4863	!
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	4864
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	4865	toggleIndication
1074 25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	4866	"toggle indication or choice
524 d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	4867	"
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	4868	\|arg\|
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	4869
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	4870	indication notNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	4871	arg := self indicationValue not.
93426020ceed * empty log message * ca parents: 2216 diff changeset	4872	self indicationValue:arg.
1074 25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	4873	] ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	4874	choice notNil ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	4875	choice value:choiceValue.
93426020ceed * empty log message * ca parents: 2216 diff changeset	4876	^ true
93426020ceed * empty log message * ca parents: 2216 diff changeset	4877	]
524 d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	4878	].
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	4879	^ arg
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	4880	! !
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	4881
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4882	!MenuPanel::Item methodsFor:'accessing'!
dce33f8bb806 intitial checkin ca parents: diff changeset	4883
dce33f8bb806 intitial checkin ca parents: diff changeset	4884	accessCharacter
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	4885	"returns my accessCharacter or nil
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4886	"
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	4887	^ accessCharacter
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4888	!
dce33f8bb806 intitial checkin ca parents: diff changeset	4889
dce33f8bb806 intitial checkin ca parents: diff changeset	4890	accessCharacterPosition
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	4891	"get the access character position or nil
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4892	"
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	4893	^ accessCharacterPosition
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	4894	!
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	4895
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	4896	accessCharacterPosition:anIndex
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	4897	"set the access character position or nil
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4898	"
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	4899	accessCharacterPosition := anIndex.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4900	!
dce33f8bb806 intitial checkin ca parents: diff changeset	4901
dce33f8bb806 intitial checkin ca parents: diff changeset	4902	argument
dce33f8bb806 intitial checkin ca parents: diff changeset	4903	"gets the argument
dce33f8bb806 intitial checkin ca parents: diff changeset	4904	"
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	4905	^ argument
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4906	!
dce33f8bb806 intitial checkin ca parents: diff changeset	4907
dce33f8bb806 intitial checkin ca parents: diff changeset	4908	argument:anArgument
dce33f8bb806 intitial checkin ca parents: diff changeset	4909	"sets the argument
dce33f8bb806 intitial checkin ca parents: diff changeset	4910	"
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	4911	argument := anArgument.
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	4912	!
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	4913
1727 a6365337be59 support setting font in MenuPanel and Editor ca parents: 1726 diff changeset	4914	font
a6365337be59 support setting font in MenuPanel and Editor ca parents: 1726 diff changeset	4915	"returns the user configured font or nil (default menu font)
a6365337be59 support setting font in MenuPanel and Editor ca parents: 1726 diff changeset	4916	"
a6365337be59 support setting font in MenuPanel and Editor ca parents: 1726 diff changeset	4917	^ font
a6365337be59 support setting font in MenuPanel and Editor ca parents: 1726 diff changeset	4918	!
a6365337be59 support setting font in MenuPanel and Editor ca parents: 1726 diff changeset	4919
a6365337be59 support setting font in MenuPanel and Editor ca parents: 1726 diff changeset	4920	font:aFont
a6365337be59 support setting font in MenuPanel and Editor ca parents: 1726 diff changeset	4921	"returns the user configured font or nil (default menu font)
a6365337be59 support setting font in MenuPanel and Editor ca parents: 1726 diff changeset	4922	"
a6365337be59 support setting font in MenuPanel and Editor ca parents: 1726 diff changeset	4923	aFont ~= font ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	4924	font := aFont notNil ifTrue:[aFont onDevice:(menuPanel device)]
93426020ceed * empty log message * ca parents: 2216 diff changeset	4925	ifFalse:[nil].
93426020ceed * empty log message * ca parents: 2216 diff changeset	4926
93426020ceed * empty log message * ca parents: 2216 diff changeset	4927	rawLabel notNil ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	4928	"have to recompute the extent"
93426020ceed * empty log message * ca parents: 2216 diff changeset	4929	self label:label
93426020ceed * empty log message * ca parents: 2216 diff changeset	4930	]
1727 a6365337be59 support setting font in MenuPanel and Editor ca parents: 1726 diff changeset	4931	].
a6365337be59 support setting font in MenuPanel and Editor ca parents: 1726 diff changeset	4932	!
a6365337be59 support setting font in MenuPanel and Editor ca parents: 1726 diff changeset	4933
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4934	label
dce33f8bb806 intitial checkin ca parents: diff changeset	4935	"returns the label
dce33f8bb806 intitial checkin ca parents: diff changeset	4936	"
dce33f8bb806 intitial checkin ca parents: diff changeset	4937	^ label
dce33f8bb806 intitial checkin ca parents: diff changeset	4938	!
dce33f8bb806 intitial checkin ca parents: diff changeset	4939
dce33f8bb806 intitial checkin ca parents: diff changeset	4940	label:aLabel
399 d083b1bce58d ST-80 compatibility ca parents: 396 diff changeset	4941	"set a new label; if the label changed, a redraw is performed;
d083b1bce58d ST-80 compatibility ca parents: 396 diff changeset	4942	handle characters $& (ST-80 compatibility)
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4943	"
1978 a53447b8cbe2 set label; reange menu if extent changed otherwise redraw only the item martin parents: 1955 diff changeset	4944	\|size char lbl mfont f oldExtent
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	4945	h "{ Class:SmallInteger }"
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	4946	w "{ Class:SmallInteger }"
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	4947	\|
1978 a53447b8cbe2 set label; reange menu if extent changed otherwise redraw only the item martin parents: 1955 diff changeset	4948	oldExtent := rawLabelExtent.
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	4949	accessCharacter := rawLabelExtent := disabledRawLabel := nil.
1978 a53447b8cbe2 set label; reange menu if extent changed otherwise redraw only the item martin parents: 1955 diff changeset	4950	label := aLabel value.
a53447b8cbe2 set label; reange menu if extent changed otherwise redraw only the item martin parents: 1955 diff changeset	4951	rawLabel := label value ? ''.
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	4952
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	4953	rawLabel isString ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	4954	"CHECK FOR SEPARATOR"
93426020ceed * empty log message * ca parents: 2216 diff changeset	4955
93426020ceed * empty log message * ca parents: 2216 diff changeset	4956	(isButton not and:[indication isNil and:[choice isNil]]) ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	4957	size := rawLabel size.
93426020ceed * empty log message * ca parents: 2216 diff changeset	4958
93426020ceed * empty log message * ca parents: 2216 diff changeset	4959	size == 0 ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	4960	rawLabel := nil. "blank separator"
93426020ceed * empty log message * ca parents: 2216 diff changeset	4961	^ self
93426020ceed * empty log message * ca parents: 2216 diff changeset	4962	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	4963
93426020ceed * empty log message * ca parents: 2216 diff changeset	4964	size == 1 ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	4965	char := rawLabel first.
93426020ceed * empty log message * ca parents: 2216 diff changeset	4966
93426020ceed * empty log message * ca parents: 2216 diff changeset	4967	(char == $- or:[char == $=]) ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	4968	label := rawLabel. "line separator"
93426020ceed * empty log message * ca parents: 2216 diff changeset	4969	rawLabel := nil.
93426020ceed * empty log message * ca parents: 2216 diff changeset	4970	^ self
93426020ceed * empty log message * ca parents: 2216 diff changeset	4971	]
93426020ceed * empty log message * ca parents: 2216 diff changeset	4972	]
93426020ceed * empty log message * ca parents: 2216 diff changeset	4973	]
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	4974	] ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	4975	rawLabel isCollection ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	4976	rawLabel := rawLabel asArray.
93426020ceed * empty log message * ca parents: 2216 diff changeset	4977	]
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	4978	].
1727 a6365337be59 support setting font in MenuPanel and Editor ca parents: 1726 diff changeset	4979	mfont := menuPanel setFont:font.
a6365337be59 support setting font in MenuPanel and Editor ca parents: 1726 diff changeset	4980
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	4981	rawLabel isArray ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	4982	w := h := 0.
93426020ceed * empty log message * ca parents: 2216 diff changeset	4983
93426020ceed * empty log message * ca parents: 2216 diff changeset	4984	rawLabel keysAndValuesDo:[:i :el\|
93426020ceed * empty log message * ca parents: 2216 diff changeset	4985	el notNil ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	4986	lbl := self updateAccessCharacterFor:el.
93426020ceed * empty log message * ca parents: 2216 diff changeset	4987	rawLabel at:i put:lbl.
93426020ceed * empty log message * ca parents: 2216 diff changeset	4988	w := w max:(lbl widthOn:menuPanel).
93426020ceed * empty log message * ca parents: 2216 diff changeset	4989	h := h + 1 + (lbl heightOn:menuPanel).
93426020ceed * empty log message * ca parents: 2216 diff changeset	4990	] ifFalse:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	4991	h := h + 3
93426020ceed * empty log message * ca parents: 2216 diff changeset	4992	]
93426020ceed * empty log message * ca parents: 2216 diff changeset	4993	]
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	4994	] ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	4995	rawLabel := self updateAccessCharacterFor:rawLabel.
93426020ceed * empty log message * ca parents: 2216 diff changeset	4996	w := rawLabel widthOn:menuPanel.
93426020ceed * empty log message * ca parents: 2216 diff changeset	4997	h := rawLabel heightOn:menuPanel.
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	4998	].
1797 28327a68241b give a few more pixels at the right if the used font is Claus Gittinger <cg@exept.de> parents: 1796 diff changeset	4999
28327a68241b give a few more pixels at the right if the used font is Claus Gittinger <cg@exept.de> parents: 1796 diff changeset	5000	"/ 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	5001	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	5002	(f notNil and:[f italic]) ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	5003	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	5004	].
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5005	rawLabelExtent := w@h.
1978 a53447b8cbe2 set label; reange menu if extent changed otherwise redraw only the item martin parents: 1955 diff changeset	5006
1727 a6365337be59 support setting font in MenuPanel and Editor ca parents: 1726 diff changeset	5007	menuPanel setFont:mfont.
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5008	menuPanel shown ifTrue:[ self fetchImages ].
1978 a53447b8cbe2 set label; reange menu if extent changed otherwise redraw only the item martin parents: 1955 diff changeset	5009
a53447b8cbe2 set label; reange menu if extent changed otherwise redraw only the item martin parents: 1955 diff changeset	5010	oldExtent = rawLabelExtent ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	5011	self invalidate
1978 a53447b8cbe2 set label; reange menu if extent changed otherwise redraw only the item martin parents: 1955 diff changeset	5012	] ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	5013	menuPanel mustRearrange
1978 a53447b8cbe2 set label; reange menu if extent changed otherwise redraw only the item martin parents: 1955 diff changeset	5014	].
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5015	!
dce33f8bb806 intitial checkin ca parents: diff changeset	5016
dce33f8bb806 intitial checkin ca parents: diff changeset	5017	menuPanel
dce33f8bb806 intitial checkin ca parents: diff changeset	5018	"returns my menuPanel
dce33f8bb806 intitial checkin ca parents: diff changeset	5019	"
399 d083b1bce58d ST-80 compatibility ca parents: 396 diff changeset	5020	^ menuPanel
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5021	!
dce33f8bb806 intitial checkin ca parents: diff changeset	5022
dce33f8bb806 intitial checkin ca parents: diff changeset	5023	nameKey
dce33f8bb806 intitial checkin ca parents: diff changeset	5024	"gets the nameKey
dce33f8bb806 intitial checkin ca parents: diff changeset	5025	"
dce33f8bb806 intitial checkin ca parents: diff changeset	5026	^ nameKey
dce33f8bb806 intitial checkin ca parents: diff changeset	5027	!
dce33f8bb806 intitial checkin ca parents: diff changeset	5028
dce33f8bb806 intitial checkin ca parents: diff changeset	5029	nameKey:aNameKey
dce33f8bb806 intitial checkin ca parents: diff changeset	5030	"sets the nameKey
dce33f8bb806 intitial checkin ca parents: diff changeset	5031	"
dce33f8bb806 intitial checkin ca parents: diff changeset	5032	nameKey := aNameKey.
dce33f8bb806 intitial checkin ca parents: diff changeset	5033	!
dce33f8bb806 intitial checkin ca parents: diff changeset	5034
dce33f8bb806 intitial checkin ca parents: diff changeset	5035	rawLabel
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	5036	"returns my printable Label
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5037	"
dce33f8bb806 intitial checkin ca parents: diff changeset	5038	^ rawLabel
dce33f8bb806 intitial checkin ca parents: diff changeset	5039	!
dce33f8bb806 intitial checkin ca parents: diff changeset	5040
dce33f8bb806 intitial checkin ca parents: diff changeset	5041	shortcutKey
dce33f8bb806 intitial checkin ca parents: diff changeset	5042	"get the key to press to select the submenu from the keyboard or if
dce33f8bb806 intitial checkin ca parents: diff changeset	5043	no submenu exists evaluate the action assigned to the item (accept).
dce33f8bb806 intitial checkin ca parents: diff changeset	5044	"
1609 2c8d62894ebe optimize searchinf for shortCutKeys ca parents: 1600 diff changeset	5045	^ shortcutKey
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5046	!
dce33f8bb806 intitial checkin ca parents: diff changeset	5047
dce33f8bb806 intitial checkin ca parents: diff changeset	5048	shortcutKey:aKey
dce33f8bb806 intitial checkin ca parents: diff changeset	5049	"set the key to press to select the submenu from the keyboard or if
dce33f8bb806 intitial checkin ca parents: diff changeset	5050	no submenu exists evaluate the action assigned to the item (accept).
dce33f8bb806 intitial checkin ca parents: diff changeset	5051	"
1609 2c8d62894ebe optimize searchinf for shortCutKeys ca parents: 1600 diff changeset	5052	shortcutKey ~~ aKey ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	5053	shortcutKey := aKey.
93426020ceed * empty log message * ca parents: 2216 diff changeset	5054	self invalidate.
1889 43516e4588ce give warning messages for unimplemented menu-aspects Claus Gittinger <cg@exept.de> parents: 1878 diff changeset	5055	].
43516e4588ce give warning messages for unimplemented menu-aspects Claus Gittinger <cg@exept.de> parents: 1878 diff changeset	5056	!
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5057
710 4453e463ff16 add new feature: ca parents: 709 diff changeset	5058	startGroup
4453e463ff16 add new feature: ca parents: 709 diff changeset	5059	"start group #left #right #center ... or nil
4453e463ff16 add new feature: ca parents: 709 diff changeset	5060	at the moment only #right is implemented
4453e463ff16 add new feature: ca parents: 709 diff changeset	5061	"
4453e463ff16 add new feature: ca parents: 709 diff changeset	5062	^ startGroup
4453e463ff16 add new feature: ca parents: 709 diff changeset	5063	!
4453e463ff16 add new feature: ca parents: 709 diff changeset	5064
4453e463ff16 add new feature: ca parents: 709 diff changeset	5065	startGroup:aSymbol
4453e463ff16 add new feature: ca parents: 709 diff changeset	5066	"start group #left #right #center ...
4453e463ff16 add new feature: ca parents: 709 diff changeset	5067	at the moment only #right is implemented
4453e463ff16 add new feature: ca parents: 709 diff changeset	5068	"
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5069	startGroup := aSymbol.
710 4453e463ff16 add new feature: ca parents: 709 diff changeset	5070	!
4453e463ff16 add new feature: ca parents: 709 diff changeset	5071
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5072	submenu
dce33f8bb806 intitial checkin ca parents: diff changeset	5073	"returns my submenu or nil
dce33f8bb806 intitial checkin ca parents: diff changeset	5074	"
464 a788fdce92e2 add submenuChannel ca parents: 461 diff changeset	5075	subMenu notNil ifTrue:[^ subMenu].
a788fdce92e2 add submenuChannel ca parents: 461 diff changeset	5076	^ self setupSubmenu
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5077	!
dce33f8bb806 intitial checkin ca parents: diff changeset	5078
dce33f8bb806 intitial checkin ca parents: diff changeset	5079	submenu:aSubMenu
dce33f8bb806 intitial checkin ca parents: diff changeset	5080	"set a new submenu; an existing submenu will be destroyed. This might lead
dce33f8bb806 intitial checkin ca parents: diff changeset	5081	to a redraw if 'hasSubmenu' changed
dce33f8bb806 intitial checkin ca parents: diff changeset	5082	"
1795 6afd0e768267 submenuChannel selector: allow upto two arguments, the arg and the menu ca parents: 1793 diff changeset	5083	\|widget\|
1767 e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	5084
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	5085	aSubMenu isNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	5086	subMenu notNil ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	5087	subMenu destroy.
93426020ceed * empty log message * ca parents: 2216 diff changeset	5088	subMenu := nil.
93426020ceed * empty log message * ca parents: 2216 diff changeset	5089	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	5090	^ self
1767 e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	5091	].
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	5092
1795 6afd0e768267 submenuChannel selector: allow upto two arguments, the arg and the menu ca parents: 1793 diff changeset	5093	(aSubMenu isKindOf:Menu) ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	5094	subMenu := MenuPanel new.
93426020ceed * empty log message * ca parents: 2216 diff changeset	5095
93426020ceed * empty log message * ca parents: 2216 diff changeset	5096	menuPanel notNil ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	5097	subMenu receiver:menuPanel receiver.
93426020ceed * empty log message * ca parents: 2216 diff changeset	5098	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	5099	subMenu superMenu:menuPanel.
93426020ceed * empty log message * ca parents: 2216 diff changeset	5100
93426020ceed * empty log message * ca parents: 2216 diff changeset	5101	horizontalLayout == true ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	5102	subMenu verticalLayout:false
93426020ceed * empty log message * ca parents: 2216 diff changeset	5103	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	5104	subMenu menu:aSubMenu.
1767 e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	5105	] ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	5106	aSubMenu isView ifFalse:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	5107	(aSubMenu isKindOf:ApplicationModel) ifFalse:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	5108	"/ ... mhhhh ....
93426020ceed * empty log message * ca parents: 2216 diff changeset	5109	^ self submenuChannel:aSubMenu
93426020ceed * empty log message * ca parents: 2216 diff changeset	5110	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	5111	widget := SimpleView new.
93426020ceed * empty log message * ca parents: 2216 diff changeset	5112	widget client:aSubMenu.
93426020ceed * empty log message * ca parents: 2216 diff changeset	5113	] ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	5114	widget := aSubMenu
93426020ceed * empty log message * ca parents: 2216 diff changeset	5115	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	5116
93426020ceed * empty log message * ca parents: 2216 diff changeset	5117	(widget isKindOf:MenuPanel) ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	5118	subMenu := widget.
93426020ceed * empty log message * ca parents: 2216 diff changeset	5119	horizontalLayout == true ifTrue:[ subMenu verticalLayout:false ].
93426020ceed * empty log message * ca parents: 2216 diff changeset	5120	] ifFalse:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	5121	subMenu := MenuPanel new.
93426020ceed * empty log message * ca parents: 2216 diff changeset	5122	subMenu receiver:menuPanel receiver.
93426020ceed * empty log message * ca parents: 2216 diff changeset	5123	subMenu addSubView:widget.
93426020ceed * empty log message * ca parents: 2216 diff changeset	5124	subMenu extent:(widget preferredExtent).
93426020ceed * empty log message * ca parents: 2216 diff changeset	5125	widget origin:0.0@0.0 corner:1.0@1.0.
93426020ceed * empty log message * ca parents: 2216 diff changeset	5126	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	5127	subMenu superMenu:menuPanel.
1929 58586354e428 bug fix: keepLinkedMenu ca parents: 1923 diff changeset	5128	].
58586354e428 bug fix: keepLinkedMenu ca parents: 1923 diff changeset	5129	self keepLinkedMenu ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	5130	submenuChannel := nil
1929 58586354e428 bug fix: keepLinkedMenu ca parents: 1923 diff changeset	5131	]
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	5132	!
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	5133
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	5134	textLabel
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	5135	"returns my textLabel or nil if none text
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	5136	"
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5137	\|txt\|
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5138
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5139	rawLabel notNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	5140	rawLabel isArray ifFalse:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	5141	^ rawLabel perform:#string ifNotUnderstood:nil
93426020ceed * empty log message * ca parents: 2216 diff changeset	5142	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	5143
93426020ceed * empty log message * ca parents: 2216 diff changeset	5144	rawLabel do:[:el\|
93426020ceed * empty log message * ca parents: 2216 diff changeset	5145	(txt := el perform:#string ifNotUnderstood:nil) notNil ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	5146	^ txt
93426020ceed * empty log message * ca parents: 2216 diff changeset	5147	]
93426020ceed * empty log message * ca parents: 2216 diff changeset	5148	].
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5149	].
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5150	^ nil
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	5151
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	5152	!
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	5153
1841 5d01716cc37c implement: triggerOnDown ca parents: 1836 diff changeset	5154	triggerOnDown
5d01716cc37c implement: triggerOnDown ca parents: 1836 diff changeset	5155	"trigger the action if pressed
5d01716cc37c implement: triggerOnDown ca parents: 1836 diff changeset	5156	"
5d01716cc37c implement: triggerOnDown ca parents: 1836 diff changeset	5157	triggerOnDown == true ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	5158	self hasSubmenu ifFalse:[^ true].
93426020ceed * empty log message * ca parents: 2216 diff changeset	5159	triggerOnDown := false.
1841 5d01716cc37c implement: triggerOnDown ca parents: 1836 diff changeset	5160	].
5d01716cc37c implement: triggerOnDown ca parents: 1836 diff changeset	5161	^ false
5d01716cc37c implement: triggerOnDown ca parents: 1836 diff changeset	5162	!
5d01716cc37c implement: triggerOnDown ca parents: 1836 diff changeset	5163
5d01716cc37c implement: triggerOnDown ca parents: 1836 diff changeset	5164	triggerOnDown:aBool
5d01716cc37c implement: triggerOnDown ca parents: 1836 diff changeset	5165	"trigger the action if pressed
5d01716cc37c implement: triggerOnDown ca parents: 1836 diff changeset	5166	"
5d01716cc37c implement: triggerOnDown ca parents: 1836 diff changeset	5167	triggerOnDown := aBool.
5d01716cc37c implement: triggerOnDown ca parents: 1836 diff changeset	5168	!
5d01716cc37c implement: triggerOnDown ca parents: 1836 diff changeset	5169
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	5170	value
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	5171	"gets value
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	5172	"
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	5173	^ value
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	5174	!
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	5175
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	5176	value:something
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	5177	"could be a value holder, an action or selector
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	5178	"
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	5179	value := something.
502 dedc1b29b6ac support of arguments ca parents: 498 diff changeset	5180	!
dedc1b29b6ac support of arguments ca parents: 498 diff changeset	5181
dedc1b29b6ac support of arguments ca parents: 498 diff changeset	5182	value:aValue argument:anArgument
dedc1b29b6ac support of arguments ca parents: 498 diff changeset	5183	"set the value and an argument
dedc1b29b6ac support of arguments ca parents: 498 diff changeset	5184	"
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5185	value := aValue.
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5186	argument := anArgument.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5187	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	5188
1679 af40842718f6 when accepting, and the application does not respond to that Claus Gittinger <cg@exept.de> parents: 1670 diff changeset	5189	!MenuPanel::Item methodsFor:'accessing-behavior'!
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5190
1074 25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	5191	choice
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5192	"implements a radio group; the field
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5193	"
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5194	^ choice
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5195
1074 25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	5196	!
25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	5197
25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	5198	choice:something
25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	5199	"set choice indication
25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	5200	"
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5201	choice == something ifTrue:[^ self].
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5202
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5203	choice isValueModel ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	5204	choice removeDependent:self
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5205	].
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5206
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5207	(choice := something) notNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	5208	choice isSymbol ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	5209	(choice := self aspectAt:choice) isNil ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	5210	choice := something
93426020ceed * empty log message * ca parents: 2216 diff changeset	5211	]
93426020ceed * empty log message * ca parents: 2216 diff changeset	5212	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	5213	choice isValueModel ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	5214	choice addDependent:self
93426020ceed * empty log message * ca parents: 2216 diff changeset	5215	]
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	5216	].
1074 25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	5217	!
25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	5218
25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	5219	choiceValue
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5220	"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	5221	"
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5222	^ choiceValue
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5223
1074 25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	5224	!
25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	5225
25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	5226	choiceValue:something
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5227	"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	5228	"
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5229	choiceValue ~= something ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	5230	choiceValue := something.
93426020ceed * empty log message * ca parents: 2216 diff changeset	5231
93426020ceed * empty log message * ca parents: 2216 diff changeset	5232	choice notNil ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	5233	self invalidate
93426020ceed * empty log message * ca parents: 2216 diff changeset	5234	]
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5235	].
1074 25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	5236	!
25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	5237
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5238	delayMenu
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5239	"return true, the menu is shown delayed, if the button is still pressed after a while.
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5240	Only useful with buttons in non-popup-menus
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5241	"
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5242	^ delayMenu ? false
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5243	!
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5244
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5245	delayMenu:aBoolean
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5246	"if true, the menu is shown delayed, if the button is still pressed after a while.
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5247	Only useful with buttons in non-popup-menus
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5248	"
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5249	delayMenu := aBoolean.
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5250	!
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5251
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5252	enabled
dce33f8bb806 intitial checkin ca parents: diff changeset	5253	"returns the enabled state
dce33f8bb806 intitial checkin ca parents: diff changeset	5254	"
524 d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	5255	\|state\|
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	5256
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	5257	menuPanel enabled ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	5258	enableChannel isSymbol ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	5259	state := self aspectAt:enableChannel.
93426020ceed * empty log message * ca parents: 2216 diff changeset	5260	state isNil ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	5261	self ifNotInUIBuilderInfoPrintCR:
93426020ceed * empty log message * ca parents: 2216 diff changeset	5262	('MenuPanel::Item [info]: no aspect for ', enableChannel, ' (in ' , (label?rawLabel) printString , ')')
93426020ceed * empty log message * ca parents: 2216 diff changeset	5263	] ifFalse:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	5264	state isValueModel ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	5265	enableChannel := state.
93426020ceed * empty log message * ca parents: 2216 diff changeset	5266	enableChannel addDependent:self.
93426020ceed * empty log message * ca parents: 2216 diff changeset	5267	state := enableChannel value.
93426020ceed * empty log message * ca parents: 2216 diff changeset	5268	] ifFalse:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	5269	state := state value
93426020ceed * empty log message * ca parents: 2216 diff changeset	5270	]
93426020ceed * empty log message * ca parents: 2216 diff changeset	5271	]
93426020ceed * empty log message * ca parents: 2216 diff changeset	5272	] ifFalse:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	5273	state := enableChannel value
93426020ceed * empty log message * ca parents: 2216 diff changeset	5274	].
524 d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	5275	^ state ~~ false
460 5334456cedf8 handle enabled symbol; get aspect from application ca parents: 450 diff changeset	5276	].
524 d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	5277	^ false
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5278	!
dce33f8bb806 intitial checkin ca parents: diff changeset	5279
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	5280	enabled:something
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5281	"change the enabled state; if the state changed, a redraw is performed
dce33f8bb806 intitial checkin ca parents: diff changeset	5282	"
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	5283	\|oldState newState\|
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	5284
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	5285	enableChannel isNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	5286	oldState := true
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	5287	] ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	5288	oldState := enableChannel value.
93426020ceed * empty log message * ca parents: 2216 diff changeset	5289	enableChannel isValueModel ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	5290	enableChannel removeDependent:self
93426020ceed * empty log message * ca parents: 2216 diff changeset	5291	]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5292	].
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	5293	enableChannel := something.
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	5294
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	5295	enableChannel isNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	5296	menuPanel shown ifFalse:[^ self].
93426020ceed * empty log message * ca parents: 2216 diff changeset	5297	newState := true
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	5298	] ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	5299	enableChannel isValueModel ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	5300	enableChannel addDependent:self
93426020ceed * empty log message * ca parents: 2216 diff changeset	5301	] ifFalse:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	5302	enableChannel isSymbol ifTrue:[^ self]
93426020ceed * empty log message * ca parents: 2216 diff changeset	5303	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	5304	menuPanel shown ifFalse:[^ self].
93426020ceed * empty log message * ca parents: 2216 diff changeset	5305	newState := enableChannel value.
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	5306	].
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	5307
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	5308	newState ~~ oldState ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	5309	self invalidate
1690 38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	5310	].
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	5311	!
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	5312
1670 dbc8a05605e0 add new behavior: hideMenuOnActivated ca parents: 1666 diff changeset	5313	hideMenuOnActivated
dbc8a05605e0 add new behavior: hideMenuOnActivated ca parents: 1666 diff changeset	5314	"hide the menu when the item was activated; the default is true
dbc8a05605e0 add new behavior: hideMenuOnActivated ca parents: 1666 diff changeset	5315	"
dbc8a05605e0 add new behavior: hideMenuOnActivated ca parents: 1666 diff changeset	5316	^ hideMenuOnActivated ? true
dbc8a05605e0 add new behavior: hideMenuOnActivated ca parents: 1666 diff changeset	5317
dbc8a05605e0 add new behavior: hideMenuOnActivated ca parents: 1666 diff changeset	5318	!
dbc8a05605e0 add new behavior: hideMenuOnActivated ca parents: 1666 diff changeset	5319
dbc8a05605e0 add new behavior: hideMenuOnActivated ca parents: 1666 diff changeset	5320	hideMenuOnActivated:aBool
dbc8a05605e0 add new behavior: hideMenuOnActivated ca parents: 1666 diff changeset	5321	"hide the menu when the item was activated; the default is true
dbc8a05605e0 add new behavior: hideMenuOnActivated ca parents: 1666 diff changeset	5322	"
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5323	hideMenuOnActivated := aBool.
1670 dbc8a05605e0 add new behavior: hideMenuOnActivated ca parents: 1666 diff changeset	5324
dbc8a05605e0 add new behavior: hideMenuOnActivated ca parents: 1666 diff changeset	5325
dbc8a05605e0 add new behavior: hideMenuOnActivated ca parents: 1666 diff changeset	5326	!
dbc8a05605e0 add new behavior: hideMenuOnActivated ca parents: 1666 diff changeset	5327
2216 9cbeda150dae no info for toolbarmenu enable channel penk parents: 2214 diff changeset	5328	ifNotInUIBuilderInfoPrintCR:aMessage
9cbeda150dae no info for toolbarmenu enable channel penk parents: 2214 diff changeset	5329	"/ q&d hack to suppress info-messages in UIBuilder
9cbeda150dae no info for toolbarmenu enable channel penk parents: 2214 diff changeset	5330
9cbeda150dae no info for toolbarmenu enable channel penk parents: 2214 diff changeset	5331	(menuPanel receiver isNil
9cbeda150dae no info for toolbarmenu enable channel penk parents: 2214 diff changeset	5332	and:[ menuPanel application notNil
9cbeda150dae no info for toolbarmenu enable channel penk parents: 2214 diff changeset	5333	and:[ menuPanel application askFor:#isUIPainter]])
9cbeda150dae no info for toolbarmenu enable channel penk parents: 2214 diff changeset	5334	ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	5335	^ self "/ suppressed
2216 9cbeda150dae no info for toolbarmenu enable channel penk parents: 2214 diff changeset	5336	].
9cbeda150dae no info for toolbarmenu enable channel penk parents: 2214 diff changeset	5337	aMessage infoPrintCR
9cbeda150dae no info for toolbarmenu enable channel penk parents: 2214 diff changeset	5338	!
9cbeda150dae no info for toolbarmenu enable channel penk parents: 2214 diff changeset	5339
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	5340	indication
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	5341	"get on/off indication
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	5342	"
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5343	^ indication
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	5344	!
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	5345
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	5346	indication:something
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	5347	"set on/off indication
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	5348	"
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5349	indication == something ifTrue:[^ self].
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5350
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5351	indication isValueModel ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	5352	indication removeDependent:self
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5353	].
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5354
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5355	(indication := something) notNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	5356	indication isValueModel ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	5357	indication addDependent:self
93426020ceed * empty log message * ca parents: 2216 diff changeset	5358	] ifFalse:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	5359	"/ to force an update of the value
93426020ceed * empty log message * ca parents: 2216 diff changeset	5360	self indicationValue
93426020ceed * empty log message * ca parents: 2216 diff changeset	5361	]
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5362	].
464 a788fdce92e2 add submenuChannel ca parents: 461 diff changeset	5363	!
a788fdce92e2 add submenuChannel ca parents: 461 diff changeset	5364
1767 e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	5365	keepLinkedMenu
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	5366	"get the keepLinkedMenu flag
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	5367	"
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	5368	^ keepLinkedMenu ? false
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	5369	!
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	5370
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	5371	keepLinkedMenu:aFlag
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	5372	"get the keepLinkedMenu flag
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	5373	"
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	5374	keepLinkedMenu := aFlag
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	5375	!
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	5376
464 a788fdce92e2 add submenuChannel ca parents: 461 diff changeset	5377	submenuChannel
a788fdce92e2 add submenuChannel ca parents: 461 diff changeset	5378	"get the submenu channel
a788fdce92e2 add submenuChannel ca parents: 461 diff changeset	5379	"
a788fdce92e2 add submenuChannel ca parents: 461 diff changeset	5380	^ submenuChannel
a788fdce92e2 add submenuChannel ca parents: 461 diff changeset	5381	!
a788fdce92e2 add submenuChannel ca parents: 461 diff changeset	5382
a788fdce92e2 add submenuChannel ca parents: 461 diff changeset	5383	submenuChannel:aSelectorOrNil
a788fdce92e2 add submenuChannel ca parents: 461 diff changeset	5384	"returns the submenu channel
a788fdce92e2 add submenuChannel ca parents: 461 diff changeset	5385	"
a788fdce92e2 add submenuChannel ca parents: 461 diff changeset	5386	submenuChannel := aSelectorOrNil.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5387	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	5388
1679 af40842718f6 when accepting, and the application does not respond to that Claus Gittinger <cg@exept.de> parents: 1670 diff changeset	5389	!MenuPanel::Item methodsFor:'accessing-dimension'!
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5390
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	5391	moveBy:aPoint
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	5392	"move layout origin
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	5393	"
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	5394	layout moveBy:aPoint.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	5395	!
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	5396
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	5397	preferredExtent
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	5398	"compute my preferred extent excluding the shortCutKey and the menu identifier
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	5399	"
2214 8eefad87cf62 drawing delayed menu indicators... first try not yet finished ca parents: 2199 diff changeset	5400	\|isVertical icon
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	5401	x "{ Class:SmallInteger }"
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	5402	y "{ Class:SmallInteger }"
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	5403	s "{ Class:SmallInteger }"
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	5404	\|
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	5405	self isVisible ifFalse:[^ 0@0 ].
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	5406
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	5407	isButton ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	5408	s := menuPanel maxAbsoluteButtonLevel.
93426020ceed * empty log message * ca parents: 2216 diff changeset	5409	x := s + HorizontalButtonInset.
93426020ceed * empty log message * ca parents: 2216 diff changeset	5410	y := s + VerticalButtonInset.
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	5411	] ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	5412	x := HorizontalInset.
93426020ceed * empty log message * ca parents: 2216 diff changeset	5413	y := (menuPanel isPopUpView ifTrue:[VerticalPopUpInset] ifFalse:[VerticalInset]) ? 2.
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	5414	].
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	5415	x := x * 2.
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	5416	y := y * 2.
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	5417
1707 4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	5418	isVertical := menuPanel verticalLayout.
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	5419
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	5420	rawLabel isNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	5421	"SEPARATOR"
93426020ceed * empty log message * ca parents: 2216 diff changeset	5422
93426020ceed * empty log message * ca parents: 2216 diff changeset	5423	s := self class separatorSize.
93426020ceed * empty log message * ca parents: 2216 diff changeset	5424	label = '' ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	5425	s := self class halfSeparatorSize.
93426020ceed * empty log message * ca parents: 2216 diff changeset	5426	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	5427
93426020ceed * empty log message * ca parents: 2216 diff changeset	5428	"width of doubleSeparator is 5 !!!!"
93426020ceed * empty log message * ca parents: 2216 diff changeset	5429	isVertical ifFalse:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	5430	x := x max:s.
93426020ceed * empty log message * ca parents: 2216 diff changeset	5431	y := y + 5.
93426020ceed * empty log message * ca parents: 2216 diff changeset	5432	] ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	5433	y := y max:s.
93426020ceed * empty log message * ca parents: 2216 diff changeset	5434	x := x + 5.
93426020ceed * empty log message * ca parents: 2216 diff changeset	5435	].
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	5436	] ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	5437	x := x + rawLabelExtent x.
93426020ceed * empty log message * ca parents: 2216 diff changeset	5438	y := y + rawLabelExtent y.
93426020ceed * empty log message * ca parents: 2216 diff changeset	5439
93426020ceed * empty log message * ca parents: 2216 diff changeset	5440	isButton ifFalse:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	5441	menuPanel showSeparatingLines ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	5442	"width of separator is 2 plus right offset 1 := 3"
93426020ceed * empty log message * ca parents: 2216 diff changeset	5443	isVertical ifFalse:[x := x + 3] ifTrue:[y := y + 3].
93426020ceed * empty log message * ca parents: 2216 diff changeset	5444	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	5445	(indication notNil or:[choice notNil]) ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	5446	x := x + 2 + menuPanel iconIndicationOff width.
93426020ceed * empty log message * ca parents: 2216 diff changeset	5447	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	5448	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	5449	self hasDelayedMenuIndicator ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	5450	icon := self class delayedMenuIndicator.
93426020ceed * empty log message * ca parents: 2216 diff changeset	5451
93426020ceed * empty log message * ca parents: 2216 diff changeset	5452	x := x + self class delayedMenuIndicatorOffset + icon width.
93426020ceed * empty log message * ca parents: 2216 diff changeset	5453	].
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	5454	].
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	5455	^ x@y
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5456	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	5457
1679 af40842718f6 when accepting, and the application does not respond to that Claus Gittinger <cg@exept.de> parents: 1670 diff changeset	5458	!MenuPanel::Item methodsFor:'accessing-help'!
1613 5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	5459
5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	5460	activeHelpKey
5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	5461	"get the active helpKey; the key to retrieve the helpText from the application
5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	5462	"
5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	5463	^ activeHelpKey
5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	5464	!
5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	5465
5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	5466	activeHelpKey:aHelpKey
5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	5467	"set the active helpKey; the key to retrieve the helpText from the application
5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	5468	"
5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	5469	activeHelpKey ~~ aHelpKey ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	5470	activeHelpKey := aHelpKey.
93426020ceed * empty log message * ca parents: 2216 diff changeset	5471	activeHelpText := nil.
1613 5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	5472	].
5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	5473
5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	5474	!
5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	5475
5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	5476	activeHelpText
5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	5477	"get the active helpText or nil if not yet resolved
5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	5478	"
5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	5479	^ activeHelpText
5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	5480	!
5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	5481
5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	5482	activeHelpText:aText
5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	5483	"set the active helpText
5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	5484	"
5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	5485	activeHelpText := aText.
5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	5486	! !
5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	5487
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5488	!MenuPanel::Item methodsFor:'accessing-look'!
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5489
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5490	horizontalLayout
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5491	"on default submenus has a vertical layout;
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5492	true, the submenu has a horizontal layout.
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5493	"
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5494	subMenu ifNotNil:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	5495	^ subMenu verticalLayout == false
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5496	].
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5497	^ horizontalLayout ? false
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5498	!
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5499
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5500	horizontalLayout:aBoolean
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5501	"on default submenus has a vertical layout;
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5502	true, the submenu has a horizontal layout.
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5503	"
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5504	aBoolean == true ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	5505	horizontalLayout := true
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5506	] ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	5507	horizontalLayout := nil "/ default
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5508	].
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5509	!
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5510
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5511	isButton
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5512	"returns whether item looks like a Button
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5513	"
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5514	^ isButton
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5515	!
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5516
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5517	isButton:anBoolean
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5518	"sets whether item looks like a Button
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5519	"
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5520	isButton := anBoolean.
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5521
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5522	layout notNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	5523	self invalidate.
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5524	]
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5525
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5526
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5527
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5528	!
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5529
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5530	layout
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5531	"returns my layout ( Rectangle )
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5532	"
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5533	^ layout
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5534	!
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5535
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5536	layout:aLayout
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5537	"set a new layout ( Rectangle )
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5538	"
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5539	layout := aLayout.
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5540	self invalidate.
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5541
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5542	!
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5543
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5544	showBusyCursorWhilePerforming
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5545	"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	5546	while performing the menu action. Defaults to false.
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5547	"
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5548	^ showBusyCursorWhilePerforming ? false
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5549
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5550
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5551	!
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5552
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5553	showBusyCursorWhilePerforming:aBoolean
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5554	"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	5555	while performing the menu action. Defaults to false.
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5556	"
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5557	showBusyCursorWhilePerforming := aBoolean.
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5558	! !
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5559
1705 201f9ce1b2d2 checkin from browser ca parents: 1704 diff changeset	5560	!MenuPanel::Item methodsFor:'activation / deactivation'!
201f9ce1b2d2 checkin from browser ca parents: 1704 diff changeset	5561
1786 f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	5562	currentSubmenu
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	5563	"returns the current submenu or nil
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	5564	"
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	5565	^ subMenu
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	5566
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	5567
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	5568
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	5569	!
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	5570
1705 201f9ce1b2d2 checkin from browser ca parents: 1704 diff changeset	5571	hideSubmenu
201f9ce1b2d2 checkin from browser ca parents: 1704 diff changeset	5572	"hide submenu
201f9ce1b2d2 checkin from browser ca parents: 1704 diff changeset	5573	"
2199 61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	5574	self hideSubmenu:subMenu.
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	5575	!
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	5576
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	5577	hideSubmenu:aSubmenu
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	5578	"hide submenu
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	5579	"
1705 201f9ce1b2d2 checkin from browser ca parents: 1704 diff changeset	5580	\|id\|
201f9ce1b2d2 checkin from browser ca parents: 1704 diff changeset	5581
2199 61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	5582	aSubmenu ifNil:[^ self].
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	5583
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	5584	aSubmenu realized ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	5585	id := aSubmenu id.
93426020ceed * empty log message * ca parents: 2216 diff changeset	5586	id ifNotNil:[ menuPanel device unmapWindow:id ]
2199 61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	5587	] ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	5588	aSubmenu hide
2199 61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	5589	].
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	5590
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	5591	aSubmenu windowGroup:nil.
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	5592	menuPanel windowGroup removeView:aSubmenu.
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	5593
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	5594	"/ release menu if derived from channel
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	5595	submenuChannel notNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	5596	subMenu == aSubmenu ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	5597	subMenu := nil
93426020ceed * empty log message * ca parents: 2216 diff changeset	5598	]
2199 61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	5599	].
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	5600	!
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	5601
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	5602	openDelayedSubmenu
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	5603	"called to open now my delayed submenu
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	5604	"
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	5605	\|subm\|
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	5606
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	5607	(self isSelected and:[menuPanel shown]) ifFalse:[^ self].
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	5608
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	5609	subMenu ifNotNil:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	5610	subMenu realized ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	5611	"/ already open
93426020ceed * empty log message * ca parents: 2216 diff changeset	5612	^ self
93426020ceed * empty log message * ca parents: 2216 diff changeset	5613	].
2199 61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	5614	].
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	5615	subm := self setupSubmenu.
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	5616	subm ifNil:[^ self].
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	5617
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	5618	self openSubmenu.
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	5619
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	5620	(subm == subMenu and:[self isSelected]) ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	5621	"/ closed during building or opening the submenu
93426020ceed * empty log message * ca parents: 2216 diff changeset	5622	self hideSubmenu:subm.
2199 61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	5623	].
1705 201f9ce1b2d2 checkin from browser ca parents: 1704 diff changeset	5624	!
1701 026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5625
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5626	openSubmenu
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5627	"opens the submenu; make sure, that the submenu and the menPanel
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5628	is fully visible by shifting it into the visible screen area if
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5629	nescessary.
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5630	"
1790 98b89f8f4c17 do not select the first item if it represants a submenu ca parents: 1788 diff changeset	5631	\|p o device isVertical topMenu windGrp prefExtent item
1701 026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5632	devBot "{ Class:SmallInteger }"
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5633	devRight "{ Class:SmallInteger }"
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5634	width "{ Class:SmallInteger }"
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5635	height "{ Class:SmallInteger }"
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5636	top "{ Class:SmallInteger }"
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5637	left "{ Class:SmallInteger }"
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5638	\|
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5639
1737 c18896a7cb50 replace shown by realized; when opening a submenue-submenue by shortcut key ca parents: 1735 diff changeset	5640	(subMenu notNil and:[subMenu shown not and:[self isSelected and:[menuPanel realized]]]) ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	5641	^ self
1701 026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5642	].
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5643
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5644	topMenu := menuPanel topMenu.
1829 bd8b95c5bb89 migration fixes Claus Gittinger <cg@exept.de> parents: 1825 diff changeset	5645	(subMenu device notNil and:[topMenu device ~~ subMenu device]) ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	5646	subMenu releaseDeviceResources.
93426020ceed * empty log message * ca parents: 2216 diff changeset	5647	subMenu setDevice:topMenu device id:nil gcId:nil.
93426020ceed * empty log message * ca parents: 2216 diff changeset	5648	subMenu recreate.
1829 bd8b95c5bb89 migration fixes Claus Gittinger <cg@exept.de> parents: 1825 diff changeset	5649	].
bd8b95c5bb89 migration fixes Claus Gittinger <cg@exept.de> parents: 1825 diff changeset	5650
1701 026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5651	windGrp := topMenu windowGroup.
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5652
1707 4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	5653	subMenu superMenu:menuPanel.
1701 026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5654	subMenu becomesActiveMenu.
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5655	subMenu cursor:Cursor hand.
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5656
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5657	windGrp notNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	5658	subMenu windowGroup:windGrp.
93426020ceed * empty log message * ca parents: 2216 diff changeset	5659	windGrp addTopView:subMenu.
1701 026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5660	].
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5661
2111 f3d67f7c0f92 bug fix when opening a menu by mnemonic ca parents: 2100 diff changeset	5662	"Q&D kludge - test whether the layout is nil;
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	5663	if true recompute the layouts
2111 f3d67f7c0f92 bug fix when opening a menu by mnemonic ca parents: 2100 diff changeset	5664	"
f3d67f7c0f92 bug fix when opening a menu by mnemonic ca parents: 2100 diff changeset	5665	layout ifNil:[menuPanel rearrangeItems].
f3d67f7c0f92 bug fix when opening a menu by mnemonic ca parents: 2100 diff changeset	5666
1701 026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5667	" Q&D kludge - if any visibility attributes are blocks;
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5668	TODO: only invoke mustRearrange if any are blocks
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	5669	(since I react correctly on valueHolder changes)
1701 026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5670	"
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5671	subMenu rearrangeItemsIfItemVisibilityChanged.
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5672	subMenu fixSize.
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5673
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5674	"compute origin of subMenu
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5675	"
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5676	isVertical := menuPanel verticalLayout.
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5677	device := menuPanel device.
1714 b4c05977e9d5 get heigth and width from preferredExtent when open a submenu ca parents: 1710 diff changeset	5678	prefExtent := subMenu preferredExtent.
b4c05977e9d5 get heigth and width from preferredExtent when open a submenu ca parents: 1710 diff changeset	5679	height := prefExtent y.
b4c05977e9d5 get heigth and width from preferredExtent when open a submenu ca parents: 1710 diff changeset	5680	width := prefExtent x.
1701 026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5681	devBot := device usableHeight.
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5682	devRight := device usableWidth.
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5683
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5684	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	5685
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	5686	menuPanel isPopUpView ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	5687	o := menuPanel origin + p
1707 4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	5688	] ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	5689	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	5690	].
1701 026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5691	left := o x.
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5692	top := o y.
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5693
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	5694	top + height > devBot ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	5695	top := isVertical ifTrue:[devBot - height]
93426020ceed * empty log message * ca parents: 2216 diff changeset	5696	ifFalse:[top - layout height - height + 2]
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	5697	].
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	5698	top := top max:0.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	5699
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	5700	"/ (isVertical not and:[subMenu isVerticalLayout]) ifTrue:[
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	5701	"/ top < menuPanel bottom ifTrue:[
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	5702	"/ left := left + layout width.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	5703	"/ ].
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	5704	"/ left + width > devRight ifTrue:[
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	5705	"/ left := o x - width - 2
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	5706	"/ ].
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	5707	"/ ].
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	5708
1701 026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5709	left + width > devRight ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	5710	left := isVertical ifTrue:[left - layout width - width + 2]
93426020ceed * empty log message * ca parents: 2216 diff changeset	5711	ifFalse:[devRight - width]
1701 026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5712	].
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5713	left := left max:0.
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5714
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5715	subMenu origin:(left@top).
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5716
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5717	subMenu realized ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	5718	subMenu realize.
1701 026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5719	] ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	5720	topMenu device mapWindow:(subMenu id).
1701 026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5721	].
1790 98b89f8f4c17 do not select the first item if it represants a submenu ca parents: 1788 diff changeset	5722
1786 f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	5723	menuPanel openMenuOnSelect ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	5724	( menuPanel superMenu notNil "/ not the top menu
93426020ceed * empty log message * ca parents: 2216 diff changeset	5725	or:[((item := subMenu itemAt:1) notNil and:[item hasSubmenu not])] "/ top menu but no submenu item
93426020ceed * empty log message * ca parents: 2216 diff changeset	5726	) ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	5727	subMenu selectionIndex:1
93426020ceed * empty log message * ca parents: 2216 diff changeset	5728	]
1786 f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	5729	].
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	5730	!
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	5731
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	5732	toggleSubmenuVisibility
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	5733	"toggle the visibility of the submenu
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	5734	"
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	5735	subMenu notNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	5736	subMenu shown ifTrue:[^ self hideSubmenu]
1786 f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	5737	] ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	5738	(subMenu := self setupSubmenu) isNil ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	5739	"/ cannot open a submenu
93426020ceed * empty log message * ca parents: 2216 diff changeset	5740	^ self
93426020ceed * empty log message * ca parents: 2216 diff changeset	5741	]
1786 f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	5742	].
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	5743	self openSubmenu.
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	5744
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	5745
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	5746	!
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	5747
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	5748	visibleSubmenu
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	5749	"returns the current visible submenu or nil
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	5750	"
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	5751	subMenu notNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	5752	subMenu shown ifTrue:[^ subMenu].
1786 f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	5753	].
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	5754	^ nil
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	5755
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	5756
1701 026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5757
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5758	! !
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5759
524 d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	5760	!MenuPanel::Item methodsFor:'building'!
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	5761
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	5762	aspectAt:aKey
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	5763	"retursns value assigned to key or nil
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	5764	"
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	5765	\|appl value\|
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	5766
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	5767	appl := menuPanel receiver.
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	5768
1219 6a0d677a6fac removed some #isKindOf: calls. Claus Gittinger <cg@exept.de> parents: 1218 diff changeset	5769	(appl isValueModel) ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	5770	^ appl value:aKey
524 d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	5771	].
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	5772
2123 091268558e93 * empty log message * ca parents: 2118 diff changeset	5773	appl isNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	5774	appl := menuPanel application.
2123 091268558e93 * empty log message * ca parents: 2118 diff changeset	5775	].
091268558e93 * empty log message * ca parents: 2118 diff changeset	5776	appl isNil ifTrue:[ ^ nil].
091268558e93 * empty log message * ca parents: 2118 diff changeset	5777
091268558e93 * empty log message * ca parents: 2118 diff changeset	5778	MessageNotUnderstood handle:[:ex\|
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	5779	ex selector == aKey ifFalse:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	5780	ex reject
93426020ceed * empty log message * ca parents: 2216 diff changeset	5781	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	5782	self ifNotInUIBuilderInfoPrintCR:
93426020ceed * empty log message * ca parents: 2216 diff changeset	5783	('MenuPanel::Item [info]: application does not provide aspect: ' , aKey).
2123 091268558e93 * empty log message * ca parents: 2118 diff changeset	5784	] do:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	5785	aKey numArgs == 1 ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	5786	value := appl perform:aKey with:(argument ? self).
93426020ceed * empty log message * ca parents: 2216 diff changeset	5787	] ifFalse:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	5788	(appl respondsTo:#aspectFor:) ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	5789	value := appl aspectFor:aKey
93426020ceed * empty log message * ca parents: 2216 diff changeset	5790	] ifFalse:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	5791	value := appl perform:aKey
93426020ceed * empty log message * ca parents: 2216 diff changeset	5792	]
93426020ceed * empty log message * ca parents: 2216 diff changeset	5793	]
524 d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	5794	].
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	5795	^ value
1029 c9e90585fa89 only ignore messageNotUnderstood for my aspects. Claus Gittinger <cg@exept.de> parents: 1026 diff changeset	5796
c9e90585fa89 only ignore messageNotUnderstood for my aspects. Claus Gittinger <cg@exept.de> parents: 1026 diff changeset	5797	"Modified: / 29.7.1998 / 11:59:50 / cg"
524 d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	5798	! !
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	5799
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	5800	!MenuPanel::Item methodsFor:'change & update'!
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	5801
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5802	update:something with:aParameter from:changedObject
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5803
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5804	\|form rect\|
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5805
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5806	(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	5807
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5808	self isSeparator ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	5809	"/ NOT A SEPARATOR
93426020ceed * empty log message * ca parents: 2216 diff changeset	5810
93426020ceed * empty log message * ca parents: 2216 diff changeset	5811	menuPanel shown ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	5812	changedObject == enableChannel ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	5813	(enableChannel value == false and:[self isSelected]) ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	5814	^ menuPanel selection:nil.
93426020ceed * empty log message * ca parents: 2216 diff changeset	5815	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	5816	^ self invalidate
93426020ceed * empty log message * ca parents: 2216 diff changeset	5817	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	5818
93426020ceed * empty log message * ca parents: 2216 diff changeset	5819	(changedObject == indication or:[changedObject == choice]) ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	5820	isButton ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	5821	self invalidate
93426020ceed * empty log message * ca parents: 2216 diff changeset	5822	] ifFalse:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	5823	"/ invalidate the interactor only
93426020ceed * empty log message * ca parents: 2216 diff changeset	5824	"/ take any interactor; interactors has the same extent
93426020ceed * empty log message * ca parents: 2216 diff changeset	5825	form := menuPanel iconIndicationOff.
93426020ceed * empty log message * ca parents: 2216 diff changeset	5826
93426020ceed * empty log message * ca parents: 2216 diff changeset	5827	rect := Rectangle left:(layout left + HorizontalInset)
93426020ceed * empty log message * ca parents: 2216 diff changeset	5828	top:(layout top)
93426020ceed * empty log message * ca parents: 2216 diff changeset	5829	width:(form width)
93426020ceed * empty log message * ca parents: 2216 diff changeset	5830	height:(layout height).
93426020ceed * empty log message * ca parents: 2216 diff changeset	5831
93426020ceed * empty log message * ca parents: 2216 diff changeset	5832	menuPanel invalidate:rect repairNow:false
93426020ceed * empty log message * ca parents: 2216 diff changeset	5833	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	5834	^ self
93426020ceed * empty log message * ca parents: 2216 diff changeset	5835	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	5836	].
498 b4c341497621 bug fixes: ca parents: 475 diff changeset	5837	].
712 4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	5838
4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	5839	changedObject == isVisible ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	5840	menuPanel mustRearrange.
93426020ceed * empty log message * ca parents: 2216 diff changeset	5841	menuPanel rearrangeItems.
1690 38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	5842	^ self.
712 4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	5843	].
4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	5844
498 b4c341497621 bug fixes: ca parents: 475 diff changeset	5845	super update:something with:aParameter from:changedObject
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	5846	!
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	5847
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	5848	updateIndicators
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	5849	"update indicators
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	5850	"
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5851	(indication notNil and:[indication isSymbol]) ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	5852	" indication is a selector otherwise a change notification
93426020ceed * empty log message * ca parents: 2216 diff changeset	5853	is raised from the model !!!!
93426020ceed * empty log message * ca parents: 2216 diff changeset	5854	"
93426020ceed * empty log message * ca parents: 2216 diff changeset	5855	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	5856	]
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	5857	! !
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	5858
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5859	!MenuPanel::Item methodsFor:'converting'!
dce33f8bb806 intitial checkin ca parents: diff changeset	5860
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	5861	asMenuItem
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	5862	"convert to a MenuItem
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	5863	"
466 f025831cdae8 pick a imaged label; create a ResourceRetriever ca parents: 465 diff changeset	5864	\|item label rcv\|
f025831cdae8 pick a imaged label; create a ResourceRetriever ca parents: 465 diff changeset	5865
f025831cdae8 pick a imaged label; create a ResourceRetriever ca parents: 465 diff changeset	5866	label := self label.
f025831cdae8 pick a imaged label; create a ResourceRetriever ca parents: 465 diff changeset	5867	item := MenuItem labeled:(label printString).
f025831cdae8 pick a imaged label; create a ResourceRetriever ca parents: 465 diff changeset	5868
f025831cdae8 pick a imaged label; create a ResourceRetriever ca parents: 465 diff changeset	5869	label isImage ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	5870	rcv := ResourceRetriever new.
93426020ceed * empty log message * ca parents: 2216 diff changeset	5871	rcv className:#MenuEditor.
93426020ceed * empty log message * ca parents: 2216 diff changeset	5872	rcv selector:#iconUnknown.
93426020ceed * empty log message * ca parents: 2216 diff changeset	5873	item labelImage:rcv.
464 a788fdce92e2 add submenuChannel ca parents: 461 diff changeset	5874	].
466 f025831cdae8 pick a imaged label; create a ResourceRetriever ca parents: 465 diff changeset	5875
434 9898a2909ef0 add active help for items ca parents: 433 diff changeset	5876	item activeHelpKey:activeHelpKey.
460 5334456cedf8 handle enabled symbol; get aspect from application ca parents: 450 diff changeset	5877
1819 576b0aaf9df1 asMenuItem: do not resolve models ca parents: 1811 diff changeset	5878	enableChannel isSymbol ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	5879	item enabled:enableChannel
460 5334456cedf8 handle enabled symbol; get aspect from application ca parents: 450 diff changeset	5880	].
1727 a6365337be59 support setting font in MenuPanel and Editor ca parents: 1726 diff changeset	5881	item font:font.
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5882	item accessCharacterPosition:accessCharacterPosition.
1819 576b0aaf9df1 asMenuItem: do not resolve models ca parents: 1811 diff changeset	5883
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5884	item startGroup:startGroup.
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5885	item argument:argument.
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5886	item nameKey:nameKey.
1609 2c8d62894ebe optimize searchinf for shortCutKeys ca parents: 1600 diff changeset	5887	item shortcutKeyCharacter:shortcutKey.
1819 576b0aaf9df1 asMenuItem: do not resolve models ca parents: 1811 diff changeset	5888	value isSymbol ifTrue:[item value:value].
576b0aaf9df1 asMenuItem: do not resolve models ca parents: 1811 diff changeset	5889	indication isSymbol ifTrue:[item indication:indication].
576b0aaf9df1 asMenuItem: do not resolve models ca parents: 1811 diff changeset	5890	choice isSymbol ifTrue:[item choice:choice].
576b0aaf9df1 asMenuItem: do not resolve models ca parents: 1811 diff changeset	5891	isVisible isSymbol ifTrue:[item isVisible:isVisible].
576b0aaf9df1 asMenuItem: do not resolve models ca parents: 1811 diff changeset	5892
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5893	item choiceValue:choiceValue.
1819 576b0aaf9df1 asMenuItem: do not resolve models ca parents: 1811 diff changeset	5894	item hideMenuOnActivated:hideMenuOnActivated.
576b0aaf9df1 asMenuItem: do not resolve models ca parents: 1811 diff changeset	5895	item keepLinkedMenu:keepLinkedMenu.
576b0aaf9df1 asMenuItem: do not resolve models ca parents: 1811 diff changeset	5896	item showBusyCursorWhilePerforming:showBusyCursorWhilePerforming.
1841 5d01716cc37c implement: triggerOnDown ca parents: 1836 diff changeset	5897	item triggerOnDown:(self triggerOnDown).
1045 25d174d7b019 optimize: ca parents: 1044 diff changeset	5898	item isButton:isButton.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5899
2100 fb4eb6025151 menuBuilder: support of horizontal/vertical layout of submenu ca parents: 2098 diff changeset	5900	self hasSubmenu ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	5901	horizontalLayout == true ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	5902	item horizontalLayout:true
93426020ceed * empty log message * ca parents: 2216 diff changeset	5903	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	5904
93426020ceed * empty log message * ca parents: 2216 diff changeset	5905	submenuChannel isSymbol ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	5906	item submenuChannel:submenuChannel
93426020ceed * empty log message * ca parents: 2216 diff changeset	5907	] ifFalse:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	5908	subMenu notNil ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	5909	item submenu:(subMenu asMenu)
93426020ceed * empty log message * ca parents: 2216 diff changeset	5910	]
93426020ceed * empty log message * ca parents: 2216 diff changeset	5911	].
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5912	].
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	5913	^ item
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5914	!
dce33f8bb806 intitial checkin ca parents: diff changeset	5915
dce33f8bb806 intitial checkin ca parents: diff changeset	5916	menuItem:aMenuItem
dce33f8bb806 intitial checkin ca parents: diff changeset	5917	"setup attributes from a MenuItem
dce33f8bb806 intitial checkin ca parents: diff changeset	5918	"
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5919	\|lbl\|
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	5920
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5921	menuPanel disabledRedrawDo:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	5922	label := rawLabel := nil.
93426020ceed * empty log message * ca parents: 2216 diff changeset	5923	accessCharacterPosition := aMenuItem accessCharacterPosition.
93426020ceed * empty log message * ca parents: 2216 diff changeset	5924	argument := aMenuItem argument.
93426020ceed * empty log message * ca parents: 2216 diff changeset	5925	choiceValue := aMenuItem choiceValue.
93426020ceed * empty log message * ca parents: 2216 diff changeset	5926	showBusyCursorWhilePerforming := aMenuItem showBusyCursorWhilePerforming.
93426020ceed * empty log message * ca parents: 2216 diff changeset	5927	horizontalLayout := aMenuItem horizontalLayout.
93426020ceed * empty log message * ca parents: 2216 diff changeset	5928	triggerOnDown := aMenuItem triggerOnDown.
93426020ceed * empty log message * ca parents: 2216 diff changeset	5929	hideMenuOnActivated := aMenuItem hideMenuOnActivated.
93426020ceed * empty log message * ca parents: 2216 diff changeset	5930	keepLinkedMenu := aMenuItem keepLinkedMenu.
93426020ceed * empty log message * ca parents: 2216 diff changeset	5931	isButton := aMenuItem isButton ? false.
93426020ceed * empty log message * ca parents: 2216 diff changeset	5932	nameKey := aMenuItem nameKey.
93426020ceed * empty log message * ca parents: 2216 diff changeset	5933	startGroup := aMenuItem startGroup.
93426020ceed * empty log message * ca parents: 2216 diff changeset	5934	shortcutKey := aMenuItem shortcutKeyCharacter.
93426020ceed * empty log message * ca parents: 2216 diff changeset	5935	value := aMenuItem value.
93426020ceed * empty log message * ca parents: 2216 diff changeset	5936	activeHelpKey := aMenuItem activeHelpKey.
93426020ceed * empty log message * ca parents: 2216 diff changeset	5937	activeHelpText := nil.
93426020ceed * empty log message * ca parents: 2216 diff changeset	5938
93426020ceed * empty log message * ca parents: 2216 diff changeset	5939	self font:(aMenuItem font).
93426020ceed * empty log message * ca parents: 2216 diff changeset	5940
93426020ceed * empty log message * ca parents: 2216 diff changeset	5941	self enabled:(aMenuItem enabled).
93426020ceed * empty log message * ca parents: 2216 diff changeset	5942	self indication:(aMenuItem indication).
93426020ceed * empty log message * ca parents: 2216 diff changeset	5943	self choice:(aMenuItem choice).
93426020ceed * empty log message * ca parents: 2216 diff changeset	5944	self isVisible:(aMenuItem isVisible).
93426020ceed * empty log message * ca parents: 2216 diff changeset	5945
93426020ceed * empty log message * ca parents: 2216 diff changeset	5946	(lbl := aMenuItem labelImage value) isNil ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	5947	lbl := aMenuItem rawLabel. "/ avoid translating &'s twice
93426020ceed * empty log message * ca parents: 2216 diff changeset	5948	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	5949
93426020ceed * empty log message * ca parents: 2216 diff changeset	5950	self label:lbl.
93426020ceed * empty log message * ca parents: 2216 diff changeset	5951	submenuChannel := aMenuItem submenuChannel.
93426020ceed * empty log message * ca parents: 2216 diff changeset	5952	self submenu:(aMenuItem submenu).
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5953	]
1033 9badc22e3d03 oops &'s where eliminated twice - leading to double &'s Claus Gittinger <cg@exept.de> parents: 1032 diff changeset	5954
1090 cf3d9f5648da only draw with enteredLevel, if item is enabled Claus Gittinger <cg@exept.de> parents: 1083 diff changeset	5955	"Modified: / 22.8.1998 / 15:34:16 / cg"
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5956	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	5957
dce33f8bb806 intitial checkin ca parents: diff changeset	5958	!MenuPanel::Item methodsFor:'drawing'!
dce33f8bb806 intitial checkin ca parents: diff changeset	5959
1707 4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	5960	drawButton
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	5961	"draw as button
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	5962	"
2159 1eac041aeb3d toggle button draw & behavior Claus Gittinger <cg@exept.de> parents: 2145 diff changeset	5963	\|drawObject fg etchFg level isEnabled isSelected isPressedToggle bg ownBgCol
1707 4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	5964	x "{ Class:SmallInteger }"
2143 7b99a7348c97 draw label shifted right-down when pressed penk parents: 2142 diff changeset	5965	y "{ Class:SmallInteger }"
1707 4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	5966	\|
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	5967	drawObject := rawLabel.
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	5968
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	5969	"COMPUTE COLORS"
2059 c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	5970	isEnabled := self enabled.
2159 1eac041aeb3d toggle button draw & behavior Claus Gittinger <cg@exept.de> parents: 2145 diff changeset	5971	isSelected := self isSelected.
1eac041aeb3d toggle button draw & behavior Claus Gittinger <cg@exept.de> parents: 2145 diff changeset	5972	isPressedToggle := self isToggle and:[self indicationValue].
1eac041aeb3d toggle button draw & behavior Claus Gittinger <cg@exept.de> parents: 2145 diff changeset	5973	(isSelected or:[isPressedToggle]) ifTrue:[
1707 4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	5974	bg := self activeBackgroundColor.
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	5975	fg := self activeForegroundColor.
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	5976	] ifFalse:[
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	5977	self isEntered ifTrue:[
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	5978	bg := self buttonEnteredBackgroundColor
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	5979	] ifFalse:[
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	5980	bg := self backgroundColor
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	5981	].
2059 c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	5982	isEnabled ifTrue:[
1707 4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	5983	fg := menuPanel foregroundColor
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	5984	] ifFalse:[
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	5985	fg := menuPanel disabledForegroundColor.
2059 c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	5986	etchFg := menuPanel disabledEtchedForegroundColor.
1707 4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	5987	drawObject := self disabledRawLabel
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	5988	]
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	5989	].
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	5990
1708 cfaf55b9043d bug fix in background color of button when derives from label(text) ca parents: 1707 diff changeset	5991	(ownBgCol := self backgroundColorFromLabel) notNil ifTrue:[
cfaf55b9043d bug fix in background color of button when derives from label(text) ca parents: 1707 diff changeset	5992	bg := ownBgCol
cfaf55b9043d bug fix in background color of button when derives from label(text) ca parents: 1707 diff changeset	5993	].
cfaf55b9043d bug fix in background color of button when derives from label(text) ca parents: 1707 diff changeset	5994
1707 4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	5995	"DRAW BACKGROUND"
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	5996	bg ~= menuPanel backgroundColor ifTrue:[
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	5997	menuPanel paint:bg.
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	5998	menuPanel fillRectangle:layout.
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	5999	].
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6000
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6001	x := layout left + menuPanel buttonPassiveLevel + HorizontalButtonInset.
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6002
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6003	isSelected ifFalse:[
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6004	"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	6005
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6006	indication notNil ifTrue:[
1707 4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6007	"button is indicator and set"
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6008	isSelected := self indicationValue
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6009	] ifFalse:[
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6010	isSelected := (choice notNil and:[choice value = choiceValue]).
1707 4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6011	]
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6012	].
2143 7b99a7348c97 draw label shifted right-down when pressed penk parents: 2142 diff changeset	6013	y := 0.
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	isSelected ifTrue:[
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6016	level := menuPanel buttonActiveLevel.
2142 ea2a32738005 pressed button label only shifted by one pixel penk parents: 2141 diff changeset	6017	x := x + 1 "level abs".
2143 7b99a7348c97 draw label shifted right-down when pressed penk parents: 2142 diff changeset	6018	y := y + 1 "level abs".
1707 4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6019	] ifFalse:[
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6020	level := self isEntered ifTrue:[menuPanel buttonEnteredLevel]
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	6021	ifFalse:[menuPanel buttonPassiveLevel].
2059 c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6022	].
c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6023
c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6024	etchFg notNil ifTrue:[
2143 7b99a7348c97 draw label shifted right-down when pressed penk parents: 2142 diff changeset	6025	self drawRawLabel:drawObject atX:x+1 yOffset:y+1 paint:etchFg.
7b99a7348c97 draw label shifted right-down when pressed penk parents: 2142 diff changeset	6026	].
7b99a7348c97 draw label shifted right-down when pressed penk parents: 2142 diff changeset	6027	self drawRawLabel:drawObject atX:x yOffset:y+0 paint:fg.
2214 8eefad87cf62 drawing delayed menu indicators... first try not yet finished ca parents: 2199 diff changeset	6028	self drawDelayedMenuIndicator.
1707 4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6029
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6030	level ~~ 0 ifTrue:[
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6031	menuPanel drawButtonEdgesFor:self level:level
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6032	].
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6033	!
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6034
2214 8eefad87cf62 drawing delayed menu indicators... first try not yet finished ca parents: 2199 diff changeset	6035	drawDelayedMenuIndicator
8eefad87cf62 drawing delayed menu indicators... first try not yet finished ca parents: 2199 diff changeset	6036	"draw a labeled entry; no button, no separator.
8eefad87cf62 drawing delayed menu indicators... first try not yet finished ca parents: 2199 diff changeset	6037	"
2220 5ea0ceb20354 delayed submenu indicator Claus Gittinger <cg@exept.de> parents: 2219 diff changeset	6038	\|x y icon bAbsLevel\|
2214 8eefad87cf62 drawing delayed menu indicators... first try not yet finished ca parents: 2199 diff changeset	6039
8eefad87cf62 drawing delayed menu indicators... first try not yet finished ca parents: 2199 diff changeset	6040	self hasDelayedMenuIndicator ifFalse:[
2220 5ea0ceb20354 delayed submenu indicator Claus Gittinger <cg@exept.de> parents: 2219 diff changeset	6041	^ self
2214 8eefad87cf62 drawing delayed menu indicators... first try not yet finished ca parents: 2199 diff changeset	6042	].
8eefad87cf62 drawing delayed menu indicators... first try not yet finished ca parents: 2199 diff changeset	6043
8eefad87cf62 drawing delayed menu indicators... first try not yet finished ca parents: 2199 diff changeset	6044	icon := self class delayedMenuIndicator.
8eefad87cf62 drawing delayed menu indicators... first try not yet finished ca parents: 2199 diff changeset	6045	x := layout right - icon width.
2220 5ea0ceb20354 delayed submenu indicator Claus Gittinger <cg@exept.de> parents: 2219 diff changeset	6046	false "/ delayedMenuIndicatorVerticalPosition == #center
5ea0ceb20354 delayed submenu indicator Claus Gittinger <cg@exept.de> parents: 2219 diff changeset	6047	ifTrue:[
5ea0ceb20354 delayed submenu indicator Claus Gittinger <cg@exept.de> parents: 2219 diff changeset	6048	y := layout height - icon height // 2 + layout top.
5ea0ceb20354 delayed submenu indicator Claus Gittinger <cg@exept.de> parents: 2219 diff changeset	6049	] ifFalse:[
5ea0ceb20354 delayed submenu indicator Claus Gittinger <cg@exept.de> parents: 2219 diff changeset	6050	y := layout bottom - icon height - 2.
5ea0ceb20354 delayed submenu indicator Claus Gittinger <cg@exept.de> parents: 2219 diff changeset	6051	].
5ea0ceb20354 delayed submenu indicator Claus Gittinger <cg@exept.de> parents: 2219 diff changeset	6052
5ea0ceb20354 delayed submenu indicator Claus Gittinger <cg@exept.de> parents: 2219 diff changeset	6053	bAbsLevel := 0.
2214 8eefad87cf62 drawing delayed menu indicators... first try not yet finished ca parents: 2199 diff changeset	6054	isButton ifTrue:[
2220 5ea0ceb20354 delayed submenu indicator Claus Gittinger <cg@exept.de> parents: 2219 diff changeset	6055	self isSelected ifTrue:[
5ea0ceb20354 delayed submenu indicator Claus Gittinger <cg@exept.de> parents: 2219 diff changeset	6056	x := x + 1.
5ea0ceb20354 delayed submenu indicator Claus Gittinger <cg@exept.de> parents: 2219 diff changeset	6057	y := y + 1.
5ea0ceb20354 delayed submenu indicator Claus Gittinger <cg@exept.de> parents: 2219 diff changeset	6058	].
5ea0ceb20354 delayed submenu indicator Claus Gittinger <cg@exept.de> parents: 2219 diff changeset	6059	bAbsLevel := menuPanel maxAbsoluteButtonLevel.
5ea0ceb20354 delayed submenu indicator Claus Gittinger <cg@exept.de> parents: 2219 diff changeset	6060	x := x - bAbsLevel.
5ea0ceb20354 delayed submenu indicator Claus Gittinger <cg@exept.de> parents: 2219 diff changeset	6061	y := y - bAbsLevel.
5ea0ceb20354 delayed submenu indicator Claus Gittinger <cg@exept.de> parents: 2219 diff changeset	6062	].
5ea0ceb20354 delayed submenu indicator Claus Gittinger <cg@exept.de> parents: 2219 diff changeset	6063	x := x - 1 "- HorizontalInset".
5ea0ceb20354 delayed submenu indicator Claus Gittinger <cg@exept.de> parents: 2219 diff changeset	6064
5ea0ceb20354 delayed submenu indicator Claus Gittinger <cg@exept.de> parents: 2219 diff changeset	6065	(self isEnabled "and:[self delayedMenuIsEnabled]") ifFalse:[
5ea0ceb20354 delayed submenu indicator Claus Gittinger <cg@exept.de> parents: 2219 diff changeset	6066	icon := menuPanel lightenedImageOnDevice:icon
2214 8eefad87cf62 drawing delayed menu indicators... first try not yet finished ca parents: 2199 diff changeset	6067	].
8eefad87cf62 drawing delayed menu indicators... first try not yet finished ca parents: 2199 diff changeset	6068	icon displayOn:menuPanel x:x y:y.
2220 5ea0ceb20354 delayed submenu indicator Claus Gittinger <cg@exept.de> parents: 2219 diff changeset	6069
5ea0ceb20354 delayed submenu indicator Claus Gittinger <cg@exept.de> parents: 2219 diff changeset	6070	("drawDelayedMenuIndicatorSeparator and:[" menuPanel buttonPassiveLevel ~~ 0 "]")
5ea0ceb20354 delayed submenu indicator Claus Gittinger <cg@exept.de> parents: 2219 diff changeset	6071	ifTrue:[
5ea0ceb20354 delayed submenu indicator Claus Gittinger <cg@exept.de> parents: 2219 diff changeset	6072	menuPanel paint:menuPanel buttonShadowColor.
5ea0ceb20354 delayed submenu indicator Claus Gittinger <cg@exept.de> parents: 2219 diff changeset	6073	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	6074	menuPanel paint:menuPanel buttonLightColor.
5ea0ceb20354 delayed submenu indicator Claus Gittinger <cg@exept.de> parents: 2219 diff changeset	6075	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	6076	].
2214 8eefad87cf62 drawing delayed menu indicators... first try not yet finished ca parents: 2199 diff changeset	6077	!
8eefad87cf62 drawing delayed menu indicators... first try not yet finished ca parents: 2199 diff changeset	6078
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	6079	drawLabel
1707 4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6080	"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	6081	"
2059 c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6082	\|scKey cLb cLa drawObject fg etchFg arrow
1798 08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	6083	isSelected isEnabled form
1707 4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6084	h "{ Class:SmallInteger }"
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6085	y "{ Class:SmallInteger }"
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6086	x "{ Class:SmallInteger }"
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6087	t "{ Class:SmallInteger }"
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6088	\|
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6089	drawObject := rawLabel.
1048 a8755e51706d bug fixes: ca parents: 1046 diff changeset	6090
1798 08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	6091	isEnabled := self enabled.
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	6092	isSelected := self isSelected.
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	6093	isSelected ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	6094	fg := self activeForegroundColor
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	6095	] ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	6096	isEnabled ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	6097	self isEntered ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	6098	fg := menuPanel enteredForegroundColor
93426020ceed * empty log message * ca parents: 2216 diff changeset	6099	] ifFalse:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	6100	fg := menuPanel foregroundColor
93426020ceed * empty log message * ca parents: 2216 diff changeset	6101	]
93426020ceed * empty log message * ca parents: 2216 diff changeset	6102	] ifFalse:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	6103	fg := menuPanel disabledForegroundColor.
93426020ceed * empty log message * ca parents: 2216 diff changeset	6104	etchFg := menuPanel disabledEtchedForegroundColor.
93426020ceed * empty log message * ca parents: 2216 diff changeset	6105	drawObject := self disabledRawLabel
93426020ceed * empty log message * ca parents: 2216 diff changeset	6106	]
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	6107	].
1707 4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6108
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6109	h := layout height.
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6110	x := layout left + HorizontalInset.
1707 4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6111	t := layout top.
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6112
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6113	((form := self indicatorForm) notNil or:[(form := self choiceForm) notNil]) ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	6114	y := t + ((h - form height) // 2).
1798 08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	6115
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	6116	form displayOn:menuPanel x:x y:y.
93426020ceed * empty log message * ca parents: 2216 diff changeset	6117	x := x + 2 + form width.
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6118	].
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6119
2059 c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6120	etchFg notNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	6121	self drawRawLabel:drawObject atX:x+1 yOffset:1 paint:etchFg.
2059 c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6122	].
c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6123	self drawRawLabel:drawObject atX:x yOffset:0 paint:fg.
2214 8eefad87cf62 drawing delayed menu indicators... first try not yet finished ca parents: 2199 diff changeset	6124	self drawDelayedMenuIndicator.
1046 c03b42debacb bug fixes: ca parents: 1045 diff changeset	6125
608 0d8d910768af use default font derived from style ca parents: 601 diff changeset	6126	"/ DRAW SHORTCUT KEY
0d8d910768af use default font derived from style ca parents: 601 diff changeset	6127
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6128	( shortcutKey notNil
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6129	and:[(x := menuPanel shortKeyInset) ~~ 0
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6130	and:[(scKey:= self shortcutKeyAsString) notNil]]
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6131	) ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	6132	x := layout left + x.
93426020ceed * empty log message * ca parents: 2216 diff changeset	6133	y := t + ((h - (scKey heightOn:menuPanel)) // 2).
93426020ceed * empty log message * ca parents: 2216 diff changeset	6134	y := y + menuPanel font ascent.
93426020ceed * empty log message * ca parents: 2216 diff changeset	6135	scKey displayOn:menuPanel x:x y:y.
608 0d8d910768af use default font derived from style ca parents: 601 diff changeset	6136	].
963 2660033bc16e hide shortKeys in menu (may be later enabled via a classVar) Claus Gittinger <cg@exept.de> parents: 911 diff changeset	6137
608 0d8d910768af use default font derived from style ca parents: 601 diff changeset	6138	"/ DRAW SUBMENU INDICATION
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	6139
1472 fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	6140	(menuPanel isVerticalLayout and:[self hasSubmenu]) ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	6141	arrow := menuPanel rightArrow.
93426020ceed * empty log message * ca parents: 2216 diff changeset	6142	x := layout right - arrow width - HorizontalInset.
93426020ceed * empty log message * ca parents: 2216 diff changeset	6143	y := t + (h - arrow height // 2).
93426020ceed * empty log message * ca parents: 2216 diff changeset	6144
93426020ceed * empty log message * ca parents: 2216 diff changeset	6145	(menuPanel styleSheet is3D not
93426020ceed * empty log message * ca parents: 2216 diff changeset	6146	or:[(drawObject := menuPanel rightArrowShadow) isNil]) ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	6147	^ menuPanel displayForm:arrow x:x y:y
93426020ceed * empty log message * ca parents: 2216 diff changeset	6148	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	6149	cLa := menuPanel shadowColor.
93426020ceed * empty log message * ca parents: 2216 diff changeset	6150	cLb := menuPanel lightColor.
93426020ceed * empty log message * ca parents: 2216 diff changeset	6151
93426020ceed * empty log message * ca parents: 2216 diff changeset	6152	isSelected ifFalse:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	6153	fg := cLa.
93426020ceed * empty log message * ca parents: 2216 diff changeset	6154	cLa := cLb.
93426020ceed * empty log message * ca parents: 2216 diff changeset	6155	cLb := fg
93426020ceed * empty log message * ca parents: 2216 diff changeset	6156	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	6157	menuPanel paint:cLa.
93426020ceed * empty log message * ca parents: 2216 diff changeset	6158	menuPanel displayForm:arrow x:x y:y.
93426020ceed * empty log message * ca parents: 2216 diff changeset	6159	menuPanel paint:cLb.
93426020ceed * empty log message * ca parents: 2216 diff changeset	6160	menuPanel displayForm:drawObject x:x y:y.
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	6161	]
746 bd252bbe276f better drawing routine for button behavior tz parents: 739 diff changeset	6162
1124 4a7fec62a572 smaller checkbox. Claus Gittinger <cg@exept.de> parents: 1117 diff changeset	6163	"Modified: / 6.9.1998 / 21:48:53 / cg"
388 dce33f8bb806 intitial checkin ca parents: diff changeset	6164	!
dce33f8bb806 intitial checkin ca parents: diff changeset	6165
2059 c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6166	drawRawLabel:aLabel atX:x yOffset:yOffset paint:fg
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6167	"draw a labeled entry; no button, no separator.
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6168	"
2059 c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6169	\|mfont fontAscent
1727 a6365337be59 support setting font in MenuPanel and Editor ca parents: 1726 diff changeset	6170	y "{ Class:SmallInteger }"
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6171	y0 "{ Class:SmallInteger }"
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6172	x0 "{ Class:SmallInteger }"
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6173	\|
2059 c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6174
1727 a6365337be59 support setting font in MenuPanel and Editor ca parents: 1726 diff changeset	6175	mfont := menuPanel setFont:font.
2059 c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6176	fontAscent := menuPanel font ascent.
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6177	menuPanel paint:fg.
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6178
2059 c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6179	y := layout top + (layout height - rawLabelExtent y // 2) + yOffset.
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6180
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6181	aLabel isArray ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	6182	aLabel isImageOrForm ifFalse:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	6183	y := y + fontAscent.
93426020ceed * empty log message * ca parents: 2216 diff changeset	6184	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	6185	aLabel displayOn:menuPanel x:x y:y.
1727 a6365337be59 support setting font in MenuPanel and Editor ca parents: 1726 diff changeset	6186	] ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	6187	aLabel do:[:el\|
93426020ceed * empty log message * ca parents: 2216 diff changeset	6188	el notNil ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	6189	el isImageOrForm ifFalse:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	6190	y0 := y + fontAscent
93426020ceed * empty log message * ca parents: 2216 diff changeset	6191	] ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	6192	y0 := y
93426020ceed * empty log message * ca parents: 2216 diff changeset	6193	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	6194	x0 := x + (rawLabelExtent x - (el widthOn:menuPanel) // 2).
93426020ceed * empty log message * ca parents: 2216 diff changeset	6195	el displayOn:menuPanel x:x0 y:y0.
93426020ceed * empty log message * ca parents: 2216 diff changeset	6196	y := y + 1 + (el heightOn:menuPanel)
93426020ceed * empty log message * ca parents: 2216 diff changeset	6197	] ifFalse:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	6198	y := y + 3 "/ see #label:
93426020ceed * empty log message * ca parents: 2216 diff changeset	6199	]
93426020ceed * empty log message * ca parents: 2216 diff changeset	6200	].
1727 a6365337be59 support setting font in MenuPanel and Editor ca parents: 1726 diff changeset	6201	].
a6365337be59 support setting font in MenuPanel and Editor ca parents: 1726 diff changeset	6202	menuPanel setFont:mfont
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6203	!
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6204
1707 4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6205	drawSeparatingLines
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6206	"draw separating lines
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6207	"
2059 c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6208	\|myIndex lfSep rtSep items prevItem nextItem
c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6209	lightColor shadowColor
1707 4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6210	l "{ Class:SmallInteger }"
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6211	t "{ Class:SmallInteger }"
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6212	r "{ Class:SmallInteger }"
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6213	b "{ Class:SmallInteger }"
706 d716edbdbe47 show separators bug cleaned tz parents: 689 diff changeset	6214	\|
2059 c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6215
1707 4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6216	items := menuPanel items.
2059 c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6217	myIndex := items identityIndexOf:self.
c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6218
c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6219	prevItem := items at:(myIndex - 1) ifAbsent:nil.
c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6220	lfSep := prevItem notNil and:[prevItem isButton not].
c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6221
c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6222	nextItem := items at:(myIndex + 1) ifAbsent:nil.
c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6223	rtSep := nextItem notNil and:[nextItem isButton not].
c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6224
c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6225	(lfSep or:[rtSep]) ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	6226	^ self
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	6227	].
2059 c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6228
c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6229	lightColor := menuPanel lightColor.
c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6230	shadowColor := menuPanel shadowColor.
c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6231
c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6232	menuPanel paint:lightColor.
1707 4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6233
608 0d8d910768af use default font derived from style ca parents: 601 diff changeset	6234	l := layout left.
0d8d910768af use default font derived from style ca parents: 601 diff changeset	6235	t := layout top.
0d8d910768af use default font derived from style ca parents: 601 diff changeset	6236	r := layout right.
0d8d910768af use default font derived from style ca parents: 601 diff changeset	6237	b := layout bottom.
1707 4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6238
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6239	menuPanel verticalLayout ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	6240	lfSep ifTrue:[menuPanel displayLineFromX:l y:t-1 toX:r y:t-1].
93426020ceed * empty log message * ca parents: 2216 diff changeset	6241	rtSep ifTrue:[menuPanel displayLineFromX:l y:b-1 toX:r y:b-1].
93426020ceed * empty log message * ca parents: 2216 diff changeset	6242
93426020ceed * empty log message * ca parents: 2216 diff changeset	6243	menuPanel paint:shadowColor.
93426020ceed * empty log message * ca parents: 2216 diff changeset	6244	lfSep ifTrue:[menuPanel displayLineFromX:l y:t-2 toX:r y:t-2].
93426020ceed * empty log message * ca parents: 2216 diff changeset	6245	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	6246	] ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	6247	lfSep ifTrue:[menuPanel displayLineFromX:l-1 y:t toX:l-1 y:b].
93426020ceed * empty log message * ca parents: 2216 diff changeset	6248	rtSep ifTrue:[menuPanel displayLineFromX:r-1 y:t toX:r-1 y:b].
93426020ceed * empty log message * ca parents: 2216 diff changeset	6249
93426020ceed * empty log message * ca parents: 2216 diff changeset	6250	menuPanel paint:shadowColor.
93426020ceed * empty log message * ca parents: 2216 diff changeset	6251	lfSep ifTrue:[menuPanel displayLineFromX:l-2 y:t toX:l-2 y:b].
93426020ceed * empty log message * ca parents: 2216 diff changeset	6252	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	6253	]
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6254	!
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6255
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6256	drawSeparator
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6257	"draw as separator
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6258	"
2059 c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6259	\|type lightColor shadowColor isDouble
c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6260	left top
1707 4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6261	x0 "{ Class:SmallInteger }"
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6262	x1 "{ Class:SmallInteger }"
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6263	y0 "{ Class:SmallInteger }"
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6264	y1 "{ Class:SmallInteger }"
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6265	\|
2059 c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6266
1707 4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6267	type := self separatorType.
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6268	(type isNil or:[type == #blankLine]) ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	6269	^ self
1707 4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6270	].
2059 c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6271
c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6272	isDouble := type == #doubleLine.
c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6273
1707 4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6274	lightColor := menuPanel lightColor.
2059 c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6275	shadowColor := menuPanel shadowColor.
c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6276	menuPanel paint:shadowColor.
c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6277
c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6278	left := layout left.
c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6279	top := layout top.
1707 4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6280
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6281	menuPanel verticalLayout ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	6282	x0 := left + HorizontalInset.
93426020ceed * empty log message * ca parents: 2216 diff changeset	6283	x1 := layout right - HorizontalInset.
93426020ceed * empty log message * ca parents: 2216 diff changeset	6284	y0 := top - 1 + (layout height // 2).
93426020ceed * empty log message * ca parents: 2216 diff changeset	6285	isDouble ifTrue:[y0 := y0 - 2].
93426020ceed * empty log message * ca parents: 2216 diff changeset	6286
93426020ceed * empty log message * ca parents: 2216 diff changeset	6287	menuPanel displayLineFromX:x0 y:y0 toX:x1 y:y0.
93426020ceed * empty log message * ca parents: 2216 diff changeset	6288	isDouble ifTrue:[menuPanel displayLineFromX:x0 y:y0+4 toX:x1 y:y0+4].
93426020ceed * empty log message * ca parents: 2216 diff changeset	6289
93426020ceed * empty log message * ca parents: 2216 diff changeset	6290	menuPanel paint:lightColor.
93426020ceed * empty log message * ca parents: 2216 diff changeset	6291	menuPanel displayLineFromX:x0 y:y0+1 toX:x1 y:y0+1.
93426020ceed * empty log message * ca parents: 2216 diff changeset	6292	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	6293
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6294	] ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	6295	y1 := layout bottom.
93426020ceed * empty log message * ca parents: 2216 diff changeset	6296	x0 := left - 1 + (layout width // 2).
93426020ceed * empty log message * ca parents: 2216 diff changeset	6297	y0 := top.
93426020ceed * empty log message * ca parents: 2216 diff changeset	6298	isDouble ifTrue:[x0 := x0 - 2].
93426020ceed * empty log message * ca parents: 2216 diff changeset	6299
93426020ceed * empty log message * ca parents: 2216 diff changeset	6300	menuPanel displayLineFromX:x0 y:y0 toX:x0 y:y1.
93426020ceed * empty log message * ca parents: 2216 diff changeset	6301	isDouble ifTrue:[menuPanel displayLineFromX:x0+4 y:y0 toX:x0+4 y:y1].
93426020ceed * empty log message * ca parents: 2216 diff changeset	6302
93426020ceed * empty log message * ca parents: 2216 diff changeset	6303	menuPanel paint:lightColor.
93426020ceed * empty log message * ca parents: 2216 diff changeset	6304	menuPanel displayLineFromX:x0+1 y:y0 toX:x0+1 y:y1.
93426020ceed * empty log message * ca parents: 2216 diff changeset	6305	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	6306	]
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6307	!
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6308
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6309	invalidate
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6310
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6311	(rawLabel notNil and:[menuPanel notNil]) ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	6312	menuPanel invalidateItem:self repairNow:false
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6313	]
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6314
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6315
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6316	!
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6317
1707 4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6318	redraw
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6319	"redraw item
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6320	"
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6321	\|isSelected ownBgCol paint bgColor
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6322	x "{ Class:SmallInteger }"
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6323	y "{ Class:SmallInteger }"
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6324	w "{ Class:SmallInteger }"
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6325	h "{ Class:SmallInteger }"
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6326	\|
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6327
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6328	self isVisible ifFalse:[^ self].
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6329
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6330	rawLabel isNil ifTrue:[^ self drawSeparator].
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6331	isButton ifTrue:[^ self drawButton].
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6332
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6333	"/ 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	6334
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6335	isSelected := self isSelected.
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6336	bgColor := menuPanel backgroundColor.
2170 e76171113581 enteredFG / enteredBG Claus Gittinger <cg@exept.de> parents: 2166 diff changeset	6337	paint := isSelected
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	6338	ifTrue:[self activeBackgroundColor]
93426020ceed * empty log message * ca parents: 2216 diff changeset	6339	ifFalse:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	6340	(self isEnabled and:[ self isEntered ]) ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	6341	menuPanel enteredBackgroundColor
93426020ceed * empty log message * ca parents: 2216 diff changeset	6342	] ifFalse:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	6343	bgColor
93426020ceed * empty log message * ca parents: 2216 diff changeset	6344	]].
1707 4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6345
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6346	(ownBgCol := self backgroundColorFromLabel) notNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	6347	paint := ownBgCol
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
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6350	paint ~= bgColor ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	6351	menuPanel paint:paint.
93426020ceed * empty log message * ca parents: 2216 diff changeset	6352	menuPanel fillRectangle:layout.
1707 4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6353	].
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6354
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6355	menuPanel showSeparatingLines ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	6356	self drawSeparatingLines
608 0d8d910768af use default font derived from style ca parents: 601 diff changeset	6357	].
0d8d910768af use default font derived from style ca parents: 601 diff changeset	6358
650 29dcdf6a5994 button and label translation support added tz parents: 638 diff changeset	6359	self drawLabel.
29dcdf6a5994 button and label translation support added tz parents: 638 diff changeset	6360
1045 25d174d7b019 optimize: ca parents: 1044 diff changeset	6361	(ownBgCol notNil and:[isSelected]) ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	6362	ownBgCol brightness > 0.5 ifTrue:[menuPanel paint: menuPanel selectionFrameDarkColor]
93426020ceed * empty log message * ca parents: 2216 diff changeset	6363	ifFalse:[menuPanel paint: menuPanel selectionFrameBrightColor].
93426020ceed * empty log message * ca parents: 2216 diff changeset	6364
93426020ceed * empty log message * ca parents: 2216 diff changeset	6365	x := layout left.
93426020ceed * empty log message * ca parents: 2216 diff changeset	6366	y := layout top.
93426020ceed * empty log message * ca parents: 2216 diff changeset	6367	w := layout width.
93426020ceed * empty log message * ca parents: 2216 diff changeset	6368	h := layout height.
93426020ceed * empty log message * ca parents: 2216 diff changeset	6369
93426020ceed * empty log message * ca parents: 2216 diff changeset	6370	menuPanel displayRectangleX:(x + 1) y:(y + 1) width:(w - 2) height:(h - 2).
93426020ceed * empty log message * ca parents: 2216 diff changeset	6371	menuPanel displayRectangleX:(x + 2) y:(y + 2) width:(w - 4) height:(h - 4).
1690 38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	6372	].
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	6373	menuPanel drawLabelEdgeFor:self selected:isSelected.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	6374	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	6375
dce33f8bb806 intitial checkin ca parents: diff changeset	6376	!MenuPanel::Item methodsFor:'initialization'!
dce33f8bb806 intitial checkin ca parents: diff changeset	6377
dce33f8bb806 intitial checkin ca parents: diff changeset	6378	destroy
616 a6157b083830 support of different styles ca parents: 608 diff changeset	6379	"destroy submenus, remove dependencies
388 dce33f8bb806 intitial checkin ca parents: diff changeset	6380	"
616 a6157b083830 support of different styles ca parents: 608 diff changeset	6381	self submenu:nil.
a6157b083830 support of different styles ca parents: 608 diff changeset	6382
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6383	enableChannel isValueModel ifTrue:[enableChannel removeDependent:self].
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6384	isVisible isValueModel ifTrue:[isVisible removeDependent:self].
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6385	indication isValueModel ifTrue:[indication removeDependent:self].
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6386	choice isValueModel ifTrue:[choice removeDependent:self].
616 a6157b083830 support of different styles ca parents: 608 diff changeset	6387
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	6388	menuPanel := nil.
616 a6157b083830 support of different styles ca parents: 608 diff changeset	6389	!
a6157b083830 support of different styles ca parents: 608 diff changeset	6390
794 5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	6391	in:aPanel
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	6392	"create item in a menuPanel
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	6393	"
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	6394	menuPanel := aPanel.
1045 25d174d7b019 optimize: ca parents: 1044 diff changeset	6395	isButton := false.
1811 df4f5e5b3396 restart under windows Claus Gittinger <cg@exept.de> parents: 1810 diff changeset	6396	!
df4f5e5b3396 restart under windows Claus Gittinger <cg@exept.de> parents: 1810 diff changeset	6397
df4f5e5b3396 restart under windows Claus Gittinger <cg@exept.de> parents: 1810 diff changeset	6398	reinitStyle
df4f5e5b3396 restart under windows Claus Gittinger <cg@exept.de> parents: 1810 diff changeset	6399
df4f5e5b3396 restart under windows Claus Gittinger <cg@exept.de> parents: 1810 diff changeset	6400	subMenu notNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	6401	subMenu reinitStyle
1811 df4f5e5b3396 restart under windows Claus Gittinger <cg@exept.de> parents: 1810 diff changeset	6402	].
df4f5e5b3396 restart under windows Claus Gittinger <cg@exept.de> parents: 1810 diff changeset	6403
df4f5e5b3396 restart under windows Claus Gittinger <cg@exept.de> parents: 1810 diff changeset	6404	"Created: / 17.8.2000 / 17:57:07 / cg"
df4f5e5b3396 restart under windows Claus Gittinger <cg@exept.de> parents: 1810 diff changeset	6405	"Modified: / 17.8.2000 / 18:00:08 / cg"
794 5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	6406	! !
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	6407
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	6408	!MenuPanel::Item methodsFor:'label basics'!
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	6409
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	6410	disabledRawLabel
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	6411	"returns the label used if the item is disabled
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	6412	"
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6413	\|block form image\|
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6414
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6415	disabledRawLabel notNil ifTrue:[^ disabledRawLabel].
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6416
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6417	disabledRawLabel := rawLabel ? ''.
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6418
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6419	disabledRawLabel isString ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	6420	^ disabledRawLabel
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6421	].
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6422
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6423	block := [:el\| \|rslt\|
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	6424	(rslt := el) notNil ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	6425	el isImageOrForm ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	6426	el colorMap notNil ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	6427	rslt := menuPanel lightenedImageOnDevice:el
93426020ceed * empty log message * ca parents: 2216 diff changeset	6428	]
93426020ceed * empty log message * ca parents: 2216 diff changeset	6429	] ifFalse:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	6430	el class == LabelAndIcon ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	6431	((form := el icon) notNil and:[form colorMap notNil]) ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	6432	form := menuPanel lightenedImageOnDevice:form
93426020ceed * empty log message * ca parents: 2216 diff changeset	6433	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	6434	((image := el image) notNil and:[image colorMap notNil]) ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	6435	image := menuPanel lightenedImageOnDevice:image
93426020ceed * empty log message * ca parents: 2216 diff changeset	6436	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	6437	rslt := LabelAndIcon form:form image:image string:(el string).
93426020ceed * empty log message * ca parents: 2216 diff changeset	6438	]
93426020ceed * empty log message * ca parents: 2216 diff changeset	6439	]
93426020ceed * empty log message * ca parents: 2216 diff changeset	6440	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	6441	rslt
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6442	].
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6443
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6444	rawLabel isArray ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	6445	disabledRawLabel := Array new:(rawLabel size).
93426020ceed * empty log message * ca parents: 2216 diff changeset	6446
93426020ceed * empty log message * ca parents: 2216 diff changeset	6447	rawLabel keysAndValuesDo:[:anIndex :aLabel\|
93426020ceed * empty log message * ca parents: 2216 diff changeset	6448	disabledRawLabel at:anIndex put:(block value:aLabel)
93426020ceed * empty log message * ca parents: 2216 diff changeset	6449	]
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6450	] ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	6451	disabledRawLabel := block value:rawLabel
794 5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	6452	].
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	6453	^ disabledRawLabel
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	6454	!
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	6455
1829 bd8b95c5bb89 migration fixes Claus Gittinger <cg@exept.de> parents: 1825 diff changeset	6456	fetchDeviceResources
bd8b95c5bb89 migration fixes Claus Gittinger <cg@exept.de> parents: 1825 diff changeset	6457	disabledRawLabel := nil.
bd8b95c5bb89 migration fixes Claus Gittinger <cg@exept.de> parents: 1825 diff changeset	6458	self fetchImages.
bd8b95c5bb89 migration fixes Claus Gittinger <cg@exept.de> parents: 1825 diff changeset	6459
bd8b95c5bb89 migration fixes Claus Gittinger <cg@exept.de> parents: 1825 diff changeset	6460	font notNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	6461	font := font onDevice:(menuPanel device)
1829 bd8b95c5bb89 migration fixes Claus Gittinger <cg@exept.de> parents: 1825 diff changeset	6462	].
bd8b95c5bb89 migration fixes Claus Gittinger <cg@exept.de> parents: 1825 diff changeset	6463	!
bd8b95c5bb89 migration fixes Claus Gittinger <cg@exept.de> parents: 1825 diff changeset	6464
616 a6157b083830 support of different styles ca parents: 608 diff changeset	6465	fetchImages
a6157b083830 support of different styles ca parents: 608 diff changeset	6466	"fetch images
a6157b083830 support of different styles ca parents: 608 diff changeset	6467	"
2118 89d02ebc5b65 optimize #labels: and #fetchImages in Item. discard block ca parents: 2113 diff changeset	6468	\|icon\|
89d02ebc5b65 optimize #labels: and #fetchImages in Item. discard block ca parents: 2113 diff changeset	6469
89d02ebc5b65 optimize #labels: and #fetchImages in Item. discard block ca parents: 2113 diff changeset	6470	(rawLabel isNil or:[rawLabel isString]) ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	6471	^ self
2118 89d02ebc5b65 optimize #labels: and #fetchImages in Item. discard block ca parents: 2113 diff changeset	6472	].
89d02ebc5b65 optimize #labels: and #fetchImages in Item. discard block ca parents: 2113 diff changeset	6473	rawLabel isImageOrForm ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	6474	rawLabel := menuPanel imageOnDevice:rawLabel.
2118 89d02ebc5b65 optimize #labels: and #fetchImages in Item. discard block ca parents: 2113 diff changeset	6475	^ self.
89d02ebc5b65 optimize #labels: and #fetchImages in Item. discard block ca parents: 2113 diff changeset	6476	].
89d02ebc5b65 optimize #labels: and #fetchImages in Item. discard block ca parents: 2113 diff changeset	6477
89d02ebc5b65 optimize #labels: and #fetchImages in Item. discard block ca parents: 2113 diff changeset	6478	rawLabel class == LabelAndIcon ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	6479	(icon := rawLabel image) notNil ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	6480	rawLabel image:(menuPanel imageOnDevice:icon)
93426020ceed * empty log message * ca parents: 2216 diff changeset	6481	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	6482	(icon := rawLabel icon) notNil ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	6483	rawLabel icon:(menuPanel imageOnDevice:icon)
93426020ceed * empty log message * ca parents: 2216 diff changeset	6484	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	6485	^ self
2118 89d02ebc5b65 optimize #labels: and #fetchImages in Item. discard block ca parents: 2113 diff changeset	6486	].
89d02ebc5b65 optimize #labels: and #fetchImages in Item. discard block ca parents: 2113 diff changeset	6487
89d02ebc5b65 optimize #labels: and #fetchImages in Item. discard block ca parents: 2113 diff changeset	6488	rawLabel isArray ifFalse:[^ self].
89d02ebc5b65 optimize #labels: and #fetchImages in Item. discard block ca parents: 2113 diff changeset	6489
89d02ebc5b65 optimize #labels: and #fetchImages in Item. discard block ca parents: 2113 diff changeset	6490	rawLabel keysAndValuesDo:[:i :el\|
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	6491	(el notNil and:[el isString not]) ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	6492	el isImageOrForm ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	6493	rawLabel at:i put:(menuPanel imageOnDevice:el).
93426020ceed * empty log message * ca parents: 2216 diff changeset	6494	] ifFalse:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	6495	el class == LabelAndIcon ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	6496	(icon := el image) notNil ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	6497	el image:(menuPanel imageOnDevice:icon)
93426020ceed * empty log message * ca parents: 2216 diff changeset	6498	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	6499	(icon := el icon) notNil ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	6500	el icon:(menuPanel imageOnDevice:icon)
93426020ceed * empty log message * ca parents: 2216 diff changeset	6501	]
93426020ceed * empty log message * ca parents: 2216 diff changeset	6502	]
93426020ceed * empty log message * ca parents: 2216 diff changeset	6503	]
93426020ceed * empty log message * ca parents: 2216 diff changeset	6504	]
1078 3adf74275ebd support choice for buttons ca parents: 1076 diff changeset	6505	].
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6506	!
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6507
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6508	updateAccessCharacterFor:aLabel
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6509	\|s i rest label pos\|
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6510
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6511	(accessCharacter notNil or:[aLabel isNil]) ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	6512	^ aLabel
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6513	].
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6514
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6515	aLabel isString ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	6516	aLabel class == LabelAndIcon ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	6517	aLabel string:(self updateAccessCharacterFor:(aLabel string))
93426020ceed * empty log message * ca parents: 2216 diff changeset	6518	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	6519	^ aLabel
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6520	].
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6521
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6522	s := aLabel size.
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6523	i := 1.
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	label := aLabel.
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6526	pos := accessCharacterPosition.
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6527
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6528	[((i := label indexOf:$& startingAt:i) ~~ 0 and:[i < s])] whileTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	6529	rest := label copyFrom:(i+1).
93426020ceed * empty log message * ca parents: 2216 diff changeset	6530
93426020ceed * empty log message * ca parents: 2216 diff changeset	6531	i == 1 ifTrue:[label := rest]
93426020ceed * empty log message * ca parents: 2216 diff changeset	6532	ifFalse:[label := (label copyFrom:1 to:(i-1)), rest].
93426020ceed * empty log message * ca parents: 2216 diff changeset	6533
93426020ceed * empty log message * ca parents: 2216 diff changeset	6534	(label at:i) == $& ifTrue:[i := i + 1] ifFalse:[pos := i].
93426020ceed * empty log message * ca parents: 2216 diff changeset	6535	s := s - 1.
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6536	].
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6537
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6538	(pos isNil or:[(accessCharacter := label at:pos ifAbsent:nil) isNil]) ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	6539	^ label
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6540	].
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6541
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6542	label isText ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	6543	label := Text string:label
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6544	].
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6545	label emphasisAt:pos add:#underline.
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6546	^ label
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6547
388 dce33f8bb806 intitial checkin ca parents: diff changeset	6548	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	6549
1573 fd124ee2bce5 shortcutKeys; arrange layout if selection changed ca parents: 1572 diff changeset	6550	!MenuPanel::Item methodsFor:'printing & storing'!
fd124ee2bce5 shortcutKeys; arrange layout if selection changed ca parents: 1572 diff changeset	6551
fd124ee2bce5 shortcutKeys; arrange layout if selection changed ca parents: 1572 diff changeset	6552	displayString
1690 38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	6553	^ self class name, '[', label printString, ']'
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	6554
1573 fd124ee2bce5 shortcutKeys; arrange layout if selection changed ca parents: 1572 diff changeset	6555	! !
fd124ee2bce5 shortcutKeys; arrange layout if selection changed ca parents: 1572 diff changeset	6556
388 dce33f8bb806 intitial checkin ca parents: diff changeset	6557	!MenuPanel::Item methodsFor:'private'!
dce33f8bb806 intitial checkin ca parents: diff changeset	6558
650 29dcdf6a5994 button and label translation support added tz parents: 638 diff changeset	6559	activeBackgroundColor
29dcdf6a5994 button and label translation support added tz parents: 638 diff changeset	6560	"returns the active background color derived from menuPanel
29dcdf6a5994 button and label translation support added tz parents: 638 diff changeset	6561	"
29dcdf6a5994 button and label translation support added tz parents: 638 diff changeset	6562
1045 25d174d7b019 optimize: ca parents: 1044 diff changeset	6563	isButton ifTrue: [^menuPanel buttonActiveBackgroundColor].
650 29dcdf6a5994 button and label translation support added tz parents: 638 diff changeset	6564	^menuPanel activeBackgroundColor
29dcdf6a5994 button and label translation support added tz parents: 638 diff changeset	6565	!
29dcdf6a5994 button and label translation support added tz parents: 638 diff changeset	6566
29dcdf6a5994 button and label translation support added tz parents: 638 diff changeset	6567	activeForegroundColor
29dcdf6a5994 button and label translation support added tz parents: 638 diff changeset	6568	"returns the active foreground color derived from menuPanel
29dcdf6a5994 button and label translation support added tz parents: 638 diff changeset	6569	"
29dcdf6a5994 button and label translation support added tz parents: 638 diff changeset	6570
29dcdf6a5994 button and label translation support added tz parents: 638 diff changeset	6571	^menuPanel activeForegroundColor
29dcdf6a5994 button and label translation support added tz parents: 638 diff changeset	6572	!
29dcdf6a5994 button and label translation support added tz parents: 638 diff changeset	6573
727 3ba54333342a button style from style sheet tz parents: 723 diff changeset	6574	backgroundColor
3ba54333342a button style from style sheet tz parents: 723 diff changeset	6575	"returns the background color derived from menuPanel
3ba54333342a button style from style sheet tz parents: 723 diff changeset	6576	"
3ba54333342a button style from style sheet tz parents: 723 diff changeset	6577
1045 25d174d7b019 optimize: ca parents: 1044 diff changeset	6578	isButton ifTrue: [^menuPanel buttonPassiveBackgroundColor].
727 3ba54333342a button style from style sheet tz parents: 723 diff changeset	6579	^menuPanel backgroundColor
3ba54333342a button style from style sheet tz parents: 723 diff changeset	6580	!
3ba54333342a button style from style sheet tz parents: 723 diff changeset	6581
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	6582	backgroundColorFromLabel
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	6583	"returns the background color derived from label or nil
388 dce33f8bb806 intitial checkin ca parents: diff changeset	6584	"
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	6585	\|run\|
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	6586
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	6587	label isText ifFalse:[^ nil ].
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	6588	run := label emphasis.
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	6589	run size == 0 ifTrue:[^ nil ].
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	6590
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	6591	run := run first.
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	6592
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	6593	run size == 0 ifTrue:[
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	6594	(run value isColor and:[run key == #backgroundColor]) ifTrue:[
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	6595	^ run value
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	6596	]
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	6597	] ifFalse:[
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	6598	run do:[:r\|
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	6599	(r value isColor and:[r key == #backgroundColor]) ifTrue:[
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	6600	^ r value
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	6601	]
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	6602	]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	6603	].
dce33f8bb806 intitial checkin ca parents: diff changeset	6604	^ nil
dce33f8bb806 intitial checkin ca parents: diff changeset	6605	!
dce33f8bb806 intitial checkin ca parents: diff changeset	6606
1081 fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	6607	buttonEnteredBackgroundColor
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	6608	"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	6609	derived from menuPanel
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	6610	"
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	6611
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	6612	isButton ifTrue: [^ menuPanel buttonEnteredBackgroundColor].
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	6613	^ menuPanel backgroundColor
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	6614
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	6615	"Created: / 20.8.1998 / 13:56:10 / cg"
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	6616	!
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	6617
1074 25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	6618	choiceForm
25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	6619	"returns choice form or nil
25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	6620	"
1798 08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	6621	\|isOn\|
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	6622
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6623	choice isNil ifTrue:[^ nil].
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6624
1798 08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	6625	isOn := choice value = choiceValue.
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	6626	self enabled ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	6627	^ isOn ifTrue:[menuPanel iconRadioGroupDisabledOn]
93426020ceed * empty log message * ca parents: 2216 diff changeset	6628	ifFalse:[menuPanel iconRadioGroupDisabledOff]
1798 08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	6629	].
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	6630	^ isOn ifTrue:[menuPanel iconRadioGroupOn]
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	6631	ifFalse:[menuPanel iconRadioGroupOff]
1074 25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	6632	!
25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	6633
663 b418df6b72d8 retrive submenu: ca parents: 661 diff changeset	6634	findSubMenuIn:aRecv
1051 a448c854fcbb catch messageNotUnderstood for #aspectFor: Claus Gittinger <cg@exept.de> parents: 1048 diff changeset	6635	"ask the receiver for a submenu aspect, sending it
a448c854fcbb catch messageNotUnderstood for #aspectFor: Claus Gittinger <cg@exept.de> parents: 1048 diff changeset	6636	#aspectFor: first; then trying the selector itself.
a448c854fcbb catch messageNotUnderstood for #aspectFor: Claus Gittinger <cg@exept.de> parents: 1048 diff changeset	6637	Ignore the error if that message is not understood
a448c854fcbb catch messageNotUnderstood for #aspectFor: Claus Gittinger <cg@exept.de> parents: 1048 diff changeset	6638	(but not other message-not-understoods)"
a448c854fcbb catch messageNotUnderstood for #aspectFor: Claus Gittinger <cg@exept.de> parents: 1048 diff changeset	6639
2069 7891c7d3af69 use new #perform:withOptionalArgument: Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	6640	\|subm sel numArgs\|
1795 6afd0e768267 submenuChannel selector: allow upto two arguments, the arg and the menu ca parents: 1793 diff changeset	6641
6afd0e768267 submenuChannel selector: allow upto two arguments, the arg and the menu ca parents: 1793 diff changeset	6642	aRecv isNil ifTrue:[^ nil].
6afd0e768267 submenuChannel selector: allow upto two arguments, the arg and the menu ca parents: 1793 diff changeset	6643
6afd0e768267 submenuChannel selector: allow upto two arguments, the arg and the menu ca parents: 1793 diff changeset	6644	sel := submenuChannel asSymbol.
2069 7891c7d3af69 use new #perform:withOptionalArgument: Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	6645	numArgs := sel numArgs.
7891c7d3af69 use new #perform:withOptionalArgument: Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	6646
7891c7d3af69 use new #perform:withOptionalArgument: Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	6647	numArgs == 0 ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	6648	MessageNotUnderstood handle:[:ex \|
93426020ceed * empty log message * ca parents: 2216 diff changeset	6649	\|selector\|
93426020ceed * empty log message * ca parents: 2216 diff changeset	6650
93426020ceed * empty log message * ca parents: 2216 diff changeset	6651	((selector := ex message selector) == sel
93426020ceed * empty log message * ca parents: 2216 diff changeset	6652	or:[selector == #aspectFor:]) ifFalse:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	6653	ex reject
93426020ceed * empty log message * ca parents: 2216 diff changeset	6654	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	6655	] do:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	6656	subm := aRecv aspectFor:sel.
93426020ceed * empty log message * ca parents: 2216 diff changeset	6657	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	6658	subm notNil ifTrue:[^ subm].
1795 6afd0e768267 submenuChannel selector: allow upto two arguments, the arg and the menu ca parents: 1793 diff changeset	6659	].
6afd0e768267 submenuChannel selector: allow upto two arguments, the arg and the menu ca parents: 1793 diff changeset	6660
2043 133a9674bcdf * empty log message * Claus Gittinger <cg@exept.de> parents: 2042 diff changeset	6661	(Array with:(aRecv) with:(aRecv class))
133a9674bcdf * empty log message * Claus Gittinger <cg@exept.de> parents: 2042 diff changeset	6662	do:[:aPossibleReceiver \|
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	6663	MessageNotUnderstood handle:[:ex\|
93426020ceed * empty log message * ca parents: 2216 diff changeset	6664	ex message selector == sel ifFalse:[ ex reject ]
93426020ceed * empty log message * ca parents: 2216 diff changeset	6665	] do:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	6666	numArgs == 0 ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	6667	subm := aPossibleReceiver perform:sel
93426020ceed * empty log message * ca parents: 2216 diff changeset	6668	] ifFalse:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	6669	numArgs == 1 ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	6670	subm := aPossibleReceiver perform:sel with:(argument ? menuPanel)
93426020ceed * empty log message * ca parents: 2216 diff changeset	6671	] ifFalse:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	6672	subm := aPossibleReceiver perform:sel with:argument with:menuPanel
93426020ceed * empty log message * ca parents: 2216 diff changeset	6673	]
93426020ceed * empty log message * ca parents: 2216 diff changeset	6674	]
93426020ceed * empty log message * ca parents: 2216 diff changeset	6675	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	6676	subm notNil ifTrue:[^ subm].
1795 6afd0e768267 submenuChannel selector: allow upto two arguments, the arg and the menu ca parents: 1793 diff changeset	6677	].
6afd0e768267 submenuChannel selector: allow upto two arguments, the arg and the menu ca parents: 1793 diff changeset	6678
663 b418df6b72d8 retrive submenu: ca parents: 661 diff changeset	6679	^ subm
2043 133a9674bcdf * empty log message * Claus Gittinger <cg@exept.de> parents: 2042 diff changeset	6680
133a9674bcdf * empty log message * Claus Gittinger <cg@exept.de> parents: 2042 diff changeset	6681	"Modified: / 30.10.2001 / 13:28:25 / cg"
663 b418df6b72d8 retrive submenu: ca parents: 661 diff changeset	6682	!
b418df6b72d8 retrive submenu: ca parents: 661 diff changeset	6683
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	6684	indicationValue
524 d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	6685	"returns indication value or nil in case of no indication
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	6686	"
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6687	\|numArgs sel recv\|
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6688
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6689	indication isNil ifTrue:[^ nil]. "no indication specified"
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6690
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6691	indication isSymbol ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	6692	^ indication value == true "block or model"
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6693	].
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6694
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6695	(numArgs := indication numArgs) == 2 ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	6696	recv := menuPanel receiver.
93426020ceed * empty log message * ca parents: 2216 diff changeset	6697
93426020ceed * empty log message * ca parents: 2216 diff changeset	6698	(recv isValueModel) ifFalse:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	6699	(recv notNil or:[(recv := menuPanel application) notNil]) ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	6700	sel := indication copyFrom:1 to:(indication indexOf:$:).
93426020ceed * empty log message * ca parents: 2216 diff changeset	6701	sel := sel asSymbol.
93426020ceed * empty log message * ca parents: 2216 diff changeset	6702
93426020ceed * empty log message * ca parents: 2216 diff changeset	6703	MessageNotUnderstood handle:[:ex\|
93426020ceed * empty log message * ca parents: 2216 diff changeset	6704	ex message selector == sel ifFalse:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	6705	ex reject
93426020ceed * empty log message * ca parents: 2216 diff changeset	6706	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	6707	] do:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	6708	sel := recv perform:sel with:argument
93426020ceed * empty log message * ca parents: 2216 diff changeset	6709	]
93426020ceed * empty log message * ca parents: 2216 diff changeset	6710	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	6711	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	6712	^ sel value == true
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6713	].
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6714
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6715	numArgs ~~ 0 ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	6716	sel := (indication copyWithoutLast:1) asSymbol
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6717	] ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	6718	sel := indication
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6719	].
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6720	sel := self aspectAt:sel.
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6721
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6722	sel isValueModel ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	6723	indication := sel.
93426020ceed * empty log message * ca parents: 2216 diff changeset	6724	indication addDependent:self.
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6725	].
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6726	^ sel value == true
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	6727	!
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	6728
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	6729	indicationValue:aValue
1218 6ce43fcb2603 code cleanup Claus Gittinger <cg@exept.de> parents: 1217 diff changeset	6730	"set the indication value
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	6731	"
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6732	\|numArgs recv\|
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6733
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6734	indication isNil ifTrue:[^ self]. "no indication specified"
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6735
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6736	indication isSymbol ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	6737	indication perform:#value: with:aValue ifNotUnderstood:nil. "block or model"
93426020ceed * empty log message * ca parents: 2216 diff changeset	6738	^ self
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6739	].
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6740
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6741	(numArgs := indication numArgs) == 0 ifTrue:[ "no arguments to selector; cannot set"
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	6742	^ self
1218 6ce43fcb2603 code cleanup Claus Gittinger <cg@exept.de> parents: 1217 diff changeset	6743	].
6ce43fcb2603 code cleanup Claus Gittinger <cg@exept.de> parents: 1217 diff changeset	6744
524 d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	6745	recv := menuPanel receiver.
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6746	recv isValueModel ifTrue:[^ self].
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6747
1218 6ce43fcb2603 code cleanup Claus Gittinger <cg@exept.de> parents: 1217 diff changeset	6748	recv isNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	6749	recv := menuPanel application.
93426020ceed * empty log message * ca parents: 2216 diff changeset	6750	recv isNil ifTrue:[^ self].
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6751	].
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6752
2069 7891c7d3af69 use new #perform:withOptionalArgument: Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	6753	MessageNotUnderstood handle:[:ex\|
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	6754	(ex message selector ~~ indication) ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	6755	ex reject
93426020ceed * empty log message * ca parents: 2216 diff changeset	6756	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	6757	self ifNotInUIBuilderInfoPrintCR:
93426020ceed * empty log message * ca parents: 2216 diff changeset	6758	('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	6759	] do:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	6760	numArgs == 1 ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	6761	recv perform:indication with:aValue
93426020ceed * empty log message * ca parents: 2216 diff changeset	6762	] ifFalse:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	6763	recv perform:indication with:(argument ? self) with:aValue
93426020ceed * empty log message * ca parents: 2216 diff changeset	6764	]
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6765	].
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	6766	!
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	6767
1074 25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	6768	indicatorForm
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	6769	"returns indication form or nil
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	6770	"
1798 08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	6771	\|val\|
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	6772
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6773	indication isNil ifTrue:[^ nil].
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6774
1798 08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	6775	val := self indicationValue.
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	6776	self enabled ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	6777	^ val == true
93426020ceed * empty log message * ca parents: 2216 diff changeset	6778	ifTrue:[menuPanel iconIndicationDisabledOn]
93426020ceed * empty log message * ca parents: 2216 diff changeset	6779	ifFalse:[menuPanel iconIndicationDisabledOff]
1798 08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	6780	].
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	6781	^ val == true
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	6782	ifTrue:[menuPanel iconIndicationOn]
93426020ceed * empty log message * ca parents: 2216 diff changeset	6783	ifFalse:[menuPanel iconIndicationOff]
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	6784	!
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	6785
1081 fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	6786	isEntered
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	6787	"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	6788	"
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	6789	^ menuPanel enteredItem == self
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	6790
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	6791	"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	6792	!
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	6793
464 a788fdce92e2 add submenuChannel ca parents: 461 diff changeset	6794	separatorType
a788fdce92e2 add submenuChannel ca parents: 461 diff changeset	6795	"returns type of separator line or nil
388 dce33f8bb806 intitial checkin ca parents: diff changeset	6796	"
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	6797	\|c lbl\|
388 dce33f8bb806 intitial checkin ca parents: diff changeset	6798
dce33f8bb806 intitial checkin ca parents: diff changeset	6799	rawLabel isNil ifFalse:[
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	6800	^ nil
388 dce33f8bb806 intitial checkin ca parents: diff changeset	6801	].
dce33f8bb806 intitial checkin ca parents: diff changeset	6802
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	6803	(lbl := label value) isNil ifTrue:[
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	6804	^ #singleLine
388 dce33f8bb806 intitial checkin ca parents: diff changeset	6805	].
dce33f8bb806 intitial checkin ca parents: diff changeset	6806
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	6807	lbl size == 1 ifTrue:[
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	6808	c := lbl first.
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	6809	c == $- ifTrue:[^ #singleLine].
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	6810	c == $= ifTrue:[^ #doubleLine].
388 dce33f8bb806 intitial checkin ca parents: diff changeset	6811	].
dce33f8bb806 intitial checkin ca parents: diff changeset	6812	^ #blankLine
1130 fb79ef4aeec8 style changes Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	6813	!
fb79ef4aeec8 style changes Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	6814
fb79ef4aeec8 style changes Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	6815	setupSubmenu
fb79ef4aeec8 style changes Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	6816	\|appl recv subm\|
fb79ef4aeec8 style changes Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	6817
fb79ef4aeec8 style changes Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	6818	submenuChannel notNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	6819	submenuChannel isSymbol ifFalse:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	6820	subm := submenuChannel
93426020ceed * empty log message * ca parents: 2216 diff changeset	6821	] ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	6822	appl := menuPanel application.
93426020ceed * empty log message * ca parents: 2216 diff changeset	6823
93426020ceed * empty log message * ca parents: 2216 diff changeset	6824	(subm := self findSubMenuIn:appl) isNil ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	6825	(recv := menuPanel receiver) ~~ appl ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	6826	subm := self findSubMenuIn:recv
93426020ceed * empty log message * ca parents: 2216 diff changeset	6827	]
93426020ceed * empty log message * ca parents: 2216 diff changeset	6828	]
93426020ceed * empty log message * ca parents: 2216 diff changeset	6829	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	6830
93426020ceed * empty log message * ca parents: 2216 diff changeset	6831	(subm := subm value) isArray ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	6832	subm := Menu new fromLiteralArrayEncoding:subm.
93426020ceed * empty log message * ca parents: 2216 diff changeset	6833	"/ cg: linked menus also may contain translations ...
93426020ceed * empty log message * ca parents: 2216 diff changeset	6834	subm notNil ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	6835	appl notNil ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	6836	subm findGuiResourcesIn:appl.
93426020ceed * empty log message * ca parents: 2216 diff changeset	6837	]
93426020ceed * empty log message * ca parents: 2216 diff changeset	6838	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	6839	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	6840	self submenu:subm.
1130 fb79ef4aeec8 style changes Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	6841	].
fb79ef4aeec8 style changes Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	6842
fb79ef4aeec8 style changes Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	6843	^ subMenu
fb79ef4aeec8 style changes Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	6844
fb79ef4aeec8 style changes Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	6845	"Modified: / 19.5.1998 / 19:36:56 / cg"
388 dce33f8bb806 intitial checkin ca parents: diff changeset	6846	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	6847
dce33f8bb806 intitial checkin ca parents: diff changeset	6848	!MenuPanel::Item methodsFor:'queries'!
dce33f8bb806 intitial checkin ca parents: diff changeset	6849
1217 c6a4c536aa8c care for items which change visibility via Claus Gittinger <cg@exept.de> parents: 1212 diff changeset	6850	canChangeVisibility
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	6851	"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	6852	otherwise there is a change notification raised if the model changed
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	6853	"
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	6854	^ isVisible isSymbol
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	6855	"/ ^ isVisible notNil and:[isVisible ~~ true]
1217 c6a4c536aa8c care for items which change visibility via Claus Gittinger <cg@exept.de> parents: 1212 diff changeset	6856	!
c6a4c536aa8c care for items which change visibility via Claus Gittinger <cg@exept.de> parents: 1212 diff changeset	6857
388 dce33f8bb806 intitial checkin ca parents: diff changeset	6858	canSelect
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	6859	"returns true if item is selectable; no separator, visible and enabled.
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	6860	in case of a choice (RadioButton) i have to check for the choiceValue
388 dce33f8bb806 intitial checkin ca parents: diff changeset	6861	"
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	6862	(rawLabel notNil and:[self isVisible and:[self enabled]]) ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	6863	(choice isNil or:[choice value ~= choiceValue]) ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	6864	^ true
93426020ceed * empty log message * ca parents: 2216 diff changeset	6865	].
1078 3adf74275ebd support choice for buttons ca parents: 1076 diff changeset	6866	].
3adf74275ebd support choice for buttons ca parents: 1076 diff changeset	6867	^ false
388 dce33f8bb806 intitial checkin ca parents: diff changeset	6868	!
dce33f8bb806 intitial checkin ca parents: diff changeset	6869
2046 012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	6870	containsPoint:aPoint
012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	6871	"returns true if aPoint is contained in my layout
012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	6872	"
012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	6873	(self isVisible and:[layout notNil]) ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	6874	^ layout containsPoint:aPoint
2046 012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	6875	].
012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	6876	^ false
012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	6877
012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	6878	"Created: / 13.11.2001 / 13:55:31 / cg"
012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	6879	!
012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	6880
388 dce33f8bb806 intitial checkin ca parents: diff changeset	6881	containsPointX:x y:y
dce33f8bb806 intitial checkin ca parents: diff changeset	6882	"returns true if point is contained in my layout
dce33f8bb806 intitial checkin ca parents: diff changeset	6883	"
712 4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	6884	(self isVisible and:[layout notNil]) ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	6885	^ layout containsPointX:x y:y
505 562d5661a855 check for valid layout ca parents: 502 diff changeset	6886	].
562d5661a855 check for valid layout ca parents: 502 diff changeset	6887	^ false
388 dce33f8bb806 intitial checkin ca parents: diff changeset	6888	!
dce33f8bb806 intitial checkin ca parents: diff changeset	6889
2199 61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	6890	hasDelayedMenu
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	6891	"returns true if a delayed menu exists
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	6892	"
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	6893	(subMenu isNil and:[submenuChannel isNil]) ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	6894	^ false
2199 61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	6895	].
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	6896	(value isNil and:[indication isNil and:[choice isNil]]) ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	6897	^ false
2199 61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	6898	].
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	6899	^ true
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	6900	!
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	6901
2214 8eefad87cf62 drawing delayed menu indicators... first try not yet finished ca parents: 2199 diff changeset	6902	hasDelayedMenuIndicator
8eefad87cf62 drawing delayed menu indicators... first try not yet finished ca parents: 2199 diff changeset	6903	"returns true if the item has a delayed menu
8eefad87cf62 drawing delayed menu indicators... first try not yet finished ca parents: 2199 diff changeset	6904	and is the topMenu
8eefad87cf62 drawing delayed menu indicators... first try not yet finished ca parents: 2199 diff changeset	6905	"
8eefad87cf62 drawing delayed menu indicators... first try not yet finished ca parents: 2199 diff changeset	6906	menuPanel isPopUpView ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	6907	^ self hasDelayedMenu
2214 8eefad87cf62 drawing delayed menu indicators... first try not yet finished ca parents: 2199 diff changeset	6908	].
8eefad87cf62 drawing delayed menu indicators... first try not yet finished ca parents: 2199 diff changeset	6909	^ false
8eefad87cf62 drawing delayed menu indicators... first try not yet finished ca parents: 2199 diff changeset	6910	!
8eefad87cf62 drawing delayed menu indicators... first try not yet finished ca parents: 2199 diff changeset	6911
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	6912	hasIndication
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	6913	"returns true if on/off indication exists
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	6914	"
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6915	^ indication notNil
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	6916	!
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	6917
388 dce33f8bb806 intitial checkin ca parents: diff changeset	6918	hasSubmenu
1473 1f62652f146e use hasSubmenu insteat of submenu if possible; Claus Gittinger <cg@exept.de> parents: 1472 diff changeset	6919	"returns true if the item is configured as an subMenu entry
388 dce33f8bb806 intitial checkin ca parents: diff changeset	6920	"
1472 fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	6921	^ subMenu notNil or:[submenuChannel notNil]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	6922	!
dce33f8bb806 intitial checkin ca parents: diff changeset	6923
dce33f8bb806 intitial checkin ca parents: diff changeset	6924	isEnabled
dce33f8bb806 intitial checkin ca parents: diff changeset	6925	"returns enabled state
dce33f8bb806 intitial checkin ca parents: diff changeset	6926	"
dce33f8bb806 intitial checkin ca parents: diff changeset	6927	^ self enabled
dce33f8bb806 intitial checkin ca parents: diff changeset	6928	!
dce33f8bb806 intitial checkin ca parents: diff changeset	6929
1723 f633725a0ace use itemSpace only for horizontal menus and between labeled items ca parents: 1719 diff changeset	6930	isLabeledItem
f633725a0ace use itemSpace only for horizontal menus and between labeled items ca parents: 1719 diff changeset	6931	"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	6932	"
f633725a0ace use itemSpace only for horizontal menus and between labeled items ca parents: 1719 diff changeset	6933	^ rawLabel notNil and:[isButton not]
f633725a0ace use itemSpace only for horizontal menus and between labeled items ca parents: 1719 diff changeset	6934	!
f633725a0ace use itemSpace only for horizontal menus and between labeled items ca parents: 1719 diff changeset	6935
608 0d8d910768af use default font derived from style ca parents: 601 diff changeset	6936	isSeparator
0d8d910768af use default font derived from style ca parents: 601 diff changeset	6937	"returns true if item is a separator
0d8d910768af use default font derived from style ca parents: 601 diff changeset	6938	"
0d8d910768af use default font derived from style ca parents: 601 diff changeset	6939	^ rawLabel isNil
0d8d910768af use default font derived from style ca parents: 601 diff changeset	6940	!
0d8d910768af use default font derived from style ca parents: 601 diff changeset	6941
2159 1eac041aeb3d toggle button draw & behavior Claus Gittinger <cg@exept.de> parents: 2145 diff changeset	6942	isToggle
1eac041aeb3d toggle button draw & behavior Claus Gittinger <cg@exept.de> parents: 2145 diff changeset	6943	"returns true if on/off indication exists
1eac041aeb3d toggle button draw & behavior Claus Gittinger <cg@exept.de> parents: 2145 diff changeset	6944	"
1eac041aeb3d toggle button draw & behavior Claus Gittinger <cg@exept.de> parents: 2145 diff changeset	6945	^ self hasIndication and:[ self isButton ]
1eac041aeb3d toggle button draw & behavior Claus Gittinger <cg@exept.de> parents: 2145 diff changeset	6946	!
1eac041aeb3d toggle button draw & behavior Claus Gittinger <cg@exept.de> parents: 2145 diff changeset	6947
712 4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	6948	isVisible
4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	6949	"returns the visibility state
4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	6950	"
4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	6951	\|state\|
4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	6952
4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	6953	isVisible isSymbol ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	6954	state := self aspectAt:isVisible.
93426020ceed * empty log message * ca parents: 2216 diff changeset	6955
93426020ceed * empty log message * ca parents: 2216 diff changeset	6956	state isValueModel ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	6957	isVisible := state.
93426020ceed * empty log message * ca parents: 2216 diff changeset	6958	isVisible addDependent:self.
93426020ceed * empty log message * ca parents: 2216 diff changeset	6959	state := isVisible.
93426020ceed * empty log message * ca parents: 2216 diff changeset	6960	]
712 4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	6961	] ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	6962	state := isVisible
1164 e6e9633abf48 kludge fix: invoke mustRearrange to care for block-visibility attributes Claus Gittinger <cg@exept.de> parents: 1156 diff changeset	6963	].
e6e9633abf48 kludge fix: invoke mustRearrange to care for block-visibility attributes Claus Gittinger <cg@exept.de> parents: 1156 diff changeset	6964	^ state value ~~ false
e6e9633abf48 kludge fix: invoke mustRearrange to care for block-visibility attributes Claus Gittinger <cg@exept.de> parents: 1156 diff changeset	6965
e6e9633abf48 kludge fix: invoke mustRearrange to care for block-visibility attributes Claus Gittinger <cg@exept.de> parents: 1156 diff changeset	6966	"Modified: / 5.10.1998 / 12:08:28 / cg"
712 4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	6967	!
4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	6968
4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	6969	isVisible:something
4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	6970	"change the state; if the state changed, a redraw is performed
4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	6971	"
4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	6972	\|oldState newState\|
4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	6973
4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	6974	isVisible isNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	6975	oldState := true
712 4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	6976	] ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	6977	oldState := isVisible value.
93426020ceed * empty log message * ca parents: 2216 diff changeset	6978	isVisible isValueModel ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	6979	isVisible removeDependent:self
93426020ceed * empty log message * ca parents: 2216 diff changeset	6980	]
712 4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	6981	].
4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	6982	isVisible := something.
4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	6983
4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	6984	isVisible isNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	6985	newState := true
712 4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	6986	] ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	6987	isVisible isValueModel ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	6988	isVisible addDependent:self
93426020ceed * empty log message * ca parents: 2216 diff changeset	6989	] ifFalse:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	6990	isVisible isSymbol ifTrue:[^ self]
93426020ceed * empty log message * ca parents: 2216 diff changeset	6991	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	6992	menuPanel shown ifFalse:[^ self].
93426020ceed * empty log message * ca parents: 2216 diff changeset	6993	newState := isVisible value.
712 4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	6994	].
4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	6995
4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	6996	newState ~~ oldState ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	6997	menuPanel mustRearrange
712 4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	6998	]
1164 e6e9633abf48 kludge fix: invoke mustRearrange to care for block-visibility attributes Claus Gittinger <cg@exept.de> parents: 1156 diff changeset	6999
e6e9633abf48 kludge fix: invoke mustRearrange to care for block-visibility attributes Claus Gittinger <cg@exept.de> parents: 1156 diff changeset	7000	"Modified: / 5.10.1998 / 12:12:04 / cg"
712 4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	7001	!
4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	7002
388 dce33f8bb806 intitial checkin ca parents: diff changeset	7003	shortcutKeyAsString
dce33f8bb806 intitial checkin ca parents: diff changeset	7004	"converts shortcutKey to a text object
dce33f8bb806 intitial checkin ca parents: diff changeset	7005	"
1609 2c8d62894ebe optimize searchinf for shortCutKeys ca parents: 1600 diff changeset	7006	\|nm prefix\|
2c8d62894ebe optimize searchinf for shortCutKeys ca parents: 1600 diff changeset	7007
2c8d62894ebe optimize searchinf for shortCutKeys ca parents: 1600 diff changeset	7008	shortcutKey isNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	7009	^ nil
1609 2c8d62894ebe optimize searchinf for shortCutKeys ca parents: 1600 diff changeset	7010	].
2c8d62894ebe optimize searchinf for shortCutKeys ca parents: 1600 diff changeset	7011
2c8d62894ebe optimize searchinf for shortCutKeys ca parents: 1600 diff changeset	7012	shortcutKey isCharacter ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	7013	nm := shortcutKey asString
388 dce33f8bb806 intitial checkin ca parents: diff changeset	7014	] ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	7015	"/ this is somewhat complicated: we have the symbolic key at hand,
93426020ceed * empty log message * ca parents: 2216 diff changeset	7016	"/ but want to show the untranslated (inverse keyBoardMapped) key & modifier
93426020ceed * empty log message * ca parents: 2216 diff changeset	7017	"/ Ask the devices keyboardMap for the backtranslation.
93426020ceed * empty log message * ca parents: 2216 diff changeset	7018
93426020ceed * empty log message * ca parents: 2216 diff changeset	7019	nm := menuPanel device keyboardMap keyAtValue:shortcutKey ifAbsent:shortcutKey.
93426020ceed * empty log message * ca parents: 2216 diff changeset	7020	"/
93426020ceed * empty log message * ca parents: 2216 diff changeset	7021	"/ some modifier-key combination ?
93426020ceed * empty log message * ca parents: 2216 diff changeset	7022	"/
93426020ceed * empty log message * ca parents: 2216 diff changeset	7023	(nm startsWith:#Cmd) ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	7024	prefix := #Cmd.
93426020ceed * empty log message * ca parents: 2216 diff changeset	7025	] ifFalse:[(nm startsWith:#Alt) ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	7026	prefix := #Alt.
93426020ceed * empty log message * ca parents: 2216 diff changeset	7027	] ifFalse:[(nm startsWith:#Meta) ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	7028	prefix := #Meta.
93426020ceed * empty log message * ca parents: 2216 diff changeset	7029	] ifFalse:[(nm startsWith:#Ctrl) ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	7030	prefix := #Ctrl.
93426020ceed * empty log message * ca parents: 2216 diff changeset	7031	]]]].
93426020ceed * empty log message * ca parents: 2216 diff changeset	7032	prefix notNil ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	7033	nm := (self shortcutKeyPrefixFor:prefix), (nm copyFrom:(prefix size + 1))
93426020ceed * empty log message * ca parents: 2216 diff changeset	7034	] ifFalse:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	7035	nm := nm asString
93426020ceed * empty log message * ca parents: 2216 diff changeset	7036	]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	7037	].
608 0d8d910768af use default font derived from style ca parents: 601 diff changeset	7038	^ nm
388 dce33f8bb806 intitial checkin ca parents: diff changeset	7039
987 541dff179cc2 checkin from browser Claus Gittinger <cg@exept.de> parents: 984 diff changeset	7040	"Modified: / 17.7.1998 / 11:56:40 / cg"
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	shortcutKeyPrefixFor:aModifier
dce33f8bb806 intitial checkin ca parents: diff changeset	7044	"returns prefix assigned to a modifier
dce33f8bb806 intitial checkin ca parents: diff changeset	7045	"
dce33f8bb806 intitial checkin ca parents: diff changeset	7046	\|m\|
dce33f8bb806 intitial checkin ca parents: diff changeset	7047
dce33f8bb806 intitial checkin ca parents: diff changeset	7048	m := menuPanel device modifierKeyTopFor:aModifier.
dce33f8bb806 intitial checkin ca parents: diff changeset	7049	m notNil ifTrue:[
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	7050	^ m , '-'
388 dce33f8bb806 intitial checkin ca parents: diff changeset	7051	].
987 541dff179cc2 checkin from browser Claus Gittinger <cg@exept.de> parents: 984 diff changeset	7052	^ aModifier , '-'.
541dff179cc2 checkin from browser Claus Gittinger <cg@exept.de> parents: 984 diff changeset	7053
541dff179cc2 checkin from browser Claus Gittinger <cg@exept.de> parents: 984 diff changeset	7054	"Modified: / 17.7.1998 / 11:56:46 / cg"
388 dce33f8bb806 intitial checkin ca parents: diff changeset	7055	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	7056
dce33f8bb806 intitial checkin ca parents: diff changeset	7057	!MenuPanel::Item methodsFor:'selection'!
dce33f8bb806 intitial checkin ca parents: diff changeset	7058
dce33f8bb806 intitial checkin ca parents: diff changeset	7059	isSelected
dce33f8bb806 intitial checkin ca parents: diff changeset	7060	"returns true if item is selected
dce33f8bb806 intitial checkin ca parents: diff changeset	7061	"
1998 5059b7c9cd2c * empty log message * Claus Gittinger <cg@exept.de> parents: 1997 diff changeset	7062
5059b7c9cd2c * empty log message * Claus Gittinger <cg@exept.de> parents: 1997 diff changeset	7063	^ menuPanel notNil and:[menuPanel selection == self]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	7064	!
dce33f8bb806 intitial checkin ca parents: diff changeset	7065
1701 026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	7066	selected:isSelected
1473 1f62652f146e use hasSubmenu insteat of submenu if possible; Claus Gittinger <cg@exept.de> parents: 1472 diff changeset	7067	"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	7068	submenu and perform a redraw
1f62652f146e use hasSubmenu insteat of submenu if possible; Claus Gittinger <cg@exept.de> parents: 1472 diff changeset	7069	"
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	7070	menuPanel isNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	7071	^ self hideSubmenu
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	7072	].
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	7073
1701 026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	7074	isSelected ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	7075	self invalidate.
2199 61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	7076	^ self hideSubmenu.
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	7077	].
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	7078	menuPanel realized ifFalse:[ ^ self ].
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	7079
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	7080	(indication isNil or:[isButton not]) ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	7081	self invalidate
2199 61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	7082	].
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	7083	self hasSubmenu ifFalse:[ ^ self].
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	7084
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	7085	(menuPanel isPopUpView not or:[menuPanel openMenuOnSelect]) ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	7086	^ self
2199 61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	7087	].
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	7088	self hasDelayedMenu ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	7089	menuPanel openDelayed:self
2199 61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	7090	] ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	7091	subMenu := self setupSubmenu.
93426020ceed * empty log message * ca parents: 2216 diff changeset	7092	subMenu ifNotNil:[ self openSubmenu ].
1701 026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	7093	].
388 dce33f8bb806 intitial checkin ca parents: diff changeset	7094	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	7095
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	7096	!MenuPanel::ScrollActivity class methodsFor:'default icons'!
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7097
2018 2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	7098	icon
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7099	"This resource specification was automatically generated
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7100	by the ImageEditor of ST/X."
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7101
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7102	"Do not manually edit this!! If it is corrupted,
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7103	the ImageEditor may not be able to read the specification."
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7104
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7105	"
2018 2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	7106	self icon inspect
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	7107	ImageEditor openOnClass:self andSelector:#icon
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7108	"
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7109
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7110	<resource: #image>
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7111
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7112	^Icon
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	7113	constantNamed:#'MenuPanel::Scrolling class icon'
93426020ceed * empty log message * ca parents: 2216 diff changeset	7114	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	7115	! !
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7116
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	7117	!MenuPanel::ScrollActivity class methodsFor:'instance creation'!
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7118
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7119	new
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7120	^ self basicNew initialize
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7121	! !
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7122
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	7123	!MenuPanel::ScrollActivity methodsFor:'accessing'!
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7124
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7125	activeMenu
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7126	"returns the active menu the scrolling is activated on; nil
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7127	is returned if scrolling is deactivated
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7128	"
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7129	^ activeMenu
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7130	!
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7131
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7132	direction
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7133	"returns the scroll-direction
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7134	"
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7135	^ direction
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7136	!
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7137
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7138	iconAt:aDirection on:aMenu
2018 2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	7139	\|icon device index\|
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7140
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7141	device := aMenu device.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7142
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7143	aDirection == #PREV ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	7144	aMenu verticalLayout ifTrue:[index := 3] "/ 3 - 1 * 90 180
93426020ceed * empty log message * ca parents: 2216 diff changeset	7145	ifFalse:[index := 2] "/ 2 - 1 * 90 90
2018 2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	7146	] ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	7147	aMenu verticalLayout ifTrue:[index := 1] "/ 1 - 1 * 90 0
93426020ceed * empty log message * ca parents: 2216 diff changeset	7148	ifFalse:[index := 4] "/ 4 - 1 * 90 270
2018 2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	7149	].
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	7150
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	7151	icon := icons at:index.
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	7152
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	7153	(icon isNil or:[icon device ~~ device]) ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	7154	icon := self class icon.
93426020ceed * empty log message * ca parents: 2216 diff changeset	7155	index > 1 ifTrue:[ icon := icon rotated:(index - 1 * 90) ]
93426020ceed * empty log message * ca parents: 2216 diff changeset	7156	ifFalse:[ icon := icon copy ].
93426020ceed * empty log message * ca parents: 2216 diff changeset	7157
93426020ceed * empty log message * ca parents: 2216 diff changeset	7158	icon := icon onDevice:device.
93426020ceed * empty log message * ca parents: 2216 diff changeset	7159	icon clearMaskedPixels.
93426020ceed * empty log message * ca parents: 2216 diff changeset	7160	icons at:index put:icon
2018 2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	7161	].
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	7162	^ icon
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7163	! !
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7164
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	7165	!MenuPanel::ScrollActivity methodsFor:'initialization'!
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7166
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7167	initialize
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7168
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7169	semaLock := RecursionLock new.
2018 2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	7170	icons := Array new:4.
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7171	! !
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7172
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	7173	!MenuPanel::ScrollActivity methodsFor:'queries'!
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7174
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7175	isActive
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7176	"returns true if scrolling is activated
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7177	"
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7178	^ activeMenu notNil
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7179	! !
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7180
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	7181	!MenuPanel::ScrollActivity methodsFor:'user operations'!
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7182
2047 62de65e3a61b initial delay; autoRepeat delay Claus Gittinger <cg@exept.de> parents: 2046 diff changeset	7183	startIfRequiredAt:aDirection on:aMenu
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7184	"start scrolling; returns true if scrolling is activated
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7185	"
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7186	\|bounds index\|
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7187
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7188	semaLock critical:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	7189	self stop.
93426020ceed * empty log message * ca parents: 2216 diff changeset	7190
93426020ceed * empty log message * ca parents: 2216 diff changeset	7191	( aDirection notNil
93426020ceed * empty log message * ca parents: 2216 diff changeset	7192	and:[aMenu notNil
93426020ceed * empty log message * ca parents: 2216 diff changeset	7193	and:[(bounds := aMenu scrollerBoundsAt:aDirection) notNil]]
93426020ceed * empty log message * ca parents: 2216 diff changeset	7194	) ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	7195	activeMenu := aMenu.
93426020ceed * empty log message * ca parents: 2216 diff changeset	7196	direction := aDirection.
93426020ceed * empty log message * ca parents: 2216 diff changeset	7197
93426020ceed * empty log message * ca parents: 2216 diff changeset	7198	index := aMenu indexOfItemAtScroller:aDirection.
93426020ceed * empty log message * ca parents: 2216 diff changeset	7199
93426020ceed * empty log message * ca parents: 2216 diff changeset	7200	index ~~ 0 ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	7201	scrollTask :=
93426020ceed * empty log message * ca parents: 2216 diff changeset	7202	[
93426020ceed * empty log message * ca parents: 2216 diff changeset	7203	\|item step\|
93426020ceed * empty log message * ca parents: 2216 diff changeset	7204
93426020ceed * empty log message * ca parents: 2216 diff changeset	7205	[
93426020ceed * empty log message * ca parents: 2216 diff changeset	7206	step := (aDirection == #PREV) ifTrue:[-1] ifFalse:[1].
93426020ceed * empty log message * ca parents: 2216 diff changeset	7207	( aMenu shown and:[(item := aMenu itemAt:index) notNil] ) ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	7208	aMenu makeItemVisible:item.
93426020ceed * empty log message * ca parents: 2216 diff changeset	7209	index := index + step.
93426020ceed * empty log message * ca parents: 2216 diff changeset	7210	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	7211
93426020ceed * empty log message * ca parents: 2216 diff changeset	7212	Delay waitForSeconds:(ButtonController defaultInitialDelay).
93426020ceed * empty log message * ca parents: 2216 diff changeset	7213
93426020ceed * empty log message * ca parents: 2216 diff changeset	7214	[ aMenu shown and:[(item := aMenu itemAt:index) notNil] ] whileTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	7215	aMenu makeItemVisible:item.
93426020ceed * empty log message * ca parents: 2216 diff changeset	7216	Delay waitForSeconds:(ButtonController defaultRepeatDelay).
93426020ceed * empty log message * ca parents: 2216 diff changeset	7217	index := index + step.
93426020ceed * empty log message * ca parents: 2216 diff changeset	7218	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	7219	item := nil.
93426020ceed * empty log message * ca parents: 2216 diff changeset	7220	] ensure:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	7221	scrollTask := nil.
93426020ceed * empty log message * ca parents: 2216 diff changeset	7222
93426020ceed * empty log message * ca parents: 2216 diff changeset	7223	item notNil ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	7224	"/ process was killed
93426020ceed * empty log message * ca parents: 2216 diff changeset	7225	aMenu invalidate:bounds
93426020ceed * empty log message * ca parents: 2216 diff changeset	7226	]
93426020ceed * empty log message * ca parents: 2216 diff changeset	7227	]
93426020ceed * empty log message * ca parents: 2216 diff changeset	7228	] forkAt:8.
93426020ceed * empty log message * ca parents: 2216 diff changeset	7229	]
93426020ceed * empty log message * ca parents: 2216 diff changeset	7230	]
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7231	].
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7232	^ bounds notNil
2047 62de65e3a61b initial delay; autoRepeat delay Claus Gittinger <cg@exept.de> parents: 2046 diff changeset	7233
2048 ba472f3f46c7 code cleanup Claus Gittinger <cg@exept.de> parents: 2047 diff changeset	7234	"Created: ca"
ba472f3f46c7 code cleanup Claus Gittinger <cg@exept.de> parents: 2047 diff changeset	7235
ba472f3f46c7 code cleanup Claus Gittinger <cg@exept.de> parents: 2047 diff changeset	7236	"Modified: / 13.11.2001 / 20:15:52 / cg"
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7237	!
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7238
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7239	stop
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7240	"stop scrolling; returns true if the scrolling was activated otherwise false
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7241	"
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7242	\|task resp\|
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7243
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7244	activeMenu isNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	7245	^ false
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7246	].
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7247	semaLock critical:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	7248	resp := activeMenu notNil.
93426020ceed * empty log message * ca parents: 2216 diff changeset	7249
93426020ceed * empty log message * ca parents: 2216 diff changeset	7250	(task := scrollTask) notNil ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	7251	scrollTask := nil.
93426020ceed * empty log message * ca parents: 2216 diff changeset	7252
93426020ceed * empty log message * ca parents: 2216 diff changeset	7253	Error handle:[:ex\|
93426020ceed * empty log message * ca parents: 2216 diff changeset	7254	] do:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	7255	task terminateWithAllSubprocesses.
93426020ceed * empty log message * ca parents: 2216 diff changeset	7256	task waitUntilTerminated.
93426020ceed * empty log message * ca parents: 2216 diff changeset	7257	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	7258	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	7259	activeMenu := direction := nil.
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7260	].
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7261	^ resp
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7262	! !
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7263
388 dce33f8bb806 intitial checkin ca parents: diff changeset	7264	!MenuPanel class methodsFor:'documentation'!
dce33f8bb806 intitial checkin ca parents: diff changeset	7265
dce33f8bb806 intitial checkin ca parents: diff changeset	7266	version
2220 5ea0ceb20354 delayed submenu indicator Claus Gittinger <cg@exept.de> parents: 2219 diff changeset	7267	^ '$Header: /cvs/stx/stx/libwidg2/MenuPanel.st,v 1.328 2002-09-26 07:38:41 cg Exp $'
388 dce33f8bb806 intitial checkin ca parents: diff changeset	7268	! !
2199 61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	7269
388 dce33f8bb806 intitial checkin ca parents: diff changeset	7270	MenuPanel initialize!

author	Claus Gittinger <cg@exept.de>
	Thu, 26 Sep 2002 09:38:41 +0200
changeset 2220	5ea0ceb20354
parent 2219	93426020ceed
child 2231	65cec3d10fb1
permissions	-rw-r--r--