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

2005 a85fab2cc6f6 * empty log message * Claus Gittinger <cg@exept.de> parents: 2004 diff changeset	1	"
a85fab2cc6f6 * empty log message * Claus Gittinger <cg@exept.de> parents: 2004 diff changeset	2	COPYRIGHT (c) 1997 by eXept Software AG
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	3	All Rights Reserved
2005 a85fab2cc6f6 * empty log message * Claus Gittinger <cg@exept.de> parents: 2004 diff changeset	4
a85fab2cc6f6 * empty log message * Claus Gittinger <cg@exept.de> parents: 2004 diff changeset	5	This software is furnished under a license and may be used
a85fab2cc6f6 * empty log message * Claus Gittinger <cg@exept.de> parents: 2004 diff changeset	6	only in accordance with the terms of that license and with the
a85fab2cc6f6 * empty log message * Claus Gittinger <cg@exept.de> parents: 2004 diff changeset	7	inclusion of the above copyright notice. This software may not
a85fab2cc6f6 * empty log message * Claus Gittinger <cg@exept.de> parents: 2004 diff changeset	8	be provided or otherwise made available to, or used by, any
a85fab2cc6f6 * empty log message * Claus Gittinger <cg@exept.de> parents: 2004 diff changeset	9	other person. No title to or ownership of the software is
a85fab2cc6f6 * empty log message * Claus Gittinger <cg@exept.de> parents: 2004 diff changeset	10	hereby transferred.
a85fab2cc6f6 * empty log message * Claus Gittinger <cg@exept.de> parents: 2004 diff changeset	11	"
a85fab2cc6f6 * empty log message * Claus Gittinger <cg@exept.de> parents: 2004 diff changeset	12
a85fab2cc6f6 * empty log message * Claus Gittinger <cg@exept.de> parents: 2004 diff changeset	13
1750 f9e5700bd99a compatibility stuff Claus Gittinger <cg@exept.de> parents: 1737 diff changeset	14	"{ Package: 'stx:libwidg2' }"
f9e5700bd99a compatibility stuff Claus Gittinger <cg@exept.de> parents: 1737 diff changeset	15
2182 59a770bbb95a changed superclass to View (to inherit model) Claus Gittinger <cg@exept.de> parents: 2171 diff changeset	16	View subclass:#MenuPanel
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	17	instanceVariableNames:'adornment shadowView mapTime mustRearrange superMenu
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	18	shortKeyInset selection items groupSizes receiver enabled
93426020ceed * empty log message * ca parents: 2216 diff changeset	19	lastActiveMenu enteredItem prevFocusView previousPointerGrab
93426020ceed * empty log message * ca parents: 2216 diff changeset	20	previousKeyboardGrab relativeGrabOrigin hasImplicitGrap
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	21	scrollActivity rightArrowShadow rightArrow fgColor verticalLayout
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	22	showSeparatingLines showGroupDivider implicitGrabView
2331 ebd240410703 can now specify if menu action is to be performed by ca parents: 2326 diff changeset	23	lastPointerView openDelayedMenuBlock preferredWidth application
2347 9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	24	originator centerItems hideOnRelease defaultHideOnRelease'
2609 b927f450c4c8 * empty log message * ca parents: 2607 diff changeset	25	classVariableNames:'InitialSelectionQuerySignal Images LigthenedImages
b927f450c4c8 * empty log message * ca parents: 2607 diff changeset	26	DefaultForegroundColor DefaultBackgroundColor'
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	27	poolDictionaries:''
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	28	category:'Views-Menus'
388 dce33f8bb806 intitial checkin ca parents: diff changeset	29	!
dce33f8bb806 intitial checkin ca parents: diff changeset	30
dce33f8bb806 intitial checkin ca parents: diff changeset	31	Object subclass:#Item
2433 49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	32	instanceVariableNames:'menuItem layout menuPanel subMenu displayLabel displayLabelExtent
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	33	disabledDisplayLabel enableChannel label activeHelpText
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	34	flyByHelpText isVisible indication choice accessCharacter'
2145 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
2692 93566e299318 +actionValue2 werner parents: 2681 diff changeset	41	Object subclass:#Adornment
93566e299318 +actionValue2 werner parents: 2681 diff changeset	42	instanceVariableNames:'indication accessCharacterPosition shortcutKey argument argument2
93566e299318 +actionValue2 werner parents: 2681 diff changeset	43	choice choiceValue'
93566e299318 +actionValue2 werner parents: 2681 diff changeset	44	classVariableNames:''
93566e299318 +actionValue2 werner parents: 2681 diff changeset	45	poolDictionaries:''
93566e299318 +actionValue2 werner parents: 2681 diff changeset	46	privateIn:MenuPanel::Item
93566e299318 +actionValue2 werner parents: 2681 diff changeset	47	!
93566e299318 +actionValue2 werner parents: 2681 diff changeset	48
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	49	Object subclass:#ScrollActivity
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	50	instanceVariableNames:'semaLock activeMenu scrollTask direction icons'
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	51	classVariableNames:''
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	52	poolDictionaries:''
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	53	privateIn:MenuPanel
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	54	!
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	55
388 dce33f8bb806 intitial checkin ca parents: diff changeset	56	!MenuPanel class methodsFor:'documentation'!
dce33f8bb806 intitial checkin ca parents: diff changeset	57
2005 a85fab2cc6f6 * empty log message * Claus Gittinger <cg@exept.de> parents: 2004 diff changeset	58	copyright
a85fab2cc6f6 * empty log message * Claus Gittinger <cg@exept.de> parents: 2004 diff changeset	59	"
a85fab2cc6f6 * empty log message * Claus Gittinger <cg@exept.de> parents: 2004 diff changeset	60	COPYRIGHT (c) 1997 by eXept Software AG
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	61	All Rights Reserved
2005 a85fab2cc6f6 * empty log message * Claus Gittinger <cg@exept.de> parents: 2004 diff changeset	62
a85fab2cc6f6 * empty log message * Claus Gittinger <cg@exept.de> parents: 2004 diff changeset	63	This software is furnished under a license and may be used
a85fab2cc6f6 * empty log message * Claus Gittinger <cg@exept.de> parents: 2004 diff changeset	64	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	65	inclusion of the above copyright notice. This software may not
a85fab2cc6f6 * empty log message * Claus Gittinger <cg@exept.de> parents: 2004 diff changeset	66	be provided or otherwise made available to, or used by, any
a85fab2cc6f6 * empty log message * Claus Gittinger <cg@exept.de> parents: 2004 diff changeset	67	other person. No title to or ownership of the software is
a85fab2cc6f6 * empty log message * Claus Gittinger <cg@exept.de> parents: 2004 diff changeset	68	hereby transferred.
a85fab2cc6f6 * empty log message * Claus Gittinger <cg@exept.de> parents: 2004 diff changeset	69	"
a85fab2cc6f6 * empty log message * Claus Gittinger <cg@exept.de> parents: 2004 diff changeset	70
388 dce33f8bb806 intitial checkin ca parents: diff changeset	71	!
dce33f8bb806 intitial checkin ca parents: diff changeset	72
dce33f8bb806 intitial checkin ca parents: diff changeset	73	documentation
dce33f8bb806 intitial checkin ca parents: diff changeset	74	"
dce33f8bb806 intitial checkin ca parents: diff changeset	75	a menu panel used for both pull-down-menus and pop-up-menus.
dce33f8bb806 intitial checkin ca parents: diff changeset	76
2170 e76171113581 enteredFG / enteredBG Claus Gittinger <cg@exept.de> parents: 2166 diff changeset	77	this will eventually replace most of the MenuView and PopUpMenu stuff.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	78	(and hopefully be ST-80 compatible ...)
dce33f8bb806 intitial checkin ca parents: diff changeset	79
502 dedc1b29b6ac support of arguments ca parents: 498 diff changeset	80	To create a menu, there exists a MenuEditor which will generate
dedc1b29b6ac support of arguments ca parents: 498 diff changeset	81	a menu specification.
dedc1b29b6ac support of arguments ca parents: 498 diff changeset	82
dedc1b29b6ac support of arguments ca parents: 498 diff changeset	83
2061 faf64f2cd28e * empty log message * Claus Gittinger <cg@exept.de> parents: 2059 diff changeset	84	Notice:
faf64f2cd28e * empty log message * Claus Gittinger <cg@exept.de> parents: 2059 diff changeset	85	This is going to replace the obsolete MenuView.
faf64f2cd28e * empty log message * Claus Gittinger <cg@exept.de> parents: 2059 diff changeset	86
388 dce33f8bb806 intitial checkin ca parents: diff changeset	87	[author:]
1786 f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	88	Claus Atzkern
388 dce33f8bb806 intitial checkin ca parents: diff changeset	89
dce33f8bb806 intitial checkin ca parents: diff changeset	90	[see also:]
1786 f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	91	Menu
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	92	MenuItem
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	93	MenuEditor
2170 e76171113581 enteredFG / enteredBG Claus Gittinger <cg@exept.de> parents: 2166 diff changeset	94
e76171113581 enteredFG / enteredBG Claus Gittinger <cg@exept.de> parents: 2166 diff changeset	95	cg: this code is so ugly - needs a complete rewrite...
e76171113581 enteredFG / enteredBG Claus Gittinger <cg@exept.de> parents: 2166 diff changeset	96
388 dce33f8bb806 intitial checkin ca parents: diff changeset	97	"
dce33f8bb806 intitial checkin ca parents: diff changeset	98	!
dce33f8bb806 intitial checkin ca parents: diff changeset	99
dce33f8bb806 intitial checkin ca parents: diff changeset	100	examples
dce33f8bb806 intitial checkin ca parents: diff changeset	101
dce33f8bb806 intitial checkin ca parents: diff changeset	102	"
dce33f8bb806 intitial checkin ca parents: diff changeset	103	start as PullDownMenu
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	104	[exBegin]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	105	\|top subView mview desc s1 s2 s3 img lbs labels\|
dce33f8bb806 intitial checkin ca parents: diff changeset	106
dce33f8bb806 intitial checkin ca parents: diff changeset	107	top := StandardSystemView new.
dce33f8bb806 intitial checkin ca parents: diff changeset	108
436 c03d6faa41a6 process events befor accept ca parents: 434 diff changeset	109	mview := MenuPanel in:top.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	110
502 dedc1b29b6ac support of arguments ca parents: 498 diff changeset	111	labels := #( 'foo' 'bar' 'baz' 'test' 'claus' ).
388 dce33f8bb806 intitial checkin ca parents: diff changeset	112	mview level:2.
dce33f8bb806 intitial checkin ca parents: diff changeset	113	mview verticalLayout:false.
dce33f8bb806 intitial checkin ca parents: diff changeset	114	img := Image fromFile:'bitmaps/SBrowser.xbm'.
502 dedc1b29b6ac support of arguments ca parents: 498 diff changeset	115	lbs := Array with:'foo' with:'bar' with:img with:'baz' with:'test' with:'ludwig'.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	116	mview labels:lbs.
dce33f8bb806 intitial checkin ca parents: diff changeset	117	mview shortcutKeyAt:2 put:#Cut.
dce33f8bb806 intitial checkin ca parents: diff changeset	118	mview accessCharacterPositionAt:1 put:1.
dce33f8bb806 intitial checkin ca parents: diff changeset	119	mview accessCharacterPositionAt:2 put:2.
dce33f8bb806 intitial checkin ca parents: diff changeset	120
dce33f8bb806 intitial checkin ca parents: diff changeset	121	mview enabledAt:5 put:false.
dce33f8bb806 intitial checkin ca parents: diff changeset	122	mview groupSizes:#( 2 2 ).
436 c03d6faa41a6 process events befor accept ca parents: 434 diff changeset	123	s1 := MenuPanel labels:labels.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	124	s1 accessCharacterPositionAt:1 put:1.
dce33f8bb806 intitial checkin ca parents: diff changeset	125	s1 accessCharacterPositionAt:2 put:2.
dce33f8bb806 intitial checkin ca parents: diff changeset	126	s1 groupSizes:#( 2 2 ).
436 c03d6faa41a6 process events befor accept ca parents: 434 diff changeset	127	s2 := MenuPanel labels:#( '1' nil '2' '-' '3' '=' '4' ' ' '5' ).
c03d6faa41a6 process events befor accept ca parents: 434 diff changeset	128	s3 := MenuPanel labels:lbs.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	129
dce33f8bb806 intitial checkin ca parents: diff changeset	130	s1 subMenuAt:2 put:s2.
436 c03d6faa41a6 process events befor accept ca parents: 434 diff changeset	131	s1 subMenuAt:3 put:(MenuPanel labels:lbs).
388 dce33f8bb806 intitial checkin ca parents: diff changeset	132	s2 subMenuAt:3 put:s3.
436 c03d6faa41a6 process events befor accept ca parents: 434 diff changeset	133	s3 subMenuAt:3 put:(MenuPanel labels:labels).
388 dce33f8bb806 intitial checkin ca parents: diff changeset	134	s3 shortcutKeyAt:3 put:$q.
dce33f8bb806 intitial checkin ca parents: diff changeset	135
dce33f8bb806 intitial checkin ca parents: diff changeset	136	mview subMenuAt:1 put:s1.
436 c03d6faa41a6 process events befor accept ca parents: 434 diff changeset	137	mview subMenuAt:4 put:(MenuPanel labels:lbs).
388 dce33f8bb806 intitial checkin ca parents: diff changeset	138	(mview subMenuAt:4) shortcutKeyAt:3 put:#Copy.
dce33f8bb806 intitial checkin ca parents: diff changeset	139	s1 shortcutKeyAt:1 put:#Copy.
dce33f8bb806 intitial checkin ca parents: diff changeset	140	s1 shortcutKeyAt:3 put:#Paste.
dce33f8bb806 intitial checkin ca parents: diff changeset	141
436 c03d6faa41a6 process events befor accept ca parents: 434 diff changeset	142	mview subMenuAt:2 put:(MenuPanel labels:labels).
616 a6157b083830 support of different styles ca parents: 608 diff changeset	143	top extent:(mview preferredExtent).
388 dce33f8bb806 intitial checkin ca parents: diff changeset	144	top open.
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	145	[exEnd]
93426020ceed * empty log message * ca parents: 2216 diff changeset	146
93426020ceed * empty log message * ca parents: 2216 diff changeset	147	[exBegin]
1767 e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	148	\|top menu view item\|
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	149
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	150	top := StandardSystemView extent:240@100.
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	151	menu := MenuPanel in:top.
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	152	menu labels:#( 'foo' 'Application' 'Clock' ).
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	153	menu verticalLayout:false.
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	154
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	155	menu subMenuAt:1 put:(MenuPanel labels:#( 'bar' 'baz' )).
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	156	menu subMenuAt:2 put:(MenuPanel labels:#( 'foo' 'bar' 'baz' )).
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	157
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	158	view := ClockView new.
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	159	view preferredExtent:100@100.
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	160	item := menu itemAt:3.
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	161	item submenu:view.
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	162
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	163	view := SimpleView new.
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	164	view client:(CodingExamples_GUI::GUIDemoExtendedComboBox new).
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	165	view preferredExtent:(400@50).
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	166	item := menu itemAt:2.
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	167	item submenu:view.
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	168
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	169	menu origin:0@0 corner:1.0@30.
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	170	top open.
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	171	[exEnd]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	172
dce33f8bb806 intitial checkin ca parents: diff changeset	173
dce33f8bb806 intitial checkin ca parents: diff changeset	174	start as PopUpMenu
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	175	[exBegin]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	176	\|subView mview desc s1 s2 s3 img lbs labels\|
dce33f8bb806 intitial checkin ca parents: diff changeset	177
436 c03d6faa41a6 process events befor accept ca parents: 434 diff changeset	178	mview := MenuPanel new.
502 dedc1b29b6ac support of arguments ca parents: 498 diff changeset	179	labels := #( 'foo' 'bar' 'baz' ).
388 dce33f8bb806 intitial checkin ca parents: diff changeset	180	mview level:2.
dce33f8bb806 intitial checkin ca parents: diff changeset	181
dce33f8bb806 intitial checkin ca parents: diff changeset	182	img := Image fromFile:'bitmaps/SBrowser.xbm'.
502 dedc1b29b6ac support of arguments ca parents: 498 diff changeset	183	lbs := Array with:'foo' with:'bar' with:img with:'baz' with:'test'.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	184	mview labels:lbs.
dce33f8bb806 intitial checkin ca parents: diff changeset	185
436 c03d6faa41a6 process events befor accept ca parents: 434 diff changeset	186	s1 := MenuPanel labels:labels.
c03d6faa41a6 process events befor accept ca parents: 434 diff changeset	187	s2 := MenuPanel labels:#( '1' nil '2' '-' '3' '=' '4' ' ' '5' ).
c03d6faa41a6 process events befor accept ca parents: 434 diff changeset	188	s3 := MenuPanel labels:lbs.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	189	s1 subMenuAt:2 put:s2.
436 c03d6faa41a6 process events befor accept ca parents: 434 diff changeset	190	s1 subMenuAt:3 put:(MenuPanel labels:lbs).
388 dce33f8bb806 intitial checkin ca parents: diff changeset	191	s2 subMenuAt:3 put:s3.
436 c03d6faa41a6 process events befor accept ca parents: 434 diff changeset	192	s3 subMenuAt:3 put:(MenuPanel labels:labels).
388 dce33f8bb806 intitial checkin ca parents: diff changeset	193	s3 shortcutKeyAt:3 put:$q.
dce33f8bb806 intitial checkin ca parents: diff changeset	194
dce33f8bb806 intitial checkin ca parents: diff changeset	195	mview subMenuAt:1 put:s1.
436 c03d6faa41a6 process events befor accept ca parents: 434 diff changeset	196	mview subMenuAt:4 put:(MenuPanel labels:lbs).
388 dce33f8bb806 intitial checkin ca parents: diff changeset	197	(mview subMenuAt:4) shortcutKeyAt:3 put:#Copy.
dce33f8bb806 intitial checkin ca parents: diff changeset	198	s1 shortcutKeyAt:1 put:#Copy.
dce33f8bb806 intitial checkin ca parents: diff changeset	199	s1 shortcutKeyAt:3 put:#Paste.
dce33f8bb806 intitial checkin ca parents: diff changeset	200
436 c03d6faa41a6 process events befor accept ca parents: 434 diff changeset	201	mview subMenuAt:2 put:(MenuPanel labels:labels).
388 dce33f8bb806 intitial checkin ca parents: diff changeset	202	mview startUp
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	203	[exEnd]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	204
dce33f8bb806 intitial checkin ca parents: diff changeset	205
dce33f8bb806 intitial checkin ca parents: diff changeset	206	start from menu spec
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	207	[exBegin]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	208	\|menu\|
dce33f8bb806 intitial checkin ca parents: diff changeset	209
436 c03d6faa41a6 process events befor accept ca parents: 434 diff changeset	210	menu := MenuPanel menu:
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	211	#(#Menu #( #(#MenuItem
93426020ceed * empty log message * ca parents: 2216 diff changeset	212	#label: 'File'
93426020ceed * empty log message * ca parents: 2216 diff changeset	213	#submenu:
93426020ceed * empty log message * ca parents: 2216 diff changeset	214	#(#Menu #(#(#MenuItem #label: 'quit' #value:#quit )
93426020ceed * empty log message * ca parents: 2216 diff changeset	215	(#MenuItem
93426020ceed * empty log message * ca parents: 2216 diff changeset	216	#label: 'edit'
93426020ceed * empty log message * ca parents: 2216 diff changeset	217	#submenu:
93426020ceed * empty log message * ca parents: 2216 diff changeset	218	#(#Menu #( #(#MenuItem #label: 'edit' #value:#edit )
93426020ceed * empty log message * ca parents: 2216 diff changeset	219	#(#MenuItem #label: 'close' #value:#close)
93426020ceed * empty log message * ca parents: 2216 diff changeset	220	)
93426020ceed * empty log message * ca parents: 2216 diff changeset	221	nil
93426020ceed * empty log message * ca parents: 2216 diff changeset	222	nil
93426020ceed * empty log message * ca parents: 2216 diff changeset	223	)
93426020ceed * empty log message * ca parents: 2216 diff changeset	224	)
93426020ceed * empty log message * ca parents: 2216 diff changeset	225	#(#MenuItem #label: 'help' #value:#help )
93426020ceed * empty log message * ca parents: 2216 diff changeset	226	)
93426020ceed * empty log message * ca parents: 2216 diff changeset	227	nil
93426020ceed * empty log message * ca parents: 2216 diff changeset	228	nil
93426020ceed * empty log message * ca parents: 2216 diff changeset	229	)
93426020ceed * empty log message * ca parents: 2216 diff changeset	230	)
93426020ceed * empty log message * ca parents: 2216 diff changeset	231	#(#MenuItem #label: 'Inspect' #value:#inspectMenu )
93426020ceed * empty log message * ca parents: 2216 diff changeset	232	#(#MenuItem #label: 'Bar'
93426020ceed * empty log message * ca parents: 2216 diff changeset	233	#submenu:
93426020ceed * empty log message * ca parents: 2216 diff changeset	234	#(#Menu #( #(#MenuItem #label: 'bar 1' #value:#bar1 )
93426020ceed * empty log message * ca parents: 2216 diff changeset	235	#(#MenuItem #label: 'bar 2' #value:#bar2 )
93426020ceed * empty log message * ca parents: 2216 diff changeset	236	)
93426020ceed * empty log message * ca parents: 2216 diff changeset	237	nil
93426020ceed * empty log message * ca parents: 2216 diff changeset	238	nil
93426020ceed * empty log message * ca parents: 2216 diff changeset	239	)
93426020ceed * empty log message * ca parents: 2216 diff changeset	240	)
93426020ceed * empty log message * ca parents: 2216 diff changeset	241	)
93426020ceed * empty log message * ca parents: 2216 diff changeset	242	#( 2 )
93426020ceed * empty log message * ca parents: 2216 diff changeset	243	nil
93426020ceed * empty log message * ca parents: 2216 diff changeset	244	) decodeAsLiteralArray.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	245
dce33f8bb806 intitial checkin ca parents: diff changeset	246	menu verticalLayout:false.
dce33f8bb806 intitial checkin ca parents: diff changeset	247	Transcript showCR:(menu startUp).
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	248	[exEnd]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	249
dce33f8bb806 intitial checkin ca parents: diff changeset	250	"
dce33f8bb806 intitial checkin ca parents: diff changeset	251
dce33f8bb806 intitial checkin ca parents: diff changeset	252	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	253
dce33f8bb806 intitial checkin ca parents: diff changeset	254	!MenuPanel class methodsFor:'instance creation'!
dce33f8bb806 intitial checkin ca parents: diff changeset	255
dce33f8bb806 intitial checkin ca parents: diff changeset	256	fromSpec:aSpec
dce33f8bb806 intitial checkin ca parents: diff changeset	257	^ self fromSpec:aSpec receiver:nil
dce33f8bb806 intitial checkin ca parents: diff changeset	258	!
dce33f8bb806 intitial checkin ca parents: diff changeset	259
dce33f8bb806 intitial checkin ca parents: diff changeset	260	fromSpec:aSpec receiver:aReceiver
dce33f8bb806 intitial checkin ca parents: diff changeset	261	\|menu\|
dce33f8bb806 intitial checkin ca parents: diff changeset	262
dce33f8bb806 intitial checkin ca parents: diff changeset	263	aSpec notNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	264	menu := Menu new.
93426020ceed * empty log message * ca parents: 2216 diff changeset	265	menu receiver:aReceiver.
93426020ceed * empty log message * ca parents: 2216 diff changeset	266	menu fromLiteralArrayEncoding:aSpec.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	267	].
dce33f8bb806 intitial checkin ca parents: diff changeset	268	^ self menu:menu receiver:aReceiver
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
dce33f8bb806 intitial checkin ca parents: diff changeset	272	^ self labels:labels nameKeys:nil receiver:nil
dce33f8bb806 intitial checkin ca parents: diff changeset	273	!
dce33f8bb806 intitial checkin ca parents: diff changeset	274
dce33f8bb806 intitial checkin ca parents: diff changeset	275	labels:labels nameKeys:nameKeys
dce33f8bb806 intitial checkin ca parents: diff changeset	276	^ self labels:labels nameKeys:nameKeys receiver:nil
dce33f8bb806 intitial checkin ca parents: diff changeset	277	!
dce33f8bb806 intitial checkin ca parents: diff changeset	278
dce33f8bb806 intitial checkin ca parents: diff changeset	279	labels:labels nameKeys:nameKeys receiver:aReceiver
dce33f8bb806 intitial checkin ca parents: diff changeset	280	\|mview\|
dce33f8bb806 intitial checkin ca parents: diff changeset	281
dce33f8bb806 intitial checkin ca parents: diff changeset	282	mview := self menu:nil receiver:aReceiver.
dce33f8bb806 intitial checkin ca parents: diff changeset	283	mview labels:labels.
dce33f8bb806 intitial checkin ca parents: diff changeset	284	mview nameKeys:nameKeys.
dce33f8bb806 intitial checkin ca parents: diff changeset	285	^ mview
dce33f8bb806 intitial checkin ca parents: diff changeset	286
dce33f8bb806 intitial checkin ca parents: diff changeset	287	!
dce33f8bb806 intitial checkin ca parents: diff changeset	288
502 dedc1b29b6ac support of arguments ca parents: 498 diff changeset	289	labels:labels receiver:aReceiver
dedc1b29b6ac support of arguments ca parents: 498 diff changeset	290	^ self labels:labels nameKeys:nil receiver:aReceiver
dedc1b29b6ac support of arguments ca parents: 498 diff changeset	291	!
dedc1b29b6ac support of arguments ca parents: 498 diff changeset	292
388 dce33f8bb806 intitial checkin ca parents: diff changeset	293	menu:aMenu
dce33f8bb806 intitial checkin ca parents: diff changeset	294	^ self menu:aMenu receiver:nil
dce33f8bb806 intitial checkin ca parents: diff changeset	295	!
dce33f8bb806 intitial checkin ca parents: diff changeset	296
dce33f8bb806 intitial checkin ca parents: diff changeset	297	menu:aMenu receiver:aReceiver
dce33f8bb806 intitial checkin ca parents: diff changeset	298	\|mview\|
dce33f8bb806 intitial checkin ca parents: diff changeset	299
dce33f8bb806 intitial checkin ca parents: diff changeset	300	mview := self new.
1955 dea13bc1f1e0 bug fix when setting the receiver ca parents: 1929 diff changeset	301
dea13bc1f1e0 bug fix when setting the receiver ca parents: 1929 diff changeset	302	(aMenu notNil and:[aMenu receiver isNil]) ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	303	"/ no receiver specified in the menu; thus set the receiver immediately
93426020ceed * empty log message * ca parents: 2216 diff changeset	304	mview receiver:aReceiver
1955 dea13bc1f1e0 bug fix when setting the receiver ca parents: 1929 diff changeset	305	].
dea13bc1f1e0 bug fix when setting the receiver ca parents: 1929 diff changeset	306
388 dce33f8bb806 intitial checkin ca parents: diff changeset	307	mview menu:aMenu.
dce33f8bb806 intitial checkin ca parents: diff changeset	308
1955 dea13bc1f1e0 bug fix when setting the receiver ca parents: 1929 diff changeset	309
388 dce33f8bb806 intitial checkin ca parents: diff changeset	310	"/ a menu itself may contain a receiver
dce33f8bb806 intitial checkin ca parents: diff changeset	311	"/ thus we do not overwrite the receiver
dce33f8bb806 intitial checkin ca parents: diff changeset	312
dce33f8bb806 intitial checkin ca parents: diff changeset	313	aReceiver notNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	314	mview receiver:aReceiver
388 dce33f8bb806 intitial checkin ca parents: diff changeset	315	].
dce33f8bb806 intitial checkin ca parents: diff changeset	316	^ mview
dce33f8bb806 intitial checkin ca parents: diff changeset	317	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	318
dce33f8bb806 intitial checkin ca parents: diff changeset	319	!MenuPanel class methodsFor:'class initialization'!
dce33f8bb806 intitial checkin ca parents: diff changeset	320
dce33f8bb806 intitial checkin ca parents: diff changeset	321	initialize
657 a8246e896fa3 class initialize routine completed tz parents: 653 diff changeset	322	"
a8246e896fa3 class initialize routine completed tz parents: 653 diff changeset	323	self initialize
a8246e896fa3 class initialize routine completed tz parents: 653 diff changeset	324	"
a8246e896fa3 class initialize routine completed tz parents: 653 diff changeset	325
388 dce33f8bb806 intitial checkin ca parents: diff changeset	326	InitialSelectionQuerySignal isNil ifTrue:[
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	327	InitialSelectionQuerySignal := QuerySignal new.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	328	].
dce33f8bb806 intitial checkin ca parents: diff changeset	329
660 d1670dfe5445 Do not call #updateStyleCache from #initialize. Stefan Vogel <sv@exept.de> parents: 658 diff changeset	330	"Modified: / 15.1.1998 / 23:08:31 / stefan"
794 5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	331	!
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	332
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	333	preSnapshot
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	334	"remove all resources
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	Images := nil.
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	337	LigthenedImages := nil.
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	338
616 a6157b083830 support of different styles ca parents: 608 diff changeset	339	! !
a6157b083830 support of different styles ca parents: 608 diff changeset	340
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	341	!MenuPanel class methodsFor:'default icons'!
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	342
2344 d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	343	delayedMenuIndicator
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	344	"This resource specification was automatically generated
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	345	by the ImageEditor of ST/X."
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	346
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	347	"Do not manually edit this!! If it is corrupted,
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	348	the ImageEditor may not be able to read the specification."
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	349
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	350	"
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	351	self delayedMenuIndicator inspect
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	352	ImageEditor openOnClass:self andSelector:#delayedMenuIndicator
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	353	Icon flushCachedIcons
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	354	"
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	355
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	356	<resource: #image>
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	357
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	358	^Icon
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	359	constantNamed:#'MenuPanel class delayedMenuIndicator'
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	360	ifAbsentPut:[(Depth1Image new) width: 7; height: 6; photometric:(#palette); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@HCB') ; colorMapFromArray:#[0 0 0 255 255 255]; mask:((Depth1Image new) width: 7; height: 6; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@J+V[C P') ; yourself); yourself]
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	361	!
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	362
1798 08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	363	iconIndicationDisabledOff
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	364	"This resource specification was automatically generated
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	365	by the ImageEditor of ST/X."
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	366
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	367	"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	368	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	369
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	370	"
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	371	self iconIndicationDisabledOff inspect
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	372	ImageEditor openOnClass:self andSelector:#iconIndicationDisabledOff
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	373	"
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	374
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	375	<resource: #image>
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	^Icon
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	378	constantNamed:#'MenuPanel iconIndicationDisabledOff'
93426020ceed * empty log message * ca parents: 2216 diff changeset	379	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	380	!
1798 08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	381
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	382	iconIndicationDisabledOn
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	383	"This resource specification was automatically generated
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	384	by the ImageEditor of ST/X."
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	385
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	386	"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	387	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	388
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	389	"
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	390	self iconIndicationDisabledOn inspect
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	391	ImageEditor openOnClass:self andSelector:#iconIndicationDisabledOn
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	392	"
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	393
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	394	<resource: #image>
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	395
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	396	^Icon
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	397	constantNamed:#'MenuPanel iconIndicationDisabledOn'
93426020ceed * empty log message * ca parents: 2216 diff changeset	398	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	399	!
1798 08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	400
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	401	iconIndicationOff
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	402	"This resource specification was automatically generated
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	403	by the ImageEditor of ST/X."
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	404
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	405	"Do not manually edit this!! If it is corrupted,
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	406	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	407
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	408	"
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	409	self iconIndicationOff inspect
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	410	ImageEditor openOnClass:self andSelector:#iconIndicationOff
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	411	"
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	412
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	413	<resource: #image>
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	^Icon
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	416	constantNamed:#'MenuPanel iconIndicationOff'
93426020ceed * empty log message * ca parents: 2216 diff changeset	417	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	418	!
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	419
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	420	iconIndicationOn
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	421	"This resource specification was automatically generated
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	422	by the ImageEditor of ST/X."
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	423
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	424	"Do not manually edit this!! If it is corrupted,
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	425	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	426
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	427	"
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	428	self iconIndicationOn inspect
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	429	ImageEditor openOnClass:self andSelector:#iconIndicationOn
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	430	"
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	431
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	432	<resource: #image>
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	433
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	434	^Icon
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	435	constantNamed:#'MenuPanel iconIndicationOn'
93426020ceed * empty log message * ca parents: 2216 diff changeset	436	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	437	!
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	438
1798 08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	439	iconRadioGroupDisabledOff
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	440	"This resource specification was automatically generated
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	441	by the ImageEditor of ST/X."
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	442
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	443	"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	444	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	445
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	446	"
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	447	self iconRadioGroupDisabledOff inspect
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	448	ImageEditor openOnClass:self andSelector:#iconRadioGroupDisabledOff
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	449	"
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	450
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	451	<resource: #image>
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	^Icon
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	454	constantNamed:#'MenuPanel iconRadioGroupDisabledOff'
93426020ceed * empty log message * ca parents: 2216 diff changeset	455	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	456	!
1798 08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	457
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	458	iconRadioGroupDisabledOn
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	459	"This resource specification was automatically generated
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	460	by the ImageEditor of ST/X."
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	461
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	462	"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	463	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	464
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	465	"
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	466	self iconRadioGroupDisabledOn inspect
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	467	ImageEditor openOnClass:self andSelector:#iconRadioGroupDisabledOn
2337 7f384db88273 centerItems attribute Claus Gittinger <cg@exept.de> parents: 2332 diff changeset	468	Icon flushCachedIcons
1798 08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	469	"
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	470
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	471	<resource: #image>
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	472
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	473	^Icon
2337 7f384db88273 centerItems attribute Claus Gittinger <cg@exept.de> parents: 2332 diff changeset	474	constantNamed:#'MenuPanel class iconRadioGroupDisabledOn'
7f384db88273 centerItems attribute Claus Gittinger <cg@exept.de> parents: 2332 diff changeset	475	ifAbsentPut:[(Depth2Image new) width: 15; height: 15; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@AUP@@E@AP@DJY@DYUZ(AIUU+AIUUVLRUUU#D%UUX1IUUVLRUUU#AYUU#@Z%U(0A* 0@C@C0@@O?@@') ; colorMapFromArray:#[0 0 0 85 85 85 170 170 170 255 255 255]; mask:((Depth1Image new) width: 15; height: 15; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'A<@_<C?8_?1??O?:??+?>/?:??)?=G?4O< HL@_@') ; yourself); yourself]
1889 43516e4588ce give warning messages for unimplemented menu-aspects Claus Gittinger <cg@exept.de> parents: 1878 diff changeset	476	!
1798 08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	477
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	478	iconRadioGroupOff
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	479	"This resource specification was automatically generated
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	480	by the ImageEditor of ST/X."
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	481
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	482	"Do not manually edit this!! If it is corrupted,
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	483	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	484
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	self iconRadioGroupOff inspect
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	487	ImageEditor openOnClass:self andSelector:#iconRadioGroupOff
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	488	"
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	<resource: #image>
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	491
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	492	^Icon
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	493	constantNamed:#'MenuPanel iconRadioGroupOff'
93426020ceed * empty log message * ca parents: 2216 diff changeset	494	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	495	!
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	496
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	497	iconRadioGroupOn
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	498	"This resource specification was automatically generated
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	499	by the ImageEditor of ST/X."
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	500
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	501	"Do not manually edit this!! If it is corrupted,
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	502	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	503
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	504	"
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	505	self iconRadioGroupOn inspect
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	506	ImageEditor openOnClass:self andSelector:#iconRadioGroupOn
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	507	"
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	508
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	509	<resource: #image>
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	510
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	511	^Icon
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	512	constantNamed:#'MenuPanel iconRadioGroupOn'
93426020ceed * empty log message * ca parents: 2216 diff changeset	513	ifAbsentPut:[(Depth2Image new) width: 15; height: 15; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@AUP@@E@AP@DO?Y@D]@^(AL@@;AM@@GLS@@@3D0@@L1L@@CLSP@A3A\@@3@Z4A<0A+?00@C@C0@@O?@@') ; colorMapFromArray:#[0 0 0 85 85 85 170 170 170 255 255 255]; mask:((Depth1Image new) width: 15; height: 15; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'A<@_<C?8_?1??O?:??+?>/?:??)?=G?4O< HL@_@') ; yourself); yourself]
2344 d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	514	!
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	515
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	516	menuIndicator
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	517	"This resource specification was automatically generated
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	518	by the ImageEditor of ST/X."
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	519
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	520	"Do not manually edit this!! If it is corrupted,
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	521	the ImageEditor may not be able to read the specification."
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	522
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	523	"
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	524	self menuIndicator inspect
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	525	ImageEditor openOnClass:self andSelector:#menuIndicator
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	526	Icon flushCachedIcons
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	527	"
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	528
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	529	<resource: #image>
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	530
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	531	^Icon
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	532	constantNamed:#'MenuPanel::Item class menuIndicator'
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	533	ifAbsentPut:[(Depth1Image new) width: 7; height: 4; photometric:(#palette); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@B@0 @a') ; colorMapFromArray:#[0 0 0 255 255 255]; mask:((Depth1Image new) width: 7; height: 4; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'?''08D@@a') ; yourself); yourself]
1889 43516e4588ce give warning messages for unimplemented menu-aspects Claus Gittinger <cg@exept.de> parents: 1878 diff changeset	534	! !
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	535
616 a6157b083830 support of different styles ca parents: 608 diff changeset	536	!MenuPanel class methodsFor:'defaults'!
450 ac72eb2ed895 initialize fix Claus Gittinger <cg@exept.de> parents: 441 diff changeset	537
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	538	defaultBackgroundColor
2609 b927f450c4c8 * empty log message * ca parents: 2607 diff changeset	539	DefaultBackgroundColor notNil ifTrue:[^ DefaultBackgroundColor].
2372 d136f6d4b7c5 bugfix if font is nil ca parents: 2364 diff changeset	540	^ StyleSheet at:#'pullDownMenu.backgroundColor' default:DefaultViewBackgroundColor.
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	541	!
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	542
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	543	defaultLevel
2372 d136f6d4b7c5 bugfix if font is nil ca parents: 2364 diff changeset	544	^ StyleSheet at:#'pullDownMenu.level' default:1
d136f6d4b7c5 bugfix if font is nil ca parents: 2364 diff changeset	545	"
d136f6d4b7c5 bugfix if font is nil ca parents: 2364 diff changeset	546	self defaultLevel
d136f6d4b7c5 bugfix if font is nil ca parents: 2364 diff changeset	547	"
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	548	!
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	549
2344 d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	550	delayedMenuIndicatorOffset
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	551	"returns an additional offset between the label and the
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	552	delayedMenu indication (i.e. the down-arrow icon)
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	553	"
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	554	^ 1 "2"
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	555	!
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	556
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	557	menuIndicatorOffset
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	558	"returns an additional offset between the label and the
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	559	delayedMenu indication (i.e. the down-arrow icon)
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	560	"
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	561	^ 1 "2"
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	562	!
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	563
1786 f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	564	mnemonicIdentifier
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	565	"returns the identifier each mnemonic starts with;
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	566	ex:
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	567	&File mnemonic := Cmdf
93426020ceed * empty log message * ca parents: 2216 diff changeset	568	F&ile mnemonic := Cmdi
93426020ceed * empty log message * ca parents: 2216 diff changeset	569	.....
1786 f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	570	"
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	571	^ 'Cmd'
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	572	!
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	573
450 ac72eb2ed895 initialize fix Claus Gittinger <cg@exept.de> parents: 441 diff changeset	574	updateStyleCache
657 a8246e896fa3 class initialize routine completed tz parents: 653 diff changeset	575
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	576	<resource: #style (
93426020ceed * empty log message * ca parents: 2216 diff changeset	577	#'popup.borderWidth' #'popup.level'
93426020ceed * empty log message * ca parents: 2216 diff changeset	578	#'selection.disabledForegroundColor'
93426020ceed * empty log message * ca parents: 2216 diff changeset	579	#'pullDownMenu.foregroundColor' #'pullDownMenu.backgroundColor' #'pullDownMenu.level'
93426020ceed * empty log message * ca parents: 2216 diff changeset	580	#'menu.itemHorizontalSpace' #'menu.buttonItemHorizontalSpace' #'menu.buttonItemSpace'
93426020ceed * empty log message * ca parents: 2216 diff changeset	581	#'menu.buttonItemVerticalSpace'
93426020ceed * empty log message * ca parents: 2216 diff changeset	582	#'menu.buttonActiveLevel' #'menu.buttonPassiveLevel' #'menu.buttonEnteredLevel'
93426020ceed * empty log message * ca parents: 2216 diff changeset	583	#'menu.hilightLevel' #'menu.enteredLevel'
93426020ceed * empty log message * ca parents: 2216 diff changeset	584	#'menu.groupDividerSize' #'menu.itemMargin'
93426020ceed * empty log message * ca parents: 2216 diff changeset	585	#'menu.disabledEtchedForegroundColor' #'menu.hilightForegroundColor'
93426020ceed * empty log message * ca parents: 2216 diff changeset	586	#'menu.enteredBackgroundColor' #'menu.enteredForegroundColor'
93426020ceed * empty log message * ca parents: 2216 diff changeset	587	#'menu.disabledForegroundColor' #'menu.buttonEnteredBackgroundColor'
93426020ceed * empty log message * ca parents: 2216 diff changeset	588	#'menu.selectionFollowsMouse'
93426020ceed * empty log message * ca parents: 2216 diff changeset	589	#'button.disabledEtchedForegroundColor' #'button.disabledForegroundColor'
93426020ceed * empty log message * ca parents: 2216 diff changeset	590	#'button.activeBackgroundColor' #'button.backgroundColor' #'button.lightColor'
93426020ceed * empty log message * ca parents: 2216 diff changeset	591	#'button.enteredBackgroundColor' #'button.halfLightColor' #'button.halfShadowColor'
93426020ceed * empty log message * ca parents: 2216 diff changeset	592	#'button.activeLevel' #'button.passiveLevel' #'button.edgeStyle'
93426020ceed * empty log message * ca parents: 2216 diff changeset	593	)>
93426020ceed * empty log message * ca parents: 2216 diff changeset	594
93426020ceed * empty log message * ca parents: 2216 diff changeset	595	\|styleSheet style var foregroundColor backgroundColor buttonPassiveBackgroundColor
93426020ceed * empty log message * ca parents: 2216 diff changeset	596	buttonActiveLevel buttonPassiveLevel buttonEnteredLevel\|
2607 5eecd27af4e4 * empty log message * ca parents: 2604 diff changeset	597
2611 9814b5547d63 bugfix: backgroundColor after loading new style ca parents: 2610 diff changeset	598	"clear DefaultBackgroundColor caused by accessing the #defaultBackgroundColor
9814b5547d63 bugfix: backgroundColor after loading new style ca parents: 2610 diff changeset	599	which returns the default cashed DefaultBackgroundColor
9814b5547d63 bugfix: backgroundColor after loading new style ca parents: 2610 diff changeset	600	"
9814b5547d63 bugfix: backgroundColor after loading new style ca parents: 2610 diff changeset	601	DefaultBackgroundColor := nil.
9814b5547d63 bugfix: backgroundColor after loading new style ca parents: 2610 diff changeset	602
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	603	MenuView updateStyleCache.
93426020ceed * empty log message * ca parents: 2216 diff changeset	604	SelectionInListView updateStyleCache.
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	605
2372 d136f6d4b7c5 bugfix if font is nil ca parents: 2364 diff changeset	606	styleSheet := StyleSheet.
d136f6d4b7c5 bugfix if font is nil ca parents: 2364 diff changeset	607	style := styleSheet name.
d136f6d4b7c5 bugfix if font is nil ca parents: 2364 diff changeset	608
2607 5eecd27af4e4 * empty log message * ca parents: 2604 diff changeset	609	DefaultFont := MenuView defaultFont.
2609 b927f450c4c8 * empty log message * ca parents: 2607 diff changeset	610	foregroundColor := DefaultForegroundColor := styleSheet colorAt:#'pullDownMenu.foregroundColor' default:Color black.
b927f450c4c8 * empty log message * ca parents: 2607 diff changeset	611	backgroundColor := DefaultBackgroundColor := self defaultBackgroundColor.
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	612
93426020ceed * empty log message * ca parents: 2216 diff changeset	613	var := styleSheet at:#'menu.buttonItemHorizontalSpace'.
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	614	var isNil ifTrue:[ var := styleSheet at:#'menu.buttonItemSpace' default:0 ].
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	615	styleSheet at:#'menuPanel.buttonInsetX' put:(var abs).
93426020ceed * empty log message * ca parents: 2216 diff changeset	616
93426020ceed * empty log message * ca parents: 2216 diff changeset	617	var := styleSheet at:#'menu.buttonItemVerticalSpace'.
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	618	var isNil ifTrue:[ var := styleSheet at:#'menu.buttonItemSpace' default:0 ].
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	619	styleSheet at:#'menuPanel.buttonInsetY' put:(var abs).
93426020ceed * empty log message * ca parents: 2216 diff changeset	620
93426020ceed * empty log message * ca parents: 2216 diff changeset	621	var := styleSheet at:#'menu.itemHorizontalSpace'.
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	622	var isNil ifTrue:[ var := styleSheet at:#'menu.itemSpace' default:0 ].
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	623	styleSheet at:#'menuPanel.itemSpace' put:var.
93426020ceed * empty log message * ca parents: 2216 diff changeset	624
93426020ceed * empty log message * ca parents: 2216 diff changeset	625	var := styleSheet colorAt:#'menu.hilightBackgroundColor'.
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	626	var isNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	627	style == #motif ifTrue:[ var := backgroundColor ]
93426020ceed * empty log message * ca parents: 2216 diff changeset	628	ifFalse:[ var := styleSheet is3D ifFalse:[foregroundColor] ifTrue:[backgroundColor] ]
93426020ceed * empty log message * ca parents: 2216 diff changeset	629	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	630	styleSheet at:#'menuPanel.activeBackgroundColor' put:var.
93426020ceed * empty log message * ca parents: 2216 diff changeset	631
93426020ceed * empty log message * ca parents: 2216 diff changeset	632	var := styleSheet colorAt:#'menu.disabledEtchedForegroundColor'.
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	633	var isNil ifTrue:[ var := styleSheet colorAt:#'button.disabledEtchedForegroundColor' ].
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	634	styleSheet at:#'menuPanel.disabledEtchedFgColor' put:var.
93426020ceed * empty log message * ca parents: 2216 diff changeset	635
93426020ceed * empty log message * ca parents: 2216 diff changeset	636	var := styleSheet colorAt:#'menu.disabledForegroundColor'.
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	637	var isNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	638	var := styleSheet colorAt:#'selection.disabledForegroundColor'.
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	639	var isNil ifTrue:[ var := styleSheet colorAt:#'button.disabledForegroundColor' default:Color darkGray ]
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	640	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	641	styleSheet at:#'menuPanel.disabledForegroundColor' put:var.
93426020ceed * empty log message * ca parents: 2216 diff changeset	642
93426020ceed * empty log message * ca parents: 2216 diff changeset	643	var := styleSheet colorAt:#'menu.hilightForegroundColor'.
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	644	var isNil ifTrue:[ var := styleSheet is3D ifTrue:[foregroundColor] ifFalse:[backgroundColor] ].
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	645	styleSheet at:#'menuPanel.activeForegroundColor' put:var.
93426020ceed * empty log message * ca parents: 2216 diff changeset	646
93426020ceed * empty log message * ca parents: 2216 diff changeset	647
93426020ceed * empty log message * ca parents: 2216 diff changeset	648	buttonActiveLevel := styleSheet at:#'menu.buttonActiveLevel' default:(styleSheet is3D ifTrue:[-2] ifFalse:[0]).
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	649	buttonActiveLevel isNil ifTrue:[ buttonActiveLevel := styleSheet at:#'button.activeLevel' default:(styleSheet is3D ifTrue:[-2] ifFalse:[0]) ].
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	650	styleSheet at:#'menuPanel.buttonActiveLevel' put:buttonActiveLevel.
93426020ceed * empty log message * ca parents: 2216 diff changeset	651
93426020ceed * empty log message * ca parents: 2216 diff changeset	652	buttonPassiveLevel := styleSheet at:#'menu.buttonPassiveLevel'.
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	653	buttonPassiveLevel isNil ifTrue:[ buttonPassiveLevel := styleSheet at:#'button.passiveLevel' default:(styleSheet is3D ifTrue:[2] ifFalse:[0])].
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	654	styleSheet at:#'menuPanel.buttonPassiveLevel' put:buttonPassiveLevel.
93426020ceed * empty log message * ca parents: 2216 diff changeset	655
93426020ceed * empty log message * ca parents: 2216 diff changeset	656	buttonEnteredLevel := styleSheet at:#'menu.buttonEnteredLevel' default:buttonPassiveLevel.
93426020ceed * empty log message * ca parents: 2216 diff changeset	657	styleSheet at:#'menuPanel.buttonEnteredLevel' put:buttonEnteredLevel.
93426020ceed * empty log message * ca parents: 2216 diff changeset	658
93426020ceed * empty log message * ca parents: 2216 diff changeset	659	var := (buttonActiveLevel abs max:(buttonPassiveLevel abs)) max:(buttonEnteredLevel abs).
93426020ceed * empty log message * ca parents: 2216 diff changeset	660	styleSheet at:#'menuPanel.maxAbsoluteButtonLevel' put:var.
93426020ceed * empty log message * ca parents: 2216 diff changeset	661
93426020ceed * empty log message * ca parents: 2216 diff changeset	662	buttonPassiveBackgroundColor := styleSheet at:#'button.backgroundColor'.
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	663	buttonPassiveBackgroundColor isNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	664	buttonPassiveBackgroundColor := (styleSheet at:'viewBackground') ? backgroundColor
93426020ceed * empty log message * ca parents: 2216 diff changeset	665	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	666	styleSheet at:#'menuPanel.buttonPassiveBackgroundColor' put:buttonPassiveBackgroundColor.
93426020ceed * empty log message * ca parents: 2216 diff changeset	667
93426020ceed * empty log message * ca parents: 2216 diff changeset	668	var := styleSheet at:#'button.lightColor'.
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	669	var isNil ifTrue:[ var := (buttonPassiveBackgroundColor averageColorIn:(0@0 corner:7@7)) lightened ].
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	670	styleSheet at:#'menuPanel.buttonLightColor' put:var.
93426020ceed * empty log message * ca parents: 2216 diff changeset	671
93426020ceed * empty log message * ca parents: 2216 diff changeset	672	var := styleSheet at:#'button.shadowColor'.
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	673	var isNil ifTrue:[ var := (buttonPassiveBackgroundColor averageColorIn:(0@0 corner:7@7)) darkened ].
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	674	styleSheet at:#'menuPanel.buttonShadowColor' put:var.
93426020ceed * empty log message * ca parents: 2216 diff changeset	675
93426020ceed * empty log message * ca parents: 2216 diff changeset	676	var := styleSheet colorAt:#'menu.buttonEnteredBackgroundColor'.
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	677	var isNil ifTrue:[ var := styleSheet colorAt:#'button.enteredBackgroundColor' default:buttonPassiveBackgroundColor ].
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	678	styleSheet at:#'menuPanel.buttonEnteredBackgroundColor' put:var.
93426020ceed * empty log message * ca parents: 2216 diff changeset	679
93426020ceed * empty log message * ca parents: 2216 diff changeset	680	Item updateStyleCache.
2607 5eecd27af4e4 * empty log message * ca parents: 2604 diff changeset	681
5eecd27af4e4 * empty log message * ca parents: 2604 diff changeset	682	"
5eecd27af4e4 * empty log message * ca parents: 2604 diff changeset	683	self updateStyleCache
5eecd27af4e4 * empty log message * ca parents: 2604 diff changeset	684	"
388 dce33f8bb806 intitial checkin ca parents: diff changeset	685	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	686
794 5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	687	!MenuPanel class methodsFor:'image registration'!
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	image:anImage onDevice:aDevice
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	Images := nil
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	692	"
2269 e250e3adfc56 registration of images ca parents: 2255 diff changeset	693	\|deviceImages\|
794 5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	694
1156 6fa33dc93509 fix to avoid repeated image>>onDevice Claus Gittinger <cg@exept.de> parents: 1151 diff changeset	695	anImage device == aDevice ifTrue:[
2269 e250e3adfc56 registration of images ca parents: 2255 diff changeset	696	^ anImage
1853 399e2eac3b99 Use WeakIdentityDictionaries to cache images per Workstation. Stefan Vogel <sv@exept.de> parents: 1841 diff changeset	697	].
399e2eac3b99 Use WeakIdentityDictionaries to cache images per Workstation. Stefan Vogel <sv@exept.de> parents: 1841 diff changeset	698
399e2eac3b99 Use WeakIdentityDictionaries to cache images per Workstation. Stefan Vogel <sv@exept.de> parents: 1841 diff changeset	699	Images isNil ifTrue:[ Images := WeakIdentityDictionary new ].
794 5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	700
1097 8a2f6c5ad1a9 * empty log message * Claus Gittinger <cg@exept.de> parents: 1096 diff changeset	701	(deviceImages := Images at:aDevice ifAbsent:nil) isNil ifTrue:[
2269 e250e3adfc56 registration of images ca parents: 2255 diff changeset	702	Images at:aDevice put:(deviceImages := Dictionary new)
e250e3adfc56 registration of images ca parents: 2255 diff changeset	703	].
e250e3adfc56 registration of images ca parents: 2255 diff changeset	704
e250e3adfc56 registration of images ca parents: 2255 diff changeset	705	^ deviceImages at:anImage ifAbsentPut:[ \|image\|
e250e3adfc56 registration of images ca parents: 2255 diff changeset	706	image := anImage copy onDevice:aDevice.
e250e3adfc56 registration of images ca parents: 2255 diff changeset	707	image clearMaskedPixels.
e250e3adfc56 registration of images ca parents: 2255 diff changeset	708	deviceImages at:anImage put:image.
e250e3adfc56 registration of images ca parents: 2255 diff changeset	709	image
e250e3adfc56 registration of images ca parents: 2255 diff changeset	710	].
794 5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	711	!
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	712
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	713	lightenedImage:anImage onDevice:aDevice
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	714	"
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	715	LigthenedImages := nil
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	716	"
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	717	\|deviceImages image colorMap\|
794 5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	718
1853 399e2eac3b99 Use WeakIdentityDictionaries to cache images per Workstation. Stefan Vogel <sv@exept.de> parents: 1841 diff changeset	719	LigthenedImages isNil ifTrue:[ LigthenedImages := WeakIdentityDictionary new ].
794 5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	720
1097 8a2f6c5ad1a9 * empty log message * Claus Gittinger <cg@exept.de> parents: 1096 diff changeset	721	(deviceImages := LigthenedImages at:aDevice ifAbsent:nil) isNil ifTrue:[
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	722	LigthenedImages at:aDevice put:(deviceImages := Dictionary new)
1097 8a2f6c5ad1a9 * empty log message * Claus Gittinger <cg@exept.de> parents: 1096 diff changeset	723	].
8a2f6c5ad1a9 * empty log message * Claus Gittinger <cg@exept.de> parents: 1096 diff changeset	724
8a2f6c5ad1a9 * empty log message * Claus Gittinger <cg@exept.de> parents: 1096 diff changeset	725	(image := deviceImages at:anImage ifAbsent:nil) notNil ifTrue:[
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	726	^ image
975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	727	].
975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	728
975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	729	colorMap := anImage perform:#colorMap ifNotUnderstood:nil.
975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	730
975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	731	colorMap notNil ifTrue:[
975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	732	image := anImage copy lightened onDevice:aDevice.
975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	733	image clearMaskedPixels.
794 5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	734	] ifFalse:[
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	735	image := self image:anImage onDevice:aDevice
794 5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	736	].
1097 8a2f6c5ad1a9 * empty log message * Claus Gittinger <cg@exept.de> parents: 1096 diff changeset	737	deviceImages at:anImage put:image.
794 5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	738	^ image
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	739	! !
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	740
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	741	!MenuPanel class methodsFor:'private'!
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	742
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	743	subMenu:aSubMenu
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	744	"create a submenu; can be redifined in derived classes
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	745	"
1063 08b7ca464437 dont show accelerators for horizontal layouts Claus Gittinger <cg@exept.de> parents: 1054 diff changeset	746	^ (self new) menu:aSubMenu.
08b7ca464437 dont show accelerators for horizontal layouts Claus Gittinger <cg@exept.de> parents: 1054 diff changeset	747
08b7ca464437 dont show accelerators for horizontal layouts Claus Gittinger <cg@exept.de> parents: 1054 diff changeset	748	"Modified: / 8.8.1998 / 02:13:11 / cg"
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	749	! !
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	750
1808 e8628b502a49 methodCategory change Claus Gittinger <cg@exept.de> parents: 1806 diff changeset	751	!MenuPanel methodsFor:'accepting'!
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	752
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	753	accept
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	754	"accept current selected item
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	755	"
1670 dbc8a05605e0 add new behavior: hideMenuOnActivated ca parents: 1666 diff changeset	756	^ self acceptItem:(self selection) inMenu:self
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	757	!
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	758
1836 89a1b938c09e fixed returned value from non-performing menu Claus Gittinger <cg@exept.de> parents: 1832 diff changeset	759	accept:anItem
2326 a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	760	"this is the topMenu: accept item "
a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	761
2050 ef5517d7a2d0 do not destroy myself after accepting (for PopUpList) Claus Gittinger <cg@exept.de> parents: 2048 diff changeset	762	\|value item tgState itemIdx recv panel masterGroup winGrp acceptAction\|
1630 01dc20096011 grabbing cleaned up; ca parents: 1613 diff changeset	763
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	764	self superMenu notNil ifTrue:[
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	765	^ self topMenu accept:anItem
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	766	].
2199 61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	767	self openDelayed:nil.
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	768	self scrollActivity stop.
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	769	self selection:nil.
420 b6f9fff472ef fixes ca parents: 417 diff changeset	770
b6f9fff472ef fixes ca parents: 417 diff changeset	771	(anItem notNil and:[anItem canAccept]) ifTrue:[
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	772	tgState := anItem toggleIndication.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	773	panel := anItem menuPanel.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	774	itemIdx := panel findFirst:[:el\| el == anItem ].
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	775	item := anItem.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	776	recv := panel receiver.
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	777	].
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	778	self doUngrab:true.
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	779
510 8f77b9382066 bug fix with redraw ca parents: 505 diff changeset	780	self isPopUpView ifFalse:[
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	781	self do:[:el\| el updateIndicators].
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	782	self windowGroup processExposeEvents.
524 d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	783	] ifTrue:[
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	784	self unmap.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	785	(winGrp := self windowGroup) notNil ifTrue:[
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	786	"/ give expose event a chance to arrive
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	787	[shown and:[realized]] whileTrue:[
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	788	winGrp processExposeEventsFor:self
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	789	].
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	790	masterGroup := winGrp previousGroup.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	791	].
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	792	"/ cg: disabled-not needed - try PopUpList with destroy...
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	793	"/ self destroy.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	794	masterGroup notNil ifTrue:[masterGroup processExposeEvents].
524 d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	795	].
1710 bb9bb814e7c4 showBusy code moved Claus Gittinger <cg@exept.de> parents: 1709 diff changeset	796
2050 ef5517d7a2d0 do not destroy myself after accepting (for PopUpList) Claus Gittinger <cg@exept.de> parents: 2048 diff changeset	797	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	798
1710 bb9bb814e7c4 showBusy code moved Claus Gittinger <cg@exept.de> parents: 1709 diff changeset	799	(item notNil
bb9bb814e7c4 showBusy code moved Claus Gittinger <cg@exept.de> parents: 1709 diff changeset	800	and:[item showBusyCursorWhilePerforming
bb9bb814e7c4 showBusy code moved Claus Gittinger <cg@exept.de> parents: 1709 diff changeset	801	and:[(winGrp := (masterGroup ? (self windowGroup))) notNil]])
bb9bb814e7c4 showBusy code moved Claus Gittinger <cg@exept.de> parents: 1709 diff changeset	802	ifTrue:[
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	803	winGrp withWaitCursorDo:acceptAction
2132 fd5b29a20fe1 * empty log message * Claus Gittinger <cg@exept.de> parents: 2125 diff changeset	804	] ifFalse:[acceptAction value].
524 d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	805
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	806	self isPopUpView ifTrue:[
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	807	self menuAdornmentAt:#item put:item.
524 d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	808	].
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	809	^ item.
524 d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	810
2050 ef5517d7a2d0 do not destroy myself after accepting (for PopUpList) Claus Gittinger <cg@exept.de> parents: 2048 diff changeset	811	"Modified: / 15.11.2001 / 17:05:40 / cg"
524 d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	812	!
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	813
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	814	accept:anItem index:anIndex toggle:aState receiver:aReceiver
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	815	"accept an item
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	816	"
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	817	\|value argument numArgs isValueModel rec args arg2
1697 345d3664e10c added 'showBusyCursorWhileActive' attribute Claus Gittinger <cg@exept.de> parents: 1695 diff changeset	818	app master fallBack\|
524 d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	819
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	820	anItem isNil ifTrue:[
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	821	self menuAdornmentAt:#hasPerformed put:true.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	822	^ nil
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	823	].
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	824
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	825	isValueModel := aReceiver isValueModel.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	826
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	827	self menuAdornmentAt:#hasPerformed put:isValueModel.
524 d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	828
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	829	(value := anItem value) isNil ifTrue:[
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	830	^ anIndex
524 d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	831	].
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	832
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	833	(argument := anItem argument) isNil ifTrue:[
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	834	argument := aState ? anItem
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	835	].
524 d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	836
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	837	value isSymbol ifFalse:[
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	838	"/ a valueHolder or block
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	839	(value respondsTo:#valueWithArguments:) ifFalse:[
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	840	^ value
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	841	].
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	842
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	843	numArgs := value perform:#numArgs ifNotUnderstood:0.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	844
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	845	numArgs == 0 ifTrue:[
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	846	args := nil
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	847	] ifFalse:[
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	848	numArgs == 1 ifTrue:[
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	849	args := Array with:argument
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	850	] ifFalse:[
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	851	args := Array with:argument with:self
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	852	]
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	853	].
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	854
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	855	value valueWithArguments:args.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	856
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	857	self menuAdornmentAt:#hasPerformed put:true.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	858	^ anIndex
524 d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	859	].
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	860
2331 ebd240410703 can now specify if menu action is to be performed by ca parents: 2326 diff changeset	861	anItem sendToOriginator ifTrue:[
2473 6ace3a7234b0 care for nil originator Claus Gittinger <cg@exept.de> parents: 2471 diff changeset	862	rec := self originator.
6ace3a7234b0 care for nil originator Claus Gittinger <cg@exept.de> parents: 2471 diff changeset	863	rec isNil ifTrue:[
6ace3a7234b0 care for nil originator Claus Gittinger <cg@exept.de> parents: 2471 diff changeset	864	self error:'no originating widget (no target for message)'.
6ace3a7234b0 care for nil originator Claus Gittinger <cg@exept.de> parents: 2471 diff changeset	865	].
2331 ebd240410703 can now specify if menu action is to be performed by ca parents: 2326 diff changeset	866	] ifFalse:[
ebd240410703 can now specify if menu action is to be performed by ca parents: 2326 diff changeset	867	rec := aReceiver
ebd240410703 can now specify if menu action is to be performed by ca parents: 2326 diff changeset	868	].
ebd240410703 can now specify if menu action is to be performed by ca parents: 2326 diff changeset	869
ebd240410703 can now specify if menu action is to be performed by ca parents: 2326 diff changeset	870	rec isNil ifTrue:[
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	871	^ value
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	872	].
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	873
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	874	isValueModel ifTrue:[
2331 ebd240410703 can now specify if menu action is to be performed by ca parents: 2326 diff changeset	875	rec value:value
465 67a0f3dd503a in case of performing a selector '0' is returned ca parents: 464 diff changeset	876	] ifFalse:[
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	877	arg2 := self.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	878
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	879	"/ support for ST80 style applications
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	880	"/ (expecting the message to go to the application
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	881	"/ if not understood by the view)
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	882	"/ These expect the controller to be passed as argument.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	883	"/ sigh.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	884
2331 ebd240410703 can now specify if menu action is to be performed by ca parents: 2326 diff changeset	885	(rec isView
ebd240410703 can now specify if menu action is to be performed by ca parents: 2326 diff changeset	886	and:[(rec respondsTo:value) not
ebd240410703 can now specify if menu action is to be performed by ca parents: 2326 diff changeset	887	and:[(app := rec application) ~~ rec
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	888	and:[app notNil]]]) ifTrue:[
2331 ebd240410703 can now specify if menu action is to be performed by ca parents: 2326 diff changeset	889	arg2 := rec controller. "/ the Views controller
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	890	rec := app.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	891	].
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	892
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	893	(numArgs := value numArgs) == 0 ifTrue:[
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	894	args := nil
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	895	] ifFalse:[
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	896	numArgs == 1 ifTrue:[
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	897	args := Array with:argument
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	898	] ifFalse:[
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	899	args := Array with:argument with:arg2
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	900	]
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	901	].
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	902
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	903	fallBack :=
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	904	[
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	905	"/ mhmh - the receiver did not respond to that message;
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	906	"/ if there is a master-application, try that one
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	907	"/ (recursive)
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	908	master := rec perform:#masterApplication ifNotUnderstood:nil.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	909	master notNil ifTrue:[
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	910	rec := master.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	911	rec perform:value withArguments:args ifNotUnderstood:fallBack
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	912	] ifFalse:[
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	913	self
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	914	error:'unimplemented (or error in) menu message: ' , value
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	915	mayProceed:true
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	916	].
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	917	].
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	918
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	919	rec perform:value withArguments:args ifNotUnderstood:fallBack.
420 b6f9fff472ef fixes ca parents: 417 diff changeset	920	].
524 d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	921	self menuAdornmentAt:#hasPerformed put:true.
1270 0ae582fd7294 send menuMessage to application, Claus Gittinger <cg@exept.de> parents: 1267 diff changeset	922	^ value
1679 af40842718f6 when accepting, and the application does not respond to that Claus Gittinger <cg@exept.de> parents: 1670 diff changeset	923
1719 ba7ebb56e6fd recursively try masterApps when performing Claus Gittinger <cg@exept.de> parents: 1715 diff changeset	924	"Modified: / 19.2.2000 / 11:08:22 / cg"
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	925	!
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	926
1670 dbc8a05605e0 add new behavior: hideMenuOnActivated ca parents: 1666 diff changeset	927	acceptItem:anItem inMenu:aMenu
2199 61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	928	\|tgState topMenu\|
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	929
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	930	topMenu := self topMenu.
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	931	topMenu openDelayed:nil.
1670 dbc8a05605e0 add new behavior: hideMenuOnActivated ca parents: 1666 diff changeset	932
1841 5d01716cc37c implement: triggerOnDown ca parents: 1836 diff changeset	933	(anItem isNil or:[anItem hideMenuOnActivated]) ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	934	topMenu accept:anItem
1670 dbc8a05605e0 add new behavior: hideMenuOnActivated ca parents: 1666 diff changeset	935	] ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	936	anItem canAccept ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	937	tgState := anItem toggleIndication.
93426020ceed * empty log message * ca parents: 2216 diff changeset	938
93426020ceed * empty log message * ca parents: 2216 diff changeset	939	self accept:anItem
93426020ceed * empty log message * ca parents: 2216 diff changeset	940	index:(aMenu selectionIndex)
93426020ceed * empty log message * ca parents: 2216 diff changeset	941	toggle:tgState
93426020ceed * empty log message * ca parents: 2216 diff changeset	942	receiver:(aMenu receiver).
93426020ceed * empty log message * ca parents: 2216 diff changeset	943
93426020ceed * empty log message * ca parents: 2216 diff changeset	944	aMenu do:[:el\| el updateIndicators].
93426020ceed * empty log message * ca parents: 2216 diff changeset	945	]
1670 dbc8a05605e0 add new behavior: hideMenuOnActivated ca parents: 1666 diff changeset	946	]
dbc8a05605e0 add new behavior: hideMenuOnActivated ca parents: 1666 diff changeset	947	!
dbc8a05605e0 add new behavior: hideMenuOnActivated ca parents: 1666 diff changeset	948
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	949	lastItemAccepted
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	950	"returns last item selected or nil
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	951	"
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	952	^ self topMenu menuAdornmentAt:#item
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	953	!
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	954
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	955	lastValueAccepted
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	956	"returns last value accepted or nil
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	957	"
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	958	^ self lastItemAccepted value
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	959	! !
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	960
388 dce33f8bb806 intitial checkin ca parents: diff changeset	961	!MenuPanel methodsFor:'accessing'!
dce33f8bb806 intitial checkin ca parents: diff changeset	962
dce33f8bb806 intitial checkin ca parents: diff changeset	963	accessCharacterPositionAt:stringOrNumber
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	964	"get the access character position for a textLabel
388 dce33f8bb806 intitial checkin ca parents: diff changeset	965	"
2059 c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	966	^ self itemAt:stringOrNumber do:[:el\| el accessCharacterPosition ]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	967	!
dce33f8bb806 intitial checkin ca parents: diff changeset	968
dce33f8bb806 intitial checkin ca parents: diff changeset	969	accessCharacterPositionAt:stringOrNumber put:anIndexOrNil
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	970	"get the access character position for a textLabel
388 dce33f8bb806 intitial checkin ca parents: diff changeset	971	"
dce33f8bb806 intitial checkin ca parents: diff changeset	972	self itemAt:stringOrNumber do:[:el\| el accessCharacterPosition:anIndexOrNil ]
dce33f8bb806 intitial checkin ca parents: diff changeset	973	!
dce33f8bb806 intitial checkin ca parents: diff changeset	974
dce33f8bb806 intitial checkin ca parents: diff changeset	975	accessCharacterPositions
dce33f8bb806 intitial checkin ca parents: diff changeset	976	"returns a collection of accessCharacterPosition's or nil
dce33f8bb806 intitial checkin ca parents: diff changeset	977	"
dce33f8bb806 intitial checkin ca parents: diff changeset	978	^ self collect:[:anItem\| anItem accessCharacterPosition ]
dce33f8bb806 intitial checkin ca parents: diff changeset	979
dce33f8bb806 intitial checkin ca parents: diff changeset	980	!
dce33f8bb806 intitial checkin ca parents: diff changeset	981
dce33f8bb806 intitial checkin ca parents: diff changeset	982	accessCharacterPositions:something
dce33f8bb806 intitial checkin ca parents: diff changeset	983	"define accessCharacterPosition's for each item
dce33f8bb806 intitial checkin ca parents: diff changeset	984	"
dce33f8bb806 intitial checkin ca parents: diff changeset	985	self onEachPerform:#accessCharacterPosition: withArgList:something
dce33f8bb806 intitial checkin ca parents: diff changeset	986	!
dce33f8bb806 intitial checkin ca parents: diff changeset	987
dce33f8bb806 intitial checkin ca parents: diff changeset	988	args
dce33f8bb806 intitial checkin ca parents: diff changeset	989	"returns a collection of argument's or nil
dce33f8bb806 intitial checkin ca parents: diff changeset	990	"
dce33f8bb806 intitial checkin ca parents: diff changeset	991	^ self collect:[:anItem\| anItem argument ]
dce33f8bb806 intitial checkin ca parents: diff changeset	992	!
dce33f8bb806 intitial checkin ca parents: diff changeset	993
dce33f8bb806 intitial checkin ca parents: diff changeset	994	args:something
dce33f8bb806 intitial checkin ca parents: diff changeset	995	"define arguments for each item
dce33f8bb806 intitial checkin ca parents: diff changeset	996	"
dce33f8bb806 intitial checkin ca parents: diff changeset	997	self onEachPerform:#argument: withArgList:something
dce33f8bb806 intitial checkin ca parents: diff changeset	998	!
dce33f8bb806 intitial checkin ca parents: diff changeset	999
dce33f8bb806 intitial checkin ca parents: diff changeset	1000	argsAt:stringOrNumber
dce33f8bb806 intitial checkin ca parents: diff changeset	1001	"gets the argument of an item or nil
dce33f8bb806 intitial checkin ca parents: diff changeset	1002	"
2059 c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	1003	^ self itemAt:stringOrNumber do:[:el\| el argument ]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1004	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1005
dce33f8bb806 intitial checkin ca parents: diff changeset	1006	argsAt:stringOrNumber put:anArgument
dce33f8bb806 intitial checkin ca parents: diff changeset	1007	"sets the argument of an item
dce33f8bb806 intitial checkin ca parents: diff changeset	1008	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1009	self itemAt:stringOrNumber do:[:el\| el argument:anArgument ]
dce33f8bb806 intitial checkin ca parents: diff changeset	1010	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1011
1081 fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1012	enteredItem
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1013	"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	1014	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	1015
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1016	^ enteredItem
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1017
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1018	"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	1019	!
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1020
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1021	groupSizes
dce33f8bb806 intitial checkin ca parents: diff changeset	1022	"gets collection of group sizes
dce33f8bb806 intitial checkin ca parents: diff changeset	1023	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1024	^ groupSizes
dce33f8bb806 intitial checkin ca parents: diff changeset	1025	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1026
dce33f8bb806 intitial checkin ca parents: diff changeset	1027	groupSizes:aGroupSizes
dce33f8bb806 intitial checkin ca parents: diff changeset	1028	"sets collection of group sizes
dce33f8bb806 intitial checkin ca parents: diff changeset	1029	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1030	aGroupSizes = groupSizes ifFalse:[
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	1031	groupSizes := aGroupSizes copy.
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	1032	self mustRearrange.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1033	].
dce33f8bb806 intitial checkin ca parents: diff changeset	1034	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1035
dce33f8bb806 intitial checkin ca parents: diff changeset	1036	labelAt:stringOrNumber
dce33f8bb806 intitial checkin ca parents: diff changeset	1037	"gets the label of an item or nil
dce33f8bb806 intitial checkin ca parents: diff changeset	1038	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1039	^ self itemAt:stringOrNumber do:[:el\| el label ]
dce33f8bb806 intitial checkin ca parents: diff changeset	1040	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1041
dce33f8bb806 intitial checkin ca parents: diff changeset	1042	labelAt:stringOrNumber put:aLabel
dce33f8bb806 intitial checkin ca parents: diff changeset	1043	"sets the label of an item
dce33f8bb806 intitial checkin ca parents: diff changeset	1044	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1045	self itemAt:stringOrNumber do:[:el\| el label:aLabel ]
dce33f8bb806 intitial checkin ca parents: diff changeset	1046	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1047
dce33f8bb806 intitial checkin ca parents: diff changeset	1048	labels
dce33f8bb806 intitial checkin ca parents: diff changeset	1049	"returns a collection of labels's or nil
dce33f8bb806 intitial checkin ca parents: diff changeset	1050	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1051	^ self collect:[:anItem\| anItem label ]
dce33f8bb806 intitial checkin ca parents: diff changeset	1052
dce33f8bb806 intitial checkin ca parents: diff changeset	1053	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1054
dce33f8bb806 intitial checkin ca parents: diff changeset	1055	labels:labels
dce33f8bb806 intitial checkin ca parents: diff changeset	1056	"define labels for each item
dce33f8bb806 intitial checkin ca parents: diff changeset	1057	"
2118 89d02ebc5b65 optimize #labels: and #fetchImages in Item. discard block ca parents: 2113 diff changeset	1058	\|size\|
89d02ebc5b65 optimize #labels: and #fetchImages in Item. discard block ca parents: 2113 diff changeset	1059
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1060	self disabledRedrawDo:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1061	self removeAll.
93426020ceed * empty log message * ca parents: 2216 diff changeset	1062	size := labels size.
93426020ceed * empty log message * ca parents: 2216 diff changeset	1063
93426020ceed * empty log message * ca parents: 2216 diff changeset	1064	size > 0 ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	1065	items := OrderedCollection new:size.
93426020ceed * empty log message * ca parents: 2216 diff changeset	1066	labels do:[:aLabel\| items add:(Item in:self label:aLabel) ]
93426020ceed * empty log message * ca parents: 2216 diff changeset	1067	]
2118 89d02ebc5b65 optimize #labels: and #fetchImages in Item. discard block ca parents: 2113 diff changeset	1068	].
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1069	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1070
1999 56a97236e72d * empty log message * Claus Gittinger <cg@exept.de> parents: 1998 diff changeset	1071	menuPerformer:anObject
56a97236e72d * empty log message * Claus Gittinger <cg@exept.de> parents: 1998 diff changeset	1072	"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	1073	from all submenus no specific receiver is defined ).
56a97236e72d * empty log message * Claus Gittinger <cg@exept.de> parents: 1998 diff changeset	1074	"
56a97236e72d * empty log message * Claus Gittinger <cg@exept.de> parents: 1998 diff changeset	1075	^ self receiver:anObject
56a97236e72d * empty log message * Claus Gittinger <cg@exept.de> parents: 1998 diff changeset	1076	!
56a97236e72d * empty log message * Claus Gittinger <cg@exept.de> parents: 1998 diff changeset	1077
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1078	nameKeyAt:stringOrNumber
dce33f8bb806 intitial checkin ca parents: diff changeset	1079	"gets the nameKey of an item or nil
dce33f8bb806 intitial checkin ca parents: diff changeset	1080	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1081	^ self itemAt:stringOrNumber do:[:el\| el nameKey ]
dce33f8bb806 intitial checkin ca parents: diff changeset	1082	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1083
dce33f8bb806 intitial checkin ca parents: diff changeset	1084	nameKeyAt:stringOrNumber put:aNameKey
dce33f8bb806 intitial checkin ca parents: diff changeset	1085	"sets the nameKey of an item
dce33f8bb806 intitial checkin ca parents: diff changeset	1086	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1087	self itemAt:stringOrNumber do:[:el\| el nameKey:aNameKey ]
dce33f8bb806 intitial checkin ca parents: diff changeset	1088	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1089
dce33f8bb806 intitial checkin ca parents: diff changeset	1090	nameKeys
dce33f8bb806 intitial checkin ca parents: diff changeset	1091	"returns a collection of nameKeys's or nil
dce33f8bb806 intitial checkin ca parents: diff changeset	1092	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1093	^ self collect:[:anItem\| anItem nameKey ]
dce33f8bb806 intitial checkin ca parents: diff changeset	1094	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1095
dce33f8bb806 intitial checkin ca parents: diff changeset	1096	nameKeys:something
dce33f8bb806 intitial checkin ca parents: diff changeset	1097	"define nameKeys for each item
dce33f8bb806 intitial checkin ca parents: diff changeset	1098	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1099	self onEachPerform:#nameKey: withArgList:something
dce33f8bb806 intitial checkin ca parents: diff changeset	1100	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1101
dce33f8bb806 intitial checkin ca parents: diff changeset	1102	numberOfItems
dce33f8bb806 intitial checkin ca parents: diff changeset	1103	"gets number of items
dce33f8bb806 intitial checkin ca parents: diff changeset	1104	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1105	^ items size
dce33f8bb806 intitial checkin ca parents: diff changeset	1106	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1107
2331 ebd240410703 can now specify if menu action is to be performed by ca parents: 2326 diff changeset	1108	originator
ebd240410703 can now specify if menu action is to be performed by ca parents: 2326 diff changeset	1109	originator notNil ifTrue:[^ originator].
ebd240410703 can now specify if menu action is to be performed by ca parents: 2326 diff changeset	1110	superMenu notNil ifTrue:[
ebd240410703 can now specify if menu action is to be performed by ca parents: 2326 diff changeset	1111	^ superMenu originator
ebd240410703 can now specify if menu action is to be performed by ca parents: 2326 diff changeset	1112	].
ebd240410703 can now specify if menu action is to be performed by ca parents: 2326 diff changeset	1113	^ nil
ebd240410703 can now specify if menu action is to be performed by ca parents: 2326 diff changeset	1114	!
ebd240410703 can now specify if menu action is to be performed by ca parents: 2326 diff changeset	1115
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1116	receiver
dce33f8bb806 intitial checkin ca parents: diff changeset	1117	"get the menu-receiver. Thats the one who gets the messages ( both from myself and
dce33f8bb806 intitial checkin ca parents: diff changeset	1118	from all submenus no specific receiver is defined ).
dce33f8bb806 intitial checkin ca parents: diff changeset	1119	"
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	1120	(receiver isNil and:[superMenu notNil]) ifTrue:[
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	1121	^ superMenu receiver
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1122	].
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	1123	^ receiver
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1124	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1125
dce33f8bb806 intitial checkin ca parents: diff changeset	1126	receiver:anObject
dce33f8bb806 intitial checkin ca parents: diff changeset	1127	"set the menu-receiver. Thats the one who gets the messages ( both from myself and
dce33f8bb806 intitial checkin ca parents: diff changeset	1128	from all submenus no specific receiver is defined ).
dce33f8bb806 intitial checkin ca parents: diff changeset	1129	"
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	1130	receiver := anObject
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1131	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1132
dce33f8bb806 intitial checkin ca parents: diff changeset	1133	shortcutKeyAt:stringOrNumber
dce33f8bb806 intitial checkin ca parents: diff changeset	1134	"gets the shortCutKey of an item or nil
dce33f8bb806 intitial checkin ca parents: diff changeset	1135	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1136	^ self itemAt:stringOrNumber do:[:el\| el shortcutKey ]
dce33f8bb806 intitial checkin ca parents: diff changeset	1137	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1138
dce33f8bb806 intitial checkin ca parents: diff changeset	1139	shortcutKeyAt:stringOrNumber put:aKey
dce33f8bb806 intitial checkin ca parents: diff changeset	1140	"sets the shortCutKey of an item
dce33f8bb806 intitial checkin ca parents: diff changeset	1141	"
1889 43516e4588ce give warning messages for unimplemented menu-aspects Claus Gittinger <cg@exept.de> parents: 1878 diff changeset	1142	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	1143	!
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1144
dce33f8bb806 intitial checkin ca parents: diff changeset	1145	shortcutKeys
dce33f8bb806 intitial checkin ca parents: diff changeset	1146	"returns a collection of shortcutKey's or nil
dce33f8bb806 intitial checkin ca parents: diff changeset	1147	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1148	^ self collect:[:anItem\| anItem shortcutKey ]
dce33f8bb806 intitial checkin ca parents: diff changeset	1149
dce33f8bb806 intitial checkin ca parents: diff changeset	1150	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1151
dce33f8bb806 intitial checkin ca parents: diff changeset	1152	shortcutKeys:something
dce33f8bb806 intitial checkin ca parents: diff changeset	1153	"define shortcutKey's for each item
dce33f8bb806 intitial checkin ca parents: diff changeset	1154	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1155	self onEachPerform:#shortcutKey: withArgList:something
dce33f8bb806 intitial checkin ca parents: diff changeset	1156	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1157
dce33f8bb806 intitial checkin ca parents: diff changeset	1158	valueAt:stringOrNumber
dce33f8bb806 intitial checkin ca parents: diff changeset	1159	"gets value of an item; a block, valueHolder, ...
dce33f8bb806 intitial checkin ca parents: diff changeset	1160	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1161	^ self itemAt:stringOrNumber do:[:el\| el value ]
dce33f8bb806 intitial checkin ca parents: diff changeset	1162
dce33f8bb806 intitial checkin ca parents: diff changeset	1163	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1164
dce33f8bb806 intitial checkin ca parents: diff changeset	1165	valueAt:stringOrNumber put:someThing
dce33f8bb806 intitial checkin ca parents: diff changeset	1166	"sets value of an item; a block, valueHolder, ...
dce33f8bb806 intitial checkin ca parents: diff changeset	1167	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1168	self itemAt:stringOrNumber do:[:el\| el value:someThing ]
dce33f8bb806 intitial checkin ca parents: diff changeset	1169
dce33f8bb806 intitial checkin ca parents: diff changeset	1170
dce33f8bb806 intitial checkin ca parents: diff changeset	1171	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1172
dce33f8bb806 intitial checkin ca parents: diff changeset	1173	values:something
dce33f8bb806 intitial checkin ca parents: diff changeset	1174	"define values for each item
dce33f8bb806 intitial checkin ca parents: diff changeset	1175	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1176	self onEachPerform:#value: withArgList:something
dce33f8bb806 intitial checkin ca parents: diff changeset	1177	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	1178
1679 af40842718f6 when accepting, and the application does not respond to that Claus Gittinger <cg@exept.de> parents: 1670 diff changeset	1179	!MenuPanel methodsFor:'accessing-behavior'!
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1180
dce33f8bb806 intitial checkin ca parents: diff changeset	1181	disableAll
498 b4c341497621 bug fixes: ca parents: 475 diff changeset	1182	"disable all items; not the menu in case of enabled
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1183	"
498 b4c341497621 bug fixes: ca parents: 475 diff changeset	1184	self do:[:anItem\| anItem enabled:false]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1185	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1186
dce33f8bb806 intitial checkin ca parents: diff changeset	1187	disableAll:collectionOfIndicesOrNames
dce33f8bb806 intitial checkin ca parents: diff changeset	1188	"disable an collection of items
dce33f8bb806 intitial checkin ca parents: diff changeset	1189	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1190	collectionOfIndicesOrNames do:[:entry\| self enabledAt:entry put:false ].
dce33f8bb806 intitial checkin ca parents: diff changeset	1191
dce33f8bb806 intitial checkin ca parents: diff changeset	1192	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1193
dce33f8bb806 intitial checkin ca parents: diff changeset	1194	enableAll
498 b4c341497621 bug fixes: ca parents: 475 diff changeset	1195	"enable all items; not the menu in case of disabled
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1196	"
498 b4c341497621 bug fixes: ca parents: 475 diff changeset	1197	self do:[:anItem\| anItem enabled:true]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1198	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1199
dce33f8bb806 intitial checkin ca parents: diff changeset	1200	enableAll:collectionOfIndicesOrNames
dce33f8bb806 intitial checkin ca parents: diff changeset	1201	"enable an collection of items
dce33f8bb806 intitial checkin ca parents: diff changeset	1202	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1203	collectionOfIndicesOrNames do:[:entry\| self enabledAt:entry put:true ].
dce33f8bb806 intitial checkin ca parents: diff changeset	1204
dce33f8bb806 intitial checkin ca parents: diff changeset	1205	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1206
dce33f8bb806 intitial checkin ca parents: diff changeset	1207	enabled
dce33f8bb806 intitial checkin ca parents: diff changeset	1208	"returns enabled state
dce33f8bb806 intitial checkin ca parents: diff changeset	1209	"
498 b4c341497621 bug fixes: ca parents: 475 diff changeset	1210	^ enabled
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1211	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1212
dce33f8bb806 intitial checkin ca parents: diff changeset	1213	enabled:aState
dce33f8bb806 intitial checkin ca parents: diff changeset	1214	"change enabled state of menu
dce33f8bb806 intitial checkin ca parents: diff changeset	1215	"
545 d01d14358b07 * empty log message * Claus Gittinger <cg@exept.de> parents: 524 diff changeset	1216	\|state\|
407 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	state := aState ? true.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1219
1690 38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	1220	enabled ~~ state ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1221	enabled := state.
93426020ceed * empty log message * ca parents: 2216 diff changeset	1222	self invalidate.
498 b4c341497621 bug fixes: ca parents: 475 diff changeset	1223	].
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1224	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1225
dce33f8bb806 intitial checkin ca parents: diff changeset	1226	enabledAt:stringOrNumber
dce33f8bb806 intitial checkin ca parents: diff changeset	1227	"gets the enabled state of an item or false
dce33f8bb806 intitial checkin ca parents: diff changeset	1228	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1229	^ self itemAt:stringOrNumber do:[:el\| el enabled ] ifAbsent:false
dce33f8bb806 intitial checkin ca parents: diff changeset	1230	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1231
dce33f8bb806 intitial checkin ca parents: diff changeset	1232	enabledAt:stringOrNumber put:aState
dce33f8bb806 intitial checkin ca parents: diff changeset	1233	"sets the enabled state of an item
dce33f8bb806 intitial checkin ca parents: diff changeset	1234	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1235	self itemAt:stringOrNumber do:[:el\| el enabled:aState ]
dce33f8bb806 intitial checkin ca parents: diff changeset	1236	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1237
dce33f8bb806 intitial checkin ca parents: diff changeset	1238	isEnabled:stringOrNumber
dce33f8bb806 intitial checkin ca parents: diff changeset	1239	"gets the enabled state of an item or false
dce33f8bb806 intitial checkin ca parents: diff changeset	1240	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1241	^ self enabledAt:stringOrNumber
dce33f8bb806 intitial checkin ca parents: diff changeset	1242	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	1243
1679 af40842718f6 when accepting, and the application does not respond to that Claus Gittinger <cg@exept.de> parents: 1670 diff changeset	1244	!MenuPanel methodsFor:'accessing-channels'!
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	1245
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	1246	enableChannel:aValueHolder
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	1247	"set my enableChannel
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	1248	"
498 b4c341497621 bug fixes: ca parents: 475 diff changeset	1249	enableChannel notNil ifTrue:[
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	1250	enableChannel removeDependent:self
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	1251	].
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	1252
498 b4c341497621 bug fixes: ca parents: 475 diff changeset	1253	(enableChannel := aValueHolder) notNil ifTrue:[
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	1254	enableChannel addDependent:self.
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	1255	].
498 b4c341497621 bug fixes: ca parents: 475 diff changeset	1256	self enabled:(enableChannel value).
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	1257	!
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	1258
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	1259	menuHolder:aValueHolder
498 b4c341497621 bug fixes: ca parents: 475 diff changeset	1260	"set my menuHolder
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	1261	"
498 b4c341497621 bug fixes: ca parents: 475 diff changeset	1262	menuHolder notNil ifTrue:[
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	1263	menuHolder removeDependent:self
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	1264	].
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	1265
498 b4c341497621 bug fixes: ca parents: 475 diff changeset	1266	(menuHolder := aValueHolder) notNil ifTrue:[
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	1267	menuHolder addDependent:self.
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	1268	].
498 b4c341497621 bug fixes: ca parents: 475 diff changeset	1269	self menu:(menuHolder value)
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	1270	! !
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	1271
1679 af40842718f6 when accepting, and the application does not respond to that Claus Gittinger <cg@exept.de> parents: 1670 diff changeset	1272	!MenuPanel methodsFor:'accessing-color & font'!
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1273
616 a6157b083830 support of different styles ca parents: 608 diff changeset	1274	activeBackgroundColor
a6157b083830 support of different styles ca parents: 608 diff changeset	1275	"get the background drawing color used to highlight selection
a6157b083830 support of different styles ca parents: 608 diff changeset	1276	"
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1277	^ styleSheet colorAt:#'menuPanel.activeBackgroundColor'
616 a6157b083830 support of different styles ca parents: 608 diff changeset	1278	!
a6157b083830 support of different styles ca parents: 608 diff changeset	1279
a6157b083830 support of different styles ca parents: 608 diff changeset	1280	activeForegroundColor
a6157b083830 support of different styles ca parents: 608 diff changeset	1281	"get the foreground color used to highlight selections
a6157b083830 support of different styles ca parents: 608 diff changeset	1282	"
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1283	^ styleSheet colorAt:#'menuPanel.activeForegroundColor'
616 a6157b083830 support of different styles ca parents: 608 diff changeset	1284	!
a6157b083830 support of different styles ca parents: 608 diff changeset	1285
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1286	backgroundColor
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1287	"return the background color
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1288	"
502 dedc1b29b6ac support of arguments ca parents: 498 diff changeset	1289	^ super viewBackground
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1290	!
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1291
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1292	backgroundColor:aColor
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1293	"set the background drawing color. You should not use this method;
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1294	instead leave the value as defined in the styleSheet.
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1295	"
616 a6157b083830 support of different styles ca parents: 608 diff changeset	1296	super viewBackground ~~ aColor ifTrue:[
2659 3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	1297	super viewBackground:aColor.
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	1298	self invalidate "/ RepairNow:true
616 a6157b083830 support of different styles ca parents: 608 diff changeset	1299	]
a6157b083830 support of different styles ca parents: 608 diff changeset	1300
911 6b1ad8b039c5 no, repairNow should not be needed here Claus Gittinger <cg@exept.de> parents: 910 diff changeset	1301	"Modified: / 6.6.1998 / 19:50:06 / cg"
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1302	!
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1303
727 3ba54333342a button style from style sheet tz parents: 723 diff changeset	1304	buttonActiveBackgroundColor
3ba54333342a button style from style sheet tz parents: 723 diff changeset	1305	"get the background drawing color used to highlight button selection
3ba54333342a button style from style sheet tz parents: 723 diff changeset	1306	"
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1307	^ styleSheet colorAt:#'button.activeBackgroundColor'
93426020ceed * empty log message * ca parents: 2216 diff changeset	1308	default:(self viewBackground)
727 3ba54333342a button style from style sheet tz parents: 723 diff changeset	1309	!
3ba54333342a button style from style sheet tz parents: 723 diff changeset	1310
730 9e45051a4fbd better button draw routine + style sheet support tz parents: 729 diff changeset	1311	buttonEdgeStyle
9e45051a4fbd better button draw routine + style sheet support tz parents: 729 diff changeset	1312	"get the button edge style
9e45051a4fbd better button draw routine + style sheet support tz parents: 729 diff changeset	1313	"
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1314	^ styleSheet at:#'button.edgeStyle'
730 9e45051a4fbd better button draw routine + style sheet support tz parents: 729 diff changeset	1315	!
9e45051a4fbd better button draw routine + style sheet support tz parents: 729 diff changeset	1316
1081 fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1317	buttonEnteredBackgroundColor
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1318	"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	1319	"
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1320	^ styleSheet colorAt:#'menuPanel.buttonEnteredBackgroundColor'
1081 fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1321	!
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1322
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1323	buttonEnteredLevel
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1324	"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	1325	"
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1326	^ styleSheet at:#'menuPanel.buttonEnteredLevel'
1081 fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1327	!
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1328
730 9e45051a4fbd better button draw routine + style sheet support tz parents: 729 diff changeset	1329	buttonHalfLightColor
9e45051a4fbd better button draw routine + style sheet support tz parents: 729 diff changeset	1330	"get the background drawing color used to half light button frame
9e45051a4fbd better button draw routine + style sheet support tz parents: 729 diff changeset	1331	"
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1332	^ styleSheet colorAt:#'button.halfLightColor'
730 9e45051a4fbd better button draw routine + style sheet support tz parents: 729 diff changeset	1333	!
9e45051a4fbd better button draw routine + style sheet support tz parents: 729 diff changeset	1334
9e45051a4fbd better button draw routine + style sheet support tz parents: 729 diff changeset	1335	buttonHalfShadowColor
9e45051a4fbd better button draw routine + style sheet support tz parents: 729 diff changeset	1336	"get the background drawing color used to half shadow button frame
9e45051a4fbd better button draw routine + style sheet support tz parents: 729 diff changeset	1337	"
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1338	^ styleSheet colorAt:#'button.halfShadowColor'
727 3ba54333342a button style from style sheet tz parents: 723 diff changeset	1339	!
3ba54333342a button style from style sheet tz parents: 723 diff changeset	1340
3ba54333342a button style from style sheet tz parents: 723 diff changeset	1341	buttonLightColor
3ba54333342a button style from style sheet tz parents: 723 diff changeset	1342	"get the background drawing color used to light button frame
3ba54333342a button style from style sheet tz parents: 723 diff changeset	1343	"
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1344	^ styleSheet colorAt:#'menuPanel.buttonLightColor'
727 3ba54333342a button style from style sheet tz parents: 723 diff changeset	1345	!
3ba54333342a button style from style sheet tz parents: 723 diff changeset	1346
3ba54333342a button style from style sheet tz parents: 723 diff changeset	1347	buttonPassiveBackgroundColor
3ba54333342a button style from style sheet tz parents: 723 diff changeset	1348	"get the background drawing color used for button
3ba54333342a button style from style sheet tz parents: 723 diff changeset	1349	"
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1350	^ styleSheet colorAt:#'menuPanel.buttonPassiveBackgroundColor'
727 3ba54333342a button style from style sheet tz parents: 723 diff changeset	1351	!
3ba54333342a button style from style sheet tz parents: 723 diff changeset	1352
3ba54333342a button style from style sheet tz parents: 723 diff changeset	1353	buttonShadowColor
3ba54333342a button style from style sheet tz parents: 723 diff changeset	1354	"get the background drawing color used to shadow button frame
3ba54333342a button style from style sheet tz parents: 723 diff changeset	1355	"
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1356	^ styleSheet colorAt:#'menuPanel.buttonShadowColor'
2059 c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	1357	!
c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	1358
c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	1359	disabledEtchedForegroundColor
c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	1360	"return the color used for etching disabled items.
c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	1361	If nil, no 3D effect is drawn.
c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	1362	"
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1363	^ styleSheet colorAt:#'menuPanel.disabledEtchedFgColor'
727 3ba54333342a button style from style sheet tz parents: 723 diff changeset	1364	!
3ba54333342a button style from style sheet tz parents: 723 diff changeset	1365
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1366	disabledForegroundColor
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1367	"return the foreground color used by disabled items
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1368	"
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1369	^ styleSheet colorAt:#'menuPanel.disabledForegroundColor'
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1370	!
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1371
2170 e76171113581 enteredFG / enteredBG Claus Gittinger <cg@exept.de> parents: 2166 diff changeset	1372	enteredBackgroundColor
e76171113581 enteredFG / enteredBG Claus Gittinger <cg@exept.de> parents: 2166 diff changeset	1373	"return the background color for entered items
e76171113581 enteredFG / enteredBG Claus Gittinger <cg@exept.de> parents: 2166 diff changeset	1374	"
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1375	^ styleSheet colorAt:#'menu.enteredBackgroundColor'
93426020ceed * empty log message * ca parents: 2216 diff changeset	1376	default:(self backgroundColor)
2170 e76171113581 enteredFG / enteredBG Claus Gittinger <cg@exept.de> parents: 2166 diff changeset	1377	!
e76171113581 enteredFG / enteredBG Claus Gittinger <cg@exept.de> parents: 2166 diff changeset	1378
e76171113581 enteredFG / enteredBG Claus Gittinger <cg@exept.de> parents: 2166 diff changeset	1379	enteredForegroundColor
e76171113581 enteredFG / enteredBG Claus Gittinger <cg@exept.de> parents: 2166 diff changeset	1380	"return the foreground color for entered items
e76171113581 enteredFG / enteredBG Claus Gittinger <cg@exept.de> parents: 2166 diff changeset	1381	"
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1382	^ styleSheet colorAt:#'menu.enteredForegroundColor' default:fgColor
2170 e76171113581 enteredFG / enteredBG Claus Gittinger <cg@exept.de> parents: 2166 diff changeset	1383	!
e76171113581 enteredFG / enteredBG Claus Gittinger <cg@exept.de> parents: 2166 diff changeset	1384
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1385	font:aFont
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1386	"set the font
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1387	"
2614 86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	1388	(aFont isNil or:[aFont = font]) ifTrue:[ ^ self ].
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	1389
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	1390	super font:aFont.
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	1391	self do:[:anItem\| anItem fontChanged ].
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	1392
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	1393	(shown and:[superMenu notNil]) ifTrue:[
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	1394	self extent:(self preferredExtent)
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	1395	].
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	1396	self mustRearrange.
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1397	!
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1398
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1399	foregroundColor
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1400	"return the passive foreground color
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1401	"
2059 c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	1402	^ fgColor
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1403	!
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1404
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1405	foregroundColor:aColor
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1406	"set the foregroundColor drawing color. You should not use this method;
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1407	instead leave the value as defined in the styleSheet.
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1408	"
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1409	aColor ~= fgColor ifTrue:[
1478 38f08dec8e34 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	1410	fgColor := aColor onDevice:device.
2659 3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	1411	self invalidate
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1412	].
580 249f6cfc5bb2 checkin from browser Claus Gittinger <cg@exept.de> parents: 571 diff changeset	1413	!
249f6cfc5bb2 checkin from browser Claus Gittinger <cg@exept.de> parents: 571 diff changeset	1414
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1415	maxAbsoluteButtonLevel
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1416	"returns the maximum absolute button level; used to compute the preferred
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1417	extent of a button
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1418	"
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1419	^ styleSheet at:#'menuPanel.maxAbsoluteButtonLevel'
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1420	!
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1421
730 9e45051a4fbd better button draw routine + style sheet support tz parents: 729 diff changeset	1422	selectionFrameBrightColor
9e45051a4fbd better button draw routine + style sheet support tz parents: 729 diff changeset	1423	"get the selection frame bright color
9e45051a4fbd better button draw routine + style sheet support tz parents: 729 diff changeset	1424	"
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1425	^ Color white
730 9e45051a4fbd better button draw routine + style sheet support tz parents: 729 diff changeset	1426	!
9e45051a4fbd better button draw routine + style sheet support tz parents: 729 diff changeset	1427
9e45051a4fbd better button draw routine + style sheet support tz parents: 729 diff changeset	1428	selectionFrameDarkColor
9e45051a4fbd better button draw routine + style sheet support tz parents: 729 diff changeset	1429	"get the selection frame dark color
9e45051a4fbd better button draw routine + style sheet support tz parents: 729 diff changeset	1430	"
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1431	^ Color black
730 9e45051a4fbd better button draw routine + style sheet support tz parents: 729 diff changeset	1432	!
9e45051a4fbd better button draw routine + style sheet support tz parents: 729 diff changeset	1433
1727 a6365337be59 support setting font in MenuPanel and Editor ca parents: 1726 diff changeset	1434	setFont:aFont
2485 b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	1435	"set the font if the argument is nonNil;
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	1436	Return nil, if the font was unchanged; otherwise, return the old font"
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	1437
1727 a6365337be59 support setting font in MenuPanel and Editor ca parents: 1726 diff changeset	1438	\|currentFont\|
a6365337be59 support setting font in MenuPanel and Editor ca parents: 1726 diff changeset	1439
a6365337be59 support setting font in MenuPanel and Editor ca parents: 1726 diff changeset	1440	(aFont notNil and:[aFont ~= font]) ifTrue:[
2485 b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	1441	currentFont := font.
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	1442	super font:aFont.
1727 a6365337be59 support setting font in MenuPanel and Editor ca parents: 1726 diff changeset	1443	].
a6365337be59 support setting font in MenuPanel and Editor ca parents: 1726 diff changeset	1444	^ currentFont
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1445	! !
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1446
1679 af40842718f6 when accepting, and the application does not respond to that Claus Gittinger <cg@exept.de> parents: 1670 diff changeset	1447	!MenuPanel methodsFor:'accessing-dimensions'!
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1448
dce33f8bb806 intitial checkin ca parents: diff changeset	1449	height
dce33f8bb806 intitial checkin ca parents: diff changeset	1450	"default height
dce33f8bb806 intitial checkin ca parents: diff changeset	1451	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1452	(explicitExtent ~~ true) ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1453	^ self preferredExtent y
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1454	].
dce33f8bb806 intitial checkin ca parents: diff changeset	1455	^ super height
dce33f8bb806 intitial checkin ca parents: diff changeset	1456	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1457
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	1458	maxExtent
2617 1611c130d5e9 * empty log message * Claus Gittinger <cg@exept.de> parents: 2614 diff changeset	1459	"ca: returns the maximum extent
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	1460	"
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	1461	\|x y\|
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	1462
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	1463	device isNil ifTrue:[
2617 1611c130d5e9 * empty log message * Claus Gittinger <cg@exept.de> parents: 2614 diff changeset	1464	superMenu notNil ifTrue:[
1611c130d5e9 * empty log message * Claus Gittinger <cg@exept.de> parents: 2614 diff changeset	1465	^ superMenu maxExtent
1611c130d5e9 * empty log message * Claus Gittinger <cg@exept.de> parents: 2614 diff changeset	1466	].
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	1467	].
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	1468	y := device usableHeight - 2.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	1469	x := device usableWidth - 2.
2617 1611c130d5e9 * empty log message * Claus Gittinger <cg@exept.de> parents: 2614 diff changeset	1470	^ x@y
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	1471	!
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	1472
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1473	preferredExtent
dce33f8bb806 intitial checkin ca parents: diff changeset	1474	"compute and returns my preferred extent
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	1475	"
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1476	\|maxExtent usedExtent\|
2024 1214769c0441 + #preferredWidth: Claus Gittinger <cg@exept.de> parents: 2020 diff changeset	1477
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	1478	preferredExtent notNil ifTrue:[
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1479	^ preferredExtent
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	1480	].
2024 1214769c0441 + #preferredWidth: Claus Gittinger <cg@exept.de> parents: 2020 diff changeset	1481	maxExtent := self maxExtent.
1214769c0441 + #preferredWidth: Claus Gittinger <cg@exept.de> parents: 2020 diff changeset	1482	usedExtent := self preferredExtentOfItems.
1214769c0441 + #preferredWidth: Claus Gittinger <cg@exept.de> parents: 2020 diff changeset	1483
1214769c0441 + #preferredWidth: Claus Gittinger <cg@exept.de> parents: 2020 diff changeset	1484	superView isNil ifTrue:[
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1485	"/ is standalone
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	1486	preferredWidth notNil ifTrue:[
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1487	usedExtent x < preferredWidth ifTrue:[
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1488	usedExtent := preferredWidth @ usedExtent y.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1489	]
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1490	]
2024 1214769c0441 + #preferredWidth: Claus Gittinger <cg@exept.de> parents: 2020 diff changeset	1491	].
1214769c0441 + #preferredWidth: Claus Gittinger <cg@exept.de> parents: 2020 diff changeset	1492
1214769c0441 + #preferredWidth: Claus Gittinger <cg@exept.de> parents: 2020 diff changeset	1493	^ usedExtent min:maxExtent
1214769c0441 + #preferredWidth: Claus Gittinger <cg@exept.de> parents: 2020 diff changeset	1494
1214769c0441 + #preferredWidth: Claus Gittinger <cg@exept.de> parents: 2020 diff changeset	1495	"Modified: / 10.10.2001 / 14:57:25 / cg"
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	1496	!
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	1497
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	1498	preferredExtentOfItems
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	1499	"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	1500	!!!!!! changes have influence on method #rearrangeItems !!!!!!
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1501	"
1707 4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	1502	\|hasMenu shCtKey extent showAcc sck
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1503	x "{ Class:SmallInteger }"
93426020ceed * empty log message * ca parents: 2216 diff changeset	1504	y "{ Class:SmallInteger }"
93426020ceed * empty log message * ca parents: 2216 diff changeset	1505	size "{ Class:SmallInteger }"
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	1506	buttonInsetX "{ Class:SmallInteger }"
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	1507	buttonInsetY "{ Class:SmallInteger }"
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1508	labelInsetX "{ Class:SmallInteger }"
93426020ceed * empty log message * ca parents: 2216 diff changeset	1509	labelInsetY "{ Class:SmallInteger }"
93426020ceed * empty log message * ca parents: 2216 diff changeset	1510	itemSpace "{ Class:SmallInteger }"
93426020ceed * empty log message * ca parents: 2216 diff changeset	1511	itemMargin "{ Class:SmallInteger }"
93426020ceed * empty log message * ca parents: 2216 diff changeset	1512	groupDividerSize "{ Class:SmallInteger }"
1690 38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	1513	\|
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1514
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1515	(size := items size) == 0 ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1516	self isViewWrapper ifTrue:[ ^ subViews first extent ].
2433 49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	1517	^ 32 @ 32
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1518	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	1519	buttonInsetX := 2 * self buttonInsetX.
93426020ceed * empty log message * ca parents: 2216 diff changeset	1520	buttonInsetY := 2 * self buttonInsetY.
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1521
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1522	self isPopUpView ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1523	labelInsetX := labelInsetY := 2 * (self enteredLevel abs).
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1524	] ifTrue:[
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	1525	labelInsetX := labelInsetY := 0.
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1526	].
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1527
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1528	x := 0.
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1529	y := 0.
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1530	groupDividerSize := self groupDividerSize.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1531
dce33f8bb806 intitial checkin ca parents: diff changeset	1532	self verticalLayout ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1533	itemSpace := self itemSpace.
93426020ceed * empty log message * ca parents: 2216 diff changeset	1534
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1535	items keysAndValuesDo:[:key :el\| \|eX eY\|
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1536	extent := el preferredExtent.
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1537
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1538	"/ check for visibility (extent x ~~ 0)
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1539	(eX := extent x) ~~ 0 ifTrue:[
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1540	eY := extent y.
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1541
1472 fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	1542	el isButton ifTrue:[
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	1543	eX := eX + buttonInsetX.
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	1544	eY := eY + buttonInsetY.
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1545	] ifFalse:[
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	1546	eX := eX + labelInsetX.
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	1547	eY := eY + labelInsetY.
1472 fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	1548	].
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1549	key ~~ size ifTrue:[
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1550	(self hasGroupDividerAt:key) ifTrue:[
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1551	x := x + groupDividerSize
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1552	] ifFalse:[
2433 49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	1553	el needsItemSpaceWhenDrawing ifTrue:[
1723 f633725a0ace use itemSpace only for horizontal menus and between labeled items ca parents: 1719 diff changeset	1554	x := x + itemSpace
f633725a0ace use itemSpace only for horizontal menus and between labeled items ca parents: 1719 diff changeset	1555	]
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1556	]
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1557	].
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1558	x := eX + x.
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1559	y := eY max:y.
1472 fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	1560	]
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1561	]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1562	] ifTrue:[
1472 fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	1563	hasMenu := false.
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	1564	shCtKey := 0.
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1565	showAcc := MenuView showAcceleratorKeys == true.
1472 fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	1566	y := x.
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	1567	x := 0.
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1568	itemMargin := 2 * self itemMargin.
1472 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	items keysAndValuesDo:[:key :el\| \|eX eY\|
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1571	extent := el preferredExtent.
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1572
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1573	"/ check for visibility (extent x ~~ 0)
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1574	(eX := extent x) ~~ 0 ifTrue:[
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1575	eY := extent y.
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1576
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1577	el isButton ifTrue:[
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	1578	eX := eX + buttonInsetX.
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	1579	eY := eY + buttonInsetY.
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1580	] ifFalse:[
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	1581	eX := eX + labelInsetX.
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	1582	eY := eY + labelInsetY.
1472 fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	1583	].
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1584	hasMenu ifFalse:[
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1585	hasMenu := el hasSubmenu
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1586	].
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1587	(showAcc and:[(sck := el shortcutKeyAsString) notNil]) ifTrue:[
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1588	shCtKey := shCtKey max:(sck widthOn:self)
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1589	].
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1590	key ~~ size ifTrue:[
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1591	(self hasGroupDividerAt:key) ifTrue:[
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1592	y := y + groupDividerSize
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1593	]
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1594	].
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1595	y := eY + y.
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1596	x := eX max:x.
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1597	].
1472 fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	1598	].
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1599	x := x + itemMargin.
1472 fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	1600
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	1601	(hasMenu or:[shCtKey ~~ 0]) ifTrue:[
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	1602	shortKeyInset := x + Item labelRightOffset.
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	1603	x := shortKeyInset + shCtKey + self subMenuIndicationWidth.
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	1604
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	1605	(shCtKey ~~ 0 and:[hasMenu]) ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1606	x := x + self shortcutKeyOffset.
1472 fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	1607	]
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	1608	].
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1609	"/ to have a small inset
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1610	y := y + 1.
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1611	"/ x := x + 1.
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1612	].
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1613	x := x + margin + margin.
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1614	y := y + margin + margin.
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1615
2433 49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	1616	^ x @ y
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1617	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1618
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1619	preferredWidth:aWidthOrNil
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1620	"used for example by combo box to setup the preferred width for the popup menu.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1621	If nil (default), the width is computed from the contained items.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1622	If not nil, the width is the maximum from the contained items and the required width.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1623	"
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1624	preferredWidth := aWidthOrNil.
2024 1214769c0441 + #preferredWidth: Claus Gittinger <cg@exept.de> parents: 2020 diff changeset	1625	!
1214769c0441 + #preferredWidth: Claus Gittinger <cg@exept.de> parents: 2020 diff changeset	1626
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1627	shortKeyInset
dce33f8bb806 intitial checkin ca parents: diff changeset	1628	"left inset of shortcutKey
dce33f8bb806 intitial checkin ca parents: diff changeset	1629	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1630	^ shortKeyInset
616 a6157b083830 support of different styles ca parents: 608 diff changeset	1631	!
a6157b083830 support of different styles ca parents: 608 diff changeset	1632
a6157b083830 support of different styles ca parents: 608 diff changeset	1633	subMenuIndicationWidth
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1634	^ self rightArrow width
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1635	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	1636
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	1637	!MenuPanel methodsFor:'accessing-interactors'!
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	1638
1798 08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	1639	iconIndicationDisabledOff
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1640	^ self registerImageOnDevice:(self class iconIndicationDisabledOff)
1798 08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	1641	!
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	1642
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	1643	iconIndicationDisabledOn
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1644	^ self registerImageOnDevice:(self class iconIndicationDisabledOn)
1798 08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	1645	!
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	1646
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	1647	iconIndicationOff
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1648	^ self registerImageOnDevice:(self class iconIndicationOff)
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	1649	!
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	1650
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	1651	iconIndicationOn
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1652	^ self registerImageOnDevice:(self class iconIndicationOn)
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	1653	!
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	1654
1798 08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	1655	iconRadioGroupDisabledOff
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1656	^ self registerImageOnDevice:(self class iconRadioGroupDisabledOff)
1798 08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	1657	!
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	1658
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	1659	iconRadioGroupDisabledOn
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1660	^ self registerImageOnDevice:(self class iconRadioGroupDisabledOn)
1798 08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	1661	!
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	1662
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	1663	iconRadioGroupOff
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1664	^ self registerImageOnDevice:(self class iconRadioGroupOff)
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	1665	!
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	1666
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	1667	iconRadioGroupOn
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1668	^ self registerImageOnDevice:(self class iconRadioGroupOn)
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	1669	! !
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	1670
1679 af40842718f6 when accepting, and the application does not respond to that Claus Gittinger <cg@exept.de> parents: 1670 diff changeset	1671	!MenuPanel methodsFor:'accessing-items'!
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1672
dce33f8bb806 intitial checkin ca parents: diff changeset	1673	itemAt:stringOrNumber do:aOneArgBlock
2505 56607624d05a Fix pidgin spelling: 'does not exists' and 'not exists' Stefan Vogel <sv@exept.de> parents: 2504 diff changeset	1674	"evaluate the block for an item and return the result from the block. In case that
56607624d05a Fix pidgin spelling: 'does not exists' and 'not exists' Stefan Vogel <sv@exept.de> parents: 2504 diff changeset	1675	the item does not exist nil is returned"
56607624d05a Fix pidgin spelling: 'does not exists' and 'not exists' Stefan Vogel <sv@exept.de> parents: 2504 diff changeset	1676
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1677	^ self itemAt:stringOrNumber do:aOneArgBlock ifAbsent:nil
dce33f8bb806 intitial checkin ca parents: diff changeset	1678	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1679
dce33f8bb806 intitial checkin ca parents: diff changeset	1680	itemAt:stringOrNumber do:aOneArgBlock ifAbsent:exceptionBlock
dce33f8bb806 intitial checkin ca parents: diff changeset	1681	"evaluate teh block for an item and return the result from the block. In case that
2505 56607624d05a Fix pidgin spelling: 'does not exists' and 'not exists' Stefan Vogel <sv@exept.de> parents: 2504 diff changeset	1682	the item does not exists the result of the exception block is returned (no arguments)"
56607624d05a Fix pidgin spelling: 'does not exists' and 'not exists' Stefan Vogel <sv@exept.de> parents: 2504 diff changeset	1683
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1684	\|item\|
dce33f8bb806 intitial checkin ca parents: diff changeset	1685
dce33f8bb806 intitial checkin ca parents: diff changeset	1686	item := self itemAt:stringOrNumber.
dce33f8bb806 intitial checkin ca parents: diff changeset	1687	item notNil ifTrue:[ ^ aOneArgBlock value:item ].
2505 56607624d05a Fix pidgin spelling: 'does not exists' and 'not exists' Stefan Vogel <sv@exept.de> parents: 2504 diff changeset	1688	^ exceptionBlock value
706 d716edbdbe47 show separators bug cleaned tz parents: 689 diff changeset	1689	!
d716edbdbe47 show separators bug cleaned tz parents: 689 diff changeset	1690
d716edbdbe47 show separators bug cleaned tz parents: 689 diff changeset	1691	itemAtIndex:anIndex
d716edbdbe47 show separators bug cleaned tz parents: 689 diff changeset	1692	"returns item at an index or nil
d716edbdbe47 show separators bug cleaned tz parents: 689 diff changeset	1693	"
d716edbdbe47 show separators bug cleaned tz parents: 689 diff changeset	1694	^ 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	1695	!
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	1696
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	1697	items
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	1698	"returns list of items or nil
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	1699	"
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	1700	^ items
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1701	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	1702
1679 af40842718f6 when accepting, and the application does not respond to that Claus Gittinger <cg@exept.de> parents: 1670 diff changeset	1703	!MenuPanel methodsFor:'accessing-look'!
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1704
727 3ba54333342a button style from style sheet tz parents: 723 diff changeset	1705	buttonActiveLevel
3ba54333342a button style from style sheet tz parents: 723 diff changeset	1706	"get the button active level
3ba54333342a button style from style sheet tz parents: 723 diff changeset	1707	"
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1708	^ styleSheet at:#'menuPanel.buttonActiveLevel'
727 3ba54333342a button style from style sheet tz parents: 723 diff changeset	1709	!
3ba54333342a button style from style sheet tz parents: 723 diff changeset	1710
3ba54333342a button style from style sheet tz parents: 723 diff changeset	1711	buttonPassiveLevel
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1712	"get the button active level
93426020ceed * empty log message * ca parents: 2216 diff changeset	1713	"
93426020ceed * empty log message * ca parents: 2216 diff changeset	1714	^ styleSheet at:#'menuPanel.buttonPassiveLevel'
727 3ba54333342a button style from style sheet tz parents: 723 diff changeset	1715	!
3ba54333342a button style from style sheet tz parents: 723 diff changeset	1716
2337 7f384db88273 centerItems attribute Claus Gittinger <cg@exept.de> parents: 2332 diff changeset	1717	centerItems
7f384db88273 centerItems attribute Claus Gittinger <cg@exept.de> parents: 2332 diff changeset	1718	^ centerItems ? false
7f384db88273 centerItems attribute Claus Gittinger <cg@exept.de> parents: 2332 diff changeset	1719	!
7f384db88273 centerItems attribute Claus Gittinger <cg@exept.de> parents: 2332 diff changeset	1720
7f384db88273 centerItems attribute Claus Gittinger <cg@exept.de> parents: 2332 diff changeset	1721	centerItems:aBoolean
7f384db88273 centerItems attribute Claus Gittinger <cg@exept.de> parents: 2332 diff changeset	1722	centerItems := aBoolean
7f384db88273 centerItems attribute Claus Gittinger <cg@exept.de> parents: 2332 diff changeset	1723	!
7f384db88273 centerItems attribute Claus Gittinger <cg@exept.de> parents: 2332 diff changeset	1724
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1725	fitFirstPanel
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1726	"gets true if the first panel in the menu hierarchy must be fit
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1727	to the extent of its superView
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1728
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1729	NOT SUPPORTED
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1730	"
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1731	^ false
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	fitFirstPanel:aState
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1735	"sets true if the first panel in the menu hierarchy must be fit
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1736	to the extent of its superView
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1737
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1738	NOT SUPPORTED
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1739	"
616 a6157b083830 support of different styles ca parents: 608 diff changeset	1740	!
a6157b083830 support of different styles ca parents: 608 diff changeset	1741
1093 7cb44303b016 margin fixes Claus Gittinger <cg@exept.de> parents: 1090 diff changeset	1742	level:anInt
2003 732fbaf5864f avoid changing the level after realization (to avoid confusing the shadow) Claus Gittinger <cg@exept.de> parents: 2000 diff changeset	1743	anInt ~~ level ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1744	super level:anInt.
93426020ceed * empty log message * ca parents: 2216 diff changeset	1745	self mustRearrange
2003 732fbaf5864f avoid changing the level after realization (to avoid confusing the shadow) Claus Gittinger <cg@exept.de> parents: 2000 diff changeset	1746	]
2052 61367c7a47aa * empty log message * Claus Gittinger <cg@exept.de> parents: 2051 diff changeset	1747
61367c7a47aa * empty log message * Claus Gittinger <cg@exept.de> parents: 2051 diff changeset	1748	"Modified: / 15.11.2001 / 17:42:07 / cg"
1093 7cb44303b016 margin fixes Claus Gittinger <cg@exept.de> parents: 1090 diff changeset	1749	!
7cb44303b016 margin fixes Claus Gittinger <cg@exept.de> parents: 1090 diff changeset	1750
616 a6157b083830 support of different styles ca parents: 608 diff changeset	1751	rightArrow
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	1752	rightArrow isNil ifTrue:[
975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	1753	device isNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1754	^ SelectionInListView rightArrowFormOn:Display
93426020ceed * empty log message * ca parents: 2216 diff changeset	1755	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	1756	rightArrow := SelectionInListView rightArrowFormOn:device
93426020ceed * empty log message * ca parents: 2216 diff changeset	1757	].
616 a6157b083830 support of different styles ca parents: 608 diff changeset	1758	^ rightArrow
a6157b083830 support of different styles ca parents: 608 diff changeset	1759	!
a6157b083830 support of different styles ca parents: 608 diff changeset	1760
a6157b083830 support of different styles ca parents: 608 diff changeset	1761	rightArrowShadow
a6157b083830 support of different styles ca parents: 608 diff changeset	1762	^ rightArrowShadow
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1763	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1764
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1765	showGroupDivider
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1766	"get the enabled flag for showing groupDiveders
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1767	"
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1768	^ showGroupDivider
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1769	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1770
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1771	showGroupDivider:aState
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1772	"set the enabled flag for showing groupDiveders
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1773	"
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1774	showGroupDivider ~~ aState ifTrue:[
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1775	showGroupDivider := aState.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1776	self mustRearrange.
653 cf9b6ef11ade bug fix; no automatic rearrange of items ca parents: 650 diff changeset	1777	]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1778	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1779
dce33f8bb806 intitial checkin ca parents: diff changeset	1780	showSeparatingLines
dce33f8bb806 intitial checkin ca parents: diff changeset	1781	"gets true if drawing of separating lines is enabled.
dce33f8bb806 intitial checkin ca parents: diff changeset	1782	"
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1783	^ showSeparatingLines
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1784	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1785
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1786	showSeparatingLines:aState
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1787	"turn on/off drawing of separating lines.
dce33f8bb806 intitial checkin ca parents: diff changeset	1788	"
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1789	aState ~~ showSeparatingLines ifTrue:[
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1790	showSeparatingLines := aState.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1791	self mustRearrange
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1792	].
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1793	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1794
dce33f8bb806 intitial checkin ca parents: diff changeset	1795	verticalLayout
dce33f8bb806 intitial checkin ca parents: diff changeset	1796	"get the layout: or vertical( true ) or horizontal( false )
dce33f8bb806 intitial checkin ca parents: diff changeset	1797	"
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	1798	verticalLayout notNil ifTrue:[ ^ verticalLayout ].
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1799
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1800	superMenu notNil ifTrue:[ verticalLayout := true ]
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1801	ifFalse:[ verticalLayout := self isPopUpView ].
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1802
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	1803	^ verticalLayout
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1804	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1805
dce33f8bb806 intitial checkin ca parents: diff changeset	1806	verticalLayout:aState
dce33f8bb806 intitial checkin ca parents: diff changeset	1807	"set the layout: or vertical( true ) or horizontal( false )
dce33f8bb806 intitial checkin ca parents: diff changeset	1808	"
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1809	aState ~~ verticalLayout ifTrue:[
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1810	verticalLayout isNil ifTrue:[
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1811	verticalLayout := aState
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1812	] ifFalse:[
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1813	verticalLayout := aState.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1814	self mustRearrange.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1815	].
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1816	].
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1817	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	1818
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1819	!MenuPanel methodsFor:'accessing-style'!
93426020ceed * empty log message * ca parents: 2216 diff changeset	1820
93426020ceed * empty log message * ca parents: 2216 diff changeset	1821	buttonInsetX
93426020ceed * empty log message * ca parents: 2216 diff changeset	1822	"returns the verical button space
93426020ceed * empty log message * ca parents: 2216 diff changeset	1823	"
93426020ceed * empty log message * ca parents: 2216 diff changeset	1824	^ styleSheet at:#'menuPanel.buttonInsetX'
93426020ceed * empty log message * ca parents: 2216 diff changeset	1825	!
93426020ceed * empty log message * ca parents: 2216 diff changeset	1826
93426020ceed * empty log message * ca parents: 2216 diff changeset	1827	buttonInsetY
93426020ceed * empty log message * ca parents: 2216 diff changeset	1828	"returns the verical button space
93426020ceed * empty log message * ca parents: 2216 diff changeset	1829	"
93426020ceed * empty log message * ca parents: 2216 diff changeset	1830	^ styleSheet at:#'menuPanel.buttonInsetY'
93426020ceed * empty log message * ca parents: 2216 diff changeset	1831	!
93426020ceed * empty log message * ca parents: 2216 diff changeset	1832
93426020ceed * empty log message * ca parents: 2216 diff changeset	1833	enteredLevel
93426020ceed * empty log message * ca parents: 2216 diff changeset	1834	"returns the enter-level for an unselected item moved through
93426020ceed * empty log message * ca parents: 2216 diff changeset	1835	"
93426020ceed * empty log message * ca parents: 2216 diff changeset	1836	^ styleSheet at:#'menu.enteredLevel' default:0
93426020ceed * empty log message * ca parents: 2216 diff changeset	1837	!
93426020ceed * empty log message * ca parents: 2216 diff changeset	1838
93426020ceed * empty log message * ca parents: 2216 diff changeset	1839	groupDividerSize
93426020ceed * empty log message * ca parents: 2216 diff changeset	1840	"returns the width of a group divider
93426020ceed * empty log message * ca parents: 2216 diff changeset	1841	"
93426020ceed * empty log message * ca parents: 2216 diff changeset	1842	^ styleSheet at:#'menu.groupDividerSize' default:6
93426020ceed * empty log message * ca parents: 2216 diff changeset	1843	!
93426020ceed * empty log message * ca parents: 2216 diff changeset	1844
93426020ceed * empty log message * ca parents: 2216 diff changeset	1845	itemMargin
93426020ceed * empty log message * ca parents: 2216 diff changeset	1846	"returns the margin of an item
93426020ceed * empty log message * ca parents: 2216 diff changeset	1847	"
93426020ceed * empty log message * ca parents: 2216 diff changeset	1848	^ styleSheet at:#'menu.itemMargin' default:0
93426020ceed * empty log message * ca parents: 2216 diff changeset	1849	!
93426020ceed * empty log message * ca parents: 2216 diff changeset	1850
93426020ceed * empty log message * ca parents: 2216 diff changeset	1851	itemSpace
93426020ceed * empty log message * ca parents: 2216 diff changeset	1852	"returns the additional space for an item in a (vertical) panel
93426020ceed * empty log message * ca parents: 2216 diff changeset	1853	"
93426020ceed * empty log message * ca parents: 2216 diff changeset	1854	^ styleSheet at:#'menuPanel.itemSpace'
93426020ceed * empty log message * ca parents: 2216 diff changeset	1855	!
93426020ceed * empty log message * ca parents: 2216 diff changeset	1856
93426020ceed * empty log message * ca parents: 2216 diff changeset	1857	selectionFollowsMouse
93426020ceed * empty log message * ca parents: 2216 diff changeset	1858	"returns true if the selection follows the mouse
93426020ceed * empty log message * ca parents: 2216 diff changeset	1859	"
93426020ceed * empty log message * ca parents: 2216 diff changeset	1860	^ styleSheet at:#'menu.selectionFollowsMouse' default:false
93426020ceed * empty log message * ca parents: 2216 diff changeset	1861	!
93426020ceed * empty log message * ca parents: 2216 diff changeset	1862
93426020ceed * empty log message * ca parents: 2216 diff changeset	1863	shortcutKeyOffset
93426020ceed * empty log message * ca parents: 2216 diff changeset	1864	"returns the offset for a shortcutKey
93426020ceed * empty log message * ca parents: 2216 diff changeset	1865	"
93426020ceed * empty log message * ca parents: 2216 diff changeset	1866	^ 5
93426020ceed * empty log message * ca parents: 2216 diff changeset	1867	! !
93426020ceed * empty log message * ca parents: 2216 diff changeset	1868
1679 af40842718f6 when accepting, and the application does not respond to that Claus Gittinger <cg@exept.de> parents: 1670 diff changeset	1869	!MenuPanel methodsFor:'accessing-submenu'!
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1870
dce33f8bb806 intitial checkin ca parents: diff changeset	1871	subMenuAt:stringOrNumber
dce33f8bb806 intitial checkin ca parents: diff changeset	1872	"gets the submenu of an item or nil
dce33f8bb806 intitial checkin ca parents: diff changeset	1873	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1874	^ self itemAt:stringOrNumber do:[:el\| el submenu ]
dce33f8bb806 intitial checkin ca parents: diff changeset	1875	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1876
dce33f8bb806 intitial checkin ca parents: diff changeset	1877	subMenuAt:stringOrNumber put:aSubMenu
dce33f8bb806 intitial checkin ca parents: diff changeset	1878	"sets the submenu of an item
dce33f8bb806 intitial checkin ca parents: diff changeset	1879	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1880	self itemAt:stringOrNumber do:[:el\| el submenu:aSubMenu ]
dce33f8bb806 intitial checkin ca parents: diff changeset	1881
dce33f8bb806 intitial checkin ca parents: diff changeset	1882	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1883
dce33f8bb806 intitial checkin ca parents: diff changeset	1884	subMenuShown
dce33f8bb806 intitial checkin ca parents: diff changeset	1885	"return the currently visible submenu - or nil if there is none
dce33f8bb806 intitial checkin ca parents: diff changeset	1886	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1887	\|item\|
dce33f8bb806 intitial checkin ca parents: diff changeset	1888
dce33f8bb806 intitial checkin ca parents: diff changeset	1889	(item := self selection) notNil ifTrue:[
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	1890	^ item submenu
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1891	].
dce33f8bb806 intitial checkin ca parents: diff changeset	1892	^ nil
dce33f8bb806 intitial checkin ca parents: diff changeset	1893	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	1894
2504 0ce78a73aacf method category rename Claus Gittinger <cg@exept.de> parents: 2503 diff changeset	1895	!MenuPanel methodsFor:'activation & deactivation'!
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1896
1795 6afd0e768267 submenuChannel selector: allow upto two arguments, the arg and the menu ca parents: 1793 diff changeset	1897	closeMenus
6afd0e768267 submenuChannel selector: allow upto two arguments, the arg and the menu ca parents: 1793 diff changeset	1898	"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	1899	"
6afd0e768267 submenuChannel selector: allow upto two arguments, the arg and the menu ca parents: 1793 diff changeset	1900	self topMenu accept:nil.
6afd0e768267 submenuChannel selector: allow upto two arguments, the arg and the menu ca parents: 1793 diff changeset	1901	!
6afd0e768267 submenuChannel selector: allow upto two arguments, the arg and the menu ca parents: 1793 diff changeset	1902
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1903	hide
dce33f8bb806 intitial checkin ca parents: diff changeset	1904	"hide the view, leave its modal event loop
dce33f8bb806 intitial checkin ca parents: diff changeset	1905	"
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	1906
2407 d8cdc13f677b checkin from browser penk parents: 2374 diff changeset	1907	"/ TODO: replace with LeaveSignal raise.
d8cdc13f677b checkin from browser penk parents: 2374 diff changeset	1908
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1909	self selection:nil.
dce33f8bb806 intitial checkin ca parents: diff changeset	1910	self unmap.
dce33f8bb806 intitial checkin ca parents: diff changeset	1911	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1912
dce33f8bb806 intitial checkin ca parents: diff changeset	1913	show
1836 89a1b938c09e fixed returned value from non-performing menu Claus Gittinger <cg@exept.de> parents: 1832 diff changeset	1914	"realize the view at its last position;
89a1b938c09e fixed returned value from non-performing menu Claus Gittinger <cg@exept.de> parents: 1832 diff changeset	1915	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	1916	(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	1917	to some performer)
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1918	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1919	^ self showAt:(self origin) resizing:true
dce33f8bb806 intitial checkin ca parents: diff changeset	1920
dce33f8bb806 intitial checkin ca parents: diff changeset	1921	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1922
dce33f8bb806 intitial checkin ca parents: diff changeset	1923	showAt:aPoint
1836 89a1b938c09e fixed returned value from non-performing menu Claus Gittinger <cg@exept.de> parents: 1832 diff changeset	1924	"realize the view at aPoint.
89a1b938c09e fixed returned value from non-performing menu Claus Gittinger <cg@exept.de> parents: 1832 diff changeset	1925	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	1926	(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	1927	to some performer)
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1928	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1929	^ self showAt:aPoint resizing:true
dce33f8bb806 intitial checkin ca parents: diff changeset	1930
dce33f8bb806 intitial checkin ca parents: diff changeset	1931
dce33f8bb806 intitial checkin ca parents: diff changeset	1932	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1933
dce33f8bb806 intitial checkin ca parents: diff changeset	1934	showAt:aPoint resizing:aBoolean
984 87d36803b9d8 oops - menu items fired twice. Claus Gittinger <cg@exept.de> parents: 971 diff changeset	1935	"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	1936	or if I have already performed.
87d36803b9d8 oops - menu items fired twice. Claus Gittinger <cg@exept.de> parents: 971 diff changeset	1937	Return the items value, otherwise.
87d36803b9d8 oops - menu items fired twice. Claus Gittinger <cg@exept.de> parents: 971 diff changeset	1938	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	1939	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	1940	if a non-nil is returned.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1941	"
1836 89a1b938c09e fixed returned value from non-performing menu Claus Gittinger <cg@exept.de> parents: 1832 diff changeset	1942
1331 aae37cbfb30a fixed style handling to avoid bad resizing when popup-level/bw Claus Gittinger <cg@exept.de> parents: 1330 diff changeset	1943	self rearrangeItemsIfItemVisibilityChanged.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1944
dce33f8bb806 intitial checkin ca parents: diff changeset	1945	aBoolean ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1946	self fixSize.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1947	].
dce33f8bb806 intitial checkin ca parents: diff changeset	1948	self origin:aPoint.
1459 53f83c83b354 checkin from browser Claus Gittinger <cg@exept.de> parents: 1455 diff changeset	1949	"/ self makeFullyVisible. -- done in realize
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1950	self openModal:[true]. "realize "
dce33f8bb806 intitial checkin ca parents: diff changeset	1951
984 87d36803b9d8 oops - menu items fired twice. Claus Gittinger <cg@exept.de> parents: 971 diff changeset	1952	"/ if I have already performed,
87d36803b9d8 oops - menu items fired twice. Claus Gittinger <cg@exept.de> parents: 971 diff changeset	1953	"/ return nil - to avoid items triggering twice.
87d36803b9d8 oops - menu items fired twice. Claus Gittinger <cg@exept.de> parents: 971 diff changeset	1954
87d36803b9d8 oops - menu items fired twice. Claus Gittinger <cg@exept.de> parents: 971 diff changeset	1955	(self topMenu menuAdornmentAt:#hasPerformed) == true ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1956	^ nil
984 87d36803b9d8 oops - menu items fired twice. Claus Gittinger <cg@exept.de> parents: 971 diff changeset	1957	].
1836 89a1b938c09e fixed returned value from non-performing menu Claus Gittinger <cg@exept.de> parents: 1832 diff changeset	1958
984 87d36803b9d8 oops - menu items fired twice. Claus Gittinger <cg@exept.de> parents: 971 diff changeset	1959	^ self lastValueAccepted
87d36803b9d8 oops - menu items fired twice. Claus Gittinger <cg@exept.de> parents: 971 diff changeset	1960
1137 7df0b776e47a fixes for 2D styles (borderWidth) Claus Gittinger <cg@exept.de> parents: 1130 diff changeset	1961	"Modified: / 15.9.1998 / 12:50:23 / cg"
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1962	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1963
dce33f8bb806 intitial checkin ca parents: diff changeset	1964	showAtPointer
1836 89a1b938c09e fixed returned value from non-performing menu Claus Gittinger <cg@exept.de> parents: 1832 diff changeset	1965	"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	1966	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	1967	(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	1968	to some performer)
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1969	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1970	^ self showAt:(device pointerPosition) resizing:true
dce33f8bb806 intitial checkin ca parents: diff changeset	1971
dce33f8bb806 intitial checkin ca parents: diff changeset	1972
dce33f8bb806 intitial checkin ca parents: diff changeset	1973	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1974
dce33f8bb806 intitial checkin ca parents: diff changeset	1975	showCenteredIn:aView
dce33f8bb806 intitial checkin ca parents: diff changeset	1976	"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	1977	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	1978	(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	1979	to some performer)
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1980	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1981	\|top\|
dce33f8bb806 intitial checkin ca parents: diff changeset	1982
dce33f8bb806 intitial checkin ca parents: diff changeset	1983	top := aView topView.
dce33f8bb806 intitial checkin ca parents: diff changeset	1984	top raise.
1137 7df0b776e47a fixes for 2D styles (borderWidth) Claus Gittinger <cg@exept.de> parents: 1130 diff changeset	1985	^ 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	1986
7df0b776e47a fixes for 2D styles (borderWidth) Claus Gittinger <cg@exept.de> parents: 1130 diff changeset	1987	"Modified: / 15.9.1998 / 12:45:50 / cg"
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1988	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1989
dce33f8bb806 intitial checkin ca parents: diff changeset	1990	startUp
dce33f8bb806 intitial checkin ca parents: diff changeset	1991	"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	1992	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	1993	(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	1994	to some performer)
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1995	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1996	^ self showAtPointer
897 6bbc8c15ac0a added #startUpAt: (MenuView compatibility) Claus Gittinger <cg@exept.de> parents: 890 diff changeset	1997	!
6bbc8c15ac0a added #startUpAt: (MenuView compatibility) Claus Gittinger <cg@exept.de> parents: 890 diff changeset	1998
6bbc8c15ac0a added #startUpAt: (MenuView compatibility) Claus Gittinger <cg@exept.de> parents: 890 diff changeset	1999	startUpAt:aPoint
6bbc8c15ac0a added #startUpAt: (MenuView compatibility) Claus Gittinger <cg@exept.de> parents: 890 diff changeset	2000	"realize the menu at aPoint
1836 89a1b938c09e fixed returned value from non-performing menu Claus Gittinger <cg@exept.de> parents: 1832 diff changeset	2001	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	2002	(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	2003	to some performer)
897 6bbc8c15ac0a added #startUpAt: (MenuView compatibility) Claus Gittinger <cg@exept.de> parents: 890 diff changeset	2004	"
6bbc8c15ac0a added #startUpAt: (MenuView compatibility) Claus Gittinger <cg@exept.de> parents: 890 diff changeset	2005	^ self showAt:aPoint
6bbc8c15ac0a added #startUpAt: (MenuView compatibility) Claus Gittinger <cg@exept.de> parents: 890 diff changeset	2006
6bbc8c15ac0a added #startUpAt: (MenuView compatibility) Claus Gittinger <cg@exept.de> parents: 890 diff changeset	2007	"Created: / 21.5.1998 / 14:15:57 / cg"
1750 f9e5700bd99a compatibility stuff Claus Gittinger <cg@exept.de> parents: 1737 diff changeset	2008	!
f9e5700bd99a compatibility stuff Claus Gittinger <cg@exept.de> parents: 1737 diff changeset	2009
2332 7e98cc0c92b7 can now specify if menu action is to be performed by ca parents: 2331 diff changeset	2010	startUpFor:originatingWidget
7e98cc0c92b7 can now specify if menu action is to be performed by ca parents: 2331 diff changeset	2011	"realize the menu at the current pointer position
7e98cc0c92b7 can now specify if menu action is to be performed by ca parents: 2331 diff changeset	2012	return the value of the selectedItem or nil, of none was selected
7e98cc0c92b7 can now specify if menu action is to be performed by ca parents: 2331 diff changeset	2013	(unless the menu has already performed its action, by sending an appropriate message
7e98cc0c92b7 can now specify if menu action is to be performed by ca parents: 2331 diff changeset	2014	to some performer)
7e98cc0c92b7 can now specify if menu action is to be performed by ca parents: 2331 diff changeset	2015	"
7e98cc0c92b7 can now specify if menu action is to be performed by ca parents: 2331 diff changeset	2016	originator := originatingWidget.
7e98cc0c92b7 can now specify if menu action is to be performed by ca parents: 2331 diff changeset	2017	^ self startUp
7e98cc0c92b7 can now specify if menu action is to be performed by ca parents: 2331 diff changeset	2018	!
7e98cc0c92b7 can now specify if menu action is to be performed by ca parents: 2331 diff changeset	2019
1750 f9e5700bd99a compatibility stuff Claus Gittinger <cg@exept.de> parents: 1737 diff changeset	2020	startUpOrNil
f9e5700bd99a compatibility stuff Claus Gittinger <cg@exept.de> parents: 1737 diff changeset	2021	"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	2022	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	2023	(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	2024	to some performer)
1750 f9e5700bd99a compatibility stuff Claus Gittinger <cg@exept.de> parents: 1737 diff changeset	2025	"
f9e5700bd99a compatibility stuff Claus Gittinger <cg@exept.de> parents: 1737 diff changeset	2026	^ self showAtPointer
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2027	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	2028
dce33f8bb806 intitial checkin ca parents: diff changeset	2029	!MenuPanel methodsFor:'adding & removing'!
dce33f8bb806 intitial checkin ca parents: diff changeset	2030
dce33f8bb806 intitial checkin ca parents: diff changeset	2031	createAtIndex:anIndexOrNil
1800 600f247a2846 comment Claus Gittinger <cg@exept.de> parents: 1799 diff changeset	2032	"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	2033	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	2034	otherwise the new created item is returned.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2035	"
dce33f8bb806 intitial checkin ca parents: diff changeset	2036	\|max item\|
dce33f8bb806 intitial checkin ca parents: diff changeset	2037
dce33f8bb806 intitial checkin ca parents: diff changeset	2038	max := (items size) + 1.
dce33f8bb806 intitial checkin ca parents: diff changeset	2039
dce33f8bb806 intitial checkin ca parents: diff changeset	2040	anIndexOrNil notNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	2041	(anIndexOrNil < 1 or:[anIndexOrNil > max]) ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	2042	^ nil
93426020ceed * empty log message * ca parents: 2216 diff changeset	2043	]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2044	].
dce33f8bb806 intitial checkin ca parents: diff changeset	2045	items isNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	2046	items := OrderedCollection new
1151 199863d6a463 items: convert Array to OrderedCollection Claus Gittinger <cg@exept.de> parents: 1137 diff changeset	2047	] ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	2048	items := items asOrderedCollection
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2049	].
dce33f8bb806 intitial checkin ca parents: diff changeset	2050	item := Item in:self.
dce33f8bb806 intitial checkin ca parents: diff changeset	2051
dce33f8bb806 intitial checkin ca parents: diff changeset	2052	(anIndexOrNil isNil or:[anIndexOrNil == max]) ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	2053	items add:item
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2054	] ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	2055	items add:item beforeIndex:anIndexOrNil
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2056	].
dce33f8bb806 intitial checkin ca parents: diff changeset	2057	^ item
dce33f8bb806 intitial checkin ca parents: diff changeset	2058	!
dce33f8bb806 intitial checkin ca parents: diff changeset	2059
dce33f8bb806 intitial checkin ca parents: diff changeset	2060	remove:stringOrNumber
dce33f8bb806 intitial checkin ca parents: diff changeset	2061	"remove the first item which is assigned to stringOrNumber;
dce33f8bb806 intitial checkin ca parents: diff changeset	2062	if found, remove and return it
dce33f8bb806 intitial checkin ca parents: diff changeset	2063	"
dce33f8bb806 intitial checkin ca parents: diff changeset	2064	\|item\|
dce33f8bb806 intitial checkin ca parents: diff changeset	2065
dce33f8bb806 intitial checkin ca parents: diff changeset	2066	(item := self itemAt:stringOrNumber) notNil ifTrue:[
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	2067	items remove:item.
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	2068	item destroy.
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	2069	items isEmpty ifTrue:[items := nil].
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	2070	self mustRearrange.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2071	].
dce33f8bb806 intitial checkin ca parents: diff changeset	2072	^ item
dce33f8bb806 intitial checkin ca parents: diff changeset	2073	!
dce33f8bb806 intitial checkin ca parents: diff changeset	2074
dce33f8bb806 intitial checkin ca parents: diff changeset	2075	removeAll
dce33f8bb806 intitial checkin ca parents: diff changeset	2076	"remove all items and submenus
dce33f8bb806 intitial checkin ca parents: diff changeset	2077	"
dce33f8bb806 intitial checkin ca parents: diff changeset	2078	self disabledRedrawDo:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	2079	self selection:nil.
93426020ceed * empty log message * ca parents: 2216 diff changeset	2080	groupSizes := nil.
93426020ceed * empty log message * ca parents: 2216 diff changeset	2081	items notNil ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	2082	items copy do:[:el\| el destroy ].
93426020ceed * empty log message * ca parents: 2216 diff changeset	2083	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	2084	items := nil
2050 ef5517d7a2d0 do not destroy myself after accepting (for PopUpList) Claus Gittinger <cg@exept.de> parents: 2048 diff changeset	2085	].
ef5517d7a2d0 do not destroy myself after accepting (for PopUpList) Claus Gittinger <cg@exept.de> parents: 2048 diff changeset	2086
ef5517d7a2d0 do not destroy myself after accepting (for PopUpList) Claus Gittinger <cg@exept.de> parents: 2048 diff changeset	2087	"Modified: / 15.11.2001 / 17:02:51 / cg"
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2088	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	2089
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2090	!MenuPanel methodsFor:'change & update'!
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2091
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2092	update:something with:aParameter from:changedObject
498 b4c341497621 bug fixes: ca parents: 475 diff changeset	2093
b4c341497621 bug fixes: ca parents: 475 diff changeset	2094	changedObject == menuHolder ifTrue:[^ self menu:(menuHolder value)].
b4c341497621 bug fixes: ca parents: 475 diff changeset	2095	changedObject == enableChannel ifTrue:[^ self enabled:(enableChannel value)].
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2096
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2097	super update:something with:aParameter from:changedObject
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2098	! !
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2099
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2100	!MenuPanel methodsFor:'converting'!
dce33f8bb806 intitial checkin ca parents: diff changeset	2101
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2102	asMenu
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2103	"convert contents to menu
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2104	"
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2105	\|menu\|
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2106
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2107	menu := Menu new.
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2108	menu groupSizes:groupSizes.
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2109	self do:[:anItem\| menu addItem:(anItem asMenuItem) ].
2059 c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	2110	^ menu
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2111	!
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2112
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2113	fromSpec:aMenuSpec
dce33f8bb806 intitial checkin ca parents: diff changeset	2114	"build from spec
dce33f8bb806 intitial checkin ca parents: diff changeset	2115	"
dce33f8bb806 intitial checkin ca parents: diff changeset	2116	\|menu\|
dce33f8bb806 intitial checkin ca parents: diff changeset	2117
dce33f8bb806 intitial checkin ca parents: diff changeset	2118	menu := Menu new.
dce33f8bb806 intitial checkin ca parents: diff changeset	2119	menu fromLiteralArrayEncoding:aMenuSpec.
dce33f8bb806 intitial checkin ca parents: diff changeset	2120	self menu:menu
dce33f8bb806 intitial checkin ca parents: diff changeset	2121
dce33f8bb806 intitial checkin ca parents: diff changeset	2122	!
dce33f8bb806 intitial checkin ca parents: diff changeset	2123
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2124	menu:aMenu
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2125	"convert to Menu
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2126	"
dce33f8bb806 intitial checkin ca parents: diff changeset	2127	self disabledRedrawDo:[
2232 5784671fb497 when searching for a sumbenus application, do NOT Claus Gittinger <cg@exept.de> parents: 2231 diff changeset	2128	\|menu newItems menuReceiver\|
5784671fb497 when searching for a sumbenus application, do NOT Claus Gittinger <cg@exept.de> parents: 2231 diff changeset	2129
5784671fb497 when searching for a sumbenus application, do NOT Claus Gittinger <cg@exept.de> parents: 2231 diff changeset	2130	self removeAll.
5784671fb497 when searching for a sumbenus application, do NOT Claus Gittinger <cg@exept.de> parents: 2231 diff changeset	2131
5784671fb497 when searching for a sumbenus application, do NOT Claus Gittinger <cg@exept.de> parents: 2231 diff changeset	2132	(menu := aMenu) notNil ifTrue:[
5784671fb497 when searching for a sumbenus application, do NOT Claus Gittinger <cg@exept.de> parents: 2231 diff changeset	2133	(aMenu isCollection) ifTrue:[
5784671fb497 when searching for a sumbenus application, do NOT Claus Gittinger <cg@exept.de> parents: 2231 diff changeset	2134	menu := Menu new.
5784671fb497 when searching for a sumbenus application, do NOT Claus Gittinger <cg@exept.de> parents: 2231 diff changeset	2135	menu fromLiteralArrayEncoding:aMenu.
5784671fb497 when searching for a sumbenus application, do NOT Claus Gittinger <cg@exept.de> parents: 2231 diff changeset	2136	] ifFalse:[
5784671fb497 when searching for a sumbenus application, do NOT Claus Gittinger <cg@exept.de> parents: 2231 diff changeset	2137	menuReceiver := menu receiver.
5784671fb497 when searching for a sumbenus application, do NOT Claus Gittinger <cg@exept.de> parents: 2231 diff changeset	2138	menuReceiver notNil ifTrue:[
5784671fb497 when searching for a sumbenus application, do NOT Claus Gittinger <cg@exept.de> parents: 2231 diff changeset	2139	receiver := menuReceiver.
5784671fb497 when searching for a sumbenus application, do NOT Claus Gittinger <cg@exept.de> parents: 2231 diff changeset	2140	]
5784671fb497 when searching for a sumbenus application, do NOT Claus Gittinger <cg@exept.de> parents: 2231 diff changeset	2141	].
5784671fb497 when searching for a sumbenus application, do NOT Claus Gittinger <cg@exept.de> parents: 2231 diff changeset	2142	(newItems := menu menuItems) size > 0 ifTrue:[
5784671fb497 when searching for a sumbenus application, do NOT Claus Gittinger <cg@exept.de> parents: 2231 diff changeset	2143	items := newItems collect:[:ni \|
5784671fb497 when searching for a sumbenus application, do NOT Claus Gittinger <cg@exept.de> parents: 2231 diff changeset	2144	\|i\|
5784671fb497 when searching for a sumbenus application, do NOT Claus Gittinger <cg@exept.de> parents: 2231 diff changeset	2145
5784671fb497 when searching for a sumbenus application, do NOT Claus Gittinger <cg@exept.de> parents: 2231 diff changeset	2146	i:= Item in:self.
5784671fb497 when searching for a sumbenus application, do NOT Claus Gittinger <cg@exept.de> parents: 2231 diff changeset	2147	i menuItem:ni.
5784671fb497 when searching for a sumbenus application, do NOT Claus Gittinger <cg@exept.de> parents: 2231 diff changeset	2148	i.
5784671fb497 when searching for a sumbenus application, do NOT Claus Gittinger <cg@exept.de> parents: 2231 diff changeset	2149	].
5784671fb497 when searching for a sumbenus application, do NOT Claus Gittinger <cg@exept.de> parents: 2231 diff changeset	2150	].
5784671fb497 when searching for a sumbenus application, do NOT Claus Gittinger <cg@exept.de> parents: 2231 diff changeset	2151	self groupSizes:(menu groupSizes).
5784671fb497 when searching for a sumbenus application, do NOT Claus Gittinger <cg@exept.de> parents: 2231 diff changeset	2152	]
1063 08b7ca464437 dont show accelerators for horizontal layouts Claus Gittinger <cg@exept.de> parents: 1054 diff changeset	2153	]
08b7ca464437 dont show accelerators for horizontal layouts Claus Gittinger <cg@exept.de> parents: 1054 diff changeset	2154
08b7ca464437 dont show accelerators for horizontal layouts Claus Gittinger <cg@exept.de> parents: 1054 diff changeset	2155	"Modified: / 8.8.1998 / 02:05:04 / cg"
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2156	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	2157
2681 2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	2158	!MenuPanel methodsFor:'dependents access'!
2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	2159
2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	2160	addDependencies
2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	2161	"add all dependencies
2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	2162	"
2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	2163	self do:[:anItem\| anItem addDependencies ].
2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	2164
2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	2165	menuHolder notNil ifTrue:[menuHolder addDependent:self].
2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	2166	enableChannel notNil ifTrue:[enableChannel addDependent:self].
2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	2167	!
2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	2168
2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	2169	removeDependencies
2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	2170	"remove all dependencies
2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	2171	"
2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	2172	self do:[:anItem\| anItem removeDependencies ].
2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	2173
2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	2174	menuHolder notNil ifTrue:[menuHolder removeDependent:self].
2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	2175	enableChannel notNil ifTrue:[enableChannel removeDependent:self].
2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	2176	! !
2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	2177
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2178	!MenuPanel methodsFor:'drawing'!
dce33f8bb806 intitial checkin ca parents: diff changeset	2179
dce33f8bb806 intitial checkin ca parents: diff changeset	2180	disabledRedrawDo:aBlock
dce33f8bb806 intitial checkin ca parents: diff changeset	2181	"evaluate a block without redrawing within the block; after processing
dce33f8bb806 intitial checkin ca parents: diff changeset	2182	of the block a redraw might be performed
dce33f8bb806 intitial checkin ca parents: diff changeset	2183	"
dce33f8bb806 intitial checkin ca parents: diff changeset	2184	\|state\|
dce33f8bb806 intitial checkin ca parents: diff changeset	2185
dce33f8bb806 intitial checkin ca parents: diff changeset	2186	state := mustRearrange.
dce33f8bb806 intitial checkin ca parents: diff changeset	2187	mustRearrange := true.
dce33f8bb806 intitial checkin ca parents: diff changeset	2188	aBlock value.
dce33f8bb806 intitial checkin ca parents: diff changeset	2189	mustRearrange := state.
dce33f8bb806 intitial checkin ca parents: diff changeset	2190	self mustRearrange
dce33f8bb806 intitial checkin ca parents: diff changeset	2191	!
dce33f8bb806 intitial checkin ca parents: diff changeset	2192
1690 38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2193	drawButtonEdgesFor:anItem level:aLevel
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2194	\|layout\|
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2195
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2196	aLevel ~~ 0 ifTrue:[
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2197	layout := anItem layout.
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2198
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2199	styleSheet is3D ifFalse:[
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2200	self displayRectangle:layout.
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2201	] ifTrue:[
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2202	self drawEdgesForX:(layout left)
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2203	y:(layout top)
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2204	width:(layout width)
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2205	height:(layout height)
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2206	level:aLevel
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	2207	shadow:(self buttonShadowColor)
93426020ceed * empty log message * ca parents: 2216 diff changeset	2208	light:(self buttonLightColor)
93426020ceed * empty log message * ca parents: 2216 diff changeset	2209	halfShadow:(self buttonHalfShadowColor)
93426020ceed * empty log message * ca parents: 2216 diff changeset	2210	halfLight:(self buttonHalfLightColor)
93426020ceed * empty log message * ca parents: 2216 diff changeset	2211	style:(self buttonEdgeStyle)
1690 38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2212	]
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2213	]
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2214	!
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2215
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2216	drawItemsX:x y:y width:w height:h
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2217	"redraw items and groups in a damage
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2218	"
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2219	\|isVertical item layout prevClip
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2220	x1 "{ Class:SmallInteger }"
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2221	x2 "{ Class:SmallInteger }"
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2222	y1 "{ Class:SmallInteger }"
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2223	y2 "{ Class:SmallInteger }"
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2224	start "{ Class:SmallInteger }"
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2225	stop "{ Class:SmallInteger }"
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2226	size "{ Class:SmallInteger }"
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2227	groupDivInset "{ Class:SmallInteger }"
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2228	\|
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2229
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2230	size := items size.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2231	isVertical := self verticalLayout.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2232
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2233	isVertical ifTrue:[
2064 0e0d1fe431fb checkin from browser Claus Gittinger <cg@exept.de> parents: 2063 diff changeset	2234	start := items findFirst:[:el\| \|l\| l := el layout. l notNil and:[l bottom > y]].
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2235	start == 0 ifTrue:[ ^ self ].
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2236	y1 := y + h.
2064 0e0d1fe431fb checkin from browser Claus Gittinger <cg@exept.de> parents: 2063 diff changeset	2237	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	2238	startingAt:(start + 1).
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2239	] ifFalse:[
2064 0e0d1fe431fb checkin from browser Claus Gittinger <cg@exept.de> parents: 2063 diff changeset	2240	start := items findFirst:[:el\| \|l\| l := el layout. l notNil and:[l right > x ]].
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2241	start == 0 ifTrue:[ ^ self ].
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2242	x1 := x + w.
2064 0e0d1fe431fb checkin from browser Claus Gittinger <cg@exept.de> parents: 2063 diff changeset	2243	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	2244	startingAt:(start + 1).
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2245	].
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2246	stop == 0 ifTrue:[stop := size] ifFalse:[stop := stop - 1].
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2247
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	2248	(groupSizes size ~~ 0 and:[showGroupDivider]) ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	2249	groupDivInset := self groupDividerSize // 2.
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2250
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2251	groupDivInset ~~ 0 ifTrue:[
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2252	(start ~~ 1 and:[self hasGroupDividerAt:(start-1)]) ifTrue:[
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2253	start := start - 1
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	] ifFalse:[
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2257	groupDivInset := 0
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2258	].
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2259
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2260	prevClip := clipRect.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2261	self clippingRectangle:(Rectangle left:x top:y width:w height:h).
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2262
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2263	start to:stop do:[:i\|
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2264	item := items at:i.
2485 b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	2265	item draw.
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2266
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2267	(groupDivInset ~~ 0 and:[i ~~ size and:[self hasGroupDividerAt:i]]) ifTrue:[
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2268	layout := item layout.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2269
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2270	isVertical ifTrue:[
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2271	x1 := layout left.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2272	x2 := layout right.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2273	y1 := layout bottom + groupDivInset.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2274	y2 := y1.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2275	] ifFalse:[
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2276	y1 := layout top.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2277	y2 := layout bottom.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2278	x1 := layout right + groupDivInset.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2279	x2 := x1.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2280	].
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2281	self paint:shadowColor.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2282	self displayLineFromX:x1 y:y1 toX:x2 y:y2.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2283	self paint:lightColor.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2284
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2285	isVertical ifTrue:[y1 := y1 + 1. y2 := y1 ]
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2286	ifFalse:[x1 := x1 + 1. x2 := x1 ].
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2287
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2288	self displayLineFromX:x1 y:y1 toX:x2 y:y2
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2289	]
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2290	].
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2291	self clippingRectangle:prevClip.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2292	!
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2293
1690 38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2294	drawLabelEdgeFor:anItem selected:isSelected
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2295	\|level layout\|
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2296
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2297	isSelected ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	2298	level := styleSheet at:#'menu.hilightLevel' default:0.
1690 38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2299	] ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	2300	anItem == enteredItem ifTrue:[ level := self enteredLevel ]
93426020ceed * empty log message * ca parents: 2216 diff changeset	2301	ifFalse:[ level := 0 ]
1690 38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2302	].
1081 fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	2303
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	2304	level ~~ 0 ifTrue:[
1690 38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2305	layout := anItem layout.
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2306
1691 8e1a9d7a298e bugfix in drawLableEdge... ca parents: 1690 diff changeset	2307	self drawEdgesForX:(layout left)
8e1a9d7a298e bugfix in drawLableEdge... ca parents: 1690 diff changeset	2308	y:(layout top)
8e1a9d7a298e bugfix in drawLableEdge... ca parents: 1690 diff changeset	2309	width:(layout width)
8e1a9d7a298e bugfix in drawLableEdge... ca parents: 1690 diff changeset	2310	height:(layout height)
1690 38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2311	level:level
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2312	].
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2313	!
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2314
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2315	drawScrollerAt:aDirection bounds:bounds
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2316	"draw a scroller
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2317	"
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2318	\|scrolling icon level x y w h\|
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2319
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2320	x := bounds left.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2321	y := bounds top.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2322	w := bounds width.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2323	h := bounds height.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2324
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	2325	scrolling := self scrollActivity.
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2326
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2327	(scrolling activeMenu == self and:[scrolling direction == aDirection]) ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	2328	level := -2
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2329	] ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	2330	level := 1
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2331	].
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2332
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2333	level ~~ 0 ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	2334	self drawEdgesForX:x y:y width:w height:h level:level.
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2335	].
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2336	icon := scrolling iconAt:aDirection on:self.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2337
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2338	icon displayOn:self x:(x + (w - icon width // 2))
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	2339	y:(y + (h - icon height // 2)).
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2340	!
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2341
1690 38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2342	invalidateItem:anItem repairNow:aBool
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2343	"an item changed; invalidate the items layout
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2344	"
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2345	\|layout\|
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2346
2073 26c30a04413d do not invalidate if sensor is nil Claus Gittinger <cg@exept.de> parents: 2069 diff changeset	2347	self sensor isNil ifTrue:[^ self].
26c30a04413d do not invalidate if sensor is nil Claus Gittinger <cg@exept.de> parents: 2069 diff changeset	2348
1690 38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2349	(mustRearrange not and:[shown]) ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	2350	layout := anItem layout.
93426020ceed * empty log message * ca parents: 2216 diff changeset	2351
93426020ceed * empty log message * ca parents: 2216 diff changeset	2352	(layout bottom > margin and:[layout top < (height - margin)]) ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	2353	self invalidate:(layout copy insetBy:-1) repairNow:aBool
93426020ceed * empty log message * ca parents: 2216 diff changeset	2354	]
1728 fc0bd6482feb kludge redraw bug fix Claus Gittinger <cg@exept.de> parents: 1727 diff changeset	2355	].
fc0bd6482feb kludge redraw bug fix Claus Gittinger <cg@exept.de> parents: 1727 diff changeset	2356
fc0bd6482feb kludge redraw bug fix Claus Gittinger <cg@exept.de> parents: 1727 diff changeset	2357	"Modified: / 29.2.2000 / 11:28:59 / cg"
746 bd252bbe276f better drawing routine for button behavior tz parents: 739 diff changeset	2358	!
bd252bbe276f better drawing routine for button behavior tz parents: 739 diff changeset	2359
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2360	mustRearrange
910 5c9592e782fd always repairNow (to make change visible immediately) Claus Gittinger <cg@exept.de> parents: 898 diff changeset	2361	"force rearrange (i.e. set the rearrange flag)
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2362	"
2080 f37673e44158 Fix rearrangeItem stuff Stefan Vogel <sv@exept.de> parents: 2079 diff changeset	2363	mustRearrange ifFalse:[
2659 3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	2364	mustRearrange := true.
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	2365	self invalidate "/ RepairNow:true
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2366	]
590 3177528b5f95 checkin from browser Claus Gittinger <cg@exept.de> parents: 587 diff changeset	2367
911 6b1ad8b039c5 no, repairNow should not be needed here Claus Gittinger <cg@exept.de> parents: 910 diff changeset	2368	"Modified: / 6.6.1998 / 19:51:07 / cg"
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2369	!
dce33f8bb806 intitial checkin ca parents: diff changeset	2370
710 4453e463ff16 add new feature: ca parents: 709 diff changeset	2371	rearrangeGroups
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2372	"implements the groupIdentifier #right in a horizontal menu
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2373	"
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2374	\|layout point
710 4453e463ff16 add new feature: ca parents: 709 diff changeset	2375	dltX "{ Class:SmallInteger }"
4453e463ff16 add new feature: ca parents: 709 diff changeset	2376	start "{ Class:SmallInteger }"
4453e463ff16 add new feature: ca parents: 709 diff changeset	2377	\|
4453e463ff16 add new feature: ca parents: 709 diff changeset	2378
4453e463ff16 add new feature: ca parents: 709 diff changeset	2379	(self isPopUpView or:[self verticalLayout]) ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	2380	^ self
710 4453e463ff16 add new feature: ca parents: 709 diff changeset	2381	].
4453e463ff16 add new feature: ca parents: 709 diff changeset	2382
4453e463ff16 add new feature: ca parents: 709 diff changeset	2383	layout := items last layout.
4453e463ff16 add new feature: ca parents: 709 diff changeset	2384
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2385	(dltX := width - margin - layout right) <= 0 ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	2386	^ self "/ no free space
710 4453e463ff16 add new feature: ca parents: 709 diff changeset	2387	].
4453e463ff16 add new feature: ca parents: 709 diff changeset	2388	start := items findFirst:[:anItem\| anItem startGroup == #right ].
4453e463ff16 add new feature: ca parents: 709 diff changeset	2389
4453e463ff16 add new feature: ca parents: 709 diff changeset	2390	start == 0 ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	2391	^ self "/ no item detected
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2392	].
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2393	point := dltX @ 0.
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2394
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2395	"/ move items layout to right
710 4453e463ff16 add new feature: ca parents: 709 diff changeset	2396
4453e463ff16 add new feature: ca parents: 709 diff changeset	2397	items from:start do:[:anItem\|
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	2398	anItem isVisible ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	2399	anItem layout moveBy:point.
93426020ceed * empty log message * ca parents: 2216 diff changeset	2400	]
710 4453e463ff16 add new feature: ca parents: 709 diff changeset	2401	].
4453e463ff16 add new feature: ca parents: 709 diff changeset	2402	!
4453e463ff16 add new feature: ca parents: 709 diff changeset	2403
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2404	rearrangeItems
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2405	"recompute the layout of each item
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2406	!!!!!! changes have influence on method #preferredExtentOfItems !!!!!!
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2407	"
1791 bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	2408	\|isVertical extent isPopUpMenu
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	2409	x "{ Class:SmallInteger }"
93426020ceed * empty log message * ca parents: 2216 diff changeset	2410	y "{ Class:SmallInteger }"
93426020ceed * empty log message * ca parents: 2216 diff changeset	2411	x0 "{ Class:SmallInteger }"
93426020ceed * empty log message * ca parents: 2216 diff changeset	2412	y0 "{ Class:SmallInteger }"
93426020ceed * empty log message * ca parents: 2216 diff changeset	2413	x1 "{ Class:SmallInteger }"
93426020ceed * empty log message * ca parents: 2216 diff changeset	2414	y1 "{ Class:SmallInteger }"
93426020ceed * empty log message * ca parents: 2216 diff changeset	2415	size "{ Class:SmallInteger }"
93426020ceed * empty log message * ca parents: 2216 diff changeset	2416	insetX "{ Class:SmallInteger }"
93426020ceed * empty log message * ca parents: 2216 diff changeset	2417	insetY "{ Class:SmallInteger }"
93426020ceed * empty log message * ca parents: 2216 diff changeset	2418	labelInsetX "{ Class:SmallInteger }"
93426020ceed * empty log message * ca parents: 2216 diff changeset	2419	labelInsetY "{ Class:SmallInteger }"
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	2420	buttonInsetX "{ Class:SmallInteger }"
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	2421	buttonInsetY "{ Class:SmallInteger }"
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	2422	itemMargin "{ Class:SmallInteger }"
93426020ceed * empty log message * ca parents: 2216 diff changeset	2423	itemSpace "{ Class:SmallInteger }"
93426020ceed * empty log message * ca parents: 2216 diff changeset	2424	groupDividerSize "{ Class:SmallInteger }"
710 4453e463ff16 add new feature: ca parents: 709 diff changeset	2425	\|
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2426	(mustRearrange and:[(size := items size) ~~ 0]) ifFalse:[
1478 38f08dec8e34 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	2427	mustRearrange := false.
2433 49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	2428	^ self
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2429	].
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	2430
2080 f37673e44158 Fix rearrangeItem stuff Stefan Vogel <sv@exept.de> parents: 2079 diff changeset	2431	"/ DON'T SET THIS!!
f37673e44158 Fix rearrangeItem stuff Stefan Vogel <sv@exept.de> parents: 2079 diff changeset	2432	"/ item layout: below of first item -> item invalidate
f37673e44158 Fix rearrangeItem stuff Stefan Vogel <sv@exept.de> parents: 2079 diff changeset	2433	"/ -> menuPanel invalidateItem:repairDamage:
f37673e44158 Fix rearrangeItem stuff Stefan Vogel <sv@exept.de> parents: 2079 diff changeset	2434	"/ -> invalidate:rapairDamage:
f37673e44158 Fix rearrangeItem stuff Stefan Vogel <sv@exept.de> parents: 2079 diff changeset	2435	"/ -> redrawX:y:width:height:
f37673e44158 Fix rearrangeItem stuff Stefan Vogel <sv@exept.de> parents: 2079 diff changeset	2436	"/ tries to get uninitialized layout from second item.
f37673e44158 Fix rearrangeItem stuff Stefan Vogel <sv@exept.de> parents: 2079 diff changeset	2437	"/ This happens in a modal debugger!!
f37673e44158 Fix rearrangeItem stuff Stefan Vogel <sv@exept.de> parents: 2079 diff changeset	2438	"/ mustRearrange := false.
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	2439	isVertical := self verticalLayout.
93426020ceed * empty log message * ca parents: 2216 diff changeset	2440	itemSpace := self itemSpace.
93426020ceed * empty log message * ca parents: 2216 diff changeset	2441	groupDividerSize := self groupDividerSize.
93426020ceed * empty log message * ca parents: 2216 diff changeset	2442	buttonInsetX := self buttonInsetX.
93426020ceed * empty log message * ca parents: 2216 diff changeset	2443	buttonInsetY := self buttonInsetY.
93426020ceed * empty log message * ca parents: 2216 diff changeset	2444	isPopUpMenu := self isPopUpView.
1791 bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	2445
bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	2446	isPopUpMenu ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	2447	labelInsetX := labelInsetY := self enteredLevel abs.
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2448	] ifTrue:[
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	2449	labelInsetX := labelInsetY := 0
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2450	].
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2451
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2452	(isPopUpMenu or:[explicitExtent ~~ true]) ifTrue:[ \|savExt maxExt\|
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2453	savExt := extent := self preferredExtent copy.
1478 38f08dec8e34 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	2454
1791 bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	2455	isPopUpMenu ifFalse:[
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2456	isVertical ifTrue:[extent y:1.0] ifFalse:[extent x:1.0]
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2457	] ifTrue:[
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2458	savExt := extent copy.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2459	maxExt := self maxExtent.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2460
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2461	isVertical ifTrue:[
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2462	extent y:(extent y min:(maxExt y))
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2463	] ifFalse:[
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2464	extent x:(extent x min:(maxExt x))
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2465	]
1478 38f08dec8e34 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	2466	].
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2467	self extent:extent.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2468	extent := savExt.
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2469	] ifFalse:[
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2470	extent := self computeExtent
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2471	].
1082 382324ddce3f support and additional buttonSpacing (for normal and win95 styles) Claus Gittinger <cg@exept.de> parents: 1081 diff changeset	2472
1093 7cb44303b016 margin fixes Claus Gittinger <cg@exept.de> parents: 1090 diff changeset	2473	x := y := margin.
7cb44303b016 margin fixes Claus Gittinger <cg@exept.de> parents: 1090 diff changeset	2474
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2475	isVertical ifFalse:[
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2476	y0 := margin.
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2477	y1 := extent y - margin.
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2478
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2479	items keysAndValuesDo:[:anIndex :el\|
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2480	el isVisible ifFalse:[
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2481	el layout:(Rectangle left:x top:y0 right:x bottom:y1)
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2482	] ifTrue:[
1478 38f08dec8e34 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	2483	el isButton ifTrue:[
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	2484	insetX := buttonInsetX.
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	2485	insetY := buttonInsetY.
2062 31ba9af25394 checkin from browser Claus Gittinger <cg@exept.de> parents: 2061 diff changeset	2486	] ifFalse:[
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	2487	insetX := labelInsetX.
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	2488	insetY := labelInsetY.
1478 38f08dec8e34 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	2489	].
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	2490	x0 := x + insetX.
2171 90a7393eb53c * empty log message * Claus Gittinger <cg@exept.de> parents: 2170 diff changeset	2491	x1 := x0 + (el preferredExtent x).
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	2492	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	2493	x := x1 + insetX.
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2494
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2495	size ~~ anIndex ifTrue:[
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2496	(self hasGroupDividerAt:anIndex) ifTrue:[
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2497	x := x + groupDividerSize
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2498	] ifFalse:[
2433 49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	2499	el needsItemSpaceWhenDrawing ifTrue:[
1723 f633725a0ace use itemSpace only for horizontal menus and between labeled items ca parents: 1719 diff changeset	2500	x := x + itemSpace
f633725a0ace use itemSpace only for horizontal menus and between labeled items ca parents: 1719 diff changeset	2501	]
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2502	]
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2503	]
1478 38f08dec8e34 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	2504	].
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2505	].
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2506	] ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	2507	itemMargin := self itemMargin.
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2508	x0 := margin.
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	2509	x1 := extent x - margin - itemMargin. "/ -1
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2510
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2511	items keysAndValuesDo:[:anIndex :el\|
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2512	el isVisible ifFalse:[
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2513	el layout:(Rectangle left:x0 top:y right:x1 bottom:y)
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2514	] ifTrue:[
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2515	el isButton ifTrue:[
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	2516	insetX := buttonInsetX.
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	2517	insetY := buttonInsetY.
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2518	] ifFalse:[
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	2519	insetX := labelInsetX.
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	2520	insetY := labelInsetY.
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2521	].
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	2522	y0 := y + insetY.
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2523	y1 := y0 + el preferredExtent y.
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	2524	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	2525	y := y1 + insetY.
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2526
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2527	size ~~ anIndex ifTrue:[
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2528	(self hasGroupDividerAt:anIndex) ifTrue:[
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2529	y := y + groupDividerSize
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2530	]
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2531	]
1478 38f08dec8e34 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	2532	]
38f08dec8e34 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	2533	]
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2534	].
710 4453e463ff16 add new feature: ca parents: 709 diff changeset	2535	self rearrangeGroups.
2048 ba472f3f46c7 code cleanup Claus Gittinger <cg@exept.de> parents: 2047 diff changeset	2536	selection notNil ifTrue:[self makeItemVisible:selection].
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2537	mustRearrange := false.
2048 ba472f3f46c7 code cleanup Claus Gittinger <cg@exept.de> parents: 2047 diff changeset	2538
ba472f3f46c7 code cleanup Claus Gittinger <cg@exept.de> parents: 2047 diff changeset	2539	"Modified: / 13.11.2001 / 20:17:21 / cg"
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2540	!
dce33f8bb806 intitial checkin ca parents: diff changeset	2541
1217 c6a4c536aa8c care for items which change visibility via Claus Gittinger <cg@exept.de> parents: 1212 diff changeset	2542	rearrangeItemsIfItemVisibilityChanged
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2543	"check for items which can change its visibility;
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2544	if at least one item exists, rearrange all items
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2545	"
1464 3070de4c8b88 checkin from browser Claus Gittinger <cg@exept.de> parents: 1459 diff changeset	2546	items isNil ifTrue:[^ self].
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2547
1217 c6a4c536aa8c care for items which change visibility via Claus Gittinger <cg@exept.de> parents: 1212 diff changeset	2548	items do:[:item \|
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	2549	item canChangeVisibility ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	2550	mustRearrange := true.
93426020ceed * empty log message * ca parents: 2216 diff changeset	2551	self rearrangeItems.
93426020ceed * empty log message * ca parents: 2216 diff changeset	2552	^ self
93426020ceed * empty log message * ca parents: 2216 diff changeset	2553	].
1217 c6a4c536aa8c care for items which change visibility via Claus Gittinger <cg@exept.de> parents: 1212 diff changeset	2554	]
c6a4c536aa8c care for items which change visibility via Claus Gittinger <cg@exept.de> parents: 1212 diff changeset	2555	!
c6a4c536aa8c care for items which change visibility via Claus Gittinger <cg@exept.de> parents: 1212 diff changeset	2556
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2557	redrawX:x y:y width:w height:h
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2558	"redraw a damage
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2559	"
2052 61367c7a47aa * empty log message * Claus Gittinger <cg@exept.de> parents: 2051 diff changeset	2560	\|y0 y1 x0 x1 bounds mustDrawPrevScroller mustDrawNextScroller\|
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2561
710 4453e463ff16 add new feature: ca parents: 709 diff changeset	2562	(shown and:[w ~~ 0]) ifFalse:[^ self].
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2563
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2564	mustRearrange ifTrue:[
2569 bfe9e33b545e not ifTrue -> ifFalse Claus Gittinger <cg@exept.de> parents: 2550 diff changeset	2565	self isPopUpView ifFalse:[explicitExtent := true].
1387 ad7a920fdf61 less flicker by using a clipRect in redraw Claus Gittinger <cg@exept.de> parents: 1382 diff changeset	2566	self rearrangeItems.
2569 bfe9e33b545e not ifTrue -> ifFalse Claus Gittinger <cg@exept.de> parents: 2550 diff changeset	2567	self invalidate.
bfe9e33b545e not ifTrue -> ifFalse Claus Gittinger <cg@exept.de> parents: 2550 diff changeset	2568	^ self
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2569	].
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	2570	self paint:(self viewBackground).
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2571	self clearRectangleX:x y:y width:w height:h.
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2572
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2573	items size == 0 ifTrue:[
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2574	^ self
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2575	].
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2576	y0 := y.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2577	y1 := y + h.
2018 2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	2578	x0 := x.
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	2579	x1 := x + w.
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2580
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2581	self hasScrollers ifTrue:[
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2582	(self hasScrollerAt:#PREV) ifTrue:[
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2583	bounds := self scrollerBoundsAt:#PREV.
2052 61367c7a47aa * empty log message * Claus Gittinger <cg@exept.de> parents: 2051 diff changeset	2584	mustDrawPrevScroller := false.
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2585
2018 2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	2586	self verticalLayout ifTrue:[
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	2587	bounds bottom > y ifTrue:[
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	2588	y0 := bounds bottom.
2052 61367c7a47aa * empty log message * Claus Gittinger <cg@exept.de> parents: 2051 diff changeset	2589	mustDrawPrevScroller := true.
2018 2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	2590	].
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	2591	] ifFalse:[
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	2592	bounds right > x ifTrue:[
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	2593	x0 := bounds right.
2052 61367c7a47aa * empty log message * Claus Gittinger <cg@exept.de> parents: 2051 diff changeset	2594	mustDrawPrevScroller := true.
2018 2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	2595	].
2052 61367c7a47aa * empty log message * Claus Gittinger <cg@exept.de> parents: 2051 diff changeset	2596	].
61367c7a47aa * empty log message * Claus Gittinger <cg@exept.de> parents: 2051 diff changeset	2597	mustDrawPrevScroller ifTrue:[
61367c7a47aa * empty log message * Claus Gittinger <cg@exept.de> parents: 2051 diff changeset	2598	self drawScrollerAt:#PREV bounds:bounds.
61367c7a47aa * empty log message * Claus Gittinger <cg@exept.de> parents: 2051 diff changeset	2599	].
1387 ad7a920fdf61 less flicker by using a clipRect in redraw Claus Gittinger <cg@exept.de> parents: 1382 diff changeset	2600	].
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2601
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2602	(self hasScrollerAt:#NEXT) ifTrue:[
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2603	bounds := self scrollerBoundsAt:#NEXT.
2052 61367c7a47aa * empty log message * Claus Gittinger <cg@exept.de> parents: 2051 diff changeset	2604	mustDrawNextScroller := false.
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2605
2018 2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	2606	self verticalLayout ifTrue:[
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	2607	bounds top < y1 ifTrue:[
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	2608	y1 := bounds top.
2052 61367c7a47aa * empty log message * Claus Gittinger <cg@exept.de> parents: 2051 diff changeset	2609	mustDrawNextScroller := true.
2018 2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	2610	]
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	2611	] ifFalse:[
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	2612	bounds left < x1 ifTrue:[
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	2613	x1 := bounds left.
2052 61367c7a47aa * empty log message * Claus Gittinger <cg@exept.de> parents: 2051 diff changeset	2614	mustDrawNextScroller := true.
2018 2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	2615	]
2052 61367c7a47aa * empty log message * Claus Gittinger <cg@exept.de> parents: 2051 diff changeset	2616	].
61367c7a47aa * empty log message * Claus Gittinger <cg@exept.de> parents: 2051 diff changeset	2617	mustDrawNextScroller ifTrue:[
61367c7a47aa * empty log message * Claus Gittinger <cg@exept.de> parents: 2051 diff changeset	2618	self drawScrollerAt:#NEXT bounds:bounds.
61367c7a47aa * empty log message * Claus Gittinger <cg@exept.de> parents: 2051 diff changeset	2619	].
1387 ad7a920fdf61 less flicker by using a clipRect in redraw Claus Gittinger <cg@exept.de> parents: 1382 diff changeset	2620	]
ad7a920fdf61 less flicker by using a clipRect in redraw Claus Gittinger <cg@exept.de> parents: 1382 diff changeset	2621	].
2018 2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	2622	(y1 > y0 and:[x1 > x0]) ifTrue:[
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	2623	self drawItemsX:x0 y:y0 width:(x1 - x0) height:(y1 - y0)
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2624	].
2052 61367c7a47aa * empty log message * Claus Gittinger <cg@exept.de> parents: 2051 diff changeset	2625
61367c7a47aa * empty log message * Claus Gittinger <cg@exept.de> parents: 2051 diff changeset	2626	"Modified: / 15.11.2001 / 20:57:32 / cg"
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2627	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	2628
dce33f8bb806 intitial checkin ca parents: diff changeset	2629	!MenuPanel methodsFor:'enumerting & searching'!
dce33f8bb806 intitial checkin ca parents: diff changeset	2630
dce33f8bb806 intitial checkin ca parents: diff changeset	2631	collect:aOneArgBlock
dce33f8bb806 intitial checkin ca parents: diff changeset	2632	"evaluate the argument, aOneArgBlock for every item in the menuPanel
dce33f8bb806 intitial checkin ca parents: diff changeset	2633	and return a collection of the results
dce33f8bb806 intitial checkin ca parents: diff changeset	2634	"
dce33f8bb806 intitial checkin ca parents: diff changeset	2635	items notNil ifTrue:[^ items collect:aOneArgBlock ].
2059 c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	2636	^ nil
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2637	!
dce33f8bb806 intitial checkin ca parents: diff changeset	2638
dce33f8bb806 intitial checkin ca parents: diff changeset	2639	do:aOneArgBlock
dce33f8bb806 intitial checkin ca parents: diff changeset	2640	"evaluate the argument, aOneArgBlock for every item in the menuPanel.
dce33f8bb806 intitial checkin ca parents: diff changeset	2641	"
dce33f8bb806 intitial checkin ca parents: diff changeset	2642	items notNil ifTrue:[ items do:aOneArgBlock ].
dce33f8bb806 intitial checkin ca parents: diff changeset	2643
dce33f8bb806 intitial checkin ca parents: diff changeset	2644	!
dce33f8bb806 intitial checkin ca parents: diff changeset	2645
dce33f8bb806 intitial checkin ca parents: diff changeset	2646	findFirst:aOneArgBlock
dce33f8bb806 intitial checkin ca parents: diff changeset	2647	"find the first item, for which evaluation of the argument, aOneArgBlock
dce33f8bb806 intitial checkin ca parents: diff changeset	2648	returns true; return its index or 0 if none detected.
dce33f8bb806 intitial checkin ca parents: diff changeset	2649	"
dce33f8bb806 intitial checkin ca parents: diff changeset	2650	items notNil ifTrue:[ ^ items findFirst:aOneArgBlock ].
dce33f8bb806 intitial checkin ca parents: diff changeset	2651	^ 0
dce33f8bb806 intitial checkin ca parents: diff changeset	2652
dce33f8bb806 intitial checkin ca parents: diff changeset	2653	!
dce33f8bb806 intitial checkin ca parents: diff changeset	2654
dce33f8bb806 intitial checkin ca parents: diff changeset	2655	findLast:aOneArgBlock
dce33f8bb806 intitial checkin ca parents: diff changeset	2656	"find the last item, for which evaluation of the argument, aOneArgBlock
dce33f8bb806 intitial checkin ca parents: diff changeset	2657	returns true; return its index or 0 if none detected.
dce33f8bb806 intitial checkin ca parents: diff changeset	2658	"
dce33f8bb806 intitial checkin ca parents: diff changeset	2659	items notNil ifTrue:[ ^ items findLast:aOneArgBlock ].
dce33f8bb806 intitial checkin ca parents: diff changeset	2660	^ 0
dce33f8bb806 intitial checkin ca parents: diff changeset	2661
dce33f8bb806 intitial checkin ca parents: diff changeset	2662	!
dce33f8bb806 intitial checkin ca parents: diff changeset	2663
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2664	indexOf:something
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2665	"returns index of an item assigned to an index, nameKey, textLabel or value if symbol.
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2666	If no item match 0 is returned. No range checks are performed on a number argument
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2667	"
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2668	\|i v\|
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2669
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2670	something isNumber ifTrue:[ ^ something ].
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2671	something isNil ifTrue:[ ^ 0 ].
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2672
1218 6ce43fcb2603 code cleanup Claus Gittinger <cg@exept.de> parents: 1217 diff changeset	2673	i := self findFirst:[:el \| (el nameKey = something) or: [el = something]].
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2674
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2675	i ~~ 0 ifTrue:[
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	2676	^ i
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2677	].
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2678
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2679	something isSymbol ifTrue:[
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	2680	i := self findFirst:[:el\|
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	2681	v := el value.
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	2682	v isSymbol and:[v == something]
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	2683	].
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	2684	i ~~ 0 ifTrue:[
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	2685	^ i
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	2686	]
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2687	].
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2688
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2689	(something respondsTo:#string) ifTrue:[
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	2690	v := something string.
1218 6ce43fcb2603 code cleanup Claus Gittinger <cg@exept.de> parents: 1217 diff changeset	2691	^ self findFirst:[:el \| el textLabel = v].
6ce43fcb2603 code cleanup Claus Gittinger <cg@exept.de> parents: 1217 diff changeset	2692	].
6ce43fcb2603 code cleanup Claus Gittinger <cg@exept.de> parents: 1217 diff changeset	2693	^ 0
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2694	!
dce33f8bb806 intitial checkin ca parents: diff changeset	2695
706 d716edbdbe47 show separators bug cleaned tz parents: 689 diff changeset	2696	indexOfItem:anItem
d716edbdbe47 show separators bug cleaned tz parents: 689 diff changeset	2697	"returns the index of the item or 0
d716edbdbe47 show separators bug cleaned tz parents: 689 diff changeset	2698	"
d716edbdbe47 show separators bug cleaned tz parents: 689 diff changeset	2699	^ items notNil ifTrue:[items identityIndexOf:anItem] ifFalse:[0]
d716edbdbe47 show separators bug cleaned tz parents: 689 diff changeset	2700	!
d716edbdbe47 show separators bug cleaned tz parents: 689 diff changeset	2701
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2702	keysAndValuesDo:aTwoArgBlock
dce33f8bb806 intitial checkin ca parents: diff changeset	2703	"evaluate the argument, aTwoArgBlock for every item in the menuPanel.
dce33f8bb806 intitial checkin ca parents: diff changeset	2704	"
dce33f8bb806 intitial checkin ca parents: diff changeset	2705	items notNil ifTrue:[ items keysAndValuesDo:aTwoArgBlock ].
dce33f8bb806 intitial checkin ca parents: diff changeset	2706
dce33f8bb806 intitial checkin ca parents: diff changeset	2707	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	2708
dce33f8bb806 intitial checkin ca parents: diff changeset	2709	!MenuPanel methodsFor:'event handling'!
dce33f8bb806 intitial checkin ca parents: diff changeset	2710
dce33f8bb806 intitial checkin ca parents: diff changeset	2711	buttonMotion:state x:x y:y
dce33f8bb806 intitial checkin ca parents: diff changeset	2712	"open or close the corresponding submenus
dce33f8bb806 intitial checkin ca parents: diff changeset	2713	"
2046 012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	2714	\|menue motionPoint translatedPoint sensor\|
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2715
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	2716	self scrollActivity isActive ifTrue:[
2347 9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	2717	^ self
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2718	].
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2719
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2720	sensor := self sensor.
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2721
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2722	(sensor isNil or:[sensor hasButtonMotionEventFor:nil]) ifTrue:[
2347 9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	2723	^ self
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2724	].
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2725	menue := self detectGrabMenu.
1841 5d01716cc37c implement: triggerOnDown ca parents: 1836 diff changeset	2726
2046 012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	2727	motionPoint := x@y.
012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	2728	translatedPoint := menue translateGrabPoint:motionPoint.
2048 ba472f3f46c7 code cleanup Claus Gittinger <cg@exept.de> parents: 2047 diff changeset	2729	menue handleButtonMotion:state atPoint:translatedPoint.
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2730
2347 9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	2731	hideOnRelease := true.
9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	2732
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2733	(self isPopUpView or:[sensor anyButtonPressed]) ifTrue:[
2347 9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	2734	^ self
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2735	].
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2736
1786 f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	2737	(selection notNil and:[selection visibleSubmenu isNil]) ifTrue:[
2347 9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	2738	"/ selection on grabView withou a submenu (Button ...); check whether moving out
9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	2739	(self containsPoint:motionPoint) ifFalse:[
9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	2740	^ self accept:nil
9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	2741	]
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2742	].
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2743
2048 ba472f3f46c7 code cleanup Claus Gittinger <cg@exept.de> parents: 2047 diff changeset	2744	"Modified: / 13.11.2001 / 20:21:49 / cg"
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2745	!
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2746
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2747	buttonPress:button x:x y:y
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2748	"any button pressed; open or close the corresponding submenus
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2749	"
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2750	\|menu point\|
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2751
2347 9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	2752	hideOnRelease := true.
9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	2753
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	2754	self scrollActivity stop.
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2755	point := x@y.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2756	menu := self detectMenuAtGrabPoint:point.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2757
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2758	menu isNil ifTrue:[
2133 293dadf237ad hide on buttonRelease outside (instead of buttonPress outside) Claus Gittinger <cg@exept.de> parents: 2132 diff changeset	2759	"/ self accept:nil
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2760	] ifFalse:[
2347 9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	2761	point := menu translateGrabPoint:point.
9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	2762	menu handleButtonPressAtPoint:point.
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2763	]
2046 012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	2764
012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	2765	"Modified: / 13.11.2001 / 14:12:32 / cg"
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2766	!
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2767
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2768	buttonRelease:button x:x y:y
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2769	"button release action; accept selection and close all views
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2770	"
2679 302ab06d7110 * empty log message * Claus Gittinger <cg@exept.de> parents: 2676 diff changeset	2771	\|topMenu dstMenu item srcPoint dstPoint subm hideMenuAndPerformAction
302ab06d7110 * empty log message * Claus Gittinger <cg@exept.de> parents: 2676 diff changeset	2772	buttonReleaseTime menuOpenTime ev\|
2199 61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	2773
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	2774	topMenu := self topMenu.
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	2775	topMenu openDelayed:nil.
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2776
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	2777	self scrollActivity stop ifTrue:[
2255 e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2778	^ self
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2779	].
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2780
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2781	dstMenu := topMenu activeMenu.
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2782
2679 302ab06d7110 * empty log message * Claus Gittinger <cg@exept.de> parents: 2676 diff changeset	2783	hideMenuAndPerformAction := dstMenu selection notNil or:[dstMenu isPopUpView not].
302ab06d7110 * empty log message * Claus Gittinger <cg@exept.de> parents: 2676 diff changeset	2784
302ab06d7110 * empty log message * Claus Gittinger <cg@exept.de> parents: 2676 diff changeset	2785	hideMenuAndPerformAction ifFalse:[
302ab06d7110 * empty log message * Claus Gittinger <cg@exept.de> parents: 2676 diff changeset	2786	hideOnRelease ifTrue:[
302ab06d7110 * empty log message * Claus Gittinger <cg@exept.de> parents: 2676 diff changeset	2787	buttonReleaseTime := Time millisecondClockValue.
302ab06d7110 * empty log message * Claus Gittinger <cg@exept.de> parents: 2676 diff changeset	2788	menuOpenTime := dstMenu mapTime.
302ab06d7110 * empty log message * Claus Gittinger <cg@exept.de> parents: 2676 diff changeset	2789	"/ t := windowGroup lastEvent timeStamp.
302ab06d7110 * empty log message * Claus Gittinger <cg@exept.de> parents: 2676 diff changeset	2790	hideMenuAndPerformAction := (OperatingSystem millisecondTimeDeltaBetween:buttonReleaseTime and:menuOpenTime)
302ab06d7110 * empty log message * Claus Gittinger <cg@exept.de> parents: 2676 diff changeset	2791	> (PopUpMenu maxClickTimeToStayOpen).
302ab06d7110 * empty log message * Claus Gittinger <cg@exept.de> parents: 2676 diff changeset	2792	].
302ab06d7110 * empty log message * Claus Gittinger <cg@exept.de> parents: 2676 diff changeset	2793	].
302ab06d7110 * empty log message * Claus Gittinger <cg@exept.de> parents: 2676 diff changeset	2794
302ab06d7110 * empty log message * Claus Gittinger <cg@exept.de> parents: 2676 diff changeset	2795	hideMenuAndPerformAction ifTrue:[
2255 e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2796	srcPoint := x@y.
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2797
2255 e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2798	( (dstMenu := self detectMenuAtGrabPoint:srcPoint) notNil
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2799	and:[(item := dstMenu selection) notNil]
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2800	) ifTrue:[
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2801	item visibleSubmenu notNil ifTrue:[
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2802	dstMenu selection:nil.
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2803
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2804	(selection isNil and:[self isPopUpView not]) ifTrue:[
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2805	self accept:nil
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2806	].
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2807	^ self
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2808
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2809	].
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2810	subm := item currentSubmenu.
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2811
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	2812	subm notNil ifTrue:[
2255 e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2813	subm shown ifTrue:[^ self].
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2814	"/ test whether any action is assigned to the menu
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2815	"/ if not ignorre accept
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2816	item hasDelayedMenu ifFalse:[^ self].
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2817	"/ handle action defined for the delayed menu
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2818	].
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2819	dstPoint := dstMenu translateGrabPoint:srcPoint.
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2820
2347 9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	2821	(dstMenu itemAtPoint:dstPoint) == dstMenu selection ifFalse:[
2255 e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2822	item := nil
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2823	].
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2824	topMenu acceptItem:item inMenu:dstMenu.
2347 9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	2825	^ self
2255 e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2826	].
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2827
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2828	(selection notNil and:[dstMenu == self]) ifTrue:[
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2829	selection visibleSubmenu notNil ifTrue:[
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2830	^ self
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2831	]
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2832	].
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2833	self accept:nil.
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2834	].
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2835	!
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2836
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2837	keyPress:key x:x y:y
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2838	"any key is pressed
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2839	"
2251 30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	2840	\|menu superMenu sensor\|
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	2841
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	2842	sensor := self sensor.
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	2843	sensor isNil ifTrue:[^ self].
2251 30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	2844
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	2845	sensor anyButtonPressed ifTrue:[
2482 13acaaf02528 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 2481 diff changeset	2846	^ self "/ ignored while any button is pressed
2251 30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	2847	].
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2848
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	2849	self scrollActivity isActive ifTrue:[
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2850	key ~~ #Escape ifTrue:[
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2851	^ self
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2852	].
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	2853	self scrollActivity stop
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2854	].
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2855
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2856	(key == #Tab
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2857	or:[key == #FocusNext
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2858	or:[key == #FocusPrevious]]) ifTrue:[
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2859	self accept:nil.
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	2860	^ super keyPress:key x:x y:y
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2861	].
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2862
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2863	menu := self detectGrabMenu.
2251 30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	2864	superMenu := menu superMenu.
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2865
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2866	key == #Escape ifTrue:[
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2867	"/ must hide the active menu
2251 30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	2868	(superMenu notNil and:[superMenu ~~ self]) ifTrue:[
1703 e127eff742bb bugfix: request focus ca parents: 1701 diff changeset	2869	"/ hide active menu but keep the grab
2251 30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	2870	superMenu selection:nil
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2871	] ifFalse:[
1703 e127eff742bb bugfix: request focus ca parents: 1701 diff changeset	2872	"/ hide active menu and ungrab
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2873	self accept:nil
2251 30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	2874	].
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	2875	^ self
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	2876	].
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	2877
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	2878	menu isViewWrapper ifFalse:[
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	2879	sensor compressKeyPressEventsWithKey:key.
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	2880	menu handleKeyPress:key.
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	2881	^ self
2251 30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	2882	].
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	2883	superMenu == self ifFalse:[^ self].
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	2884
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	2885	"/ allow cursor movement
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	2886	(key == #CursorLeft or:[key == #CursorRight]) ifTrue:[
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	2887	(self containsPoint:x@y) ifTrue:[
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	2888	self handleKeyPress:key.
1786 f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	2889	]
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	2890	].
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2891	!
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2892
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2893	pointerLeave:state
2255 e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2894	\|sensor\|
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2895
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	2896	self scrollActivity isActive ifTrue:[^ self].
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2897
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2898	self detectGrabMenu handlePointerLeave:state.
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2899
2255 e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2900	(selection isNil or:[self isPopUpView]) ifTrue:[
2251 30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	2901	^ self
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	2902	].
2255 e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2903
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	2904	selection visibleSubmenu notNil ifTrue:[^ self].
2255 e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2905
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2906	windowGroup focusView ~~ self ifTrue:[
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2907	self accept:nil
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2908	] ifFalse:[
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2909	selection isButton ifTrue:[
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2910	sensor := self sensor.
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2911
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2912	sensor isNil ifTrue:[
2251 30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	2913	self accept:nil
2255 e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2914	] ifFalse:[
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2915	"/ I'have the focus; if no button pressed, than keep the selection
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2916	sensor anyButtonPressed ifTrue:[
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2917	self selection:nil
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2918	]
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2919	].
2251 30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	2920	]
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2921	].
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2922	!
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2923
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2924	sizeChanged:how
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2925	"redraw #right groups
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2926	"
2018 2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	2927	self isPopUpView ifFalse:[
2659 3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	2928	mustRearrange := true.
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	2929	self invalidate
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2930	].
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2931	super sizeChanged:how
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2932	! !
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2933
2503 4f34d55dae21 method category rename Claus Gittinger <cg@exept.de> parents: 2488 diff changeset	2934	!MenuPanel methodsFor:'event handling-processing'!
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2935
1767 e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	2936	clearImplicitGrab
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	2937	implicitGrabView := lastPointerView := nil.
1767 e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	2938	!
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	2939
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	2940	dispatchEvent:ev withFocusOn:focusView delegate:doDelegate
2482 13acaaf02528 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 2481 diff changeset	2941	"dispatch and handle an event"
13acaaf02528 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 2481 diff changeset	2942
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	2943	\|view x y p syntheticEvent menu\|
1767 e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	2944
2658 04f9fdd74b8e event handling Claus Gittinger <cg@exept.de> parents: 2652 diff changeset	2945	ev isDamage ifTrue:[
04f9fdd74b8e event handling Claus Gittinger <cg@exept.de> parents: 2652 diff changeset	2946	^ super dispatchEvent:ev withFocusOn:focusView delegate:false.
04f9fdd74b8e event handling Claus Gittinger <cg@exept.de> parents: 2652 diff changeset	2947	].
04f9fdd74b8e event handling Claus Gittinger <cg@exept.de> parents: 2652 diff changeset	2948
1767 e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	2949	"/ situation: we get a buttonPress, set implicitGrab (for scrollbars etc.)
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	2950	"/ but never get the buttonRelease, since someone else (a popUp) grabbed the
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	2951	"/ pointer in the meantime, and has eaten the release event ... (double-sigh)
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	2952	implicitGrabView notNil ifTrue:[
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	2953	self sensor leftButtonPressed ifFalse:[
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	2954	self clearImplicitGrab.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	2955	].
1767 e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	2956	].
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	2957
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	2958	((x := ev x) isNil or:[(y := ev y) isNil]) ifTrue:[
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	2959	^ super dispatchEvent:ev withFocusOn:focusView delegate:false.
1767 e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	2960	].
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	2961
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	2962	implicitGrabView notNil ifTrue:[
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	2963	ev isButtonEvent ifTrue:[
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	2964	p := device translatePoint:(x@y) fromView:self toView:implicitGrabView.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	2965	ev view:implicitGrabView.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	2966	ev arguments at:2 put:p x.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	2967	ev arguments at:3 put:p y.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	2968	implicitGrabView dispatchEvent:ev withFocusOn:focusView delegate:false.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	2969
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	2970	ev isButtonReleaseEvent ifTrue:[
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	2971	self clearImplicitGrab.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	2972	].
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	2973	^ self
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	2974	]
1767 e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	2975	].
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	2976	menu := self detectMenuAtGrabPoint:(x@y).
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	2977
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2978	(menu isNil or:[menu isViewWrapper not]) ifTrue:[
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	2979	self clearImplicitGrab.
1767 e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	2980	^ super dispatchEvent:ev withFocusOn:focusView delegate:false
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	2981	].
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	2982
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	2983	p := menu translateGrabPoint:(x@y).
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	2984	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	2985	p := device translatePoint:(x@y) fromView:self toView:view.
1767 e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	2986
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	2987	ev isButtonPressEvent ifTrue:[
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	2988	(view wantsFocusWithButtonPress) ifTrue:[
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	2989	view requestFocus.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	2990	].
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	2991	view ~~ self ifTrue:[ "/ can this ever be self ?
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	2992	implicitGrabView := view.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	2993	]
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	2994	].
1767 e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	2995
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	2996	ev isButtonMotionEvent ifTrue:[
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	2997	lastPointerView ~~ view ifTrue:[
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	2998	"/ must generate enter/leave ... (sigh)
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	2999	lastPointerView notNil ifTrue:[
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	3000	"/ XXX: should be fixed
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	3001	syntheticEvent := WindowEvent pointerLeave:0 view:lastPointerView.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	3002	lastPointerView dispatchEvent:syntheticEvent withFocusOn:nil delegate:false.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	3003	].
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	3004	view notNil ifTrue:[
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	3005	syntheticEvent := WindowEvent pointerEnter:0 x:x y:y view:view.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	3006	view dispatchEvent:syntheticEvent withFocusOn:nil delegate:false.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	3007	].
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	3008	lastPointerView := view.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	3009	].
1767 e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	3010	].
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	3011
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	3012	ev view:view.
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	3013	ev x:p x.
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	3014	ev y:p y.
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	3015	view dispatchEvent:ev withFocusOn:focusView delegate:false.
2020 1f1868eba475 extracted common code to detectViewAt:aPoint. Claus Gittinger <cg@exept.de> parents: 2018 diff changeset	3016
1f1868eba475 extracted common code to detectViewAt:aPoint. Claus Gittinger <cg@exept.de> parents: 2018 diff changeset	3017	"Modified: / 10.10.2001 / 13:54:47 / cg"
1767 e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	3018	!
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	3019
2048 ba472f3f46c7 code cleanup Claus Gittinger <cg@exept.de> parents: 2047 diff changeset	3020	handleButtonMotion:state atPoint:motionPoint
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3021	"open or close the corresponding submenus
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3022	"
2251 30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3023	\|menu item translatedPoint containsPoint\|
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3024
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3025	containsPoint := self containsPoint:motionPoint.
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3026	containsPoint ifTrue:[ item := self itemAtPoint:motionPoint ]
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3027	ifFalse:[ item := nil ].
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3028
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3029	self pointerEntersItem:item.
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3030
1910 119f91172b70 * empty log message * Claus Gittinger <cg@exept.de> parents: 1902 diff changeset	3031	(state == 0 or:[self sensor anyButtonPressed not]) ifTrue:[
2251 30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3032	"/ only update pointerEnter
2048 ba472f3f46c7 code cleanup Claus Gittinger <cg@exept.de> parents: 2047 diff changeset	3033	^ self
ba472f3f46c7 code cleanup Claus Gittinger <cg@exept.de> parents: 2047 diff changeset	3034	].
ba472f3f46c7 code cleanup Claus Gittinger <cg@exept.de> parents: 2047 diff changeset	3035
2251 30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3036	containsPoint ifTrue:[
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3037	self selection:item openMenu:true.
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	3038	^ self
2251 30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3039	].
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3040
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3041	menu := self superMenuAtPoint:motionPoint.
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3042
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	3043	menu notNil ifTrue:[
2046 012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	3044	translatedPoint := self translateMenuPoint:motionPoint toMenu:menu.
2251 30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3045	menu handleButtonMotion:state atPoint:translatedPoint.
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	3046	^ self
2251 30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3047	].
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3048	self isPopUpView ifTrue:[
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3049	self selection:nil
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3050	].
2046 012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	3051	!
012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	3052
012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	3053	handleButtonPressAtPoint:aPoint
2482 13acaaf02528 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 2481 diff changeset	3054	"a button pressed; open or close the corresponding submenus"
13acaaf02528 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 2481 diff changeset	3055
2251 30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3056	\| item sensor direction wasSelected\|
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	3057
2046 012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	3058	item := self itemAtPoint:aPoint.
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	3059	item isNil ifTrue:[
2251 30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3060	self selection:nil openMenu:false.
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	3061	^ self
2251 30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3062	].
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3063
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3064	direction := self scrollerDirectionAtPoint:aPoint.
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3065	direction notNil ifTrue:[
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3066	(self scrollActivity startIfRequiredAt:direction on:self) ifTrue:[
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3067	self pointerEntersItem:nil.
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3068	^ self
2238 68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3069	]
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	3070	].
2251 30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3071
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3072	wasSelected := (selection == item).
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3073	wasSelected ifFalse:[
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3074	self selection:item openMenu:true
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3075	].
2199 61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	3076	item hasDelayedMenu ifTrue:[^ self].
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	3077
2238 68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3078	(item isToggle or:[item triggerOnDown]) ifFalse:[
2251 30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3079	(wasSelected and:[item hasSubmenu and:[item visibleSubmenu isNil]]) ifTrue:[
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3080	item toggleSubmenuVisibility
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3081	].
2238 68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3082	^ self
68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3083	].
68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3084	(item canAccept and:[item == self selection]) ifFalse:[
68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3085	^ self
68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3086	].
68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3087	self invalidateItem:item repairNow:true.
68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3088	self acceptItem:item inMenu:self.
68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3089
2482 13acaaf02528 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 2481 diff changeset	3090	sensor := self sensor.
13acaaf02528 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 2481 diff changeset	3091	[sensor anyButtonPressed] whileTrue:[ Delay waitForSeconds:0.1 ].
13acaaf02528 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 2481 diff changeset	3092	sensor flushUserEvents.
2238 68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3093	self selection:nil.
2046 012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	3094
012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	3095	"Created: / 13.11.2001 / 14:12:04 / cg"
2047 62de65e3a61b initial delay; autoRepeat delay Claus Gittinger <cg@exept.de> parents: 2046 diff changeset	3096	"Modified: / 13.11.2001 / 19:50:52 / cg"
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	3097	!
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	3098
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3099	handleCursorKey:aKey
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3100	"handle a cursor key
dce33f8bb806 intitial checkin ca parents: diff changeset	3101	"
1786 f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3102	\|next menu item isVrt backKey p1 p2
2354 1bd2ac73b73c cursorUp/Down behavior Claus Gittinger <cg@exept.de> parents: 2347 diff changeset	3103	idx0 "{ Class:SmallInteger }"
687 23ce9888d76f bug fixes: ca parents: 681 diff changeset	3104	idx "{ Class:SmallInteger }"
1705 201f9ce1b2d2 checkin from browser ca parents: 1704 diff changeset	3105	size "{ Class:SmallInteger }"
687 23ce9888d76f bug fixes: ca parents: 681 diff changeset	3106	\|
1786 f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3107	(size := items size) == 0 ifTrue:[
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3108	superMenu notNil ifTrue:[superMenu handleCursorKey:aKey].
2354 1bd2ac73b73c cursorUp/Down behavior Claus Gittinger <cg@exept.de> parents: 2347 diff changeset	3109	^ self
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3110	].
1786 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	isVrt := self verticalLayout.
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3113
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	3114
1786 f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3115	( (isVrt and:[aKey == #CursorUp or:[aKey == #CursorDown]])
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3116	or:[(isVrt not and:[aKey == #CursorRight or:[aKey == #CursorLeft]])]
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3117	) ifTrue:[
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3118	selection isNil ifTrue:[
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3119	(superMenu notNil and:[superMenu verticalLayout == isVrt]) ifTrue:[
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3120	^ superMenu handleCursorKey:aKey
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3121	].
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	3122	idx := 0.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	3123
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	3124	isVrt ifTrue:[
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	3125	"/ used because of vertical scrolling
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	3126	idx := items findFirst:[:el\| el layout top > 0 ].
2354 1bd2ac73b73c cursorUp/Down behavior Claus Gittinger <cg@exept.de> parents: 2347 diff changeset	3127	idx ~~ 0 ifTrue:[idx := idx - 1 ]
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	3128	].
1786 f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3129	] ifFalse:[
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	3130	idx := self indexOf:selection.
1786 f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3131	].
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3132	next := aKey == #CursorRight or:[aKey == #CursorDown].
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3133
2354 1bd2ac73b73c cursorUp/Down behavior Claus Gittinger <cg@exept.de> parents: 2347 diff changeset	3134	idx0 := idx.
1bd2ac73b73c cursorUp/Down behavior Claus Gittinger <cg@exept.de> parents: 2347 diff changeset	3135	size timesRepeat:[
1bd2ac73b73c cursorUp/Down behavior Claus Gittinger <cg@exept.de> parents: 2347 diff changeset	3136	\|el\|
1bd2ac73b73c cursorUp/Down behavior Claus Gittinger <cg@exept.de> parents: 2347 diff changeset	3137
1bd2ac73b73c cursorUp/Down behavior Claus Gittinger <cg@exept.de> parents: 2347 diff changeset	3138	next ifTrue:[idx := idx + 1] ifFalse:[idx := idx - 1].
1bd2ac73b73c cursorUp/Down behavior Claus Gittinger <cg@exept.de> parents: 2347 diff changeset	3139
1bd2ac73b73c cursorUp/Down behavior Claus Gittinger <cg@exept.de> parents: 2347 diff changeset	3140	idx > size ifTrue:[
1bd2ac73b73c cursorUp/Down behavior Claus Gittinger <cg@exept.de> parents: 2347 diff changeset	3141	idx := 0 "1"
1bd2ac73b73c cursorUp/Down behavior Claus Gittinger <cg@exept.de> parents: 2347 diff changeset	3142	] ifFalse:[
1bd2ac73b73c cursorUp/Down behavior Claus Gittinger <cg@exept.de> parents: 2347 diff changeset	3143	idx < 0 ifTrue:[
1bd2ac73b73c cursorUp/Down behavior Claus Gittinger <cg@exept.de> parents: 2347 diff changeset	3144	idx := size
1bd2ac73b73c cursorUp/Down behavior Claus Gittinger <cg@exept.de> parents: 2347 diff changeset	3145	]
1bd2ac73b73c cursorUp/Down behavior Claus Gittinger <cg@exept.de> parents: 2347 diff changeset	3146	].
1bd2ac73b73c cursorUp/Down behavior Claus Gittinger <cg@exept.de> parents: 2347 diff changeset	3147
1bd2ac73b73c cursorUp/Down behavior Claus Gittinger <cg@exept.de> parents: 2347 diff changeset	3148	idx == 0 ifTrue:[
1bd2ac73b73c cursorUp/Down behavior Claus Gittinger <cg@exept.de> parents: 2347 diff changeset	3149	self selection:nil.
1bd2ac73b73c cursorUp/Down behavior Claus Gittinger <cg@exept.de> parents: 2347 diff changeset	3150	^ self
1bd2ac73b73c cursorUp/Down behavior Claus Gittinger <cg@exept.de> parents: 2347 diff changeset	3151	] ifFalse:[
1bd2ac73b73c cursorUp/Down behavior Claus Gittinger <cg@exept.de> parents: 2347 diff changeset	3152	(el := items at:idx ifAbsent:nil) notNil ifTrue:[
1bd2ac73b73c cursorUp/Down behavior Claus Gittinger <cg@exept.de> parents: 2347 diff changeset	3153	el canSelect ifTrue:[
1bd2ac73b73c cursorUp/Down behavior Claus Gittinger <cg@exept.de> parents: 2347 diff changeset	3154	el hasDelayedMenu ifTrue:[
1bd2ac73b73c cursorUp/Down behavior Claus Gittinger <cg@exept.de> parents: 2347 diff changeset	3155	"/ do not open menu
1bd2ac73b73c cursorUp/Down behavior Claus Gittinger <cg@exept.de> parents: 2347 diff changeset	3156	self selection:el openMenu:false
1bd2ac73b73c cursorUp/Down behavior Claus Gittinger <cg@exept.de> parents: 2347 diff changeset	3157	] ifFalse:[
1bd2ac73b73c cursorUp/Down behavior Claus Gittinger <cg@exept.de> parents: 2347 diff changeset	3158	"/ open comes from style-sheet
1bd2ac73b73c cursorUp/Down behavior Claus Gittinger <cg@exept.de> parents: 2347 diff changeset	3159	self selection:el.
1bd2ac73b73c cursorUp/Down behavior Claus Gittinger <cg@exept.de> parents: 2347 diff changeset	3160	].
1bd2ac73b73c cursorUp/Down behavior Claus Gittinger <cg@exept.de> parents: 2347 diff changeset	3161	^ self
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	3162	].
2354 1bd2ac73b73c cursorUp/Down behavior Claus Gittinger <cg@exept.de> parents: 2347 diff changeset	3163	]
1bd2ac73b73c cursorUp/Down behavior Claus Gittinger <cg@exept.de> parents: 2347 diff changeset	3164	].
1bd2ac73b73c cursorUp/Down behavior Claus Gittinger <cg@exept.de> parents: 2347 diff changeset	3165	idx == idx0 ifTrue:[
1bd2ac73b73c cursorUp/Down behavior Claus Gittinger <cg@exept.de> parents: 2347 diff changeset	3166	^ self
1bd2ac73b73c cursorUp/Down behavior Claus Gittinger <cg@exept.de> parents: 2347 diff changeset	3167	].
1786 f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3168	].
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3169	^ self
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3170	].
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3171
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3172	superMenu notNil ifTrue:[
1791 bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	3173	p1 := self translateGrabPoint:0.
bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	3174	p2 := superMenu translateGrabPoint:0.
1786 f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3175	].
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3176
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3177	isVrt ifTrue:[
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3178	(superMenu notNil and:[p1 x > p2 x]) ifTrue:[
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3179	backKey := #CursorRight
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3180	] ifFalse:[
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3181	backKey := #CursorLeft.
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3182	]
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3183	] ifFalse:[
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3184	(superMenu notNil and:[p1 y > p2 y]) ifTrue:[
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3185	backKey := #CursorDown
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3186	] ifFalse:[
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3187	backKey := #CursorUp.
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3188	]
1786 f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3189	].
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3190
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3191	aKey == backKey ifTrue:[
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3192	superMenu isNil ifTrue:[
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3193	self accept:nil
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3194	] ifFalse:[
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3195	superMenu verticalLayout ~~ isVrt ifTrue:[
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3196	superMenu handleCursorKey:aKey
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3197	] ifFalse:[
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3198	superMenu selection hideSubmenu
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3199	]
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3200	].
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3201	^ self
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3202	].
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3203
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3204	selection isNil ifTrue:[
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3205	superMenu isNil ifTrue:[^ self accept:nil].
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3206
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3207	superMenu verticalLayout ~~ isVrt ifTrue:[
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3208	superMenu handleCursorKey:aKey
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3209	] ifFalse:[
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3210	(item := items findFirst:[:el\| el canSelect]) notNil ifTrue:[
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	3211	self selectionIndex:item
1786 f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3212	]
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3213	].
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3214	^ self
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
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3217	selection hasSubmenu ifTrue:[
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3218	(menu := selection visibleSubmenu) isNil ifTrue:[
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3219	selection toggleSubmenuVisibility
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3220	] ifFalse:[
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3221	menu selectionIndex:1
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3222	]
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3223	] ifFalse:[
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3224	superMenu notNil ifTrue:[
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3225	superMenu verticalLayout ~~ isVrt ifTrue:[
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3226	superMenu handleCursorKey:aKey
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3227	]
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3228	] ifFalse:[
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3229	self accept:nil
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3230	]
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3231	].
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3232	!
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3233
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3234	handleKeyPress:key
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3235	"any key is pressed
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3236	"
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	3237	\|item inMenu\|
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3238
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3239	(key == #Return or:[key == Character space]) ifTrue:[
1786 f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3240	self handleReturnPressed
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3241	] ifFalse:[
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3242	key isCharacter ifTrue:[
1862 ffbe4c06defd handleKeyPress: search character-key in wrapped menu ca parents: 1853 diff changeset	3243	"/ selection notNil ifTrue:[
ffbe4c06defd handleKeyPress: search character-key in wrapped menu ca parents: 1853 diff changeset	3244	"/ inMenu := self
ffbe4c06defd handleKeyPress: search character-key in wrapped menu ca parents: 1853 diff changeset	3245	"/ ] ifFalse:[
ffbe4c06defd handleKeyPress: search character-key in wrapped menu ca parents: 1853 diff changeset	3246	"/ (inMenu := superMenu) isNil ifTrue:[^ self].
ffbe4c06defd handleKeyPress: search character-key in wrapped menu ca parents: 1853 diff changeset	3247	"/ ].
ffbe4c06defd handleKeyPress: search character-key in wrapped menu ca parents: 1853 diff changeset	3248	inMenu := self.
1786 f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3249
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3250	(item := inMenu detectItemForKey:key) notNil ifTrue:[
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3251	inMenu selection:item
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3252	]
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3253	] ifFalse:[
1786 f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3254	( key == #CursorDown or:[key == #CursorUp
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3255	or:[key == #CursorLeft or:[key == #CursorRight]]]
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3256	) ifTrue:[
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3257	self handleCursorKey:key
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3258	]
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3259	]
1889 43516e4588ce give warning messages for unimplemented menu-aspects Claus Gittinger <cg@exept.de> parents: 1878 diff changeset	3260	]
43516e4588ce give warning messages for unimplemented menu-aspects Claus Gittinger <cg@exept.de> parents: 1878 diff changeset	3261	!
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3262
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3263	handlePointerLeave:state
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3264	self pointerEntersItem:nil.
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3265	super pointerLeave:state
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3266	!
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3267
1786 f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3268	handleReturnPressed
2482 13acaaf02528 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 2481 diff changeset	3269	"any key is pressed"
13acaaf02528 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 2481 diff changeset	3270
2238 68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3271	\|sensor subm item\|
68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3272
68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3273	(item := selection) isNil ifTrue:[
68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3274	superMenu notNil ifTrue:[
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	3275	item := superMenu selection.
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	3276
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	3277	item value notNil ifTrue:[
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	3278	"/ is a delayed menu
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	3279	self accept:item
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	3280	] ifFalse:[
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	3281	item toggleSubmenuVisibility
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	3282	]
2238 68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3283	] ifFalse:[
68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3284	self accept
68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3285	].
68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3286	^ self
1841 5d01716cc37c implement: triggerOnDown ca parents: 1836 diff changeset	3287	].
5d01716cc37c implement: triggerOnDown ca parents: 1836 diff changeset	3288	selection hasSubmenu ifTrue:[
2238 68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3289	selection hasDelayedMenu ifFalse:[
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	3290	selection toggleSubmenuVisibility.
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	3291	^ self
2238 68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3292	].
68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3293	subm := selection currentSubmenu.
68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3294
68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3295	(subm notNil and:[subm shown]) ifTrue:[
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	3296	selection toggleSubmenuVisibility.
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	3297	^ self
2238 68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3298	].
68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3299	self openDelayed:nil
1841 5d01716cc37c implement: triggerOnDown ca parents: 1836 diff changeset	3300	].
5d01716cc37c implement: triggerOnDown ca parents: 1836 diff changeset	3301	self accept.
5d01716cc37c implement: triggerOnDown ca parents: 1836 diff changeset	3302
2238 68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3303	" test for toggle "
68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3304	item isToggle ifTrue:[
68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3305	self selection:item.
68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3306	] ifFalse:[
68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3307	(selection notNil and:[selection triggerOnDown]) ifFalse:[
68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3308	^ self
68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3309	]
68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3310	].
1841 5d01716cc37c implement: triggerOnDown ca parents: 1836 diff changeset	3311
5d01716cc37c implement: triggerOnDown ca parents: 1836 diff changeset	3312	(sensor := self sensor) isNil ifTrue:[
2238 68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3313	^ self
1841 5d01716cc37c implement: triggerOnDown ca parents: 1836 diff changeset	3314	].
5d01716cc37c implement: triggerOnDown ca parents: 1836 diff changeset	3315
2482 13acaaf02528 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 2481 diff changeset	3316	[
13acaaf02528 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 2481 diff changeset	3317	sensor flushKeyboardFor:nil.
2238 68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3318	Delay waitForSeconds:0.1.
68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3319	sensor hasKeyPressEventFor:nil.
1841 5d01716cc37c implement: triggerOnDown ca parents: 1836 diff changeset	3320	] whileTrue.
1786 f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3321	!
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3322
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3323	pointerEntersItem:anItemOrNil
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3324	"the pointer moves over an item or nil; restore the old item and
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3325	redraw the new item highlighted.
1690 38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3326	"
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3327	\|oldItem newItem\|
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3328
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3329	( anItemOrNil notNil
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3330	and:[anItemOrNil canSelect
1690 38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3331	and:[selection isNil
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3332	and:[self isPopUpView not]]]) ifTrue:[
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3333	anItemOrNil isButton ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	3334	( self buttonEnteredBackgroundColor ~= self buttonPassiveBackgroundColor
93426020ceed * empty log message * ca parents: 2216 diff changeset	3335	or:[self buttonEnteredLevel ~= self buttonPassiveLevel]
1690 38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3336	) ifTrue:[
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3337	newItem := anItemOrNil
1690 38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3338	]
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3339	] ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	3340	(self enteredLevel ~~ 0
93426020ceed * empty log message * ca parents: 2216 diff changeset	3341	or:[self enteredBackgroundColor ~= self backgroundColor]
93426020ceed * empty log message * ca parents: 2216 diff changeset	3342	) ifTrue:[
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3343	newItem := anItemOrNil
1690 38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3344	]
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3345	]
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3346	].
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3347
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3348	newItem ~~ enteredItem ifTrue:[
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3349	oldItem := enteredItem.
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3350	enteredItem := newItem.
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3351
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3352	oldItem notNil ifTrue:[
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3353	self invalidateItem:oldItem repairNow:(enteredItem isNil).
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3354	].
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3355
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3356	enteredItem notNil ifTrue:[
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3357	self invalidateItem:enteredItem repairNow:true.
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3358	].
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3359	].
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3360	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	3361
2251 30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3362	!MenuPanel methodsFor:'focus handling'!
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3363
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3364	hasKeyboardFocus:aBoolean
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3365	"notification from the windowGroup that I got/lost the keyboard focus.
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3366	"
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3367	\|focusView\|
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3368
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3369	self isPopUpView ifTrue:[
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3370	"/ not visible for popup menus
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3371	^ super hasKeyboardFocus:aBoolean
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3372	].
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3373
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3374	(aBoolean not and:[selection notNil]) ifTrue:[
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3375	hasImplicitGrap ~~ true ifTrue:[
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3376	focusView := windowGroup focusView.
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3377
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3378	focusView == self ifFalse:[
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3379	self selection:nil.
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3380	]
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3381	]
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3382	].
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3383	super hasKeyboardFocus:aBoolean.
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3384	! !
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3385
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3386	!MenuPanel methodsFor:'grabbing'!
dce33f8bb806 intitial checkin ca parents: diff changeset	3387
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3388	doGrab
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3389	relativeGrabOrigin := nil.
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3390
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3391	superMenu notNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	3392	superMenu doGrab
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3393	] ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	3394	hasImplicitGrap ~~ true ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	3395	self grabMouseAndKeyboard.
93426020ceed * empty log message * ca parents: 2216 diff changeset	3396	hasImplicitGrap := true
93426020ceed * empty log message * ca parents: 2216 diff changeset	3397	]
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3398	]
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3399	!
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3400
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3401	doUngrab:forceDo
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3402
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3403	relativeGrabOrigin := nil.
1767 e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	3404	self clearImplicitGrab.
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3405
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3406	superMenu notNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	3407	forceDo ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	3408	superMenu doUngrab:true
93426020ceed * empty log message * ca parents: 2216 diff changeset	3409	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	3410	^ self
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3411	].
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3412
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3413	hasImplicitGrap ~~ true ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	3414	^ self
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3415	].
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3416
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3417	forceDo ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	3418	(selection notNil or:[prevFocusView == self]) ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	3419	^ self
93426020ceed * empty log message * ca parents: 2216 diff changeset	3420	].
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3421	].
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3422	self ungrabMouseAndKeyboard.
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3423	self selection:nil.
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3424	hasImplicitGrap := nil.
1703 e127eff742bb bugfix: request focus ca parents: 1701 diff changeset	3425	prevFocusView := nil.
e127eff742bb bugfix: request focus ca parents: 1701 diff changeset	3426
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3427	!
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3428
1630 01dc20096011 grabbing cleaned up; ca parents: 1613 diff changeset	3429	grabKeyboard
1690 38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3430	"grap the keyboard; keep previous grab
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3431	"
1630 01dc20096011 grabbing cleaned up; ca parents: 1613 diff changeset	3432	previousKeyboardGrab := device activeKeyboardGrab.
1690 38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3433	^ super grabKeyboard
1630 01dc20096011 grabbing cleaned up; ca parents: 1613 diff changeset	3434
01dc20096011 grabbing cleaned up; ca parents: 1613 diff changeset	3435
01dc20096011 grabbing cleaned up; ca parents: 1613 diff changeset	3436	!
01dc20096011 grabbing cleaned up; ca parents: 1613 diff changeset	3437
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3438	grabMouseAndKeyboard
2482 13acaaf02528 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 2481 diff changeset	3439	"get exclusive access to pointer and keyboard"
13acaaf02528 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 2481 diff changeset	3440
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3441	\|sensor\|
dce33f8bb806 intitial checkin ca parents: diff changeset	3442
dce33f8bb806 intitial checkin ca parents: diff changeset	3443	realized ifTrue:[
2482 13acaaf02528 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 2481 diff changeset	3444	prevFocusView := self windowGroup focusView.
13acaaf02528 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 2481 diff changeset	3445
13acaaf02528 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 2481 diff changeset	3446	sensor := self sensor.
13acaaf02528 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 2481 diff changeset	3447	device activePointerGrab ~~ self ifTrue:[
13acaaf02528 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 2481 diff changeset	3448	sensor flushMotionEventsFor:nil.
13acaaf02528 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 2481 diff changeset	3449
13acaaf02528 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 2481 diff changeset	3450	(self grabPointer) ifFalse:[
13acaaf02528 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 2481 diff changeset	3451	Delay waitForSeconds:0.1.
13acaaf02528 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 2481 diff changeset	3452	(self grabPointer) ifFalse:[
13acaaf02528 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 2481 diff changeset	3453	"give up"
13acaaf02528 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 2481 diff changeset	3454	'MenuPanel [warning]: could not grab pointer' errorPrintCR.
13acaaf02528 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 2481 diff changeset	3455	self unmap
13acaaf02528 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 2481 diff changeset	3456	]
13acaaf02528 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 2481 diff changeset	3457	]
13acaaf02528 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 2481 diff changeset	3458	].
13acaaf02528 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 2481 diff changeset	3459
13acaaf02528 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 2481 diff changeset	3460	device activeKeyboardGrab ~~ self ifTrue:[
13acaaf02528 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 2481 diff changeset	3461	device sync.
13acaaf02528 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 2481 diff changeset	3462	sensor flushKeyboardFor:nil.
13acaaf02528 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 2481 diff changeset	3463	self grabKeyboard.
13acaaf02528 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 2481 diff changeset	3464	]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3465	]
dce33f8bb806 intitial checkin ca parents: diff changeset	3466
717 540e638fdebb Avoid pointer and keyboard grabbing if not necessary Stefan Vogel <sv@exept.de> parents: 712 diff changeset	3467	"Modified: / 2.2.1998 / 23:43:59 / stefan"
1254 38b8bcfabbd7 checkin from browser Claus Gittinger <cg@exept.de> parents: 1253 diff changeset	3468	"Modified: / 15.3.1999 / 12:01:38 / cg"
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3469	!
dce33f8bb806 intitial checkin ca parents: diff changeset	3470
1630 01dc20096011 grabbing cleaned up; ca parents: 1613 diff changeset	3471	grabPointerWithCursor:aCursorOrNil
1690 38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3472	"grap the pointer; keep previous grab
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3473	"
1630 01dc20096011 grabbing cleaned up; ca parents: 1613 diff changeset	3474	previousPointerGrab := device activePointerGrab.
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3475	hasImplicitGrap := true.
1690 38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3476	^ super grabPointerWithCursor:aCursorOrNil
1630 01dc20096011 grabbing cleaned up; ca parents: 1613 diff changeset	3477
01dc20096011 grabbing cleaned up; ca parents: 1613 diff changeset	3478
01dc20096011 grabbing cleaned up; ca parents: 1613 diff changeset	3479	!
01dc20096011 grabbing cleaned up; ca parents: 1613 diff changeset	3480
01dc20096011 grabbing cleaned up; ca parents: 1613 diff changeset	3481	ungrabKeyboard
1690 38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3482	"ungrap the keyboard; restore previous grab
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3483	"
1630 01dc20096011 grabbing cleaned up; ca parents: 1613 diff changeset	3484	super ungrabKeyboard.
1690 38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3485
2579 114e5cf689a2 care for previous-grab-window still being visible james parents: 2574 diff changeset	3486	(previousKeyboardGrab notNil
114e5cf689a2 care for previous-grab-window still being visible james parents: 2574 diff changeset	3487	and:[ previousKeyboardGrab realized ]) ifTrue:[
114e5cf689a2 care for previous-grab-window still being visible james parents: 2574 diff changeset	3488	device grabKeyboardInView:previousKeyboardGrab.
114e5cf689a2 care for previous-grab-window still being visible james parents: 2574 diff changeset	3489	].
1630 01dc20096011 grabbing cleaned up; ca parents: 1613 diff changeset	3490	!
01dc20096011 grabbing cleaned up; ca parents: 1613 diff changeset	3491
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3492	ungrabMouseAndKeyboard
717 540e638fdebb Avoid pointer and keyboard grabbing if not necessary Stefan Vogel <sv@exept.de> parents: 712 diff changeset	3493	"ungrab resources (mouse and keyboard)
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3494	"
1630 01dc20096011 grabbing cleaned up; ca parents: 1613 diff changeset	3495	self ungrabPointer.
01dc20096011 grabbing cleaned up; ca parents: 1613 diff changeset	3496	self ungrabKeyboard.
01dc20096011 grabbing cleaned up; ca parents: 1613 diff changeset	3497	!
01dc20096011 grabbing cleaned up; ca parents: 1613 diff changeset	3498
01dc20096011 grabbing cleaned up; ca parents: 1613 diff changeset	3499	ungrabPointer
1690 38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3500	"ungrap the pointer; restore previous grab
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3501	"
1630 01dc20096011 grabbing cleaned up; ca parents: 1613 diff changeset	3502	super ungrabPointer.
1690 38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3503
2579 114e5cf689a2 care for previous-grab-window still being visible james parents: 2574 diff changeset	3504	(previousPointerGrab notNil
114e5cf689a2 care for previous-grab-window still being visible james parents: 2574 diff changeset	3505	and:[ previousPointerGrab realized ]) ifTrue:[
114e5cf689a2 care for previous-grab-window still being visible james parents: 2574 diff changeset	3506	device grabPointerInView:previousPointerGrab.
1630 01dc20096011 grabbing cleaned up; ca parents: 1613 diff changeset	3507	].
01dc20096011 grabbing cleaned up; ca parents: 1613 diff changeset	3508
01dc20096011 grabbing cleaned up; ca parents: 1613 diff changeset	3509
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3510	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	3511
1251 eb5b4cdbacde fixed helpText display; Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	3512	!MenuPanel methodsFor:'help'!
eb5b4cdbacde fixed helpText display; Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	3513
2058 f0a23f80454e flyByHelp Claus Gittinger <cg@exept.de> parents: 2052 diff changeset	3514	flyByHelpTextAt:srcPoint
f0a23f80454e flyByHelp Claus Gittinger <cg@exept.de> parents: 2052 diff changeset	3515	"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	3516	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	3517	"
2550 1dc3745fc313 do not show the menus label again as fly by help Claus Gittinger <cg@exept.de> parents: 2545 diff changeset	3518	self withMenuAndItemAt:srcPoint do:[:menu :item \| ^ menu flyByHelpTextForItem:item].
1dc3745fc313 do not show the menus label again as fly by help Claus Gittinger <cg@exept.de> parents: 2545 diff changeset	3519	^ nil
2058 f0a23f80454e flyByHelp Claus Gittinger <cg@exept.de> parents: 2052 diff changeset	3520	!
f0a23f80454e flyByHelp Claus Gittinger <cg@exept.de> parents: 2052 diff changeset	3521
f0a23f80454e flyByHelp Claus Gittinger <cg@exept.de> parents: 2052 diff changeset	3522	flyByHelpTextForItem:anItem
f0a23f80454e flyByHelp Claus Gittinger <cg@exept.de> parents: 2052 diff changeset	3523	"returns the helpText for an item (empty if none)
f0a23f80454e flyByHelp Claus Gittinger <cg@exept.de> parents: 2052 diff changeset	3524	"
2063 8bff9e49f1e9 * empty log message * Claus Gittinger <cg@exept.de> parents: 2062 diff changeset	3525	anItem isNil ifTrue:[^ nil].
2433 49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	3526	^ anItem flyByHelpText.
2058 f0a23f80454e flyByHelp Claus Gittinger <cg@exept.de> parents: 2052 diff changeset	3527	!
f0a23f80454e flyByHelp Claus Gittinger <cg@exept.de> parents: 2052 diff changeset	3528
1251 eb5b4cdbacde fixed helpText display; Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	3529	helpText
1613 5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	3530	"return the helpText for the currently selected item (empty if none)
5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	3531	"
5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	3532	^ self helpTextForItem:selection
1251 eb5b4cdbacde fixed helpText display; Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	3533	!
eb5b4cdbacde fixed helpText display; Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	3534
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3535	helpTextAt:srcPoint
1252 6db6906da49b debug print Claus Gittinger <cg@exept.de> parents: 1251 diff changeset	3536	"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	3537	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	3538	"
2550 1dc3745fc313 do not show the menus label again as fly by help Claus Gittinger <cg@exept.de> parents: 2545 diff changeset	3539	self withMenuAndItemAt:srcPoint do:[:menu :item \| ^ menu helpTextForItem:item].
1dc3745fc313 do not show the menus label again as fly by help Claus Gittinger <cg@exept.de> parents: 2545 diff changeset	3540	^ ''
1613 5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	3541	!
5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	3542
5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	3543	helpTextForItem:anItem
5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	3544	"returns the helpText for an item (empty if none)
5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	3545	"
5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	3546	anItem isNil ifTrue:[^ ''].
2433 49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	3547	^ anItem activeHelpText.
2550 1dc3745fc313 do not show the menus label again as fly by help Claus Gittinger <cg@exept.de> parents: 2545 diff changeset	3548	!
1dc3745fc313 do not show the menus label again as fly by help Claus Gittinger <cg@exept.de> parents: 2545 diff changeset	3549
1dc3745fc313 do not show the menus label again as fly by help Claus Gittinger <cg@exept.de> parents: 2545 diff changeset	3550	withMenuAndItemAt:srcPoint do:aBlock
1dc3745fc313 do not show the menus label again as fly by help Claus Gittinger <cg@exept.de> parents: 2545 diff changeset	3551	\|dstMenu dstPoint item\|
1dc3745fc313 do not show the menus label again as fly by help Claus Gittinger <cg@exept.de> parents: 2545 diff changeset	3552
1dc3745fc313 do not show the menus label again as fly by help Claus Gittinger <cg@exept.de> parents: 2545 diff changeset	3553	dstMenu := self detectMenuAtGrabPoint:srcPoint.
1dc3745fc313 do not show the menus label again as fly by help Claus Gittinger <cg@exept.de> parents: 2545 diff changeset	3554	dstMenu notNil ifTrue:[
1dc3745fc313 do not show the menus label again as fly by help Claus Gittinger <cg@exept.de> parents: 2545 diff changeset	3555	dstPoint := dstMenu translateGrabPoint:srcPoint.
1dc3745fc313 do not show the menus label again as fly by help Claus Gittinger <cg@exept.de> parents: 2545 diff changeset	3556	item := dstMenu itemAtPoint:dstPoint.
1dc3745fc313 do not show the menus label again as fly by help Claus Gittinger <cg@exept.de> parents: 2545 diff changeset	3557	aBlock value:dstMenu value:item.
1dc3745fc313 do not show the menus label again as fly by help Claus Gittinger <cg@exept.de> parents: 2545 diff changeset	3558	]
1251 eb5b4cdbacde fixed helpText display; Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	3559	! !
eb5b4cdbacde fixed helpText display; Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	3560
794 5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	3561	!MenuPanel methodsFor:'image registration'!
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	3562
2488 74c81c1e30d7 imageOnDevice -> imageOnMyDevice Claus Gittinger <cg@exept.de> parents: 2485 diff changeset	3563	imageOnMyDevice:anImage
794 5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	3564	"returns image registered on device
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	3565	"
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	3566	^ self class image:anImage onDevice:device
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	3567	!
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	3568
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	3569	lightenedImageOnDevice:anImage
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	3570	"returns lightened image registered on device
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	3571	"
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	3572	^ self class lightenedImage:anImage onDevice:device
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	3573	! !
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	3574
1688 271829d6a2e4 category changes Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3575	!MenuPanel methodsFor:'initialization & release'!
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3576
767 ffa2a09a1039 added #addToCurrentProject in order to avoid restart errors tz parents: 746 diff changeset	3577	addToCurrentProject
ffa2a09a1039 added #addToCurrentProject in order to avoid restart errors tz parents: 746 diff changeset	3578	"ignored here"
ffa2a09a1039 added #addToCurrentProject in order to avoid restart errors tz parents: 746 diff changeset	3579	!
ffa2a09a1039 added #addToCurrentProject in order to avoid restart errors tz parents: 746 diff changeset	3580
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3581	create
616 a6157b083830 support of different styles ca parents: 608 diff changeset	3582	"create the shadow view for a none contained submenu
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3583	"
dce33f8bb806 intitial checkin ca parents: diff changeset	3584	super create.
dce33f8bb806 intitial checkin ca parents: diff changeset	3585
dce33f8bb806 intitial checkin ca parents: diff changeset	3586	self isPopUpView ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	3587	(PopUpView shadowsOnDevice:device) ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	3588	shadowView isNil ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	3589	shadowView := (ShadowView onDevice:device) for:self
93426020ceed * empty log message * ca parents: 2216 diff changeset	3590	] ifFalse:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	3591	self saveUnder:true.
93426020ceed * empty log message * ca parents: 2216 diff changeset	3592	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	3593	]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3594	] ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	3595	explicitExtent == true ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	3596	(self width) == (superView width) ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	3597	self verticalLayout:false
93426020ceed * empty log message * ca parents: 2216 diff changeset	3598	]
93426020ceed * empty log message * ca parents: 2216 diff changeset	3599	]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3600	]
1024 28c87a2369f6 show active help on pointer motion. Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	3601
28c87a2369f6 show active help on pointer motion. Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	3602	"Modified: / 28.7.1998 / 02:11:44 / cg"
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3603	!
dce33f8bb806 intitial checkin ca parents: diff changeset	3604
dce33f8bb806 intitial checkin ca parents: diff changeset	3605	destroy
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3606	"destroy items and shadowView; remove dependencies
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3607	"
798 74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	3608	self clearLastActiveMenu.
2051 d958c12cc08e * empty log message * Claus Gittinger <cg@exept.de> parents: 2050 diff changeset	3609	items notNil ifTrue:[items copy do:[:el\|el destroy]].
2681 2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	3610	items := nil.
2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	3611	self removeDependencies.
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3612
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3613	super destroy.
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3614	superMenu := nil.
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3615	shadowView notNil ifTrue:[shadowView destroy].
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3616
2051 d958c12cc08e * empty log message * Claus Gittinger <cg@exept.de> parents: 2050 diff changeset	3617	"Modified: / 15.11.2001 / 17:08:45 / cg"
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3618	!
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3619
616 a6157b083830 support of different styles ca parents: 608 diff changeset	3620	fetchDeviceResources
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	3621	"fetch device colors, to avoid reallocation at redraw time
93426020ceed * empty log message * ca parents: 2216 diff changeset	3622	"
93426020ceed * empty log message * ca parents: 2216 diff changeset	3623	\|style\|
93426020ceed * empty log message * ca parents: 2216 diff changeset	3624
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	3625	superMenu notNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	3626	styleSheet := superMenu styleSheet
93426020ceed * empty log message * ca parents: 2216 diff changeset	3627	].
616 a6157b083830 support of different styles ca parents: 608 diff changeset	3628
a6157b083830 support of different styles ca parents: 608 diff changeset	3629	super fetchDeviceResources.
a6157b083830 support of different styles ca parents: 608 diff changeset	3630
1081 fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	3631	"/ 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	3632	"/ (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	3633
616 a6157b083830 support of different styles ca parents: 608 diff changeset	3634	superMenu isNil ifTrue:[
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	3635	rightArrow isNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	3636	rightArrow := SelectionInListView rightArrowFormOn:device.
2059 c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	3637	].
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	3638	fgColor := fgColor onDevice:device.
93426020ceed * empty log message * ca parents: 2216 diff changeset	3639	style := styleSheet name.
93426020ceed * empty log message * ca parents: 2216 diff changeset	3640
93426020ceed * empty log message * ca parents: 2216 diff changeset	3641	(style ~~ #os2 and:[style ~~ #win95]) ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	3642	rightArrowShadow := SelectionInListView rightArrowShadowFormOn:device
93426020ceed * empty log message * ca parents: 2216 diff changeset	3643	] ifFalse:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	3644	rightArrowShadow := nil
93426020ceed * empty log message * ca parents: 2216 diff changeset	3645	].
616 a6157b083830 support of different styles ca parents: 608 diff changeset	3646	] ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	3647	rightArrow := superMenu rightArrow.
93426020ceed * empty log message * ca parents: 2216 diff changeset	3648	rightArrowShadow := superMenu rightArrowShadow.
93426020ceed * empty log message * ca parents: 2216 diff changeset	3649
93426020ceed * empty log message * ca parents: 2216 diff changeset	3650	self foregroundColor:(superMenu foregroundColor).
2614 86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	3651	self font:(superMenu font).
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	3652	self viewBackground:(superMenu viewBackground).
1137 7df0b776e47a fixes for 2D styles (borderWidth) Claus Gittinger <cg@exept.de> parents: 1130 diff changeset	3653	].
7df0b776e47a fixes for 2D styles (borderWidth) Claus Gittinger <cg@exept.de> parents: 1130 diff changeset	3654
1829 bd8b95c5bb89 migration fixes Claus Gittinger <cg@exept.de> parents: 1825 diff changeset	3655	items notNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	3656	items do:[:eachItem\| eachItem fetchDeviceResources ]
1829 bd8b95c5bb89 migration fixes Claus Gittinger <cg@exept.de> parents: 1825 diff changeset	3657	].
bd8b95c5bb89 migration fixes Claus Gittinger <cg@exept.de> parents: 1825 diff changeset	3658
1137 7df0b776e47a fixes for 2D styles (borderWidth) Claus Gittinger <cg@exept.de> parents: 1130 diff changeset	3659	"Modified: / 15.9.1998 / 12:51:29 / cg"
616 a6157b083830 support of different styles ca parents: 608 diff changeset	3660	!
a6157b083830 support of different styles ca parents: 608 diff changeset	3661
580 249f6cfc5bb2 checkin from browser Claus Gittinger <cg@exept.de> parents: 571 diff changeset	3662	initStyle
249f6cfc5bb2 checkin from browser Claus Gittinger <cg@exept.de> parents: 571 diff changeset	3663	"initialize style specific stuff"
249f6cfc5bb2 checkin from browser Claus Gittinger <cg@exept.de> parents: 571 diff changeset	3664
2609 b927f450c4c8 * empty log message * ca parents: 2607 diff changeset	3665	\|fn\|
b927f450c4c8 * empty log message * ca parents: 2607 diff changeset	3666
580 249f6cfc5bb2 checkin from browser Claus Gittinger <cg@exept.de> parents: 571 diff changeset	3667	super initStyle.
616 a6157b083830 support of different styles ca parents: 608 diff changeset	3668
2609 b927f450c4c8 * empty log message * ca parents: 2607 diff changeset	3669	fgColor := DefaultForegroundColor ? Color black.
b927f450c4c8 * empty log message * ca parents: 2607 diff changeset	3670	DefaultBackgroundColor notNil ifTrue:[ viewBackground := DefaultBackgroundColor ].
b927f450c4c8 * empty log message * ca parents: 2607 diff changeset	3671	fn := self class defaultFont.
2610 a30fc1fb35d7 * empty log message * ca parents: 2609 diff changeset	3672	fn notNil ifTrue:[ self font:fn ].
1923 530426a3d692 support #level: ca parents: 1922 diff changeset	3673
2347 9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	3674	defaultHideOnRelease := styleSheet at:#'popup.hideOnRelease' default:true.
9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	3675
2003 732fbaf5864f avoid changing the level after realization (to avoid confusing the shadow) Claus Gittinger <cg@exept.de> parents: 2000 diff changeset	3676	self updateLevelAndBorder.
580 249f6cfc5bb2 checkin from browser Claus Gittinger <cg@exept.de> parents: 571 diff changeset	3677	!
249f6cfc5bb2 checkin from browser Claus Gittinger <cg@exept.de> parents: 571 diff changeset	3678
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3679	initialize
dce33f8bb806 intitial checkin ca parents: diff changeset	3680	"set default configuration
dce33f8bb806 intitial checkin ca parents: diff changeset	3681	"
dce33f8bb806 intitial checkin ca parents: diff changeset	3682	super initialize.
616 a6157b083830 support of different styles ca parents: 608 diff changeset	3683
1730 4936edfc2eee must enable motion events in #initialize (not in map) Claus Gittinger <cg@exept.de> parents: 1728 diff changeset	3684	self enableMotionEvents.
498 b4c341497621 bug fixes: ca parents: 475 diff changeset	3685	enabled := true.
1877 3b415fa4710f only access originChanged, extentChanged and cornerChanged Claus Gittinger <cg@exept.de> parents: 1874 diff changeset	3686	self extentChangedFlag:false.
3b415fa4710f only access originChanged, extentChanged and cornerChanged Claus Gittinger <cg@exept.de> parents: 1874 diff changeset	3687	self originChangedFlag:false.
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	3688	explicitExtent := nil.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	3689	shortKeyInset := 0.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	3690	mustRearrange := false.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	3691	showSeparatingLines := false.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	3692	showGroupDivider := true.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3693	!
dce33f8bb806 intitial checkin ca parents: diff changeset	3694
1573 fd124ee2bce5 shortcutKeys; arrange layout if selection changed ca parents: 1572 diff changeset	3695	map
717 540e638fdebb Avoid pointer and keyboard grabbing if not necessary Stefan Vogel <sv@exept.de> parents: 712 diff changeset	3696	"grab the pointer here, when visible (but not if control has already been lost).
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3697	If the grab fails, try again and unmap myself if that fails too.
dce33f8bb806 intitial checkin ca parents: diff changeset	3698	"
1791 bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	3699	\|loIndices loItems\|
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3700
1690 38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3701	enteredItem := nil.
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3702
1024 28c87a2369f6 show active help on pointer motion. Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	3703	self enableMotionEvents.
798 74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	3704	self becomesActiveMenu.
1573 fd124ee2bce5 shortcutKeys; arrange layout if selection changed ca parents: 1572 diff changeset	3705	super map.
2681 2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	3706	self addDependencies.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3707
1785 efa4cc8ca917 mnemonic behaviour changed ca parents: 1775 diff changeset	3708	loIndices := InitialSelectionQuerySignal query.
1791 bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	3709	loItems := items ? #[].
bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	3710
bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	3711	loItems do:[:anItem\| anItem fetchImages ].
1572 80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	3712
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3713	self isPopUpView ifTrue:[
2681 2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	3714	self doGrab
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3715	] ifFalse:[
2681 2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	3716	super viewBackground:(self backgroundColor).
717 540e638fdebb Avoid pointer and keyboard grabbing if not necessary Stefan Vogel <sv@exept.de> parents: 712 diff changeset	3717	].
1791 bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	3718	loItems do:[:el\| el updateIndicators ].
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3719
1785 efa4cc8ca917 mnemonic behaviour changed ca parents: 1775 diff changeset	3720	loIndices size > 0 ifTrue:[
2681 2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	3721	self redrawX:0 y:0 width:width height:height.
2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	3722	self openMenusFromItemIndices:loIndices.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3723	].
dce33f8bb806 intitial checkin ca parents: diff changeset	3724
1177 cfd7f71639f3 checkin from browser Claus Gittinger <cg@exept.de> parents: 1164 diff changeset	3725	"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	3726	"Modified: / 18.3.1999 / 18:22:18 / stefan"
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3727	!
dce33f8bb806 intitial checkin ca parents: diff changeset	3728
dce33f8bb806 intitial checkin ca parents: diff changeset	3729	realize
dce33f8bb806 intitial checkin ca parents: diff changeset	3730	"realize menu and shadowView
dce33f8bb806 intitial checkin ca parents: diff changeset	3731	"
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3732
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3733	self isPopUpView ifTrue:[
2347 9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	3734	"Because of #saveUnder of ShadowView the order of realize is significant:
9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	3735	shadowView must be realized before self"
9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	3736	self hiddenOnRealize:true.
9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	3737	super realize.
9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	3738	self resize.
9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	3739	self makeFullyVisible.
2003 732fbaf5864f avoid changing the level after realization (to avoid confusing the shadow) Claus Gittinger <cg@exept.de> parents: 2000 diff changeset	3740	"/ self mustRearrange.
2347 9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	3741	shadowView notNil ifTrue:[
9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	3742	shadowView realize.
9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	3743	].
9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	3744	self raise.
9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	3745	self map.
736 220741d8049b Use #saveUnder. Claus Gittinger <cg@exept.de> parents: 735 diff changeset	3746	] ifFalse:[
2347 9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	3747	super realize.
1767 e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	3748	].
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	3749	self allSubViewsDo:[:aView\| aView realize ].
2347 9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	3750	hideOnRelease := defaultHideOnRelease.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3751	!
dce33f8bb806 intitial checkin ca parents: diff changeset	3752
dce33f8bb806 intitial checkin ca parents: diff changeset	3753	recreate
1832 f6e6640e99a3 comment Claus Gittinger <cg@exept.de> parents: 1829 diff changeset	3754	"this is called after a snapin or a migration.
f6e6640e99a3 comment Claus Gittinger <cg@exept.de> parents: 1829 diff changeset	3755	If the image was saved with an active menu, hide the menu
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3756	"
1455 5685ec322a5b sizeChanged:... Claus Gittinger <cg@exept.de> parents: 1388 diff changeset	3757	selection := nil.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3758	super recreate.
dce33f8bb806 intitial checkin ca parents: diff changeset	3759	!
dce33f8bb806 intitial checkin ca parents: diff changeset	3760
1130 fb79ef4aeec8 style changes Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	3761	reinitStyle
fb79ef4aeec8 style changes Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	3762	"handle style change while being open (win32 only - for now)"
fb79ef4aeec8 style changes Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	3763
fb79ef4aeec8 style changes Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	3764	super reinitStyle.
fb79ef4aeec8 style changes Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	3765
fb79ef4aeec8 style changes Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	3766	self fetchDeviceResources.
1811 df4f5e5b3396 restart under windows Claus Gittinger <cg@exept.de> parents: 1810 diff changeset	3767	self mustRearrange. "/ care for changed font sizes etc.
df4f5e5b3396 restart under windows Claus Gittinger <cg@exept.de> parents: 1810 diff changeset	3768
df4f5e5b3396 restart under windows Claus Gittinger <cg@exept.de> parents: 1810 diff changeset	3769	self do:[:anItem \|
df4f5e5b3396 restart under windows Claus Gittinger <cg@exept.de> parents: 1810 diff changeset	3770	anItem reinitStyle
df4f5e5b3396 restart under windows Claus Gittinger <cg@exept.de> parents: 1810 diff changeset	3771	].
1130 fb79ef4aeec8 style changes Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	3772
fb79ef4aeec8 style changes Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	3773	"Created: / 10.9.1998 / 21:37:05 / cg"
1811 df4f5e5b3396 restart under windows Claus Gittinger <cg@exept.de> parents: 1810 diff changeset	3774	"Modified: / 17.8.2000 / 18:01:33 / cg"
1130 fb79ef4aeec8 style changes Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	3775	!
fb79ef4aeec8 style changes Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	3776
1796 c9d801c011f7 recompute layout after snapIn (font geometry could be different) Claus Gittinger <cg@exept.de> parents: 1795 diff changeset	3777	reinitialize
c9d801c011f7 recompute layout after snapIn (font geometry could be different) Claus Gittinger <cg@exept.de> parents: 1795 diff changeset	3778	"reinit after a snapIn
c9d801c011f7 recompute layout after snapIn (font geometry could be different) Claus Gittinger <cg@exept.de> parents: 1795 diff changeset	3779	"
c9d801c011f7 recompute layout after snapIn (font geometry could be different) Claus Gittinger <cg@exept.de> parents: 1795 diff changeset	3780
c9d801c011f7 recompute layout after snapIn (font geometry could be different) Claus Gittinger <cg@exept.de> parents: 1795 diff changeset	3781	super reinitialize.
1811 df4f5e5b3396 restart under windows Claus Gittinger <cg@exept.de> parents: 1810 diff changeset	3782	"/ self reinitStyle.
df4f5e5b3396 restart under windows Claus Gittinger <cg@exept.de> parents: 1810 diff changeset	3783
df4f5e5b3396 restart under windows Claus Gittinger <cg@exept.de> parents: 1810 diff changeset	3784	"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	3785	!
c9d801c011f7 recompute layout after snapIn (font geometry could be different) Claus Gittinger <cg@exept.de> parents: 1795 diff changeset	3786
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3787	unmap
1330 63d2fe5ebd48 comment Claus Gittinger <cg@exept.de> parents: 1313 diff changeset	3788	"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	3789	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	3790
2681 2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	3791	self removeDependencies.
798 74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	3792	self clearLastActiveMenu.
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3793	self doUngrab:(superMenu isNil).
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3794	"/ self isPopUpView ifTrue:[
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3795	"/ self doUngrab:(superMenu isNil)
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3796	"/ ].
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3797
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3798	super unmap.
dce33f8bb806 intitial checkin ca parents: diff changeset	3799	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	3800	!
732fbaf5864f avoid changing the level after realization (to avoid confusing the shadow) Claus Gittinger <cg@exept.de> parents: 2000 diff changeset	3801
732fbaf5864f avoid changing the level after realization (to avoid confusing the shadow) Claus Gittinger <cg@exept.de> parents: 2000 diff changeset	3802	updateLevelAndBorder
732fbaf5864f avoid changing the level after realization (to avoid confusing the shadow) Claus Gittinger <cg@exept.de> parents: 2000 diff changeset	3803	"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	3804
732fbaf5864f avoid changing the level after realization (to avoid confusing the shadow) Claus Gittinger <cg@exept.de> parents: 2000 diff changeset	3805	\|bw lvl\|
732fbaf5864f avoid changing the level after realization (to avoid confusing the shadow) Claus Gittinger <cg@exept.de> parents: 2000 diff changeset	3806
732fbaf5864f avoid changing the level after realization (to avoid confusing the shadow) Claus Gittinger <cg@exept.de> parents: 2000 diff changeset	3807	self isPopUpView ifTrue:[
732fbaf5864f avoid changing the level after realization (to avoid confusing the shadow) Claus Gittinger <cg@exept.de> parents: 2000 diff changeset	3808	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	3809	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	3810	] ifFalse:[
732fbaf5864f avoid changing the level after realization (to avoid confusing the shadow) Claus Gittinger <cg@exept.de> parents: 2000 diff changeset	3811	bw := styleSheet is3D ifFalse:[1] ifTrue:[0].
2372 d136f6d4b7c5 bugfix if font is nil ca parents: 2364 diff changeset	3812	lvl := styleSheet at:#'pullDownMenu.level' default:1.
2003 732fbaf5864f avoid changing the level after realization (to avoid confusing the shadow) Claus Gittinger <cg@exept.de> parents: 2000 diff changeset	3813	].
732fbaf5864f avoid changing the level after realization (to avoid confusing the shadow) Claus Gittinger <cg@exept.de> parents: 2000 diff changeset	3814	self borderWidth:bw.
732fbaf5864f avoid changing the level after realization (to avoid confusing the shadow) Claus Gittinger <cg@exept.de> parents: 2000 diff changeset	3815	self level:lvl.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3816	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	3817
1878 1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3818	!MenuPanel methodsFor:'keyboard control'!
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3819
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3820	mnemonicViewNext:aKeyEvent
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3821	"a mnemonicKey event as forwarded from the keyboardProcessor - if there
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3822	is the mnemonic-key defined for any menuItem, handle the menuItem and
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3823	return the topMenu otherwise nil.
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3824	"
2112 c4cd07f21fac processing mnemonic's (search next from current) ca parents: 2111 diff changeset	3825	\|menu uKey lKey list index\|
c4cd07f21fac processing mnemonic's (search next from current) ca parents: 2111 diff changeset	3826
c4cd07f21fac processing mnemonic's (search next from current) ca parents: 2111 diff changeset	3827	superMenu notNil ifTrue:[ ^ superMenu mnemonicViewNext:aKeyEvent ].
1878 1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3828	shown ifFalse:[^ nil].
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3829
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3830	uKey := aKeyEvent rawKey last asUppercase.
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3831	lKey := uKey asLowercase.
2112 c4cd07f21fac processing mnemonic's (search next from current) ca parents: 2111 diff changeset	3832
c4cd07f21fac processing mnemonic's (search next from current) ca parents: 2111 diff changeset	3833	selection notNil ifTrue:[
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	3834	"first lookup the current grapMenu before starting in the topMenu
975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	3835	"
975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	3836	menu := self detectGrabMenu.
975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	3837
975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	3838	[ menu ~~ self ] whileTrue:[
975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	3839	index := menu selectionIndex.
975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	3840	list := menu selectItemIndicesFor:[:el\|\|k\| k := el accessCharacter. k == uKey or:[k == lKey]]
2603 edb5408fd3e7 prepared to test an item whether the submenu should be created caused by mnemonic or accelorator key ca parents: 2579 diff changeset	3841	maxDepth:10 from:(index + 1) to:99999
2604 34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	3842	ignoreSubmenuBlock:[:anItem\| anItem ignoreMnemonicKeys ].
2112 c4cd07f21fac processing mnemonic's (search next from current) ca parents: 2111 diff changeset	3843
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	3844	list size ~~ 0 ifTrue:[
975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	3845	"/ has item which responds to the mnemonic
975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	3846	menu processCollectedIndices:list.
975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	3847	^ self
975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	3848	].
975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	3849	menu := menu superMenu.
975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	3850	].
975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	3851	index := self selectionIndex.
975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	3852	list := self selectItemIndicesFor:[:el\|\|k\| k := el accessCharacter. k == uKey or:[k == lKey] ]
2603 edb5408fd3e7 prepared to test an item whether the submenu should be created caused by mnemonic or accelorator key ca parents: 2579 diff changeset	3853	maxDepth:10 from:(1 + index) to:99999
2604 34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	3854	ignoreSubmenuBlock:[:anItem\| anItem ignoreMnemonicKeys ].
2603 edb5408fd3e7 prepared to test an item whether the submenu should be created caused by mnemonic or accelorator key ca parents: 2579 diff changeset	3855
2112 c4cd07f21fac processing mnemonic's (search next from current) ca parents: 2111 diff changeset	3856	] ifFalse:[
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	3857	index := 99999.
975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	3858	list := nil.
2112 c4cd07f21fac processing mnemonic's (search next from current) ca parents: 2111 diff changeset	3859	].
c4cd07f21fac processing mnemonic's (search next from current) ca parents: 2111 diff changeset	3860
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	3861	list isNil ifTrue:[
975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	3862	list := self selectItemIndicesFor:[:el\|\|k\| k := el accessCharacter. k == uKey or:[k == lKey] ]
2603 edb5408fd3e7 prepared to test an item whether the submenu should be created caused by mnemonic or accelorator key ca parents: 2579 diff changeset	3863	maxDepth:1 from:1 to:index
2604 34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	3864	ignoreSubmenuBlock:[:anItem\| anItem ignoreMnemonicKeys ].
2603 edb5408fd3e7 prepared to test an item whether the submenu should be created caused by mnemonic or accelorator key ca parents: 2579 diff changeset	3865
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	3866
975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	3867	list isNil ifTrue:[
975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	3868	"/ must clear existing selection
975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	3869	self selection:nil.
975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	3870	^ nil
975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	3871	]
2112 c4cd07f21fac processing mnemonic's (search next from current) ca parents: 2111 diff changeset	3872	].
c4cd07f21fac processing mnemonic's (search next from current) ca parents: 2111 diff changeset	3873
c4cd07f21fac processing mnemonic's (search next from current) ca parents: 2111 diff changeset	3874	"/ has item which responds to the mnemonic
c4cd07f21fac processing mnemonic's (search next from current) ca parents: 2111 diff changeset	3875	self processCollectedIndices:list.
1889 43516e4588ce give warning messages for unimplemented menu-aspects Claus Gittinger <cg@exept.de> parents: 1878 diff changeset	3876	!
1878 1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3877
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3878	openMenusFromItemIndices:anItemIndiceList
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3879	"open all menus derived from sequence of item indices
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3880	"
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3881	\|item\|
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3882
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3883	anItemIndiceList size == 0 ifTrue:[
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	3884	^ self
1878 1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3885	].
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3886	item := self itemAt:(anItemIndiceList removeFirst).
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3887
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3888	(item notNil and:[item enabled]) ifTrue:[
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	3889	InitialSelectionQuerySignal answer:anItemIndiceList do:[
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	3890	self selection:item openMenu:true.
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	3891	]
1889 43516e4588ce give warning messages for unimplemented menu-aspects Claus Gittinger <cg@exept.de> parents: 1878 diff changeset	3892	].
43516e4588ce give warning messages for unimplemented menu-aspects Claus Gittinger <cg@exept.de> parents: 1878 diff changeset	3893	!
1878 1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3894
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3895	processCollectedIndices:indices
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3896	\|menu item\|
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3897
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3898	indices size == 0 ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	3899	^ self
1878 1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3900	].
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3901	menu := self.
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3902
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3903	[menu selectionIndex == indices first] whileTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	3904	( (item := menu selection) isNil "/ shouldn't happen
93426020ceed * empty log message * ca parents: 2216 diff changeset	3905	or:[(menu := item submenu) isNil] "/ no more indices; done
93426020ceed * empty log message * ca parents: 2216 diff changeset	3906	) ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	3907	^ true
93426020ceed * empty log message * ca parents: 2216 diff changeset	3908	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	3909	indices removeFirst.
93426020ceed * empty log message * ca parents: 2216 diff changeset	3910
93426020ceed * empty log message * ca parents: 2216 diff changeset	3911	indices isEmpty ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	3912	menu selection:nil.
93426020ceed * empty log message * ca parents: 2216 diff changeset	3913	^ self
93426020ceed * empty log message * ca parents: 2216 diff changeset	3914	]
1878 1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3915	].
1889 43516e4588ce give warning messages for unimplemented menu-aspects Claus Gittinger <cg@exept.de> parents: 1878 diff changeset	3916	menu openMenusFromItemIndices:indices.
43516e4588ce give warning messages for unimplemented menu-aspects Claus Gittinger <cg@exept.de> parents: 1878 diff changeset	3917	!
1878 1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3918
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3919	processShortcut:aKeyEvent
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3920	"a shortcutKey event as forwarded from the keyboardProcessor - if there is the
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3921	shortcut-key defined process the shortcut and return true otherwise false.
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3922	"
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	3923	\|menu rKey lKey list item\|
1878 1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3924
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3925	superMenu notNil ifTrue:[
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3926	^ superMenu processShortcut:aKeyEvent
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3927	].
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3928	shown ifFalse:[^ false].
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3929
2604 34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	3930	lKey := aKeyEvent key.
34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	3931
34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	3932	"/ fast check, cursor keys are not supported
34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	3933
34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	3934	( #( CursorDown CursorUp CursorRight CursorLeft
34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	3935	) includes:lKey
34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	3936	) ifTrue:[
34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	3937	^ false.
34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	3938	].
1878 1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3939	rKey := aKeyEvent rawKey.
2604 34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	3940	item := nil.
1878 1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3941	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	3942
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3943	[true] whileTrue:[
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3944	list := menu selectItemIndicesFor:[:el\|\|skey\|
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3945	item := el.
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3946	skey := el shortcutKey.
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3947	skey == rKey or:[skey == lKey]
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3948	]
2604 34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	3949	maxDepth:10 from:1 to:99999
34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	3950	ignoreSubmenuBlock:[:anItem\| anItem ignoreShortcutKeys ].
1878 1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3951
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3952	list size ~~ 0 ifTrue:[
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3953	"/ has item which responds to the shortcut
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3954	item hasSubmenu ifFalse:[
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3955	menu accept:item
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3956	] ifTrue:[
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3957	menu processCollectedIndices:list.
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3958	self windowGroup focusView:self.
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3959	].
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3960	^ true
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3961	].
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3962
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3963	menu == self ifTrue:[ ^ false ].
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3964	menu := self.
1889 43516e4588ce give warning messages for unimplemented menu-aspects Claus Gittinger <cg@exept.de> parents: 1878 diff changeset	3965	].
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	3966	^ false "/ never reached
1889 43516e4588ce give warning messages for unimplemented menu-aspects Claus Gittinger <cg@exept.de> parents: 1878 diff changeset	3967	!
1878 1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3968
2604 34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	3969	selectItemIndicesFor:aOneArgBlock maxDepth:maxDepth from:aStart to:aStop ignoreSubmenuBlock:ignoreSubmenueBlock
2603 edb5408fd3e7 prepared to test an item whether the submenu should be created caused by mnemonic or accelorator key ca parents: 2579 diff changeset	3970	"returns the sequence of indices up to the item for which the block returns true.
edb5408fd3e7 prepared to test an item whether the submenu should be created caused by mnemonic or accelorator key ca parents: 2579 diff changeset	3971	The first entry is the topmenu, the last entry the item for which the block returns
edb5408fd3e7 prepared to test an item whether the submenu should be created caused by mnemonic or accelorator key ca parents: 2579 diff changeset	3972	true. If no item is detected, nil is returned.
2604 34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	3973	If the ignoreSubmenueBlock is not nil, the menu under the item (argument to the block)
34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	3974	is created and passed through if the block returns false.
2603 edb5408fd3e7 prepared to test an item whether the submenu should be created caused by mnemonic or accelorator key ca parents: 2579 diff changeset	3975	Otherwise the item is not asked for its submenu.
2112 c4cd07f21fac processing mnemonic's (search next from current) ca parents: 2111 diff changeset	3976	"
c4cd07f21fac processing mnemonic's (search next from current) ca parents: 2111 diff changeset	3977	\|start stop\|
c4cd07f21fac processing mnemonic's (search next from current) ca parents: 2111 diff changeset	3978
c4cd07f21fac processing mnemonic's (search next from current) ca parents: 2111 diff changeset	3979	maxDepth <= 0 ifTrue:[^ nil].
c4cd07f21fac processing mnemonic's (search next from current) ca parents: 2111 diff changeset	3980
c4cd07f21fac processing mnemonic's (search next from current) ca parents: 2111 diff changeset	3981	start := aStart max:1.
c4cd07f21fac processing mnemonic's (search next from current) ca parents: 2111 diff changeset	3982	stop := aStop min:(items size).
c4cd07f21fac processing mnemonic's (search next from current) ca parents: 2111 diff changeset	3983
2604 34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	3984	start to:stop do:[:i\| \|item menu result\|
2603 edb5408fd3e7 prepared to test an item whether the submenu should be created caused by mnemonic or accelorator key ca parents: 2579 diff changeset	3985	item := items at:i.
2604 34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	3986
34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	3987	(aOneArgBlock value:item) ifTrue:[
34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	3988	(item enabled and:[item isVisible]) ifTrue:[
34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	3989	^ OrderedCollection with:i
2603 edb5408fd3e7 prepared to test an item whether the submenu should be created caused by mnemonic or accelorator key ca parents: 2579 diff changeset	3990	]
2604 34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	3991	] ifFalse:[
34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	3992	(item hasSubmenu and:[item hasDelayedMenu not]) ifTrue:[
34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	3993	(item enabled and:[item isVisible]) ifTrue:[
34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	3994	(ignoreSubmenueBlock isNil or:[(ignoreSubmenueBlock value:item) not]) ifTrue:[
34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	3995	menu := item submenu.
34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	3996
34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	3997	(menu notNil and:[menu isEnabled]) ifTrue:[
34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	3998	result := menu selectItemIndicesFor:aOneArgBlock
34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	3999	maxDepth:(maxDepth - 1) from:1 to:99999
34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	4000	ignoreSubmenuBlock:ignoreSubmenueBlock.
34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	4001
34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	4002	result notNil ifTrue:[
34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	4003	result addFirst:i.
34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	4004	^ result
34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	4005	].
34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	4006	].
34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	4007	].
34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	4008	].
34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	4009	].
2603 edb5408fd3e7 prepared to test an item whether the submenu should be created caused by mnemonic or accelorator key ca parents: 2579 diff changeset	4010	].
1878 1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	4011	].
1889 43516e4588ce give warning messages for unimplemented menu-aspects Claus Gittinger <cg@exept.de> parents: 1878 diff changeset	4012	^ nil
43516e4588ce give warning messages for unimplemented menu-aspects Claus Gittinger <cg@exept.de> parents: 1878 diff changeset	4013	! !
1878 1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	4014
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4015	!MenuPanel methodsFor:'misc'!
dce33f8bb806 intitial checkin ca parents: diff changeset	4016
427 82cbad72e197 raiseDeiconified is treated like a raise Claus Gittinger <cg@exept.de> parents: 420 diff changeset	4017	raiseDeiconified
82cbad72e197 raiseDeiconified is treated like a raise Claus Gittinger <cg@exept.de> parents: 420 diff changeset	4018	^ self raise
82cbad72e197 raiseDeiconified is treated like a raise Claus Gittinger <cg@exept.de> parents: 420 diff changeset	4019
82cbad72e197 raiseDeiconified is treated like a raise Claus Gittinger <cg@exept.de> parents: 420 diff changeset	4020	"Created: 21.6.1997 / 13:29:12 / cg"
82cbad72e197 raiseDeiconified is treated like a raise Claus Gittinger <cg@exept.de> parents: 420 diff changeset	4021	!
82cbad72e197 raiseDeiconified is treated like a raise Claus Gittinger <cg@exept.de> parents: 420 diff changeset	4022
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4023	superMenu
dce33f8bb806 intitial checkin ca parents: diff changeset	4024	"returns supermenu or nil
dce33f8bb806 intitial checkin ca parents: diff changeset	4025	"
dce33f8bb806 intitial checkin ca parents: diff changeset	4026	^ superMenu
dce33f8bb806 intitial checkin ca parents: diff changeset	4027
dce33f8bb806 intitial checkin ca parents: diff changeset	4028
dce33f8bb806 intitial checkin ca parents: diff changeset	4029	!
dce33f8bb806 intitial checkin ca parents: diff changeset	4030
dce33f8bb806 intitial checkin ca parents: diff changeset	4031	topMenu
dce33f8bb806 intitial checkin ca parents: diff changeset	4032	"returns the topMenu; the one having no superMenu
dce33f8bb806 intitial checkin ca parents: diff changeset	4033	"
1791 bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	4034	\|menu smenu\|
bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	4035
bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	4036	menu := self.
bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	4037
bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	4038	[(smenu := menu superMenu) notNil] whileTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	4039	menu := smenu
1791 bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	4040	].
bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	4041	^ menu
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4042	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	4043
1825 962390f1b499 category change Claus Gittinger <cg@exept.de> parents: 1824 diff changeset	4044	!MenuPanel methodsFor:'printing & storing'!
798 74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4045
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4046	printString
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4047	"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	4048	"
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4049	\|string label\|
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4050
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4051	string := 'Menu:'.
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4052
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4053	self do:[:anItem\|
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	4054	label := anItem label ? ''.
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	4055	string := string ,' ', label printString.
798 74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4056	].
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4057	^ string
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4058
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4059	"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	4060	! !
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4061
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4062	!MenuPanel methodsFor:'private'!
dce33f8bb806 intitial checkin ca parents: diff changeset	4063
434 9898a2909ef0 add active help for items ca parents: 433 diff changeset	4064	application
1613 5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	4065	"optimize access to retrive the application
5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	4066	"
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	4067	application notNil ifTrue:[^ application ].
434 9898a2909ef0 add active help for items ca parents: 433 diff changeset	4068
9898a2909ef0 add active help for items ca parents: 433 diff changeset	4069	superMenu notNil ifTrue:[
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	4070	application := superMenu application.
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	4071	^ application
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	4072	].
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	4073	application := super application.
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	4074	^ application
1872 b20e27632fd8 application fetch fix Claus Gittinger <cg@exept.de> parents: 1870 diff changeset	4075	!
434 9898a2909ef0 add active help for items ca parents: 433 diff changeset	4076
1572 80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	4077	detectItemForKey:aKey
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	4078	"returns the item assigned to a key, accessCharacter or starts with.
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	4079	if no item is detected nil is returned.
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	4080	"
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	4081	\|cIdx uKey lKey item\|
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	4082
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4083	items isNil ifTrue:[^ nil].
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4084
1572 80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	4085	cIdx := self selectionIndex.
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	4086	uKey := aKey asUppercase.
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	4087	lKey := aKey asLowercase.
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	4088
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4089	items keysAndValuesDo:[:anIndex :anItem\| \|char label\|
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	4090	( anIndex ~~ cIdx
93426020ceed * empty log message * ca parents: 2216 diff changeset	4091	and:[anItem canSelect
93426020ceed * empty log message * ca parents: 2216 diff changeset	4092	and:[(label := anItem textLabel) notNil
93426020ceed * empty log message * ca parents: 2216 diff changeset	4093	and:[label size ~~ 0]]]
93426020ceed * empty log message * ca parents: 2216 diff changeset	4094	) ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	4095	(char := anItem accessCharacter) notNil ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	4096	(char == uKey or:[char == lKey]) ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	4097	^ anItem
93426020ceed * empty log message * ca parents: 2216 diff changeset	4098	]
93426020ceed * empty log message * ca parents: 2216 diff changeset	4099	] ifFalse:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	4100	char := label at:1.
93426020ceed * empty log message * ca parents: 2216 diff changeset	4101
93426020ceed * empty log message * ca parents: 2216 diff changeset	4102	(char == uKey or:[char == lKey]) ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	4103	anIndex > cIdx ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	4104	^ anItem
93426020ceed * empty log message * ca parents: 2216 diff changeset	4105	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	4106	item isNil ifTrue:[item := anItem]
93426020ceed * empty log message * ca parents: 2216 diff changeset	4107	]
93426020ceed * empty log message * ca parents: 2216 diff changeset	4108	]
93426020ceed * empty log message * ca parents: 2216 diff changeset	4109	]
1572 80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	4110	].
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	4111	^ item
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	4112	!
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	4113
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	4114	menuAdornmentAt:aSymbol
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4115	"returns a value derived from adornment
dce33f8bb806 intitial checkin ca parents: diff changeset	4116	"
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	4117	adornment isNil ifTrue:[^ nil].
975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	4118	^ adornment at:aSymbol ifAbsent:nil
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4119	!
dce33f8bb806 intitial checkin ca parents: diff changeset	4120
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	4121	menuAdornmentAt:aSymbol put:something
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	4122	"sets a value for the specific menu
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	4123	"
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	4124	\|oldValue\|
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	4125
653 cf9b6ef11ade bug fix; no automatic rearrange of items ca parents: 650 diff changeset	4126	adornment isNil ifTrue:[
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	4127	something isNil ifTrue:[^ self].
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	4128	adornment := IdentityDictionary new.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	4129	] ifFalse:[
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	4130	oldValue := adornment at:aSymbol ifAbsent:nil.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	4131	oldValue == something ifTrue:[^ self].
653 cf9b6ef11ade bug fix; no automatic rearrange of items ca parents: 650 diff changeset	4132	].
cf9b6ef11ade bug fix; no automatic rearrange of items ca parents: 650 diff changeset	4133	adornment at:aSymbol put:something.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4134	!
dce33f8bb806 intitial checkin ca parents: diff changeset	4135
dce33f8bb806 intitial checkin ca parents: diff changeset	4136	onEachPerform:aSelector withArgList:aList
dce33f8bb806 intitial checkin ca parents: diff changeset	4137	"on each item perform selector with an argument derived from aList
dce33f8bb806 intitial checkin ca parents: diff changeset	4138	"
dce33f8bb806 intitial checkin ca parents: diff changeset	4139	aList isCollection ifTrue:[
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	4140	items size >= aList size ifTrue:[
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	4141	aList keysAndValuesDo:[:anIndex :anArg\|
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	4142	(items at:anIndex) perform:aSelector with:anArg
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	4143	]
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	4144	]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4145	] ifFalse:[
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	4146	self do:[:anItem\| anItem perform:aSelector with:aList ]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4147	]
dce33f8bb806 intitial checkin ca parents: diff changeset	4148
dce33f8bb806 intitial checkin ca parents: diff changeset	4149
dce33f8bb806 intitial checkin ca parents: diff changeset	4150	!
dce33f8bb806 intitial checkin ca parents: diff changeset	4151
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	4152	registerImageOnDevice:anImage
2269 e250e3adfc56 registration of images ca parents: 2255 diff changeset	4153
e250e3adfc56 registration of images ca parents: 2255 diff changeset	4154	anImage isNil ifTrue:[ ^ nil ].
e250e3adfc56 registration of images ca parents: 2255 diff changeset	4155	^ self class image:anImage onDevice:device
e250e3adfc56 registration of images ca parents: 2255 diff changeset	4156
e250e3adfc56 registration of images ca parents: 2255 diff changeset	4157	"/ \|image\|
e250e3adfc56 registration of images ca parents: 2255 diff changeset	4158	"/
e250e3adfc56 registration of images ca parents: 2255 diff changeset	4159	"/ (image := anImage) notNil ifTrue:[
e250e3adfc56 registration of images ca parents: 2255 diff changeset	4160	"/ image device ~~ device ifTrue:[
e250e3adfc56 registration of images ca parents: 2255 diff changeset	4161	"/ image := image copy.
e250e3adfc56 registration of images ca parents: 2255 diff changeset	4162	"/ ].
e250e3adfc56 registration of images ca parents: 2255 diff changeset	4163	"/ image := image onDevice:device.
e250e3adfc56 registration of images ca parents: 2255 diff changeset	4164	"/ image := image clearMaskedPixels.
e250e3adfc56 registration of images ca parents: 2255 diff changeset	4165	"/ ].
e250e3adfc56 registration of images ca parents: 2255 diff changeset	4166	"/ ^ image
2355 cd91ed4dc4c6 * empty log message * Claus Gittinger <cg@exept.de> parents: 2354 diff changeset	4167	!
cd91ed4dc4c6 * empty log message * Claus Gittinger <cg@exept.de> parents: 2354 diff changeset	4168
cd91ed4dc4c6 * empty log message * Claus Gittinger <cg@exept.de> parents: 2354 diff changeset	4169	superMenu:aSuperMenu
cd91ed4dc4c6 * empty log message * Claus Gittinger <cg@exept.de> parents: 2354 diff changeset	4170	"set my supermenu from which i'am activated
cd91ed4dc4c6 * empty log message * Claus Gittinger <cg@exept.de> parents: 2354 diff changeset	4171	"
cd91ed4dc4c6 * empty log message * Claus Gittinger <cg@exept.de> parents: 2354 diff changeset	4172	superMenu := aSuperMenu.
cd91ed4dc4c6 * empty log message * Claus Gittinger <cg@exept.de> parents: 2354 diff changeset	4173
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	4174	superMenu notNil ifTrue:[
2355 cd91ed4dc4c6 * empty log message * Claus Gittinger <cg@exept.de> parents: 2354 diff changeset	4175	styleSheet := superMenu styleSheet.
cd91ed4dc4c6 * empty log message * Claus Gittinger <cg@exept.de> parents: 2354 diff changeset	4176	rightArrow := superMenu rightArrow.
cd91ed4dc4c6 * empty log message * Claus Gittinger <cg@exept.de> parents: 2354 diff changeset	4177	rightArrowShadow := superMenu rightArrowShadow.
cd91ed4dc4c6 * empty log message * Claus Gittinger <cg@exept.de> parents: 2354 diff changeset	4178	].
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4179	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	4180
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	4181	!MenuPanel methodsFor:'private-activation'!
687 23ce9888d76f bug fixes: ca parents: 681 diff changeset	4182
798 74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4183	activeMenu
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4184	"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	4185	"
687 23ce9888d76f bug fixes: ca parents: 681 diff changeset	4186	^ lastActiveMenu ? self
23ce9888d76f bug fixes: ca parents: 681 diff changeset	4187
798 74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4188	"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	4189	!
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4190
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4191	activeMenu:aMenu
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4192	"set the current active menu
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4193	"
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4194	lastActiveMenu := aMenu
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4195
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4196	"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	4197	!
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4198
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4199	becomesActiveMenu
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4200	"submenu becomes the active menu
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4201	"
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4202	mapTime := Time millisecondClockValue.
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4203	self topMenu activeMenu:self.
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4204
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4205	"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	4206	!
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4207
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4208	clearLastActiveMenu
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4209	"reset the current active menu
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4210	"
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4211	\|top\|
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4212
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4213	top := self topMenu.
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4214
2251 30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	4215	"/ prevFocusView notNil ifTrue:[
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	4216	"/ self windowGroup focusView:prevFocusView.
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	4217	"/ prevFocusView := nil.
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	4218	"/ ].
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	4219	"/
798 74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4220	top activeMenu == self ifTrue:[
2251 30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	4221	top activeMenu:nil
687 23ce9888d76f bug fixes: ca parents: 681 diff changeset	4222	]
23ce9888d76f bug fixes: ca parents: 681 diff changeset	4223
798 74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4224	"Created: / 27.2.1998 / 17:41:17 / cg"
687 23ce9888d76f bug fixes: ca parents: 681 diff changeset	4225	!
23ce9888d76f bug fixes: ca parents: 681 diff changeset	4226
23ce9888d76f bug fixes: ca parents: 681 diff changeset	4227	mapTime
798 74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4228	"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	4229	"
687 23ce9888d76f bug fixes: ca parents: 681 diff changeset	4230	^ mapTime
798 74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4231
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4232	"Modified: / 27.2.1998 / 17:41:18 / cg"
687 23ce9888d76f bug fixes: ca parents: 681 diff changeset	4233	! !
23ce9888d76f bug fixes: ca parents: 681 diff changeset	4234
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	4235	!MenuPanel methodsFor:'private-scrolling'!
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4236
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4237	hasScrollerAt:aDirection
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4238	"returns true if a visible scroller at a direction exists
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4239	"
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4240	\|layout\|
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4241
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4242	self hasScrollers ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	4243	^ false
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4244	].
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4245
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4246	aDirection == #PREV ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	4247	layout := items first layout.
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4248
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4249	^ self verticalLayout ifTrue:[ layout top < margin]
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	4250	ifFalse:[ layout left < margin]
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4251	].
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4252	layout := items last layout.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4253
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4254	^ self verticalLayout ifTrue:[ layout bottom > (height - margin)]
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	4255	ifFalse:[ layout right > (width - margin)]
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4256	!
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4257
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4258	hasScrollers
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4259	"returns true if scrollers are needed
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4260	"
2018 2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4261	\|maxExtent first last isVert\|
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4262
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4263	(mustRearrange or:[items size < 2]) ifTrue:[^ false].
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4264
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4265	isVert := self verticalLayout.
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4266
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4267	superView notNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	4268	( (first := items first layout) isNil
93426020ceed * empty log message * ca parents: 2216 diff changeset	4269	or:[(last := items last layout) isNil]
93426020ceed * empty log message * ca parents: 2216 diff changeset	4270	) ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	4271	^ false
93426020ceed * empty log message * ca parents: 2216 diff changeset	4272	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	4273	isVert ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	4274	^ first top < 0 or:[last bottom > height]
93426020ceed * empty log message * ca parents: 2216 diff changeset	4275	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	4276	^ first left < 0 or:[last right > width]
2018 2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4277	].
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4278	maxExtent := self maxExtent.
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4279
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4280	isVert ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	4281	^ (height < maxExtent y) not
2018 2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4282	].
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4283	^ (width < maxExtent x) not
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4284	!
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4285
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4286	indexOfItemAtScroller:aDirection
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4287	"returns the index of the item under the scroller or 0
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4288	"
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4289	\|bounds min max layout\|
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4290
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4291	bounds := self scrollerBoundsAt:aDirection.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4292
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4293	bounds isNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	4294	^ 0
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4295	].
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4296
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4297	self verticalLayout ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	4298	min := bounds top.
93426020ceed * empty log message * ca parents: 2216 diff changeset	4299	max := bounds bottom.
93426020ceed * empty log message * ca parents: 2216 diff changeset	4300
93426020ceed * empty log message * ca parents: 2216 diff changeset	4301	items keysAndValuesDo:[:anIndex :anItem\|
93426020ceed * empty log message * ca parents: 2216 diff changeset	4302	anItem isVisible ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	4303	layout := anItem layout.
93426020ceed * empty log message * ca parents: 2216 diff changeset	4304
93426020ceed * empty log message * ca parents: 2216 diff changeset	4305	(layout top < max and:[layout bottom > min]) ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	4306	^ anIndex
93426020ceed * empty log message * ca parents: 2216 diff changeset	4307	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	4308	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	4309	].
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4310	] ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	4311	min := bounds left.
93426020ceed * empty log message * ca parents: 2216 diff changeset	4312	max := bounds right.
93426020ceed * empty log message * ca parents: 2216 diff changeset	4313
93426020ceed * empty log message * ca parents: 2216 diff changeset	4314	items keysAndValuesDo:[:anIndex :anItem\|
93426020ceed * empty log message * ca parents: 2216 diff changeset	4315	anItem isVisible ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	4316	layout := anItem layout.
93426020ceed * empty log message * ca parents: 2216 diff changeset	4317
93426020ceed * empty log message * ca parents: 2216 diff changeset	4318	(layout left < max and:[layout right > min]) ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	4319	^ anIndex
93426020ceed * empty log message * ca parents: 2216 diff changeset	4320	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	4321	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	4322	]
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4323	].
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4324	^ 0
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4325	!
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4326
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4327	makeItemVisible:anItem
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4328	"make an item visible
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4329	"
2018 2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4330	\|boundsPREV boundsNEXT delta layout index scr0 scr1 windowSz scrSz doScroll
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4331	isVertical boundsMin layoutMin boundsMax layoutMax dltOrg
2042 cc2141b4117f checkin from browser Claus Gittinger <cg@exept.de> parents: 2041 diff changeset	4332	inv1 inv2\|
2018 2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4333
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4334	( anItem notNil
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4335	and:[self hasScrollers
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4336	and:[(layout := anItem layout) notNil]]
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4337	) ifFalse:[
2659 3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4338	^ self
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4339	].
2018 2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4340	index := self indexOfItem:anItem.
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4341	boundsPREV := self scrollerBoundsAt:#PREV.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4342	boundsNEXT := self scrollerBoundsAt:#NEXT.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4343
2018 2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4344	isVertical := self verticalLayout.
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4345
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4346	isVertical ifTrue:[
2659 3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4347	boundsMin := boundsPREV bottom.
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4348	boundsMax := boundsNEXT top.
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4349	layoutMin := layout top.
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4350	layoutMax := layout bottom.
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4351	windowSz := height.
2018 2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4352	] ifFalse:[
2659 3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4353	boundsMin := boundsPREV right.
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4354	boundsMax := boundsNEXT left.
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4355	layoutMin := layout left.
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4356	layoutMax := layout right.
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4357	windowSz := width.
2018 2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4358	].
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4359
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4360
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4361	layoutMin < boundsMin ifTrue:[
2659 3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4362	layoutMin >= 0 ifTrue:[
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4363	^ self
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4364	].
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4365	"/ test whether is first visible item
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4366	index := items findLast:[:el\| el isVisible] startingAt:(index - 1).
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4367
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4368	index == 0 ifTrue:[ scr0 := margin ]
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4369	ifFalse:[ scr0 := boundsMin ].
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4370
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4371	delta := layoutMin negated + scr0.
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4372	] ifFalse:[
2659 3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4373	layoutMax > boundsMax ifFalse:[
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4374	^ self
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4375	].
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4376	"/ test whether is last visible item
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4377	index := items findFirst:[:el\| el isVisible ] startingAt:(index + 1).
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4378
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4379	index == 0 ifTrue:[ scr0 := windowSz - margin ]
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4380	ifFalse:[ scr0 := boundsMax ].
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4381
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4382	delta := scr0 - layoutMax.
2018 2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4383	].
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4384	delta == 0 ifTrue:[ ^ self ].
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4385
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4386	doScroll := false.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4387
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4388	shown ifTrue:[
2659 3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4389	delta abs < (windowSz / 2) ifTrue:[
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4390	doScroll := true.
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4391	self repairDamage
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4392	]
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4393	].
2018 2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4394	isVertical ifTrue:[ dltOrg := 0@delta ] ifFalse:[dltOrg := delta@0].
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4395	items do:[:el\| el moveBy:dltOrg ].
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4396
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4397	doScroll ifFalse:[
2659 3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4398	self invalidate.
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4399	^ self
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4400	].
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4401
2018 2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4402	windowSz := windowSz - margin - margin.
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4403
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4404	scr0 := boundsMin.
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4405	scr1 := scr0 + delta abs.
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4406	scrSz := boundsMax - scr1.
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4407
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4408	delta < 0 ifTrue:[
2659 3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4409	isVertical ifTrue:[
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4410	self copyFrom:self x:margin y:scr1 toX:margin y:scr0
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4411	width:windowSz height:scrSz async:false.
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4412
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4413	scr1 := scr0 + scrSz.
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4414	inv2 := (margin @ scr1) extent:(windowSz @ (height - scr1 - margin)).
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4415	"/ self invalidateX:margin y:scr1 width:windowSz height:(height - scr1 - margin).
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4416	] ifFalse:[
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4417	self copyFrom:self x:scr1 y:margin toX:scr0 y:margin
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4418	width:scrSz height:windowSz async:false.
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4419
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4420	scr1 := scr0 + scrSz.
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4421	inv2 := (scr1 @ margin) extent:((width - scr1 - margin) @ windowSz).
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4422	"/ self invalidateX:scr1 y:margin width:(width - scr1 - margin) height:windowSz.
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4423	].
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4424	inv1 := boundsPREV.
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4425	] ifFalse:[
2659 3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4426	isVertical ifTrue:[
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4427	self copyFrom:self x:margin y:scr0 toX:margin y:scr1
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4428	width:windowSz height:scrSz async:false.
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4429
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4430	inv2 := (margin @ margin) extent:(windowSz @ (scr1 - margin)).
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4431	"/ self invalidateX:margin y:margin width:windowSz height:scr1 - margin.
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4432	] ifFalse:[
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4433	self copyFrom:self x:scr0 y:margin toX:scr1 y:margin
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4434	width:scrSz height:windowSz async:false.
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4435
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4436	inv2 := (margin @ margin) extent:(scr1 - margin) @ windowSz.
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4437	"/ self invalidateX:margin y:margin width:scr1 - margin height:windowSz.
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4438	].
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4439	inv1 := boundsNEXT.
2042 cc2141b4117f checkin from browser Claus Gittinger <cg@exept.de> parents: 2041 diff changeset	4440	].
cc2141b4117f checkin from browser Claus Gittinger <cg@exept.de> parents: 2041 diff changeset	4441	self invalidate:inv1.
cc2141b4117f checkin from browser Claus Gittinger <cg@exept.de> parents: 2041 diff changeset	4442	self invalidate:inv2.
2048 ba472f3f46c7 code cleanup Claus Gittinger <cg@exept.de> parents: 2047 diff changeset	4443
ba472f3f46c7 code cleanup Claus Gittinger <cg@exept.de> parents: 2047 diff changeset	4444	"Modified: / 13.11.2001 / 20:26:42 / cg"
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4445	!
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4446
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	4447	scrollActivity
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	4448	"returns the one and only scrollActivity - data holder
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	4449	for a menu and all contained submenus
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	4450	"
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	4451	superMenu notNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	4452	^ superMenu scrollActivity
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	4453	].
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	4454	scrollActivity isNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	4455	scrollActivity := ScrollActivity new.
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	4456	].
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	4457	^ scrollActivity
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	4458	!
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	4459
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4460	scrollerBoundsAt:aDirection
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4461	"returns the bounds of the scroller at a direction or nil
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4462	"
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4463	\|y x w h inset\|
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4464
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4465	self hasScrollers ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	4466	^ nil
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4467	].
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4468	inset := 0.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4469	x := y := inset.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4470	w := h := 15.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4471
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4472	self verticalLayout ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	4473	aDirection == #NEXT ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	4474	y := height - h - inset.
93426020ceed * empty log message * ca parents: 2216 diff changeset	4475	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	4476	w := width - inset - inset.
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4477	] ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	4478	aDirection == #NEXT ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	4479	x := width - w - inset.
93426020ceed * empty log message * ca parents: 2216 diff changeset	4480	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	4481	h := height - inset - inset.
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4482	].
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4483	^ Rectangle left:x top:y width:w height:h
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4484	!
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4485
2046 012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	4486	scrollerDirectionAtPoint:aPoint
012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	4487	"returns the scroller-direction at aPoint, or nil
012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	4488	"
012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	4489	self hasScrollers ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	4490	#( PREV NEXT ) do:[:aDirection\| \|bounds\|
93426020ceed * empty log message * ca parents: 2216 diff changeset	4491	( (bounds := self scrollerBoundsAt:aDirection) notNil
93426020ceed * empty log message * ca parents: 2216 diff changeset	4492	and:[bounds containsPoint:aPoint]
93426020ceed * empty log message * ca parents: 2216 diff changeset	4493	) ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	4494	^ (self hasScrollerAt:aDirection) ifTrue:[aDirection] ifFalse:[nil]
93426020ceed * empty log message * ca parents: 2216 diff changeset	4495	]
93426020ceed * empty log message * ca parents: 2216 diff changeset	4496	]
2046 012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	4497	].
012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	4498	^ nil
012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	4499
012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	4500	"Created: / 13.11.2001 / 14:13:16 / cg"
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4501	! !
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4502
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	4503	!MenuPanel methodsFor:'private-searching'!
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4504
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4505	detectGrabMenu
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4506	"returns the menu which is responsible for the grap; the last opened menu
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4507	"
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4508	\|subMenu\|
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4509
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4510	selection notNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	4511	(subMenu := selection visibleSubmenu) notNil ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	4512	^ subMenu detectGrabMenu
93426020ceed * empty log message * ca parents: 2216 diff changeset	4513	]
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4514	].
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4515	^ self
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4516	!
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4517
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4518	detectMenuAtGrabPoint:aGrabPoint
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4519	"returns the menu which contains the grab-point
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4520	"
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4521	\|dstMenu dstPoint firstMenu\|
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4522
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4523	dstPoint := self translateGrabPoint:aGrabPoint.
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4524
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4525	((dstPoint x between:0 and:width) and:[dstPoint y between:0 and:height]) ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	4526	firstMenu := self.
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4527	].
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4528
1786 f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	4529	(selection isNil or:[(dstMenu := selection visibleSubmenu) isNil]) ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	4530	^ firstMenu
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4531	].
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4532	dstMenu := dstMenu detectMenuAtGrabPoint:aGrabPoint.
2059 c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	4533	^ dstMenu ? firstMenu
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4534	!
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4535
1767 e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	4536	detectViewAtX:x y:y in:aTopView
1922 1a2ab52eb2ab bug fix in #detectViewAtX:y:in: ca parents: 1921 diff changeset	4537	"detect view at x@y
1a2ab52eb2ab bug fix in #detectViewAtX:y:in: ca parents: 1921 diff changeset	4538	"
2020 1f1868eba475 extracted common code to detectViewAt:aPoint. Claus Gittinger <cg@exept.de> parents: 2018 diff changeset	4539	^ aTopView detectViewAt:(x@y).
1f1868eba475 extracted common code to detectViewAt:aPoint. Claus Gittinger <cg@exept.de> parents: 2018 diff changeset	4540
1f1868eba475 extracted common code to detectViewAt:aPoint. Claus Gittinger <cg@exept.de> parents: 2018 diff changeset	4541	"/ 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	4542	"/
1f1868eba475 extracted common code to detectViewAt:aPoint. Claus Gittinger <cg@exept.de> parents: 2018 diff changeset	4543	"/ \|p subViews\|
1f1868eba475 extracted common code to detectViewAt:aPoint. Claus Gittinger <cg@exept.de> parents: 2018 diff changeset	4544	"/
1f1868eba475 extracted common code to detectViewAt:aPoint. Claus Gittinger <cg@exept.de> parents: 2018 diff changeset	4545	"/ (subViews := aTopView subViews) notNil ifTrue:[
1f1868eba475 extracted common code to detectViewAt:aPoint. Claus Gittinger <cg@exept.de> parents: 2018 diff changeset	4546	"/ subViews do:[:v\| \|p\|
1f1868eba475 extracted common code to detectViewAt:aPoint. Claus Gittinger <cg@exept.de> parents: 2018 diff changeset	4547	"/ v shown ifTrue:[
1f1868eba475 extracted common code to detectViewAt:aPoint. Claus Gittinger <cg@exept.de> parents: 2018 diff changeset	4548	"/ ( (x between:(v left) and:(v right))
1f1868eba475 extracted common code to detectViewAt:aPoint. Claus Gittinger <cg@exept.de> parents: 2018 diff changeset	4549	"/ and:[y between:(v top) and:(v bottom)]
1f1868eba475 extracted common code to detectViewAt:aPoint. Claus Gittinger <cg@exept.de> parents: 2018 diff changeset	4550	"/ ) ifTrue:[
1f1868eba475 extracted common code to detectViewAt:aPoint. Claus Gittinger <cg@exept.de> parents: 2018 diff changeset	4551	"/ 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	4552	"/ ^ 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	4553	"/ ]
1f1868eba475 extracted common code to detectViewAt:aPoint. Claus Gittinger <cg@exept.de> parents: 2018 diff changeset	4554	"/ ]
1f1868eba475 extracted common code to detectViewAt:aPoint. Claus Gittinger <cg@exept.de> parents: 2018 diff changeset	4555	"/ ]
1f1868eba475 extracted common code to detectViewAt:aPoint. Claus Gittinger <cg@exept.de> parents: 2018 diff changeset	4556	"/ ].
1f1868eba475 extracted common code to detectViewAt:aPoint. Claus Gittinger <cg@exept.de> parents: 2018 diff changeset	4557	"/ ^ aTopView
1f1868eba475 extracted common code to detectViewAt:aPoint. Claus Gittinger <cg@exept.de> parents: 2018 diff changeset	4558
1f1868eba475 extracted common code to detectViewAt:aPoint. Claus Gittinger <cg@exept.de> parents: 2018 diff changeset	4559	"Modified: / 10.10.2001 / 13:45:56 / cg"
1767 e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	4560	!
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	4561
2347 9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	4562	itemAt:stringOrNumberOrPoint
9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	4563	"returns item assigned to an index, nameKey, textLabel or value if symbol.
9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	4564	If no item match nil is returned.
9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	4565	"
9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	4566	\|idx\|
9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	4567
9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	4568	stringOrNumberOrPoint isPoint ifTrue:[
9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	4569	^ self itemAtPoint:stringOrNumberOrPoint
9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	4570	].
9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	4571	idx := self indexOf:stringOrNumberOrPoint.
9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	4572	(idx > 0 and:[idx <= items size]) ifTrue:[ ^ items at:idx ].
2046 012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	4573	^ nil
2347 9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	4574	!
9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	4575
9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	4576	itemAtPoint:aPoint
9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	4577	"returns the item at aPoint or nil if none detected
9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	4578	"
9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	4579	\|x y\|
9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	4580
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4581	items notNil ifTrue:[
2347 9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	4582	x := aPoint x.
9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	4583	y := aPoint y.
9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	4584	^ items detect:[:el\| el containsPointX:x y:y] ifNone:nil
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4585	].
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4586	^ nil
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4587	!
dce33f8bb806 intitial checkin ca parents: diff changeset	4588
2048 ba472f3f46c7 code cleanup Claus Gittinger <cg@exept.de> parents: 2047 diff changeset	4589	superMenuAtPoint:aPoint
ba472f3f46c7 code cleanup Claus Gittinger <cg@exept.de> parents: 2047 diff changeset	4590	"returns the superMenu which contains aPoint, or nil if none detected
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4591	"
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4592	\|grabPoint superMenu\|
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4593
2048 ba472f3f46c7 code cleanup Claus Gittinger <cg@exept.de> parents: 2047 diff changeset	4594	(self containsPoint:aPoint) ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	4595	^ self
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4596	].
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4597
2048 ba472f3f46c7 code cleanup Claus Gittinger <cg@exept.de> parents: 2047 diff changeset	4598	grabPoint := aPoint - (self translateGrabPoint:0).
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4599	superMenu := self.
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4600
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4601	[ (superMenu := superMenu superMenu) notNil ] whileTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	4602	(superMenu containsPoint:(superMenu translateGrabPoint:grabPoint)) ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	4603	^ superMenu
93426020ceed * empty log message * ca parents: 2216 diff changeset	4604	]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4605	].
dce33f8bb806 intitial checkin ca parents: diff changeset	4606	^ nil
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4607
2048 ba472f3f46c7 code cleanup Claus Gittinger <cg@exept.de> parents: 2047 diff changeset	4608	"Created: / 13.11.2001 / 20:22:53 / cg"
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4609	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	4610
dce33f8bb806 intitial checkin ca parents: diff changeset	4611	!MenuPanel methodsFor:'queries'!
dce33f8bb806 intitial checkin ca parents: diff changeset	4612
2003 732fbaf5864f avoid changing the level after realization (to avoid confusing the shadow) Claus Gittinger <cg@exept.de> parents: 2000 diff changeset	4613	container:aView
732fbaf5864f avoid changing the level after realization (to avoid confusing the shadow) Claus Gittinger <cg@exept.de> parents: 2000 diff changeset	4614	super container:aView.
732fbaf5864f avoid changing the level after realization (to avoid confusing the shadow) Claus Gittinger <cg@exept.de> parents: 2000 diff changeset	4615	aView notNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	4616	"/ I am no longer a popUpView
93426020ceed * empty log message * ca parents: 2216 diff changeset	4617	self updateLevelAndBorder
2003 732fbaf5864f avoid changing the level after realization (to avoid confusing the shadow) Claus Gittinger <cg@exept.de> parents: 2000 diff changeset	4618	].
732fbaf5864f avoid changing the level after realization (to avoid confusing the shadow) Claus Gittinger <cg@exept.de> parents: 2000 diff changeset	4619	!
732fbaf5864f avoid changing the level after realization (to avoid confusing the shadow) Claus Gittinger <cg@exept.de> parents: 2000 diff changeset	4620
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4621	containsPoint:aPoint
dce33f8bb806 intitial checkin ca parents: diff changeset	4622	"returns true if point is contained by the view
dce33f8bb806 intitial checkin ca parents: diff changeset	4623	"
dce33f8bb806 intitial checkin ca parents: diff changeset	4624	^ self containsPointX:(aPoint x) y:(aPoint y)
dce33f8bb806 intitial checkin ca parents: diff changeset	4625	!
dce33f8bb806 intitial checkin ca parents: diff changeset	4626
dce33f8bb806 intitial checkin ca parents: diff changeset	4627	containsPointX:x y:y
dce33f8bb806 intitial checkin ca parents: diff changeset	4628	"returns true if point is contained by the view
dce33f8bb806 intitial checkin ca parents: diff changeset	4629	"
708 245b1aa06151 checkin from browser Claus Gittinger <cg@exept.de> parents: 706 diff changeset	4630	^ (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	4631
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4632	!
dce33f8bb806 intitial checkin ca parents: diff changeset	4633
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	4634	hasGroupDividerAt:anIndex
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4635	"returns true if a divider is defined at an index
dce33f8bb806 intitial checkin ca parents: diff changeset	4636	"
dce33f8bb806 intitial checkin ca parents: diff changeset	4637	\|i\|
dce33f8bb806 intitial checkin ca parents: diff changeset	4638
dce33f8bb806 intitial checkin ca parents: diff changeset	4639	groupSizes size ~~ 0 ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	4640	i := 0.
93426020ceed * empty log message * ca parents: 2216 diff changeset	4641
93426020ceed * empty log message * ca parents: 2216 diff changeset	4642	groupSizes do:[:t\|
93426020ceed * empty log message * ca parents: 2216 diff changeset	4643	(i := i + t) == anIndex ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	4644	^ true
93426020ceed * empty log message * ca parents: 2216 diff changeset	4645	]
93426020ceed * empty log message * ca parents: 2216 diff changeset	4646	]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4647	].
dce33f8bb806 intitial checkin ca parents: diff changeset	4648	^ false
dce33f8bb806 intitial checkin ca parents: diff changeset	4649
dce33f8bb806 intitial checkin ca parents: diff changeset	4650	!
dce33f8bb806 intitial checkin ca parents: diff changeset	4651
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	4652	hasGroupDividers
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	4653	"returns true if any group divider exists
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	4654	"
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	4655	^ (items size ~~ 0 and:[groupSizes size ~~ 0])
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	4656	!
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	4657
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4658	isEnabled
dce33f8bb806 intitial checkin ca parents: diff changeset	4659	"returns enabled state of menu and items
dce33f8bb806 intitial checkin ca parents: diff changeset	4660	"
dce33f8bb806 intitial checkin ca parents: diff changeset	4661	^ self enabled
dce33f8bb806 intitial checkin ca parents: diff changeset	4662	!
dce33f8bb806 intitial checkin ca parents: diff changeset	4663
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	4664	isFitPanel
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	4665	"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	4666	be fit to the extent of its superView;
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4667	NOT SUPPORTED
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4668	"
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4669	^ false
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	4670	!
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	4671
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4672	isPopUpView
dce33f8bb806 intitial checkin ca parents: diff changeset	4673	"return true if view is a popup view; without decoration
dce33f8bb806 intitial checkin ca parents: diff changeset	4674	and popUp to top immediately
dce33f8bb806 intitial checkin ca parents: diff changeset	4675	"
dce33f8bb806 intitial checkin ca parents: diff changeset	4676	^ superView isNil
dce33f8bb806 intitial checkin ca parents: diff changeset	4677
dce33f8bb806 intitial checkin ca parents: diff changeset	4678
dce33f8bb806 intitial checkin ca parents: diff changeset	4679	!
dce33f8bb806 intitial checkin ca parents: diff changeset	4680
dce33f8bb806 intitial checkin ca parents: diff changeset	4681	isVerticalLayout
dce33f8bb806 intitial checkin ca parents: diff changeset	4682	"returns true if vertical layout otherwise false( horizontal layout )
dce33f8bb806 intitial checkin ca parents: diff changeset	4683	"
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4684	^ self verticalLayout
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4685
dce33f8bb806 intitial checkin ca parents: diff changeset	4686
416 c05874084d4c implement ca parents: 407 diff changeset	4687	!
c05874084d4c implement ca parents: 407 diff changeset	4688
1793 f76529768dd6 keyPress:... check for wrapped view ca parents: 1791 diff changeset	4689	isViewWrapper
2214 8eefad87cf62 drawing delayed menu indicators... first try not yet finished ca parents: 2199 diff changeset	4690	^ items size == 0 and:[subViews size ~~ 0]
1793 f76529768dd6 keyPress:... check for wrapped view ca parents: 1791 diff changeset	4691	!
f76529768dd6 keyPress:... check for wrapped view ca parents: 1791 diff changeset	4692
416 c05874084d4c implement ca parents: 407 diff changeset	4693	type
428 5cf5fb7ecf39 type ca parents: 427 diff changeset	4694	^ nil.
416 c05874084d4c implement ca parents: 407 diff changeset	4695
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4696	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	4697
dce33f8bb806 intitial checkin ca parents: diff changeset	4698	!MenuPanel methodsFor:'selection'!
dce33f8bb806 intitial checkin ca parents: diff changeset	4699
dce33f8bb806 intitial checkin ca parents: diff changeset	4700	hasSelection
dce33f8bb806 intitial checkin ca parents: diff changeset	4701	"returns true if a selection exists
dce33f8bb806 intitial checkin ca parents: diff changeset	4702	"
dce33f8bb806 intitial checkin ca parents: diff changeset	4703	^ self selection notNil
dce33f8bb806 intitial checkin ca parents: diff changeset	4704	!
dce33f8bb806 intitial checkin ca parents: diff changeset	4705
2199 61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	4706	openDelayed:anItem
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	4707
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	4708	superMenu notNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	4709	superMenu openDelayed:anItem.
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	4710	^ self
975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	4711	].
975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	4712	openDelayedMenuBlock notNil ifTrue:[
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	4713	Processor removeTimedBlock:openDelayedMenuBlock.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	4714	openDelayedMenuBlock := nil.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	4715	].
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	4716	anItem isNil ifTrue:[
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	4717	openDelayedMenuBlock := nil.
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	4718	^ self
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	4719	].
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	4720	openDelayedMenuBlock := [
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	4721	openDelayedMenuBlock := nil.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	4722	anItem openDelayedSubmenu
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	4723	].
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	4724
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	4725	Processor addTimedBlock:openDelayedMenuBlock afterSeconds:0.5.
2199 61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	4726	!
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	4727
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4728	selection
dce33f8bb806 intitial checkin ca parents: diff changeset	4729	"returns current selected item or nil
dce33f8bb806 intitial checkin ca parents: diff changeset	4730	"
dce33f8bb806 intitial checkin ca parents: diff changeset	4731	^ selection
dce33f8bb806 intitial checkin ca parents: diff changeset	4732
dce33f8bb806 intitial checkin ca parents: diff changeset	4733
dce33f8bb806 intitial checkin ca parents: diff changeset	4734	!
dce33f8bb806 intitial checkin ca parents: diff changeset	4735
dce33f8bb806 intitial checkin ca parents: diff changeset	4736	selection:anItemOrNil
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4737	"change selection to an item or nil
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4738	if the item has a submenu the first item might be selected (style-sheet)
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4739	"
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4740	\|openMenu openOnSelect submenu item\|
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4741
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4742	selection == anItemOrNil ifTrue:[^ self].
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4743
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4744	(anItemOrNil isNil or:[anItemOrNil hasSubmenu not]) ifTrue:[
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4745	self selection:anItemOrNil openMenu:false.
2347 9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	4746	^ self
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4747	].
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4748
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4749	openMenu := self isPopUpView not.
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4750	openOnSelect := styleSheet at:#'menu.openOnSelect' default:false.
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4751
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4752	openMenu ifFalse:[
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4753	openMenu := openOnSelect.
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4754	].
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4755	self selection:anItemOrNil openMenu:openMenu.
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4756
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4757	openOnSelect ifFalse:[
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4758	"/ select first item in submenu
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4759
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4760	submenu := anItemOrNil currentSubmenu.
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4761
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	4762	submenu notNil ifTrue:[
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4763	item := submenu itemAt:1.
2347 9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	4764	(item notNil and:[item hasSubmenu not]) ifTrue:[
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4765	submenu selection:item openMenu:false
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4766	]
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4767	].
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4768	].
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4769	!
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4770
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4771	selection:anItemOrNil openMenu:openMenu
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4772	"change selection to an item or nil
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4773	"
2251 30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	4774	\|helpListener oldSelect\|
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4775
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4776	anItemOrNil == selection ifTrue:[
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4777	^ self
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4778	].
2199 61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	4779	self openDelayed:nil.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4780
2251 30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	4781	oldSelect := selection.
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	4782	selection := nil.
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4783
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	4784	anItemOrNil notNil ifTrue:[
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4785	self makeItemVisible:anItemOrNil.
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4786	anItemOrNil canSelect ifTrue:[
2251 30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	4787	selection := anItemOrNil
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4788	] ifFalse:[
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	4789	oldSelect isNil ifTrue:[^ self].
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4790	].
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4791	].
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	4792	oldSelect notNil ifTrue:[
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4793	"/ clear current selection
2251 30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	4794	oldSelect isSelected:false.
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	4795	].
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	4796	selection isNil ifTrue:[^ self].
2251 30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	4797
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	4798	selection == enteredItem ifTrue:[
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4799	enteredItem := nil
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4800	] ifFalse:[
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4801	self pointerEntersItem:nil
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4802	].
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4803	ActiveHelp isActive ifTrue:[
2251 30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	4804	helpListener := ActiveHelp currentHelpListener.
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	4805	helpListener initiateHelpFor:self at:nil now:true.
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4806	].
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4807	shown ifTrue:[
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4808	self rearrangeItems.
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4809
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4810	openMenu ifFalse:[
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4811	selection invalidate.
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4812	]
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4813	].
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4814	openMenu ifTrue:[
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4815	selection isSelected:true.
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4816	].
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4817	!
dce33f8bb806 intitial checkin ca parents: diff changeset	4818
dce33f8bb806 intitial checkin ca parents: diff changeset	4819	selectionIndex
dce33f8bb806 intitial checkin ca parents: diff changeset	4820	"returns index of current selection or 0
dce33f8bb806 intitial checkin ca parents: diff changeset	4821	"
dce33f8bb806 intitial checkin ca parents: diff changeset	4822	\|item\|
dce33f8bb806 intitial checkin ca parents: diff changeset	4823
dce33f8bb806 intitial checkin ca parents: diff changeset	4824	(item := self selection) notNil ifTrue:[
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	4825	^ self findFirst:[:el\| el == item ]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4826	].
dce33f8bb806 intitial checkin ca parents: diff changeset	4827	^ 0
dce33f8bb806 intitial checkin ca parents: diff changeset	4828
dce33f8bb806 intitial checkin ca parents: diff changeset	4829	!
dce33f8bb806 intitial checkin ca parents: diff changeset	4830
dce33f8bb806 intitial checkin ca parents: diff changeset	4831	selectionIndex:anIndex
dce33f8bb806 intitial checkin ca parents: diff changeset	4832	"set selection at an index
dce33f8bb806 intitial checkin ca parents: diff changeset	4833	"
dce33f8bb806 intitial checkin ca parents: diff changeset	4834	self selection:(self itemAt:anIndex)
dce33f8bb806 intitial checkin ca parents: diff changeset	4835	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	4836
1791 bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	4837	!MenuPanel methodsFor:'translation'!
bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	4838
bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	4839	translateGrabPoint:aGrabPoint
bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	4840	"translate the grab point into self
bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	4841	"
bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	4842	superMenu isNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	4843	"I am the grapView"
93426020ceed * empty log message * ca parents: 2216 diff changeset	4844	aGrabPoint isNumber ifTrue:[^ aGrabPoint @ aGrabPoint].
1791 bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	4845	^ aGrabPoint
bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	4846	].
bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	4847
bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	4848	relativeGrabOrigin isNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	4849	relativeGrabOrigin := self topMenu translatePoint:0 to:self.
1791 bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	4850	].
bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	4851	^ relativeGrabOrigin + aGrabPoint
bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	4852
bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	4853	!
bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	4854
bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	4855	translateMenuPoint:aPoint toMenu:aMenu
bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	4856	"translate a point into another menu its point
bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	4857	"
bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	4858	\|grapPoint\|
bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	4859
bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	4860	aMenu == self ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	4861	^ aPoint
1791 bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	4862	].
bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	4863	grapPoint := aPoint - (self translateGrabPoint:0).
bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	4864
bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	4865	^ aMenu translateGrabPoint:grapPoint
bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	4866
bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	4867	!
bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	4868
2020 1f1868eba475 extracted common code to detectViewAt:aPoint. Claus Gittinger <cg@exept.de> parents: 2018 diff changeset	4869	translatePoint:aPoint to:anotherWindowOrNilForScreen
1f1868eba475 extracted common code to detectViewAt:aPoint. Claus Gittinger <cg@exept.de> parents: 2018 diff changeset	4870	"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	4871	"
1f1868eba475 extracted common code to detectViewAt:aPoint. Claus Gittinger <cg@exept.de> parents: 2018 diff changeset	4872
1f1868eba475 extracted common code to detectViewAt:aPoint. Claus Gittinger <cg@exept.de> parents: 2018 diff changeset	4873	^ device
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	4874	translatePoint:aPoint asPoint
93426020ceed * empty log message * ca parents: 2216 diff changeset	4875	fromView:self
93426020ceed * empty log message * ca parents: 2216 diff changeset	4876	toView:anotherWindowOrNilForScreen
2020 1f1868eba475 extracted common code to detectViewAt:aPoint. Claus Gittinger <cg@exept.de> parents: 2018 diff changeset	4877
1f1868eba475 extracted common code to detectViewAt:aPoint. Claus Gittinger <cg@exept.de> parents: 2018 diff changeset	4878	"Modified: / 10.10.2001 / 14:11:47 / cg"
1791 bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	4879	! !
bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	4880
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4881	!MenuPanel::Item class methodsFor:'accessing'!
dce33f8bb806 intitial checkin ca parents: diff changeset	4882
689 aa13913add84 clear lastActiveMenu when closed ca parents: 687 diff changeset	4883	horizontalInset
aa13913add84 clear lastActiveMenu when closed ca parents: 687 diff changeset	4884	^ HorizontalInset
aa13913add84 clear lastActiveMenu when closed ca parents: 687 diff changeset	4885	!
aa13913add84 clear lastActiveMenu when closed ca parents: 687 diff changeset	4886
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4887	labelRightOffset
dce33f8bb806 intitial checkin ca parents: diff changeset	4888	^ LabelRightOffset
dce33f8bb806 intitial checkin ca parents: diff changeset	4889	!
dce33f8bb806 intitial checkin ca parents: diff changeset	4890
689 aa13913add84 clear lastActiveMenu when closed ca parents: 687 diff changeset	4891	verticalInset
aa13913add84 clear lastActiveMenu when closed ca parents: 687 diff changeset	4892	^ VerticalInset
1765 a003f417d6ad fix for vertical spacing Claus Gittinger <cg@exept.de> parents: 1762 diff changeset	4893	!
a003f417d6ad fix for vertical spacing Claus Gittinger <cg@exept.de> parents: 1762 diff changeset	4894
a003f417d6ad fix for vertical spacing Claus Gittinger <cg@exept.de> parents: 1762 diff changeset	4895	verticalPopUpInset
a003f417d6ad fix for vertical spacing Claus Gittinger <cg@exept.de> parents: 1762 diff changeset	4896	^ VerticalPopUpInset
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4897	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	4898
616 a6157b083830 support of different styles ca parents: 608 diff changeset	4899	!MenuPanel::Item class methodsFor:'defaults'!
a6157b083830 support of different styles ca parents: 608 diff changeset	4900
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	4901	halfSeparatorSize
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	4902	"returns size of a space-separator
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	4903	"
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	4904	^ 5
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	4905	!
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	4906
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4907	separatorSize
616 a6157b083830 support of different styles ca parents: 608 diff changeset	4908	"returns size of a separator
a6157b083830 support of different styles ca parents: 608 diff changeset	4909	"
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4910	^ 10
616 a6157b083830 support of different styles ca parents: 608 diff changeset	4911	!
a6157b083830 support of different styles ca parents: 608 diff changeset	4912
a6157b083830 support of different styles ca parents: 608 diff changeset	4913	updateStyleCache
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4914	"setup defaults
650 29dcdf6a5994 button and label translation support added tz parents: 638 diff changeset	4915	self updateStyleCache
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4916	"
1765 a003f417d6ad fix for vertical spacing Claus Gittinger <cg@exept.de> parents: 1762 diff changeset	4917	<resource: #style (#'menuPanel.verticalInset')>
a003f417d6ad fix for vertical spacing Claus Gittinger <cg@exept.de> parents: 1762 diff changeset	4918
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4919	HorizontalInset := 2.
1765 a003f417d6ad fix for vertical spacing Claus Gittinger <cg@exept.de> parents: 1762 diff changeset	4920	VerticalInset := MenuPanel styleSheet at:#'menuPanel.verticalInset' default:2.
a003f417d6ad fix for vertical spacing Claus Gittinger <cg@exept.de> parents: 1762 diff changeset	4921	VerticalPopUpInset := 2.
727 3ba54333342a button style from style sheet tz parents: 723 diff changeset	4922
3ba54333342a button style from style sheet tz parents: 723 diff changeset	4923	HorizontalButtonInset := 3.
3ba54333342a button style from style sheet tz parents: 723 diff changeset	4924	VerticalButtonInset := 3.
3ba54333342a button style from style sheet tz parents: 723 diff changeset	4925
681 62c7cdaca188 extra default inset values for button behaviour added tz parents: 680 diff changeset	4926	LabelRightOffset := 15.
1765 a003f417d6ad fix for vertical spacing Claus Gittinger <cg@exept.de> parents: 1762 diff changeset	4927
a003f417d6ad fix for vertical spacing Claus Gittinger <cg@exept.de> parents: 1762 diff changeset	4928
1124 4a7fec62a572 smaller checkbox. Claus Gittinger <cg@exept.de> parents: 1117 diff changeset	4929	! !
1078 3adf74275ebd support choice for buttons ca parents: 1076 diff changeset	4930
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4931	!MenuPanel::Item class methodsFor:'instance creation'!
dce33f8bb806 intitial checkin ca parents: diff changeset	4932
dce33f8bb806 intitial checkin ca parents: diff changeset	4933	in:aSuperMenu
dce33f8bb806 intitial checkin ca parents: diff changeset	4934	^ self in:aSuperMenu label:nil
dce33f8bb806 intitial checkin ca parents: diff changeset	4935	!
dce33f8bb806 intitial checkin ca parents: diff changeset	4936
dce33f8bb806 intitial checkin ca parents: diff changeset	4937	in:aSuperMenu label:aLabel
dce33f8bb806 intitial checkin ca parents: diff changeset	4938	\|item\|
dce33f8bb806 intitial checkin ca parents: diff changeset	4939
dce33f8bb806 intitial checkin ca parents: diff changeset	4940	item := self new in:aSuperMenu.
dce33f8bb806 intitial checkin ca parents: diff changeset	4941	item label:aLabel.
dce33f8bb806 intitial checkin ca parents: diff changeset	4942	^ item
dce33f8bb806 intitial checkin ca parents: diff changeset	4943	!
dce33f8bb806 intitial checkin ca parents: diff changeset	4944
dce33f8bb806 intitial checkin ca parents: diff changeset	4945	in:aSuperMenu menuItem:aMenuItem
dce33f8bb806 intitial checkin ca parents: diff changeset	4946	\|item\|
dce33f8bb806 intitial checkin ca parents: diff changeset	4947
dce33f8bb806 intitial checkin ca parents: diff changeset	4948	item := self in:aSuperMenu.
dce33f8bb806 intitial checkin ca parents: diff changeset	4949	item menuItem:aMenuItem.
dce33f8bb806 intitial checkin ca parents: diff changeset	4950	^ item.
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	4951	!
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	4952
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	4953	new
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	4954	^ self basicNew initialize
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4955	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	4956
1808 e8628b502a49 methodCategory change Claus Gittinger <cg@exept.de> parents: 1806 diff changeset	4957	!MenuPanel::Item methodsFor:'accepting'!
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	4958
420 b6f9fff472ef fixes ca parents: 417 diff changeset	4959	canAccept
b6f9fff472ef fixes ca parents: 417 diff changeset	4960	"returns true if item is acceptable
b6f9fff472ef fixes ca parents: 417 diff changeset	4961	"
2199 61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	4962	self enabled ifFalse:[ ^ false].
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	4963	self hasSubmenu ifFalse:[ ^ true ].
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	4964
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	4965	self hasDelayedMenu ifFalse:[^ false ].
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	4966	^ subMenu isNil or:[subMenu shown not]
524 d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	4967	!
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	4968
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	4969	toggleIndication
1074 25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	4970	"toggle indication or choice
524 d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	4971	"
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	4972	\|arg\|
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	4973
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	4974	indication notNil ifTrue:[
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	4975	arg := self indicationValue not.
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	4976	self indicationValue:arg.
1074 25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	4977	] ifFalse:[
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	4978	choice notNil ifTrue:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	4979	choice value:(menuItem choiceValue).
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	4980	^ true
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	4981	]
524 d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	4982	].
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	4983	^ arg
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	4984	! !
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	4985
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4986	!MenuPanel::Item methodsFor:'accessing'!
dce33f8bb806 intitial checkin ca parents: diff changeset	4987
dce33f8bb806 intitial checkin ca parents: diff changeset	4988	accessCharacter
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	4989	"returns my accessCharacter or nil
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4990	"
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	4991	^ accessCharacter
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4992	!
dce33f8bb806 intitial checkin ca parents: diff changeset	4993
dce33f8bb806 intitial checkin ca parents: diff changeset	4994	accessCharacterPosition
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	4995	"get the access character position or nil
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4996	"
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	4997	^ menuItem accessCharacterPosition
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	4998	!
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	4999
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5000	accessCharacterPosition:anIndex
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	5001	"set the access character position or nil
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5002	"
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5003	menuItem accessCharacterPosition:anIndex.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5004	!
dce33f8bb806 intitial checkin ca parents: diff changeset	5005
dce33f8bb806 intitial checkin ca parents: diff changeset	5006	argument
dce33f8bb806 intitial checkin ca parents: diff changeset	5007	"gets the argument
dce33f8bb806 intitial checkin ca parents: diff changeset	5008	"
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5009	^ menuItem argument
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5010	!
dce33f8bb806 intitial checkin ca parents: diff changeset	5011
dce33f8bb806 intitial checkin ca parents: diff changeset	5012	argument:anArgument
dce33f8bb806 intitial checkin ca parents: diff changeset	5013	"sets the argument
dce33f8bb806 intitial checkin ca parents: diff changeset	5014	"
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5015	menuItem argument:anArgument.
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	5016	!
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	5017
2433 49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5018	displayLabel
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5019	"returns my printable Label
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5020	"
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5021	^ displayLabel
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5022	!
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5023
2614 86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5024	displayLabelExtent
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5025	"returns the labelExtent
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5026	"
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5027	\|prevFont w h\|
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5028
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5029	displayLabelExtent notNil ifTrue:[
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5030	^ displayLabelExtent
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5031	].
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5032
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5033	displayLabel isNil ifTrue:[
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5034	displayLabelExtent := 0@0.
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5035	^ displayLabelExtent
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5036	].
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5037	prevFont := menuPanel setFont:(self font).
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5038
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5039	displayLabel isArray ifTrue:[
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5040	w := h := 0.
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5041
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5042	displayLabel do:[:aSubLabel\|
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5043	aSubLabel notNil ifTrue:[
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5044	w := w max:(aSubLabel widthOn:menuPanel).
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5045	h := h + 1 + (aSubLabel heightOn:menuPanel).
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5046	] ifFalse:[
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5047	h := h + (self spaceBetweenEmptyLines)
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5048	]
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5049	]
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5050	] ifFalse:[
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5051	w := displayLabel widthOn:menuPanel.
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5052	h := displayLabel heightOn:menuPanel.
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5053	].
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5054	"/ care for italic fonts - give a few more pixels at the end
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5055	menuPanel font italic ifTrue:[
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5056	w := w + 2.
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5057	].
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5058	displayLabelExtent := w@h.
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5059
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5060	prevFont notNil ifTrue:[
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5061	menuPanel setFont:prevFont. "/ restore previous font
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5062	].
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5063	^ displayLabelExtent
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5064	!
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5065
1727 a6365337be59 support setting font in MenuPanel and Editor ca parents: 1726 diff changeset	5066	font
a6365337be59 support setting font in MenuPanel and Editor ca parents: 1726 diff changeset	5067	"returns the user configured font or nil (default menu font)
a6365337be59 support setting font in MenuPanel and Editor ca parents: 1726 diff changeset	5068	"
2373 8dbf026f0bd1 bug fix: specific font used by item ca parents: 2372 diff changeset	5069	\|font\|
8dbf026f0bd1 bug fix: specific font used by item ca parents: 2372 diff changeset	5070
8dbf026f0bd1 bug fix: specific font used by item ca parents: 2372 diff changeset	5071	menuPanel isNil ifTrue:[^ nil].
8dbf026f0bd1 bug fix: specific font used by item ca parents: 2372 diff changeset	5072
8dbf026f0bd1 bug fix: specific font used by item ca parents: 2372 diff changeset	5073	font := menuItem font.
8dbf026f0bd1 bug fix: specific font used by item ca parents: 2372 diff changeset	5074
8dbf026f0bd1 bug fix: specific font used by item ca parents: 2372 diff changeset	5075	font notNil ifTrue:[
8dbf026f0bd1 bug fix: specific font used by item ca parents: 2372 diff changeset	5076	font := font onDevice:(menuPanel device).
8dbf026f0bd1 bug fix: specific font used by item ca parents: 2372 diff changeset	5077	menuItem font:font.
8dbf026f0bd1 bug fix: specific font used by item ca parents: 2372 diff changeset	5078	].
1727 a6365337be59 support setting font in MenuPanel and Editor ca parents: 1726 diff changeset	5079	^ font
a6365337be59 support setting font in MenuPanel and Editor ca parents: 1726 diff changeset	5080	!
a6365337be59 support setting font in MenuPanel and Editor ca parents: 1726 diff changeset	5081
a6365337be59 support setting font in MenuPanel and Editor ca parents: 1726 diff changeset	5082	font:aFont
a6365337be59 support setting font in MenuPanel and Editor ca parents: 1726 diff changeset	5083	"returns the user configured font or nil (default menu font)
a6365337be59 support setting font in MenuPanel and Editor ca parents: 1726 diff changeset	5084	"
2373 8dbf026f0bd1 bug fix: specific font used by item ca parents: 2372 diff changeset	5085	menuItem font:aFont.
1727 a6365337be59 support setting font in MenuPanel and Editor ca parents: 1726 diff changeset	5086	!
a6365337be59 support setting font in MenuPanel and Editor ca parents: 1726 diff changeset	5087
2604 34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	5088	ignoreMnemonicKeys
34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	5089	"if true, mnemonic (access character) in the submenus under the item are ignored
34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	5090	"
34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	5091	^ menuItem ignoreMnemonicKeys
34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	5092	!
34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	5093
34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	5094	ignoreMnemonicKeys:aBoolean
34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	5095	"if true, mnemonic (access character) in the submenus under the item are ignored
34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	5096	"
34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	5097	menuItem ignoreMnemonicKeys:aBoolean.
34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	5098	!
34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	5099
34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	5100	ignoreShortcutKeys
34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	5101	"if true, shortcutKeys (accelerators) in the submenus under the item are ignored
34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	5102	"
34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	5103	^ menuItem ignoreShortcutKeys
34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	5104	!
34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	5105
34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	5106	ignoreShortcutKeys:aBoolean
34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	5107	"if true, shortcutKeys (accelerators) in the submenus under the item are ignored
34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	5108	"
34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	5109	menuItem ignoreShortcutKeys:aBoolean.
34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	5110	!
34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	5111
2345 8b7b3e384002 fallBack to activeHelpKey and label, if no flyByHelp is Claus Gittinger <cg@exept.de> parents: 2344 diff changeset	5112	itemValue
8b7b3e384002 fallBack to activeHelpKey and label, if no flyByHelp is Claus Gittinger <cg@exept.de> parents: 2344 diff changeset	5113	"gets value
8b7b3e384002 fallBack to activeHelpKey and label, if no flyByHelp is Claus Gittinger <cg@exept.de> parents: 2344 diff changeset	5114	"
2360 aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5115	^ menuItem itemValue
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5116	!
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5117
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5118	itemValue:aValue
2345 8b7b3e384002 fallBack to activeHelpKey and label, if no flyByHelp is Claus Gittinger <cg@exept.de> parents: 2344 diff changeset	5119	"argument could be a value holder, an action or selector
8b7b3e384002 fallBack to activeHelpKey and label, if no flyByHelp is Claus Gittinger <cg@exept.de> parents: 2344 diff changeset	5120	"
2360 aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5121	menuItem itemValue:aValue.
2345 8b7b3e384002 fallBack to activeHelpKey and label, if no flyByHelp is Claus Gittinger <cg@exept.de> parents: 2344 diff changeset	5122	!
8b7b3e384002 fallBack to activeHelpKey and label, if no flyByHelp is Claus Gittinger <cg@exept.de> parents: 2344 diff changeset	5123
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5124	label
dce33f8bb806 intitial checkin ca parents: diff changeset	5125	"returns the label
dce33f8bb806 intitial checkin ca parents: diff changeset	5126	"
dce33f8bb806 intitial checkin ca parents: diff changeset	5127	^ label
dce33f8bb806 intitial checkin ca parents: diff changeset	5128	!
dce33f8bb806 intitial checkin ca parents: diff changeset	5129
dce33f8bb806 intitial checkin ca parents: diff changeset	5130	label:aLabel
399 d083b1bce58d ST-80 compatibility ca parents: 396 diff changeset	5131	"set a new label; if the label changed, a redraw is performed;
d083b1bce58d ST-80 compatibility ca parents: 396 diff changeset	5132	handle characters $& (ST-80 compatibility)
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5133	"
2614 86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5134	\|size char oldExtent\|
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5135
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5136	oldExtent := displayLabelExtent.
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5137	displayLabelExtent := nil. "/ force a recomputation
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5138	accessCharacter := disabledDisplayLabel := nil.
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5139	label := aLabel value.
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5140	displayLabel := label value ? ''.
2433 49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5141
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5142	displayLabel isString ifTrue:[
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5143	"CHECK FOR SEPARATOR"
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5144
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5145	(menuItem isButton not and:[indication isNil and:[choice isNil]]) ifTrue:[
2433 49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5146	size := displayLabel size.
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5147
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5148	size == 0 ifTrue:[
2614 86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5149	displayLabel := nil. "blank separator"
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5150	^ self
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5151	].
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5152
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5153	size == 1 ifTrue:[
2433 49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5154	char := displayLabel first.
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5155
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5156	(char == $- or:[char == $=]) ifTrue:[
2614 86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5157	label := displayLabel. "line separator"
2433 49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5158	displayLabel := nil.
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5159	^ self
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5160	]
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5161	]
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5162	]
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5163	] ifFalse:[
2433 49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5164	displayLabel isCollection ifTrue:[
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5165	displayLabel := displayLabel asArray.
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5166	]
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5167	].
2614 86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5168	displayLabel notNil ifTrue:[
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5169	displayLabel isArray ifTrue:[
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5170	displayLabel keysAndValuesDo:[:i :el\|
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5171	el notNil ifTrue:[
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5172	displayLabel at:i put:(self updateAccessCharacterFor:el).
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5173	].
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5174	].
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5175	] ifFalse:[
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5176	displayLabel := self updateAccessCharacterFor:displayLabel.
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5177	].
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5178	].
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5179
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5180	menuPanel shown ifTrue:[
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5181	self fetchImages.
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5182
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5183	oldExtent = self displayLabelExtent ifTrue:[
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5184	self invalidate
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5185	] ifFalse:[
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5186	menuPanel mustRearrange
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5187	]
1978 a53447b8cbe2 set label; reange menu if extent changed otherwise redraw only the item martin parents: 1955 diff changeset	5188	].
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5189	!
dce33f8bb806 intitial checkin ca parents: diff changeset	5190
dce33f8bb806 intitial checkin ca parents: diff changeset	5191	menuPanel
dce33f8bb806 intitial checkin ca parents: diff changeset	5192	"returns my menuPanel
dce33f8bb806 intitial checkin ca parents: diff changeset	5193	"
399 d083b1bce58d ST-80 compatibility ca parents: 396 diff changeset	5194	^ menuPanel
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5195	!
dce33f8bb806 intitial checkin ca parents: diff changeset	5196
dce33f8bb806 intitial checkin ca parents: diff changeset	5197	nameKey
dce33f8bb806 intitial checkin ca parents: diff changeset	5198	"gets the nameKey
dce33f8bb806 intitial checkin ca parents: diff changeset	5199	"
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5200	^ menuItem nameKey
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5201	!
dce33f8bb806 intitial checkin ca parents: diff changeset	5202
dce33f8bb806 intitial checkin ca parents: diff changeset	5203	nameKey:aNameKey
dce33f8bb806 intitial checkin ca parents: diff changeset	5204	"sets the nameKey
dce33f8bb806 intitial checkin ca parents: diff changeset	5205	"
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5206	menuItem nameKey:aNameKey.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5207	!
dce33f8bb806 intitial checkin ca parents: diff changeset	5208
dce33f8bb806 intitial checkin ca parents: diff changeset	5209	rawLabel
2433 49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5210	"returns my raw, unprocessed label
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5211	"
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5212	^ menuItem rawLabel
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5213	!
dce33f8bb806 intitial checkin ca parents: diff changeset	5214
dce33f8bb806 intitial checkin ca parents: diff changeset	5215	shortcutKey
dce33f8bb806 intitial checkin ca parents: diff changeset	5216	"get the key to press to select the submenu from the keyboard or if
dce33f8bb806 intitial checkin ca parents: diff changeset	5217	no submenu exists evaluate the action assigned to the item (accept).
dce33f8bb806 intitial checkin ca parents: diff changeset	5218	"
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5219	^ menuItem shortcutKey
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5220	!
dce33f8bb806 intitial checkin ca parents: diff changeset	5221
dce33f8bb806 intitial checkin ca parents: diff changeset	5222	shortcutKey:aKey
dce33f8bb806 intitial checkin ca parents: diff changeset	5223	"set the key to press to select the submenu from the keyboard or if
dce33f8bb806 intitial checkin ca parents: diff changeset	5224	no submenu exists evaluate the action assigned to the item (accept).
dce33f8bb806 intitial checkin ca parents: diff changeset	5225	"
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5226	menuItem shortcutKey ~= aKey ifTrue:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5227	menuItem shortcutKey:aKey.
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5228	self invalidate.
1889 43516e4588ce give warning messages for unimplemented menu-aspects Claus Gittinger <cg@exept.de> parents: 1878 diff changeset	5229	].
43516e4588ce give warning messages for unimplemented menu-aspects Claus Gittinger <cg@exept.de> parents: 1878 diff changeset	5230	!
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5231
710 4453e463ff16 add new feature: ca parents: 709 diff changeset	5232	startGroup
4453e463ff16 add new feature: ca parents: 709 diff changeset	5233	"start group #left #right #center ... or nil
4453e463ff16 add new feature: ca parents: 709 diff changeset	5234	at the moment only #right is implemented
4453e463ff16 add new feature: ca parents: 709 diff changeset	5235	"
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5236	^ menuItem startGroup
710 4453e463ff16 add new feature: ca parents: 709 diff changeset	5237	!
4453e463ff16 add new feature: ca parents: 709 diff changeset	5238
4453e463ff16 add new feature: ca parents: 709 diff changeset	5239	startGroup:aSymbol
4453e463ff16 add new feature: ca parents: 709 diff changeset	5240	"start group #left #right #center ...
4453e463ff16 add new feature: ca parents: 709 diff changeset	5241	at the moment only #right is implemented
4453e463ff16 add new feature: ca parents: 709 diff changeset	5242	"
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5243	menuItem startGroup:aSymbol.
710 4453e463ff16 add new feature: ca parents: 709 diff changeset	5244	!
4453e463ff16 add new feature: ca parents: 709 diff changeset	5245
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5246	submenu
dce33f8bb806 intitial checkin ca parents: diff changeset	5247	"returns my submenu or nil
dce33f8bb806 intitial checkin ca parents: diff changeset	5248	"
464 a788fdce92e2 add submenuChannel ca parents: 461 diff changeset	5249	subMenu notNil ifTrue:[^ subMenu].
a788fdce92e2 add submenuChannel ca parents: 461 diff changeset	5250	^ self setupSubmenu
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5251	!
dce33f8bb806 intitial checkin ca parents: diff changeset	5252
dce33f8bb806 intitial checkin ca parents: diff changeset	5253	submenu:aSubMenu
dce33f8bb806 intitial checkin ca parents: diff changeset	5254	"set a new submenu; an existing submenu will be destroyed. This might lead
dce33f8bb806 intitial checkin ca parents: diff changeset	5255	to a redraw if 'hasSubmenu' changed
dce33f8bb806 intitial checkin ca parents: diff changeset	5256	"
1795 6afd0e768267 submenuChannel selector: allow upto two arguments, the arg and the menu ca parents: 1793 diff changeset	5257	\|widget\|
1767 e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	5258
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	5259	aSubMenu isNil ifTrue:[
2360 aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5260	subMenu notNil ifTrue:[
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5261	subMenu destroy.
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5262	subMenu := nil.
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5263	].
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5264	^ self
1767 e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	5265	].
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	5266
1795 6afd0e768267 submenuChannel selector: allow upto two arguments, the arg and the menu ca parents: 1793 diff changeset	5267	(aSubMenu isKindOf:Menu) ifTrue:[
2360 aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5268	subMenu := MenuPanel new.
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5269
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5270	menuPanel notNil ifTrue:[
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5271	subMenu receiver:menuPanel receiver.
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5272	].
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5273	subMenu superMenu:menuPanel.
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5274
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5275	menuItem horizontalLayout == true ifTrue:[
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5276	subMenu verticalLayout:false
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5277	].
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5278	subMenu menu:aSubMenu.
1767 e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	5279	] ifFalse:[
2360 aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5280	aSubMenu isView ifFalse:[
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5281	(aSubMenu isKindOf:ApplicationModel) ifFalse:[
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5282	"/ ... mhhhh ....
2364 c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	5283	^ menuItem submenuChannel:aSubMenu
2360 aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5284	].
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5285	widget := SimpleView new.
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5286	widget client:aSubMenu.
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5287	] ifTrue:[
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5288	widget := aSubMenu
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5289	].
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5290
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5291	(widget isKindOf:MenuPanel) ifTrue:[
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5292	subMenu := widget.
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5293
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5294	menuItem horizontalLayout == true ifTrue:[
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5295	subMenu verticalLayout:false
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5296	].
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5297	] ifFalse:[
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5298	subMenu := MenuPanel new.
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5299	subMenu receiver:menuPanel receiver.
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5300	subMenu addSubView:widget.
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5301	subMenu extent:(widget preferredExtent).
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5302	widget origin:0.0@0.0 corner:1.0@1.0.
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5303	].
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5304	subMenu superMenu:menuPanel.
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5305	].
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	5306	!
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	5307
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	5308	textLabel
2433 49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5309	"returns my textLabel or nil.
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5310	Used internally to select items via initial-character, for example."
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5311
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5312	\|txt\|
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5313
2433 49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5314	displayLabel notNil ifTrue:[
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5315	displayLabel isArray ifFalse:[
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5316	^ displayLabel perform:#string ifNotUnderstood:nil
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5317	].
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5318
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5319	displayLabel do:[:el\|
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5320	(txt := el perform:#string ifNotUnderstood:nil) notNil ifTrue:[
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5321	^ txt
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5322	]
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5323	].
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5324	].
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5325	^ nil
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	5326	!
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	5327
1841 5d01716cc37c implement: triggerOnDown ca parents: 1836 diff changeset	5328	triggerOnDown
5d01716cc37c implement: triggerOnDown ca parents: 1836 diff changeset	5329	"trigger the action if pressed
5d01716cc37c implement: triggerOnDown ca parents: 1836 diff changeset	5330	"
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5331	menuItem triggerOnDown ifTrue:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5332	self hasSubmenu ifFalse:[^ true].
1841 5d01716cc37c implement: triggerOnDown ca parents: 1836 diff changeset	5333	].
5d01716cc37c implement: triggerOnDown ca parents: 1836 diff changeset	5334	^ false
5d01716cc37c implement: triggerOnDown ca parents: 1836 diff changeset	5335	!
5d01716cc37c implement: triggerOnDown ca parents: 1836 diff changeset	5336
5d01716cc37c implement: triggerOnDown ca parents: 1836 diff changeset	5337	triggerOnDown:aBool
5d01716cc37c implement: triggerOnDown ca parents: 1836 diff changeset	5338	"trigger the action if pressed
5d01716cc37c implement: triggerOnDown ca parents: 1836 diff changeset	5339	"
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5340	menuItem triggerOnDown:aBool.
1841 5d01716cc37c implement: triggerOnDown ca parents: 1836 diff changeset	5341	!
5d01716cc37c implement: triggerOnDown ca parents: 1836 diff changeset	5342
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	5343	value
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	5344	"gets value
2345 8b7b3e384002 fallBack to activeHelpKey and label, if no flyByHelp is Claus Gittinger <cg@exept.de> parents: 2344 diff changeset	5345	Left here for ST80 compatibility - value is a bad name
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	5346	"
2360 aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5347	^ menuItem itemValue
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5348	!
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5349
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5350	value:aValue
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	5351	"could be a value holder, an action or selector
2345 8b7b3e384002 fallBack to activeHelpKey and label, if no flyByHelp is Claus Gittinger <cg@exept.de> parents: 2344 diff changeset	5352	Left here for ST80 compatibility - value: is a bad name
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	5353	"
2360 aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5354	menuItem itemValue:aValue.
502 dedc1b29b6ac support of arguments ca parents: 498 diff changeset	5355	!
dedc1b29b6ac support of arguments ca parents: 498 diff changeset	5356
dedc1b29b6ac support of arguments ca parents: 498 diff changeset	5357	value:aValue argument:anArgument
dedc1b29b6ac support of arguments ca parents: 498 diff changeset	5358	"set the value and an argument
dedc1b29b6ac support of arguments ca parents: 498 diff changeset	5359	"
2360 aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5360	menuItem itemValue:aValue.
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5361	menuItem argument:anArgument.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5362	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	5363
1679 af40842718f6 when accepting, and the application does not respond to that Claus Gittinger <cg@exept.de> parents: 1670 diff changeset	5364	!MenuPanel::Item methodsFor:'accessing-behavior'!
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5365
1074 25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	5366	choice
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5367	"implements a radio group; the field
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5368	"
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5369	^ choice
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5370
1074 25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	5371	!
25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	5372
25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	5373	choice:something
25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	5374	"set choice indication
25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	5375	"
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5376	choice == something ifTrue:[^ self].
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5377
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5378	choice isValueModel ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	5379	choice removeDependent:self
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5380	].
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5381
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5382	(choice := something) notNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	5383	choice isSymbol ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	5384	(choice := self aspectAt:choice) isNil ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	5385	choice := something
93426020ceed * empty log message * ca parents: 2216 diff changeset	5386	]
93426020ceed * empty log message * ca parents: 2216 diff changeset	5387	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	5388	choice isValueModel ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	5389	choice addDependent:self
93426020ceed * empty log message * ca parents: 2216 diff changeset	5390	]
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	5391	].
1074 25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	5392	!
25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	5393
25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	5394	choiceValue
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5395	"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	5396	"
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5397	^ menuItem choiceValue
1074 25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	5398	!
25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	5399
25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	5400	choiceValue:something
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5401	"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	5402	"
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5403	menuItem choiceValue ~= something ifTrue:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5404	menuItem choiceValue:something.
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5405	choice notNil ifTrue:[ self invalidate ].
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5406	].
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5407	!
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5408
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5409	enabled
dce33f8bb806 intitial checkin ca parents: diff changeset	5410	"returns the enabled state
dce33f8bb806 intitial checkin ca parents: diff changeset	5411	"
524 d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	5412	\|state\|
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	5413
2364 c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	5414	menuPanel enabled ifFalse:[^ false].
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	5415
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	5416	enableChannel isSymbol ifTrue:[
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	5417	state := self aspectAt:enableChannel.
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	5418
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	5419	state isNil ifTrue:[
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	5420	self ifNotInUIBuilderInfoPrintCR:
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	5421	('MenuPanel::Item [info]: no aspect for ', enableChannel, ' (in ' , label printString , ')').
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	5422	^ true
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	5423	].
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	5424
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	5425	state isValueModel ifTrue:[
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	5426	enableChannel := state.
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	5427	enableChannel addDependent:self.
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	5428	state := enableChannel value.
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	5429	] ifFalse:[
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	5430	state := state value
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	5431	]
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	5432	] ifFalse:[
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	5433	state := enableChannel value
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	5434	].
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	5435	^ state ~~ false
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5436	!
dce33f8bb806 intitial checkin ca parents: diff changeset	5437
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	5438	enabled:something
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5439	"change the enabled state; if the state changed, a redraw is performed
dce33f8bb806 intitial checkin ca parents: diff changeset	5440	"
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	5441	\|oldState newState\|
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	5442
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	5443	enableChannel isNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	5444	oldState := true
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	5445	] ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	5446	oldState := enableChannel value.
93426020ceed * empty log message * ca parents: 2216 diff changeset	5447	enableChannel isValueModel ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	5448	enableChannel removeDependent:self
93426020ceed * empty log message * ca parents: 2216 diff changeset	5449	]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5450	].
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	5451	enableChannel := something.
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	5452
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	5453	enableChannel isNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	5454	menuPanel shown ifFalse:[^ self].
93426020ceed * empty log message * ca parents: 2216 diff changeset	5455	newState := true
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	5456	] ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	5457	enableChannel isValueModel ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	5458	enableChannel addDependent:self
93426020ceed * empty log message * ca parents: 2216 diff changeset	5459	] ifFalse:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	5460	enableChannel isSymbol ifTrue:[^ self]
93426020ceed * empty log message * ca parents: 2216 diff changeset	5461	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	5462	menuPanel shown ifFalse:[^ self].
93426020ceed * empty log message * ca parents: 2216 diff changeset	5463	newState := enableChannel value.
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	5464	].
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	5465
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	5466	newState ~~ oldState ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	5467	self invalidate
1690 38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	5468	].
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	5469	!
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	5470
1670 dbc8a05605e0 add new behavior: hideMenuOnActivated ca parents: 1666 diff changeset	5471	hideMenuOnActivated
dbc8a05605e0 add new behavior: hideMenuOnActivated ca parents: 1666 diff changeset	5472	"hide the menu when the item was activated; the default is true
dbc8a05605e0 add new behavior: hideMenuOnActivated ca parents: 1666 diff changeset	5473	"
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5474	^ menuItem hideMenuOnActivated
1670 dbc8a05605e0 add new behavior: hideMenuOnActivated ca parents: 1666 diff changeset	5475	!
dbc8a05605e0 add new behavior: hideMenuOnActivated ca parents: 1666 diff changeset	5476
dbc8a05605e0 add new behavior: hideMenuOnActivated ca parents: 1666 diff changeset	5477	hideMenuOnActivated:aBool
dbc8a05605e0 add new behavior: hideMenuOnActivated ca parents: 1666 diff changeset	5478	"hide the menu when the item was activated; the default is true
dbc8a05605e0 add new behavior: hideMenuOnActivated ca parents: 1666 diff changeset	5479	"
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5480	menuItem hideMenuOnActivated:aBool.
1670 dbc8a05605e0 add new behavior: hideMenuOnActivated ca parents: 1666 diff changeset	5481	!
dbc8a05605e0 add new behavior: hideMenuOnActivated ca parents: 1666 diff changeset	5482
2216 9cbeda150dae no info for toolbarmenu enable channel penk parents: 2214 diff changeset	5483	ifNotInUIBuilderInfoPrintCR:aMessage
9cbeda150dae no info for toolbarmenu enable channel penk parents: 2214 diff changeset	5484	"/ q&d hack to suppress info-messages in UIBuilder
9cbeda150dae no info for toolbarmenu enable channel penk parents: 2214 diff changeset	5485
9cbeda150dae no info for toolbarmenu enable channel penk parents: 2214 diff changeset	5486	(menuPanel receiver isNil
9cbeda150dae no info for toolbarmenu enable channel penk parents: 2214 diff changeset	5487	and:[ menuPanel application notNil
9cbeda150dae no info for toolbarmenu enable channel penk parents: 2214 diff changeset	5488	and:[ menuPanel application askFor:#isUIPainter]])
9cbeda150dae no info for toolbarmenu enable channel penk parents: 2214 diff changeset	5489	ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	5490	^ self "/ suppressed
2216 9cbeda150dae no info for toolbarmenu enable channel penk parents: 2214 diff changeset	5491	].
9cbeda150dae no info for toolbarmenu enable channel penk parents: 2214 diff changeset	5492	aMessage infoPrintCR
9cbeda150dae no info for toolbarmenu enable channel penk parents: 2214 diff changeset	5493	!
9cbeda150dae no info for toolbarmenu enable channel penk parents: 2214 diff changeset	5494
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	5495	indication
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	5496	"get on/off indication
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	5497	"
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5498	^ indication
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	5499	!
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	5500
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	5501	indication:something
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	5502	"set on/off indication
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	5503	"
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5504	indication == something ifTrue:[^ self].
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5505
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5506	indication isValueModel ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	5507	indication removeDependent:self
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5508	].
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5509
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5510	(indication := something) notNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	5511	indication isValueModel ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	5512	indication addDependent:self
93426020ceed * empty log message * ca parents: 2216 diff changeset	5513	] ifFalse:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	5514	"/ to force an update of the value
93426020ceed * empty log message * ca parents: 2216 diff changeset	5515	self indicationValue
93426020ceed * empty log message * ca parents: 2216 diff changeset	5516	]
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5517	].
464 a788fdce92e2 add submenuChannel ca parents: 461 diff changeset	5518	!
a788fdce92e2 add submenuChannel ca parents: 461 diff changeset	5519
1767 e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	5520	keepLinkedMenu
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	5521	"get the keepLinkedMenu flag
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	5522	"
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5523	^ menuItem keepLinkedMenu
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5524	!
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5525
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5526	keepLinkedMenu:aBool
1767 e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	5527	"get the keepLinkedMenu flag
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	5528	"
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5529	menuItem keepLinkedMenu:aBool.
1767 e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	5530	!
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	5531
2331 ebd240410703 can now specify if menu action is to be performed by ca parents: 2326 diff changeset	5532	sendToOriginator
ebd240410703 can now specify if menu action is to be performed by ca parents: 2326 diff changeset	5533	"if true, the message is sent to the originating widget;
ebd240410703 can now specify if menu action is to be performed by ca parents: 2326 diff changeset	5534	otherwise (the default), it it sent to the receiver/application."
ebd240410703 can now specify if menu action is to be performed by ca parents: 2326 diff changeset	5535
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5536	^ menuItem sendToOriginator
2331 ebd240410703 can now specify if menu action is to be performed by ca parents: 2326 diff changeset	5537	!
ebd240410703 can now specify if menu action is to be performed by ca parents: 2326 diff changeset	5538
ebd240410703 can now specify if menu action is to be performed by ca parents: 2326 diff changeset	5539	sendToOriginator:aBoolean
ebd240410703 can now specify if menu action is to be performed by ca parents: 2326 diff changeset	5540	"if true, the message is sent to the originating widget;
ebd240410703 can now specify if menu action is to be performed by ca parents: 2326 diff changeset	5541	otherwise (the default), it it sent to the receiver/application."
ebd240410703 can now specify if menu action is to be performed by ca parents: 2326 diff changeset	5542
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5543	menuItem sendToOriginator:aBoolean.
2331 ebd240410703 can now specify if menu action is to be performed by ca parents: 2326 diff changeset	5544	!
ebd240410703 can now specify if menu action is to be performed by ca parents: 2326 diff changeset	5545
464 a788fdce92e2 add submenuChannel ca parents: 461 diff changeset	5546	submenuChannel
a788fdce92e2 add submenuChannel ca parents: 461 diff changeset	5547	"get the submenu channel
a788fdce92e2 add submenuChannel ca parents: 461 diff changeset	5548	"
2364 c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	5549	^ menuItem submenuChannel
464 a788fdce92e2 add submenuChannel ca parents: 461 diff changeset	5550	!
a788fdce92e2 add submenuChannel ca parents: 461 diff changeset	5551
a788fdce92e2 add submenuChannel ca parents: 461 diff changeset	5552	submenuChannel:aSelectorOrNil
a788fdce92e2 add submenuChannel ca parents: 461 diff changeset	5553	"returns the submenu channel
a788fdce92e2 add submenuChannel ca parents: 461 diff changeset	5554	"
2364 c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	5555	menuItem submenuChannel:aSelectorOrNil.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5556	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	5557
1679 af40842718f6 when accepting, and the application does not respond to that Claus Gittinger <cg@exept.de> parents: 1670 diff changeset	5558	!MenuPanel::Item methodsFor:'accessing-dimension'!
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5559
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	5560	moveBy:aPoint
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	5561	"move layout origin
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	5562	"
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	5563	layout moveBy:aPoint.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	5564	!
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	5565
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	5566	preferredExtent
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	5567	"compute my preferred extent excluding the shortCutKey and the menu identifier
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	5568	"
2614 86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5569	\|isVertical icon wIcon isButton labelExtent
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	5570	x "{ Class:SmallInteger }"
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	5571	y "{ Class:SmallInteger }"
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	5572	s "{ Class:SmallInteger }"
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	5573	\|
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	5574	self isVisible ifFalse:[^ 0@0 ].
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	5575
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5576	isButton := menuItem isButton.
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5577
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	5578	isButton ifTrue:[
2326 a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	5579	s := menuPanel maxAbsoluteButtonLevel.
a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	5580	x := s + HorizontalButtonInset.
a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	5581	y := s + VerticalButtonInset.
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	5582	] ifFalse:[
2326 a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	5583	x := HorizontalInset.
a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	5584	y := (menuPanel isPopUpView ifTrue:[VerticalPopUpInset] ifFalse:[VerticalInset]) ? 2.
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	5585	].
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	5586	x := x * 2.
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	5587	y := y * 2.
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	5588
1707 4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	5589	isVertical := menuPanel verticalLayout.
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	5590
2362 7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	5591	self isSeparator ifTrue:[
2326 a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	5592	"SEPARATOR"
a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	5593
a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	5594	s := self class separatorSize.
a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	5595	label = '' ifTrue:[
a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	5596	s := self class halfSeparatorSize.
a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	5597	].
a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	5598
a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	5599	"width of doubleSeparator is 5 !!!!"
a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	5600	isVertical ifFalse:[
a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	5601	x := x max:s.
a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	5602	y := y + 5.
a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	5603	] ifTrue:[
a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	5604	y := y max:s.
a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	5605	x := x + 5.
a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	5606	].
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	5607	] ifFalse:[
2614 86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5608	labelExtent := self displayLabelExtent.
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5609
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5610	x := x + labelExtent x.
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5611	y := y + labelExtent y.
2326 a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	5612
a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	5613	isButton ifFalse:[
a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	5614	menuPanel showSeparatingLines ifTrue:[
a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	5615	"width of separator is 2 plus right offset 1 := 3"
a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	5616	isVertical ifFalse:[x := x + 3] ifTrue:[y := y + 3].
a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	5617	].
a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	5618	(indication notNil or:[choice notNil]) ifTrue:[
a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	5619	x := x + 2 + menuPanel iconIndicationOff width.
a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	5620	].
a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	5621	].
2344 d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	5622	wIcon := 0.
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	5623	self hasMenuIndicator ifTrue:[
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	5624	icon := MenuPanel menuIndicator.
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	5625	wIcon := MenuPanel menuIndicatorOffset + icon width.
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	5626	] ifFalse:[
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	5627	self hasDelayedMenuIndicator ifTrue:[
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	5628	icon := MenuPanel delayedMenuIndicator.
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	5629	wIcon := MenuPanel delayedMenuIndicatorOffset + icon width.
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	5630	]
2326 a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	5631	].
2344 d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	5632	x := x + wIcon.
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	5633	].
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	5634	^ x@y
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5635	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	5636
1679 af40842718f6 when accepting, and the application does not respond to that Claus Gittinger <cg@exept.de> parents: 1670 diff changeset	5637	!MenuPanel::Item methodsFor:'accessing-help'!
1613 5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	5638
5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	5639	activeHelpKey
5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	5640	"get the active helpKey; the key to retrieve the helpText from the application
5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	5641	"
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5642	^ menuItem activeHelpKey
1613 5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	5643	!
5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	5644
5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	5645	activeHelpKey:aHelpKey
5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	5646	"set the active helpKey; the key to retrieve the helpText from the application
5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	5647	"
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5648	menuItem activeHelpKey:aHelpKey.
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5649	activeHelpText := nil.
1613 5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	5650	!
5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	5651
5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	5652	activeHelpText
5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	5653	"get the active helpText or nil if not yet resolved
5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	5654	"
2433 49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5655
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5656	\|app key\|
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5657
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5658	activeHelpText notNil ifTrue:[^ activeHelpText].
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5659
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5660	((key := self activeHelpKey) notNil
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5661	and:[(app := menuPanel application) notNil]) ifTrue:[
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5662	^ app helpTextForKey:key.
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5663	].
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5664	^ nil
1613 5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	5665	!
5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	5666
5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	5667	activeHelpText:aText
5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	5668	"set the active helpText
5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	5669	"
5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	5670	activeHelpText := aText.
2345 8b7b3e384002 fallBack to activeHelpKey and label, if no flyByHelp is Claus Gittinger <cg@exept.de> parents: 2344 diff changeset	5671	!
8b7b3e384002 fallBack to activeHelpKey and label, if no flyByHelp is Claus Gittinger <cg@exept.de> parents: 2344 diff changeset	5672
8b7b3e384002 fallBack to activeHelpKey and label, if no flyByHelp is Claus Gittinger <cg@exept.de> parents: 2344 diff changeset	5673	flyByHelpText
2433 49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5674	"get the flyBy helpText or nil.
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5675	"
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5676
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5677	\|text key app\|
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5678
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5679	flyByHelpText notNil ifTrue:[^ flyByHelpText].
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5680
2574 366e5807711f separators have no flyByHelp Claus Gittinger <cg@exept.de> parents: 2569 diff changeset	5681	self isSeparator ifTrue:[^ nil].
366e5807711f separators have no flyByHelp Claus Gittinger <cg@exept.de> parents: 2569 diff changeset	5682
2471 e6e52dc428a2 it is not the isButton behavior, martin parents: 2460 diff changeset	5683	"/ its NOT the button-attribute, which controls flyByHelp suppression...
e6e52dc428a2 it is not the isButton behavior, martin parents: 2460 diff changeset	5684	"/ (if you have an argument for that let us know..)
e6e52dc428a2 it is not the isButton behavior, martin parents: 2460 diff changeset	5685	"/ self isButton ifFalse:[^ nil].
e6e52dc428a2 it is not the isButton behavior, martin parents: 2460 diff changeset	5686	(menuPanel isNil or:[menuPanel isPopUpView]) ifTrue:[^ nil].
2433 49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5687
2652 686c0f0acb90 do not show help for items which have a menu (launchers about-item) Claus Gittinger <cg@exept.de> parents: 2617 diff changeset	5688	"/ if an activeHelpKey was explicitely given, use that one
2433 49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5689	key := self activeHelpKey.
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5690	(key notNil and:[(app := menuPanel application) notNil]) ifTrue:[
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5691	text := app flyByHelpTextForKey:key.
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5692	].
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5693
2652 686c0f0acb90 do not show help for items which have a menu (launchers about-item) Claus Gittinger <cg@exept.de> parents: 2617 diff changeset	5694	"/ otherwise, construct from the label; but only if I do not have a submenu
2433 49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5695	text isNil ifTrue:[
2676 01dc236c3dcd flyByHelp: shown for items with menu IFF there is an activeHelp key ca parents: 2675 diff changeset	5696	self hasSubmenu ifTrue:[
01dc236c3dcd flyByHelp: shown for items with menu IFF there is an activeHelp key ca parents: 2675 diff changeset	5697	^ key
01dc236c3dcd flyByHelp: shown for items with menu IFF there is an activeHelp key ca parents: 2675 diff changeset	5698	].
2652 686c0f0acb90 do not show help for items which have a menu (launchers about-item) Claus Gittinger <cg@exept.de> parents: 2617 diff changeset	5699
2433 49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5700	text := key.
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5701	text isNil ifTrue:[
2550 1dc3745fc313 do not show the menus label again as fly by help Claus Gittinger <cg@exept.de> parents: 2545 diff changeset	5702	displayLabel isString ifTrue:[
1dc3745fc313 do not show the menus label again as fly by help Claus Gittinger <cg@exept.de> parents: 2545 diff changeset	5703	text := displayLabel string.
1dc3745fc313 do not show the menus label again as fly by help Claus Gittinger <cg@exept.de> parents: 2545 diff changeset	5704	].
1dc3745fc313 do not show the menus label again as fly by help Claus Gittinger <cg@exept.de> parents: 2545 diff changeset	5705	].
1dc3745fc313 do not show the menus label again as fly by help Claus Gittinger <cg@exept.de> parents: 2545 diff changeset	5706	text isNil ifTrue:[
1dc3745fc313 do not show the menus label again as fly by help Claus Gittinger <cg@exept.de> parents: 2545 diff changeset	5707	text := self rawLabel.
2433 49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5708	text isString ifFalse:[
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5709	text := menuItem rawLabel.
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5710	text isString ifFalse:[
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5711	text := nil.
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5712	]
2550 1dc3745fc313 do not show the menus label again as fly by help Claus Gittinger <cg@exept.de> parents: 2545 diff changeset	5713	].
1dc3745fc313 do not show the menus label again as fly by help Claus Gittinger <cg@exept.de> parents: 2545 diff changeset	5714	text notNil ifTrue:[
1dc3745fc313 do not show the menus label again as fly by help Claus Gittinger <cg@exept.de> parents: 2545 diff changeset	5715	(text includes:$&) ifTrue:[
1dc3745fc313 do not show the menus label again as fly by help Claus Gittinger <cg@exept.de> parents: 2545 diff changeset	5716	text := (self updateAccessCharacterFor:text) string.
1dc3745fc313 do not show the menus label again as fly by help Claus Gittinger <cg@exept.de> parents: 2545 diff changeset	5717	].
1dc3745fc313 do not show the menus label again as fly by help Claus Gittinger <cg@exept.de> parents: 2545 diff changeset	5718	].
1dc3745fc313 do not show the menus label again as fly by help Claus Gittinger <cg@exept.de> parents: 2545 diff changeset	5719	].
1dc3745fc313 do not show the menus label again as fly by help Claus Gittinger <cg@exept.de> parents: 2545 diff changeset	5720	].
1dc3745fc313 do not show the menus label again as fly by help Claus Gittinger <cg@exept.de> parents: 2545 diff changeset	5721
1dc3745fc313 do not show the menus label again as fly by help Claus Gittinger <cg@exept.de> parents: 2545 diff changeset	5722	text = displayLabel ifTrue:[
1dc3745fc313 do not show the menus label again as fly by help Claus Gittinger <cg@exept.de> parents: 2545 diff changeset	5723	"for text menus: it does not make sense to show the labels string again
1dc3745fc313 do not show the menus label again as fly by help Claus Gittinger <cg@exept.de> parents: 2545 diff changeset	5724	(i.e. in a pull down menu)"
1dc3745fc313 do not show the menus label again as fly by help Claus Gittinger <cg@exept.de> parents: 2545 diff changeset	5725	^ nil
1dc3745fc313 do not show the menus label again as fly by help Claus Gittinger <cg@exept.de> parents: 2545 diff changeset	5726	].
2433 49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5727	^ text
2345 8b7b3e384002 fallBack to activeHelpKey and label, if no flyByHelp is Claus Gittinger <cg@exept.de> parents: 2344 diff changeset	5728	!
8b7b3e384002 fallBack to activeHelpKey and label, if no flyByHelp is Claus Gittinger <cg@exept.de> parents: 2344 diff changeset	5729
8b7b3e384002 fallBack to activeHelpKey and label, if no flyByHelp is Claus Gittinger <cg@exept.de> parents: 2344 diff changeset	5730	flyByHelpText:aText
2433 49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5731	"exlicitly set the flyBy helpText. For example, to dynamically change it.
2345 8b7b3e384002 fallBack to activeHelpKey and label, if no flyByHelp is Claus Gittinger <cg@exept.de> parents: 2344 diff changeset	5732	"
8b7b3e384002 fallBack to activeHelpKey and label, if no flyByHelp is Claus Gittinger <cg@exept.de> parents: 2344 diff changeset	5733	flyByHelpText := aText.
1613 5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	5734	! !
5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	5735
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5736	!MenuPanel::Item methodsFor:'accessing-look'!
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5737
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5738	horizontalLayout
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5739	"on default submenus has a vertical layout;
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5740	true, the submenu has a horizontal layout.
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5741	"
2360 aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5742	^ menuItem horizontalLayout ? false
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5743	!
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5744
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5745	horizontalLayout:aBoolean
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5746	"on default submenus has a vertical layout;
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5747	true, the submenu has a horizontal layout.
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5748	"
2360 aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5749	menuItem horizontalLayout:aBoolean.
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5750	!
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5751
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5752	isButton
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5753	"returns whether item looks like a Button
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5754	"
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5755	^ menuItem isButton
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5756	!
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5757
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5758	isButton:aBool
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5759	"sets whether item looks like a Button
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5760	"
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5761	menuItem isButton ~~ aBool ifTrue:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5762	menuItem isButton:aBool.
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5763	self invalidate.
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5764	]
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5765	!
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5766
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5767	layout
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5768	"returns my layout ( Rectangle )
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5769	"
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5770	^ layout
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5771	!
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5772
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5773	layout:aLayout
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5774	"set a new layout ( Rectangle )
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5775	"
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5776	layout := aLayout.
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5777	self invalidate.
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5778
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5779	!
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5780
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5781	showBusyCursorWhilePerforming
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5782	"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	5783	while performing the menu action. Defaults to false.
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5784	"
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5785	^ menuItem showBusyCursorWhilePerforming
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5786	!
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5787
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5788	showBusyCursorWhilePerforming:aBoolean
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5789	"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	5790	while performing the menu action. Defaults to false.
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5791	"
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5792	menuItem showBusyCursorWhilePerforming:aBoolean.
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5793	! !
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5794
2504 0ce78a73aacf method category rename Claus Gittinger <cg@exept.de> parents: 2503 diff changeset	5795	!MenuPanel::Item methodsFor:'activation & deactivation'!
1705 201f9ce1b2d2 checkin from browser ca parents: 1704 diff changeset	5796
1786 f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	5797	currentSubmenu
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	5798	"returns the current submenu or nil
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	5799	"
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	5800	^ subMenu
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	5801
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	5802
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	5803
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	5804	!
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	5805
1705 201f9ce1b2d2 checkin from browser ca parents: 1704 diff changeset	5806	hideSubmenu
201f9ce1b2d2 checkin from browser ca parents: 1704 diff changeset	5807	"hide submenu
201f9ce1b2d2 checkin from browser ca parents: 1704 diff changeset	5808	"
2199 61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	5809	self hideSubmenu:subMenu.
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	5810	!
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	5811
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	5812	hideSubmenu:aSubmenu
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	5813	"hide submenu
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	5814	"
1705 201f9ce1b2d2 checkin from browser ca parents: 1704 diff changeset	5815	\|id\|
201f9ce1b2d2 checkin from browser ca parents: 1704 diff changeset	5816
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	5817	aSubmenu isNil ifTrue:[^ self].
2681 2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	5818	aSubmenu removeDependencies.
2199 61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	5819
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	5820	aSubmenu realized ifFalse:[
2364 c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	5821	id := aSubmenu id.
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	5822	id notNil ifTrue:[ menuPanel device unmapWindow:id ]
2199 61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	5823	] ifTrue:[
2364 c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	5824	aSubmenu hide
2199 61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	5825	].
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	5826
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	5827	aSubmenu windowGroup:nil.
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	5828	menuPanel windowGroup removeView:aSubmenu.
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	5829
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	5830	"/ release menu if derived from channel
2364 c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	5831	(subMenu == aSubmenu and:[menuItem submenuChannel notNil]) ifTrue:[
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	5832	menuItem keepLinkedMenu ifFalse:[
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	5833	subMenu := nil
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	5834	]
2199 61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	5835	].
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	5836	!
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	5837
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	5838	openDelayedSubmenu
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	5839	"called to open now my delayed submenu
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	5840	"
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	5841	\|subm\|
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	5842
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	5843	(self isSelected and:[menuPanel shown]) ifFalse:[^ self].
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	5844
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	5845	subMenu notNil ifTrue:[
975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	5846	subMenu realized ifTrue:[
975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	5847	"/ already open
975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	5848	^ self
975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	5849	].
2199 61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	5850	].
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	5851	subm := self setupSubmenu.
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	5852	subm isNil ifTrue:[^ self].
2199 61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	5853
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	5854	self openSubmenu.
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	5855
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	5856	(subm == subMenu and:[self isSelected]) ifFalse:[
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	5857	"/ closed during building or opening the submenu
975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	5858	self hideSubmenu:subm.
2199 61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	5859	].
1705 201f9ce1b2d2 checkin from browser ca parents: 1704 diff changeset	5860	!
1701 026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5861
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5862	openSubmenu
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5863	"opens the submenu; make sure, that the submenu and the menPanel
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5864	is fully visible by shifting it into the visible screen area if
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5865	nescessary.
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5866	"
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	5867	\|p o device isVertical topMenu windGrp prefExtent
1701 026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5868	devBot "{ Class:SmallInteger }"
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5869	devRight "{ Class:SmallInteger }"
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5870	width "{ Class:SmallInteger }"
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5871	height "{ Class:SmallInteger }"
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5872	top "{ Class:SmallInteger }"
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5873	left "{ Class:SmallInteger }"
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5874	\|
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5875
1737 c18896a7cb50 replace shown by realized; when opening a submenue-submenue by shortcut key ca parents: 1735 diff changeset	5876	(subMenu notNil and:[subMenu shown not and:[self isSelected and:[menuPanel realized]]]) ifFalse:[
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	5877	^ self
1701 026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5878	].
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5879
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5880	topMenu := menuPanel topMenu.
1829 bd8b95c5bb89 migration fixes Claus Gittinger <cg@exept.de> parents: 1825 diff changeset	5881	(subMenu device notNil and:[topMenu device ~~ subMenu device]) ifTrue:[
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	5882	subMenu releaseDeviceResources.
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	5883	subMenu setDevice:topMenu device id:nil gcId:nil.
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	5884	subMenu recreate.
1829 bd8b95c5bb89 migration fixes Claus Gittinger <cg@exept.de> parents: 1825 diff changeset	5885	].
bd8b95c5bb89 migration fixes Claus Gittinger <cg@exept.de> parents: 1825 diff changeset	5886
1701 026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5887	windGrp := topMenu windowGroup.
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5888
1707 4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	5889	subMenu superMenu:menuPanel.
1701 026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5890	subMenu becomesActiveMenu.
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5891	subMenu cursor:Cursor hand.
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5892
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5893	windGrp notNil ifTrue:[
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	5894	subMenu windowGroup:windGrp.
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	5895	windGrp addTopView:subMenu.
1701 026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5896	].
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5897
2111 f3d67f7c0f92 bug fix when opening a menu by mnemonic ca parents: 2100 diff changeset	5898	"Q&D kludge - test whether the layout is nil;
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	5899	if true recompute the layouts
2111 f3d67f7c0f92 bug fix when opening a menu by mnemonic ca parents: 2100 diff changeset	5900	"
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	5901	layout isNil ifTrue:[menuPanel rearrangeItems].
2111 f3d67f7c0f92 bug fix when opening a menu by mnemonic ca parents: 2100 diff changeset	5902
1701 026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5903	" Q&D kludge - if any visibility attributes are blocks;
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5904	TODO: only invoke mustRearrange if any are blocks
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	5905	(since I react correctly on valueHolder changes)
1701 026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5906	"
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5907	subMenu rearrangeItemsIfItemVisibilityChanged.
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5908	subMenu fixSize.
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5909
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5910	"compute origin of subMenu
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5911	"
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5912	isVertical := menuPanel verticalLayout.
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5913	device := menuPanel device.
1714 b4c05977e9d5 get heigth and width from preferredExtent when open a submenu ca parents: 1710 diff changeset	5914	prefExtent := subMenu preferredExtent.
b4c05977e9d5 get heigth and width from preferredExtent when open a submenu ca parents: 1710 diff changeset	5915	height := prefExtent y.
b4c05977e9d5 get heigth and width from preferredExtent when open a submenu ca parents: 1710 diff changeset	5916	width := prefExtent x.
1701 026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5917	devBot := device usableHeight.
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5918	devRight := device usableWidth.
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5919
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5920	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	5921
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	5922	menuPanel isPopUpView ifTrue:[
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	5923	o := menuPanel origin + p
1707 4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	5924	] ifFalse:[
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	5925	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	5926	].
1701 026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5927	left := o x.
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5928	top := o y.
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5929
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	5930	top + height > devBot ifTrue:[
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	5931	top := isVertical ifTrue:[devBot - height]
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	5932	ifFalse:[top - layout height - height + 2]
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	5933	].
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	5934	top := top max:0.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	5935
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	5936	"/ (isVertical not and:[subMenu isVerticalLayout]) ifTrue:[
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	5937	"/ top < menuPanel bottom ifTrue:[
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	5938	"/ left := left + layout width.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	5939	"/ ].
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	5940	"/ left + width > devRight ifTrue:[
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	5941	"/ left := o x - width - 2
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	5942	"/ ].
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	5943	"/ ].
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	5944
1701 026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5945	left + width > devRight ifTrue:[
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	5946	left := isVertical ifTrue:[left - layout width - width + 2]
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	5947	ifFalse:[devRight - width]
1701 026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5948	].
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5949	left := left max:0.
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5950
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5951	subMenu origin:(left@top).
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5952
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5953	subMenu realized ifFalse:[
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	5954	subMenu realize.
1701 026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5955	] ifTrue:[
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	5956	topMenu device mapWindow:(subMenu id).
1786 f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	5957	].
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	5958	!
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	5959
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	5960	toggleSubmenuVisibility
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	5961	"toggle the visibility of the submenu
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	5962	"
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	5963	subMenu notNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	5964	subMenu shown ifTrue:[^ self hideSubmenu]
1786 f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	5965	] ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	5966	(subMenu := self setupSubmenu) isNil ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	5967	"/ cannot open a submenu
93426020ceed * empty log message * ca parents: 2216 diff changeset	5968	^ self
93426020ceed * empty log message * ca parents: 2216 diff changeset	5969	]
1786 f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	5970	].
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	5971	self openSubmenu.
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	5972
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	5973
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	5974	!
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	5975
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	5976	visibleSubmenu
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	5977	"returns the current visible submenu or nil
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	5978	"
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	5979	subMenu notNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	5980	subMenu shown ifTrue:[^ subMenu].
1786 f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	5981	].
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	5982	^ nil
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	5983
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	5984
1701 026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5985
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5986	! !
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5987
524 d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	5988	!MenuPanel::Item methodsFor:'building'!
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	5989
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	5990	aspectAt:aKey
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	5991	"retursns value assigned to key or nil
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	5992	"
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	5993	\|appl value\|
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	5994
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	5995	appl := menuPanel receiver.
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	5996
1219 6a0d677a6fac removed some #isKindOf: calls. Claus Gittinger <cg@exept.de> parents: 1218 diff changeset	5997	(appl isValueModel) ifTrue:[
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5998	^ appl value:aKey
524 d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	5999	].
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	6000
2123 091268558e93 * empty log message * ca parents: 2118 diff changeset	6001	appl isNil ifTrue:[
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6002	appl := menuPanel application.
2123 091268558e93 * empty log message * ca parents: 2118 diff changeset	6003	].
091268558e93 * empty log message * ca parents: 2118 diff changeset	6004	appl isNil ifTrue:[ ^ nil].
091268558e93 * empty log message * ca parents: 2118 diff changeset	6005
091268558e93 * empty log message * ca parents: 2118 diff changeset	6006	MessageNotUnderstood handle:[:ex\|
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6007	ex selector == aKey ifFalse:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6008	ex reject
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6009	].
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6010	self ifNotInUIBuilderInfoPrintCR:
2545 e838be7f2c83 Tell application name in info message about no-existing aspects. Stefan Vogel <sv@exept.de> parents: 2505 diff changeset	6011	('MenuPanel::Item [info]: application (class %1) does not provide aspect: %2'
e838be7f2c83 Tell application name in info message about no-existing aspects. Stefan Vogel <sv@exept.de> parents: 2505 diff changeset	6012	bindWith:appl className with:aKey).
2123 091268558e93 * empty log message * ca parents: 2118 diff changeset	6013	] do:[
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6014	aKey numArgs == 1 ifTrue:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6015	value := appl perform:aKey with:(menuItem argument ? self).
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6016	] ifFalse:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6017	(appl respondsTo:#aspectFor:) ifTrue:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6018	value := appl aspectFor:aKey
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6019	] ifFalse:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6020	value := appl perform:aKey
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6021	]
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6022	]
524 d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	6023	].
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	6024	^ value
1029 c9e90585fa89 only ignore messageNotUnderstood for my aspects. Claus Gittinger <cg@exept.de> parents: 1026 diff changeset	6025
c9e90585fa89 only ignore messageNotUnderstood for my aspects. Claus Gittinger <cg@exept.de> parents: 1026 diff changeset	6026	"Modified: / 29.7.1998 / 11:59:50 / cg"
524 d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	6027	! !
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	6028
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	6029	!MenuPanel::Item methodsFor:'change & update'!
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	6030
2614 86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	6031	fontChanged
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	6032	"called whenever the font changed
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	6033	"
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	6034	displayLabel notNil ifTrue:[
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	6035	displayLabelExtent := nil.
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	6036
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	6037	subMenu notNil ifTrue:[
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	6038	subMenu font:(menuPanel font).
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	6039	].
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	6040	].
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	6041	!
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	6042
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6043	update:something with:aParameter from:changedObject
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6044
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6045	\|form rect\|
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6046
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6047	(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	6048
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6049	self isSeparator ifFalse:[
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6050	"/ NOT A SEPARATOR
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6051
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6052	menuPanel shown ifTrue:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6053	changedObject == enableChannel ifTrue:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6054	(enableChannel value == false and:[self isSelected]) ifTrue:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6055	^ menuPanel selection:nil.
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6056	].
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6057	^ self invalidate
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6058	].
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6059
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6060	(changedObject == indication or:[changedObject == choice]) ifTrue:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6061	menuItem isButton ifTrue:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6062	self invalidate
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6063	] ifFalse:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6064	"/ invalidate the interactor only
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6065	"/ take any interactor; interactors has the same extent
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6066	form := menuPanel iconIndicationOff.
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6067
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6068	rect := Rectangle left:(layout left + HorizontalInset)
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6069	top:(layout top)
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6070	width:(form width)
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6071	height:(layout height).
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6072
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6073	menuPanel invalidate:rect repairNow:false
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6074	].
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6075	^ self
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6076	].
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6077	].
498 b4c341497621 bug fixes: ca parents: 475 diff changeset	6078	].
712 4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	6079
4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	6080	changedObject == isVisible ifTrue:[
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6081	menuPanel mustRearrange.
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6082	menuPanel rearrangeItems.
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6083	^ self.
712 4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	6084	].
4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	6085
498 b4c341497621 bug fixes: ca parents: 475 diff changeset	6086	super update:something with:aParameter from:changedObject
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	6087	!
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	6088
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	6089	updateIndicators
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	6090	"update indicators
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	6091	"
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6092	(indication notNil and:[indication isSymbol]) ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	6093	" indication is a selector otherwise a change notification
93426020ceed * empty log message * ca parents: 2216 diff changeset	6094	is raised from the model !!!!
93426020ceed * empty log message * ca parents: 2216 diff changeset	6095	"
93426020ceed * empty log message * ca parents: 2216 diff changeset	6096	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	6097	]
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	6098	! !
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	6099
388 dce33f8bb806 intitial checkin ca parents: diff changeset	6100	!MenuPanel::Item methodsFor:'converting'!
dce33f8bb806 intitial checkin ca parents: diff changeset	6101
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	6102	asMenuItem
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	6103	"convert to a MenuItem
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	6104	"
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6105	^ menuItem
388 dce33f8bb806 intitial checkin ca parents: diff changeset	6106	!
dce33f8bb806 intitial checkin ca parents: diff changeset	6107
dce33f8bb806 intitial checkin ca parents: diff changeset	6108	menuItem:aMenuItem
dce33f8bb806 intitial checkin ca parents: diff changeset	6109	"setup attributes from a MenuItem
dce33f8bb806 intitial checkin ca parents: diff changeset	6110	"
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6111	\|lbl\|
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	6112
388 dce33f8bb806 intitial checkin ca parents: diff changeset	6113	menuPanel disabledRedrawDo:[
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6114	menuItem := aMenuItem.
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6115	menuItem isNil ifTrue:[ menuItem := MenuItem new].
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6116
2433 49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6117	label := displayLabel := activeHelpText := nil.
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6118
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6119	self enabled:(menuItem enabled).
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6120	self indication:(menuItem indication).
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6121	self choice:(menuItem choice).
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6122	self isVisible:(menuItem isVisible ? true).
2326 a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	6123
a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	6124	"/ we should call here resourceRetriever insteat of labelImage
a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	6125	"/ but ... ??
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6126	(lbl := menuItem labelImage value) isNil ifTrue:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6127	lbl := menuItem rawLabel. "/ avoid translating &'s twice
2326 a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	6128	].
a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	6129
2364 c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	6130	self submenu:(menuItem submenu).
2326 a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	6131	self label:lbl.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	6132	]
1033 9badc22e3d03 oops &'s where eliminated twice - leading to double &'s Claus Gittinger <cg@exept.de> parents: 1032 diff changeset	6133
1090 cf3d9f5648da only draw with enteredLevel, if item is enabled Claus Gittinger <cg@exept.de> parents: 1083 diff changeset	6134	"Modified: / 22.8.1998 / 15:34:16 / cg"
388 dce33f8bb806 intitial checkin ca parents: diff changeset	6135	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	6136
2681 2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	6137	!MenuPanel::Item methodsFor:'dependents access'!
2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	6138
2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	6139	addDependencies
2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	6140	"add all dependencies
2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	6141	"
2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	6142	enableChannel isValueModel ifTrue:[enableChannel addDependent:self].
2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	6143	isVisible isValueModel ifTrue:[isVisible addDependent:self].
2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	6144	indication isValueModel ifTrue:[indication addDependent:self].
2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	6145	choice isValueModel ifTrue:[choice addDependent:self].
2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	6146	!
2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	6147
2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	6148	removeDependencies
2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	6149	"remove all dependencies
2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	6150	"
2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	6151	enableChannel isValueModel ifTrue:[enableChannel removeDependent:self].
2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	6152	isVisible isValueModel ifTrue:[isVisible removeDependent:self].
2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	6153	indication isValueModel ifTrue:[indication removeDependent:self].
2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	6154	choice isValueModel ifTrue:[choice removeDependent:self].
2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	6155	! !
2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	6156
388 dce33f8bb806 intitial checkin ca parents: diff changeset	6157	!MenuPanel::Item methodsFor:'drawing'!
dce33f8bb806 intitial checkin ca parents: diff changeset	6158
2485 b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6159	draw
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6160	"redraw item
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6161	"
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6162	\|isSelected ownBgCol paint bgColor
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6163	x "{ Class:SmallInteger }"
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6164	y "{ Class:SmallInteger }"
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6165	w "{ Class:SmallInteger }"
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6166	h "{ Class:SmallInteger }"
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6167	\|
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6168
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6169	self isVisible ifFalse:[^ self].
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6170
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6171	self isSeparator ifTrue:[
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6172	self drawSeparator.
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6173	^ self
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6174	].
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6175	menuItem isButton ifTrue:[
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6176	self drawButton.
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6177	^ self
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6178	].
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6179
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6180	"/ DRAW A LABELED ENTRY; no button, no separator
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6181
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6182	isSelected := self isSelected.
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6183	bgColor := menuPanel backgroundColor.
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6184	paint := isSelected
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6185	ifTrue:[self activeBackgroundColor]
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6186	ifFalse:[
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6187	(self isEnabled and:[ self isEntered ]) ifTrue:[
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6188	menuPanel enteredBackgroundColor
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6189	] ifFalse:[
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6190	bgColor
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6191	]].
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6192
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6193	(ownBgCol := self backgroundColorFromLabel) notNil ifTrue:[
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6194	paint := ownBgCol
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6195	].
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6196
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6197	paint ~= bgColor ifTrue:[
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6198	menuPanel paint:paint.
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6199	menuPanel fillRectangle:layout.
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6200	].
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6201
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6202	menuPanel showSeparatingLines ifTrue:[
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6203	self drawSeparatingLines
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6204	].
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6205
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6206	self drawLabel.
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6207
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6208	(ownBgCol notNil and:[isSelected]) ifTrue:[
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6209	ownBgCol brightness > 0.5 ifTrue:[menuPanel paint: menuPanel selectionFrameDarkColor]
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6210	ifFalse:[menuPanel paint: menuPanel selectionFrameBrightColor].
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6211
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6212	x := layout left.
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6213	y := layout top.
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6214	w := layout width.
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6215	h := layout height.
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6216
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6217	menuPanel displayRectangleX:(x + 1) y:(y + 1) width:(w - 2) height:(h - 2).
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6218	menuPanel displayRectangleX:(x + 2) y:(y + 2) width:(w - 4) height:(h - 4).
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6219	].
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6220	menuPanel drawLabelEdgeFor:self selected:isSelected.
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6221	!
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6222
1707 4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6223	drawButton
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6224	"draw as button
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6225	"
2362 7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6226	\|drawObject fg etchFg level isEnabled isSelected bg ownBgCol showSelected
1707 4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6227	x "{ Class:SmallInteger }"
2143 7b99a7348c97 draw label shifted right-down when pressed penk parents: 2142 diff changeset	6228	y "{ Class:SmallInteger }"
1707 4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6229	\|
2433 49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6230	drawObject := displayLabel.
2362 7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6231	isEnabled := self enabled.
2159 1eac041aeb3d toggle button draw & behavior Claus Gittinger <cg@exept.de> parents: 2145 diff changeset	6232	isSelected := self isSelected.
2362 7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6233
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6234	isSelected ifFalse:[
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6235	"/ test whether button has pressed toggle behaviour
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6236	showSelected := (self isToggle and:[self indicationValue]).
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6237	] ifTrue:[
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6238	showSelected := isSelected
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6239	].
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6240
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6241	showSelected ifTrue:[
1707 4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6242	bg := self activeBackgroundColor.
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6243	fg := self activeForegroundColor.
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6244	] ifFalse:[
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6245	self isEntered ifTrue:[
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6246	bg := self buttonEnteredBackgroundColor
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6247	] ifFalse:[
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6248	bg := self backgroundColor
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6249	].
2059 c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6250	isEnabled ifTrue:[
1707 4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6251	fg := menuPanel foregroundColor
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6252	] ifFalse:[
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6253	fg := menuPanel disabledForegroundColor.
2059 c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6254	etchFg := menuPanel disabledEtchedForegroundColor.
1707 4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6255	drawObject := self disabledRawLabel
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6256	]
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6257	].
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6258
1708 cfaf55b9043d bug fix in background color of button when derives from label(text) ca parents: 1707 diff changeset	6259	(ownBgCol := self backgroundColorFromLabel) notNil ifTrue:[
cfaf55b9043d bug fix in background color of button when derives from label(text) ca parents: 1707 diff changeset	6260	bg := ownBgCol
cfaf55b9043d bug fix in background color of button when derives from label(text) ca parents: 1707 diff changeset	6261	].
cfaf55b9043d bug fix in background color of button when derives from label(text) ca parents: 1707 diff changeset	6262
1707 4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6263	"DRAW BACKGROUND"
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6264	bg ~= menuPanel backgroundColor ifTrue:[
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6265	menuPanel paint:bg.
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6266	menuPanel fillRectangle:layout.
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6267	].
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6268
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6269	x := layout left + menuPanel buttonPassiveLevel + HorizontalButtonInset.
2362 7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6270
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6271	(drawObject isImage and:[menuPanel centerItems]) ifTrue:[
2337 7f384db88273 centerItems attribute Claus Gittinger <cg@exept.de> parents: 2332 diff changeset	6272	x := x + (layout width - menuPanel buttonPassiveLevel - HorizontalButtonInset - 1 - drawObject width // 2).
7f384db88273 centerItems attribute Claus Gittinger <cg@exept.de> parents: 2332 diff changeset	6273	].
1707 4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6274
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6275	isSelected ifFalse:[
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6276	"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	6277
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6278	indication notNil ifTrue:[
1707 4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6279	"button is indicator and set"
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6280	isSelected := self indicationValue
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6281	] ifFalse:[
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6282	isSelected := (choice notNil and:[choice value = menuItem choiceValue]).
1707 4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6283	]
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6284	].
2143 7b99a7348c97 draw label shifted right-down when pressed penk parents: 2142 diff changeset	6285	y := 0.
1707 4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6286
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6287	isSelected ifTrue:[
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6288	level := menuPanel buttonActiveLevel.
2142 ea2a32738005 pressed button label only shifted by one pixel penk parents: 2141 diff changeset	6289	x := x + 1 "level abs".
2143 7b99a7348c97 draw label shifted right-down when pressed penk parents: 2142 diff changeset	6290	y := y + 1 "level abs".
1707 4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6291	] ifFalse:[
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6292	level := self isEntered ifTrue:[menuPanel buttonEnteredLevel]
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	6293	ifFalse:[menuPanel buttonPassiveLevel].
2059 c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6294	].
c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6295
2362 7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6296	drawObject isEmptyOrNil ifFalse:[
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6297	etchFg notNil ifTrue:[
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6298	self drawRawLabel:drawObject atX:x+1 yOffset:y+1 paint:etchFg.
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6299	].
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6300	self drawRawLabel:drawObject atX:x yOffset:y+0 paint:fg.
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6301	].
2344 d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6302	self drawMenuIndicator.
1707 4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6303
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6304	level ~~ 0 ifTrue:[
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6305	menuPanel drawButtonEdgesFor:self level:level
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
2344 d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6309	drawLabel
2214 8eefad87cf62 drawing delayed menu indicators... first try not yet finished ca parents: 2199 diff changeset	6310	"draw a labeled entry; no button, no separator.
8eefad87cf62 drawing delayed menu indicators... first try not yet finished ca parents: 2199 diff changeset	6311	"
2344 d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6312	\|scKey cLb cLa drawObject fg etchFg arrow
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6313	isSelected isEnabled form
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6314	h "{ Class:SmallInteger }"
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6315	y "{ Class:SmallInteger }"
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6316	x "{ Class:SmallInteger }"
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6317	t "{ Class:SmallInteger }"
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6318	\|
2433 49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6319	drawObject := displayLabel.
2362 7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6320	isEnabled := self enabled.
2344 d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6321	isSelected := self isSelected.
2362 7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6322
2344 d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6323	isSelected ifTrue:[
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6324	fg := self activeForegroundColor
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6325	] ifFalse:[
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6326	isEnabled ifTrue:[
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6327	self isEntered ifTrue:[
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6328	fg := menuPanel enteredForegroundColor
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6329	] ifFalse:[
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6330	fg := menuPanel foregroundColor
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6331	]
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6332	] ifFalse:[
2362 7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6333	fg := menuPanel disabledForegroundColor.
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6334	etchFg := menuPanel disabledEtchedForegroundColor.
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6335	drawObject := self disabledRawLabel
2344 d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6336	]
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6337	].
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6338
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6339	h := layout height.
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6340	x := layout left + HorizontalInset.
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6341	t := layout top.
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6342
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6343	((form := self indicatorForm) notNil or:[(form := self choiceForm) notNil]) ifTrue:[
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6344	y := t + ((h - form height) // 2).
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6345
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6346	form displayOn:menuPanel x:x y:y.
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6347	x := x + 2 + form width.
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6348	].
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6349
2362 7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6350	drawObject isEmptyOrNil ifFalse:[
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6351	etchFg notNil ifTrue:[
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6352	self drawRawLabel:drawObject atX:x+1 yOffset:1 paint:etchFg.
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6353	].
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6354	self drawRawLabel:drawObject atX:x yOffset:0 paint:fg.
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6355	].
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6356
2344 d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6357	self drawMenuIndicator.
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6358
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6359	"/ DRAW SHORTCUT KEY
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6360
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6361	( menuItem shortcutKey notNil
2344 d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6362	and:[(x := menuPanel shortKeyInset) ~~ 0
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6363	and:[(scKey:= self shortcutKeyAsString) notNil]]
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6364	) ifTrue:[
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6365	x := layout left + x.
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6366	y := t + ((h - (scKey heightOn:menuPanel)) // 2).
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6367	y := y + menuPanel font ascent.
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6368	scKey displayOn:menuPanel x:x y:y.
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6369	].
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6370
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6371	"/ DRAW SUBMENU INDICATION
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6372
2362 7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6373	(menuPanel isVerticalLayout and:[self hasSubmenu]) ifFalse:[
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6374	^ self
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6375	].
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6376	arrow := menuPanel rightArrow.
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6377	x := layout right - arrow width - HorizontalInset.
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6378	y := t + (h - arrow height // 2).
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6379
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6380	(menuPanel styleSheet is3D not
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6381	or:[(drawObject := menuPanel rightArrowShadow) isNil]) ifTrue:[
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6382	^ menuPanel displayForm:arrow x:x y:y
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6383	].
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6384	cLa := menuPanel shadowColor.
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6385	cLb := menuPanel lightColor.
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6386
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6387	isSelected ifFalse:[
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6388	fg := cLa.
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6389	cLa := cLb.
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6390	cLb := fg
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6391	].
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6392	menuPanel paint:cLa.
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6393	menuPanel displayForm:arrow x:x y:y.
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6394	menuPanel paint:cLb.
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6395	menuPanel displayForm:drawObject x:x y:y.
2344 d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6396
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6397	"Modified: / 6.9.1998 / 21:48:53 / cg"
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6398	!
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6399
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6400	drawMenuIndicator
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6401	"draw a menu indicator if the item has a menu or delayed menu.
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6402	"
2220 5ea0ceb20354 delayed submenu indicator Claus Gittinger <cg@exept.de> parents: 2219 diff changeset	6403	\|x y icon bAbsLevel\|
2214 8eefad87cf62 drawing delayed menu indicators... first try not yet finished ca parents: 2199 diff changeset	6404
2344 d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6405	self hasDelayedMenuIndicator ifTrue:[
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6406	icon := MenuPanel delayedMenuIndicator.
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6407	] ifFalse:[
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6408	self hasMenuIndicator ifTrue:[
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6409	icon := MenuPanel menuIndicator.
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6410	] ifFalse:[
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6411	^ self
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6412	]
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6413	].
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6414
2214 8eefad87cf62 drawing delayed menu indicators... first try not yet finished ca parents: 2199 diff changeset	6415	x := layout right - icon width.
2460 9afb27f470a7 checkin from browser Claus Gittinger <cg@exept.de> parents: 2433 diff changeset	6416	false "delayedMenuIndicatorVerticalPosition == #center" ifTrue:[
2220 5ea0ceb20354 delayed submenu indicator Claus Gittinger <cg@exept.de> parents: 2219 diff changeset	6417	y := layout height - icon height // 2 + layout top.
5ea0ceb20354 delayed submenu indicator Claus Gittinger <cg@exept.de> parents: 2219 diff changeset	6418	] ifFalse:[
5ea0ceb20354 delayed submenu indicator Claus Gittinger <cg@exept.de> parents: 2219 diff changeset	6419	y := layout bottom - icon height - 2.
5ea0ceb20354 delayed submenu indicator Claus Gittinger <cg@exept.de> parents: 2219 diff changeset	6420	].
5ea0ceb20354 delayed submenu indicator Claus Gittinger <cg@exept.de> parents: 2219 diff changeset	6421
5ea0ceb20354 delayed submenu indicator Claus Gittinger <cg@exept.de> parents: 2219 diff changeset	6422	bAbsLevel := 0.
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6423	menuItem isButton ifTrue:[
2220 5ea0ceb20354 delayed submenu indicator Claus Gittinger <cg@exept.de> parents: 2219 diff changeset	6424	self isSelected ifTrue:[
5ea0ceb20354 delayed submenu indicator Claus Gittinger <cg@exept.de> parents: 2219 diff changeset	6425	x := x + 1.
5ea0ceb20354 delayed submenu indicator Claus Gittinger <cg@exept.de> parents: 2219 diff changeset	6426	y := y + 1.
5ea0ceb20354 delayed submenu indicator Claus Gittinger <cg@exept.de> parents: 2219 diff changeset	6427	].
5ea0ceb20354 delayed submenu indicator Claus Gittinger <cg@exept.de> parents: 2219 diff changeset	6428	bAbsLevel := menuPanel maxAbsoluteButtonLevel.
5ea0ceb20354 delayed submenu indicator Claus Gittinger <cg@exept.de> parents: 2219 diff changeset	6429	x := x - bAbsLevel.
5ea0ceb20354 delayed submenu indicator Claus Gittinger <cg@exept.de> parents: 2219 diff changeset	6430	y := y - bAbsLevel.
5ea0ceb20354 delayed submenu indicator Claus Gittinger <cg@exept.de> parents: 2219 diff changeset	6431	].
5ea0ceb20354 delayed submenu indicator Claus Gittinger <cg@exept.de> parents: 2219 diff changeset	6432	x := x - 1 "- HorizontalInset".
5ea0ceb20354 delayed submenu indicator Claus Gittinger <cg@exept.de> parents: 2219 diff changeset	6433
5ea0ceb20354 delayed submenu indicator Claus Gittinger <cg@exept.de> parents: 2219 diff changeset	6434	(self isEnabled "and:[self delayedMenuIsEnabled]") ifFalse:[
5ea0ceb20354 delayed submenu indicator Claus Gittinger <cg@exept.de> parents: 2219 diff changeset	6435	icon := menuPanel lightenedImageOnDevice:icon
2214 8eefad87cf62 drawing delayed menu indicators... first try not yet finished ca parents: 2199 diff changeset	6436	].
8eefad87cf62 drawing delayed menu indicators... first try not yet finished ca parents: 2199 diff changeset	6437	icon displayOn:menuPanel x:x y:y.
2220 5ea0ceb20354 delayed submenu indicator Claus Gittinger <cg@exept.de> parents: 2219 diff changeset	6438
2234 29eba50f76eb drawColSep beautified; Claus Gittinger <cg@exept.de> parents: 2232 diff changeset	6439	(false "drawDelayedMenuIndicatorSeparator" and:[ menuPanel buttonPassiveLevel ~~ 0 ])
2220 5ea0ceb20354 delayed submenu indicator Claus Gittinger <cg@exept.de> parents: 2219 diff changeset	6440	ifTrue:[
5ea0ceb20354 delayed submenu indicator Claus Gittinger <cg@exept.de> parents: 2219 diff changeset	6441	menuPanel paint:menuPanel buttonShadowColor.
5ea0ceb20354 delayed submenu indicator Claus Gittinger <cg@exept.de> parents: 2219 diff changeset	6442	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	6443	menuPanel paint:menuPanel buttonLightColor.
5ea0ceb20354 delayed submenu indicator Claus Gittinger <cg@exept.de> parents: 2219 diff changeset	6444	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	6445	].
2214 8eefad87cf62 drawing delayed menu indicators... first try not yet finished ca parents: 2199 diff changeset	6446	!
8eefad87cf62 drawing delayed menu indicators... first try not yet finished ca parents: 2199 diff changeset	6447
2059 c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6448	drawRawLabel:aLabel atX:x yOffset:yOffset paint:fg
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6449	"draw a labeled entry; no button, no separator.
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6450	"
2614 86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	6451	\|mfont labelExtent
1727 a6365337be59 support setting font in MenuPanel and Editor ca parents: 1726 diff changeset	6452	y "{ Class:SmallInteger }"
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6453	y0 "{ Class:SmallInteger }"
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6454	x0 "{ Class:SmallInteger }"
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6455	\|
2059 c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6456
2373 8dbf026f0bd1 bug fix: specific font used by item ca parents: 2372 diff changeset	6457	mfont := menuPanel setFont:(self font).
2485 b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6458	"/ fontAscent := menuPanel font ascent.
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6459	menuPanel paint:fg.
2614 86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	6460	labelExtent := self displayLabelExtent.
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	6461
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	6462	y := layout top + (layout height - labelExtent y // 2) + yOffset.
2337 7f384db88273 centerItems attribute Claus Gittinger <cg@exept.de> parents: 2332 diff changeset	6463	"/ menuPanel centerItems ifTrue:[self halt].
2675 7a090a030736 bugfix when drawing Text with #backgroundColor (see ColorMenu) ca parents: 2659 diff changeset	6464	aLabel isArray ifFalse:[ \|printLabel\|
7a090a030736 bugfix when drawing Text with #backgroundColor (see ColorMenu) ca parents: 2659 diff changeset	6465	aLabel isText ifTrue:[
7a090a030736 bugfix when drawing Text with #backgroundColor (see ColorMenu) ca parents: 2659 diff changeset	6466	"/background of label already drawn
7a090a030736 bugfix when drawing Text with #backgroundColor (see ColorMenu) ca parents: 2659 diff changeset	6467	printLabel := aLabel withoutEmphasis:#backgroundColor.
7a090a030736 bugfix when drawing Text with #backgroundColor (see ColorMenu) ca parents: 2659 diff changeset	6468	] ifFalse:[
7a090a030736 bugfix when drawing Text with #backgroundColor (see ColorMenu) ca parents: 2659 diff changeset	6469	printLabel := aLabel.
7a090a030736 bugfix when drawing Text with #backgroundColor (see ColorMenu) ca parents: 2659 diff changeset	6470	].
7a090a030736 bugfix when drawing Text with #backgroundColor (see ColorMenu) ca parents: 2659 diff changeset	6471	y := y + (printLabel ascentOn:menuPanel).
7a090a030736 bugfix when drawing Text with #backgroundColor (see ColorMenu) ca parents: 2659 diff changeset	6472	printLabel displayOn:menuPanel x:x y:y.
1727 a6365337be59 support setting font in MenuPanel and Editor ca parents: 1726 diff changeset	6473	] ifTrue:[
2337 7f384db88273 centerItems attribute Claus Gittinger <cg@exept.de> parents: 2332 diff changeset	6474	aLabel do:[:el\|
7f384db88273 centerItems attribute Claus Gittinger <cg@exept.de> parents: 2332 diff changeset	6475	el notNil ifTrue:[
2485 b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6476	y0 := y + (el ascentOn:menuPanel).
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6477	"/ el isImageOrForm ifFalse:[
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6478	"/ y0 := y + fontAscent
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6479	"/ ] ifTrue:[
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6480	"/ y0 := y
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6481	"/ ].
2614 86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	6482	x0 := x + (labelExtent x - (el widthOn:menuPanel) // 2).
2337 7f384db88273 centerItems attribute Claus Gittinger <cg@exept.de> parents: 2332 diff changeset	6483	el displayOn:menuPanel x:x0 y:y0.
7f384db88273 centerItems attribute Claus Gittinger <cg@exept.de> parents: 2332 diff changeset	6484	y := y + 1 + (el heightOn:menuPanel)
7f384db88273 centerItems attribute Claus Gittinger <cg@exept.de> parents: 2332 diff changeset	6485	] ifFalse:[
2485 b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6486	y := y + (self spaceBetweenEmptyLines)
2337 7f384db88273 centerItems attribute Claus Gittinger <cg@exept.de> parents: 2332 diff changeset	6487	]
7f384db88273 centerItems attribute Claus Gittinger <cg@exept.de> parents: 2332 diff changeset	6488	].
1727 a6365337be59 support setting font in MenuPanel and Editor ca parents: 1726 diff changeset	6489	].
a6365337be59 support setting font in MenuPanel and Editor ca parents: 1726 diff changeset	6490	menuPanel setFont:mfont
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6491	!
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6492
1707 4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6493	drawSeparatingLines
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6494	"draw separating lines
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6495	"
2059 c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6496	\|myIndex lfSep rtSep items prevItem nextItem
c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6497	lightColor shadowColor
1707 4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6498	l "{ Class:SmallInteger }"
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6499	t "{ Class:SmallInteger }"
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6500	r "{ Class:SmallInteger }"
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6501	b "{ Class:SmallInteger }"
706 d716edbdbe47 show separators bug cleaned tz parents: 689 diff changeset	6502	\|
2059 c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6503
1707 4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6504	items := menuPanel items.
2059 c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6505	myIndex := items identityIndexOf:self.
c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6506
c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6507	prevItem := items at:(myIndex - 1) ifAbsent:nil.
c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6508	lfSep := prevItem notNil and:[prevItem isButton not].
c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6509
c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6510	nextItem := items at:(myIndex + 1) ifAbsent:nil.
c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6511	rtSep := nextItem notNil and:[nextItem isButton not].
c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6512
c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6513	(lfSep or:[rtSep]) ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	6514	^ self
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	6515	].
2059 c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6516
c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6517	lightColor := menuPanel lightColor.
c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6518	shadowColor := menuPanel shadowColor.
c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6519
c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6520	menuPanel paint:lightColor.
1707 4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6521
608 0d8d910768af use default font derived from style ca parents: 601 diff changeset	6522	l := layout left.
0d8d910768af use default font derived from style ca parents: 601 diff changeset	6523	t := layout top.
0d8d910768af use default font derived from style ca parents: 601 diff changeset	6524	r := layout right.
0d8d910768af use default font derived from style ca parents: 601 diff changeset	6525	b := layout bottom.
1707 4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6526
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6527	menuPanel verticalLayout ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	6528	lfSep ifTrue:[menuPanel displayLineFromX:l y:t-1 toX:r y:t-1].
93426020ceed * empty log message * ca parents: 2216 diff changeset	6529	rtSep ifTrue:[menuPanel displayLineFromX:l y:b-1 toX:r y:b-1].
93426020ceed * empty log message * ca parents: 2216 diff changeset	6530
93426020ceed * empty log message * ca parents: 2216 diff changeset	6531	menuPanel paint:shadowColor.
93426020ceed * empty log message * ca parents: 2216 diff changeset	6532	lfSep ifTrue:[menuPanel displayLineFromX:l y:t-2 toX:r y:t-2].
93426020ceed * empty log message * ca parents: 2216 diff changeset	6533	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	6534	] ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	6535	lfSep ifTrue:[menuPanel displayLineFromX:l-1 y:t toX:l-1 y:b].
93426020ceed * empty log message * ca parents: 2216 diff changeset	6536	rtSep ifTrue:[menuPanel displayLineFromX:r-1 y:t toX:r-1 y:b].
93426020ceed * empty log message * ca parents: 2216 diff changeset	6537
93426020ceed * empty log message * ca parents: 2216 diff changeset	6538	menuPanel paint:shadowColor.
93426020ceed * empty log message * ca parents: 2216 diff changeset	6539	lfSep ifTrue:[menuPanel displayLineFromX:l-2 y:t toX:l-2 y:b].
93426020ceed * empty log message * ca parents: 2216 diff changeset	6540	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	6541	]
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6542	!
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6543
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6544	drawSeparator
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6545	"draw as separator
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6546	"
2059 c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6547	\|type lightColor shadowColor isDouble
c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6548	left top
1707 4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6549	x0 "{ Class:SmallInteger }"
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6550	x1 "{ Class:SmallInteger }"
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6551	y0 "{ Class:SmallInteger }"
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6552	y1 "{ Class:SmallInteger }"
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6553	\|
2059 c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6554
1707 4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6555	type := self separatorType.
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6556	(type isNil or:[type == #blankLine]) ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	6557	^ self
1707 4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6558	].
2059 c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6559
c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6560	isDouble := type == #doubleLine.
c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6561
1707 4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6562	lightColor := menuPanel lightColor.
2059 c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6563	shadowColor := menuPanel shadowColor.
c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6564	menuPanel paint:shadowColor.
c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6565
c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6566	left := layout left.
c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6567	top := layout top.
1707 4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6568
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6569	menuPanel verticalLayout ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	6570	x0 := left + HorizontalInset.
93426020ceed * empty log message * ca parents: 2216 diff changeset	6571	x1 := layout right - HorizontalInset.
93426020ceed * empty log message * ca parents: 2216 diff changeset	6572	y0 := top - 1 + (layout height // 2).
93426020ceed * empty log message * ca parents: 2216 diff changeset	6573	isDouble ifTrue:[y0 := y0 - 2].
93426020ceed * empty log message * ca parents: 2216 diff changeset	6574
93426020ceed * empty log message * ca parents: 2216 diff changeset	6575	menuPanel displayLineFromX:x0 y:y0 toX:x1 y:y0.
93426020ceed * empty log message * ca parents: 2216 diff changeset	6576	isDouble ifTrue:[menuPanel displayLineFromX:x0 y:y0+4 toX:x1 y:y0+4].
93426020ceed * empty log message * ca parents: 2216 diff changeset	6577
93426020ceed * empty log message * ca parents: 2216 diff changeset	6578	menuPanel paint:lightColor.
93426020ceed * empty log message * ca parents: 2216 diff changeset	6579	menuPanel displayLineFromX:x0 y:y0+1 toX:x1 y:y0+1.
93426020ceed * empty log message * ca parents: 2216 diff changeset	6580	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	6581
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6582	] ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	6583	y1 := layout bottom.
93426020ceed * empty log message * ca parents: 2216 diff changeset	6584	x0 := left - 1 + (layout width // 2).
93426020ceed * empty log message * ca parents: 2216 diff changeset	6585	y0 := top.
93426020ceed * empty log message * ca parents: 2216 diff changeset	6586	isDouble ifTrue:[x0 := x0 - 2].
93426020ceed * empty log message * ca parents: 2216 diff changeset	6587
93426020ceed * empty log message * ca parents: 2216 diff changeset	6588	menuPanel displayLineFromX:x0 y:y0 toX:x0 y:y1.
93426020ceed * empty log message * ca parents: 2216 diff changeset	6589	isDouble ifTrue:[menuPanel displayLineFromX:x0+4 y:y0 toX:x0+4 y:y1].
93426020ceed * empty log message * ca parents: 2216 diff changeset	6590
93426020ceed * empty log message * ca parents: 2216 diff changeset	6591	menuPanel paint:lightColor.
93426020ceed * empty log message * ca parents: 2216 diff changeset	6592	menuPanel displayLineFromX:x0+1 y:y0 toX:x0+1 y:y1.
93426020ceed * empty log message * ca parents: 2216 diff changeset	6593	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	6594	]
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6595	!
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6596
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6597	invalidate
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6598
2362 7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6599	layout isNil ifTrue:[^ self].
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6600
2433 49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6601	(displayLabel notNil and:[menuPanel notNil]) ifTrue:[
2362 7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6602	menuPanel invalidateItem:self repairNow:false
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6603	]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	6604	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	6605
dce33f8bb806 intitial checkin ca parents: diff changeset	6606	!MenuPanel::Item methodsFor:'initialization'!
dce33f8bb806 intitial checkin ca parents: diff changeset	6607
dce33f8bb806 intitial checkin ca parents: diff changeset	6608	destroy
616 a6157b083830 support of different styles ca parents: 608 diff changeset	6609	"destroy submenus, remove dependencies
388 dce33f8bb806 intitial checkin ca parents: diff changeset	6610	"
616 a6157b083830 support of different styles ca parents: 608 diff changeset	6611	self submenu:nil.
2681 2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	6612	self removeDependencies.
616 a6157b083830 support of different styles ca parents: 608 diff changeset	6613
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	6614	menuPanel := nil.
616 a6157b083830 support of different styles ca parents: 608 diff changeset	6615	!
a6157b083830 support of different styles ca parents: 608 diff changeset	6616
794 5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	6617	in:aPanel
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	6618	"create item in a menuPanel
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	6619	"
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	6620	menuPanel := aPanel.
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6621
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6622	menuItem isNil ifTrue:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6623	self halt.
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6624	menuItem := MenuItem new
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6625	].
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6626	!
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6627
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6628	initialize
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6629	menuItem := MenuItem new.
1811 df4f5e5b3396 restart under windows Claus Gittinger <cg@exept.de> parents: 1810 diff changeset	6630	!
df4f5e5b3396 restart under windows Claus Gittinger <cg@exept.de> parents: 1810 diff changeset	6631
df4f5e5b3396 restart under windows Claus Gittinger <cg@exept.de> parents: 1810 diff changeset	6632	reinitStyle
df4f5e5b3396 restart under windows Claus Gittinger <cg@exept.de> parents: 1810 diff changeset	6633
df4f5e5b3396 restart under windows Claus Gittinger <cg@exept.de> parents: 1810 diff changeset	6634	subMenu notNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	6635	subMenu reinitStyle
1811 df4f5e5b3396 restart under windows Claus Gittinger <cg@exept.de> parents: 1810 diff changeset	6636	].
df4f5e5b3396 restart under windows Claus Gittinger <cg@exept.de> parents: 1810 diff changeset	6637
df4f5e5b3396 restart under windows Claus Gittinger <cg@exept.de> parents: 1810 diff changeset	6638	"Created: / 17.8.2000 / 17:57:07 / cg"
df4f5e5b3396 restart under windows Claus Gittinger <cg@exept.de> parents: 1810 diff changeset	6639	"Modified: / 17.8.2000 / 18:00:08 / cg"
794 5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	6640	! !
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	6641
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	6642	!MenuPanel::Item methodsFor:'label basics'!
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	6643
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	6644	disabledRawLabel
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	6645	"returns the label used if the item is disabled
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	6646	"
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6647	\|block form image\|
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6648
2433 49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6649	disabledDisplayLabel notNil ifTrue:[^ disabledDisplayLabel].
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6650
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6651	disabledDisplayLabel := displayLabel ? ''.
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6652
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6653	disabledDisplayLabel isString ifTrue:[
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6654	^ disabledDisplayLabel
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6655	].
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6656
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6657	block := [:el\| \|rslt\|
2433 49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6658	(rslt := el) notNil ifTrue:[
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6659	el isImageOrForm ifTrue:[
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6660	el colorMap notNil ifTrue:[
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6661	rslt := menuPanel lightenedImageOnDevice:el
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6662	]
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6663	] ifFalse:[
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6664	(displayLabel isKindOf:LabelAndIcon) ifTrue:[
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6665	((form := el icon) notNil and:[form colorMap notNil]) ifTrue:[
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6666	form := menuPanel lightenedImageOnDevice:form
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6667	].
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6668	((image := el image) notNil and:[image colorMap notNil]) ifTrue:[
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6669	image := menuPanel lightenedImageOnDevice:image
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6670	].
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6671	rslt := LabelAndIcon form:form image:image string:(el string).
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6672	]
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6673	]
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6674	].
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6675	rslt
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6676	].
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6677
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6678	displayLabel isArray ifTrue:[
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6679	disabledDisplayLabel := Array new:(displayLabel size).
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6680
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6681	displayLabel keysAndValuesDo:[:anIndex :aLabel\|
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6682	disabledDisplayLabel at:anIndex put:(block value:aLabel)
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6683	]
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6684	] ifFalse:[
2433 49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6685	disabledDisplayLabel := block value:displayLabel
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6686	].
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6687	^ disabledDisplayLabel
794 5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	6688	!
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	6689
1829 bd8b95c5bb89 migration fixes Claus Gittinger <cg@exept.de> parents: 1825 diff changeset	6690	fetchDeviceResources
2373 8dbf026f0bd1 bug fix: specific font used by item ca parents: 2372 diff changeset	6691
2433 49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6692	disabledDisplayLabel := nil.
1829 bd8b95c5bb89 migration fixes Claus Gittinger <cg@exept.de> parents: 1825 diff changeset	6693	self fetchImages.
bd8b95c5bb89 migration fixes Claus Gittinger <cg@exept.de> parents: 1825 diff changeset	6694	!
bd8b95c5bb89 migration fixes Claus Gittinger <cg@exept.de> parents: 1825 diff changeset	6695
616 a6157b083830 support of different styles ca parents: 608 diff changeset	6696	fetchImages
a6157b083830 support of different styles ca parents: 608 diff changeset	6697	"fetch images
a6157b083830 support of different styles ca parents: 608 diff changeset	6698	"
2118 89d02ebc5b65 optimize #labels: and #fetchImages in Item. discard block ca parents: 2113 diff changeset	6699	\|icon\|
89d02ebc5b65 optimize #labels: and #fetchImages in Item. discard block ca parents: 2113 diff changeset	6700
2433 49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6701	(displayLabel isNil or:[displayLabel isString]) ifTrue:[
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6702	^ self
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6703	].
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6704	displayLabel isImageOrForm ifTrue:[
2488 74c81c1e30d7 imageOnDevice -> imageOnMyDevice Claus Gittinger <cg@exept.de> parents: 2485 diff changeset	6705	displayLabel := menuPanel imageOnMyDevice:displayLabel.
2433 49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6706	^ self.
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6707	].
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6708
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6709	(displayLabel isKindOf:LabelAndIcon) ifTrue:[
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6710	(icon := displayLabel image) notNil ifTrue:[
2488 74c81c1e30d7 imageOnDevice -> imageOnMyDevice Claus Gittinger <cg@exept.de> parents: 2485 diff changeset	6711	displayLabel image:(menuPanel imageOnMyDevice:icon)
2433 49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6712	].
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6713	(icon := displayLabel icon) notNil ifTrue:[
2488 74c81c1e30d7 imageOnDevice -> imageOnMyDevice Claus Gittinger <cg@exept.de> parents: 2485 diff changeset	6714	displayLabel icon:(menuPanel imageOnMyDevice:icon)
2433 49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6715	].
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6716	^ self
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6717	].
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6718
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6719	displayLabel isArray ifFalse:[^ self].
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6720
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6721	displayLabel keysAndValuesDo:[:i :el\|
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6722	(el notNil and:[el isString not]) ifTrue:[
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6723	el isImageOrForm ifTrue:[
2488 74c81c1e30d7 imageOnDevice -> imageOnMyDevice Claus Gittinger <cg@exept.de> parents: 2485 diff changeset	6724	displayLabel at:i put:(menuPanel imageOnMyDevice:el).
2433 49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6725	] ifFalse:[
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6726	el class == LabelAndIcon ifTrue:[
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6727	(icon := el image) notNil ifTrue:[
2488 74c81c1e30d7 imageOnDevice -> imageOnMyDevice Claus Gittinger <cg@exept.de> parents: 2485 diff changeset	6728	el image:(menuPanel imageOnMyDevice:icon)
2433 49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6729	].
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6730	(icon := el icon) notNil ifTrue:[
2488 74c81c1e30d7 imageOnDevice -> imageOnMyDevice Claus Gittinger <cg@exept.de> parents: 2485 diff changeset	6731	el icon:(menuPanel imageOnMyDevice:icon)
2433 49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6732	]
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6733	]
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6734	]
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6735	]
1078 3adf74275ebd support choice for buttons ca parents: 1076 diff changeset	6736	].
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6737	!
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6738
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6739	updateAccessCharacterFor:aLabel
2550 1dc3745fc313 do not show the menus label again as fly by help Claus Gittinger <cg@exept.de> parents: 2545 diff changeset	6740	"replace the & by the short-key attribute (i.e. underline it)"
1dc3745fc313 do not show the menus label again as fly by help Claus Gittinger <cg@exept.de> parents: 2545 diff changeset	6741
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6742	\|s i rest label pos\|
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6743
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6744	(accessCharacter notNil or:[aLabel isNil]) ifTrue:[
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6745	^ aLabel
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6746	].
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6747
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6748	aLabel isString ifFalse:[
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6749	aLabel class == LabelAndIcon ifTrue:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6750	aLabel string:(self updateAccessCharacterFor:(aLabel string))
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6751	].
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6752	^ aLabel
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6753	].
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6754
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6755	s := aLabel size.
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6756	i := 1.
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6757
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6758	label := aLabel.
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6759	pos := menuItem accessCharacterPosition.
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6760
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6761	[((i := label indexOf:$& startingAt:i) ~~ 0 and:[i < s])] whileTrue:[
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6762	rest := label copyFrom:(i+1).
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6763
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6764	i == 1 ifTrue:[label := rest]
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6765	ifFalse:[label := (label copyFrom:1 to:(i-1)), rest].
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6766
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6767	(label at:i) == $& ifTrue:[i := i + 1] ifFalse:[pos := i].
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6768	s := s - 1.
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6769	].
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6770
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6771	(pos isNil or:[(accessCharacter := label at:pos ifAbsent:nil) isNil]) ifTrue:[
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6772	^ label
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6773	].
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6774
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6775	label isText ifFalse:[
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6776	label := Text string:label
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6777	].
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6778	label emphasisAt:pos add:#underline.
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6779	^ label
388 dce33f8bb806 intitial checkin ca parents: diff changeset	6780	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	6781
1573 fd124ee2bce5 shortcutKeys; arrange layout if selection changed ca parents: 1572 diff changeset	6782	!MenuPanel::Item methodsFor:'printing & storing'!
fd124ee2bce5 shortcutKeys; arrange layout if selection changed ca parents: 1572 diff changeset	6783
fd124ee2bce5 shortcutKeys; arrange layout if selection changed ca parents: 1572 diff changeset	6784	displayString
1690 38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	6785	^ self class name, '[', label printString, ']'
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	6786
1573 fd124ee2bce5 shortcutKeys; arrange layout if selection changed ca parents: 1572 diff changeset	6787	! !
fd124ee2bce5 shortcutKeys; arrange layout if selection changed ca parents: 1572 diff changeset	6788
388 dce33f8bb806 intitial checkin ca parents: diff changeset	6789	!MenuPanel::Item methodsFor:'private'!
dce33f8bb806 intitial checkin ca parents: diff changeset	6790
650 29dcdf6a5994 button and label translation support added tz parents: 638 diff changeset	6791	activeBackgroundColor
29dcdf6a5994 button and label translation support added tz parents: 638 diff changeset	6792	"returns the active background color derived from menuPanel
29dcdf6a5994 button and label translation support added tz parents: 638 diff changeset	6793	"
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6794	menuItem isButton ifTrue:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6795	^ menuPanel buttonActiveBackgroundColor
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6796	].
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6797	^ menuPanel activeBackgroundColor
650 29dcdf6a5994 button and label translation support added tz parents: 638 diff changeset	6798	!
29dcdf6a5994 button and label translation support added tz parents: 638 diff changeset	6799
29dcdf6a5994 button and label translation support added tz parents: 638 diff changeset	6800	activeForegroundColor
29dcdf6a5994 button and label translation support added tz parents: 638 diff changeset	6801	"returns the active foreground color derived from menuPanel
29dcdf6a5994 button and label translation support added tz parents: 638 diff changeset	6802	"
29dcdf6a5994 button and label translation support added tz parents: 638 diff changeset	6803
29dcdf6a5994 button and label translation support added tz parents: 638 diff changeset	6804	^menuPanel activeForegroundColor
29dcdf6a5994 button and label translation support added tz parents: 638 diff changeset	6805	!
29dcdf6a5994 button and label translation support added tz parents: 638 diff changeset	6806
727 3ba54333342a button style from style sheet tz parents: 723 diff changeset	6807	backgroundColor
3ba54333342a button style from style sheet tz parents: 723 diff changeset	6808	"returns the background color derived from menuPanel
3ba54333342a button style from style sheet tz parents: 723 diff changeset	6809	"
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6810	menuItem isButton ifTrue:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6811	^ menuPanel buttonPassiveBackgroundColor
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6812	].
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6813	^ menuPanel backgroundColor
727 3ba54333342a button style from style sheet tz parents: 723 diff changeset	6814	!
3ba54333342a button style from style sheet tz parents: 723 diff changeset	6815
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	6816	backgroundColorFromLabel
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	6817	"returns the background color derived from label or nil
388 dce33f8bb806 intitial checkin ca parents: diff changeset	6818	"
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	6819	\|run\|
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	6820
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	6821	label isText ifFalse:[^ nil ].
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	6822	run := label emphasis.
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	6823	run size == 0 ifTrue:[^ nil ].
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	6824
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	6825	run := run first.
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	6826
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	6827	run size == 0 ifTrue:[
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	6828	(run value isColor and:[run key == #backgroundColor]) ifTrue:[
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	6829	^ run value
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	6830	]
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	6831	] ifFalse:[
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	6832	run do:[:r\|
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	6833	(r value isColor and:[r key == #backgroundColor]) ifTrue:[
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	6834	^ r value
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	6835	]
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	6836	]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	6837	].
dce33f8bb806 intitial checkin ca parents: diff changeset	6838	^ nil
dce33f8bb806 intitial checkin ca parents: diff changeset	6839	!
dce33f8bb806 intitial checkin ca parents: diff changeset	6840
1081 fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	6841	buttonEnteredBackgroundColor
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	6842	"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	6843	derived from menuPanel
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	6844	"
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6845	menuItem isButton ifTrue:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6846	^ menuPanel buttonEnteredBackgroundColor
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6847	].
1081 fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	6848	^ menuPanel backgroundColor
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	6849	!
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	6850
1074 25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	6851	choiceForm
25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	6852	"returns choice form or nil
25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	6853	"
1798 08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	6854	\|isOn\|
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	6855
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6856	choice isNil ifTrue:[^ nil].
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6857
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6858	isOn := (choice value = menuItem choiceValue).
1798 08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	6859	self enabled ifFalse:[
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6860	^ isOn ifTrue:[menuPanel iconRadioGroupDisabledOn]
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6861	ifFalse:[menuPanel iconRadioGroupDisabledOff]
1798 08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	6862	].
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	6863	^ isOn ifTrue:[menuPanel iconRadioGroupOn]
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6864	ifFalse:[menuPanel iconRadioGroupOff]
1074 25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	6865	!
25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	6866
663 b418df6b72d8 retrive submenu: ca parents: 661 diff changeset	6867	findSubMenuIn:aRecv
1051 a448c854fcbb catch messageNotUnderstood for #aspectFor: Claus Gittinger <cg@exept.de> parents: 1048 diff changeset	6868	"ask the receiver for a submenu aspect, sending it
a448c854fcbb catch messageNotUnderstood for #aspectFor: Claus Gittinger <cg@exept.de> parents: 1048 diff changeset	6869	#aspectFor: first; then trying the selector itself.
a448c854fcbb catch messageNotUnderstood for #aspectFor: Claus Gittinger <cg@exept.de> parents: 1048 diff changeset	6870	Ignore the error if that message is not understood
a448c854fcbb catch messageNotUnderstood for #aspectFor: Claus Gittinger <cg@exept.de> parents: 1048 diff changeset	6871	(but not other message-not-understoods)"
a448c854fcbb catch messageNotUnderstood for #aspectFor: Claus Gittinger <cg@exept.de> parents: 1048 diff changeset	6872
2069 7891c7d3af69 use new #perform:withOptionalArgument: Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	6873	\|subm sel numArgs\|
1795 6afd0e768267 submenuChannel selector: allow upto two arguments, the arg and the menu ca parents: 1793 diff changeset	6874
6afd0e768267 submenuChannel selector: allow upto two arguments, the arg and the menu ca parents: 1793 diff changeset	6875	aRecv isNil ifTrue:[^ nil].
6afd0e768267 submenuChannel selector: allow upto two arguments, the arg and the menu ca parents: 1793 diff changeset	6876
2364 c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	6877	sel := menuItem submenuChannel.
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	6878	sel isString ifFalse:[^ nil].
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	6879	sel := sel asSymbol.
2069 7891c7d3af69 use new #perform:withOptionalArgument: Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	6880	numArgs := sel numArgs.
7891c7d3af69 use new #perform:withOptionalArgument: Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	6881
7891c7d3af69 use new #perform:withOptionalArgument: Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	6882	numArgs == 0 ifTrue:[
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6883	MessageNotUnderstood handle:[:ex \|
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6884	\|selector\|
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6885
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6886	((selector := ex message selector) == sel
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6887	or:[selector == #aspectFor:]) ifFalse:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6888	ex reject
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6889	].
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6890	] do:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6891	subm := aRecv aspectFor:sel.
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6892	].
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6893	subm notNil ifTrue:[^ subm].
1795 6afd0e768267 submenuChannel selector: allow upto two arguments, the arg and the menu ca parents: 1793 diff changeset	6894	].
6afd0e768267 submenuChannel selector: allow upto two arguments, the arg and the menu ca parents: 1793 diff changeset	6895
2043 133a9674bcdf * empty log message * Claus Gittinger <cg@exept.de> parents: 2042 diff changeset	6896	(Array with:(aRecv) with:(aRecv class))
133a9674bcdf * empty log message * Claus Gittinger <cg@exept.de> parents: 2042 diff changeset	6897	do:[:aPossibleReceiver \|
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6898	MessageNotUnderstood handle:[:ex\|
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6899	ex message selector == sel ifFalse:[ ex reject ]
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6900	] do:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6901	numArgs == 0 ifTrue:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6902	subm := aPossibleReceiver perform:sel
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6903	] ifFalse:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6904	numArgs == 1 ifTrue:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6905	subm := aPossibleReceiver perform:sel with:(menuItem argument ? menuPanel)
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6906	] ifFalse:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6907	subm := aPossibleReceiver perform:sel with:(menuItem argument) with:menuPanel
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6908	]
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6909	]
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6910	].
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6911	subm notNil ifTrue:[^ subm].
1795 6afd0e768267 submenuChannel selector: allow upto two arguments, the arg and the menu ca parents: 1793 diff changeset	6912	].
6afd0e768267 submenuChannel selector: allow upto two arguments, the arg and the menu ca parents: 1793 diff changeset	6913
663 b418df6b72d8 retrive submenu: ca parents: 661 diff changeset	6914	^ subm
2043 133a9674bcdf * empty log message * Claus Gittinger <cg@exept.de> parents: 2042 diff changeset	6915
133a9674bcdf * empty log message * Claus Gittinger <cg@exept.de> parents: 2042 diff changeset	6916	"Modified: / 30.10.2001 / 13:28:25 / cg"
663 b418df6b72d8 retrive submenu: ca parents: 661 diff changeset	6917	!
b418df6b72d8 retrive submenu: ca parents: 661 diff changeset	6918
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	6919	indicationValue
524 d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	6920	"returns indication value or nil in case of no indication
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	6921	"
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6922	\|numArgs sel recv\|
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6923
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6924	indication isNil ifTrue:[^ nil]. "no indication specified"
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6925
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6926	indication isSymbol ifFalse:[
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6927	^ indication value == true "block or model"
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6928	].
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6929
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6930	(numArgs := indication numArgs) == 2 ifTrue:[
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6931	recv := menuPanel receiver.
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6932
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6933	(recv isValueModel) ifFalse:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6934	(recv notNil or:[(recv := menuPanel application) notNil]) ifTrue:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6935	sel := indication copyFrom:1 to:(indication indexOf:$:).
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6936	sel := sel asSymbol.
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6937
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6938	MessageNotUnderstood handle:[:ex\|
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6939	ex message selector == sel ifFalse:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6940	ex reject
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6941	].
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6942	] do:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6943	sel := recv perform:sel with:(menuItem argument)
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6944	]
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6945	].
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6946	].
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6947	^ sel value == true
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6948	].
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6949
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6950	numArgs ~~ 0 ifTrue:[
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6951	sel := (indication copyWithoutLast:1) asSymbol
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6952	] ifFalse:[
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6953	sel := indication
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6954	].
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6955	sel := self aspectAt:sel.
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6956
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6957	sel isValueModel ifTrue:[
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6958	indication := sel.
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6959	indication addDependent:self.
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6960	].
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6961	^ sel value == true
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	6962	!
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	6963
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	6964	indicationValue:aValue
1218 6ce43fcb2603 code cleanup Claus Gittinger <cg@exept.de> parents: 1217 diff changeset	6965	"set the indication value
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	6966	"
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6967	\|numArgs recv\|
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6968
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6969	indication isNil ifTrue:[^ self]. "no indication specified"
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6970
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6971	indication isSymbol ifFalse:[
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6972	indication perform:#value: with:aValue ifNotUnderstood:nil. "block or model"
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6973	^ self
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6974	].
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6975
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6976	(numArgs := indication numArgs) == 0 ifTrue:[ "no arguments to selector; cannot set"
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6977	^ self
1218 6ce43fcb2603 code cleanup Claus Gittinger <cg@exept.de> parents: 1217 diff changeset	6978	].
6ce43fcb2603 code cleanup Claus Gittinger <cg@exept.de> parents: 1217 diff changeset	6979
524 d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	6980	recv := menuPanel receiver.
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6981	recv isValueModel ifTrue:[^ self].
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6982
1218 6ce43fcb2603 code cleanup Claus Gittinger <cg@exept.de> parents: 1217 diff changeset	6983	recv isNil ifTrue:[
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6984	recv := menuPanel application.
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6985	recv isNil ifTrue:[^ self].
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6986	].
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6987
2069 7891c7d3af69 use new #perform:withOptionalArgument: Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	6988	MessageNotUnderstood handle:[:ex\|
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6989	(ex message selector ~~ indication) ifTrue:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6990	ex reject
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6991	].
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6992	self ifNotInUIBuilderInfoPrintCR:
2545 e838be7f2c83 Tell application name in info message about no-existing aspects. Stefan Vogel <sv@exept.de> parents: 2505 diff changeset	6993	('MenuPanel::Item [info]: application (class %1) does not respond to: %2'
e838be7f2c83 Tell application name in info message about no-existing aspects. Stefan Vogel <sv@exept.de> parents: 2505 diff changeset	6994	bindWith:recv className with:indication).
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6995	] do:[
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6996	numArgs == 1 ifTrue:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6997	recv perform:indication with:aValue
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6998	] ifFalse:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6999	recv perform:indication with:(menuItem argument ? self) with:aValue
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7000	]
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	7001	].
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	7002	!
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	7003
1074 25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	7004	indicatorForm
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	7005	"returns indication form or nil
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	7006	"
1798 08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	7007	\|val\|
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	7008
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	7009	indication isNil ifTrue:[^ nil].
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	7010
1798 08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	7011	val := self indicationValue.
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	7012	self enabled ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	7013	^ val == true
93426020ceed * empty log message * ca parents: 2216 diff changeset	7014	ifTrue:[menuPanel iconIndicationDisabledOn]
93426020ceed * empty log message * ca parents: 2216 diff changeset	7015	ifFalse:[menuPanel iconIndicationDisabledOff]
1798 08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	7016	].
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	7017	^ val == true
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	7018	ifTrue:[menuPanel iconIndicationOn]
93426020ceed * empty log message * ca parents: 2216 diff changeset	7019	ifFalse:[menuPanel iconIndicationOff]
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	7020	!
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	7021
1081 fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	7022	isEntered
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	7023	"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	7024	"
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	7025	^ menuPanel enteredItem == self
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	7026
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	7027	"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	7028	!
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	7029
464 a788fdce92e2 add submenuChannel ca parents: 461 diff changeset	7030	separatorType
a788fdce92e2 add submenuChannel ca parents: 461 diff changeset	7031	"returns type of separator line or nil
388 dce33f8bb806 intitial checkin ca parents: diff changeset	7032	"
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	7033	\|c lbl\|
388 dce33f8bb806 intitial checkin ca parents: diff changeset	7034
2433 49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	7035	self isSeparator ifFalse:[
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	7036	^ nil
388 dce33f8bb806 intitial checkin ca parents: diff changeset	7037	].
dce33f8bb806 intitial checkin ca parents: diff changeset	7038
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	7039	(lbl := label value) isNil ifTrue:[
2433 49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	7040	^ #singleLine
388 dce33f8bb806 intitial checkin ca parents: diff changeset	7041	].
dce33f8bb806 intitial checkin ca parents: diff changeset	7042
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	7043	lbl size == 1 ifTrue:[
2433 49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	7044	c := lbl first.
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	7045	c == $- ifTrue:[^ #singleLine].
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	7046	c == $= ifTrue:[^ #doubleLine].
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	7047	].
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	7048	^ #blankLine
1130 fb79ef4aeec8 style changes Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	7049	!
fb79ef4aeec8 style changes Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	7050
fb79ef4aeec8 style changes Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	7051	setupSubmenu
2364 c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7052	\|appl master recv submenuHolder submenu submenuEncoding channel\|
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7053
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7054	channel := menuItem submenuChannel value.
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7055	channel isNil ifTrue:[ ^ subMenu ].
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7056
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7057	subMenu notNil ifTrue:[
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7058	menuItem keepLinkedMenu ifTrue:[ ^ subMenu ].
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7059	].
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7060
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7061	channel isSymbol ifFalse:[
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7062	submenuHolder := channel
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7063	] ifTrue:[
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7064	appl := menuPanel application.
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7065	appl isNil ifTrue:[
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7066	appl := menuPanel receiver.
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7067	appl notNil ifTrue:[
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7068	(submenuHolder := self findSubMenuIn:appl) isNil ifTrue:[
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7069	[submenuHolder isNil
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7070	and:[(master := appl perform:#masterApplication ifNotUnderstood:nil) notNil
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7071	and:[master ~~ appl]]] whileTrue:[
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7072	appl := master.
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7073	submenuHolder := self findSubMenuIn:appl.
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7074	].
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7075	]
2232 5784671fb497 when searching for a sumbenus application, do NOT Claus Gittinger <cg@exept.de> parents: 2231 diff changeset	7076	].
2364 c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7077	].
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7078	submenuHolder isNil ifTrue:[
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7079	(submenuHolder := self findSubMenuIn:appl) isNil ifTrue:[
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7080	(recv := menuPanel receiver) ~~ appl ifTrue:[
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7081	appl := recv.
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7082	submenuHolder := self findSubMenuIn:appl
2232 5784671fb497 when searching for a sumbenus application, do NOT Claus Gittinger <cg@exept.de> parents: 2231 diff changeset	7083	]
5784671fb497 when searching for a sumbenus application, do NOT Claus Gittinger <cg@exept.de> parents: 2231 diff changeset	7084	]
2364 c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7085	]
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7086	].
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7087
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7088	(submenu := submenuHolder value) isArray ifTrue:[
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7089	submenuEncoding := submenu.
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7090	submenu := Menu new fromLiteralArrayEncoding:submenuEncoding.
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7091	"/ cg: linked menus also may contain translations ...
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7092	submenu notNil ifTrue:[
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7093	appl notNil ifTrue:[
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7094	submenu findGuiResourcesIn:appl.
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7095	]
2232 5784671fb497 when searching for a sumbenus application, do NOT Claus Gittinger <cg@exept.de> parents: 2231 diff changeset	7096	].
2364 c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7097	].
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7098	"/ appl notNil ifTrue:[submenu application:appl].
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7099	self submenu:submenu.
1130 fb79ef4aeec8 style changes Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	7100	^ subMenu
fb79ef4aeec8 style changes Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	7101
fb79ef4aeec8 style changes Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	7102	"Modified: / 19.5.1998 / 19:36:56 / cg"
2485 b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	7103	!
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	7104
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	7105	spaceBetweenEmptyLines
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	7106	^ 3
388 dce33f8bb806 intitial checkin ca parents: diff changeset	7107	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	7108
dce33f8bb806 intitial checkin ca parents: diff changeset	7109	!MenuPanel::Item methodsFor:'queries'!
dce33f8bb806 intitial checkin ca parents: diff changeset	7110
1217 c6a4c536aa8c care for items which change visibility via Claus Gittinger <cg@exept.de> parents: 1212 diff changeset	7111	canChangeVisibility
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	7112	"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	7113	otherwise there is a change notification raised if the model changed
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	7114	"
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	7115	^ isVisible isSymbol
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	7116	"/ ^ isVisible notNil and:[isVisible ~~ true]
1217 c6a4c536aa8c care for items which change visibility via Claus Gittinger <cg@exept.de> parents: 1212 diff changeset	7117	!
c6a4c536aa8c care for items which change visibility via Claus Gittinger <cg@exept.de> parents: 1212 diff changeset	7118
388 dce33f8bb806 intitial checkin ca parents: diff changeset	7119	canSelect
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	7120	"returns true if item is selectable; no separator, visible and enabled.
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	7121	in case of a choice (RadioButton) i have to check for the choiceValue
388 dce33f8bb806 intitial checkin ca parents: diff changeset	7122	"
2362 7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	7123	self isSeparator ifTrue:[^ false].
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	7124
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	7125	(self isVisible and:[self enabled]) ifTrue:[
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7126	(choice isNil or:[choice value ~= menuItem choiceValue]) ifTrue:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7127	^ true
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7128	].
1078 3adf74275ebd support choice for buttons ca parents: 1076 diff changeset	7129	].
3adf74275ebd support choice for buttons ca parents: 1076 diff changeset	7130	^ false
388 dce33f8bb806 intitial checkin ca parents: diff changeset	7131	!
dce33f8bb806 intitial checkin ca parents: diff changeset	7132
2046 012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	7133	containsPoint:aPoint
012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	7134	"returns true if aPoint is contained in my layout
012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	7135	"
012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	7136	(self isVisible and:[layout notNil]) ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	7137	^ layout containsPoint:aPoint
2046 012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	7138	].
012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	7139	^ false
012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	7140
012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	7141	"Created: / 13.11.2001 / 13:55:31 / cg"
012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	7142	!
012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	7143
388 dce33f8bb806 intitial checkin ca parents: diff changeset	7144	containsPointX:x y:y
dce33f8bb806 intitial checkin ca parents: diff changeset	7145	"returns true if point is contained in my layout
dce33f8bb806 intitial checkin ca parents: diff changeset	7146	"
712 4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	7147	(self isVisible and:[layout notNil]) ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	7148	^ layout containsPointX:x y:y
505 562d5661a855 check for valid layout ca parents: 502 diff changeset	7149	].
562d5661a855 check for valid layout ca parents: 502 diff changeset	7150	^ false
388 dce33f8bb806 intitial checkin ca parents: diff changeset	7151	!
dce33f8bb806 intitial checkin ca parents: diff changeset	7152
2199 61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	7153	hasDelayedMenu
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	7154	"returns true if a delayed menu exists
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	7155	"
2360 aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	7156	self hasSubmenu ifFalse:[
2326 a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	7157	^ false
2199 61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	7158	].
2360 aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	7159	menuItem itemValue notNil ifTrue:[ ^ true ].
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	7160
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	7161	(indication isNil and:[choice isNil]) ifTrue:[
2326 a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	7162	^ false
2199 61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	7163	].
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	7164	^ true
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	7165	!
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	7166
2214 8eefad87cf62 drawing delayed menu indicators... first try not yet finished ca parents: 2199 diff changeset	7167	hasDelayedMenuIndicator
8eefad87cf62 drawing delayed menu indicators... first try not yet finished ca parents: 2199 diff changeset	7168	"returns true if the item has a delayed menu
2326 a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	7169	and is in the topMenuPanel (because submenuIndicator is already drawn in popUpViews)
2214 8eefad87cf62 drawing delayed menu indicators... first try not yet finished ca parents: 2199 diff changeset	7170	"
8eefad87cf62 drawing delayed menu indicators... first try not yet finished ca parents: 2199 diff changeset	7171	menuPanel isPopUpView ifFalse:[
2344 d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	7172	^ self hasDelayedMenu
2214 8eefad87cf62 drawing delayed menu indicators... first try not yet finished ca parents: 2199 diff changeset	7173	].
8eefad87cf62 drawing delayed menu indicators... first try not yet finished ca parents: 2199 diff changeset	7174	^ false
8eefad87cf62 drawing delayed menu indicators... first try not yet finished ca parents: 2199 diff changeset	7175	!
8eefad87cf62 drawing delayed menu indicators... first try not yet finished ca parents: 2199 diff changeset	7176
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	7177	hasIndication
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	7178	"returns true if on/off indication exists
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	7179	"
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	7180	^ indication notNil
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	7181	!
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	7182
2344 d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	7183	hasMenuIndicator
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	7184	"returns true if the item has a delayed menu
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	7185	and is in the topMenuPanel (because submenuIndicator is already drawn in popUpViews)
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	7186	"
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	7187	menuPanel isPopUpView ifFalse:[
2360 aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	7188	^ self hasSubmenu and:[menuItem isButton]
2344 d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	7189	].
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	7190	^ false
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	7191	!
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	7192
388 dce33f8bb806 intitial checkin ca parents: diff changeset	7193	hasSubmenu
1473 1f62652f146e use hasSubmenu insteat of submenu if possible; Claus Gittinger <cg@exept.de> parents: 1472 diff changeset	7194	"returns true if the item is configured as an subMenu entry
388 dce33f8bb806 intitial checkin ca parents: diff changeset	7195	"
2364 c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7196	^ subMenu notNil or:[menuItem submenuChannel notNil]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	7197	!
dce33f8bb806 intitial checkin ca parents: diff changeset	7198
dce33f8bb806 intitial checkin ca parents: diff changeset	7199	isEnabled
dce33f8bb806 intitial checkin ca parents: diff changeset	7200	"returns enabled state
dce33f8bb806 intitial checkin ca parents: diff changeset	7201	"
dce33f8bb806 intitial checkin ca parents: diff changeset	7202	^ self enabled
dce33f8bb806 intitial checkin ca parents: diff changeset	7203	!
dce33f8bb806 intitial checkin ca parents: diff changeset	7204
608 0d8d910768af use default font derived from style ca parents: 601 diff changeset	7205	isSeparator
0d8d910768af use default font derived from style ca parents: 601 diff changeset	7206	"returns true if item is a separator
0d8d910768af use default font derived from style ca parents: 601 diff changeset	7207	"
2433 49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	7208	^ displayLabel isNil
608 0d8d910768af use default font derived from style ca parents: 601 diff changeset	7209	!
0d8d910768af use default font derived from style ca parents: 601 diff changeset	7210
2159 1eac041aeb3d toggle button draw & behavior Claus Gittinger <cg@exept.de> parents: 2145 diff changeset	7211	isToggle
1eac041aeb3d toggle button draw & behavior Claus Gittinger <cg@exept.de> parents: 2145 diff changeset	7212	"returns true if on/off indication exists
1eac041aeb3d toggle button draw & behavior Claus Gittinger <cg@exept.de> parents: 2145 diff changeset	7213	"
1eac041aeb3d toggle button draw & behavior Claus Gittinger <cg@exept.de> parents: 2145 diff changeset	7214	^ self hasIndication and:[ self isButton ]
1eac041aeb3d toggle button draw & behavior Claus Gittinger <cg@exept.de> parents: 2145 diff changeset	7215	!
1eac041aeb3d toggle button draw & behavior Claus Gittinger <cg@exept.de> parents: 2145 diff changeset	7216
712 4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	7217	isVisible
4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	7218	"returns the visibility state
4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	7219	"
4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	7220	\|state\|
4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	7221
4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	7222	isVisible isSymbol ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	7223	state := self aspectAt:isVisible.
93426020ceed * empty log message * ca parents: 2216 diff changeset	7224
93426020ceed * empty log message * ca parents: 2216 diff changeset	7225	state isValueModel ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	7226	isVisible := state.
93426020ceed * empty log message * ca parents: 2216 diff changeset	7227	isVisible addDependent:self.
93426020ceed * empty log message * ca parents: 2216 diff changeset	7228	state := isVisible.
93426020ceed * empty log message * ca parents: 2216 diff changeset	7229	]
712 4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	7230	] ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	7231	state := isVisible
1164 e6e9633abf48 kludge fix: invoke mustRearrange to care for block-visibility attributes Claus Gittinger <cg@exept.de> parents: 1156 diff changeset	7232	].
e6e9633abf48 kludge fix: invoke mustRearrange to care for block-visibility attributes Claus Gittinger <cg@exept.de> parents: 1156 diff changeset	7233	^ state value ~~ false
e6e9633abf48 kludge fix: invoke mustRearrange to care for block-visibility attributes Claus Gittinger <cg@exept.de> parents: 1156 diff changeset	7234
e6e9633abf48 kludge fix: invoke mustRearrange to care for block-visibility attributes Claus Gittinger <cg@exept.de> parents: 1156 diff changeset	7235	"Modified: / 5.10.1998 / 12:08:28 / cg"
712 4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	7236	!
4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	7237
4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	7238	isVisible:something
4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	7239	"change the state; if the state changed, a redraw is performed
4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	7240	"
4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	7241	\|oldState newState\|
4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	7242
4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	7243	isVisible isNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	7244	oldState := true
712 4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	7245	] ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	7246	oldState := isVisible value.
93426020ceed * empty log message * ca parents: 2216 diff changeset	7247	isVisible isValueModel ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	7248	isVisible removeDependent:self
93426020ceed * empty log message * ca parents: 2216 diff changeset	7249	]
712 4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	7250	].
4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	7251	isVisible := something.
4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	7252
4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	7253	isVisible isNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	7254	newState := true
712 4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	7255	] ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	7256	isVisible isValueModel ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	7257	isVisible addDependent:self
93426020ceed * empty log message * ca parents: 2216 diff changeset	7258	] ifFalse:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	7259	isVisible isSymbol ifTrue:[^ self]
93426020ceed * empty log message * ca parents: 2216 diff changeset	7260	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	7261	menuPanel shown ifFalse:[^ self].
93426020ceed * empty log message * ca parents: 2216 diff changeset	7262	newState := isVisible value.
712 4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	7263	].
4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	7264
4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	7265	newState ~~ oldState ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	7266	menuPanel mustRearrange
712 4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	7267	]
1164 e6e9633abf48 kludge fix: invoke mustRearrange to care for block-visibility attributes Claus Gittinger <cg@exept.de> parents: 1156 diff changeset	7268
e6e9633abf48 kludge fix: invoke mustRearrange to care for block-visibility attributes Claus Gittinger <cg@exept.de> parents: 1156 diff changeset	7269	"Modified: / 5.10.1998 / 12:12:04 / cg"
712 4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	7270	!
4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	7271
2433 49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	7272	needsItemSpaceWhenDrawing
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	7273	^ self isSeparator not and:[menuItem isButton not]
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	7274	!
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	7275
388 dce33f8bb806 intitial checkin ca parents: diff changeset	7276	shortcutKeyAsString
dce33f8bb806 intitial checkin ca parents: diff changeset	7277	"converts shortcutKey to a text object
dce33f8bb806 intitial checkin ca parents: diff changeset	7278	"
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7279	\|nm prefix shortcutKey\|
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7280
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7281	shortcutKey := menuItem shortcutKey.
1609 2c8d62894ebe optimize searchinf for shortCutKeys ca parents: 1600 diff changeset	7282
2c8d62894ebe optimize searchinf for shortCutKeys ca parents: 1600 diff changeset	7283	shortcutKey isNil ifTrue:[
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7284	^ nil
1609 2c8d62894ebe optimize searchinf for shortCutKeys ca parents: 1600 diff changeset	7285	].
2c8d62894ebe optimize searchinf for shortCutKeys ca parents: 1600 diff changeset	7286
2c8d62894ebe optimize searchinf for shortCutKeys ca parents: 1600 diff changeset	7287	shortcutKey isCharacter ifTrue:[
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7288	nm := shortcutKey asString
388 dce33f8bb806 intitial checkin ca parents: diff changeset	7289	] ifFalse:[
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7290	"/ this is somewhat complicated: we have the symbolic key at hand,
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7291	"/ but want to show the untranslated (inverse keyBoardMapped) key & modifier
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7292	"/ Ask the devices keyboardMap for the backtranslation.
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7293
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7294	nm := menuPanel device keyboardMap keyAtValue:shortcutKey ifAbsent:shortcutKey.
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7295	"/
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7296	"/ some modifier-key combination ?
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7297	"/
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7298	(nm startsWith:#Cmd) ifTrue:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7299	prefix := #Cmd.
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7300	] ifFalse:[(nm startsWith:#Alt) ifTrue:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7301	prefix := #Alt.
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7302	] ifFalse:[(nm startsWith:#Meta) ifTrue:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7303	prefix := #Meta.
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7304	] ifFalse:[(nm startsWith:#Ctrl) ifTrue:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7305	prefix := #Ctrl.
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7306	]]]].
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7307	prefix notNil ifTrue:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7308	nm := (self shortcutKeyPrefixFor:prefix), (nm copyFrom:(prefix size + 1))
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7309	] ifFalse:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7310	nm := nm asString
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7311	]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	7312	].
608 0d8d910768af use default font derived from style ca parents: 601 diff changeset	7313	^ nm
388 dce33f8bb806 intitial checkin ca parents: diff changeset	7314
987 541dff179cc2 checkin from browser Claus Gittinger <cg@exept.de> parents: 984 diff changeset	7315	"Modified: / 17.7.1998 / 11:56:40 / cg"
388 dce33f8bb806 intitial checkin ca parents: diff changeset	7316	!
dce33f8bb806 intitial checkin ca parents: diff changeset	7317
dce33f8bb806 intitial checkin ca parents: diff changeset	7318	shortcutKeyPrefixFor:aModifier
dce33f8bb806 intitial checkin ca parents: diff changeset	7319	"returns prefix assigned to a modifier
dce33f8bb806 intitial checkin ca parents: diff changeset	7320	"
dce33f8bb806 intitial checkin ca parents: diff changeset	7321	\|m\|
dce33f8bb806 intitial checkin ca parents: diff changeset	7322
dce33f8bb806 intitial checkin ca parents: diff changeset	7323	m := menuPanel device modifierKeyTopFor:aModifier.
dce33f8bb806 intitial checkin ca parents: diff changeset	7324	m notNil ifTrue:[
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	7325	^ m , '-'
388 dce33f8bb806 intitial checkin ca parents: diff changeset	7326	].
987 541dff179cc2 checkin from browser Claus Gittinger <cg@exept.de> parents: 984 diff changeset	7327	^ aModifier , '-'.
541dff179cc2 checkin from browser Claus Gittinger <cg@exept.de> parents: 984 diff changeset	7328
541dff179cc2 checkin from browser Claus Gittinger <cg@exept.de> parents: 984 diff changeset	7329	"Modified: / 17.7.1998 / 11:56:46 / cg"
388 dce33f8bb806 intitial checkin ca parents: diff changeset	7330	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	7331
dce33f8bb806 intitial checkin ca parents: diff changeset	7332	!MenuPanel::Item methodsFor:'selection'!
dce33f8bb806 intitial checkin ca parents: diff changeset	7333
dce33f8bb806 intitial checkin ca parents: diff changeset	7334	isSelected
dce33f8bb806 intitial checkin ca parents: diff changeset	7335	"returns true if item is selected
dce33f8bb806 intitial checkin ca parents: diff changeset	7336	"
1998 5059b7c9cd2c * empty log message * Claus Gittinger <cg@exept.de> parents: 1997 diff changeset	7337
5059b7c9cd2c * empty log message * Claus Gittinger <cg@exept.de> parents: 1997 diff changeset	7338	^ menuPanel notNil and:[menuPanel selection == self]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	7339	!
dce33f8bb806 intitial checkin ca parents: diff changeset	7340
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	7341	isSelected:isSelected
1473 1f62652f146e use hasSubmenu insteat of submenu if possible; Claus Gittinger <cg@exept.de> parents: 1472 diff changeset	7342	"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	7343	submenu and perform a redraw
1f62652f146e use hasSubmenu insteat of submenu if possible; Claus Gittinger <cg@exept.de> parents: 1472 diff changeset	7344	"
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	7345	(isSelected and:[menuPanel notNil]) ifFalse:[
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	7346	self invalidate.
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	7347	self hideSubmenu.
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7348	^ self
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	7349	].
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	7350
2199 61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	7351	menuPanel realized ifFalse:[ ^ self ].
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	7352
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7353	(indication isNil or:[menuItem isButton not]) ifTrue:[
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	7354	self invalidate
2199 61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	7355	].
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	7356	self hasSubmenu ifFalse:[ ^ self].
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	7357
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	7358	self hasDelayedMenu ifTrue:[
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	7359	menuPanel openDelayed:self
2199 61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	7360	] ifFalse:[
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	7361	subMenu := self setupSubmenu.
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	7362	subMenu notNil ifTrue:[ self openSubmenu ].
1701 026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	7363	].
388 dce33f8bb806 intitial checkin ca parents: diff changeset	7364	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	7365
2692 93566e299318 +actionValue2 werner parents: 2681 diff changeset	7366	!MenuPanel::Item::Adornment methodsFor:'accessing'!
93566e299318 +actionValue2 werner parents: 2681 diff changeset	7367
93566e299318 +actionValue2 werner parents: 2681 diff changeset	7368	argument2
93566e299318 +actionValue2 werner parents: 2681 diff changeset	7369
93566e299318 +actionValue2 werner parents: 2681 diff changeset	7370	^ argument2
93566e299318 +actionValue2 werner parents: 2681 diff changeset	7371	!
93566e299318 +actionValue2 werner parents: 2681 diff changeset	7372
93566e299318 +actionValue2 werner parents: 2681 diff changeset	7373	argument2:anArgumentOrNil
93566e299318 +actionValue2 werner parents: 2681 diff changeset	7374
93566e299318 +actionValue2 werner parents: 2681 diff changeset	7375	argument2 := anArgumentOrNil
93566e299318 +actionValue2 werner parents: 2681 diff changeset	7376	! !
93566e299318 +actionValue2 werner parents: 2681 diff changeset	7377
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	7378	!MenuPanel::ScrollActivity class methodsFor:'default icons'!
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7379
2018 2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	7380	icon
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7381	"This resource specification was automatically generated
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7382	by the ImageEditor of ST/X."
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7383
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7384	"Do not manually edit this!! If it is corrupted,
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7385	the ImageEditor may not be able to read the specification."
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7386
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7387	"
2018 2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	7388	self icon inspect
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	7389	ImageEditor openOnClass:self andSelector:#icon
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7390	"
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7391
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7392	<resource: #image>
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7393
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7394	^Icon
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	7395	constantNamed:#'MenuPanel::Scrolling class icon'
93426020ceed * empty log message * ca parents: 2216 diff changeset	7396	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	7397	! !
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7398
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	7399	!MenuPanel::ScrollActivity class methodsFor:'instance creation'!
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7400
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7401	new
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7402	^ self basicNew initialize
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7403	! !
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7404
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	7405	!MenuPanel::ScrollActivity methodsFor:'accessing'!
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7406
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7407	activeMenu
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7408	"returns the active menu the scrolling is activated on; nil
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7409	is returned if scrolling is deactivated
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7410	"
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7411	^ activeMenu
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7412	!
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7413
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7414	direction
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7415	"returns the scroll-direction
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7416	"
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7417	^ direction
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7418	!
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7419
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7420	iconAt:aDirection on:aMenu
2018 2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	7421	\|icon device index\|
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7422
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7423	device := aMenu device.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7424
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7425	aDirection == #PREV ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	7426	aMenu verticalLayout ifTrue:[index := 3] "/ 3 - 1 * 90 180
93426020ceed * empty log message * ca parents: 2216 diff changeset	7427	ifFalse:[index := 2] "/ 2 - 1 * 90 90
2018 2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	7428	] ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	7429	aMenu verticalLayout ifTrue:[index := 1] "/ 1 - 1 * 90 0
93426020ceed * empty log message * ca parents: 2216 diff changeset	7430	ifFalse:[index := 4] "/ 4 - 1 * 90 270
2018 2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	7431	].
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	7432
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	7433	icon := icons at:index.
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	7434
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	7435	(icon isNil or:[icon device ~~ device]) ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	7436	icon := self class icon.
93426020ceed * empty log message * ca parents: 2216 diff changeset	7437	index > 1 ifTrue:[ icon := icon rotated:(index - 1 * 90) ]
93426020ceed * empty log message * ca parents: 2216 diff changeset	7438	ifFalse:[ icon := icon copy ].
93426020ceed * empty log message * ca parents: 2216 diff changeset	7439
93426020ceed * empty log message * ca parents: 2216 diff changeset	7440	icon := icon onDevice:device.
93426020ceed * empty log message * ca parents: 2216 diff changeset	7441	icon clearMaskedPixels.
93426020ceed * empty log message * ca parents: 2216 diff changeset	7442	icons at:index put:icon
2018 2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	7443	].
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	7444	^ icon
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7445	! !
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7446
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	7447	!MenuPanel::ScrollActivity methodsFor:'initialization'!
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7448
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7449	initialize
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7450
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7451	semaLock := RecursionLock new.
2018 2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	7452	icons := Array new:4.
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7453	! !
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7454
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	7455	!MenuPanel::ScrollActivity methodsFor:'queries'!
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7456
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7457	isActive
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7458	"returns true if scrolling is activated
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7459	"
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7460	^ activeMenu notNil
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7461	! !
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7462
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	7463	!MenuPanel::ScrollActivity methodsFor:'user operations'!
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7464
2047 62de65e3a61b initial delay; autoRepeat delay Claus Gittinger <cg@exept.de> parents: 2046 diff changeset	7465	startIfRequiredAt:aDirection on:aMenu
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7466	"start scrolling; returns true if scrolling is activated
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7467	"
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7468	\|bounds index\|
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7469
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7470	semaLock critical:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	7471	self stop.
93426020ceed * empty log message * ca parents: 2216 diff changeset	7472
93426020ceed * empty log message * ca parents: 2216 diff changeset	7473	( aDirection notNil
93426020ceed * empty log message * ca parents: 2216 diff changeset	7474	and:[aMenu notNil
93426020ceed * empty log message * ca parents: 2216 diff changeset	7475	and:[(bounds := aMenu scrollerBoundsAt:aDirection) notNil]]
93426020ceed * empty log message * ca parents: 2216 diff changeset	7476	) ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	7477	activeMenu := aMenu.
93426020ceed * empty log message * ca parents: 2216 diff changeset	7478	direction := aDirection.
93426020ceed * empty log message * ca parents: 2216 diff changeset	7479
93426020ceed * empty log message * ca parents: 2216 diff changeset	7480	index := aMenu indexOfItemAtScroller:aDirection.
93426020ceed * empty log message * ca parents: 2216 diff changeset	7481
93426020ceed * empty log message * ca parents: 2216 diff changeset	7482	index ~~ 0 ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	7483	scrollTask :=
93426020ceed * empty log message * ca parents: 2216 diff changeset	7484	[
93426020ceed * empty log message * ca parents: 2216 diff changeset	7485	\|item step\|
93426020ceed * empty log message * ca parents: 2216 diff changeset	7486
93426020ceed * empty log message * ca parents: 2216 diff changeset	7487	[
93426020ceed * empty log message * ca parents: 2216 diff changeset	7488	step := (aDirection == #PREV) ifTrue:[-1] ifFalse:[1].
93426020ceed * empty log message * ca parents: 2216 diff changeset	7489	( aMenu shown and:[(item := aMenu itemAt:index) notNil] ) ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	7490	aMenu makeItemVisible:item.
93426020ceed * empty log message * ca parents: 2216 diff changeset	7491	index := index + step.
93426020ceed * empty log message * ca parents: 2216 diff changeset	7492	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	7493
93426020ceed * empty log message * ca parents: 2216 diff changeset	7494	Delay waitForSeconds:(ButtonController defaultInitialDelay).
93426020ceed * empty log message * ca parents: 2216 diff changeset	7495
93426020ceed * empty log message * ca parents: 2216 diff changeset	7496	[ aMenu shown and:[(item := aMenu itemAt:index) notNil] ] whileTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	7497	aMenu makeItemVisible:item.
93426020ceed * empty log message * ca parents: 2216 diff changeset	7498	Delay waitForSeconds:(ButtonController defaultRepeatDelay).
93426020ceed * empty log message * ca parents: 2216 diff changeset	7499	index := index + step.
93426020ceed * empty log message * ca parents: 2216 diff changeset	7500	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	7501	item := nil.
93426020ceed * empty log message * ca parents: 2216 diff changeset	7502	] ensure:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	7503	scrollTask := nil.
93426020ceed * empty log message * ca parents: 2216 diff changeset	7504
93426020ceed * empty log message * ca parents: 2216 diff changeset	7505	item notNil ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	7506	"/ process was killed
93426020ceed * empty log message * ca parents: 2216 diff changeset	7507	aMenu invalidate:bounds
93426020ceed * empty log message * ca parents: 2216 diff changeset	7508	]
93426020ceed * empty log message * ca parents: 2216 diff changeset	7509	]
93426020ceed * empty log message * ca parents: 2216 diff changeset	7510	] forkAt:8.
93426020ceed * empty log message * ca parents: 2216 diff changeset	7511	]
93426020ceed * empty log message * ca parents: 2216 diff changeset	7512	]
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7513	].
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7514	^ bounds notNil
2047 62de65e3a61b initial delay; autoRepeat delay Claus Gittinger <cg@exept.de> parents: 2046 diff changeset	7515
2048 ba472f3f46c7 code cleanup Claus Gittinger <cg@exept.de> parents: 2047 diff changeset	7516	"Created: ca"
ba472f3f46c7 code cleanup Claus Gittinger <cg@exept.de> parents: 2047 diff changeset	7517
ba472f3f46c7 code cleanup Claus Gittinger <cg@exept.de> parents: 2047 diff changeset	7518	"Modified: / 13.11.2001 / 20:15:52 / cg"
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7519	!
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7520
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7521	stop
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7522	"stop scrolling; returns true if the scrolling was activated otherwise false
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7523	"
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7524	\|task resp\|
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7525
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7526	activeMenu isNil ifTrue:[
2231 65cec3d10fb1 Change sends to obsolete methods Stefan Vogel <sv@exept.de> parents: 2220 diff changeset	7527	^ false
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7528	].
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7529	semaLock critical:[
2231 65cec3d10fb1 Change sends to obsolete methods Stefan Vogel <sv@exept.de> parents: 2220 diff changeset	7530	resp := activeMenu notNil.
65cec3d10fb1 Change sends to obsolete methods Stefan Vogel <sv@exept.de> parents: 2220 diff changeset	7531
65cec3d10fb1 Change sends to obsolete methods Stefan Vogel <sv@exept.de> parents: 2220 diff changeset	7532	(task := scrollTask) notNil ifTrue:[
65cec3d10fb1 Change sends to obsolete methods Stefan Vogel <sv@exept.de> parents: 2220 diff changeset	7533	scrollTask := nil.
65cec3d10fb1 Change sends to obsolete methods Stefan Vogel <sv@exept.de> parents: 2220 diff changeset	7534
65cec3d10fb1 Change sends to obsolete methods Stefan Vogel <sv@exept.de> parents: 2220 diff changeset	7535	Error handle:[:ex\|
65cec3d10fb1 Change sends to obsolete methods Stefan Vogel <sv@exept.de> parents: 2220 diff changeset	7536	] do:[
65cec3d10fb1 Change sends to obsolete methods Stefan Vogel <sv@exept.de> parents: 2220 diff changeset	7537	task terminateWithAllSubprocessesInGroup.
65cec3d10fb1 Change sends to obsolete methods Stefan Vogel <sv@exept.de> parents: 2220 diff changeset	7538	task waitUntilTerminated.
65cec3d10fb1 Change sends to obsolete methods Stefan Vogel <sv@exept.de> parents: 2220 diff changeset	7539	].
65cec3d10fb1 Change sends to obsolete methods Stefan Vogel <sv@exept.de> parents: 2220 diff changeset	7540	].
65cec3d10fb1 Change sends to obsolete methods Stefan Vogel <sv@exept.de> parents: 2220 diff changeset	7541	activeMenu := direction := nil.
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7542	].
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7543	^ resp
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7544	! !
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7545
388 dce33f8bb806 intitial checkin ca parents: diff changeset	7546	!MenuPanel class methodsFor:'documentation'!
dce33f8bb806 intitial checkin ca parents: diff changeset	7547
dce33f8bb806 intitial checkin ca parents: diff changeset	7548	version
2696 1203aaeedaea * empty log message * werner parents: 2692 diff changeset	7549	^ '$Header: /cvs/stx/stx/libwidg2/MenuPanel.st,v 1.390 2004-04-02 16:13:29 werner Exp $'
388 dce33f8bb806 intitial checkin ca parents: diff changeset	7550	! !
2199 61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	7551
388 dce33f8bb806 intitial checkin ca parents: diff changeset	7552	MenuPanel initialize!

author	Claus Gittinger <cg@exept.de>
	Tue, 11 May 2004 14:50:21 +0200
changeset 2704	0a09fd78eb54
parent 2696	1203aaeedaea
child 2712	8a5f94b10261
permissions	-rw-r--r--