hg/stx-libwidg2: MenuPanel.st@9e417aa397c0 (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.
2712 8a5f94b10261 late expose event bug fixed ca parents: 2696 diff changeset	785	self device sync. "/ round trip - all expose events are now received
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	786	(winGrp := self windowGroup) notNil ifTrue:[
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	787	"/ give expose event a chance to arrive
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	788	[shown and:[realized]] whileTrue:[
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	789	winGrp processExposeEventsFor:self
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	790	].
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	791	masterGroup := winGrp previousGroup.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	792	].
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	793	"/ cg: disabled-not needed - try PopUpList with destroy...
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	794	"/ self destroy.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	795	masterGroup notNil ifTrue:[masterGroup processExposeEvents].
524 d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	796	].
1710 bb9bb814e7c4 showBusy code moved Claus Gittinger <cg@exept.de> parents: 1709 diff changeset	797
2050 ef5517d7a2d0 do not destroy myself after accepting (for PopUpList) Claus Gittinger <cg@exept.de> parents: 2048 diff changeset	798	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	799
1710 bb9bb814e7c4 showBusy code moved Claus Gittinger <cg@exept.de> parents: 1709 diff changeset	800	(item notNil
bb9bb814e7c4 showBusy code moved Claus Gittinger <cg@exept.de> parents: 1709 diff changeset	801	and:[item showBusyCursorWhilePerforming
bb9bb814e7c4 showBusy code moved Claus Gittinger <cg@exept.de> parents: 1709 diff changeset	802	and:[(winGrp := (masterGroup ? (self windowGroup))) notNil]])
bb9bb814e7c4 showBusy code moved Claus Gittinger <cg@exept.de> parents: 1709 diff changeset	803	ifTrue:[
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	804	winGrp withWaitCursorDo:acceptAction
2132 fd5b29a20fe1 * empty log message * Claus Gittinger <cg@exept.de> parents: 2125 diff changeset	805	] ifFalse:[acceptAction value].
524 d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	806
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	807	self isPopUpView ifTrue:[
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	808	self menuAdornmentAt:#item put:item.
524 d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	809	].
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	810	^ item.
524 d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	811
2050 ef5517d7a2d0 do not destroy myself after accepting (for PopUpList) Claus Gittinger <cg@exept.de> parents: 2048 diff changeset	812	"Modified: / 15.11.2001 / 17:05:40 / cg"
524 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
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	815	accept:anItem index:anIndex toggle:aState receiver:aReceiver
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	816	"accept an item
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	817	"
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	818	\|value argument numArgs isValueModel rec args arg2
1697 345d3664e10c added 'showBusyCursorWhileActive' attribute Claus Gittinger <cg@exept.de> parents: 1695 diff changeset	819	app master fallBack\|
524 d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	820
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	821	anItem isNil ifTrue:[
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	822	self menuAdornmentAt:#hasPerformed put:true.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	823	^ nil
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	824	].
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	825
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	826	isValueModel := aReceiver isValueModel.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	827
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	828	self menuAdornmentAt:#hasPerformed put:isValueModel.
524 d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	829
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	830	(value := anItem value) isNil ifTrue:[
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	831	^ anIndex
524 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
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	834	(argument := anItem argument) isNil ifTrue:[
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	835	argument := aState ? anItem
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	836	].
524 d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	837
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	838	value isSymbol ifFalse:[
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	839	"/ a valueHolder or block
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	840	(value respondsTo:#valueWithArguments:) ifFalse:[
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	841	^ value
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	842	].
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	843
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	844	numArgs := value perform:#numArgs ifNotUnderstood:0.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	845
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	846	numArgs == 0 ifTrue:[
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	847	args := nil
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	848	] ifFalse:[
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	849	numArgs == 1 ifTrue:[
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	850	args := Array with:argument
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	851	] ifFalse:[
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	852	args := Array with:argument with:self
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
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	856	value valueWithArguments:args.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	857
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	858	self menuAdornmentAt:#hasPerformed put:true.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	859	^ anIndex
524 d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	860	].
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	861
2331 ebd240410703 can now specify if menu action is to be performed by ca parents: 2326 diff changeset	862	anItem sendToOriginator ifTrue:[
2473 6ace3a7234b0 care for nil originator Claus Gittinger <cg@exept.de> parents: 2471 diff changeset	863	rec := self originator.
6ace3a7234b0 care for nil originator Claus Gittinger <cg@exept.de> parents: 2471 diff changeset	864	rec isNil ifTrue:[
6ace3a7234b0 care for nil originator Claus Gittinger <cg@exept.de> parents: 2471 diff changeset	865	self error:'no originating widget (no target for message)'.
6ace3a7234b0 care for nil originator Claus Gittinger <cg@exept.de> parents: 2471 diff changeset	866	].
2331 ebd240410703 can now specify if menu action is to be performed by ca parents: 2326 diff changeset	867	] ifFalse:[
ebd240410703 can now specify if menu action is to be performed by ca parents: 2326 diff changeset	868	rec := aReceiver
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
ebd240410703 can now specify if menu action is to be performed by ca parents: 2326 diff changeset	871	rec isNil ifTrue:[
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	872	^ value
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	873	].
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	874
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	875	isValueModel ifTrue:[
2331 ebd240410703 can now specify if menu action is to be performed by ca parents: 2326 diff changeset	876	rec value:value
465 67a0f3dd503a in case of performing a selector '0' is returned ca parents: 464 diff changeset	877	] ifFalse:[
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	878	arg2 := self.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	879
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	880	"/ support for ST80 style applications
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	881	"/ (expecting the message to go to the application
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	882	"/ if not understood by the view)
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	883	"/ These expect the controller to be passed as argument.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	884	"/ sigh.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	885
2331 ebd240410703 can now specify if menu action is to be performed by ca parents: 2326 diff changeset	886	(rec isView
ebd240410703 can now specify if menu action is to be performed by ca parents: 2326 diff changeset	887	and:[(rec respondsTo:value) not
ebd240410703 can now specify if menu action is to be performed by ca parents: 2326 diff changeset	888	and:[(app := rec application) ~~ rec
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	889	and:[app notNil]]]) ifTrue:[
2331 ebd240410703 can now specify if menu action is to be performed by ca parents: 2326 diff changeset	890	arg2 := rec controller. "/ the Views controller
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	891	rec := app.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	892	].
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	893
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	894	(numArgs := value numArgs) == 0 ifTrue:[
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	895	args := nil
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	896	] ifFalse:[
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	897	numArgs == 1 ifTrue:[
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	898	args := Array with:argument
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	899	] ifFalse:[
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	900	args := Array with:argument with:arg2
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
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	904	fallBack :=
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	905	[
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	906	"/ mhmh - the receiver did not respond to that message;
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	907	"/ if there is a master-application, try that one
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	908	"/ (recursive)
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	909	master := rec perform:#masterApplication ifNotUnderstood:nil.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	910	master notNil ifTrue:[
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	911	rec := master.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	912	rec perform:value withArguments:args ifNotUnderstood:fallBack
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	913	] ifFalse:[
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	914	self
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	915	error:'unimplemented (or error in) menu message: ' , value
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	916	mayProceed:true
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
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	920	rec perform:value withArguments:args ifNotUnderstood:fallBack.
420 b6f9fff472ef fixes ca parents: 417 diff changeset	921	].
524 d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	922	self menuAdornmentAt:#hasPerformed put:true.
1270 0ae582fd7294 send menuMessage to application, Claus Gittinger <cg@exept.de> parents: 1267 diff changeset	923	^ value
1679 af40842718f6 when accepting, and the application does not respond to that Claus Gittinger <cg@exept.de> parents: 1670 diff changeset	924
1719 ba7ebb56e6fd recursively try masterApps when performing Claus Gittinger <cg@exept.de> parents: 1715 diff changeset	925	"Modified: / 19.2.2000 / 11:08:22 / cg"
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	926	!
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	927
1670 dbc8a05605e0 add new behavior: hideMenuOnActivated ca parents: 1666 diff changeset	928	acceptItem:anItem inMenu:aMenu
2199 61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	929	\|tgState topMenu\|
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	930
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	931	topMenu := self topMenu.
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	932	topMenu openDelayed:nil.
1670 dbc8a05605e0 add new behavior: hideMenuOnActivated ca parents: 1666 diff changeset	933
1841 5d01716cc37c implement: triggerOnDown ca parents: 1836 diff changeset	934	(anItem isNil or:[anItem hideMenuOnActivated]) ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	935	topMenu accept:anItem
1670 dbc8a05605e0 add new behavior: hideMenuOnActivated ca parents: 1666 diff changeset	936	] ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	937	anItem canAccept ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	938	tgState := anItem toggleIndication.
93426020ceed * empty log message * ca parents: 2216 diff changeset	939
93426020ceed * empty log message * ca parents: 2216 diff changeset	940	self accept:anItem
93426020ceed * empty log message * ca parents: 2216 diff changeset	941	index:(aMenu selectionIndex)
93426020ceed * empty log message * ca parents: 2216 diff changeset	942	toggle:tgState
93426020ceed * empty log message * ca parents: 2216 diff changeset	943	receiver:(aMenu receiver).
93426020ceed * empty log message * ca parents: 2216 diff changeset	944
93426020ceed * empty log message * ca parents: 2216 diff changeset	945	aMenu do:[:el\| el updateIndicators].
93426020ceed * empty log message * ca parents: 2216 diff changeset	946	]
1670 dbc8a05605e0 add new behavior: hideMenuOnActivated ca parents: 1666 diff changeset	947	]
dbc8a05605e0 add new behavior: hideMenuOnActivated ca parents: 1666 diff changeset	948	!
dbc8a05605e0 add new behavior: hideMenuOnActivated ca parents: 1666 diff changeset	949
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	950	lastItemAccepted
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	951	"returns last item selected or nil
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	952	"
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	953	^ self topMenu menuAdornmentAt:#item
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	954	!
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	955
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	956	lastValueAccepted
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	957	"returns last value accepted or nil
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	958	"
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	959	^ self lastItemAccepted value
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	960	! !
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	961
388 dce33f8bb806 intitial checkin ca parents: diff changeset	962	!MenuPanel methodsFor:'accessing'!
dce33f8bb806 intitial checkin ca parents: diff changeset	963
dce33f8bb806 intitial checkin ca parents: diff changeset	964	accessCharacterPositionAt:stringOrNumber
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	965	"get the access character position for a textLabel
388 dce33f8bb806 intitial checkin ca parents: diff changeset	966	"
2059 c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	967	^ self itemAt:stringOrNumber do:[:el\| el accessCharacterPosition ]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	968	!
dce33f8bb806 intitial checkin ca parents: diff changeset	969
dce33f8bb806 intitial checkin ca parents: diff changeset	970	accessCharacterPositionAt:stringOrNumber put:anIndexOrNil
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	971	"get the access character position for a textLabel
388 dce33f8bb806 intitial checkin ca parents: diff changeset	972	"
dce33f8bb806 intitial checkin ca parents: diff changeset	973	self itemAt:stringOrNumber do:[:el\| el accessCharacterPosition:anIndexOrNil ]
dce33f8bb806 intitial checkin ca parents: diff changeset	974	!
dce33f8bb806 intitial checkin ca parents: diff changeset	975
dce33f8bb806 intitial checkin ca parents: diff changeset	976	accessCharacterPositions
dce33f8bb806 intitial checkin ca parents: diff changeset	977	"returns a collection of accessCharacterPosition's or nil
dce33f8bb806 intitial checkin ca parents: diff changeset	978	"
dce33f8bb806 intitial checkin ca parents: diff changeset	979	^ self collect:[:anItem\| anItem accessCharacterPosition ]
dce33f8bb806 intitial checkin ca parents: diff changeset	980
dce33f8bb806 intitial checkin ca parents: diff changeset	981	!
dce33f8bb806 intitial checkin ca parents: diff changeset	982
dce33f8bb806 intitial checkin ca parents: diff changeset	983	accessCharacterPositions:something
dce33f8bb806 intitial checkin ca parents: diff changeset	984	"define accessCharacterPosition's for each item
dce33f8bb806 intitial checkin ca parents: diff changeset	985	"
dce33f8bb806 intitial checkin ca parents: diff changeset	986	self onEachPerform:#accessCharacterPosition: withArgList:something
dce33f8bb806 intitial checkin ca parents: diff changeset	987	!
dce33f8bb806 intitial checkin ca parents: diff changeset	988
dce33f8bb806 intitial checkin ca parents: diff changeset	989	args
dce33f8bb806 intitial checkin ca parents: diff changeset	990	"returns a collection of argument's or nil
dce33f8bb806 intitial checkin ca parents: diff changeset	991	"
dce33f8bb806 intitial checkin ca parents: diff changeset	992	^ self collect:[:anItem\| anItem argument ]
dce33f8bb806 intitial checkin ca parents: diff changeset	993	!
dce33f8bb806 intitial checkin ca parents: diff changeset	994
dce33f8bb806 intitial checkin ca parents: diff changeset	995	args:something
dce33f8bb806 intitial checkin ca parents: diff changeset	996	"define arguments for each item
dce33f8bb806 intitial checkin ca parents: diff changeset	997	"
dce33f8bb806 intitial checkin ca parents: diff changeset	998	self onEachPerform:#argument: withArgList:something
dce33f8bb806 intitial checkin ca parents: diff changeset	999	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1000
dce33f8bb806 intitial checkin ca parents: diff changeset	1001	argsAt:stringOrNumber
dce33f8bb806 intitial checkin ca parents: diff changeset	1002	"gets the argument of an item or nil
dce33f8bb806 intitial checkin ca parents: diff changeset	1003	"
2059 c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	1004	^ self itemAt:stringOrNumber do:[:el\| el argument ]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1005	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1006
dce33f8bb806 intitial checkin ca parents: diff changeset	1007	argsAt:stringOrNumber put:anArgument
dce33f8bb806 intitial checkin ca parents: diff changeset	1008	"sets the argument of an item
dce33f8bb806 intitial checkin ca parents: diff changeset	1009	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1010	self itemAt:stringOrNumber do:[:el\| el argument:anArgument ]
dce33f8bb806 intitial checkin ca parents: diff changeset	1011	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1012
1081 fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1013	enteredItem
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1014	"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	1015	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	1016
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1017	^ enteredItem
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1018
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1019	"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	1020	!
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1021
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1022	groupSizes
dce33f8bb806 intitial checkin ca parents: diff changeset	1023	"gets collection of group sizes
dce33f8bb806 intitial checkin ca parents: diff changeset	1024	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1025	^ groupSizes
dce33f8bb806 intitial checkin ca parents: diff changeset	1026	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1027
dce33f8bb806 intitial checkin ca parents: diff changeset	1028	groupSizes:aGroupSizes
dce33f8bb806 intitial checkin ca parents: diff changeset	1029	"sets collection of group sizes
dce33f8bb806 intitial checkin ca parents: diff changeset	1030	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1031	aGroupSizes = groupSizes ifFalse:[
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	1032	groupSizes := aGroupSizes copy.
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	1033	self mustRearrange.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1034	].
dce33f8bb806 intitial checkin ca parents: diff changeset	1035	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1036
dce33f8bb806 intitial checkin ca parents: diff changeset	1037	labelAt:stringOrNumber
dce33f8bb806 intitial checkin ca parents: diff changeset	1038	"gets the label of an item or nil
dce33f8bb806 intitial checkin ca parents: diff changeset	1039	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1040	^ self itemAt:stringOrNumber do:[:el\| el label ]
dce33f8bb806 intitial checkin ca parents: diff changeset	1041	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1042
dce33f8bb806 intitial checkin ca parents: diff changeset	1043	labelAt:stringOrNumber put:aLabel
dce33f8bb806 intitial checkin ca parents: diff changeset	1044	"sets the label of an item
dce33f8bb806 intitial checkin ca parents: diff changeset	1045	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1046	self itemAt:stringOrNumber do:[:el\| el label:aLabel ]
dce33f8bb806 intitial checkin ca parents: diff changeset	1047	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1048
dce33f8bb806 intitial checkin ca parents: diff changeset	1049	labels
dce33f8bb806 intitial checkin ca parents: diff changeset	1050	"returns a collection of labels's or nil
dce33f8bb806 intitial checkin ca parents: diff changeset	1051	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1052	^ self collect:[:anItem\| anItem label ]
dce33f8bb806 intitial checkin ca parents: diff changeset	1053
dce33f8bb806 intitial checkin ca parents: diff changeset	1054	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1055
dce33f8bb806 intitial checkin ca parents: diff changeset	1056	labels:labels
dce33f8bb806 intitial checkin ca parents: diff changeset	1057	"define labels for each item
dce33f8bb806 intitial checkin ca parents: diff changeset	1058	"
2118 89d02ebc5b65 optimize #labels: and #fetchImages in Item. discard block ca parents: 2113 diff changeset	1059	\|size\|
89d02ebc5b65 optimize #labels: and #fetchImages in Item. discard block ca parents: 2113 diff changeset	1060
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1061	self disabledRedrawDo:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1062	self removeAll.
93426020ceed * empty log message * ca parents: 2216 diff changeset	1063	size := labels size.
93426020ceed * empty log message * ca parents: 2216 diff changeset	1064
93426020ceed * empty log message * ca parents: 2216 diff changeset	1065	size > 0 ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	1066	items := OrderedCollection new:size.
93426020ceed * empty log message * ca parents: 2216 diff changeset	1067	labels do:[:aLabel\| items add:(Item in:self label:aLabel) ]
93426020ceed * empty log message * ca parents: 2216 diff changeset	1068	]
2118 89d02ebc5b65 optimize #labels: and #fetchImages in Item. discard block ca parents: 2113 diff changeset	1069	].
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1070	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1071
1999 56a97236e72d * empty log message * Claus Gittinger <cg@exept.de> parents: 1998 diff changeset	1072	menuPerformer:anObject
56a97236e72d * empty log message * Claus Gittinger <cg@exept.de> parents: 1998 diff changeset	1073	"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	1074	from all submenus no specific receiver is defined ).
56a97236e72d * empty log message * Claus Gittinger <cg@exept.de> parents: 1998 diff changeset	1075	"
56a97236e72d * empty log message * Claus Gittinger <cg@exept.de> parents: 1998 diff changeset	1076	^ self receiver:anObject
56a97236e72d * empty log message * Claus Gittinger <cg@exept.de> parents: 1998 diff changeset	1077	!
56a97236e72d * empty log message * Claus Gittinger <cg@exept.de> parents: 1998 diff changeset	1078
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1079	nameKeyAt:stringOrNumber
dce33f8bb806 intitial checkin ca parents: diff changeset	1080	"gets the nameKey of an item or nil
dce33f8bb806 intitial checkin ca parents: diff changeset	1081	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1082	^ self itemAt:stringOrNumber do:[:el\| el nameKey ]
dce33f8bb806 intitial checkin ca parents: diff changeset	1083	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1084
dce33f8bb806 intitial checkin ca parents: diff changeset	1085	nameKeyAt:stringOrNumber put:aNameKey
dce33f8bb806 intitial checkin ca parents: diff changeset	1086	"sets the nameKey of an item
dce33f8bb806 intitial checkin ca parents: diff changeset	1087	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1088	self itemAt:stringOrNumber do:[:el\| el nameKey:aNameKey ]
dce33f8bb806 intitial checkin ca parents: diff changeset	1089	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1090
dce33f8bb806 intitial checkin ca parents: diff changeset	1091	nameKeys
dce33f8bb806 intitial checkin ca parents: diff changeset	1092	"returns a collection of nameKeys's or nil
dce33f8bb806 intitial checkin ca parents: diff changeset	1093	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1094	^ self collect:[:anItem\| anItem nameKey ]
dce33f8bb806 intitial checkin ca parents: diff changeset	1095	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1096
dce33f8bb806 intitial checkin ca parents: diff changeset	1097	nameKeys:something
dce33f8bb806 intitial checkin ca parents: diff changeset	1098	"define nameKeys for each item
dce33f8bb806 intitial checkin ca parents: diff changeset	1099	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1100	self onEachPerform:#nameKey: withArgList:something
dce33f8bb806 intitial checkin ca parents: diff changeset	1101	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1102
dce33f8bb806 intitial checkin ca parents: diff changeset	1103	numberOfItems
dce33f8bb806 intitial checkin ca parents: diff changeset	1104	"gets number of items
dce33f8bb806 intitial checkin ca parents: diff changeset	1105	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1106	^ items size
dce33f8bb806 intitial checkin ca parents: diff changeset	1107	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1108
2331 ebd240410703 can now specify if menu action is to be performed by ca parents: 2326 diff changeset	1109	originator
ebd240410703 can now specify if menu action is to be performed by ca parents: 2326 diff changeset	1110	originator notNil ifTrue:[^ originator].
ebd240410703 can now specify if menu action is to be performed by ca parents: 2326 diff changeset	1111	superMenu notNil ifTrue:[
ebd240410703 can now specify if menu action is to be performed by ca parents: 2326 diff changeset	1112	^ superMenu originator
ebd240410703 can now specify if menu action is to be performed by ca parents: 2326 diff changeset	1113	].
ebd240410703 can now specify if menu action is to be performed by ca parents: 2326 diff changeset	1114	^ nil
ebd240410703 can now specify if menu action is to be performed by ca parents: 2326 diff changeset	1115	!
ebd240410703 can now specify if menu action is to be performed by ca parents: 2326 diff changeset	1116
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1117	receiver
dce33f8bb806 intitial checkin ca parents: diff changeset	1118	"get the menu-receiver. Thats the one who gets the messages ( both from myself and
dce33f8bb806 intitial checkin ca parents: diff changeset	1119	from all submenus no specific receiver is defined ).
dce33f8bb806 intitial checkin ca parents: diff changeset	1120	"
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	1121	(receiver isNil and:[superMenu notNil]) ifTrue:[
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	1122	^ superMenu receiver
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1123	].
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	1124	^ receiver
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1125	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1126
dce33f8bb806 intitial checkin ca parents: diff changeset	1127	receiver:anObject
dce33f8bb806 intitial checkin ca parents: diff changeset	1128	"set the menu-receiver. Thats the one who gets the messages ( both from myself and
dce33f8bb806 intitial checkin ca parents: diff changeset	1129	from all submenus no specific receiver is defined ).
dce33f8bb806 intitial checkin ca parents: diff changeset	1130	"
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	1131	receiver := anObject
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1132	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1133
dce33f8bb806 intitial checkin ca parents: diff changeset	1134	shortcutKeyAt:stringOrNumber
dce33f8bb806 intitial checkin ca parents: diff changeset	1135	"gets the shortCutKey of an item or nil
dce33f8bb806 intitial checkin ca parents: diff changeset	1136	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1137	^ self itemAt:stringOrNumber do:[:el\| el shortcutKey ]
dce33f8bb806 intitial checkin ca parents: diff changeset	1138	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1139
dce33f8bb806 intitial checkin ca parents: diff changeset	1140	shortcutKeyAt:stringOrNumber put:aKey
dce33f8bb806 intitial checkin ca parents: diff changeset	1141	"sets the shortCutKey of an item
dce33f8bb806 intitial checkin ca parents: diff changeset	1142	"
1889 43516e4588ce give warning messages for unimplemented menu-aspects Claus Gittinger <cg@exept.de> parents: 1878 diff changeset	1143	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	1144	!
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1145
dce33f8bb806 intitial checkin ca parents: diff changeset	1146	shortcutKeys
dce33f8bb806 intitial checkin ca parents: diff changeset	1147	"returns a collection of shortcutKey's or nil
dce33f8bb806 intitial checkin ca parents: diff changeset	1148	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1149	^ self collect:[:anItem\| anItem shortcutKey ]
dce33f8bb806 intitial checkin ca parents: diff changeset	1150
dce33f8bb806 intitial checkin ca parents: diff changeset	1151	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1152
dce33f8bb806 intitial checkin ca parents: diff changeset	1153	shortcutKeys:something
dce33f8bb806 intitial checkin ca parents: diff changeset	1154	"define shortcutKey's for each item
dce33f8bb806 intitial checkin ca parents: diff changeset	1155	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1156	self onEachPerform:#shortcutKey: withArgList:something
dce33f8bb806 intitial checkin ca parents: diff changeset	1157	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1158
dce33f8bb806 intitial checkin ca parents: diff changeset	1159	valueAt:stringOrNumber
dce33f8bb806 intitial checkin ca parents: diff changeset	1160	"gets value of an item; a block, valueHolder, ...
dce33f8bb806 intitial checkin ca parents: diff changeset	1161	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1162	^ self itemAt:stringOrNumber do:[:el\| el value ]
dce33f8bb806 intitial checkin ca parents: diff changeset	1163
dce33f8bb806 intitial checkin ca parents: diff changeset	1164	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1165
dce33f8bb806 intitial checkin ca parents: diff changeset	1166	valueAt:stringOrNumber put:someThing
dce33f8bb806 intitial checkin ca parents: diff changeset	1167	"sets value of an item; a block, valueHolder, ...
dce33f8bb806 intitial checkin ca parents: diff changeset	1168	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1169	self itemAt:stringOrNumber do:[:el\| el value:someThing ]
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
dce33f8bb806 intitial checkin ca parents: diff changeset	1174	values:something
dce33f8bb806 intitial checkin ca parents: diff changeset	1175	"define values for each item
dce33f8bb806 intitial checkin ca parents: diff changeset	1176	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1177	self onEachPerform:#value: withArgList:something
dce33f8bb806 intitial checkin ca parents: diff changeset	1178	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	1179
1679 af40842718f6 when accepting, and the application does not respond to that Claus Gittinger <cg@exept.de> parents: 1670 diff changeset	1180	!MenuPanel methodsFor:'accessing-behavior'!
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1181
dce33f8bb806 intitial checkin ca parents: diff changeset	1182	disableAll
498 b4c341497621 bug fixes: ca parents: 475 diff changeset	1183	"disable all items; not the menu in case of enabled
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1184	"
498 b4c341497621 bug fixes: ca parents: 475 diff changeset	1185	self do:[:anItem\| anItem enabled:false]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1186	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1187
dce33f8bb806 intitial checkin ca parents: diff changeset	1188	disableAll:collectionOfIndicesOrNames
dce33f8bb806 intitial checkin ca parents: diff changeset	1189	"disable an collection of items
dce33f8bb806 intitial checkin ca parents: diff changeset	1190	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1191	collectionOfIndicesOrNames do:[:entry\| self enabledAt:entry put:false ].
dce33f8bb806 intitial checkin ca parents: diff changeset	1192
dce33f8bb806 intitial checkin ca parents: diff changeset	1193	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1194
dce33f8bb806 intitial checkin ca parents: diff changeset	1195	enableAll
498 b4c341497621 bug fixes: ca parents: 475 diff changeset	1196	"enable all items; not the menu in case of disabled
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1197	"
498 b4c341497621 bug fixes: ca parents: 475 diff changeset	1198	self do:[:anItem\| anItem enabled:true]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1199	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1200
dce33f8bb806 intitial checkin ca parents: diff changeset	1201	enableAll:collectionOfIndicesOrNames
dce33f8bb806 intitial checkin ca parents: diff changeset	1202	"enable an collection of items
dce33f8bb806 intitial checkin ca parents: diff changeset	1203	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1204	collectionOfIndicesOrNames do:[:entry\| self enabledAt:entry put:true ].
dce33f8bb806 intitial checkin ca parents: diff changeset	1205
dce33f8bb806 intitial checkin ca parents: diff changeset	1206	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1207
dce33f8bb806 intitial checkin ca parents: diff changeset	1208	enabled
dce33f8bb806 intitial checkin ca parents: diff changeset	1209	"returns enabled state
dce33f8bb806 intitial checkin ca parents: diff changeset	1210	"
498 b4c341497621 bug fixes: ca parents: 475 diff changeset	1211	^ enabled
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1212	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1213
dce33f8bb806 intitial checkin ca parents: diff changeset	1214	enabled:aState
dce33f8bb806 intitial checkin ca parents: diff changeset	1215	"change enabled state of menu
dce33f8bb806 intitial checkin ca parents: diff changeset	1216	"
545 d01d14358b07 * empty log message * Claus Gittinger <cg@exept.de> parents: 524 diff changeset	1217	\|state\|
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	1218
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	1219	state := aState ? true.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1220
1690 38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	1221	enabled ~~ state ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1222	enabled := state.
93426020ceed * empty log message * ca parents: 2216 diff changeset	1223	self invalidate.
498 b4c341497621 bug fixes: ca parents: 475 diff changeset	1224	].
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1225	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1226
dce33f8bb806 intitial checkin ca parents: diff changeset	1227	enabledAt:stringOrNumber
dce33f8bb806 intitial checkin ca parents: diff changeset	1228	"gets the enabled state of an item or false
dce33f8bb806 intitial checkin ca parents: diff changeset	1229	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1230	^ self itemAt:stringOrNumber do:[:el\| el enabled ] ifAbsent:false
dce33f8bb806 intitial checkin ca parents: diff changeset	1231	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1232
dce33f8bb806 intitial checkin ca parents: diff changeset	1233	enabledAt:stringOrNumber put:aState
dce33f8bb806 intitial checkin ca parents: diff changeset	1234	"sets the enabled state of an item
dce33f8bb806 intitial checkin ca parents: diff changeset	1235	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1236	self itemAt:stringOrNumber do:[:el\| el enabled:aState ]
dce33f8bb806 intitial checkin ca parents: diff changeset	1237	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1238
dce33f8bb806 intitial checkin ca parents: diff changeset	1239	isEnabled:stringOrNumber
dce33f8bb806 intitial checkin ca parents: diff changeset	1240	"gets the enabled state of an item or false
dce33f8bb806 intitial checkin ca parents: diff changeset	1241	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1242	^ self enabledAt:stringOrNumber
dce33f8bb806 intitial checkin ca parents: diff changeset	1243	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	1244
1679 af40842718f6 when accepting, and the application does not respond to that Claus Gittinger <cg@exept.de> parents: 1670 diff changeset	1245	!MenuPanel methodsFor:'accessing-channels'!
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	1246
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	1247	enableChannel:aValueHolder
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	1248	"set my enableChannel
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	1249	"
498 b4c341497621 bug fixes: ca parents: 475 diff changeset	1250	enableChannel notNil ifTrue:[
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	1251	enableChannel removeDependent:self
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	1252	].
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	1253
498 b4c341497621 bug fixes: ca parents: 475 diff changeset	1254	(enableChannel := aValueHolder) notNil ifTrue:[
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	1255	enableChannel addDependent:self.
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	1256	].
498 b4c341497621 bug fixes: ca parents: 475 diff changeset	1257	self enabled:(enableChannel value).
407 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
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	1260	menuHolder:aValueHolder
498 b4c341497621 bug fixes: ca parents: 475 diff changeset	1261	"set my menuHolder
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	1262	"
498 b4c341497621 bug fixes: ca parents: 475 diff changeset	1263	menuHolder notNil ifTrue:[
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	1264	menuHolder removeDependent:self
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	1265	].
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	1266
498 b4c341497621 bug fixes: ca parents: 475 diff changeset	1267	(menuHolder := aValueHolder) notNil ifTrue:[
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	1268	menuHolder addDependent:self.
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	1269	].
498 b4c341497621 bug fixes: ca parents: 475 diff changeset	1270	self menu:(menuHolder value)
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	1271	! !
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	1272
1679 af40842718f6 when accepting, and the application does not respond to that Claus Gittinger <cg@exept.de> parents: 1670 diff changeset	1273	!MenuPanel methodsFor:'accessing-color & font'!
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1274
616 a6157b083830 support of different styles ca parents: 608 diff changeset	1275	activeBackgroundColor
a6157b083830 support of different styles ca parents: 608 diff changeset	1276	"get the background drawing color used to highlight selection
a6157b083830 support of different styles ca parents: 608 diff changeset	1277	"
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1278	^ styleSheet colorAt:#'menuPanel.activeBackgroundColor'
616 a6157b083830 support of different styles ca parents: 608 diff changeset	1279	!
a6157b083830 support of different styles ca parents: 608 diff changeset	1280
a6157b083830 support of different styles ca parents: 608 diff changeset	1281	activeForegroundColor
a6157b083830 support of different styles ca parents: 608 diff changeset	1282	"get the foreground color used to highlight selections
a6157b083830 support of different styles ca parents: 608 diff changeset	1283	"
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1284	^ styleSheet colorAt:#'menuPanel.activeForegroundColor'
616 a6157b083830 support of different styles ca parents: 608 diff changeset	1285	!
a6157b083830 support of different styles ca parents: 608 diff changeset	1286
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1287	backgroundColor
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1288	"return the background color
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1289	"
502 dedc1b29b6ac support of arguments ca parents: 498 diff changeset	1290	^ super viewBackground
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1291	!
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1292
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1293	backgroundColor:aColor
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1294	"set the background drawing color. You should not use this method;
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1295	instead leave the value as defined in the styleSheet.
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1296	"
616 a6157b083830 support of different styles ca parents: 608 diff changeset	1297	super viewBackground ~~ aColor ifTrue:[
2659 3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	1298	super viewBackground:aColor.
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	1299	self invalidate "/ RepairNow:true
616 a6157b083830 support of different styles ca parents: 608 diff changeset	1300	]
a6157b083830 support of different styles ca parents: 608 diff changeset	1301
911 6b1ad8b039c5 no, repairNow should not be needed here Claus Gittinger <cg@exept.de> parents: 910 diff changeset	1302	"Modified: / 6.6.1998 / 19:50:06 / cg"
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1303	!
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1304
727 3ba54333342a button style from style sheet tz parents: 723 diff changeset	1305	buttonActiveBackgroundColor
3ba54333342a button style from style sheet tz parents: 723 diff changeset	1306	"get the background drawing color used to highlight button selection
3ba54333342a button style from style sheet tz parents: 723 diff changeset	1307	"
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1308	^ styleSheet colorAt:#'button.activeBackgroundColor'
93426020ceed * empty log message * ca parents: 2216 diff changeset	1309	default:(self viewBackground)
727 3ba54333342a button style from style sheet tz parents: 723 diff changeset	1310	!
3ba54333342a button style from style sheet tz parents: 723 diff changeset	1311
730 9e45051a4fbd better button draw routine + style sheet support tz parents: 729 diff changeset	1312	buttonEdgeStyle
9e45051a4fbd better button draw routine + style sheet support tz parents: 729 diff changeset	1313	"get the button edge style
9e45051a4fbd better button draw routine + style sheet support tz parents: 729 diff changeset	1314	"
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1315	^ styleSheet at:#'button.edgeStyle'
730 9e45051a4fbd better button draw routine + style sheet support tz parents: 729 diff changeset	1316	!
9e45051a4fbd better button draw routine + style sheet support tz parents: 729 diff changeset	1317
1081 fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1318	buttonEnteredBackgroundColor
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1319	"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	1320	"
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1321	^ styleSheet colorAt:#'menuPanel.buttonEnteredBackgroundColor'
1081 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
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1324	buttonEnteredLevel
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1325	"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	1326	"
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1327	^ styleSheet at:#'menuPanel.buttonEnteredLevel'
1081 fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1328	!
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1329
730 9e45051a4fbd better button draw routine + style sheet support tz parents: 729 diff changeset	1330	buttonHalfLightColor
9e45051a4fbd better button draw routine + style sheet support tz parents: 729 diff changeset	1331	"get the background drawing color used to half light button frame
9e45051a4fbd better button draw routine + style sheet support tz parents: 729 diff changeset	1332	"
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1333	^ styleSheet colorAt:#'button.halfLightColor'
730 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
9e45051a4fbd better button draw routine + style sheet support tz parents: 729 diff changeset	1336	buttonHalfShadowColor
9e45051a4fbd better button draw routine + style sheet support tz parents: 729 diff changeset	1337	"get the background drawing color used to half shadow button frame
9e45051a4fbd better button draw routine + style sheet support tz parents: 729 diff changeset	1338	"
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1339	^ styleSheet colorAt:#'button.halfShadowColor'
727 3ba54333342a button style from style sheet tz parents: 723 diff changeset	1340	!
3ba54333342a button style from style sheet tz parents: 723 diff changeset	1341
3ba54333342a button style from style sheet tz parents: 723 diff changeset	1342	buttonLightColor
3ba54333342a button style from style sheet tz parents: 723 diff changeset	1343	"get the background drawing color used to light button frame
3ba54333342a button style from style sheet tz parents: 723 diff changeset	1344	"
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1345	^ styleSheet colorAt:#'menuPanel.buttonLightColor'
727 3ba54333342a button style from style sheet tz parents: 723 diff changeset	1346	!
3ba54333342a button style from style sheet tz parents: 723 diff changeset	1347
3ba54333342a button style from style sheet tz parents: 723 diff changeset	1348	buttonPassiveBackgroundColor
3ba54333342a button style from style sheet tz parents: 723 diff changeset	1349	"get the background drawing color used for button
3ba54333342a button style from style sheet tz parents: 723 diff changeset	1350	"
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1351	^ styleSheet colorAt:#'menuPanel.buttonPassiveBackgroundColor'
727 3ba54333342a button style from style sheet tz parents: 723 diff changeset	1352	!
3ba54333342a button style from style sheet tz parents: 723 diff changeset	1353
3ba54333342a button style from style sheet tz parents: 723 diff changeset	1354	buttonShadowColor
3ba54333342a button style from style sheet tz parents: 723 diff changeset	1355	"get the background drawing color used to shadow button frame
3ba54333342a button style from style sheet tz parents: 723 diff changeset	1356	"
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1357	^ styleSheet colorAt:#'menuPanel.buttonShadowColor'
2059 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
c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	1360	disabledEtchedForegroundColor
c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	1361	"return the color used for etching disabled items.
c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	1362	If nil, no 3D effect is drawn.
c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	1363	"
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1364	^ styleSheet colorAt:#'menuPanel.disabledEtchedFgColor'
727 3ba54333342a button style from style sheet tz parents: 723 diff changeset	1365	!
3ba54333342a button style from style sheet tz parents: 723 diff changeset	1366
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1367	disabledForegroundColor
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1368	"return the foreground color used by disabled items
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1369	"
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1370	^ styleSheet colorAt:#'menuPanel.disabledForegroundColor'
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1371	!
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1372
2170 e76171113581 enteredFG / enteredBG Claus Gittinger <cg@exept.de> parents: 2166 diff changeset	1373	enteredBackgroundColor
e76171113581 enteredFG / enteredBG Claus Gittinger <cg@exept.de> parents: 2166 diff changeset	1374	"return the background color for entered items
e76171113581 enteredFG / enteredBG Claus Gittinger <cg@exept.de> parents: 2166 diff changeset	1375	"
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1376	^ styleSheet colorAt:#'menu.enteredBackgroundColor'
93426020ceed * empty log message * ca parents: 2216 diff changeset	1377	default:(self backgroundColor)
2170 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
e76171113581 enteredFG / enteredBG Claus Gittinger <cg@exept.de> parents: 2166 diff changeset	1380	enteredForegroundColor
e76171113581 enteredFG / enteredBG Claus Gittinger <cg@exept.de> parents: 2166 diff changeset	1381	"return the foreground color for entered items
e76171113581 enteredFG / enteredBG Claus Gittinger <cg@exept.de> parents: 2166 diff changeset	1382	"
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1383	^ styleSheet colorAt:#'menu.enteredForegroundColor' default:fgColor
2170 e76171113581 enteredFG / enteredBG Claus Gittinger <cg@exept.de> parents: 2166 diff changeset	1384	!
e76171113581 enteredFG / enteredBG Claus Gittinger <cg@exept.de> parents: 2166 diff changeset	1385
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1386	font:aFont
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1387	"set the font
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1388	"
2614 86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	1389	(aFont isNil or:[aFont = font]) ifTrue:[ ^ self ].
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	1390
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	1391	super font:aFont.
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	1392	self do:[:anItem\| anItem fontChanged ].
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	1393
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	1394	(shown and:[superMenu notNil]) ifTrue:[
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	1395	self extent:(self preferredExtent)
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	1396	].
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	1397	self mustRearrange.
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1398	!
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1399
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1400	foregroundColor
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1401	"return the passive foreground color
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1402	"
2059 c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	1403	^ fgColor
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1404	!
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1405
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1406	foregroundColor:aColor
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1407	"set the foregroundColor drawing color. You should not use this method;
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1408	instead leave the value as defined in the styleSheet.
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1409	"
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1410	aColor ~= fgColor ifTrue:[
1478 38f08dec8e34 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	1411	fgColor := aColor onDevice:device.
2659 3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	1412	self invalidate
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1413	].
580 249f6cfc5bb2 checkin from browser Claus Gittinger <cg@exept.de> parents: 571 diff changeset	1414	!
249f6cfc5bb2 checkin from browser Claus Gittinger <cg@exept.de> parents: 571 diff changeset	1415
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1416	maxAbsoluteButtonLevel
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1417	"returns the maximum absolute button level; used to compute the preferred
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1418	extent of a button
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1419	"
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1420	^ styleSheet at:#'menuPanel.maxAbsoluteButtonLevel'
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1421	!
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1422
730 9e45051a4fbd better button draw routine + style sheet support tz parents: 729 diff changeset	1423	selectionFrameBrightColor
9e45051a4fbd better button draw routine + style sheet support tz parents: 729 diff changeset	1424	"get the selection frame bright color
9e45051a4fbd better button draw routine + style sheet support tz parents: 729 diff changeset	1425	"
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1426	^ Color white
730 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
9e45051a4fbd better button draw routine + style sheet support tz parents: 729 diff changeset	1429	selectionFrameDarkColor
9e45051a4fbd better button draw routine + style sheet support tz parents: 729 diff changeset	1430	"get the selection frame dark color
9e45051a4fbd better button draw routine + style sheet support tz parents: 729 diff changeset	1431	"
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1432	^ Color black
730 9e45051a4fbd better button draw routine + style sheet support tz parents: 729 diff changeset	1433	!
9e45051a4fbd better button draw routine + style sheet support tz parents: 729 diff changeset	1434
1727 a6365337be59 support setting font in MenuPanel and Editor ca parents: 1726 diff changeset	1435	setFont:aFont
2485 b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	1436	"set the font if the argument is nonNil;
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	1437	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	1438
1727 a6365337be59 support setting font in MenuPanel and Editor ca parents: 1726 diff changeset	1439	\|currentFont\|
a6365337be59 support setting font in MenuPanel and Editor ca parents: 1726 diff changeset	1440
a6365337be59 support setting font in MenuPanel and Editor ca parents: 1726 diff changeset	1441	(aFont notNil and:[aFont ~= font]) ifTrue:[
2485 b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	1442	currentFont := font.
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	1443	super font:aFont.
1727 a6365337be59 support setting font in MenuPanel and Editor ca parents: 1726 diff changeset	1444	].
a6365337be59 support setting font in MenuPanel and Editor ca parents: 1726 diff changeset	1445	^ currentFont
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1446	! !
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1447
1679 af40842718f6 when accepting, and the application does not respond to that Claus Gittinger <cg@exept.de> parents: 1670 diff changeset	1448	!MenuPanel methodsFor:'accessing-dimensions'!
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1449
dce33f8bb806 intitial checkin ca parents: diff changeset	1450	height
dce33f8bb806 intitial checkin ca parents: diff changeset	1451	"default height
dce33f8bb806 intitial checkin ca parents: diff changeset	1452	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1453	(explicitExtent ~~ true) ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1454	^ self preferredExtent y
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1455	].
dce33f8bb806 intitial checkin ca parents: diff changeset	1456	^ super height
dce33f8bb806 intitial checkin ca parents: diff changeset	1457	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1458
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	1459	maxExtent
2617 1611c130d5e9 * empty log message * Claus Gittinger <cg@exept.de> parents: 2614 diff changeset	1460	"ca: returns the maximum extent
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	1461	"
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	1462	\|x y\|
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	1463
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	1464	device isNil ifTrue:[
2617 1611c130d5e9 * empty log message * Claus Gittinger <cg@exept.de> parents: 2614 diff changeset	1465	superMenu notNil ifTrue:[
1611c130d5e9 * empty log message * Claus Gittinger <cg@exept.de> parents: 2614 diff changeset	1466	^ superMenu maxExtent
1611c130d5e9 * empty log message * Claus Gittinger <cg@exept.de> parents: 2614 diff changeset	1467	].
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	1468	].
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	1469	y := device usableHeight - 2.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	1470	x := device usableWidth - 2.
2617 1611c130d5e9 * empty log message * Claus Gittinger <cg@exept.de> parents: 2614 diff changeset	1471	^ x@y
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	1472	!
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	1473
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1474	preferredExtent
dce33f8bb806 intitial checkin ca parents: diff changeset	1475	"compute and returns my preferred extent
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	1476	"
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1477	\|maxExtent usedExtent\|
2024 1214769c0441 + #preferredWidth: Claus Gittinger <cg@exept.de> parents: 2020 diff changeset	1478
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	1479	preferredExtent notNil ifTrue:[
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1480	^ preferredExtent
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	1481	].
2024 1214769c0441 + #preferredWidth: Claus Gittinger <cg@exept.de> parents: 2020 diff changeset	1482	maxExtent := self maxExtent.
1214769c0441 + #preferredWidth: Claus Gittinger <cg@exept.de> parents: 2020 diff changeset	1483	usedExtent := self preferredExtentOfItems.
1214769c0441 + #preferredWidth: Claus Gittinger <cg@exept.de> parents: 2020 diff changeset	1484
1214769c0441 + #preferredWidth: Claus Gittinger <cg@exept.de> parents: 2020 diff changeset	1485	superView isNil ifTrue:[
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1486	"/ is standalone
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	1487	preferredWidth notNil ifTrue:[
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1488	usedExtent x < preferredWidth ifTrue:[
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1489	usedExtent := preferredWidth @ usedExtent y.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1490	]
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1491	]
2024 1214769c0441 + #preferredWidth: Claus Gittinger <cg@exept.de> parents: 2020 diff changeset	1492	].
1214769c0441 + #preferredWidth: Claus Gittinger <cg@exept.de> parents: 2020 diff changeset	1493
1214769c0441 + #preferredWidth: Claus Gittinger <cg@exept.de> parents: 2020 diff changeset	1494	^ usedExtent min:maxExtent
1214769c0441 + #preferredWidth: Claus Gittinger <cg@exept.de> parents: 2020 diff changeset	1495
1214769c0441 + #preferredWidth: Claus Gittinger <cg@exept.de> parents: 2020 diff changeset	1496	"Modified: / 10.10.2001 / 14:57:25 / cg"
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	1497	!
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	1498
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	1499	preferredExtentOfItems
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	1500	"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	1501	!!!!!! changes have influence on method #rearrangeItems !!!!!!
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1502	"
1707 4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	1503	\|hasMenu shCtKey extent showAcc sck
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1504	x "{ Class:SmallInteger }"
93426020ceed * empty log message * ca parents: 2216 diff changeset	1505	y "{ Class:SmallInteger }"
93426020ceed * empty log message * ca parents: 2216 diff changeset	1506	size "{ Class:SmallInteger }"
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	1507	buttonInsetX "{ Class:SmallInteger }"
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	1508	buttonInsetY "{ Class:SmallInteger }"
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1509	labelInsetX "{ Class:SmallInteger }"
93426020ceed * empty log message * ca parents: 2216 diff changeset	1510	labelInsetY "{ Class:SmallInteger }"
93426020ceed * empty log message * ca parents: 2216 diff changeset	1511	itemSpace "{ Class:SmallInteger }"
93426020ceed * empty log message * ca parents: 2216 diff changeset	1512	itemMargin "{ Class:SmallInteger }"
93426020ceed * empty log message * ca parents: 2216 diff changeset	1513	groupDividerSize "{ Class:SmallInteger }"
1690 38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	1514	\|
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1515
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1516	(size := items size) == 0 ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1517	self isViewWrapper ifTrue:[ ^ subViews first extent ].
2433 49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	1518	^ 32 @ 32
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1519	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	1520	buttonInsetX := 2 * self buttonInsetX.
93426020ceed * empty log message * ca parents: 2216 diff changeset	1521	buttonInsetY := 2 * self buttonInsetY.
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1522
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1523	self isPopUpView ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1524	labelInsetX := labelInsetY := 2 * (self enteredLevel abs).
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1525	] ifTrue:[
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	1526	labelInsetX := labelInsetY := 0.
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1527	].
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1528
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1529	x := 0.
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1530	y := 0.
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1531	groupDividerSize := self groupDividerSize.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1532
dce33f8bb806 intitial checkin ca parents: diff changeset	1533	self verticalLayout ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1534	itemSpace := self itemSpace.
93426020ceed * empty log message * ca parents: 2216 diff changeset	1535
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1536	items keysAndValuesDo:[:key :el\| \|eX eY\|
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1537	extent := el preferredExtent.
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1538
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1539	"/ check for visibility (extent x ~~ 0)
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1540	(eX := extent x) ~~ 0 ifTrue:[
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1541	eY := extent y.
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1542
1472 fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	1543	el isButton ifTrue:[
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	1544	eX := eX + buttonInsetX.
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	1545	eY := eY + buttonInsetY.
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1546	] ifFalse:[
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	1547	eX := eX + labelInsetX.
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	1548	eY := eY + labelInsetY.
1472 fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	1549	].
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1550	key ~~ size ifTrue:[
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1551	(self hasGroupDividerAt:key) ifTrue:[
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1552	x := x + groupDividerSize
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1553	] ifFalse:[
2433 49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	1554	el needsItemSpaceWhenDrawing ifTrue:[
1723 f633725a0ace use itemSpace only for horizontal menus and between labeled items ca parents: 1719 diff changeset	1555	x := x + itemSpace
f633725a0ace use itemSpace only for horizontal menus and between labeled items ca parents: 1719 diff changeset	1556	]
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1557	]
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1558	].
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1559	x := eX + x.
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1560	y := eY max:y.
1472 fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	1561	]
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1562	]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1563	] ifTrue:[
1472 fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	1564	hasMenu := false.
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	1565	shCtKey := 0.
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1566	showAcc := MenuView showAcceleratorKeys == true.
1472 fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	1567	y := x.
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	1568	x := 0.
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1569	itemMargin := 2 * self itemMargin.
1472 fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	1570
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1571	items keysAndValuesDo:[:key :el\| \|eX eY\|
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1572	extent := el preferredExtent.
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1573
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1574	"/ check for visibility (extent x ~~ 0)
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1575	(eX := extent x) ~~ 0 ifTrue:[
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1576	eY := extent y.
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1577
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1578	el isButton ifTrue:[
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	1579	eX := eX + buttonInsetX.
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	1580	eY := eY + buttonInsetY.
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1581	] ifFalse:[
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	1582	eX := eX + labelInsetX.
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	1583	eY := eY + labelInsetY.
1472 fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	1584	].
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1585	hasMenu ifFalse:[
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1586	hasMenu := el hasSubmenu
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1587	].
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1588	(showAcc and:[(sck := el shortcutKeyAsString) notNil]) ifTrue:[
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1589	shCtKey := shCtKey max:(sck widthOn:self)
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1590	].
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1591	key ~~ size ifTrue:[
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1592	(self hasGroupDividerAt:key) ifTrue:[
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1593	y := y + groupDividerSize
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1594	]
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1595	].
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1596	y := eY + y.
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1597	x := eX max:x.
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1598	].
1472 fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	1599	].
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1600	x := x + itemMargin.
1472 fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	1601
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	1602	(hasMenu or:[shCtKey ~~ 0]) ifTrue:[
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	1603	shortKeyInset := x + Item labelRightOffset.
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	1604	x := shortKeyInset + shCtKey + self subMenuIndicationWidth.
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	1605
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	1606	(shCtKey ~~ 0 and:[hasMenu]) ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1607	x := x + self shortcutKeyOffset.
1472 fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	1608	]
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	1609	].
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1610	"/ to have a small inset
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1611	y := y + 1.
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1612	"/ x := x + 1.
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1613	].
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1614	x := x + margin + margin.
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1615	y := y + margin + margin.
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1616
2433 49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	1617	^ x @ y
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1618	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1619
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1620	preferredWidth:aWidthOrNil
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1621	"used for example by combo box to setup the preferred width for the popup menu.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1622	If nil (default), the width is computed from the contained items.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1623	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	1624	"
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1625	preferredWidth := aWidthOrNil.
2024 1214769c0441 + #preferredWidth: Claus Gittinger <cg@exept.de> parents: 2020 diff changeset	1626	!
1214769c0441 + #preferredWidth: Claus Gittinger <cg@exept.de> parents: 2020 diff changeset	1627
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1628	shortKeyInset
dce33f8bb806 intitial checkin ca parents: diff changeset	1629	"left inset of shortcutKey
dce33f8bb806 intitial checkin ca parents: diff changeset	1630	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1631	^ shortKeyInset
616 a6157b083830 support of different styles ca parents: 608 diff changeset	1632	!
a6157b083830 support of different styles ca parents: 608 diff changeset	1633
a6157b083830 support of different styles ca parents: 608 diff changeset	1634	subMenuIndicationWidth
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1635	^ self rightArrow width
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1636	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	1637
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	1638	!MenuPanel methodsFor:'accessing-interactors'!
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	1639
1798 08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	1640	iconIndicationDisabledOff
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1641	^ self registerImageOnDevice:(self class iconIndicationDisabledOff)
1798 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
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	1644	iconIndicationDisabledOn
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1645	^ self registerImageOnDevice:(self class iconIndicationDisabledOn)
1798 08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	1646	!
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	1647
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	1648	iconIndicationOff
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1649	^ self registerImageOnDevice:(self class iconIndicationOff)
1726 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
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	1652	iconIndicationOn
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1653	^ self registerImageOnDevice:(self class iconIndicationOn)
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	1654	!
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	1655
1798 08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	1656	iconRadioGroupDisabledOff
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1657	^ self registerImageOnDevice:(self class iconRadioGroupDisabledOff)
1798 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
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	1660	iconRadioGroupDisabledOn
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1661	^ self registerImageOnDevice:(self class iconRadioGroupDisabledOn)
1798 08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	1662	!
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	1663
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	1664	iconRadioGroupOff
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1665	^ self registerImageOnDevice:(self class iconRadioGroupOff)
1726 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
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	1668	iconRadioGroupOn
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1669	^ self registerImageOnDevice:(self class iconRadioGroupOn)
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	1670	! !
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	1671
1679 af40842718f6 when accepting, and the application does not respond to that Claus Gittinger <cg@exept.de> parents: 1670 diff changeset	1672	!MenuPanel methodsFor:'accessing-items'!
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1673
dce33f8bb806 intitial checkin ca parents: diff changeset	1674	itemAt:stringOrNumber do:aOneArgBlock
2505 56607624d05a Fix pidgin spelling: 'does not exists' and 'not exists' Stefan Vogel <sv@exept.de> parents: 2504 diff changeset	1675	"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	1676	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	1677
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1678	^ self itemAt:stringOrNumber do:aOneArgBlock ifAbsent:nil
dce33f8bb806 intitial checkin ca parents: diff changeset	1679	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1680
dce33f8bb806 intitial checkin ca parents: diff changeset	1681	itemAt:stringOrNumber do:aOneArgBlock ifAbsent:exceptionBlock
dce33f8bb806 intitial checkin ca parents: diff changeset	1682	"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	1683	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	1684
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1685	\|item\|
dce33f8bb806 intitial checkin ca parents: diff changeset	1686
dce33f8bb806 intitial checkin ca parents: diff changeset	1687	item := self itemAt:stringOrNumber.
dce33f8bb806 intitial checkin ca parents: diff changeset	1688	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	1689	^ exceptionBlock value
706 d716edbdbe47 show separators bug cleaned tz parents: 689 diff changeset	1690	!
d716edbdbe47 show separators bug cleaned tz parents: 689 diff changeset	1691
d716edbdbe47 show separators bug cleaned tz parents: 689 diff changeset	1692	itemAtIndex:anIndex
d716edbdbe47 show separators bug cleaned tz parents: 689 diff changeset	1693	"returns item at an index or nil
d716edbdbe47 show separators bug cleaned tz parents: 689 diff changeset	1694	"
d716edbdbe47 show separators bug cleaned tz parents: 689 diff changeset	1695	^ 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	1696	!
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	1697
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	1698	items
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	1699	"returns list of items or nil
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	1700	"
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	1701	^ items
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1702	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	1703
1679 af40842718f6 when accepting, and the application does not respond to that Claus Gittinger <cg@exept.de> parents: 1670 diff changeset	1704	!MenuPanel methodsFor:'accessing-look'!
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1705
727 3ba54333342a button style from style sheet tz parents: 723 diff changeset	1706	buttonActiveLevel
3ba54333342a button style from style sheet tz parents: 723 diff changeset	1707	"get the button active level
3ba54333342a button style from style sheet tz parents: 723 diff changeset	1708	"
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1709	^ styleSheet at:#'menuPanel.buttonActiveLevel'
727 3ba54333342a button style from style sheet tz parents: 723 diff changeset	1710	!
3ba54333342a button style from style sheet tz parents: 723 diff changeset	1711
3ba54333342a button style from style sheet tz parents: 723 diff changeset	1712	buttonPassiveLevel
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1713	"get the button active level
93426020ceed * empty log message * ca parents: 2216 diff changeset	1714	"
93426020ceed * empty log message * ca parents: 2216 diff changeset	1715	^ styleSheet at:#'menuPanel.buttonPassiveLevel'
727 3ba54333342a button style from style sheet tz parents: 723 diff changeset	1716	!
3ba54333342a button style from style sheet tz parents: 723 diff changeset	1717
2337 7f384db88273 centerItems attribute Claus Gittinger <cg@exept.de> parents: 2332 diff changeset	1718	centerItems
7f384db88273 centerItems attribute Claus Gittinger <cg@exept.de> parents: 2332 diff changeset	1719	^ centerItems ? false
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
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	centerItems := aBoolean
7f384db88273 centerItems attribute Claus Gittinger <cg@exept.de> parents: 2332 diff changeset	1724	!
7f384db88273 centerItems attribute Claus Gittinger <cg@exept.de> parents: 2332 diff changeset	1725
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1726	fitFirstPanel
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1727	"gets true if the first panel in the menu hierarchy must be fit
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1728	to the extent of its superView
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1729
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1730	NOT SUPPORTED
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1731	"
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1732	^ false
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1733	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1734
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1735	fitFirstPanel:aState
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1736	"sets true if the first panel in the menu hierarchy must be fit
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1737	to the extent of its superView
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1738
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1739	NOT SUPPORTED
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1740	"
616 a6157b083830 support of different styles ca parents: 608 diff changeset	1741	!
a6157b083830 support of different styles ca parents: 608 diff changeset	1742
1093 7cb44303b016 margin fixes Claus Gittinger <cg@exept.de> parents: 1090 diff changeset	1743	level:anInt
2003 732fbaf5864f avoid changing the level after realization (to avoid confusing the shadow) Claus Gittinger <cg@exept.de> parents: 2000 diff changeset	1744	anInt ~~ level ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1745	super level:anInt.
93426020ceed * empty log message * ca parents: 2216 diff changeset	1746	self mustRearrange
2003 732fbaf5864f avoid changing the level after realization (to avoid confusing the shadow) Claus Gittinger <cg@exept.de> parents: 2000 diff changeset	1747	]
2052 61367c7a47aa * empty log message * Claus Gittinger <cg@exept.de> parents: 2051 diff changeset	1748
61367c7a47aa * empty log message * Claus Gittinger <cg@exept.de> parents: 2051 diff changeset	1749	"Modified: / 15.11.2001 / 17:42:07 / cg"
1093 7cb44303b016 margin fixes Claus Gittinger <cg@exept.de> parents: 1090 diff changeset	1750	!
7cb44303b016 margin fixes Claus Gittinger <cg@exept.de> parents: 1090 diff changeset	1751
616 a6157b083830 support of different styles ca parents: 608 diff changeset	1752	rightArrow
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	1753	rightArrow isNil ifTrue:[
975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	1754	device isNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1755	^ SelectionInListView rightArrowFormOn:Display
93426020ceed * empty log message * ca parents: 2216 diff changeset	1756	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	1757	rightArrow := SelectionInListView rightArrowFormOn:device
93426020ceed * empty log message * ca parents: 2216 diff changeset	1758	].
616 a6157b083830 support of different styles ca parents: 608 diff changeset	1759	^ rightArrow
a6157b083830 support of different styles ca parents: 608 diff changeset	1760	!
a6157b083830 support of different styles ca parents: 608 diff changeset	1761
a6157b083830 support of different styles ca parents: 608 diff changeset	1762	rightArrowShadow
a6157b083830 support of different styles ca parents: 608 diff changeset	1763	^ rightArrowShadow
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1764	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1765
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1766	showGroupDivider
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1767	"get the enabled flag for showing groupDiveders
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1768	"
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1769	^ showGroupDivider
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1770	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1771
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1772	showGroupDivider:aState
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1773	"set the enabled flag for showing groupDiveders
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1774	"
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1775	showGroupDivider ~~ aState ifTrue:[
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1776	showGroupDivider := aState.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1777	self mustRearrange.
653 cf9b6ef11ade bug fix; no automatic rearrange of items ca parents: 650 diff changeset	1778	]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1779	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1780
dce33f8bb806 intitial checkin ca parents: diff changeset	1781	showSeparatingLines
dce33f8bb806 intitial checkin ca parents: diff changeset	1782	"gets true if drawing of separating lines is enabled.
dce33f8bb806 intitial checkin ca parents: diff changeset	1783	"
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1784	^ showSeparatingLines
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1785	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1786
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1787	showSeparatingLines:aState
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1788	"turn on/off drawing of separating lines.
dce33f8bb806 intitial checkin ca parents: diff changeset	1789	"
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1790	aState ~~ showSeparatingLines ifTrue:[
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1791	showSeparatingLines := aState.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1792	self mustRearrange
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1793	].
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1794	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1795
dce33f8bb806 intitial checkin ca parents: diff changeset	1796	verticalLayout
dce33f8bb806 intitial checkin ca parents: diff changeset	1797	"get the layout: or vertical( true ) or horizontal( false )
dce33f8bb806 intitial checkin ca parents: diff changeset	1798	"
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	1799	verticalLayout notNil ifTrue:[ ^ verticalLayout ].
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1800
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1801	superMenu notNil ifTrue:[ verticalLayout := true ]
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1802	ifFalse:[ verticalLayout := self isPopUpView ].
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1803
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	1804	^ verticalLayout
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1805	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1806
dce33f8bb806 intitial checkin ca parents: diff changeset	1807	verticalLayout:aState
dce33f8bb806 intitial checkin ca parents: diff changeset	1808	"set the layout: or vertical( true ) or horizontal( false )
dce33f8bb806 intitial checkin ca parents: diff changeset	1809	"
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1810	aState ~~ verticalLayout ifTrue:[
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1811	verticalLayout isNil ifTrue:[
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1812	verticalLayout := aState
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1813	] ifFalse:[
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1814	verticalLayout := aState.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1815	self mustRearrange.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1816	].
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1817	].
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1818	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	1819
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1820	!MenuPanel methodsFor:'accessing-style'!
93426020ceed * empty log message * ca parents: 2216 diff changeset	1821
93426020ceed * empty log message * ca parents: 2216 diff changeset	1822	buttonInsetX
93426020ceed * empty log message * ca parents: 2216 diff changeset	1823	"returns the verical button space
93426020ceed * empty log message * ca parents: 2216 diff changeset	1824	"
93426020ceed * empty log message * ca parents: 2216 diff changeset	1825	^ styleSheet at:#'menuPanel.buttonInsetX'
93426020ceed * empty log message * ca parents: 2216 diff changeset	1826	!
93426020ceed * empty log message * ca parents: 2216 diff changeset	1827
93426020ceed * empty log message * ca parents: 2216 diff changeset	1828	buttonInsetY
93426020ceed * empty log message * ca parents: 2216 diff changeset	1829	"returns the verical button space
93426020ceed * empty log message * ca parents: 2216 diff changeset	1830	"
93426020ceed * empty log message * ca parents: 2216 diff changeset	1831	^ styleSheet at:#'menuPanel.buttonInsetY'
93426020ceed * empty log message * ca parents: 2216 diff changeset	1832	!
93426020ceed * empty log message * ca parents: 2216 diff changeset	1833
93426020ceed * empty log message * ca parents: 2216 diff changeset	1834	enteredLevel
93426020ceed * empty log message * ca parents: 2216 diff changeset	1835	"returns the enter-level for an unselected item moved through
93426020ceed * empty log message * ca parents: 2216 diff changeset	1836	"
93426020ceed * empty log message * ca parents: 2216 diff changeset	1837	^ styleSheet at:#'menu.enteredLevel' default:0
93426020ceed * empty log message * ca parents: 2216 diff changeset	1838	!
93426020ceed * empty log message * ca parents: 2216 diff changeset	1839
93426020ceed * empty log message * ca parents: 2216 diff changeset	1840	groupDividerSize
93426020ceed * empty log message * ca parents: 2216 diff changeset	1841	"returns the width of a group divider
93426020ceed * empty log message * ca parents: 2216 diff changeset	1842	"
93426020ceed * empty log message * ca parents: 2216 diff changeset	1843	^ styleSheet at:#'menu.groupDividerSize' default:6
93426020ceed * empty log message * ca parents: 2216 diff changeset	1844	!
93426020ceed * empty log message * ca parents: 2216 diff changeset	1845
93426020ceed * empty log message * ca parents: 2216 diff changeset	1846	itemMargin
93426020ceed * empty log message * ca parents: 2216 diff changeset	1847	"returns the margin of an item
93426020ceed * empty log message * ca parents: 2216 diff changeset	1848	"
93426020ceed * empty log message * ca parents: 2216 diff changeset	1849	^ styleSheet at:#'menu.itemMargin' default:0
93426020ceed * empty log message * ca parents: 2216 diff changeset	1850	!
93426020ceed * empty log message * ca parents: 2216 diff changeset	1851
93426020ceed * empty log message * ca parents: 2216 diff changeset	1852	itemSpace
93426020ceed * empty log message * ca parents: 2216 diff changeset	1853	"returns the additional space for an item in a (vertical) panel
93426020ceed * empty log message * ca parents: 2216 diff changeset	1854	"
93426020ceed * empty log message * ca parents: 2216 diff changeset	1855	^ styleSheet at:#'menuPanel.itemSpace'
93426020ceed * empty log message * ca parents: 2216 diff changeset	1856	!
93426020ceed * empty log message * ca parents: 2216 diff changeset	1857
93426020ceed * empty log message * ca parents: 2216 diff changeset	1858	selectionFollowsMouse
93426020ceed * empty log message * ca parents: 2216 diff changeset	1859	"returns true if the selection follows the mouse
93426020ceed * empty log message * ca parents: 2216 diff changeset	1860	"
93426020ceed * empty log message * ca parents: 2216 diff changeset	1861	^ styleSheet at:#'menu.selectionFollowsMouse' default:false
93426020ceed * empty log message * ca parents: 2216 diff changeset	1862	!
93426020ceed * empty log message * ca parents: 2216 diff changeset	1863
93426020ceed * empty log message * ca parents: 2216 diff changeset	1864	shortcutKeyOffset
93426020ceed * empty log message * ca parents: 2216 diff changeset	1865	"returns the offset for a shortcutKey
93426020ceed * empty log message * ca parents: 2216 diff changeset	1866	"
93426020ceed * empty log message * ca parents: 2216 diff changeset	1867	^ 5
93426020ceed * empty log message * ca parents: 2216 diff changeset	1868	! !
93426020ceed * empty log message * ca parents: 2216 diff changeset	1869
1679 af40842718f6 when accepting, and the application does not respond to that Claus Gittinger <cg@exept.de> parents: 1670 diff changeset	1870	!MenuPanel methodsFor:'accessing-submenu'!
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1871
dce33f8bb806 intitial checkin ca parents: diff changeset	1872	subMenuAt:stringOrNumber
dce33f8bb806 intitial checkin ca parents: diff changeset	1873	"gets the submenu of an item or nil
dce33f8bb806 intitial checkin ca parents: diff changeset	1874	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1875	^ self itemAt:stringOrNumber do:[:el\| el submenu ]
dce33f8bb806 intitial checkin ca parents: diff changeset	1876	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1877
dce33f8bb806 intitial checkin ca parents: diff changeset	1878	subMenuAt:stringOrNumber put:aSubMenu
dce33f8bb806 intitial checkin ca parents: diff changeset	1879	"sets the submenu of an item
dce33f8bb806 intitial checkin ca parents: diff changeset	1880	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1881	self itemAt:stringOrNumber do:[:el\| el submenu:aSubMenu ]
dce33f8bb806 intitial checkin ca parents: diff changeset	1882
dce33f8bb806 intitial checkin ca parents: diff changeset	1883	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1884
dce33f8bb806 intitial checkin ca parents: diff changeset	1885	subMenuShown
dce33f8bb806 intitial checkin ca parents: diff changeset	1886	"return the currently visible submenu - or nil if there is none
dce33f8bb806 intitial checkin ca parents: diff changeset	1887	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1888	\|item\|
dce33f8bb806 intitial checkin ca parents: diff changeset	1889
dce33f8bb806 intitial checkin ca parents: diff changeset	1890	(item := self selection) notNil ifTrue:[
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	1891	^ item submenu
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1892	].
dce33f8bb806 intitial checkin ca parents: diff changeset	1893	^ nil
dce33f8bb806 intitial checkin ca parents: diff changeset	1894	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	1895
2504 0ce78a73aacf method category rename Claus Gittinger <cg@exept.de> parents: 2503 diff changeset	1896	!MenuPanel methodsFor:'activation & deactivation'!
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1897
1795 6afd0e768267 submenuChannel selector: allow upto two arguments, the arg and the menu ca parents: 1793 diff changeset	1898	closeMenus
6afd0e768267 submenuChannel selector: allow upto two arguments, the arg and the menu ca parents: 1793 diff changeset	1899	"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	1900	"
6afd0e768267 submenuChannel selector: allow upto two arguments, the arg and the menu ca parents: 1793 diff changeset	1901	self topMenu accept:nil.
6afd0e768267 submenuChannel selector: allow upto two arguments, the arg and the menu ca parents: 1793 diff changeset	1902	!
6afd0e768267 submenuChannel selector: allow upto two arguments, the arg and the menu ca parents: 1793 diff changeset	1903
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1904	hide
dce33f8bb806 intitial checkin ca parents: diff changeset	1905	"hide the view, leave its modal event loop
dce33f8bb806 intitial checkin ca parents: diff changeset	1906	"
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	1907
2407 d8cdc13f677b checkin from browser penk parents: 2374 diff changeset	1908	"/ TODO: replace with LeaveSignal raise.
d8cdc13f677b checkin from browser penk parents: 2374 diff changeset	1909
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1910	self selection:nil.
dce33f8bb806 intitial checkin ca parents: diff changeset	1911	self unmap.
dce33f8bb806 intitial checkin ca parents: diff changeset	1912	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1913
dce33f8bb806 intitial checkin ca parents: diff changeset	1914	show
1836 89a1b938c09e fixed returned value from non-performing menu Claus Gittinger <cg@exept.de> parents: 1832 diff changeset	1915	"realize the view at its last position;
89a1b938c09e fixed returned value from non-performing menu Claus Gittinger <cg@exept.de> parents: 1832 diff changeset	1916	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	1917	(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	1918	to some performer)
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1919	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1920	^ self showAt:(self origin) resizing:true
dce33f8bb806 intitial checkin ca parents: diff changeset	1921
dce33f8bb806 intitial checkin ca parents: diff changeset	1922	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1923
dce33f8bb806 intitial checkin ca parents: diff changeset	1924	showAt:aPoint
1836 89a1b938c09e fixed returned value from non-performing menu Claus Gittinger <cg@exept.de> parents: 1832 diff changeset	1925	"realize the view at aPoint.
89a1b938c09e fixed returned value from non-performing menu Claus Gittinger <cg@exept.de> parents: 1832 diff changeset	1926	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	1927	(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	1928	to some performer)
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1929	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1930	^ self showAt:aPoint resizing:true
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
dce33f8bb806 intitial checkin ca parents: diff changeset	1935	showAt:aPoint resizing:aBoolean
984 87d36803b9d8 oops - menu items fired twice. Claus Gittinger <cg@exept.de> parents: 971 diff changeset	1936	"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	1937	or if I have already performed.
87d36803b9d8 oops - menu items fired twice. Claus Gittinger <cg@exept.de> parents: 971 diff changeset	1938	Return the items value, otherwise.
87d36803b9d8 oops - menu items fired twice. Claus Gittinger <cg@exept.de> parents: 971 diff changeset	1939	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	1940	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	1941	if a non-nil is returned.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1942	"
1836 89a1b938c09e fixed returned value from non-performing menu Claus Gittinger <cg@exept.de> parents: 1832 diff changeset	1943
1331 aae37cbfb30a fixed style handling to avoid bad resizing when popup-level/bw Claus Gittinger <cg@exept.de> parents: 1330 diff changeset	1944	self rearrangeItemsIfItemVisibilityChanged.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1945
dce33f8bb806 intitial checkin ca parents: diff changeset	1946	aBoolean ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1947	self fixSize.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1948	].
dce33f8bb806 intitial checkin ca parents: diff changeset	1949	self origin:aPoint.
1459 53f83c83b354 checkin from browser Claus Gittinger <cg@exept.de> parents: 1455 diff changeset	1950	"/ self makeFullyVisible. -- done in realize
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1951	self openModal:[true]. "realize "
dce33f8bb806 intitial checkin ca parents: diff changeset	1952
984 87d36803b9d8 oops - menu items fired twice. Claus Gittinger <cg@exept.de> parents: 971 diff changeset	1953	"/ if I have already performed,
87d36803b9d8 oops - menu items fired twice. Claus Gittinger <cg@exept.de> parents: 971 diff changeset	1954	"/ return nil - to avoid items triggering twice.
87d36803b9d8 oops - menu items fired twice. Claus Gittinger <cg@exept.de> parents: 971 diff changeset	1955
87d36803b9d8 oops - menu items fired twice. Claus Gittinger <cg@exept.de> parents: 971 diff changeset	1956	(self topMenu menuAdornmentAt:#hasPerformed) == true ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1957	^ nil
984 87d36803b9d8 oops - menu items fired twice. Claus Gittinger <cg@exept.de> parents: 971 diff changeset	1958	].
1836 89a1b938c09e fixed returned value from non-performing menu Claus Gittinger <cg@exept.de> parents: 1832 diff changeset	1959
984 87d36803b9d8 oops - menu items fired twice. Claus Gittinger <cg@exept.de> parents: 971 diff changeset	1960	^ self lastValueAccepted
87d36803b9d8 oops - menu items fired twice. Claus Gittinger <cg@exept.de> parents: 971 diff changeset	1961
1137 7df0b776e47a fixes for 2D styles (borderWidth) Claus Gittinger <cg@exept.de> parents: 1130 diff changeset	1962	"Modified: / 15.9.1998 / 12:50:23 / cg"
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1963	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1964
dce33f8bb806 intitial checkin ca parents: diff changeset	1965	showAtPointer
1836 89a1b938c09e fixed returned value from non-performing menu Claus Gittinger <cg@exept.de> parents: 1832 diff changeset	1966	"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	1967	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	1968	(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	1969	to some performer)
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1970	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1971	^ self showAt:(device pointerPosition) resizing:true
dce33f8bb806 intitial checkin ca parents: diff changeset	1972
dce33f8bb806 intitial checkin ca parents: diff changeset	1973
dce33f8bb806 intitial checkin ca parents: diff changeset	1974	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1975
dce33f8bb806 intitial checkin ca parents: diff changeset	1976	showCenteredIn:aView
dce33f8bb806 intitial checkin ca parents: diff changeset	1977	"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	1978	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	1979	(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	1980	to some performer)
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1981	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1982	\|top\|
dce33f8bb806 intitial checkin ca parents: diff changeset	1983
dce33f8bb806 intitial checkin ca parents: diff changeset	1984	top := aView topView.
dce33f8bb806 intitial checkin ca parents: diff changeset	1985	top raise.
1137 7df0b776e47a fixes for 2D styles (borderWidth) Claus Gittinger <cg@exept.de> parents: 1130 diff changeset	1986	^ 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	1987
7df0b776e47a fixes for 2D styles (borderWidth) Claus Gittinger <cg@exept.de> parents: 1130 diff changeset	1988	"Modified: / 15.9.1998 / 12:45:50 / cg"
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1989	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1990
dce33f8bb806 intitial checkin ca parents: diff changeset	1991	startUp
dce33f8bb806 intitial checkin ca parents: diff changeset	1992	"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	1993	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	1994	(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	1995	to some performer)
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1996	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1997	^ self showAtPointer
897 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
6bbc8c15ac0a added #startUpAt: (MenuView compatibility) Claus Gittinger <cg@exept.de> parents: 890 diff changeset	2000	startUpAt:aPoint
6bbc8c15ac0a added #startUpAt: (MenuView compatibility) Claus Gittinger <cg@exept.de> parents: 890 diff changeset	2001	"realize the menu at aPoint
1836 89a1b938c09e fixed returned value from non-performing menu Claus Gittinger <cg@exept.de> parents: 1832 diff changeset	2002	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	2003	(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	2004	to some performer)
897 6bbc8c15ac0a added #startUpAt: (MenuView compatibility) Claus Gittinger <cg@exept.de> parents: 890 diff changeset	2005	"
6bbc8c15ac0a added #startUpAt: (MenuView compatibility) Claus Gittinger <cg@exept.de> parents: 890 diff changeset	2006	^ self showAt:aPoint
6bbc8c15ac0a added #startUpAt: (MenuView compatibility) Claus Gittinger <cg@exept.de> parents: 890 diff changeset	2007
6bbc8c15ac0a added #startUpAt: (MenuView compatibility) Claus Gittinger <cg@exept.de> parents: 890 diff changeset	2008	"Created: / 21.5.1998 / 14:15:57 / cg"
1750 f9e5700bd99a compatibility stuff Claus Gittinger <cg@exept.de> parents: 1737 diff changeset	2009	!
f9e5700bd99a compatibility stuff Claus Gittinger <cg@exept.de> parents: 1737 diff changeset	2010
2332 7e98cc0c92b7 can now specify if menu action is to be performed by ca parents: 2331 diff changeset	2011	startUpFor:originatingWidget
7e98cc0c92b7 can now specify if menu action is to be performed by ca parents: 2331 diff changeset	2012	"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	2013	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	2014	(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	2015	to some performer)
7e98cc0c92b7 can now specify if menu action is to be performed by ca parents: 2331 diff changeset	2016	"
7e98cc0c92b7 can now specify if menu action is to be performed by ca parents: 2331 diff changeset	2017	originator := originatingWidget.
7e98cc0c92b7 can now specify if menu action is to be performed by ca parents: 2331 diff changeset	2018	^ self startUp
7e98cc0c92b7 can now specify if menu action is to be performed by ca parents: 2331 diff changeset	2019	!
7e98cc0c92b7 can now specify if menu action is to be performed by ca parents: 2331 diff changeset	2020
1750 f9e5700bd99a compatibility stuff Claus Gittinger <cg@exept.de> parents: 1737 diff changeset	2021	startUpOrNil
f9e5700bd99a compatibility stuff Claus Gittinger <cg@exept.de> parents: 1737 diff changeset	2022	"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	2023	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	2024	(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	2025	to some performer)
1750 f9e5700bd99a compatibility stuff Claus Gittinger <cg@exept.de> parents: 1737 diff changeset	2026	"
f9e5700bd99a compatibility stuff Claus Gittinger <cg@exept.de> parents: 1737 diff changeset	2027	^ self showAtPointer
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2028	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	2029
dce33f8bb806 intitial checkin ca parents: diff changeset	2030	!MenuPanel methodsFor:'adding & removing'!
dce33f8bb806 intitial checkin ca parents: diff changeset	2031
dce33f8bb806 intitial checkin ca parents: diff changeset	2032	createAtIndex:anIndexOrNil
1800 600f247a2846 comment Claus Gittinger <cg@exept.de> parents: 1799 diff changeset	2033	"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	2034	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	2035	otherwise the new created item is returned.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2036	"
dce33f8bb806 intitial checkin ca parents: diff changeset	2037	\|max item\|
dce33f8bb806 intitial checkin ca parents: diff changeset	2038
dce33f8bb806 intitial checkin ca parents: diff changeset	2039	max := (items size) + 1.
dce33f8bb806 intitial checkin ca parents: diff changeset	2040
dce33f8bb806 intitial checkin ca parents: diff changeset	2041	anIndexOrNil notNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	2042	(anIndexOrNil < 1 or:[anIndexOrNil > max]) ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	2043	^ nil
93426020ceed * empty log message * ca parents: 2216 diff changeset	2044	]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2045	].
dce33f8bb806 intitial checkin ca parents: diff changeset	2046	items isNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	2047	items := OrderedCollection new
1151 199863d6a463 items: convert Array to OrderedCollection Claus Gittinger <cg@exept.de> parents: 1137 diff changeset	2048	] ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	2049	items := items asOrderedCollection
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2050	].
dce33f8bb806 intitial checkin ca parents: diff changeset	2051	item := Item in:self.
dce33f8bb806 intitial checkin ca parents: diff changeset	2052
dce33f8bb806 intitial checkin ca parents: diff changeset	2053	(anIndexOrNil isNil or:[anIndexOrNil == max]) ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	2054	items add:item
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2055	] ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	2056	items add:item beforeIndex:anIndexOrNil
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2057	].
dce33f8bb806 intitial checkin ca parents: diff changeset	2058	^ item
dce33f8bb806 intitial checkin ca parents: diff changeset	2059	!
dce33f8bb806 intitial checkin ca parents: diff changeset	2060
dce33f8bb806 intitial checkin ca parents: diff changeset	2061	remove:stringOrNumber
dce33f8bb806 intitial checkin ca parents: diff changeset	2062	"remove the first item which is assigned to stringOrNumber;
dce33f8bb806 intitial checkin ca parents: diff changeset	2063	if found, remove and return it
dce33f8bb806 intitial checkin ca parents: diff changeset	2064	"
dce33f8bb806 intitial checkin ca parents: diff changeset	2065	\|item\|
dce33f8bb806 intitial checkin ca parents: diff changeset	2066
dce33f8bb806 intitial checkin ca parents: diff changeset	2067	(item := self itemAt:stringOrNumber) notNil ifTrue:[
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	2068	items remove:item.
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	2069	item destroy.
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	2070	items isEmpty ifTrue:[items := nil].
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	2071	self mustRearrange.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2072	].
dce33f8bb806 intitial checkin ca parents: diff changeset	2073	^ item
dce33f8bb806 intitial checkin ca parents: diff changeset	2074	!
dce33f8bb806 intitial checkin ca parents: diff changeset	2075
dce33f8bb806 intitial checkin ca parents: diff changeset	2076	removeAll
dce33f8bb806 intitial checkin ca parents: diff changeset	2077	"remove all items and submenus
dce33f8bb806 intitial checkin ca parents: diff changeset	2078	"
dce33f8bb806 intitial checkin ca parents: diff changeset	2079	self disabledRedrawDo:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	2080	self selection:nil.
93426020ceed * empty log message * ca parents: 2216 diff changeset	2081	groupSizes := nil.
93426020ceed * empty log message * ca parents: 2216 diff changeset	2082	items notNil ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	2083	items copy do:[:el\| el destroy ].
93426020ceed * empty log message * ca parents: 2216 diff changeset	2084	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	2085	items := nil
2050 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
ef5517d7a2d0 do not destroy myself after accepting (for PopUpList) Claus Gittinger <cg@exept.de> parents: 2048 diff changeset	2088	"Modified: / 15.11.2001 / 17:02:51 / cg"
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2089	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	2090
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2091	!MenuPanel methodsFor:'change & update'!
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2092
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2093	update:something with:aParameter from:changedObject
498 b4c341497621 bug fixes: ca parents: 475 diff changeset	2094
b4c341497621 bug fixes: ca parents: 475 diff changeset	2095	changedObject == menuHolder ifTrue:[^ self menu:(menuHolder value)].
b4c341497621 bug fixes: ca parents: 475 diff changeset	2096	changedObject == enableChannel ifTrue:[^ self enabled:(enableChannel value)].
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2097
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2098	super update:something with:aParameter from:changedObject
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2099	! !
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2100
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2101	!MenuPanel methodsFor:'converting'!
dce33f8bb806 intitial checkin ca parents: diff changeset	2102
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2103	asMenu
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2104	"convert contents to menu
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2105	"
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2106	\|menu\|
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2107
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2108	menu := Menu new.
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2109	menu groupSizes:groupSizes.
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2110	self do:[:anItem\| menu addItem:(anItem asMenuItem) ].
2059 c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	2111	^ menu
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2112	!
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2113
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2114	fromSpec:aMenuSpec
dce33f8bb806 intitial checkin ca parents: diff changeset	2115	"build from spec
dce33f8bb806 intitial checkin ca parents: diff changeset	2116	"
dce33f8bb806 intitial checkin ca parents: diff changeset	2117	\|menu\|
dce33f8bb806 intitial checkin ca parents: diff changeset	2118
dce33f8bb806 intitial checkin ca parents: diff changeset	2119	menu := Menu new.
dce33f8bb806 intitial checkin ca parents: diff changeset	2120	menu fromLiteralArrayEncoding:aMenuSpec.
dce33f8bb806 intitial checkin ca parents: diff changeset	2121	self menu:menu
dce33f8bb806 intitial checkin ca parents: diff changeset	2122
dce33f8bb806 intitial checkin ca parents: diff changeset	2123	!
dce33f8bb806 intitial checkin ca parents: diff changeset	2124
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2125	menu:aMenu
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2126	"convert to Menu
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2127	"
dce33f8bb806 intitial checkin ca parents: diff changeset	2128	self disabledRedrawDo:[
2232 5784671fb497 when searching for a sumbenus application, do NOT Claus Gittinger <cg@exept.de> parents: 2231 diff changeset	2129	\|menu newItems menuReceiver\|
5784671fb497 when searching for a sumbenus application, do NOT Claus Gittinger <cg@exept.de> parents: 2231 diff changeset	2130
5784671fb497 when searching for a sumbenus application, do NOT Claus Gittinger <cg@exept.de> parents: 2231 diff changeset	2131	self removeAll.
5784671fb497 when searching for a sumbenus application, do NOT Claus Gittinger <cg@exept.de> parents: 2231 diff changeset	2132
5784671fb497 when searching for a sumbenus application, do NOT Claus Gittinger <cg@exept.de> parents: 2231 diff changeset	2133	(menu := aMenu) notNil ifTrue:[
5784671fb497 when searching for a sumbenus application, do NOT Claus Gittinger <cg@exept.de> parents: 2231 diff changeset	2134	(aMenu isCollection) ifTrue:[
5784671fb497 when searching for a sumbenus application, do NOT Claus Gittinger <cg@exept.de> parents: 2231 diff changeset	2135	menu := Menu new.
5784671fb497 when searching for a sumbenus application, do NOT Claus Gittinger <cg@exept.de> parents: 2231 diff changeset	2136	menu fromLiteralArrayEncoding:aMenu.
5784671fb497 when searching for a sumbenus application, do NOT Claus Gittinger <cg@exept.de> parents: 2231 diff changeset	2137	] ifFalse:[
5784671fb497 when searching for a sumbenus application, do NOT Claus Gittinger <cg@exept.de> parents: 2231 diff changeset	2138	menuReceiver := menu receiver.
5784671fb497 when searching for a sumbenus application, do NOT Claus Gittinger <cg@exept.de> parents: 2231 diff changeset	2139	menuReceiver notNil ifTrue:[
5784671fb497 when searching for a sumbenus application, do NOT Claus Gittinger <cg@exept.de> parents: 2231 diff changeset	2140	receiver := menuReceiver.
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	].
5784671fb497 when searching for a sumbenus application, do NOT Claus Gittinger <cg@exept.de> parents: 2231 diff changeset	2143	(newItems := menu menuItems) size > 0 ifTrue:[
5784671fb497 when searching for a sumbenus application, do NOT Claus Gittinger <cg@exept.de> parents: 2231 diff changeset	2144	items := newItems collect:[:ni \|
5784671fb497 when searching for a sumbenus application, do NOT Claus Gittinger <cg@exept.de> parents: 2231 diff changeset	2145	\|i\|
5784671fb497 when searching for a sumbenus application, do NOT Claus Gittinger <cg@exept.de> parents: 2231 diff changeset	2146
5784671fb497 when searching for a sumbenus application, do NOT Claus Gittinger <cg@exept.de> parents: 2231 diff changeset	2147	i:= Item in:self.
5784671fb497 when searching for a sumbenus application, do NOT Claus Gittinger <cg@exept.de> parents: 2231 diff changeset	2148	i menuItem:ni.
5784671fb497 when searching for a sumbenus application, do NOT Claus Gittinger <cg@exept.de> parents: 2231 diff changeset	2149	i.
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	].
5784671fb497 when searching for a sumbenus application, do NOT Claus Gittinger <cg@exept.de> parents: 2231 diff changeset	2152	self groupSizes:(menu groupSizes).
5784671fb497 when searching for a sumbenus application, do NOT Claus Gittinger <cg@exept.de> parents: 2231 diff changeset	2153	]
1063 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
08b7ca464437 dont show accelerators for horizontal layouts Claus Gittinger <cg@exept.de> parents: 1054 diff changeset	2156	"Modified: / 8.8.1998 / 02:05:04 / cg"
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2157	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	2158
2681 2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	2159	!MenuPanel methodsFor:'dependents access'!
2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	2160
2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	2161	addDependencies
2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	2162	"add all dependencies
2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	2163	"
2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	2164	self do:[:anItem\| anItem addDependencies ].
2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	2165
2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	2166	menuHolder notNil ifTrue:[menuHolder addDependent:self].
2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	2167	enableChannel notNil ifTrue:[enableChannel addDependent:self].
2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	2168	!
2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	2169
2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	2170	removeDependencies
2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	2171	"remove all dependencies
2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	2172	"
2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	2173	self do:[:anItem\| anItem removeDependencies ].
2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	2174
2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	2175	menuHolder notNil ifTrue:[menuHolder removeDependent:self].
2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	2176	enableChannel notNil ifTrue:[enableChannel removeDependent:self].
2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	2177	! !
2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	2178
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2179	!MenuPanel methodsFor:'drawing'!
dce33f8bb806 intitial checkin ca parents: diff changeset	2180
dce33f8bb806 intitial checkin ca parents: diff changeset	2181	disabledRedrawDo:aBlock
dce33f8bb806 intitial checkin ca parents: diff changeset	2182	"evaluate a block without redrawing within the block; after processing
dce33f8bb806 intitial checkin ca parents: diff changeset	2183	of the block a redraw might be performed
dce33f8bb806 intitial checkin ca parents: diff changeset	2184	"
dce33f8bb806 intitial checkin ca parents: diff changeset	2185	\|state\|
dce33f8bb806 intitial checkin ca parents: diff changeset	2186
dce33f8bb806 intitial checkin ca parents: diff changeset	2187	state := mustRearrange.
dce33f8bb806 intitial checkin ca parents: diff changeset	2188	mustRearrange := true.
dce33f8bb806 intitial checkin ca parents: diff changeset	2189	aBlock value.
dce33f8bb806 intitial checkin ca parents: diff changeset	2190	mustRearrange := state.
dce33f8bb806 intitial checkin ca parents: diff changeset	2191	self mustRearrange
dce33f8bb806 intitial checkin ca parents: diff changeset	2192	!
dce33f8bb806 intitial checkin ca parents: diff changeset	2193
1690 38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2194	drawButtonEdgesFor:anItem level:aLevel
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2195	\|layout\|
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2196
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2197	aLevel ~~ 0 ifTrue:[
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2198	layout := anItem layout.
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2199
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2200	styleSheet is3D ifFalse:[
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2201	self displayRectangle:layout.
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2202	] ifTrue:[
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2203	self drawEdgesForX:(layout left)
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2204	y:(layout top)
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2205	width:(layout width)
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2206	height:(layout height)
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2207	level:aLevel
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	2208	shadow:(self buttonShadowColor)
93426020ceed * empty log message * ca parents: 2216 diff changeset	2209	light:(self buttonLightColor)
93426020ceed * empty log message * ca parents: 2216 diff changeset	2210	halfShadow:(self buttonHalfShadowColor)
93426020ceed * empty log message * ca parents: 2216 diff changeset	2211	halfLight:(self buttonHalfLightColor)
93426020ceed * empty log message * ca parents: 2216 diff changeset	2212	style:(self buttonEdgeStyle)
1690 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	!
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2216
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2217	drawItemsX:x y:y width:w height:h
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2218	"redraw items and groups in a damage
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2219	"
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2220	\|isVertical item layout prevClip
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2221	x1 "{ Class:SmallInteger }"
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2222	x2 "{ Class:SmallInteger }"
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2223	y1 "{ Class:SmallInteger }"
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2224	y2 "{ Class:SmallInteger }"
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2225	start "{ Class:SmallInteger }"
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2226	stop "{ Class:SmallInteger }"
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2227	size "{ Class:SmallInteger }"
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2228	groupDivInset "{ Class:SmallInteger }"
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2229	\|
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2230
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2231	size := items size.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2232	isVertical := self verticalLayout.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2233
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2234	isVertical ifTrue:[
2064 0e0d1fe431fb checkin from browser Claus Gittinger <cg@exept.de> parents: 2063 diff changeset	2235	start := items findFirst:[:el\| \|l\| l := el layout. l notNil and:[l bottom > y]].
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2236	start == 0 ifTrue:[ ^ self ].
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2237	y1 := y + h.
2064 0e0d1fe431fb checkin from browser Claus Gittinger <cg@exept.de> parents: 2063 diff changeset	2238	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	2239	startingAt:(start + 1).
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2240	] ifFalse:[
2064 0e0d1fe431fb checkin from browser Claus Gittinger <cg@exept.de> parents: 2063 diff changeset	2241	start := items findFirst:[:el\| \|l\| l := el layout. l notNil and:[l right > x ]].
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2242	start == 0 ifTrue:[ ^ self ].
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2243	x1 := x + w.
2064 0e0d1fe431fb checkin from browser Claus Gittinger <cg@exept.de> parents: 2063 diff changeset	2244	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	2245	startingAt:(start + 1).
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2246	].
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2247	stop == 0 ifTrue:[stop := size] ifFalse:[stop := stop - 1].
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2248
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	2249	(groupSizes size ~~ 0 and:[showGroupDivider]) ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	2250	groupDivInset := self groupDividerSize // 2.
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2251
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2252	groupDivInset ~~ 0 ifTrue:[
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2253	(start ~~ 1 and:[self hasGroupDividerAt:(start-1)]) ifTrue:[
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2254	start := start - 1
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2255	]
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2256	].
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2257	] ifFalse:[
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2258	groupDivInset := 0
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2259	].
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2260
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2261	prevClip := clipRect.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2262	self clippingRectangle:(Rectangle left:x top:y width:w height:h).
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2263
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2264	start to:stop do:[:i\|
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2265	item := items at:i.
2485 b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	2266	item draw.
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2267
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2268	(groupDivInset ~~ 0 and:[i ~~ size and:[self hasGroupDividerAt:i]]) ifTrue:[
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2269	layout := item layout.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2270
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2271	isVertical ifTrue:[
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2272	x1 := layout left.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2273	x2 := layout right.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2274	y1 := layout bottom + groupDivInset.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2275	y2 := y1.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2276	] ifFalse:[
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2277	y1 := layout top.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2278	y2 := layout bottom.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2279	x1 := layout right + groupDivInset.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2280	x2 := x1.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2281	].
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2282	self paint:shadowColor.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2283	self displayLineFromX:x1 y:y1 toX:x2 y:y2.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2284	self paint:lightColor.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2285
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2286	isVertical ifTrue:[y1 := y1 + 1. y2 := y1 ]
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2287	ifFalse:[x1 := x1 + 1. x2 := x1 ].
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2288
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2289	self displayLineFromX:x1 y:y1 toX:x2 y:y2
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2290	]
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2291	].
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2292	self clippingRectangle:prevClip.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2293	!
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2294
1690 38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2295	drawLabelEdgeFor:anItem selected:isSelected
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2296	\|level layout\|
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2297
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2298	isSelected ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	2299	level := styleSheet at:#'menu.hilightLevel' default:0.
1690 38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2300	] ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	2301	anItem == enteredItem ifTrue:[ level := self enteredLevel ]
93426020ceed * empty log message * ca parents: 2216 diff changeset	2302	ifFalse:[ level := 0 ]
1690 38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2303	].
1081 fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	2304
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	2305	level ~~ 0 ifTrue:[
1690 38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2306	layout := anItem layout.
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2307
1691 8e1a9d7a298e bugfix in drawLableEdge... ca parents: 1690 diff changeset	2308	self drawEdgesForX:(layout left)
8e1a9d7a298e bugfix in drawLableEdge... ca parents: 1690 diff changeset	2309	y:(layout top)
8e1a9d7a298e bugfix in drawLableEdge... ca parents: 1690 diff changeset	2310	width:(layout width)
8e1a9d7a298e bugfix in drawLableEdge... ca parents: 1690 diff changeset	2311	height:(layout height)
1690 38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2312	level:level
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2313	].
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2314	!
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2315
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2316	drawScrollerAt:aDirection bounds:bounds
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2317	"draw a scroller
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2318	"
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2319	\|scrolling icon level x y w h\|
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2320
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2321	x := bounds left.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2322	y := bounds top.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2323	w := bounds width.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2324	h := bounds height.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2325
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	2326	scrolling := self scrollActivity.
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2327
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2328	(scrolling activeMenu == self and:[scrolling direction == aDirection]) ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	2329	level := -2
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2330	] ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	2331	level := 1
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2332	].
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2333
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2334	level ~~ 0 ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	2335	self drawEdgesForX:x y:y width:w height:h level:level.
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2336	].
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2337	icon := scrolling iconAt:aDirection on:self.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2338
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2339	icon displayOn:self x:(x + (w - icon width // 2))
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	2340	y:(y + (h - icon height // 2)).
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2341	!
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2342
1690 38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2343	invalidateItem:anItem repairNow:aBool
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2344	"an item changed; invalidate the items layout
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2345	"
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2346	\|layout\|
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2347
2073 26c30a04413d do not invalidate if sensor is nil Claus Gittinger <cg@exept.de> parents: 2069 diff changeset	2348	self sensor isNil ifTrue:[^ self].
26c30a04413d do not invalidate if sensor is nil Claus Gittinger <cg@exept.de> parents: 2069 diff changeset	2349
1690 38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2350	(mustRearrange not and:[shown]) ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	2351	layout := anItem layout.
93426020ceed * empty log message * ca parents: 2216 diff changeset	2352
93426020ceed * empty log message * ca parents: 2216 diff changeset	2353	(layout bottom > margin and:[layout top < (height - margin)]) ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	2354	self invalidate:(layout copy insetBy:-1) repairNow:aBool
93426020ceed * empty log message * ca parents: 2216 diff changeset	2355	]
1728 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
fc0bd6482feb kludge redraw bug fix Claus Gittinger <cg@exept.de> parents: 1727 diff changeset	2358	"Modified: / 29.2.2000 / 11:28:59 / cg"
746 bd252bbe276f better drawing routine for button behavior tz parents: 739 diff changeset	2359	!
bd252bbe276f better drawing routine for button behavior tz parents: 739 diff changeset	2360
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2361	mustRearrange
910 5c9592e782fd always repairNow (to make change visible immediately) Claus Gittinger <cg@exept.de> parents: 898 diff changeset	2362	"force rearrange (i.e. set the rearrange flag)
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2363	"
2080 f37673e44158 Fix rearrangeItem stuff Stefan Vogel <sv@exept.de> parents: 2079 diff changeset	2364	mustRearrange ifFalse:[
2659 3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	2365	mustRearrange := true.
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	2366	self invalidate "/ RepairNow:true
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2367	]
590 3177528b5f95 checkin from browser Claus Gittinger <cg@exept.de> parents: 587 diff changeset	2368
911 6b1ad8b039c5 no, repairNow should not be needed here Claus Gittinger <cg@exept.de> parents: 910 diff changeset	2369	"Modified: / 6.6.1998 / 19:51:07 / cg"
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2370	!
dce33f8bb806 intitial checkin ca parents: diff changeset	2371
710 4453e463ff16 add new feature: ca parents: 709 diff changeset	2372	rearrangeGroups
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2373	"implements the groupIdentifier #right in a horizontal menu
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2374	"
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2375	\|layout point
710 4453e463ff16 add new feature: ca parents: 709 diff changeset	2376	dltX "{ Class:SmallInteger }"
4453e463ff16 add new feature: ca parents: 709 diff changeset	2377	start "{ Class:SmallInteger }"
4453e463ff16 add new feature: ca parents: 709 diff changeset	2378	\|
4453e463ff16 add new feature: ca parents: 709 diff changeset	2379
4453e463ff16 add new feature: ca parents: 709 diff changeset	2380	(self isPopUpView or:[self verticalLayout]) ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	2381	^ self
710 4453e463ff16 add new feature: ca parents: 709 diff changeset	2382	].
4453e463ff16 add new feature: ca parents: 709 diff changeset	2383
4453e463ff16 add new feature: ca parents: 709 diff changeset	2384	layout := items last layout.
4453e463ff16 add new feature: ca parents: 709 diff changeset	2385
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2386	(dltX := width - margin - layout right) <= 0 ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	2387	^ self "/ no free space
710 4453e463ff16 add new feature: ca parents: 709 diff changeset	2388	].
4453e463ff16 add new feature: ca parents: 709 diff changeset	2389	start := items findFirst:[:anItem\| anItem startGroup == #right ].
4453e463ff16 add new feature: ca parents: 709 diff changeset	2390
4453e463ff16 add new feature: ca parents: 709 diff changeset	2391	start == 0 ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	2392	^ self "/ no item detected
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2393	].
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2394	point := dltX @ 0.
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2395
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2396	"/ move items layout to right
710 4453e463ff16 add new feature: ca parents: 709 diff changeset	2397
4453e463ff16 add new feature: ca parents: 709 diff changeset	2398	items from:start do:[:anItem\|
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	2399	anItem isVisible ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	2400	anItem layout moveBy:point.
93426020ceed * empty log message * ca parents: 2216 diff changeset	2401	]
710 4453e463ff16 add new feature: ca parents: 709 diff changeset	2402	].
4453e463ff16 add new feature: ca parents: 709 diff changeset	2403	!
4453e463ff16 add new feature: ca parents: 709 diff changeset	2404
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2405	rearrangeItems
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2406	"recompute the layout of each item
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2407	!!!!!! changes have influence on method #preferredExtentOfItems !!!!!!
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2408	"
1791 bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	2409	\|isVertical extent isPopUpMenu
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	2410	x "{ Class:SmallInteger }"
93426020ceed * empty log message * ca parents: 2216 diff changeset	2411	y "{ Class:SmallInteger }"
93426020ceed * empty log message * ca parents: 2216 diff changeset	2412	x0 "{ Class:SmallInteger }"
93426020ceed * empty log message * ca parents: 2216 diff changeset	2413	y0 "{ Class:SmallInteger }"
93426020ceed * empty log message * ca parents: 2216 diff changeset	2414	x1 "{ Class:SmallInteger }"
93426020ceed * empty log message * ca parents: 2216 diff changeset	2415	y1 "{ Class:SmallInteger }"
93426020ceed * empty log message * ca parents: 2216 diff changeset	2416	size "{ Class:SmallInteger }"
93426020ceed * empty log message * ca parents: 2216 diff changeset	2417	insetX "{ Class:SmallInteger }"
93426020ceed * empty log message * ca parents: 2216 diff changeset	2418	insetY "{ Class:SmallInteger }"
93426020ceed * empty log message * ca parents: 2216 diff changeset	2419	labelInsetX "{ Class:SmallInteger }"
93426020ceed * empty log message * ca parents: 2216 diff changeset	2420	labelInsetY "{ Class:SmallInteger }"
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	2421	buttonInsetX "{ Class:SmallInteger }"
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	2422	buttonInsetY "{ Class:SmallInteger }"
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	2423	itemMargin "{ Class:SmallInteger }"
93426020ceed * empty log message * ca parents: 2216 diff changeset	2424	itemSpace "{ Class:SmallInteger }"
93426020ceed * empty log message * ca parents: 2216 diff changeset	2425	groupDividerSize "{ Class:SmallInteger }"
710 4453e463ff16 add new feature: ca parents: 709 diff changeset	2426	\|
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2427	(mustRearrange and:[(size := items size) ~~ 0]) ifFalse:[
1478 38f08dec8e34 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	2428	mustRearrange := false.
2433 49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	2429	^ self
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2430	].
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	2431
2080 f37673e44158 Fix rearrangeItem stuff Stefan Vogel <sv@exept.de> parents: 2079 diff changeset	2432	"/ DON'T SET THIS!!
f37673e44158 Fix rearrangeItem stuff Stefan Vogel <sv@exept.de> parents: 2079 diff changeset	2433	"/ item layout: below of first item -> item invalidate
f37673e44158 Fix rearrangeItem stuff Stefan Vogel <sv@exept.de> parents: 2079 diff changeset	2434	"/ -> menuPanel invalidateItem:repairDamage:
f37673e44158 Fix rearrangeItem stuff Stefan Vogel <sv@exept.de> parents: 2079 diff changeset	2435	"/ -> invalidate:rapairDamage:
f37673e44158 Fix rearrangeItem stuff Stefan Vogel <sv@exept.de> parents: 2079 diff changeset	2436	"/ -> redrawX:y:width:height:
f37673e44158 Fix rearrangeItem stuff Stefan Vogel <sv@exept.de> parents: 2079 diff changeset	2437	"/ tries to get uninitialized layout from second item.
f37673e44158 Fix rearrangeItem stuff Stefan Vogel <sv@exept.de> parents: 2079 diff changeset	2438	"/ This happens in a modal debugger!!
f37673e44158 Fix rearrangeItem stuff Stefan Vogel <sv@exept.de> parents: 2079 diff changeset	2439	"/ mustRearrange := false.
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	2440	isVertical := self verticalLayout.
93426020ceed * empty log message * ca parents: 2216 diff changeset	2441	itemSpace := self itemSpace.
93426020ceed * empty log message * ca parents: 2216 diff changeset	2442	groupDividerSize := self groupDividerSize.
93426020ceed * empty log message * ca parents: 2216 diff changeset	2443	buttonInsetX := self buttonInsetX.
93426020ceed * empty log message * ca parents: 2216 diff changeset	2444	buttonInsetY := self buttonInsetY.
93426020ceed * empty log message * ca parents: 2216 diff changeset	2445	isPopUpMenu := self isPopUpView.
1791 bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	2446
bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	2447	isPopUpMenu ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	2448	labelInsetX := labelInsetY := self enteredLevel abs.
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2449	] ifTrue:[
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	2450	labelInsetX := labelInsetY := 0
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2451	].
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2452
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2453	(isPopUpMenu or:[explicitExtent ~~ true]) ifTrue:[ \|savExt maxExt\|
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2454	savExt := extent := self preferredExtent copy.
1478 38f08dec8e34 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	2455
1791 bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	2456	isPopUpMenu ifFalse:[
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2457	isVertical ifTrue:[extent y:1.0] ifFalse:[extent x:1.0]
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2458	] ifTrue:[
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2459	savExt := extent copy.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2460	maxExt := self maxExtent.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2461
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2462	isVertical ifTrue:[
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2463	extent y:(extent y min:(maxExt y))
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2464	] ifFalse:[
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2465	extent x:(extent x min:(maxExt x))
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2466	]
1478 38f08dec8e34 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	2467	].
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2468	self extent:extent.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2469	extent := savExt.
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2470	] ifFalse:[
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2471	extent := self computeExtent
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2472	].
1082 382324ddce3f support and additional buttonSpacing (for normal and win95 styles) Claus Gittinger <cg@exept.de> parents: 1081 diff changeset	2473
1093 7cb44303b016 margin fixes Claus Gittinger <cg@exept.de> parents: 1090 diff changeset	2474	x := y := margin.
7cb44303b016 margin fixes Claus Gittinger <cg@exept.de> parents: 1090 diff changeset	2475
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2476	isVertical ifFalse:[
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2477	y0 := margin.
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2478	y1 := extent y - margin.
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2479
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2480	items keysAndValuesDo:[:anIndex :el\|
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2481	el isVisible ifFalse:[
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2482	el layout:(Rectangle left:x top:y0 right:x bottom:y1)
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2483	] ifTrue:[
1478 38f08dec8e34 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	2484	el isButton ifTrue:[
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	2485	insetX := buttonInsetX.
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	2486	insetY := buttonInsetY.
2062 31ba9af25394 checkin from browser Claus Gittinger <cg@exept.de> parents: 2061 diff changeset	2487	] ifFalse:[
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	2488	insetX := labelInsetX.
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	2489	insetY := labelInsetY.
1478 38f08dec8e34 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	2490	].
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	2491	x0 := x + insetX.
2171 90a7393eb53c * empty log message * Claus Gittinger <cg@exept.de> parents: 2170 diff changeset	2492	x1 := x0 + (el preferredExtent x).
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	2493	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	2494	x := x1 + insetX.
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2495
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2496	size ~~ anIndex ifTrue:[
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2497	(self hasGroupDividerAt:anIndex) ifTrue:[
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2498	x := x + groupDividerSize
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2499	] ifFalse:[
2433 49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	2500	el needsItemSpaceWhenDrawing ifTrue:[
1723 f633725a0ace use itemSpace only for horizontal menus and between labeled items ca parents: 1719 diff changeset	2501	x := x + itemSpace
f633725a0ace use itemSpace only for horizontal menus and between labeled items ca parents: 1719 diff changeset	2502	]
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2503	]
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2504	]
1478 38f08dec8e34 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	2505	].
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2506	].
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2507	] ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	2508	itemMargin := self itemMargin.
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2509	x0 := margin.
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	2510	x1 := extent x - margin - itemMargin. "/ -1
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2511
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2512	items keysAndValuesDo:[:anIndex :el\|
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2513	el isVisible ifFalse:[
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2514	el layout:(Rectangle left:x0 top:y right:x1 bottom:y)
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2515	] ifTrue:[
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2516	el isButton ifTrue:[
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	2517	insetX := buttonInsetX.
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	2518	insetY := buttonInsetY.
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2519	] ifFalse:[
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	2520	insetX := labelInsetX.
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	2521	insetY := labelInsetY.
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2522	].
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	2523	y0 := y + insetY.
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2524	y1 := y0 + el preferredExtent y.
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	2525	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	2526	y := y1 + insetY.
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2527
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2528	size ~~ anIndex ifTrue:[
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2529	(self hasGroupDividerAt:anIndex) ifTrue:[
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2530	y := y + groupDividerSize
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2531	]
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2532	]
1478 38f08dec8e34 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	2533	]
38f08dec8e34 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	2534	]
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2535	].
710 4453e463ff16 add new feature: ca parents: 709 diff changeset	2536	self rearrangeGroups.
2048 ba472f3f46c7 code cleanup Claus Gittinger <cg@exept.de> parents: 2047 diff changeset	2537	selection notNil ifTrue:[self makeItemVisible:selection].
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2538	mustRearrange := false.
2048 ba472f3f46c7 code cleanup Claus Gittinger <cg@exept.de> parents: 2047 diff changeset	2539
ba472f3f46c7 code cleanup Claus Gittinger <cg@exept.de> parents: 2047 diff changeset	2540	"Modified: / 13.11.2001 / 20:17:21 / cg"
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2541	!
dce33f8bb806 intitial checkin ca parents: diff changeset	2542
1217 c6a4c536aa8c care for items which change visibility via Claus Gittinger <cg@exept.de> parents: 1212 diff changeset	2543	rearrangeItemsIfItemVisibilityChanged
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2544	"check for items which can change its visibility;
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2545	if at least one item exists, rearrange all items
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2546	"
1464 3070de4c8b88 checkin from browser Claus Gittinger <cg@exept.de> parents: 1459 diff changeset	2547	items isNil ifTrue:[^ self].
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2548
1217 c6a4c536aa8c care for items which change visibility via Claus Gittinger <cg@exept.de> parents: 1212 diff changeset	2549	items do:[:item \|
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	2550	item canChangeVisibility ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	2551	mustRearrange := true.
93426020ceed * empty log message * ca parents: 2216 diff changeset	2552	self rearrangeItems.
93426020ceed * empty log message * ca parents: 2216 diff changeset	2553	^ self
93426020ceed * empty log message * ca parents: 2216 diff changeset	2554	].
1217 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	!
c6a4c536aa8c care for items which change visibility via Claus Gittinger <cg@exept.de> parents: 1212 diff changeset	2557
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2558	redrawX:x y:y width:w height:h
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2559	"redraw a damage
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2560	"
2052 61367c7a47aa * empty log message * Claus Gittinger <cg@exept.de> parents: 2051 diff changeset	2561	\|y0 y1 x0 x1 bounds mustDrawPrevScroller mustDrawNextScroller\|
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2562
710 4453e463ff16 add new feature: ca parents: 709 diff changeset	2563	(shown and:[w ~~ 0]) ifFalse:[^ self].
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2564
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2565	mustRearrange ifTrue:[
2569 bfe9e33b545e not ifTrue -> ifFalse Claus Gittinger <cg@exept.de> parents: 2550 diff changeset	2566	self isPopUpView ifFalse:[explicitExtent := true].
1387 ad7a920fdf61 less flicker by using a clipRect in redraw Claus Gittinger <cg@exept.de> parents: 1382 diff changeset	2567	self rearrangeItems.
2569 bfe9e33b545e not ifTrue -> ifFalse Claus Gittinger <cg@exept.de> parents: 2550 diff changeset	2568	self invalidate.
bfe9e33b545e not ifTrue -> ifFalse Claus Gittinger <cg@exept.de> parents: 2550 diff changeset	2569	^ self
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2570	].
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	2571	self paint:(self viewBackground).
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2572	self clearRectangleX:x y:y width:w height:h.
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2573
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2574	items size == 0 ifTrue:[
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2575	^ self
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2576	].
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2577	y0 := y.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2578	y1 := y + h.
2018 2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	2579	x0 := x.
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	2580	x1 := x + w.
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2581
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2582	self hasScrollers ifTrue:[
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2583	(self hasScrollerAt:#PREV) ifTrue:[
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2584	bounds := self scrollerBoundsAt:#PREV.
2052 61367c7a47aa * empty log message * Claus Gittinger <cg@exept.de> parents: 2051 diff changeset	2585	mustDrawPrevScroller := false.
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2586
2018 2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	2587	self verticalLayout ifTrue:[
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	2588	bounds bottom > y ifTrue:[
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	2589	y0 := bounds bottom.
2052 61367c7a47aa * empty log message * Claus Gittinger <cg@exept.de> parents: 2051 diff changeset	2590	mustDrawPrevScroller := true.
2018 2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	2591	].
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	2592	] ifFalse:[
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	2593	bounds right > x ifTrue:[
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	2594	x0 := bounds right.
2052 61367c7a47aa * empty log message * Claus Gittinger <cg@exept.de> parents: 2051 diff changeset	2595	mustDrawPrevScroller := true.
2018 2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	2596	].
2052 61367c7a47aa * empty log message * Claus Gittinger <cg@exept.de> parents: 2051 diff changeset	2597	].
61367c7a47aa * empty log message * Claus Gittinger <cg@exept.de> parents: 2051 diff changeset	2598	mustDrawPrevScroller ifTrue:[
61367c7a47aa * empty log message * Claus Gittinger <cg@exept.de> parents: 2051 diff changeset	2599	self drawScrollerAt:#PREV bounds:bounds.
61367c7a47aa * empty log message * Claus Gittinger <cg@exept.de> parents: 2051 diff changeset	2600	].
1387 ad7a920fdf61 less flicker by using a clipRect in redraw Claus Gittinger <cg@exept.de> parents: 1382 diff changeset	2601	].
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2602
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2603	(self hasScrollerAt:#NEXT) ifTrue:[
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2604	bounds := self scrollerBoundsAt:#NEXT.
2052 61367c7a47aa * empty log message * Claus Gittinger <cg@exept.de> parents: 2051 diff changeset	2605	mustDrawNextScroller := false.
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2606
2018 2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	2607	self verticalLayout ifTrue:[
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	2608	bounds top < y1 ifTrue:[
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	2609	y1 := bounds top.
2052 61367c7a47aa * empty log message * Claus Gittinger <cg@exept.de> parents: 2051 diff changeset	2610	mustDrawNextScroller := true.
2018 2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	2611	]
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	2612	] ifFalse:[
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	2613	bounds left < x1 ifTrue:[
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	2614	x1 := bounds left.
2052 61367c7a47aa * empty log message * Claus Gittinger <cg@exept.de> parents: 2051 diff changeset	2615	mustDrawNextScroller := true.
2018 2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	2616	]
2052 61367c7a47aa * empty log message * Claus Gittinger <cg@exept.de> parents: 2051 diff changeset	2617	].
61367c7a47aa * empty log message * Claus Gittinger <cg@exept.de> parents: 2051 diff changeset	2618	mustDrawNextScroller ifTrue:[
61367c7a47aa * empty log message * Claus Gittinger <cg@exept.de> parents: 2051 diff changeset	2619	self drawScrollerAt:#NEXT bounds:bounds.
61367c7a47aa * empty log message * Claus Gittinger <cg@exept.de> parents: 2051 diff changeset	2620	].
1387 ad7a920fdf61 less flicker by using a clipRect in redraw Claus Gittinger <cg@exept.de> parents: 1382 diff changeset	2621	]
ad7a920fdf61 less flicker by using a clipRect in redraw Claus Gittinger <cg@exept.de> parents: 1382 diff changeset	2622	].
2018 2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	2623	(y1 > y0 and:[x1 > x0]) ifTrue:[
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	2624	self drawItemsX:x0 y:y0 width:(x1 - x0) height:(y1 - y0)
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2625	].
2052 61367c7a47aa * empty log message * Claus Gittinger <cg@exept.de> parents: 2051 diff changeset	2626
61367c7a47aa * empty log message * Claus Gittinger <cg@exept.de> parents: 2051 diff changeset	2627	"Modified: / 15.11.2001 / 20:57:32 / cg"
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2628	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	2629
dce33f8bb806 intitial checkin ca parents: diff changeset	2630	!MenuPanel methodsFor:'enumerting & searching'!
dce33f8bb806 intitial checkin ca parents: diff changeset	2631
dce33f8bb806 intitial checkin ca parents: diff changeset	2632	collect:aOneArgBlock
dce33f8bb806 intitial checkin ca parents: diff changeset	2633	"evaluate the argument, aOneArgBlock for every item in the menuPanel
dce33f8bb806 intitial checkin ca parents: diff changeset	2634	and return a collection of the results
dce33f8bb806 intitial checkin ca parents: diff changeset	2635	"
dce33f8bb806 intitial checkin ca parents: diff changeset	2636	items notNil ifTrue:[^ items collect:aOneArgBlock ].
2059 c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	2637	^ nil
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2638	!
dce33f8bb806 intitial checkin ca parents: diff changeset	2639
dce33f8bb806 intitial checkin ca parents: diff changeset	2640	do:aOneArgBlock
dce33f8bb806 intitial checkin ca parents: diff changeset	2641	"evaluate the argument, aOneArgBlock for every item in the menuPanel.
dce33f8bb806 intitial checkin ca parents: diff changeset	2642	"
dce33f8bb806 intitial checkin ca parents: diff changeset	2643	items notNil ifTrue:[ items do:aOneArgBlock ].
dce33f8bb806 intitial checkin ca parents: diff changeset	2644
dce33f8bb806 intitial checkin ca parents: diff changeset	2645	!
dce33f8bb806 intitial checkin ca parents: diff changeset	2646
dce33f8bb806 intitial checkin ca parents: diff changeset	2647	findFirst:aOneArgBlock
dce33f8bb806 intitial checkin ca parents: diff changeset	2648	"find the first item, for which evaluation of the argument, aOneArgBlock
dce33f8bb806 intitial checkin ca parents: diff changeset	2649	returns true; return its index or 0 if none detected.
dce33f8bb806 intitial checkin ca parents: diff changeset	2650	"
dce33f8bb806 intitial checkin ca parents: diff changeset	2651	items notNil ifTrue:[ ^ items findFirst:aOneArgBlock ].
dce33f8bb806 intitial checkin ca parents: diff changeset	2652	^ 0
dce33f8bb806 intitial checkin ca parents: diff changeset	2653
dce33f8bb806 intitial checkin ca parents: diff changeset	2654	!
dce33f8bb806 intitial checkin ca parents: diff changeset	2655
dce33f8bb806 intitial checkin ca parents: diff changeset	2656	findLast:aOneArgBlock
dce33f8bb806 intitial checkin ca parents: diff changeset	2657	"find the last item, for which evaluation of the argument, aOneArgBlock
dce33f8bb806 intitial checkin ca parents: diff changeset	2658	returns true; return its index or 0 if none detected.
dce33f8bb806 intitial checkin ca parents: diff changeset	2659	"
dce33f8bb806 intitial checkin ca parents: diff changeset	2660	items notNil ifTrue:[ ^ items findLast:aOneArgBlock ].
dce33f8bb806 intitial checkin ca parents: diff changeset	2661	^ 0
dce33f8bb806 intitial checkin ca parents: diff changeset	2662
dce33f8bb806 intitial checkin ca parents: diff changeset	2663	!
dce33f8bb806 intitial checkin ca parents: diff changeset	2664
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2665	indexOf:something
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2666	"returns index of an item assigned to an index, nameKey, textLabel or value if symbol.
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2667	If no item match 0 is returned. No range checks are performed on a number argument
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2668	"
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2669	\|i v\|
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2670
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2671	something isNumber ifTrue:[ ^ something ].
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2672	something isNil ifTrue:[ ^ 0 ].
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2673
1218 6ce43fcb2603 code cleanup Claus Gittinger <cg@exept.de> parents: 1217 diff changeset	2674	i := self findFirst:[:el \| (el nameKey = something) or: [el = something]].
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2675
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2676	i ~~ 0 ifTrue:[
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	2677	^ i
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2678	].
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2679
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2680	something isSymbol ifTrue:[
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	2681	i := self findFirst:[:el\|
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	2682	v := el value.
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	2683	v isSymbol and:[v == something]
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	2684	].
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	2685	i ~~ 0 ifTrue:[
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	2686	^ i
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	2687	]
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2688	].
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2689
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2690	(something respondsTo:#string) ifTrue:[
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	2691	v := something string.
1218 6ce43fcb2603 code cleanup Claus Gittinger <cg@exept.de> parents: 1217 diff changeset	2692	^ self findFirst:[:el \| el textLabel = v].
6ce43fcb2603 code cleanup Claus Gittinger <cg@exept.de> parents: 1217 diff changeset	2693	].
6ce43fcb2603 code cleanup Claus Gittinger <cg@exept.de> parents: 1217 diff changeset	2694	^ 0
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2695	!
dce33f8bb806 intitial checkin ca parents: diff changeset	2696
706 d716edbdbe47 show separators bug cleaned tz parents: 689 diff changeset	2697	indexOfItem:anItem
d716edbdbe47 show separators bug cleaned tz parents: 689 diff changeset	2698	"returns the index of the item or 0
d716edbdbe47 show separators bug cleaned tz parents: 689 diff changeset	2699	"
d716edbdbe47 show separators bug cleaned tz parents: 689 diff changeset	2700	^ items notNil ifTrue:[items identityIndexOf:anItem] ifFalse:[0]
d716edbdbe47 show separators bug cleaned tz parents: 689 diff changeset	2701	!
d716edbdbe47 show separators bug cleaned tz parents: 689 diff changeset	2702
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2703	keysAndValuesDo:aTwoArgBlock
dce33f8bb806 intitial checkin ca parents: diff changeset	2704	"evaluate the argument, aTwoArgBlock for every item in the menuPanel.
dce33f8bb806 intitial checkin ca parents: diff changeset	2705	"
dce33f8bb806 intitial checkin ca parents: diff changeset	2706	items notNil ifTrue:[ items keysAndValuesDo:aTwoArgBlock ].
dce33f8bb806 intitial checkin ca parents: diff changeset	2707
dce33f8bb806 intitial checkin ca parents: diff changeset	2708	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	2709
dce33f8bb806 intitial checkin ca parents: diff changeset	2710	!MenuPanel methodsFor:'event handling'!
dce33f8bb806 intitial checkin ca parents: diff changeset	2711
dce33f8bb806 intitial checkin ca parents: diff changeset	2712	buttonMotion:state x:x y:y
dce33f8bb806 intitial checkin ca parents: diff changeset	2713	"open or close the corresponding submenus
dce33f8bb806 intitial checkin ca parents: diff changeset	2714	"
2046 012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	2715	\|menue motionPoint translatedPoint sensor\|
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2716
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	2717	self scrollActivity isActive ifTrue:[
2347 9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	2718	^ self
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2719	].
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2720
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2721	sensor := self sensor.
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2722
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2723	(sensor isNil or:[sensor hasButtonMotionEventFor:nil]) ifTrue:[
2347 9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	2724	^ self
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2725	].
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2726	menue := self detectGrabMenu.
1841 5d01716cc37c implement: triggerOnDown ca parents: 1836 diff changeset	2727
2046 012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	2728	motionPoint := x@y.
012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	2729	translatedPoint := menue translateGrabPoint:motionPoint.
2048 ba472f3f46c7 code cleanup Claus Gittinger <cg@exept.de> parents: 2047 diff changeset	2730	menue handleButtonMotion:state atPoint:translatedPoint.
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2731
2347 9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	2732	hideOnRelease := true.
9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	2733
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2734	(self isPopUpView or:[sensor anyButtonPressed]) ifTrue:[
2347 9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	2735	^ self
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2736	].
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2737
1786 f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	2738	(selection notNil and:[selection visibleSubmenu isNil]) ifTrue:[
2347 9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	2739	"/ 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	2740	(self containsPoint:motionPoint) ifFalse:[
9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	2741	^ self accept:nil
9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	2742	]
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2743	].
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2744
2048 ba472f3f46c7 code cleanup Claus Gittinger <cg@exept.de> parents: 2047 diff changeset	2745	"Modified: / 13.11.2001 / 20:21:49 / cg"
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2746	!
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2747
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2748	buttonPress:button x:x y:y
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2749	"any button pressed; open or close the corresponding submenus
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2750	"
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2751	\|menu point\|
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2752
2347 9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	2753	hideOnRelease := true.
9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	2754
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	2755	self scrollActivity stop.
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2756	point := x@y.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2757	menu := self detectMenuAtGrabPoint:point.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2758
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2759	menu isNil ifTrue:[
2133 293dadf237ad hide on buttonRelease outside (instead of buttonPress outside) Claus Gittinger <cg@exept.de> parents: 2132 diff changeset	2760	"/ self accept:nil
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2761	] ifFalse:[
2347 9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	2762	point := menu translateGrabPoint:point.
9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	2763	menu handleButtonPressAtPoint:point.
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2764	]
2046 012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	2765
012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	2766	"Modified: / 13.11.2001 / 14:12:32 / cg"
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2767	!
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2768
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2769	buttonRelease:button x:x y:y
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2770	"button release action; accept selection and close all views
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2771	"
2679 302ab06d7110 * empty log message * Claus Gittinger <cg@exept.de> parents: 2676 diff changeset	2772	\|topMenu dstMenu item srcPoint dstPoint subm hideMenuAndPerformAction
302ab06d7110 * empty log message * Claus Gittinger <cg@exept.de> parents: 2676 diff changeset	2773	buttonReleaseTime menuOpenTime ev\|
2199 61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	2774
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	2775	topMenu := self topMenu.
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	2776	topMenu openDelayed:nil.
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2777
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	2778	self scrollActivity stop ifTrue:[
2255 e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2779	^ self
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2780	].
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2781
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2782	dstMenu := topMenu activeMenu.
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2783
2679 302ab06d7110 * empty log message * Claus Gittinger <cg@exept.de> parents: 2676 diff changeset	2784	hideMenuAndPerformAction := dstMenu selection notNil or:[dstMenu isPopUpView not].
302ab06d7110 * empty log message * Claus Gittinger <cg@exept.de> parents: 2676 diff changeset	2785
302ab06d7110 * empty log message * Claus Gittinger <cg@exept.de> parents: 2676 diff changeset	2786	hideMenuAndPerformAction ifFalse:[
302ab06d7110 * empty log message * Claus Gittinger <cg@exept.de> parents: 2676 diff changeset	2787	hideOnRelease ifTrue:[
302ab06d7110 * empty log message * Claus Gittinger <cg@exept.de> parents: 2676 diff changeset	2788	buttonReleaseTime := Time millisecondClockValue.
302ab06d7110 * empty log message * Claus Gittinger <cg@exept.de> parents: 2676 diff changeset	2789	menuOpenTime := dstMenu mapTime.
302ab06d7110 * empty log message * Claus Gittinger <cg@exept.de> parents: 2676 diff changeset	2790	"/ t := windowGroup lastEvent timeStamp.
302ab06d7110 * empty log message * Claus Gittinger <cg@exept.de> parents: 2676 diff changeset	2791	hideMenuAndPerformAction := (OperatingSystem millisecondTimeDeltaBetween:buttonReleaseTime and:menuOpenTime)
302ab06d7110 * empty log message * Claus Gittinger <cg@exept.de> parents: 2676 diff changeset	2792	> (PopUpMenu maxClickTimeToStayOpen).
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
302ab06d7110 * empty log message * Claus Gittinger <cg@exept.de> parents: 2676 diff changeset	2796	hideMenuAndPerformAction ifTrue:[
2255 e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2797	srcPoint := x@y.
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2798
2255 e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2799	( (dstMenu := self detectMenuAtGrabPoint:srcPoint) notNil
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2800	and:[(item := dstMenu selection) notNil]
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2801	) ifTrue:[
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2802	item visibleSubmenu notNil ifTrue:[
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2803	dstMenu selection:nil.
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2804
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2805	(selection isNil and:[self isPopUpView not]) ifTrue:[
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2806	self accept:nil
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2807	].
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2808	^ self
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	].
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2811	subm := item currentSubmenu.
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2812
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	2813	subm notNil ifTrue:[
2255 e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2814	subm shown ifTrue:[^ self].
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2815	"/ test whether any action is assigned to the menu
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2816	"/ if not ignorre accept
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2817	item hasDelayedMenu ifFalse:[^ self].
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2818	"/ handle action defined for the delayed menu
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2819	].
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2820	dstPoint := dstMenu translateGrabPoint:srcPoint.
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2821
2347 9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	2822	(dstMenu itemAtPoint:dstPoint) == dstMenu selection ifFalse:[
2255 e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2823	item := nil
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2824	].
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2825	topMenu acceptItem:item inMenu:dstMenu.
2347 9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	2826	^ self
2255 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
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2829	(selection notNil and:[dstMenu == self]) ifTrue:[
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2830	selection visibleSubmenu notNil ifTrue:[
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2831	^ self
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	].
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2834	self accept:nil.
1699 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
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2838	keyPress:key x:x y:y
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2839	"any key is pressed
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2840	"
2251 30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	2841	\|menu superMenu sensor\|
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	2842
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	2843	sensor := self sensor.
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	2844	sensor isNil ifTrue:[^ self].
2251 30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	2845
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	2846	sensor anyButtonPressed ifTrue:[
2482 13acaaf02528 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 2481 diff changeset	2847	^ self "/ ignored while any button is pressed
2251 30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	2848	].
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2849
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	2850	self scrollActivity isActive ifTrue:[
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2851	key ~~ #Escape ifTrue:[
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2852	^ self
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2853	].
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	2854	self scrollActivity stop
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2855	].
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2856
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2857	(key == #Tab
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2858	or:[key == #FocusNext
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2859	or:[key == #FocusPrevious]]) ifTrue:[
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2860	self accept:nil.
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	2861	^ super keyPress:key x:x y:y
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2862	].
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2863
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2864	menu := self detectGrabMenu.
2251 30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	2865	superMenu := menu superMenu.
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2866
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2867	key == #Escape ifTrue:[
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2868	"/ must hide the active menu
2251 30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	2869	(superMenu notNil and:[superMenu ~~ self]) ifTrue:[
1703 e127eff742bb bugfix: request focus ca parents: 1701 diff changeset	2870	"/ hide active menu but keep the grab
2251 30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	2871	superMenu selection:nil
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2872	] ifFalse:[
1703 e127eff742bb bugfix: request focus ca parents: 1701 diff changeset	2873	"/ hide active menu and ungrab
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2874	self accept:nil
2251 30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	2875	].
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	2876	^ self
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	2877	].
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	2878
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	2879	menu isViewWrapper ifFalse:[
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	2880	sensor compressKeyPressEventsWithKey:key.
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	2881	menu handleKeyPress:key.
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	2882	^ self
2251 30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	2883	].
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	2884	superMenu == self ifFalse:[^ self].
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	2885
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	2886	"/ allow cursor movement
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	2887	(key == #CursorLeft or:[key == #CursorRight]) ifTrue:[
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	2888	(self containsPoint:x@y) ifTrue:[
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	2889	self handleKeyPress:key.
1786 f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	2890	]
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	2891	].
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2892	!
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2893
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2894	pointerLeave:state
2255 e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2895	\|sensor\|
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2896
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	2897	self scrollActivity isActive ifTrue:[^ self].
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2898
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2899	self detectGrabMenu handlePointerLeave:state.
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2900
2255 e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2901	(selection isNil or:[self isPopUpView]) ifTrue:[
2251 30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	2902	^ self
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	2903	].
2255 e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2904
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	2905	selection visibleSubmenu notNil ifTrue:[^ self].
2255 e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2906
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2907	windowGroup focusView ~~ self ifTrue:[
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2908	self accept:nil
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2909	] ifFalse:[
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2910	selection isButton ifTrue:[
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2911	sensor := self sensor.
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2912
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2913	sensor isNil ifTrue:[
2251 30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	2914	self accept:nil
2255 e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2915	] ifFalse:[
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2916	"/ I'have the focus; if no button pressed, than keep the selection
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2917	sensor anyButtonPressed ifTrue:[
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2918	self selection:nil
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2919	]
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2920	].
2251 30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	2921	]
1699 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
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2925	sizeChanged:how
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2926	"redraw #right groups
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2927	"
2018 2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	2928	self isPopUpView ifFalse:[
2659 3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	2929	mustRearrange := true.
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	2930	self invalidate
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2931	].
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2932	super sizeChanged:how
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2933	! !
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2934
2503 4f34d55dae21 method category rename Claus Gittinger <cg@exept.de> parents: 2488 diff changeset	2935	!MenuPanel methodsFor:'event handling-processing'!
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2936
1767 e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	2937	clearImplicitGrab
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	2938	implicitGrabView := lastPointerView := nil.
1767 e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	2939	!
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	2940
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	2941	dispatchEvent:ev withFocusOn:focusView delegate:doDelegate
2482 13acaaf02528 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 2481 diff changeset	2942	"dispatch and handle an event"
13acaaf02528 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 2481 diff changeset	2943
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	2944	\|view x y p syntheticEvent menu\|
1767 e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	2945
2658 04f9fdd74b8e event handling Claus Gittinger <cg@exept.de> parents: 2652 diff changeset	2946	ev isDamage ifTrue:[
04f9fdd74b8e event handling Claus Gittinger <cg@exept.de> parents: 2652 diff changeset	2947	^ super dispatchEvent:ev withFocusOn:focusView delegate:false.
04f9fdd74b8e event handling Claus Gittinger <cg@exept.de> parents: 2652 diff changeset	2948	].
04f9fdd74b8e event handling Claus Gittinger <cg@exept.de> parents: 2652 diff changeset	2949
1767 e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	2950	"/ situation: we get a buttonPress, set implicitGrab (for scrollbars etc.)
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	2951	"/ but never get the buttonRelease, since someone else (a popUp) grabbed the
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	2952	"/ pointer in the meantime, and has eaten the release event ... (double-sigh)
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	2953	implicitGrabView notNil ifTrue:[
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	2954	self sensor leftButtonPressed ifFalse:[
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	2955	self clearImplicitGrab.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	2956	].
1767 e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	2957	].
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	2958
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	2959	((x := ev x) isNil or:[(y := ev y) isNil]) ifTrue:[
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	2960	^ super dispatchEvent:ev withFocusOn:focusView delegate:false.
1767 e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	2961	].
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	2962
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	2963	implicitGrabView notNil ifTrue:[
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	2964	ev isButtonEvent ifTrue:[
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	2965	p := device translatePoint:(x@y) fromView:self toView:implicitGrabView.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	2966	ev view:implicitGrabView.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	2967	ev arguments at:2 put:p x.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	2968	ev arguments at:3 put:p y.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	2969	implicitGrabView dispatchEvent:ev withFocusOn:focusView delegate:false.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	2970
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	2971	ev isButtonReleaseEvent ifTrue:[
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	2972	self clearImplicitGrab.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	2973	].
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	2974	^ self
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	2975	]
1767 e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	2976	].
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	2977	menu := self detectMenuAtGrabPoint:(x@y).
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	2978
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2979	(menu isNil or:[menu isViewWrapper not]) ifTrue:[
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	2980	self clearImplicitGrab.
1767 e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	2981	^ super dispatchEvent:ev withFocusOn:focusView delegate:false
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	2982	].
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	2983
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	2984	p := menu translateGrabPoint:(x@y).
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	2985	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	2986	p := device translatePoint:(x@y) fromView:self toView:view.
1767 e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	2987
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	2988	ev isButtonPressEvent ifTrue:[
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	2989	(view wantsFocusWithButtonPress) ifTrue:[
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	2990	view requestFocus.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	2991	].
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	2992	view ~~ self ifTrue:[ "/ can this ever be self ?
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	2993	implicitGrabView := view.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	2994	]
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	2995	].
1767 e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	2996
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	2997	ev isButtonMotionEvent ifTrue:[
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	2998	lastPointerView ~~ view ifTrue:[
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	2999	"/ must generate enter/leave ... (sigh)
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	3000	lastPointerView notNil ifTrue:[
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	3001	"/ XXX: should be fixed
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	3002	syntheticEvent := WindowEvent pointerLeave:0 view:lastPointerView.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	3003	lastPointerView dispatchEvent:syntheticEvent withFocusOn:nil delegate:false.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	3004	].
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	3005	view notNil ifTrue:[
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	3006	syntheticEvent := WindowEvent pointerEnter:0 x:x y:y view:view.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	3007	view dispatchEvent:syntheticEvent withFocusOn:nil delegate:false.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	3008	].
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	3009	lastPointerView := view.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	3010	].
1767 e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	3011	].
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	3012
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	3013	ev view:view.
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	3014	ev x:p x.
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	3015	ev y:p y.
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	3016	view dispatchEvent:ev withFocusOn:focusView delegate:false.
2020 1f1868eba475 extracted common code to detectViewAt:aPoint. Claus Gittinger <cg@exept.de> parents: 2018 diff changeset	3017
1f1868eba475 extracted common code to detectViewAt:aPoint. Claus Gittinger <cg@exept.de> parents: 2018 diff changeset	3018	"Modified: / 10.10.2001 / 13:54:47 / cg"
1767 e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	3019	!
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	3020
2048 ba472f3f46c7 code cleanup Claus Gittinger <cg@exept.de> parents: 2047 diff changeset	3021	handleButtonMotion:state atPoint:motionPoint
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3022	"open or close the corresponding submenus
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3023	"
2251 30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3024	\|menu item translatedPoint containsPoint\|
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3025
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3026	containsPoint := self containsPoint:motionPoint.
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3027	containsPoint ifTrue:[ item := self itemAtPoint:motionPoint ]
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3028	ifFalse:[ item := nil ].
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3029
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3030	self pointerEntersItem:item.
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3031
1910 119f91172b70 * empty log message * Claus Gittinger <cg@exept.de> parents: 1902 diff changeset	3032	(state == 0 or:[self sensor anyButtonPressed not]) ifTrue:[
2251 30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3033	"/ only update pointerEnter
2048 ba472f3f46c7 code cleanup Claus Gittinger <cg@exept.de> parents: 2047 diff changeset	3034	^ self
ba472f3f46c7 code cleanup Claus Gittinger <cg@exept.de> parents: 2047 diff changeset	3035	].
ba472f3f46c7 code cleanup Claus Gittinger <cg@exept.de> parents: 2047 diff changeset	3036
2251 30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3037	containsPoint ifTrue:[
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3038	self selection:item openMenu:true.
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	3039	^ self
2251 30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3040	].
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3041
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3042	menu := self superMenuAtPoint:motionPoint.
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3043
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	3044	menu notNil ifTrue:[
2046 012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	3045	translatedPoint := self translateMenuPoint:motionPoint toMenu:menu.
2251 30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3046	menu handleButtonMotion:state atPoint:translatedPoint.
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	3047	^ self
2251 30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3048	].
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3049	self isPopUpView ifTrue:[
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3050	self selection:nil
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3051	].
2046 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
012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	3054	handleButtonPressAtPoint:aPoint
2482 13acaaf02528 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 2481 diff changeset	3055	"a button pressed; open or close the corresponding submenus"
13acaaf02528 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 2481 diff changeset	3056
2251 30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3057	\| item sensor direction wasSelected\|
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	3058
2046 012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	3059	item := self itemAtPoint:aPoint.
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	3060	item isNil ifTrue:[
2251 30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3061	self selection:nil openMenu:false.
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	3062	^ self
2251 30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3063	].
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3064
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3065	direction := self scrollerDirectionAtPoint:aPoint.
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3066	direction notNil ifTrue:[
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3067	(self scrollActivity startIfRequiredAt:direction on:self) ifTrue:[
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3068	self pointerEntersItem:nil.
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3069	^ self
2238 68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3070	]
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	3071	].
2251 30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3072
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3073	wasSelected := (selection == item).
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3074	wasSelected ifFalse:[
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3075	self selection:item openMenu:true
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3076	].
2199 61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	3077	item hasDelayedMenu ifTrue:[^ self].
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	3078
2238 68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3079	(item isToggle or:[item triggerOnDown]) ifFalse:[
2251 30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3080	(wasSelected and:[item hasSubmenu and:[item visibleSubmenu isNil]]) ifTrue:[
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3081	item toggleSubmenuVisibility
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3082	].
2238 68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3083	^ self
68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3084	].
68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3085	(item canAccept and:[item == self selection]) ifFalse:[
68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3086	^ self
68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3087	].
68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3088	self invalidateItem:item repairNow:true.
68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3089	self acceptItem:item inMenu:self.
68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3090
2482 13acaaf02528 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 2481 diff changeset	3091	sensor := self sensor.
13acaaf02528 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 2481 diff changeset	3092	[sensor anyButtonPressed] whileTrue:[ Delay waitForSeconds:0.1 ].
13acaaf02528 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 2481 diff changeset	3093	sensor flushUserEvents.
2238 68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3094	self selection:nil.
2046 012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	3095
012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	3096	"Created: / 13.11.2001 / 14:12:04 / cg"
2047 62de65e3a61b initial delay; autoRepeat delay Claus Gittinger <cg@exept.de> parents: 2046 diff changeset	3097	"Modified: / 13.11.2001 / 19:50:52 / cg"
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	3098	!
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	3099
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3100	handleCursorKey:aKey
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3101	"handle a cursor key
dce33f8bb806 intitial checkin ca parents: diff changeset	3102	"
1786 f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3103	\|next menu item isVrt backKey p1 p2
2354 1bd2ac73b73c cursorUp/Down behavior Claus Gittinger <cg@exept.de> parents: 2347 diff changeset	3104	idx0 "{ Class:SmallInteger }"
687 23ce9888d76f bug fixes: ca parents: 681 diff changeset	3105	idx "{ Class:SmallInteger }"
1705 201f9ce1b2d2 checkin from browser ca parents: 1704 diff changeset	3106	size "{ Class:SmallInteger }"
687 23ce9888d76f bug fixes: ca parents: 681 diff changeset	3107	\|
1786 f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3108	(size := items size) == 0 ifTrue:[
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3109	superMenu notNil ifTrue:[superMenu handleCursorKey:aKey].
2354 1bd2ac73b73c cursorUp/Down behavior Claus Gittinger <cg@exept.de> parents: 2347 diff changeset	3110	^ self
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3111	].
1786 f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3112
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3113	isVrt := self verticalLayout.
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3114
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	3115
1786 f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3116	( (isVrt and:[aKey == #CursorUp or:[aKey == #CursorDown]])
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3117	or:[(isVrt not and:[aKey == #CursorRight or:[aKey == #CursorLeft]])]
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3118	) ifTrue:[
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3119	selection isNil ifTrue:[
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3120	(superMenu notNil and:[superMenu verticalLayout == isVrt]) ifTrue:[
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3121	^ superMenu handleCursorKey:aKey
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3122	].
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	3123	idx := 0.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	3124
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	3125	isVrt ifTrue:[
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	3126	"/ used because of vertical scrolling
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	3127	idx := items findFirst:[:el\| el layout top > 0 ].
2354 1bd2ac73b73c cursorUp/Down behavior Claus Gittinger <cg@exept.de> parents: 2347 diff changeset	3128	idx ~~ 0 ifTrue:[idx := idx - 1 ]
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	3129	].
1786 f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3130	] ifFalse:[
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	3131	idx := self indexOf:selection.
1786 f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3132	].
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3133	next := aKey == #CursorRight or:[aKey == #CursorDown].
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3134
2354 1bd2ac73b73c cursorUp/Down behavior Claus Gittinger <cg@exept.de> parents: 2347 diff changeset	3135	idx0 := idx.
1bd2ac73b73c cursorUp/Down behavior Claus Gittinger <cg@exept.de> parents: 2347 diff changeset	3136	size timesRepeat:[
1bd2ac73b73c cursorUp/Down behavior Claus Gittinger <cg@exept.de> parents: 2347 diff changeset	3137	\|el\|
1bd2ac73b73c cursorUp/Down behavior Claus Gittinger <cg@exept.de> parents: 2347 diff changeset	3138
1bd2ac73b73c cursorUp/Down behavior Claus Gittinger <cg@exept.de> parents: 2347 diff changeset	3139	next ifTrue:[idx := idx + 1] ifFalse:[idx := idx - 1].
1bd2ac73b73c cursorUp/Down behavior Claus Gittinger <cg@exept.de> parents: 2347 diff changeset	3140
1bd2ac73b73c cursorUp/Down behavior Claus Gittinger <cg@exept.de> parents: 2347 diff changeset	3141	idx > size ifTrue:[
1bd2ac73b73c cursorUp/Down behavior Claus Gittinger <cg@exept.de> parents: 2347 diff changeset	3142	idx := 0 "1"
1bd2ac73b73c cursorUp/Down behavior Claus Gittinger <cg@exept.de> parents: 2347 diff changeset	3143	] ifFalse:[
1bd2ac73b73c cursorUp/Down behavior Claus Gittinger <cg@exept.de> parents: 2347 diff changeset	3144	idx < 0 ifTrue:[
1bd2ac73b73c cursorUp/Down behavior Claus Gittinger <cg@exept.de> parents: 2347 diff changeset	3145	idx := size
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
1bd2ac73b73c cursorUp/Down behavior Claus Gittinger <cg@exept.de> parents: 2347 diff changeset	3149	idx == 0 ifTrue:[
1bd2ac73b73c cursorUp/Down behavior Claus Gittinger <cg@exept.de> parents: 2347 diff changeset	3150	self selection:nil.
1bd2ac73b73c cursorUp/Down behavior Claus Gittinger <cg@exept.de> parents: 2347 diff changeset	3151	^ self
1bd2ac73b73c cursorUp/Down behavior Claus Gittinger <cg@exept.de> parents: 2347 diff changeset	3152	] ifFalse:[
1bd2ac73b73c cursorUp/Down behavior Claus Gittinger <cg@exept.de> parents: 2347 diff changeset	3153	(el := items at:idx ifAbsent:nil) notNil ifTrue:[
1bd2ac73b73c cursorUp/Down behavior Claus Gittinger <cg@exept.de> parents: 2347 diff changeset	3154	el canSelect ifTrue:[
1bd2ac73b73c cursorUp/Down behavior Claus Gittinger <cg@exept.de> parents: 2347 diff changeset	3155	el hasDelayedMenu ifTrue:[
1bd2ac73b73c cursorUp/Down behavior Claus Gittinger <cg@exept.de> parents: 2347 diff changeset	3156	"/ do not open menu
1bd2ac73b73c cursorUp/Down behavior Claus Gittinger <cg@exept.de> parents: 2347 diff changeset	3157	self selection:el openMenu:false
1bd2ac73b73c cursorUp/Down behavior Claus Gittinger <cg@exept.de> parents: 2347 diff changeset	3158	] ifFalse:[
1bd2ac73b73c cursorUp/Down behavior Claus Gittinger <cg@exept.de> parents: 2347 diff changeset	3159	"/ open comes from style-sheet
1bd2ac73b73c cursorUp/Down behavior Claus Gittinger <cg@exept.de> parents: 2347 diff changeset	3160	self selection:el.
1bd2ac73b73c cursorUp/Down behavior Claus Gittinger <cg@exept.de> parents: 2347 diff changeset	3161	].
1bd2ac73b73c cursorUp/Down behavior Claus Gittinger <cg@exept.de> parents: 2347 diff changeset	3162	^ self
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	3163	].
2354 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	].
1bd2ac73b73c cursorUp/Down behavior Claus Gittinger <cg@exept.de> parents: 2347 diff changeset	3166	idx == idx0 ifTrue:[
1bd2ac73b73c cursorUp/Down behavior Claus Gittinger <cg@exept.de> parents: 2347 diff changeset	3167	^ self
1bd2ac73b73c cursorUp/Down behavior Claus Gittinger <cg@exept.de> parents: 2347 diff changeset	3168	].
1786 f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3169	].
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3170	^ self
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
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3173	superMenu notNil ifTrue:[
1791 bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	3174	p1 := self translateGrabPoint:0.
bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	3175	p2 := superMenu translateGrabPoint:0.
1786 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
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3178	isVrt ifTrue:[
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3179	(superMenu notNil and:[p1 x > p2 x]) ifTrue:[
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3180	backKey := #CursorRight
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3181	] ifFalse:[
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3182	backKey := #CursorLeft.
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3183	]
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3184	] ifFalse:[
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3185	(superMenu notNil and:[p1 y > p2 y]) ifTrue:[
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3186	backKey := #CursorDown
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3187	] ifFalse:[
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3188	backKey := #CursorUp.
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3189	]
1786 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
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3192	aKey == backKey ifTrue:[
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3193	superMenu isNil ifTrue:[
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3194	self accept:nil
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3195	] ifFalse:[
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3196	superMenu verticalLayout ~~ isVrt ifTrue:[
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3197	superMenu handleCursorKey:aKey
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3198	] ifFalse:[
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3199	superMenu selection hideSubmenu
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	].
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3202	^ self
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
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3205	selection isNil ifTrue:[
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3206	superMenu isNil ifTrue:[^ self accept:nil].
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3207
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3208	superMenu verticalLayout ~~ isVrt ifTrue:[
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3209	superMenu handleCursorKey:aKey
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3210	] ifFalse:[
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3211	(item := items findFirst:[:el\| el canSelect]) notNil ifTrue:[
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	3212	self selectionIndex:item
1786 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	].
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3215	^ self
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
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3218	selection hasSubmenu ifTrue:[
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3219	(menu := selection visibleSubmenu) isNil ifTrue:[
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3220	selection toggleSubmenuVisibility
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3221	] ifFalse:[
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3222	menu selectionIndex:1
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3223	]
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3224	] ifFalse:[
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3225	superMenu notNil ifTrue:[
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3226	superMenu verticalLayout ~~ isVrt ifTrue:[
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3227	superMenu handleCursorKey:aKey
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3228	]
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3229	] ifFalse:[
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3230	self accept:nil
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
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3235	handleKeyPress:key
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3236	"any key is pressed
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3237	"
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	3238	\|item inMenu\|
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3239
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3240	(key == #Return or:[key == Character space]) ifTrue:[
1786 f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3241	self handleReturnPressed
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3242	] ifFalse:[
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3243	key isCharacter ifTrue:[
1862 ffbe4c06defd handleKeyPress: search character-key in wrapped menu ca parents: 1853 diff changeset	3244	"/ selection notNil ifTrue:[
ffbe4c06defd handleKeyPress: search character-key in wrapped menu ca parents: 1853 diff changeset	3245	"/ inMenu := self
ffbe4c06defd handleKeyPress: search character-key in wrapped menu ca parents: 1853 diff changeset	3246	"/ ] ifFalse:[
ffbe4c06defd handleKeyPress: search character-key in wrapped menu ca parents: 1853 diff changeset	3247	"/ (inMenu := superMenu) isNil ifTrue:[^ self].
ffbe4c06defd handleKeyPress: search character-key in wrapped menu ca parents: 1853 diff changeset	3248	"/ ].
ffbe4c06defd handleKeyPress: search character-key in wrapped menu ca parents: 1853 diff changeset	3249	inMenu := self.
1786 f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3250
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3251	(item := inMenu detectItemForKey:key) notNil ifTrue:[
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3252	inMenu selection:item
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3253	]
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3254	] ifFalse:[
1786 f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3255	( key == #CursorDown or:[key == #CursorUp
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3256	or:[key == #CursorLeft or:[key == #CursorRight]]]
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3257	) ifTrue:[
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3258	self handleCursorKey:key
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3259	]
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3260	]
1889 43516e4588ce give warning messages for unimplemented menu-aspects Claus Gittinger <cg@exept.de> parents: 1878 diff changeset	3261	]
43516e4588ce give warning messages for unimplemented menu-aspects Claus Gittinger <cg@exept.de> parents: 1878 diff changeset	3262	!
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3263
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3264	handlePointerLeave:state
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3265	self pointerEntersItem:nil.
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3266	super pointerLeave:state
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3267	!
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3268
1786 f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3269	handleReturnPressed
2482 13acaaf02528 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 2481 diff changeset	3270	"any key is pressed"
13acaaf02528 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 2481 diff changeset	3271
2238 68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3272	\|sensor subm item\|
68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3273
68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3274	(item := selection) isNil ifTrue:[
68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3275	superMenu notNil ifTrue:[
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	3276	item := superMenu selection.
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	3277
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	3278	item value notNil ifTrue:[
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	3279	"/ is a delayed menu
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	3280	self accept:item
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	3281	] ifFalse:[
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	3282	item toggleSubmenuVisibility
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	3283	]
2238 68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3284	] ifFalse:[
68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3285	self accept
68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3286	].
68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3287	^ self
1841 5d01716cc37c implement: triggerOnDown ca parents: 1836 diff changeset	3288	].
5d01716cc37c implement: triggerOnDown ca parents: 1836 diff changeset	3289	selection hasSubmenu ifTrue:[
2238 68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3290	selection hasDelayedMenu ifFalse:[
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	3291	selection toggleSubmenuVisibility.
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	3292	^ self
2238 68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3293	].
68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3294	subm := selection currentSubmenu.
68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3295
68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3296	(subm notNil and:[subm shown]) ifTrue:[
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	3297	selection toggleSubmenuVisibility.
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	3298	^ self
2238 68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3299	].
68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3300	self openDelayed:nil
1841 5d01716cc37c implement: triggerOnDown ca parents: 1836 diff changeset	3301	].
5d01716cc37c implement: triggerOnDown ca parents: 1836 diff changeset	3302	self accept.
5d01716cc37c implement: triggerOnDown ca parents: 1836 diff changeset	3303
2238 68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3304	" test for toggle "
68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3305	item isToggle ifTrue:[
68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3306	self selection:item.
68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3307	] ifFalse:[
68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3308	(selection notNil and:[selection triggerOnDown]) ifFalse:[
68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3309	^ self
68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3310	]
68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3311	].
1841 5d01716cc37c implement: triggerOnDown ca parents: 1836 diff changeset	3312
5d01716cc37c implement: triggerOnDown ca parents: 1836 diff changeset	3313	(sensor := self sensor) isNil ifTrue:[
2238 68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3314	^ self
1841 5d01716cc37c implement: triggerOnDown ca parents: 1836 diff changeset	3315	].
5d01716cc37c implement: triggerOnDown ca parents: 1836 diff changeset	3316
2482 13acaaf02528 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 2481 diff changeset	3317	[
13acaaf02528 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 2481 diff changeset	3318	sensor flushKeyboardFor:nil.
2238 68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3319	Delay waitForSeconds:0.1.
68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3320	sensor hasKeyPressEventFor:nil.
1841 5d01716cc37c implement: triggerOnDown ca parents: 1836 diff changeset	3321	] whileTrue.
1786 f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3322	!
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3323
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3324	pointerEntersItem:anItemOrNil
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3325	"the pointer moves over an item or nil; restore the old item and
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3326	redraw the new item highlighted.
1690 38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3327	"
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3328	\|oldItem newItem\|
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3329
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3330	( anItemOrNil notNil
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3331	and:[anItemOrNil canSelect
1690 38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3332	and:[selection isNil
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3333	and:[self isPopUpView not]]]) ifTrue:[
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3334	anItemOrNil isButton ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	3335	( self buttonEnteredBackgroundColor ~= self buttonPassiveBackgroundColor
93426020ceed * empty log message * ca parents: 2216 diff changeset	3336	or:[self buttonEnteredLevel ~= self buttonPassiveLevel]
1690 38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3337	) ifTrue:[
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3338	newItem := anItemOrNil
1690 38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3339	]
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3340	] ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	3341	(self enteredLevel ~~ 0
93426020ceed * empty log message * ca parents: 2216 diff changeset	3342	or:[self enteredBackgroundColor ~= self backgroundColor]
93426020ceed * empty log message * ca parents: 2216 diff changeset	3343	) ifTrue:[
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3344	newItem := anItemOrNil
1690 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
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3349	newItem ~~ enteredItem ifTrue:[
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3350	oldItem := enteredItem.
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3351	enteredItem := newItem.
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3352
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3353	oldItem notNil ifTrue:[
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3354	self invalidateItem:oldItem repairNow:(enteredItem isNil).
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3355	].
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3356
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3357	enteredItem notNil ifTrue:[
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3358	self invalidateItem:enteredItem repairNow:true.
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3359	].
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3360	].
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3361	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	3362
2251 30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3363	!MenuPanel methodsFor:'focus handling'!
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3364
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3365	hasKeyboardFocus:aBoolean
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3366	"notification from the windowGroup that I got/lost the keyboard focus.
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3367	"
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3368	\|focusView\|
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3369
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3370	self isPopUpView ifTrue:[
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3371	"/ not visible for popup menus
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3372	^ super hasKeyboardFocus:aBoolean
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3373	].
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3374
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3375	(aBoolean not and:[selection notNil]) ifTrue:[
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3376	hasImplicitGrap ~~ true ifTrue:[
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3377	focusView := windowGroup focusView.
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3378
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3379	focusView == self ifFalse:[
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3380	self selection:nil.
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	].
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3384	super hasKeyboardFocus:aBoolean.
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3385	! !
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3386
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3387	!MenuPanel methodsFor:'grabbing'!
dce33f8bb806 intitial checkin ca parents: diff changeset	3388
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3389	doGrab
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3390	relativeGrabOrigin := nil.
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3391
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3392	superMenu notNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	3393	superMenu doGrab
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3394	] ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	3395	hasImplicitGrap ~~ true ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	3396	self grabMouseAndKeyboard.
93426020ceed * empty log message * ca parents: 2216 diff changeset	3397	hasImplicitGrap := true
93426020ceed * empty log message * ca parents: 2216 diff changeset	3398	]
1699 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
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3402	doUngrab:forceDo
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3403
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3404	relativeGrabOrigin := nil.
1767 e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	3405	self clearImplicitGrab.
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3406
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3407	superMenu notNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	3408	forceDo ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	3409	superMenu doUngrab:true
93426020ceed * empty log message * ca parents: 2216 diff changeset	3410	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	3411	^ self
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3412	].
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3413
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3414	hasImplicitGrap ~~ true ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	3415	^ self
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3416	].
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3417
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3418	forceDo ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	3419	(selection notNil or:[prevFocusView == self]) ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	3420	^ self
93426020ceed * empty log message * ca parents: 2216 diff changeset	3421	].
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3422	].
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3423	self ungrabMouseAndKeyboard.
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3424	self selection:nil.
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3425	hasImplicitGrap := nil.
1703 e127eff742bb bugfix: request focus ca parents: 1701 diff changeset	3426	prevFocusView := nil.
e127eff742bb bugfix: request focus ca parents: 1701 diff changeset	3427
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3428	!
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3429
1630 01dc20096011 grabbing cleaned up; ca parents: 1613 diff changeset	3430	grabKeyboard
1690 38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3431	"grap the keyboard; keep previous grab
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3432	"
1630 01dc20096011 grabbing cleaned up; ca parents: 1613 diff changeset	3433	previousKeyboardGrab := device activeKeyboardGrab.
2713 9e417aa397c0 * empty log message * ca parents: 2712 diff changeset	3434	^ super grabKeyboard
1630 01dc20096011 grabbing cleaned up; ca parents: 1613 diff changeset	3435	!
01dc20096011 grabbing cleaned up; ca parents: 1613 diff changeset	3436
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3437	grabMouseAndKeyboard
2482 13acaaf02528 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 2481 diff changeset	3438	"get exclusive access to pointer and keyboard"
13acaaf02528 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 2481 diff changeset	3439
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3440	\|sensor\|
dce33f8bb806 intitial checkin ca parents: diff changeset	3441
dce33f8bb806 intitial checkin ca parents: diff changeset	3442	realized ifTrue:[
2482 13acaaf02528 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 2481 diff changeset	3443	prevFocusView := self windowGroup focusView.
13acaaf02528 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 2481 diff changeset	3444
13acaaf02528 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 2481 diff changeset	3445	sensor := self sensor.
13acaaf02528 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 2481 diff changeset	3446	device activePointerGrab ~~ self ifTrue:[
13acaaf02528 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 2481 diff changeset	3447	sensor flushMotionEventsFor:nil.
13acaaf02528 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 2481 diff changeset	3448
13acaaf02528 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 2481 diff changeset	3449	(self grabPointer) ifFalse:[
13acaaf02528 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 2481 diff changeset	3450	Delay waitForSeconds:0.1.
13acaaf02528 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 2481 diff changeset	3451	(self grabPointer) ifFalse:[
13acaaf02528 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 2481 diff changeset	3452	"give up"
13acaaf02528 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 2481 diff changeset	3453	'MenuPanel [warning]: could not grab pointer' errorPrintCR.
13acaaf02528 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 2481 diff changeset	3454	self unmap
13acaaf02528 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 2481 diff changeset	3455	]
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	device activeKeyboardGrab ~~ self ifTrue:[
13acaaf02528 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 2481 diff changeset	3460	device sync.
13acaaf02528 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 2481 diff changeset	3461	sensor flushKeyboardFor:nil.
13acaaf02528 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 2481 diff changeset	3462	self grabKeyboard.
13acaaf02528 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 2481 diff changeset	3463	]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3464	]
dce33f8bb806 intitial checkin ca parents: diff changeset	3465
717 540e638fdebb Avoid pointer and keyboard grabbing if not necessary Stefan Vogel <sv@exept.de> parents: 712 diff changeset	3466	"Modified: / 2.2.1998 / 23:43:59 / stefan"
1254 38b8bcfabbd7 checkin from browser Claus Gittinger <cg@exept.de> parents: 1253 diff changeset	3467	"Modified: / 15.3.1999 / 12:01:38 / cg"
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3468	!
dce33f8bb806 intitial checkin ca parents: diff changeset	3469
1630 01dc20096011 grabbing cleaned up; ca parents: 1613 diff changeset	3470	grabPointerWithCursor:aCursorOrNil
1690 38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3471	"grap the pointer; keep previous grab
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3472	"
1630 01dc20096011 grabbing cleaned up; ca parents: 1613 diff changeset	3473	previousPointerGrab := device activePointerGrab.
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3474	hasImplicitGrap := true.
1690 38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3475	^ super grabPointerWithCursor:aCursorOrNil
1630 01dc20096011 grabbing cleaned up; ca parents: 1613 diff changeset	3476
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	ungrabKeyboard
1690 38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3481	"ungrap the keyboard; restore previous grab
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3482	"
1630 01dc20096011 grabbing cleaned up; ca parents: 1613 diff changeset	3483	super ungrabKeyboard.
1690 38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3484
2579 114e5cf689a2 care for previous-grab-window still being visible james parents: 2574 diff changeset	3485	(previousKeyboardGrab notNil
114e5cf689a2 care for previous-grab-window still being visible james parents: 2574 diff changeset	3486	and:[ previousKeyboardGrab realized ]) ifTrue:[
114e5cf689a2 care for previous-grab-window still being visible james parents: 2574 diff changeset	3487	device grabKeyboardInView:previousKeyboardGrab.
114e5cf689a2 care for previous-grab-window still being visible james parents: 2574 diff changeset	3488	].
1630 01dc20096011 grabbing cleaned up; ca parents: 1613 diff changeset	3489	!
01dc20096011 grabbing cleaned up; ca parents: 1613 diff changeset	3490
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3491	ungrabMouseAndKeyboard
717 540e638fdebb Avoid pointer and keyboard grabbing if not necessary Stefan Vogel <sv@exept.de> parents: 712 diff changeset	3492	"ungrab resources (mouse and keyboard)
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3493	"
1630 01dc20096011 grabbing cleaned up; ca parents: 1613 diff changeset	3494	self ungrabPointer.
01dc20096011 grabbing cleaned up; ca parents: 1613 diff changeset	3495	self ungrabKeyboard.
01dc20096011 grabbing cleaned up; ca parents: 1613 diff changeset	3496	!
01dc20096011 grabbing cleaned up; ca parents: 1613 diff changeset	3497
01dc20096011 grabbing cleaned up; ca parents: 1613 diff changeset	3498	ungrabPointer
1690 38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3499	"ungrap the pointer; restore previous grab
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3500	"
1630 01dc20096011 grabbing cleaned up; ca parents: 1613 diff changeset	3501	super ungrabPointer.
1690 38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3502
2579 114e5cf689a2 care for previous-grab-window still being visible james parents: 2574 diff changeset	3503	(previousPointerGrab notNil
114e5cf689a2 care for previous-grab-window still being visible james parents: 2574 diff changeset	3504	and:[ previousPointerGrab realized ]) ifTrue:[
114e5cf689a2 care for previous-grab-window still being visible james parents: 2574 diff changeset	3505	device grabPointerInView:previousPointerGrab.
1630 01dc20096011 grabbing cleaned up; ca parents: 1613 diff changeset	3506	].
01dc20096011 grabbing cleaned up; ca parents: 1613 diff changeset	3507
01dc20096011 grabbing cleaned up; ca parents: 1613 diff changeset	3508
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3509	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	3510
1251 eb5b4cdbacde fixed helpText display; Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	3511	!MenuPanel methodsFor:'help'!
eb5b4cdbacde fixed helpText display; Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	3512
2058 f0a23f80454e flyByHelp Claus Gittinger <cg@exept.de> parents: 2052 diff changeset	3513	flyByHelpTextAt:srcPoint
f0a23f80454e flyByHelp Claus Gittinger <cg@exept.de> parents: 2052 diff changeset	3514	"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	3515	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	3516	"
2550 1dc3745fc313 do not show the menus label again as fly by help Claus Gittinger <cg@exept.de> parents: 2545 diff changeset	3517	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	3518	^ nil
2058 f0a23f80454e flyByHelp Claus Gittinger <cg@exept.de> parents: 2052 diff changeset	3519	!
f0a23f80454e flyByHelp Claus Gittinger <cg@exept.de> parents: 2052 diff changeset	3520
f0a23f80454e flyByHelp Claus Gittinger <cg@exept.de> parents: 2052 diff changeset	3521	flyByHelpTextForItem:anItem
f0a23f80454e flyByHelp Claus Gittinger <cg@exept.de> parents: 2052 diff changeset	3522	"returns the helpText for an item (empty if none)
f0a23f80454e flyByHelp Claus Gittinger <cg@exept.de> parents: 2052 diff changeset	3523	"
2063 8bff9e49f1e9 * empty log message * Claus Gittinger <cg@exept.de> parents: 2062 diff changeset	3524	anItem isNil ifTrue:[^ nil].
2433 49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	3525	^ anItem flyByHelpText.
2058 f0a23f80454e flyByHelp Claus Gittinger <cg@exept.de> parents: 2052 diff changeset	3526	!
f0a23f80454e flyByHelp Claus Gittinger <cg@exept.de> parents: 2052 diff changeset	3527
1251 eb5b4cdbacde fixed helpText display; Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	3528	helpText
1613 5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	3529	"return the helpText for the currently selected item (empty if none)
5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	3530	"
5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	3531	^ self helpTextForItem:selection
1251 eb5b4cdbacde fixed helpText display; Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	3532	!
eb5b4cdbacde fixed helpText display; Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	3533
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3534	helpTextAt:srcPoint
1252 6db6906da49b debug print Claus Gittinger <cg@exept.de> parents: 1251 diff changeset	3535	"return the helpText for aPoint (i.e. when mouse-pointer is moved over an item).
6db6906da49b debug print Claus Gittinger <cg@exept.de> parents: 1251 diff changeset	3536	If there is a selection, that items helpText is used (ignoreing the given point).
6db6906da49b debug print Claus Gittinger <cg@exept.de> parents: 1251 diff changeset	3537	"
2550 1dc3745fc313 do not show the menus label again as fly by help Claus Gittinger <cg@exept.de> parents: 2545 diff changeset	3538	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	3539	^ ''
1613 5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	3540	!
5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	3541
5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	3542	helpTextForItem:anItem
5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	3543	"returns the helpText for an item (empty if none)
5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	3544	"
5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	3545	anItem isNil ifTrue:[^ ''].
2433 49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	3546	^ anItem activeHelpText.
2550 1dc3745fc313 do not show the menus label again as fly by help Claus Gittinger <cg@exept.de> parents: 2545 diff changeset	3547	!
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	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	3550	\|dstMenu dstPoint item\|
1dc3745fc313 do not show the menus label again as fly by help Claus Gittinger <cg@exept.de> parents: 2545 diff changeset	3551
1dc3745fc313 do not show the menus label again as fly by help Claus Gittinger <cg@exept.de> parents: 2545 diff changeset	3552	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	3553	dstMenu notNil ifTrue:[
1dc3745fc313 do not show the menus label again as fly by help Claus Gittinger <cg@exept.de> parents: 2545 diff changeset	3554	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	3555	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	3556	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	3557	]
1251 eb5b4cdbacde fixed helpText display; Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	3558	! !
eb5b4cdbacde fixed helpText display; Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	3559
794 5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	3560	!MenuPanel methodsFor:'image registration'!
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	3561
2488 74c81c1e30d7 imageOnDevice -> imageOnMyDevice Claus Gittinger <cg@exept.de> parents: 2485 diff changeset	3562	imageOnMyDevice:anImage
794 5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	3563	"returns image registered on device
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	3564	"
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	3565	^ self class image:anImage onDevice:device
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	3566	!
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	lightenedImageOnDevice:anImage
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	3569	"returns lightened image registered on device
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	3570	"
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	3571	^ self class lightenedImage:anImage onDevice:device
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	3572	! !
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	3573
1688 271829d6a2e4 category changes Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3574	!MenuPanel methodsFor:'initialization & release'!
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3575
767 ffa2a09a1039 added #addToCurrentProject in order to avoid restart errors tz parents: 746 diff changeset	3576	addToCurrentProject
ffa2a09a1039 added #addToCurrentProject in order to avoid restart errors tz parents: 746 diff changeset	3577	"ignored here"
ffa2a09a1039 added #addToCurrentProject in order to avoid restart errors tz parents: 746 diff changeset	3578	!
ffa2a09a1039 added #addToCurrentProject in order to avoid restart errors tz parents: 746 diff changeset	3579
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3580	create
616 a6157b083830 support of different styles ca parents: 608 diff changeset	3581	"create the shadow view for a none contained submenu
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3582	"
dce33f8bb806 intitial checkin ca parents: diff changeset	3583	super create.
dce33f8bb806 intitial checkin ca parents: diff changeset	3584
dce33f8bb806 intitial checkin ca parents: diff changeset	3585	self isPopUpView ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	3586	(PopUpView shadowsOnDevice:device) ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	3587	shadowView isNil ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	3588	shadowView := (ShadowView onDevice:device) for:self
93426020ceed * empty log message * ca parents: 2216 diff changeset	3589	] ifFalse:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	3590	self saveUnder:true.
93426020ceed * empty log message * ca parents: 2216 diff changeset	3591	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	3592	]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3593	] ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	3594	explicitExtent == true ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	3595	(self width) == (superView width) ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	3596	self verticalLayout:false
93426020ceed * empty log message * ca parents: 2216 diff changeset	3597	]
93426020ceed * empty log message * ca parents: 2216 diff changeset	3598	]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3599	]
1024 28c87a2369f6 show active help on pointer motion. Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	3600
28c87a2369f6 show active help on pointer motion. Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	3601	"Modified: / 28.7.1998 / 02:11:44 / cg"
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3602	!
dce33f8bb806 intitial checkin ca parents: diff changeset	3603
dce33f8bb806 intitial checkin ca parents: diff changeset	3604	destroy
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3605	"destroy items and shadowView; remove dependencies
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3606	"
798 74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	3607	self clearLastActiveMenu.
2051 d958c12cc08e * empty log message * Claus Gittinger <cg@exept.de> parents: 2050 diff changeset	3608	items notNil ifTrue:[items copy do:[:el\|el destroy]].
2681 2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	3609	items := nil.
2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	3610	self removeDependencies.
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3611
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3612	super destroy.
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3613	superMenu := nil.
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3614	shadowView notNil ifTrue:[shadowView destroy].
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3615
2051 d958c12cc08e * empty log message * Claus Gittinger <cg@exept.de> parents: 2050 diff changeset	3616	"Modified: / 15.11.2001 / 17:08:45 / cg"
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3617	!
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3618
616 a6157b083830 support of different styles ca parents: 608 diff changeset	3619	fetchDeviceResources
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	3620	"fetch device colors, to avoid reallocation at redraw time
93426020ceed * empty log message * ca parents: 2216 diff changeset	3621	"
93426020ceed * empty log message * ca parents: 2216 diff changeset	3622	\|style\|
93426020ceed * empty log message * ca parents: 2216 diff changeset	3623
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	3624	superMenu notNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	3625	styleSheet := superMenu styleSheet
93426020ceed * empty log message * ca parents: 2216 diff changeset	3626	].
616 a6157b083830 support of different styles ca parents: 608 diff changeset	3627
a6157b083830 support of different styles ca parents: 608 diff changeset	3628	super fetchDeviceResources.
a6157b083830 support of different styles ca parents: 608 diff changeset	3629
1081 fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	3630	"/ 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	3631	"/ (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	3632
616 a6157b083830 support of different styles ca parents: 608 diff changeset	3633	superMenu isNil ifTrue:[
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	3634	rightArrow isNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	3635	rightArrow := SelectionInListView rightArrowFormOn:device.
2059 c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	3636	].
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	3637	fgColor := fgColor onDevice:device.
93426020ceed * empty log message * ca parents: 2216 diff changeset	3638	style := styleSheet name.
93426020ceed * empty log message * ca parents: 2216 diff changeset	3639
93426020ceed * empty log message * ca parents: 2216 diff changeset	3640	(style ~~ #os2 and:[style ~~ #win95]) ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	3641	rightArrowShadow := SelectionInListView rightArrowShadowFormOn:device
93426020ceed * empty log message * ca parents: 2216 diff changeset	3642	] ifFalse:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	3643	rightArrowShadow := nil
93426020ceed * empty log message * ca parents: 2216 diff changeset	3644	].
616 a6157b083830 support of different styles ca parents: 608 diff changeset	3645	] ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	3646	rightArrow := superMenu rightArrow.
93426020ceed * empty log message * ca parents: 2216 diff changeset	3647	rightArrowShadow := superMenu rightArrowShadow.
93426020ceed * empty log message * ca parents: 2216 diff changeset	3648
93426020ceed * empty log message * ca parents: 2216 diff changeset	3649	self foregroundColor:(superMenu foregroundColor).
2614 86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	3650	self font:(superMenu font).
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	3651	self viewBackground:(superMenu viewBackground).
1137 7df0b776e47a fixes for 2D styles (borderWidth) Claus Gittinger <cg@exept.de> parents: 1130 diff changeset	3652	].
7df0b776e47a fixes for 2D styles (borderWidth) Claus Gittinger <cg@exept.de> parents: 1130 diff changeset	3653
1829 bd8b95c5bb89 migration fixes Claus Gittinger <cg@exept.de> parents: 1825 diff changeset	3654	items notNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	3655	items do:[:eachItem\| eachItem fetchDeviceResources ]
1829 bd8b95c5bb89 migration fixes Claus Gittinger <cg@exept.de> parents: 1825 diff changeset	3656	].
bd8b95c5bb89 migration fixes Claus Gittinger <cg@exept.de> parents: 1825 diff changeset	3657
1137 7df0b776e47a fixes for 2D styles (borderWidth) Claus Gittinger <cg@exept.de> parents: 1130 diff changeset	3658	"Modified: / 15.9.1998 / 12:51:29 / cg"
616 a6157b083830 support of different styles ca parents: 608 diff changeset	3659	!
a6157b083830 support of different styles ca parents: 608 diff changeset	3660
580 249f6cfc5bb2 checkin from browser Claus Gittinger <cg@exept.de> parents: 571 diff changeset	3661	initStyle
249f6cfc5bb2 checkin from browser Claus Gittinger <cg@exept.de> parents: 571 diff changeset	3662	"initialize style specific stuff"
249f6cfc5bb2 checkin from browser Claus Gittinger <cg@exept.de> parents: 571 diff changeset	3663
2609 b927f450c4c8 * empty log message * ca parents: 2607 diff changeset	3664	\|fn\|
b927f450c4c8 * empty log message * ca parents: 2607 diff changeset	3665
580 249f6cfc5bb2 checkin from browser Claus Gittinger <cg@exept.de> parents: 571 diff changeset	3666	super initStyle.
616 a6157b083830 support of different styles ca parents: 608 diff changeset	3667
2609 b927f450c4c8 * empty log message * ca parents: 2607 diff changeset	3668	fgColor := DefaultForegroundColor ? Color black.
b927f450c4c8 * empty log message * ca parents: 2607 diff changeset	3669	DefaultBackgroundColor notNil ifTrue:[ viewBackground := DefaultBackgroundColor ].
b927f450c4c8 * empty log message * ca parents: 2607 diff changeset	3670	fn := self class defaultFont.
2610 a30fc1fb35d7 * empty log message * ca parents: 2609 diff changeset	3671	fn notNil ifTrue:[ self font:fn ].
1923 530426a3d692 support #level: ca parents: 1922 diff changeset	3672
2347 9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	3673	defaultHideOnRelease := styleSheet at:#'popup.hideOnRelease' default:true.
9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	3674
2003 732fbaf5864f avoid changing the level after realization (to avoid confusing the shadow) Claus Gittinger <cg@exept.de> parents: 2000 diff changeset	3675	self updateLevelAndBorder.
580 249f6cfc5bb2 checkin from browser Claus Gittinger <cg@exept.de> parents: 571 diff changeset	3676	!
249f6cfc5bb2 checkin from browser Claus Gittinger <cg@exept.de> parents: 571 diff changeset	3677
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3678	initialize
dce33f8bb806 intitial checkin ca parents: diff changeset	3679	"set default configuration
dce33f8bb806 intitial checkin ca parents: diff changeset	3680	"
dce33f8bb806 intitial checkin ca parents: diff changeset	3681	super initialize.
616 a6157b083830 support of different styles ca parents: 608 diff changeset	3682
1730 4936edfc2eee must enable motion events in #initialize (not in map) Claus Gittinger <cg@exept.de> parents: 1728 diff changeset	3683	self enableMotionEvents.
498 b4c341497621 bug fixes: ca parents: 475 diff changeset	3684	enabled := true.
1877 3b415fa4710f only access originChanged, extentChanged and cornerChanged Claus Gittinger <cg@exept.de> parents: 1874 diff changeset	3685	self extentChangedFlag:false.
3b415fa4710f only access originChanged, extentChanged and cornerChanged Claus Gittinger <cg@exept.de> parents: 1874 diff changeset	3686	self originChangedFlag:false.
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	3687	explicitExtent := nil.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	3688	shortKeyInset := 0.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	3689	mustRearrange := false.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	3690	showSeparatingLines := false.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	3691	showGroupDivider := true.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3692	!
dce33f8bb806 intitial checkin ca parents: diff changeset	3693
1573 fd124ee2bce5 shortcutKeys; arrange layout if selection changed ca parents: 1572 diff changeset	3694	map
717 540e638fdebb Avoid pointer and keyboard grabbing if not necessary Stefan Vogel <sv@exept.de> parents: 712 diff changeset	3695	"grab the pointer here, when visible (but not if control has already been lost).
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3696	If the grab fails, try again and unmap myself if that fails too.
dce33f8bb806 intitial checkin ca parents: diff changeset	3697	"
1791 bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	3698	\|loIndices loItems\|
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3699
1690 38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3700	enteredItem := nil.
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3701
1024 28c87a2369f6 show active help on pointer motion. Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	3702	self enableMotionEvents.
798 74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	3703	self becomesActiveMenu.
1573 fd124ee2bce5 shortcutKeys; arrange layout if selection changed ca parents: 1572 diff changeset	3704	super map.
2681 2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	3705	self addDependencies.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3706
1785 efa4cc8ca917 mnemonic behaviour changed ca parents: 1775 diff changeset	3707	loIndices := InitialSelectionQuerySignal query.
1791 bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	3708	loItems := items ? #[].
bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	3709
bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	3710	loItems do:[:anItem\| anItem fetchImages ].
1572 80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	3711
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3712	self isPopUpView ifTrue:[
2681 2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	3713	self doGrab
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3714	] ifFalse:[
2681 2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	3715	super viewBackground:(self backgroundColor).
717 540e638fdebb Avoid pointer and keyboard grabbing if not necessary Stefan Vogel <sv@exept.de> parents: 712 diff changeset	3716	].
1791 bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	3717	loItems do:[:el\| el updateIndicators ].
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3718
1785 efa4cc8ca917 mnemonic behaviour changed ca parents: 1775 diff changeset	3719	loIndices size > 0 ifTrue:[
2681 2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	3720	self redrawX:0 y:0 width:width height:height.
2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	3721	self openMenusFromItemIndices:loIndices.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3722	].
dce33f8bb806 intitial checkin ca parents: diff changeset	3723
1177 cfd7f71639f3 checkin from browser Claus Gittinger <cg@exept.de> parents: 1164 diff changeset	3724	"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	3725	"Modified: / 18.3.1999 / 18:22:18 / stefan"
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3726	!
dce33f8bb806 intitial checkin ca parents: diff changeset	3727
dce33f8bb806 intitial checkin ca parents: diff changeset	3728	realize
dce33f8bb806 intitial checkin ca parents: diff changeset	3729	"realize menu and shadowView
dce33f8bb806 intitial checkin ca parents: diff changeset	3730	"
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3731
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3732	self isPopUpView ifTrue:[
2347 9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	3733	"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	3734	shadowView must be realized before self"
9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	3735	self hiddenOnRealize:true.
9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	3736	super realize.
9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	3737	self resize.
9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	3738	self makeFullyVisible.
2003 732fbaf5864f avoid changing the level after realization (to avoid confusing the shadow) Claus Gittinger <cg@exept.de> parents: 2000 diff changeset	3739	"/ self mustRearrange.
2347 9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	3740	shadowView notNil ifTrue:[
9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	3741	shadowView realize.
9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	3742	].
9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	3743	self raise.
9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	3744	self map.
736 220741d8049b Use #saveUnder. Claus Gittinger <cg@exept.de> parents: 735 diff changeset	3745	] ifFalse:[
2347 9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	3746	super realize.
1767 e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	3747	].
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	3748	self allSubViewsDo:[:aView\| aView realize ].
2347 9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	3749	hideOnRelease := defaultHideOnRelease.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3750	!
dce33f8bb806 intitial checkin ca parents: diff changeset	3751
dce33f8bb806 intitial checkin ca parents: diff changeset	3752	recreate
1832 f6e6640e99a3 comment Claus Gittinger <cg@exept.de> parents: 1829 diff changeset	3753	"this is called after a snapin or a migration.
f6e6640e99a3 comment Claus Gittinger <cg@exept.de> parents: 1829 diff changeset	3754	If the image was saved with an active menu, hide the menu
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3755	"
1455 5685ec322a5b sizeChanged:... Claus Gittinger <cg@exept.de> parents: 1388 diff changeset	3756	selection := nil.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3757	super recreate.
dce33f8bb806 intitial checkin ca parents: diff changeset	3758	!
dce33f8bb806 intitial checkin ca parents: diff changeset	3759
1130 fb79ef4aeec8 style changes Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	3760	reinitStyle
fb79ef4aeec8 style changes Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	3761	"handle style change while being open (win32 only - for now)"
fb79ef4aeec8 style changes Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	3762
fb79ef4aeec8 style changes Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	3763	super reinitStyle.
fb79ef4aeec8 style changes Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	3764
fb79ef4aeec8 style changes Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	3765	self fetchDeviceResources.
1811 df4f5e5b3396 restart under windows Claus Gittinger <cg@exept.de> parents: 1810 diff changeset	3766	self mustRearrange. "/ care for changed font sizes etc.
df4f5e5b3396 restart under windows Claus Gittinger <cg@exept.de> parents: 1810 diff changeset	3767
df4f5e5b3396 restart under windows Claus Gittinger <cg@exept.de> parents: 1810 diff changeset	3768	self do:[:anItem \|
df4f5e5b3396 restart under windows Claus Gittinger <cg@exept.de> parents: 1810 diff changeset	3769	anItem reinitStyle
df4f5e5b3396 restart under windows Claus Gittinger <cg@exept.de> parents: 1810 diff changeset	3770	].
1130 fb79ef4aeec8 style changes Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	3771
fb79ef4aeec8 style changes Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	3772	"Created: / 10.9.1998 / 21:37:05 / cg"
1811 df4f5e5b3396 restart under windows Claus Gittinger <cg@exept.de> parents: 1810 diff changeset	3773	"Modified: / 17.8.2000 / 18:01:33 / cg"
1130 fb79ef4aeec8 style changes Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	3774	!
fb79ef4aeec8 style changes Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	3775
1796 c9d801c011f7 recompute layout after snapIn (font geometry could be different) Claus Gittinger <cg@exept.de> parents: 1795 diff changeset	3776	reinitialize
c9d801c011f7 recompute layout after snapIn (font geometry could be different) Claus Gittinger <cg@exept.de> parents: 1795 diff changeset	3777	"reinit after a snapIn
c9d801c011f7 recompute layout after snapIn (font geometry could be different) Claus Gittinger <cg@exept.de> parents: 1795 diff changeset	3778	"
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	super reinitialize.
1811 df4f5e5b3396 restart under windows Claus Gittinger <cg@exept.de> parents: 1810 diff changeset	3781	"/ self reinitStyle.
df4f5e5b3396 restart under windows Claus Gittinger <cg@exept.de> parents: 1810 diff changeset	3782
df4f5e5b3396 restart under windows Claus Gittinger <cg@exept.de> parents: 1810 diff changeset	3783	"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	3784	!
c9d801c011f7 recompute layout after snapIn (font geometry could be different) Claus Gittinger <cg@exept.de> parents: 1795 diff changeset	3785
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3786	unmap
1330 63d2fe5ebd48 comment Claus Gittinger <cg@exept.de> parents: 1313 diff changeset	3787	"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	3788	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	3789
2681 2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	3790	self removeDependencies.
798 74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	3791	self clearLastActiveMenu.
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3792	self doUngrab:(superMenu isNil).
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3793	"/ self isPopUpView ifTrue:[
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3794	"/ self doUngrab:(superMenu isNil)
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3795	"/ ].
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3796
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3797	super unmap.
dce33f8bb806 intitial checkin ca parents: diff changeset	3798	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	3799	!
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	updateLevelAndBorder
732fbaf5864f avoid changing the level after realization (to avoid confusing the shadow) Claus Gittinger <cg@exept.de> parents: 2000 diff changeset	3802	"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	3803
732fbaf5864f avoid changing the level after realization (to avoid confusing the shadow) Claus Gittinger <cg@exept.de> parents: 2000 diff changeset	3804	\|bw lvl\|
732fbaf5864f avoid changing the level after realization (to avoid confusing the shadow) Claus Gittinger <cg@exept.de> parents: 2000 diff changeset	3805
732fbaf5864f avoid changing the level after realization (to avoid confusing the shadow) Claus Gittinger <cg@exept.de> parents: 2000 diff changeset	3806	self isPopUpView ifTrue:[
732fbaf5864f avoid changing the level after realization (to avoid confusing the shadow) Claus Gittinger <cg@exept.de> parents: 2000 diff changeset	3807	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	3808	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	3809	] ifFalse:[
732fbaf5864f avoid changing the level after realization (to avoid confusing the shadow) Claus Gittinger <cg@exept.de> parents: 2000 diff changeset	3810	bw := styleSheet is3D ifFalse:[1] ifTrue:[0].
2372 d136f6d4b7c5 bugfix if font is nil ca parents: 2364 diff changeset	3811	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	3812	].
732fbaf5864f avoid changing the level after realization (to avoid confusing the shadow) Claus Gittinger <cg@exept.de> parents: 2000 diff changeset	3813	self borderWidth:bw.
732fbaf5864f avoid changing the level after realization (to avoid confusing the shadow) Claus Gittinger <cg@exept.de> parents: 2000 diff changeset	3814	self level:lvl.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3815	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	3816
1878 1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3817	!MenuPanel methodsFor:'keyboard control'!
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3818
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3819	mnemonicViewNext:aKeyEvent
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3820	"a mnemonicKey event as forwarded from the keyboardProcessor - if there
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3821	is the mnemonic-key defined for any menuItem, handle the menuItem and
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3822	return the topMenu otherwise nil.
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3823	"
2112 c4cd07f21fac processing mnemonic's (search next from current) ca parents: 2111 diff changeset	3824	\|menu uKey lKey list index\|
c4cd07f21fac processing mnemonic's (search next from current) ca parents: 2111 diff changeset	3825
c4cd07f21fac processing mnemonic's (search next from current) ca parents: 2111 diff changeset	3826	superMenu notNil ifTrue:[ ^ superMenu mnemonicViewNext:aKeyEvent ].
1878 1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3827	shown ifFalse:[^ nil].
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3828
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3829	uKey := aKeyEvent rawKey last asUppercase.
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3830	lKey := uKey asLowercase.
2112 c4cd07f21fac processing mnemonic's (search next from current) ca parents: 2111 diff changeset	3831
c4cd07f21fac processing mnemonic's (search next from current) ca parents: 2111 diff changeset	3832	selection notNil ifTrue:[
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	3833	"first lookup the current grapMenu before starting in the topMenu
975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	3834	"
975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	3835	menu := self detectGrabMenu.
975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	3836
975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	3837	[ menu ~~ self ] whileTrue:[
975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	3838	index := menu selectionIndex.
975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	3839	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	3840	maxDepth:10 from:(index + 1) to:99999
2604 34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	3841	ignoreSubmenuBlock:[:anItem\| anItem ignoreMnemonicKeys ].
2112 c4cd07f21fac processing mnemonic's (search next from current) ca parents: 2111 diff changeset	3842
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	3843	list size ~~ 0 ifTrue:[
975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	3844	"/ has item which responds to the mnemonic
975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	3845	menu processCollectedIndices:list.
975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	3846	^ self
975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	3847	].
975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	3848	menu := menu superMenu.
975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	3849	].
975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	3850	index := self selectionIndex.
975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	3851	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	3852	maxDepth:10 from:(1 + index) to:99999
2604 34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	3853	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	3854
2112 c4cd07f21fac processing mnemonic's (search next from current) ca parents: 2111 diff changeset	3855	] ifFalse:[
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	3856	index := 99999.
975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	3857	list := nil.
2112 c4cd07f21fac processing mnemonic's (search next from current) ca parents: 2111 diff changeset	3858	].
c4cd07f21fac processing mnemonic's (search next from current) ca parents: 2111 diff changeset	3859
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	3860	list isNil ifTrue:[
975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	3861	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	3862	maxDepth:1 from:1 to:index
2604 34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	3863	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	3864
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	3865
975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	3866	list isNil ifTrue:[
975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	3867	"/ must clear existing selection
975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	3868	self selection:nil.
975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	3869	^ nil
975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	3870	]
2112 c4cd07f21fac processing mnemonic's (search next from current) ca parents: 2111 diff changeset	3871	].
c4cd07f21fac processing mnemonic's (search next from current) ca parents: 2111 diff changeset	3872
c4cd07f21fac processing mnemonic's (search next from current) ca parents: 2111 diff changeset	3873	"/ has item which responds to the mnemonic
c4cd07f21fac processing mnemonic's (search next from current) ca parents: 2111 diff changeset	3874	self processCollectedIndices:list.
1889 43516e4588ce give warning messages for unimplemented menu-aspects Claus Gittinger <cg@exept.de> parents: 1878 diff changeset	3875	!
1878 1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3876
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3877	openMenusFromItemIndices:anItemIndiceList
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3878	"open all menus derived from sequence of item indices
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3879	"
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3880	\|item\|
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3881
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3882	anItemIndiceList size == 0 ifTrue:[
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	3883	^ self
1878 1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3884	].
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3885	item := self itemAt:(anItemIndiceList removeFirst).
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3886
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3887	(item notNil and:[item enabled]) ifTrue:[
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	3888	InitialSelectionQuerySignal answer:anItemIndiceList do:[
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	3889	self selection:item openMenu:true.
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	3890	]
1889 43516e4588ce give warning messages for unimplemented menu-aspects Claus Gittinger <cg@exept.de> parents: 1878 diff changeset	3891	].
43516e4588ce give warning messages for unimplemented menu-aspects Claus Gittinger <cg@exept.de> parents: 1878 diff changeset	3892	!
1878 1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3893
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3894	processCollectedIndices:indices
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3895	\|menu item\|
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3896
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3897	indices size == 0 ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	3898	^ self
1878 1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3899	].
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3900	menu := self.
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3901
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3902	[menu selectionIndex == indices first] whileTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	3903	( (item := menu selection) isNil "/ shouldn't happen
93426020ceed * empty log message * ca parents: 2216 diff changeset	3904	or:[(menu := item submenu) isNil] "/ no more indices; done
93426020ceed * empty log message * ca parents: 2216 diff changeset	3905	) ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	3906	^ true
93426020ceed * empty log message * ca parents: 2216 diff changeset	3907	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	3908	indices removeFirst.
93426020ceed * empty log message * ca parents: 2216 diff changeset	3909
93426020ceed * empty log message * ca parents: 2216 diff changeset	3910	indices isEmpty ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	3911	menu selection:nil.
93426020ceed * empty log message * ca parents: 2216 diff changeset	3912	^ self
93426020ceed * empty log message * ca parents: 2216 diff changeset	3913	]
1878 1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3914	].
1889 43516e4588ce give warning messages for unimplemented menu-aspects Claus Gittinger <cg@exept.de> parents: 1878 diff changeset	3915	menu openMenusFromItemIndices:indices.
43516e4588ce give warning messages for unimplemented menu-aspects Claus Gittinger <cg@exept.de> parents: 1878 diff changeset	3916	!
1878 1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3917
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3918	processShortcut:aKeyEvent
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3919	"a shortcutKey event as forwarded from the keyboardProcessor - if there is the
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3920	shortcut-key defined process the shortcut and return true otherwise false.
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3921	"
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	3922	\|menu rKey lKey list item\|
1878 1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3923
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3924	superMenu notNil ifTrue:[
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3925	^ superMenu processShortcut:aKeyEvent
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3926	].
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3927	shown ifFalse:[^ false].
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3928
2604 34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	3929	lKey := aKeyEvent key.
34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	3930
34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	3931	"/ fast check, cursor keys are not supported
34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	3932
34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	3933	( #( CursorDown CursorUp CursorRight CursorLeft
34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	3934	) includes:lKey
34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	3935	) ifTrue:[
34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	3936	^ false.
34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	3937	].
1878 1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3938	rKey := aKeyEvent rawKey.
2604 34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	3939	item := nil.
1878 1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3940	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	3941
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3942	[true] whileTrue:[
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3943	list := menu selectItemIndicesFor:[:el\|\|skey\|
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3944	item := el.
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3945	skey := el shortcutKey.
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3946	skey == rKey or:[skey == lKey]
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3947	]
2604 34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	3948	maxDepth:10 from:1 to:99999
34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	3949	ignoreSubmenuBlock:[:anItem\| anItem ignoreShortcutKeys ].
1878 1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3950
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3951	list size ~~ 0 ifTrue:[
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3952	"/ has item which responds to the shortcut
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3953	item hasSubmenu ifFalse:[
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3954	menu accept:item
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3955	] ifTrue:[
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3956	menu processCollectedIndices:list.
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3957	self windowGroup focusView:self.
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3958	].
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3959	^ true
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3960	].
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	menu == self ifTrue:[ ^ false ].
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3963	menu := self.
1889 43516e4588ce give warning messages for unimplemented menu-aspects Claus Gittinger <cg@exept.de> parents: 1878 diff changeset	3964	].
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	3965	^ false "/ never reached
1889 43516e4588ce give warning messages for unimplemented menu-aspects Claus Gittinger <cg@exept.de> parents: 1878 diff changeset	3966	!
1878 1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	3967
2604 34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	3968	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	3969	"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	3970	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	3971	true. If no item is detected, nil is returned.
2604 34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	3972	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	3973	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	3974	Otherwise the item is not asked for its submenu.
2112 c4cd07f21fac processing mnemonic's (search next from current) ca parents: 2111 diff changeset	3975	"
c4cd07f21fac processing mnemonic's (search next from current) ca parents: 2111 diff changeset	3976	\|start stop\|
c4cd07f21fac processing mnemonic's (search next from current) ca parents: 2111 diff changeset	3977
c4cd07f21fac processing mnemonic's (search next from current) ca parents: 2111 diff changeset	3978	maxDepth <= 0 ifTrue:[^ nil].
c4cd07f21fac processing mnemonic's (search next from current) ca parents: 2111 diff changeset	3979
c4cd07f21fac processing mnemonic's (search next from current) ca parents: 2111 diff changeset	3980	start := aStart max:1.
c4cd07f21fac processing mnemonic's (search next from current) ca parents: 2111 diff changeset	3981	stop := aStop min:(items size).
c4cd07f21fac processing mnemonic's (search next from current) ca parents: 2111 diff changeset	3982
2604 34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	3983	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	3984	item := items at:i.
2604 34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	3985
34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	3986	(aOneArgBlock value:item) ifTrue:[
34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	3987	(item enabled and:[item isVisible]) ifTrue:[
34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	3988	^ 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	3989	]
2604 34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	3990	] ifFalse:[
34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	3991	(item hasSubmenu and:[item hasDelayedMenu not]) ifTrue:[
34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	3992	(item enabled and:[item isVisible]) ifTrue:[
34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	3993	(ignoreSubmenueBlock isNil or:[(ignoreSubmenueBlock value:item) not]) ifTrue:[
34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	3994	menu := item submenu.
34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	3995
34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	3996	(menu notNil and:[menu isEnabled]) ifTrue:[
34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	3997	result := menu selectItemIndicesFor:aOneArgBlock
34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	3998	maxDepth:(maxDepth - 1) from:1 to:99999
34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	3999	ignoreSubmenuBlock:ignoreSubmenueBlock.
34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	4000
34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	4001	result notNil ifTrue:[
34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	4002	result addFirst:i.
34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	4003	^ result
34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	4004	].
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	].
2603 edb5408fd3e7 prepared to test an item whether the submenu should be created caused by mnemonic or accelorator key ca parents: 2579 diff changeset	4009	].
1878 1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	4010	].
1889 43516e4588ce give warning messages for unimplemented menu-aspects Claus Gittinger <cg@exept.de> parents: 1878 diff changeset	4011	^ nil
43516e4588ce give warning messages for unimplemented menu-aspects Claus Gittinger <cg@exept.de> parents: 1878 diff changeset	4012	! !
1878 1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	4013
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4014	!MenuPanel methodsFor:'misc'!
dce33f8bb806 intitial checkin ca parents: diff changeset	4015
427 82cbad72e197 raiseDeiconified is treated like a raise Claus Gittinger <cg@exept.de> parents: 420 diff changeset	4016	raiseDeiconified
82cbad72e197 raiseDeiconified is treated like a raise Claus Gittinger <cg@exept.de> parents: 420 diff changeset	4017	^ self raise
82cbad72e197 raiseDeiconified is treated like a raise Claus Gittinger <cg@exept.de> parents: 420 diff changeset	4018
82cbad72e197 raiseDeiconified is treated like a raise Claus Gittinger <cg@exept.de> parents: 420 diff changeset	4019	"Created: 21.6.1997 / 13:29:12 / cg"
82cbad72e197 raiseDeiconified is treated like a raise Claus Gittinger <cg@exept.de> parents: 420 diff changeset	4020	!
82cbad72e197 raiseDeiconified is treated like a raise Claus Gittinger <cg@exept.de> parents: 420 diff changeset	4021
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4022	superMenu
dce33f8bb806 intitial checkin ca parents: diff changeset	4023	"returns supermenu or nil
dce33f8bb806 intitial checkin ca parents: diff changeset	4024	"
dce33f8bb806 intitial checkin ca parents: diff changeset	4025	^ superMenu
dce33f8bb806 intitial checkin ca parents: diff changeset	4026
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	topMenu
dce33f8bb806 intitial checkin ca parents: diff changeset	4031	"returns the topMenu; the one having no superMenu
dce33f8bb806 intitial checkin ca parents: diff changeset	4032	"
1791 bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	4033	\|menu smenu\|
bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	4034
bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	4035	menu := self.
bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	4036
bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	4037	[(smenu := menu superMenu) notNil] whileTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	4038	menu := smenu
1791 bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	4039	].
bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	4040	^ menu
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4041	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	4042
1825 962390f1b499 category change Claus Gittinger <cg@exept.de> parents: 1824 diff changeset	4043	!MenuPanel methodsFor:'printing & storing'!
798 74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4044
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4045	printString
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4046	"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	4047	"
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4048	\|string label\|
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4049
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4050	string := 'Menu:'.
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4051
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4052	self do:[:anItem\|
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	4053	label := anItem label ? ''.
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	4054	string := string ,' ', label printString.
798 74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4055	].
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4056	^ string
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4057
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4058	"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	4059	! !
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4060
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4061	!MenuPanel methodsFor:'private'!
dce33f8bb806 intitial checkin ca parents: diff changeset	4062
434 9898a2909ef0 add active help for items ca parents: 433 diff changeset	4063	application
1613 5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	4064	"optimize access to retrive the application
5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	4065	"
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	4066	application notNil ifTrue:[^ application ].
434 9898a2909ef0 add active help for items ca parents: 433 diff changeset	4067
9898a2909ef0 add active help for items ca parents: 433 diff changeset	4068	superMenu notNil ifTrue:[
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	4069	application := superMenu application.
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	4070	^ application
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	4071	].
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	4072	application := super application.
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	4073	^ application
1872 b20e27632fd8 application fetch fix Claus Gittinger <cg@exept.de> parents: 1870 diff changeset	4074	!
434 9898a2909ef0 add active help for items ca parents: 433 diff changeset	4075
1572 80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	4076	detectItemForKey:aKey
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	4077	"returns the item assigned to a key, accessCharacter or starts with.
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	4078	if no item is detected nil is returned.
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	4079	"
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	4080	\|cIdx uKey lKey item\|
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	4081
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4082	items isNil ifTrue:[^ nil].
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4083
1572 80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	4084	cIdx := self selectionIndex.
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	4085	uKey := aKey asUppercase.
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	4086	lKey := aKey asLowercase.
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	4087
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4088	items keysAndValuesDo:[:anIndex :anItem\| \|char label\|
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	4089	( anIndex ~~ cIdx
93426020ceed * empty log message * ca parents: 2216 diff changeset	4090	and:[anItem canSelect
93426020ceed * empty log message * ca parents: 2216 diff changeset	4091	and:[(label := anItem textLabel) notNil
93426020ceed * empty log message * ca parents: 2216 diff changeset	4092	and:[label size ~~ 0]]]
93426020ceed * empty log message * ca parents: 2216 diff changeset	4093	) ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	4094	(char := anItem accessCharacter) notNil ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	4095	(char == uKey or:[char == lKey]) ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	4096	^ anItem
93426020ceed * empty log message * ca parents: 2216 diff changeset	4097	]
93426020ceed * empty log message * ca parents: 2216 diff changeset	4098	] ifFalse:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	4099	char := label at:1.
93426020ceed * empty log message * ca parents: 2216 diff changeset	4100
93426020ceed * empty log message * ca parents: 2216 diff changeset	4101	(char == uKey or:[char == lKey]) ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	4102	anIndex > cIdx ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	4103	^ anItem
93426020ceed * empty log message * ca parents: 2216 diff changeset	4104	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	4105	item isNil ifTrue:[item := anItem]
93426020ceed * empty log message * ca parents: 2216 diff changeset	4106	]
93426020ceed * empty log message * ca parents: 2216 diff changeset	4107	]
93426020ceed * empty log message * ca parents: 2216 diff changeset	4108	]
1572 80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	4109	].
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	4110	^ item
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	4111	!
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	4112
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	4113	menuAdornmentAt:aSymbol
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4114	"returns a value derived from adornment
dce33f8bb806 intitial checkin ca parents: diff changeset	4115	"
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	4116	adornment isNil ifTrue:[^ nil].
975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	4117	^ adornment at:aSymbol ifAbsent:nil
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4118	!
dce33f8bb806 intitial checkin ca parents: diff changeset	4119
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	4120	menuAdornmentAt:aSymbol put:something
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	4121	"sets a value for the specific menu
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	4122	"
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	4123	\|oldValue\|
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	4124
653 cf9b6ef11ade bug fix; no automatic rearrange of items ca parents: 650 diff changeset	4125	adornment isNil ifTrue:[
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	4126	something isNil ifTrue:[^ self].
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	4127	adornment := IdentityDictionary new.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	4128	] ifFalse:[
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	4129	oldValue := adornment at:aSymbol ifAbsent:nil.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	4130	oldValue == something ifTrue:[^ self].
653 cf9b6ef11ade bug fix; no automatic rearrange of items ca parents: 650 diff changeset	4131	].
cf9b6ef11ade bug fix; no automatic rearrange of items ca parents: 650 diff changeset	4132	adornment at:aSymbol put:something.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4133	!
dce33f8bb806 intitial checkin ca parents: diff changeset	4134
dce33f8bb806 intitial checkin ca parents: diff changeset	4135	onEachPerform:aSelector withArgList:aList
dce33f8bb806 intitial checkin ca parents: diff changeset	4136	"on each item perform selector with an argument derived from aList
dce33f8bb806 intitial checkin ca parents: diff changeset	4137	"
dce33f8bb806 intitial checkin ca parents: diff changeset	4138	aList isCollection ifTrue:[
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	4139	items size >= aList size ifTrue:[
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	4140	aList keysAndValuesDo:[:anIndex :anArg\|
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	4141	(items at:anIndex) perform:aSelector with:anArg
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	4142	]
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	4143	]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4144	] ifFalse:[
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	4145	self do:[:anItem\| anItem perform:aSelector with:aList ]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4146	]
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
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	4151	registerImageOnDevice:anImage
2269 e250e3adfc56 registration of images ca parents: 2255 diff changeset	4152
e250e3adfc56 registration of images ca parents: 2255 diff changeset	4153	anImage isNil ifTrue:[ ^ nil ].
e250e3adfc56 registration of images ca parents: 2255 diff changeset	4154	^ self class image:anImage onDevice:device
e250e3adfc56 registration of images ca parents: 2255 diff changeset	4155
e250e3adfc56 registration of images ca parents: 2255 diff changeset	4156	"/ \|image\|
e250e3adfc56 registration of images ca parents: 2255 diff changeset	4157	"/
e250e3adfc56 registration of images ca parents: 2255 diff changeset	4158	"/ (image := anImage) notNil ifTrue:[
e250e3adfc56 registration of images ca parents: 2255 diff changeset	4159	"/ image device ~~ device ifTrue:[
e250e3adfc56 registration of images ca parents: 2255 diff changeset	4160	"/ image := image copy.
e250e3adfc56 registration of images ca parents: 2255 diff changeset	4161	"/ ].
e250e3adfc56 registration of images ca parents: 2255 diff changeset	4162	"/ image := image onDevice:device.
e250e3adfc56 registration of images ca parents: 2255 diff changeset	4163	"/ image := image clearMaskedPixels.
e250e3adfc56 registration of images ca parents: 2255 diff changeset	4164	"/ ].
e250e3adfc56 registration of images ca parents: 2255 diff changeset	4165	"/ ^ image
2355 cd91ed4dc4c6 * empty log message * Claus Gittinger <cg@exept.de> parents: 2354 diff changeset	4166	!
cd91ed4dc4c6 * empty log message * Claus Gittinger <cg@exept.de> parents: 2354 diff changeset	4167
cd91ed4dc4c6 * empty log message * Claus Gittinger <cg@exept.de> parents: 2354 diff changeset	4168	superMenu:aSuperMenu
cd91ed4dc4c6 * empty log message * Claus Gittinger <cg@exept.de> parents: 2354 diff changeset	4169	"set my supermenu from which i'am activated
cd91ed4dc4c6 * empty log message * Claus Gittinger <cg@exept.de> parents: 2354 diff changeset	4170	"
cd91ed4dc4c6 * empty log message * Claus Gittinger <cg@exept.de> parents: 2354 diff changeset	4171	superMenu := aSuperMenu.
cd91ed4dc4c6 * empty log message * Claus Gittinger <cg@exept.de> parents: 2354 diff changeset	4172
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	4173	superMenu notNil ifTrue:[
2355 cd91ed4dc4c6 * empty log message * Claus Gittinger <cg@exept.de> parents: 2354 diff changeset	4174	styleSheet := superMenu styleSheet.
cd91ed4dc4c6 * empty log message * Claus Gittinger <cg@exept.de> parents: 2354 diff changeset	4175	rightArrow := superMenu rightArrow.
cd91ed4dc4c6 * empty log message * Claus Gittinger <cg@exept.de> parents: 2354 diff changeset	4176	rightArrowShadow := superMenu rightArrowShadow.
cd91ed4dc4c6 * empty log message * Claus Gittinger <cg@exept.de> parents: 2354 diff changeset	4177	].
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4178	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	4179
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	4180	!MenuPanel methodsFor:'private-activation'!
687 23ce9888d76f bug fixes: ca parents: 681 diff changeset	4181
798 74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4182	activeMenu
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4183	"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	4184	"
687 23ce9888d76f bug fixes: ca parents: 681 diff changeset	4185	^ lastActiveMenu ? self
23ce9888d76f bug fixes: ca parents: 681 diff changeset	4186
798 74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4187	"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	4188	!
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	activeMenu:aMenu
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4191	"set the current active menu
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4192	"
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4193	lastActiveMenu := aMenu
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4194
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4195	"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	4196	!
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	becomesActiveMenu
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4199	"submenu becomes the active menu
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4200	"
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4201	mapTime := Time millisecondClockValue.
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4202	self topMenu activeMenu:self.
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4203
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4204	"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	4205	!
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	clearLastActiveMenu
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4208	"reset the current active menu
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4209	"
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4210	\|top\|
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4211
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4212	top := self topMenu.
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4213
2251 30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	4214	"/ prevFocusView notNil ifTrue:[
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	4215	"/ self windowGroup focusView:prevFocusView.
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	4216	"/ prevFocusView := nil.
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	4217	"/ ].
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	4218	"/
798 74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4219	top activeMenu == self ifTrue:[
2251 30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	4220	top activeMenu:nil
687 23ce9888d76f bug fixes: ca parents: 681 diff changeset	4221	]
23ce9888d76f bug fixes: ca parents: 681 diff changeset	4222
798 74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4223	"Created: / 27.2.1998 / 17:41:17 / cg"
687 23ce9888d76f bug fixes: ca parents: 681 diff changeset	4224	!
23ce9888d76f bug fixes: ca parents: 681 diff changeset	4225
23ce9888d76f bug fixes: ca parents: 681 diff changeset	4226	mapTime
798 74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4227	"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	4228	"
687 23ce9888d76f bug fixes: ca parents: 681 diff changeset	4229	^ mapTime
798 74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4230
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4231	"Modified: / 27.2.1998 / 17:41:18 / cg"
687 23ce9888d76f bug fixes: ca parents: 681 diff changeset	4232	! !
23ce9888d76f bug fixes: ca parents: 681 diff changeset	4233
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	4234	!MenuPanel methodsFor:'private-scrolling'!
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4235
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4236	hasScrollerAt:aDirection
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4237	"returns true if a visible scroller at a direction exists
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4238	"
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4239	\|layout\|
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4240
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4241	self hasScrollers ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	4242	^ false
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4243	].
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4244
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4245	aDirection == #PREV ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	4246	layout := items first layout.
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4247
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4248	^ self verticalLayout ifTrue:[ layout top < margin]
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	4249	ifFalse:[ layout left < margin]
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4250	].
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4251	layout := items last layout.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4252
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4253	^ self verticalLayout ifTrue:[ layout bottom > (height - margin)]
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	4254	ifFalse:[ layout right > (width - margin)]
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4255	!
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4256
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4257	hasScrollers
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4258	"returns true if scrollers are needed
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4259	"
2018 2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4260	\|maxExtent first last isVert\|
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4261
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4262	(mustRearrange or:[items size < 2]) ifTrue:[^ false].
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4263
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4264	isVert := self verticalLayout.
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4265
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4266	superView notNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	4267	( (first := items first layout) isNil
93426020ceed * empty log message * ca parents: 2216 diff changeset	4268	or:[(last := items last layout) isNil]
93426020ceed * empty log message * ca parents: 2216 diff changeset	4269	) ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	4270	^ false
93426020ceed * empty log message * ca parents: 2216 diff changeset	4271	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	4272	isVert ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	4273	^ first top < 0 or:[last bottom > height]
93426020ceed * empty log message * ca parents: 2216 diff changeset	4274	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	4275	^ first left < 0 or:[last right > width]
2018 2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4276	].
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4277	maxExtent := self maxExtent.
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4278
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4279	isVert ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	4280	^ (height < maxExtent y) not
2018 2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4281	].
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4282	^ (width < maxExtent x) not
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4283	!
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4284
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4285	indexOfItemAtScroller:aDirection
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4286	"returns the index of the item under the scroller or 0
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4287	"
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4288	\|bounds min max layout\|
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4289
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4290	bounds := self scrollerBoundsAt:aDirection.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4291
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4292	bounds isNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	4293	^ 0
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4294	].
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4295
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4296	self verticalLayout ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	4297	min := bounds top.
93426020ceed * empty log message * ca parents: 2216 diff changeset	4298	max := bounds bottom.
93426020ceed * empty log message * ca parents: 2216 diff changeset	4299
93426020ceed * empty log message * ca parents: 2216 diff changeset	4300	items keysAndValuesDo:[:anIndex :anItem\|
93426020ceed * empty log message * ca parents: 2216 diff changeset	4301	anItem isVisible ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	4302	layout := anItem layout.
93426020ceed * empty log message * ca parents: 2216 diff changeset	4303
93426020ceed * empty log message * ca parents: 2216 diff changeset	4304	(layout top < max and:[layout bottom > min]) ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	4305	^ anIndex
93426020ceed * empty log message * ca parents: 2216 diff changeset	4306	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	4307	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	4308	].
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4309	] ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	4310	min := bounds left.
93426020ceed * empty log message * ca parents: 2216 diff changeset	4311	max := bounds right.
93426020ceed * empty log message * ca parents: 2216 diff changeset	4312
93426020ceed * empty log message * ca parents: 2216 diff changeset	4313	items keysAndValuesDo:[:anIndex :anItem\|
93426020ceed * empty log message * ca parents: 2216 diff changeset	4314	anItem isVisible ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	4315	layout := anItem layout.
93426020ceed * empty log message * ca parents: 2216 diff changeset	4316
93426020ceed * empty log message * ca parents: 2216 diff changeset	4317	(layout left < max and:[layout right > min]) ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	4318	^ anIndex
93426020ceed * empty log message * ca parents: 2216 diff changeset	4319	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	4320	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	4321	]
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4322	].
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4323	^ 0
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4324	!
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4325
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4326	makeItemVisible:anItem
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4327	"make an item visible
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4328	"
2018 2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4329	\|boundsPREV boundsNEXT delta layout index scr0 scr1 windowSz scrSz doScroll
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4330	isVertical boundsMin layoutMin boundsMax layoutMax dltOrg
2042 cc2141b4117f checkin from browser Claus Gittinger <cg@exept.de> parents: 2041 diff changeset	4331	inv1 inv2\|
2018 2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4332
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4333	( anItem notNil
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4334	and:[self hasScrollers
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4335	and:[(layout := anItem layout) notNil]]
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4336	) ifFalse:[
2659 3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4337	^ self
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4338	].
2018 2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4339	index := self indexOfItem:anItem.
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4340	boundsPREV := self scrollerBoundsAt:#PREV.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4341	boundsNEXT := self scrollerBoundsAt:#NEXT.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4342
2018 2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4343	isVertical := self verticalLayout.
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4344
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4345	isVertical ifTrue:[
2659 3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4346	boundsMin := boundsPREV bottom.
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4347	boundsMax := boundsNEXT top.
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4348	layoutMin := layout top.
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4349	layoutMax := layout bottom.
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4350	windowSz := height.
2018 2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4351	] ifFalse:[
2659 3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4352	boundsMin := boundsPREV right.
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4353	boundsMax := boundsNEXT left.
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4354	layoutMin := layout left.
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4355	layoutMax := layout right.
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4356	windowSz := width.
2018 2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4357	].
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	layoutMin < boundsMin ifTrue:[
2659 3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4361	layoutMin >= 0 ifTrue:[
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4362	^ self
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4363	].
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4364	"/ test whether is first visible item
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4365	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	4366
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4367	index == 0 ifTrue:[ scr0 := margin ]
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4368	ifFalse:[ scr0 := boundsMin ].
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4369
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4370	delta := layoutMin negated + scr0.
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4371	] ifFalse:[
2659 3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4372	layoutMax > boundsMax ifFalse:[
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4373	^ self
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4374	].
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4375	"/ test whether is last visible item
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4376	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	4377
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4378	index == 0 ifTrue:[ scr0 := windowSz - margin ]
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4379	ifFalse:[ scr0 := boundsMax ].
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4380
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4381	delta := scr0 - layoutMax.
2018 2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4382	].
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4383	delta == 0 ifTrue:[ ^ self ].
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4384
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4385	doScroll := false.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4386
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4387	shown ifTrue:[
2659 3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4388	delta abs < (windowSz / 2) ifTrue:[
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4389	doScroll := true.
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4390	self repairDamage
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4391	]
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4392	].
2018 2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4393	isVertical ifTrue:[ dltOrg := 0@delta ] ifFalse:[dltOrg := delta@0].
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4394	items do:[:el\| el moveBy:dltOrg ].
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4395
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4396	doScroll ifFalse:[
2659 3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4397	self invalidate.
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4398	^ self
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4399	].
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4400
2018 2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4401	windowSz := windowSz - margin - margin.
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4402
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4403	scr0 := boundsMin.
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4404	scr1 := scr0 + delta abs.
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4405	scrSz := boundsMax - scr1.
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4406
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4407	delta < 0 ifTrue:[
2659 3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4408	isVertical ifTrue:[
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4409	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	4410	width:windowSz height:scrSz async:false.
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4411
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4412	scr1 := scr0 + scrSz.
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4413	inv2 := (margin @ scr1) extent:(windowSz @ (height - scr1 - margin)).
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4414	"/ 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	4415	] ifFalse:[
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4416	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	4417	width:scrSz height:windowSz async:false.
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4418
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4419	scr1 := scr0 + scrSz.
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4420	inv2 := (scr1 @ margin) extent:((width - scr1 - margin) @ windowSz).
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4421	"/ 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	4422	].
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4423	inv1 := boundsPREV.
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4424	] ifFalse:[
2659 3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4425	isVertical ifTrue:[
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4426	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	4427	width:windowSz height:scrSz async:false.
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4428
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4429	inv2 := (margin @ margin) extent:(windowSz @ (scr1 - margin)).
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4430	"/ 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	4431	] ifFalse:[
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4432	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	4433	width:scrSz height:windowSz async:false.
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4434
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4435	inv2 := (margin @ margin) extent:(scr1 - margin) @ windowSz.
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4436	"/ 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	4437	].
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4438	inv1 := boundsNEXT.
2042 cc2141b4117f checkin from browser Claus Gittinger <cg@exept.de> parents: 2041 diff changeset	4439	].
cc2141b4117f checkin from browser Claus Gittinger <cg@exept.de> parents: 2041 diff changeset	4440	self invalidate:inv1.
cc2141b4117f checkin from browser Claus Gittinger <cg@exept.de> parents: 2041 diff changeset	4441	self invalidate:inv2.
2048 ba472f3f46c7 code cleanup Claus Gittinger <cg@exept.de> parents: 2047 diff changeset	4442
ba472f3f46c7 code cleanup Claus Gittinger <cg@exept.de> parents: 2047 diff changeset	4443	"Modified: / 13.11.2001 / 20:26:42 / cg"
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4444	!
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4445
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	4446	scrollActivity
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	4447	"returns the one and only scrollActivity - data holder
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	4448	for a menu and all contained submenus
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	4449	"
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	4450	superMenu notNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	4451	^ superMenu scrollActivity
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	4452	].
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	4453	scrollActivity isNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	4454	scrollActivity := ScrollActivity new.
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	4455	].
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	4456	^ scrollActivity
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	4457	!
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	4458
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4459	scrollerBoundsAt:aDirection
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4460	"returns the bounds of the scroller at a direction or nil
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4461	"
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4462	\|y x w h inset\|
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4463
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4464	self hasScrollers ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	4465	^ nil
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4466	].
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4467	inset := 0.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4468	x := y := inset.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4469	w := h := 15.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4470
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4471	self verticalLayout ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	4472	aDirection == #NEXT ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	4473	y := height - h - inset.
93426020ceed * empty log message * ca parents: 2216 diff changeset	4474	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	4475	w := width - inset - inset.
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4476	] ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	4477	aDirection == #NEXT ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	4478	x := width - w - inset.
93426020ceed * empty log message * ca parents: 2216 diff changeset	4479	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	4480	h := height - inset - inset.
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4481	].
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4482	^ Rectangle left:x top:y width:w height:h
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4483	!
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4484
2046 012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	4485	scrollerDirectionAtPoint:aPoint
012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	4486	"returns the scroller-direction at aPoint, or nil
012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	4487	"
012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	4488	self hasScrollers ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	4489	#( PREV NEXT ) do:[:aDirection\| \|bounds\|
93426020ceed * empty log message * ca parents: 2216 diff changeset	4490	( (bounds := self scrollerBoundsAt:aDirection) notNil
93426020ceed * empty log message * ca parents: 2216 diff changeset	4491	and:[bounds containsPoint:aPoint]
93426020ceed * empty log message * ca parents: 2216 diff changeset	4492	) ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	4493	^ (self hasScrollerAt:aDirection) ifTrue:[aDirection] ifFalse:[nil]
93426020ceed * empty log message * ca parents: 2216 diff changeset	4494	]
93426020ceed * empty log message * ca parents: 2216 diff changeset	4495	]
2046 012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	4496	].
012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	4497	^ nil
012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	4498
012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	4499	"Created: / 13.11.2001 / 14:13:16 / cg"
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4500	! !
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4501
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	4502	!MenuPanel methodsFor:'private-searching'!
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4503
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4504	detectGrabMenu
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4505	"returns the menu which is responsible for the grap; the last opened menu
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4506	"
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4507	\|subMenu\|
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4508
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4509	selection notNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	4510	(subMenu := selection visibleSubmenu) notNil ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	4511	^ subMenu detectGrabMenu
93426020ceed * empty log message * ca parents: 2216 diff changeset	4512	]
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4513	].
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4514	^ self
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4515	!
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4516
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4517	detectMenuAtGrabPoint:aGrabPoint
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4518	"returns the menu which contains the grab-point
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4519	"
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4520	\|dstMenu dstPoint firstMenu\|
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4521
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4522	dstPoint := self translateGrabPoint:aGrabPoint.
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4523
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4524	((dstPoint x between:0 and:width) and:[dstPoint y between:0 and:height]) ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	4525	firstMenu := self.
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4526	].
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4527
1786 f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	4528	(selection isNil or:[(dstMenu := selection visibleSubmenu) isNil]) ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	4529	^ firstMenu
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4530	].
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4531	dstMenu := dstMenu detectMenuAtGrabPoint:aGrabPoint.
2059 c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	4532	^ dstMenu ? firstMenu
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4533	!
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4534
1767 e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	4535	detectViewAtX:x y:y in:aTopView
1922 1a2ab52eb2ab bug fix in #detectViewAtX:y:in: ca parents: 1921 diff changeset	4536	"detect view at x@y
1a2ab52eb2ab bug fix in #detectViewAtX:y:in: ca parents: 1921 diff changeset	4537	"
2020 1f1868eba475 extracted common code to detectViewAt:aPoint. Claus Gittinger <cg@exept.de> parents: 2018 diff changeset	4538	^ aTopView detectViewAt:(x@y).
1f1868eba475 extracted common code to detectViewAt:aPoint. Claus Gittinger <cg@exept.de> parents: 2018 diff changeset	4539
1f1868eba475 extracted common code to detectViewAt:aPoint. Claus Gittinger <cg@exept.de> parents: 2018 diff changeset	4540	"/ 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	4541	"/
1f1868eba475 extracted common code to detectViewAt:aPoint. Claus Gittinger <cg@exept.de> parents: 2018 diff changeset	4542	"/ \|p subViews\|
1f1868eba475 extracted common code to detectViewAt:aPoint. Claus Gittinger <cg@exept.de> parents: 2018 diff changeset	4543	"/
1f1868eba475 extracted common code to detectViewAt:aPoint. Claus Gittinger <cg@exept.de> parents: 2018 diff changeset	4544	"/ (subViews := aTopView subViews) notNil ifTrue:[
1f1868eba475 extracted common code to detectViewAt:aPoint. Claus Gittinger <cg@exept.de> parents: 2018 diff changeset	4545	"/ subViews do:[:v\| \|p\|
1f1868eba475 extracted common code to detectViewAt:aPoint. Claus Gittinger <cg@exept.de> parents: 2018 diff changeset	4546	"/ v shown ifTrue:[
1f1868eba475 extracted common code to detectViewAt:aPoint. Claus Gittinger <cg@exept.de> parents: 2018 diff changeset	4547	"/ ( (x between:(v left) and:(v right))
1f1868eba475 extracted common code to detectViewAt:aPoint. Claus Gittinger <cg@exept.de> parents: 2018 diff changeset	4548	"/ and:[y between:(v top) and:(v bottom)]
1f1868eba475 extracted common code to detectViewAt:aPoint. Claus Gittinger <cg@exept.de> parents: 2018 diff changeset	4549	"/ ) ifTrue:[
1f1868eba475 extracted common code to detectViewAt:aPoint. Claus Gittinger <cg@exept.de> parents: 2018 diff changeset	4550	"/ 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	4551	"/ ^ 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	4552	"/ ]
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	"/ ^ aTopView
1f1868eba475 extracted common code to detectViewAt:aPoint. Claus Gittinger <cg@exept.de> parents: 2018 diff changeset	4557
1f1868eba475 extracted common code to detectViewAt:aPoint. Claus Gittinger <cg@exept.de> parents: 2018 diff changeset	4558	"Modified: / 10.10.2001 / 13:45:56 / cg"
1767 e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	4559	!
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	4560
2347 9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	4561	itemAt:stringOrNumberOrPoint
9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	4562	"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	4563	If no item match nil is returned.
9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	4564	"
9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	4565	\|idx\|
9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	4566
9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	4567	stringOrNumberOrPoint isPoint ifTrue:[
9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	4568	^ self itemAtPoint:stringOrNumberOrPoint
9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	4569	].
9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	4570	idx := self indexOf:stringOrNumberOrPoint.
9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	4571	(idx > 0 and:[idx <= items size]) ifTrue:[ ^ items at:idx ].
2046 012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	4572	^ nil
2347 9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	4573	!
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	itemAtPoint:aPoint
9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	4576	"returns the item at aPoint or nil if none detected
9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	4577	"
9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	4578	\|x y\|
9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	4579
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4580	items notNil ifTrue:[
2347 9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	4581	x := aPoint x.
9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	4582	y := aPoint y.
9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	4583	^ items detect:[:el\| el containsPointX:x y:y] ifNone:nil
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4584	].
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4585	^ nil
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4586	!
dce33f8bb806 intitial checkin ca parents: diff changeset	4587
2048 ba472f3f46c7 code cleanup Claus Gittinger <cg@exept.de> parents: 2047 diff changeset	4588	superMenuAtPoint:aPoint
ba472f3f46c7 code cleanup Claus Gittinger <cg@exept.de> parents: 2047 diff changeset	4589	"returns the superMenu which contains aPoint, or nil if none detected
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4590	"
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4591	\|grabPoint superMenu\|
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4592
2048 ba472f3f46c7 code cleanup Claus Gittinger <cg@exept.de> parents: 2047 diff changeset	4593	(self containsPoint:aPoint) ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	4594	^ self
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4595	].
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4596
2048 ba472f3f46c7 code cleanup Claus Gittinger <cg@exept.de> parents: 2047 diff changeset	4597	grabPoint := aPoint - (self translateGrabPoint:0).
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4598	superMenu := self.
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4599
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4600	[ (superMenu := superMenu superMenu) notNil ] whileTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	4601	(superMenu containsPoint:(superMenu translateGrabPoint:grabPoint)) ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	4602	^ superMenu
93426020ceed * empty log message * ca parents: 2216 diff changeset	4603	]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4604	].
dce33f8bb806 intitial checkin ca parents: diff changeset	4605	^ nil
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4606
2048 ba472f3f46c7 code cleanup Claus Gittinger <cg@exept.de> parents: 2047 diff changeset	4607	"Created: / 13.11.2001 / 20:22:53 / cg"
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4608	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	4609
dce33f8bb806 intitial checkin ca parents: diff changeset	4610	!MenuPanel methodsFor:'queries'!
dce33f8bb806 intitial checkin ca parents: diff changeset	4611
2003 732fbaf5864f avoid changing the level after realization (to avoid confusing the shadow) Claus Gittinger <cg@exept.de> parents: 2000 diff changeset	4612	container:aView
732fbaf5864f avoid changing the level after realization (to avoid confusing the shadow) Claus Gittinger <cg@exept.de> parents: 2000 diff changeset	4613	super container:aView.
732fbaf5864f avoid changing the level after realization (to avoid confusing the shadow) Claus Gittinger <cg@exept.de> parents: 2000 diff changeset	4614	aView notNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	4615	"/ I am no longer a popUpView
93426020ceed * empty log message * ca parents: 2216 diff changeset	4616	self updateLevelAndBorder
2003 732fbaf5864f avoid changing the level after realization (to avoid confusing the shadow) Claus Gittinger <cg@exept.de> parents: 2000 diff changeset	4617	].
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
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4620	containsPoint:aPoint
dce33f8bb806 intitial checkin ca parents: diff changeset	4621	"returns true if point is contained by the view
dce33f8bb806 intitial checkin ca parents: diff changeset	4622	"
dce33f8bb806 intitial checkin ca parents: diff changeset	4623	^ self containsPointX:(aPoint x) y:(aPoint y)
dce33f8bb806 intitial checkin ca parents: diff changeset	4624	!
dce33f8bb806 intitial checkin ca parents: diff changeset	4625
dce33f8bb806 intitial checkin ca parents: diff changeset	4626	containsPointX:x y:y
dce33f8bb806 intitial checkin ca parents: diff changeset	4627	"returns true if point is contained by the view
dce33f8bb806 intitial checkin ca parents: diff changeset	4628	"
708 245b1aa06151 checkin from browser Claus Gittinger <cg@exept.de> parents: 706 diff changeset	4629	^ (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	4630
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4631	!
dce33f8bb806 intitial checkin ca parents: diff changeset	4632
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	4633	hasGroupDividerAt:anIndex
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4634	"returns true if a divider is defined at an index
dce33f8bb806 intitial checkin ca parents: diff changeset	4635	"
dce33f8bb806 intitial checkin ca parents: diff changeset	4636	\|i\|
dce33f8bb806 intitial checkin ca parents: diff changeset	4637
dce33f8bb806 intitial checkin ca parents: diff changeset	4638	groupSizes size ~~ 0 ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	4639	i := 0.
93426020ceed * empty log message * ca parents: 2216 diff changeset	4640
93426020ceed * empty log message * ca parents: 2216 diff changeset	4641	groupSizes do:[:t\|
93426020ceed * empty log message * ca parents: 2216 diff changeset	4642	(i := i + t) == anIndex ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	4643	^ true
93426020ceed * empty log message * ca parents: 2216 diff changeset	4644	]
93426020ceed * empty log message * ca parents: 2216 diff changeset	4645	]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4646	].
dce33f8bb806 intitial checkin ca parents: diff changeset	4647	^ false
dce33f8bb806 intitial checkin ca parents: diff changeset	4648
dce33f8bb806 intitial checkin ca parents: diff changeset	4649	!
dce33f8bb806 intitial checkin ca parents: diff changeset	4650
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	4651	hasGroupDividers
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	4652	"returns true if any group divider exists
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	4653	"
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	4654	^ (items size ~~ 0 and:[groupSizes size ~~ 0])
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	4655	!
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	4656
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4657	isEnabled
dce33f8bb806 intitial checkin ca parents: diff changeset	4658	"returns enabled state of menu and items
dce33f8bb806 intitial checkin ca parents: diff changeset	4659	"
dce33f8bb806 intitial checkin ca parents: diff changeset	4660	^ self enabled
dce33f8bb806 intitial checkin ca parents: diff changeset	4661	!
dce33f8bb806 intitial checkin ca parents: diff changeset	4662
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	4663	isFitPanel
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	4664	"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	4665	be fit to the extent of its superView;
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4666	NOT SUPPORTED
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4667	"
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4668	^ false
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	4669	!
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	4670
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4671	isPopUpView
dce33f8bb806 intitial checkin ca parents: diff changeset	4672	"return true if view is a popup view; without decoration
dce33f8bb806 intitial checkin ca parents: diff changeset	4673	and popUp to top immediately
dce33f8bb806 intitial checkin ca parents: diff changeset	4674	"
dce33f8bb806 intitial checkin ca parents: diff changeset	4675	^ superView isNil
dce33f8bb806 intitial checkin ca parents: diff changeset	4676
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	isVerticalLayout
dce33f8bb806 intitial checkin ca parents: diff changeset	4681	"returns true if vertical layout otherwise false( horizontal layout )
dce33f8bb806 intitial checkin ca parents: diff changeset	4682	"
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4683	^ self verticalLayout
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4684
dce33f8bb806 intitial checkin ca parents: diff changeset	4685
416 c05874084d4c implement ca parents: 407 diff changeset	4686	!
c05874084d4c implement ca parents: 407 diff changeset	4687
1793 f76529768dd6 keyPress:... check for wrapped view ca parents: 1791 diff changeset	4688	isViewWrapper
2214 8eefad87cf62 drawing delayed menu indicators... first try not yet finished ca parents: 2199 diff changeset	4689	^ items size == 0 and:[subViews size ~~ 0]
1793 f76529768dd6 keyPress:... check for wrapped view ca parents: 1791 diff changeset	4690	!
f76529768dd6 keyPress:... check for wrapped view ca parents: 1791 diff changeset	4691
416 c05874084d4c implement ca parents: 407 diff changeset	4692	type
428 5cf5fb7ecf39 type ca parents: 427 diff changeset	4693	^ nil.
416 c05874084d4c implement ca parents: 407 diff changeset	4694
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4695	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	4696
dce33f8bb806 intitial checkin ca parents: diff changeset	4697	!MenuPanel methodsFor:'selection'!
dce33f8bb806 intitial checkin ca parents: diff changeset	4698
dce33f8bb806 intitial checkin ca parents: diff changeset	4699	hasSelection
dce33f8bb806 intitial checkin ca parents: diff changeset	4700	"returns true if a selection exists
dce33f8bb806 intitial checkin ca parents: diff changeset	4701	"
dce33f8bb806 intitial checkin ca parents: diff changeset	4702	^ self selection notNil
dce33f8bb806 intitial checkin ca parents: diff changeset	4703	!
dce33f8bb806 intitial checkin ca parents: diff changeset	4704
2199 61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	4705	openDelayed:anItem
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	4706
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	4707	superMenu notNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	4708	superMenu openDelayed:anItem.
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	4709	^ self
975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	4710	].
975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	4711	openDelayedMenuBlock notNil ifTrue:[
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	4712	Processor removeTimedBlock:openDelayedMenuBlock.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	4713	openDelayedMenuBlock := nil.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	4714	].
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	4715	anItem isNil ifTrue:[
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	4716	openDelayedMenuBlock := nil.
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	4717	^ self
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	4718	].
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	4719	openDelayedMenuBlock := [
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	4720	openDelayedMenuBlock := nil.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	4721	anItem openDelayedSubmenu
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	4722	].
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	4723
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	4724	Processor addTimedBlock:openDelayedMenuBlock afterSeconds:0.5.
2199 61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	4725	!
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	4726
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4727	selection
dce33f8bb806 intitial checkin ca parents: diff changeset	4728	"returns current selected item or nil
dce33f8bb806 intitial checkin ca parents: diff changeset	4729	"
dce33f8bb806 intitial checkin ca parents: diff changeset	4730	^ selection
dce33f8bb806 intitial checkin ca parents: diff changeset	4731
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	selection:anItemOrNil
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4736	"change selection to an item or nil
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4737	if the item has a submenu the first item might be selected (style-sheet)
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4738	"
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4739	\|openMenu openOnSelect submenu item\|
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4740
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4741	selection == anItemOrNil ifTrue:[^ self].
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4742
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4743	(anItemOrNil isNil or:[anItemOrNil hasSubmenu not]) ifTrue:[
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4744	self selection:anItemOrNil openMenu:false.
2347 9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	4745	^ self
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4746	].
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4747
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4748	openMenu := self isPopUpView not.
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4749	openOnSelect := styleSheet at:#'menu.openOnSelect' default:false.
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4750
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4751	openMenu ifFalse:[
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4752	openMenu := openOnSelect.
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4753	].
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4754	self selection:anItemOrNil openMenu:openMenu.
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4755
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4756	openOnSelect ifFalse:[
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4757	"/ select first item in submenu
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4758
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4759	submenu := anItemOrNil currentSubmenu.
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4760
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	4761	submenu notNil ifTrue:[
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4762	item := submenu itemAt:1.
2347 9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	4763	(item notNil and:[item hasSubmenu not]) ifTrue:[
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4764	submenu selection:item openMenu:false
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4765	]
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	selection:anItemOrNil openMenu:openMenu
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4771	"change selection to an item or nil
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4772	"
2251 30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	4773	\|helpListener oldSelect\|
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4774
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4775	anItemOrNil == selection ifTrue:[
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4776	^ self
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4777	].
2199 61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	4778	self openDelayed:nil.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4779
2251 30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	4780	oldSelect := selection.
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	4781	selection := nil.
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4782
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	4783	anItemOrNil notNil ifTrue:[
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4784	self makeItemVisible:anItemOrNil.
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4785	anItemOrNil canSelect ifTrue:[
2251 30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	4786	selection := anItemOrNil
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4787	] ifFalse:[
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	4788	oldSelect isNil ifTrue:[^ self].
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4789	].
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4790	].
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	4791	oldSelect notNil ifTrue:[
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4792	"/ clear current selection
2251 30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	4793	oldSelect isSelected:false.
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	4794	].
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	4795	selection isNil ifTrue:[^ self].
2251 30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	4796
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	4797	selection == enteredItem ifTrue:[
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4798	enteredItem := nil
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4799	] ifFalse:[
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4800	self pointerEntersItem:nil
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4801	].
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4802	ActiveHelp isActive ifTrue:[
2251 30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	4803	helpListener := ActiveHelp currentHelpListener.
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	4804	helpListener initiateHelpFor:self at:nil now:true.
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4805	].
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4806	shown ifTrue:[
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4807	self rearrangeItems.
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4808
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4809	openMenu ifFalse:[
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4810	selection invalidate.
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4811	]
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4812	].
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4813	openMenu ifTrue:[
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4814	selection isSelected:true.
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4815	].
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4816	!
dce33f8bb806 intitial checkin ca parents: diff changeset	4817
dce33f8bb806 intitial checkin ca parents: diff changeset	4818	selectionIndex
dce33f8bb806 intitial checkin ca parents: diff changeset	4819	"returns index of current selection or 0
dce33f8bb806 intitial checkin ca parents: diff changeset	4820	"
dce33f8bb806 intitial checkin ca parents: diff changeset	4821	\|item\|
dce33f8bb806 intitial checkin ca parents: diff changeset	4822
dce33f8bb806 intitial checkin ca parents: diff changeset	4823	(item := self selection) notNil ifTrue:[
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	4824	^ self findFirst:[:el\| el == item ]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4825	].
dce33f8bb806 intitial checkin ca parents: diff changeset	4826	^ 0
dce33f8bb806 intitial checkin ca parents: diff changeset	4827
dce33f8bb806 intitial checkin ca parents: diff changeset	4828	!
dce33f8bb806 intitial checkin ca parents: diff changeset	4829
dce33f8bb806 intitial checkin ca parents: diff changeset	4830	selectionIndex:anIndex
dce33f8bb806 intitial checkin ca parents: diff changeset	4831	"set selection at an index
dce33f8bb806 intitial checkin ca parents: diff changeset	4832	"
dce33f8bb806 intitial checkin ca parents: diff changeset	4833	self selection:(self itemAt:anIndex)
dce33f8bb806 intitial checkin ca parents: diff changeset	4834	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	4835
1791 bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	4836	!MenuPanel methodsFor:'translation'!
bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	4837
bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	4838	translateGrabPoint:aGrabPoint
bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	4839	"translate the grab point into self
bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	4840	"
bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	4841	superMenu isNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	4842	"I am the grapView"
93426020ceed * empty log message * ca parents: 2216 diff changeset	4843	aGrabPoint isNumber ifTrue:[^ aGrabPoint @ aGrabPoint].
1791 bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	4844	^ aGrabPoint
bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	4845	].
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	relativeGrabOrigin isNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	4848	relativeGrabOrigin := self topMenu translatePoint:0 to:self.
1791 bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	4849	].
bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	4850	^ relativeGrabOrigin + aGrabPoint
bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	4851
bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	4852	!
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	translateMenuPoint:aPoint toMenu:aMenu
bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	4855	"translate a point into another menu its point
bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	4856	"
bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	4857	\|grapPoint\|
bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	4858
bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	4859	aMenu == self ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	4860	^ aPoint
1791 bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	4861	].
bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	4862	grapPoint := aPoint - (self translateGrabPoint:0).
bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	4863
bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	4864	^ aMenu translateGrabPoint:grapPoint
bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	4865
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
2020 1f1868eba475 extracted common code to detectViewAt:aPoint. Claus Gittinger <cg@exept.de> parents: 2018 diff changeset	4868	translatePoint:aPoint to:anotherWindowOrNilForScreen
1f1868eba475 extracted common code to detectViewAt:aPoint. Claus Gittinger <cg@exept.de> parents: 2018 diff changeset	4869	"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	4870	"
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	^ device
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	4873	translatePoint:aPoint asPoint
93426020ceed * empty log message * ca parents: 2216 diff changeset	4874	fromView:self
93426020ceed * empty log message * ca parents: 2216 diff changeset	4875	toView:anotherWindowOrNilForScreen
2020 1f1868eba475 extracted common code to detectViewAt:aPoint. Claus Gittinger <cg@exept.de> parents: 2018 diff changeset	4876
1f1868eba475 extracted common code to detectViewAt:aPoint. Claus Gittinger <cg@exept.de> parents: 2018 diff changeset	4877	"Modified: / 10.10.2001 / 14:11:47 / cg"
1791 bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	4878	! !
bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	4879
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4880	!MenuPanel::Item class methodsFor:'accessing'!
dce33f8bb806 intitial checkin ca parents: diff changeset	4881
689 aa13913add84 clear lastActiveMenu when closed ca parents: 687 diff changeset	4882	horizontalInset
aa13913add84 clear lastActiveMenu when closed ca parents: 687 diff changeset	4883	^ HorizontalInset
aa13913add84 clear lastActiveMenu when closed ca parents: 687 diff changeset	4884	!
aa13913add84 clear lastActiveMenu when closed ca parents: 687 diff changeset	4885
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4886	labelRightOffset
dce33f8bb806 intitial checkin ca parents: diff changeset	4887	^ LabelRightOffset
dce33f8bb806 intitial checkin ca parents: diff changeset	4888	!
dce33f8bb806 intitial checkin ca parents: diff changeset	4889
689 aa13913add84 clear lastActiveMenu when closed ca parents: 687 diff changeset	4890	verticalInset
aa13913add84 clear lastActiveMenu when closed ca parents: 687 diff changeset	4891	^ VerticalInset
1765 a003f417d6ad fix for vertical spacing Claus Gittinger <cg@exept.de> parents: 1762 diff changeset	4892	!
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	verticalPopUpInset
a003f417d6ad fix for vertical spacing Claus Gittinger <cg@exept.de> parents: 1762 diff changeset	4895	^ VerticalPopUpInset
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4896	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	4897
616 a6157b083830 support of different styles ca parents: 608 diff changeset	4898	!MenuPanel::Item class methodsFor:'defaults'!
a6157b083830 support of different styles ca parents: 608 diff changeset	4899
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	4900	halfSeparatorSize
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	4901	"returns size of a space-separator
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	4902	"
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	4903	^ 5
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	4904	!
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	4905
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4906	separatorSize
616 a6157b083830 support of different styles ca parents: 608 diff changeset	4907	"returns size of a separator
a6157b083830 support of different styles ca parents: 608 diff changeset	4908	"
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4909	^ 10
616 a6157b083830 support of different styles ca parents: 608 diff changeset	4910	!
a6157b083830 support of different styles ca parents: 608 diff changeset	4911
a6157b083830 support of different styles ca parents: 608 diff changeset	4912	updateStyleCache
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4913	"setup defaults
650 29dcdf6a5994 button and label translation support added tz parents: 638 diff changeset	4914	self updateStyleCache
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4915	"
1765 a003f417d6ad fix for vertical spacing Claus Gittinger <cg@exept.de> parents: 1762 diff changeset	4916	<resource: #style (#'menuPanel.verticalInset')>
a003f417d6ad fix for vertical spacing Claus Gittinger <cg@exept.de> parents: 1762 diff changeset	4917
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4918	HorizontalInset := 2.
1765 a003f417d6ad fix for vertical spacing Claus Gittinger <cg@exept.de> parents: 1762 diff changeset	4919	VerticalInset := MenuPanel styleSheet at:#'menuPanel.verticalInset' default:2.
a003f417d6ad fix for vertical spacing Claus Gittinger <cg@exept.de> parents: 1762 diff changeset	4920	VerticalPopUpInset := 2.
727 3ba54333342a button style from style sheet tz parents: 723 diff changeset	4921
3ba54333342a button style from style sheet tz parents: 723 diff changeset	4922	HorizontalButtonInset := 3.
3ba54333342a button style from style sheet tz parents: 723 diff changeset	4923	VerticalButtonInset := 3.
3ba54333342a button style from style sheet tz parents: 723 diff changeset	4924
681 62c7cdaca188 extra default inset values for button behaviour added tz parents: 680 diff changeset	4925	LabelRightOffset := 15.
1765 a003f417d6ad fix for vertical spacing Claus Gittinger <cg@exept.de> parents: 1762 diff changeset	4926
a003f417d6ad fix for vertical spacing Claus Gittinger <cg@exept.de> parents: 1762 diff changeset	4927
1124 4a7fec62a572 smaller checkbox. Claus Gittinger <cg@exept.de> parents: 1117 diff changeset	4928	! !
1078 3adf74275ebd support choice for buttons ca parents: 1076 diff changeset	4929
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4930	!MenuPanel::Item class methodsFor:'instance creation'!
dce33f8bb806 intitial checkin ca parents: diff changeset	4931
dce33f8bb806 intitial checkin ca parents: diff changeset	4932	in:aSuperMenu
dce33f8bb806 intitial checkin ca parents: diff changeset	4933	^ self in:aSuperMenu label:nil
dce33f8bb806 intitial checkin ca parents: diff changeset	4934	!
dce33f8bb806 intitial checkin ca parents: diff changeset	4935
dce33f8bb806 intitial checkin ca parents: diff changeset	4936	in:aSuperMenu label:aLabel
dce33f8bb806 intitial checkin ca parents: diff changeset	4937	\|item\|
dce33f8bb806 intitial checkin ca parents: diff changeset	4938
dce33f8bb806 intitial checkin ca parents: diff changeset	4939	item := self new in:aSuperMenu.
dce33f8bb806 intitial checkin ca parents: diff changeset	4940	item label:aLabel.
dce33f8bb806 intitial checkin ca parents: diff changeset	4941	^ item
dce33f8bb806 intitial checkin ca parents: diff changeset	4942	!
dce33f8bb806 intitial checkin ca parents: diff changeset	4943
dce33f8bb806 intitial checkin ca parents: diff changeset	4944	in:aSuperMenu menuItem:aMenuItem
dce33f8bb806 intitial checkin ca parents: diff changeset	4945	\|item\|
dce33f8bb806 intitial checkin ca parents: diff changeset	4946
dce33f8bb806 intitial checkin ca parents: diff changeset	4947	item := self in:aSuperMenu.
dce33f8bb806 intitial checkin ca parents: diff changeset	4948	item menuItem:aMenuItem.
dce33f8bb806 intitial checkin ca parents: diff changeset	4949	^ item.
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	4950	!
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	4951
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	4952	new
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	4953	^ self basicNew initialize
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4954	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	4955
1808 e8628b502a49 methodCategory change Claus Gittinger <cg@exept.de> parents: 1806 diff changeset	4956	!MenuPanel::Item methodsFor:'accepting'!
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	4957
420 b6f9fff472ef fixes ca parents: 417 diff changeset	4958	canAccept
b6f9fff472ef fixes ca parents: 417 diff changeset	4959	"returns true if item is acceptable
b6f9fff472ef fixes ca parents: 417 diff changeset	4960	"
2199 61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	4961	self enabled ifFalse:[ ^ false].
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	4962	self hasSubmenu ifFalse:[ ^ true ].
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	4963
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	4964	self hasDelayedMenu ifFalse:[^ false ].
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	4965	^ subMenu isNil or:[subMenu shown not]
524 d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	4966	!
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	toggleIndication
1074 25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	4969	"toggle indication or choice
524 d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	4970	"
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	4971	\|arg\|
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	4972
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	4973	indication notNil ifTrue:[
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	4974	arg := self indicationValue not.
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	4975	self indicationValue:arg.
1074 25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	4976	] ifFalse:[
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	4977	choice notNil ifTrue:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	4978	choice value:(menuItem choiceValue).
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	4979	^ true
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	4980	]
524 d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	4981	].
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	4982	^ arg
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	4983	! !
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	4984
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4985	!MenuPanel::Item methodsFor:'accessing'!
dce33f8bb806 intitial checkin ca parents: diff changeset	4986
dce33f8bb806 intitial checkin ca parents: diff changeset	4987	accessCharacter
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	4988	"returns my accessCharacter or nil
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4989	"
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	4990	^ accessCharacter
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4991	!
dce33f8bb806 intitial checkin ca parents: diff changeset	4992
dce33f8bb806 intitial checkin ca parents: diff changeset	4993	accessCharacterPosition
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	4994	"get the access character position or nil
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4995	"
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	4996	^ menuItem accessCharacterPosition
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	4997	!
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	accessCharacterPosition:anIndex
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	5000	"set the access character position or nil
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5001	"
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5002	menuItem accessCharacterPosition:anIndex.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5003	!
dce33f8bb806 intitial checkin ca parents: diff changeset	5004
dce33f8bb806 intitial checkin ca parents: diff changeset	5005	argument
dce33f8bb806 intitial checkin ca parents: diff changeset	5006	"gets the argument
dce33f8bb806 intitial checkin ca parents: diff changeset	5007	"
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5008	^ menuItem argument
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5009	!
dce33f8bb806 intitial checkin ca parents: diff changeset	5010
dce33f8bb806 intitial checkin ca parents: diff changeset	5011	argument:anArgument
dce33f8bb806 intitial checkin ca parents: diff changeset	5012	"sets the argument
dce33f8bb806 intitial checkin ca parents: diff changeset	5013	"
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5014	menuItem argument:anArgument.
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	5015	!
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	5016
2433 49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5017	displayLabel
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5018	"returns my printable Label
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5019	"
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5020	^ displayLabel
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5021	!
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5022
2614 86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5023	displayLabelExtent
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5024	"returns the labelExtent
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5025	"
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5026	\|prevFont w h\|
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5027
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5028	displayLabelExtent notNil ifTrue:[
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5029	^ displayLabelExtent
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5030	].
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	displayLabel isNil ifTrue:[
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5033	displayLabelExtent := 0@0.
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5034	^ displayLabelExtent
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5035	].
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5036	prevFont := menuPanel setFont:(self font).
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5037
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5038	displayLabel isArray ifTrue:[
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5039	w := h := 0.
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5040
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5041	displayLabel do:[:aSubLabel\|
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5042	aSubLabel notNil ifTrue:[
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5043	w := w max:(aSubLabel widthOn:menuPanel).
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5044	h := h + 1 + (aSubLabel heightOn:menuPanel).
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5045	] ifFalse:[
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5046	h := h + (self spaceBetweenEmptyLines)
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5047	]
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	] ifFalse:[
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5050	w := displayLabel widthOn:menuPanel.
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5051	h := displayLabel heightOn:menuPanel.
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5052	].
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5053	"/ care for italic fonts - give a few more pixels at the end
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5054	menuPanel font italic ifTrue:[
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5055	w := w + 2.
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5056	].
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5057	displayLabelExtent := w@h.
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5058
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5059	prevFont notNil ifTrue:[
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5060	menuPanel setFont:prevFont. "/ restore previous font
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5061	].
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5062	^ displayLabelExtent
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5063	!
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5064
1727 a6365337be59 support setting font in MenuPanel and Editor ca parents: 1726 diff changeset	5065	font
a6365337be59 support setting font in MenuPanel and Editor ca parents: 1726 diff changeset	5066	"returns the user configured font or nil (default menu font)
a6365337be59 support setting font in MenuPanel and Editor ca parents: 1726 diff changeset	5067	"
2373 8dbf026f0bd1 bug fix: specific font used by item ca parents: 2372 diff changeset	5068	\|font\|
8dbf026f0bd1 bug fix: specific font used by item ca parents: 2372 diff changeset	5069
8dbf026f0bd1 bug fix: specific font used by item ca parents: 2372 diff changeset	5070	menuPanel isNil ifTrue:[^ nil].
8dbf026f0bd1 bug fix: specific font used by item ca parents: 2372 diff changeset	5071
8dbf026f0bd1 bug fix: specific font used by item ca parents: 2372 diff changeset	5072	font := menuItem font.
8dbf026f0bd1 bug fix: specific font used by item ca parents: 2372 diff changeset	5073
8dbf026f0bd1 bug fix: specific font used by item ca parents: 2372 diff changeset	5074	font notNil ifTrue:[
8dbf026f0bd1 bug fix: specific font used by item ca parents: 2372 diff changeset	5075	font := font onDevice:(menuPanel device).
8dbf026f0bd1 bug fix: specific font used by item ca parents: 2372 diff changeset	5076	menuItem font:font.
8dbf026f0bd1 bug fix: specific font used by item ca parents: 2372 diff changeset	5077	].
1727 a6365337be59 support setting font in MenuPanel and Editor ca parents: 1726 diff changeset	5078	^ font
a6365337be59 support setting font in MenuPanel and Editor ca parents: 1726 diff changeset	5079	!
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	font:aFont
a6365337be59 support setting font in MenuPanel and Editor ca parents: 1726 diff changeset	5082	"returns the user configured font or nil (default menu font)
a6365337be59 support setting font in MenuPanel and Editor ca parents: 1726 diff changeset	5083	"
2373 8dbf026f0bd1 bug fix: specific font used by item ca parents: 2372 diff changeset	5084	menuItem font:aFont.
1727 a6365337be59 support setting font in MenuPanel and Editor ca parents: 1726 diff changeset	5085	!
a6365337be59 support setting font in MenuPanel and Editor ca parents: 1726 diff changeset	5086
2604 34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	5087	ignoreMnemonicKeys
34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	5088	"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	5089	"
34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	5090	^ menuItem ignoreMnemonicKeys
34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	5091	!
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	ignoreMnemonicKeys:aBoolean
34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	5094	"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	5095	"
34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	5096	menuItem ignoreMnemonicKeys:aBoolean.
34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	5097	!
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	ignoreShortcutKeys
34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	5100	"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	5101	"
34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	5102	^ menuItem ignoreShortcutKeys
34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	5103	!
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	ignoreShortcutKeys:aBoolean
34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	5106	"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	5107	"
34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	5108	menuItem ignoreShortcutKeys:aBoolean.
34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	5109	!
34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	5110
2345 8b7b3e384002 fallBack to activeHelpKey and label, if no flyByHelp is Claus Gittinger <cg@exept.de> parents: 2344 diff changeset	5111	itemValue
8b7b3e384002 fallBack to activeHelpKey and label, if no flyByHelp is Claus Gittinger <cg@exept.de> parents: 2344 diff changeset	5112	"gets value
8b7b3e384002 fallBack to activeHelpKey and label, if no flyByHelp is Claus Gittinger <cg@exept.de> parents: 2344 diff changeset	5113	"
2360 aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5114	^ menuItem itemValue
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5115	!
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5116
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5117	itemValue:aValue
2345 8b7b3e384002 fallBack to activeHelpKey and label, if no flyByHelp is Claus Gittinger <cg@exept.de> parents: 2344 diff changeset	5118	"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	5119	"
2360 aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5120	menuItem itemValue:aValue.
2345 8b7b3e384002 fallBack to activeHelpKey and label, if no flyByHelp is Claus Gittinger <cg@exept.de> parents: 2344 diff changeset	5121	!
8b7b3e384002 fallBack to activeHelpKey and label, if no flyByHelp is Claus Gittinger <cg@exept.de> parents: 2344 diff changeset	5122
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5123	label
dce33f8bb806 intitial checkin ca parents: diff changeset	5124	"returns the label
dce33f8bb806 intitial checkin ca parents: diff changeset	5125	"
dce33f8bb806 intitial checkin ca parents: diff changeset	5126	^ label
dce33f8bb806 intitial checkin ca parents: diff changeset	5127	!
dce33f8bb806 intitial checkin ca parents: diff changeset	5128
dce33f8bb806 intitial checkin ca parents: diff changeset	5129	label:aLabel
399 d083b1bce58d ST-80 compatibility ca parents: 396 diff changeset	5130	"set a new label; if the label changed, a redraw is performed;
d083b1bce58d ST-80 compatibility ca parents: 396 diff changeset	5131	handle characters $& (ST-80 compatibility)
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5132	"
2614 86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5133	\|size char oldExtent\|
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5134
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5135	oldExtent := displayLabelExtent.
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5136	displayLabelExtent := nil. "/ force a recomputation
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5137	accessCharacter := disabledDisplayLabel := nil.
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5138	label := aLabel value.
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5139	displayLabel := label value ? ''.
2433 49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5140
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5141	displayLabel isString ifTrue:[
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5142	"CHECK FOR SEPARATOR"
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5143
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5144	(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	5145	size := displayLabel size.
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5146
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5147	size == 0 ifTrue:[
2614 86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5148	displayLabel := nil. "blank separator"
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5149	^ self
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5150	].
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5151
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5152	size == 1 ifTrue:[
2433 49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5153	char := displayLabel first.
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5154
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5155	(char == $- or:[char == $=]) ifTrue:[
2614 86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5156	label := displayLabel. "line separator"
2433 49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5157	displayLabel := nil.
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5158	^ self
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5159	]
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5160	]
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5161	]
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5162	] ifFalse:[
2433 49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5163	displayLabel isCollection ifTrue:[
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5164	displayLabel := displayLabel asArray.
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5165	]
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5166	].
2614 86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5167	displayLabel notNil ifTrue:[
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5168	displayLabel isArray ifTrue:[
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5169	displayLabel keysAndValuesDo:[:i :el\|
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5170	el notNil ifTrue:[
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5171	displayLabel at:i put:(self updateAccessCharacterFor:el).
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5172	].
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	] ifFalse:[
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5175	displayLabel := self updateAccessCharacterFor:displayLabel.
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5176	].
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	menuPanel shown ifTrue:[
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5180	self fetchImages.
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5181
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5182	oldExtent = self displayLabelExtent ifTrue:[
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5183	self invalidate
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5184	] ifFalse:[
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5185	menuPanel mustRearrange
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5186	]
1978 a53447b8cbe2 set label; reange menu if extent changed otherwise redraw only the item martin parents: 1955 diff changeset	5187	].
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5188	!
dce33f8bb806 intitial checkin ca parents: diff changeset	5189
dce33f8bb806 intitial checkin ca parents: diff changeset	5190	menuPanel
dce33f8bb806 intitial checkin ca parents: diff changeset	5191	"returns my menuPanel
dce33f8bb806 intitial checkin ca parents: diff changeset	5192	"
399 d083b1bce58d ST-80 compatibility ca parents: 396 diff changeset	5193	^ menuPanel
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5194	!
dce33f8bb806 intitial checkin ca parents: diff changeset	5195
dce33f8bb806 intitial checkin ca parents: diff changeset	5196	nameKey
dce33f8bb806 intitial checkin ca parents: diff changeset	5197	"gets the nameKey
dce33f8bb806 intitial checkin ca parents: diff changeset	5198	"
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5199	^ menuItem nameKey
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5200	!
dce33f8bb806 intitial checkin ca parents: diff changeset	5201
dce33f8bb806 intitial checkin ca parents: diff changeset	5202	nameKey:aNameKey
dce33f8bb806 intitial checkin ca parents: diff changeset	5203	"sets the nameKey
dce33f8bb806 intitial checkin ca parents: diff changeset	5204	"
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5205	menuItem nameKey:aNameKey.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5206	!
dce33f8bb806 intitial checkin ca parents: diff changeset	5207
dce33f8bb806 intitial checkin ca parents: diff changeset	5208	rawLabel
2433 49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5209	"returns my raw, unprocessed label
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5210	"
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5211	^ menuItem rawLabel
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5212	!
dce33f8bb806 intitial checkin ca parents: diff changeset	5213
dce33f8bb806 intitial checkin ca parents: diff changeset	5214	shortcutKey
dce33f8bb806 intitial checkin ca parents: diff changeset	5215	"get the key to press to select the submenu from the keyboard or if
dce33f8bb806 intitial checkin ca parents: diff changeset	5216	no submenu exists evaluate the action assigned to the item (accept).
dce33f8bb806 intitial checkin ca parents: diff changeset	5217	"
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5218	^ menuItem shortcutKey
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5219	!
dce33f8bb806 intitial checkin ca parents: diff changeset	5220
dce33f8bb806 intitial checkin ca parents: diff changeset	5221	shortcutKey:aKey
dce33f8bb806 intitial checkin ca parents: diff changeset	5222	"set the key to press to select the submenu from the keyboard or if
dce33f8bb806 intitial checkin ca parents: diff changeset	5223	no submenu exists evaluate the action assigned to the item (accept).
dce33f8bb806 intitial checkin ca parents: diff changeset	5224	"
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5225	menuItem shortcutKey ~= aKey ifTrue:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5226	menuItem shortcutKey:aKey.
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5227	self invalidate.
1889 43516e4588ce give warning messages for unimplemented menu-aspects Claus Gittinger <cg@exept.de> parents: 1878 diff changeset	5228	].
43516e4588ce give warning messages for unimplemented menu-aspects Claus Gittinger <cg@exept.de> parents: 1878 diff changeset	5229	!
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5230
710 4453e463ff16 add new feature: ca parents: 709 diff changeset	5231	startGroup
4453e463ff16 add new feature: ca parents: 709 diff changeset	5232	"start group #left #right #center ... or nil
4453e463ff16 add new feature: ca parents: 709 diff changeset	5233	at the moment only #right is implemented
4453e463ff16 add new feature: ca parents: 709 diff changeset	5234	"
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5235	^ menuItem startGroup
710 4453e463ff16 add new feature: ca parents: 709 diff changeset	5236	!
4453e463ff16 add new feature: ca parents: 709 diff changeset	5237
4453e463ff16 add new feature: ca parents: 709 diff changeset	5238	startGroup:aSymbol
4453e463ff16 add new feature: ca parents: 709 diff changeset	5239	"start group #left #right #center ...
4453e463ff16 add new feature: ca parents: 709 diff changeset	5240	at the moment only #right is implemented
4453e463ff16 add new feature: ca parents: 709 diff changeset	5241	"
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5242	menuItem startGroup:aSymbol.
710 4453e463ff16 add new feature: ca parents: 709 diff changeset	5243	!
4453e463ff16 add new feature: ca parents: 709 diff changeset	5244
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5245	submenu
dce33f8bb806 intitial checkin ca parents: diff changeset	5246	"returns my submenu or nil
dce33f8bb806 intitial checkin ca parents: diff changeset	5247	"
464 a788fdce92e2 add submenuChannel ca parents: 461 diff changeset	5248	subMenu notNil ifTrue:[^ subMenu].
a788fdce92e2 add submenuChannel ca parents: 461 diff changeset	5249	^ self setupSubmenu
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5250	!
dce33f8bb806 intitial checkin ca parents: diff changeset	5251
dce33f8bb806 intitial checkin ca parents: diff changeset	5252	submenu:aSubMenu
dce33f8bb806 intitial checkin ca parents: diff changeset	5253	"set a new submenu; an existing submenu will be destroyed. This might lead
dce33f8bb806 intitial checkin ca parents: diff changeset	5254	to a redraw if 'hasSubmenu' changed
dce33f8bb806 intitial checkin ca parents: diff changeset	5255	"
1795 6afd0e768267 submenuChannel selector: allow upto two arguments, the arg and the menu ca parents: 1793 diff changeset	5256	\|widget\|
1767 e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	5257
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	5258	aSubMenu isNil ifTrue:[
2360 aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5259	subMenu notNil ifTrue:[
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5260	subMenu destroy.
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5261	subMenu := nil.
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5262	].
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5263	^ self
1767 e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	5264	].
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	5265
1795 6afd0e768267 submenuChannel selector: allow upto two arguments, the arg and the menu ca parents: 1793 diff changeset	5266	(aSubMenu isKindOf:Menu) ifTrue:[
2360 aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5267	subMenu := MenuPanel new.
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5268
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5269	menuPanel notNil ifTrue:[
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5270	subMenu receiver:menuPanel receiver.
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5271	].
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5272	subMenu superMenu:menuPanel.
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5273
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5274	menuItem horizontalLayout == true ifTrue:[
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5275	subMenu verticalLayout:false
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5276	].
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5277	subMenu menu:aSubMenu.
1767 e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	5278	] ifFalse:[
2360 aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5279	aSubMenu isView ifFalse:[
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5280	(aSubMenu isKindOf:ApplicationModel) ifFalse:[
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5281	"/ ... mhhhh ....
2364 c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	5282	^ menuItem submenuChannel:aSubMenu
2360 aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5283	].
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5284	widget := SimpleView new.
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5285	widget client:aSubMenu.
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5286	] ifTrue:[
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5287	widget := aSubMenu
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5288	].
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5289
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5290	(widget isKindOf:MenuPanel) ifTrue:[
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5291	subMenu := widget.
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5292
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5293	menuItem horizontalLayout == true ifTrue:[
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5294	subMenu verticalLayout:false
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5295	].
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5296	] ifFalse:[
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5297	subMenu := MenuPanel new.
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5298	subMenu receiver:menuPanel receiver.
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5299	subMenu addSubView:widget.
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5300	subMenu extent:(widget preferredExtent).
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5301	widget origin:0.0@0.0 corner:1.0@1.0.
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5302	].
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5303	subMenu superMenu:menuPanel.
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5304	].
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	5305	!
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	5306
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	5307	textLabel
2433 49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5308	"returns my textLabel or nil.
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5309	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	5310
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5311	\|txt\|
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5312
2433 49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5313	displayLabel notNil ifTrue:[
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5314	displayLabel isArray ifFalse:[
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5315	^ displayLabel perform:#string ifNotUnderstood:nil
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5316	].
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	displayLabel do:[:el\|
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5319	(txt := el perform:#string ifNotUnderstood:nil) notNil ifTrue:[
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5320	^ txt
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5321	]
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5322	].
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5323	].
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5324	^ nil
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	5325	!
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	5326
1841 5d01716cc37c implement: triggerOnDown ca parents: 1836 diff changeset	5327	triggerOnDown
5d01716cc37c implement: triggerOnDown ca parents: 1836 diff changeset	5328	"trigger the action if pressed
5d01716cc37c implement: triggerOnDown ca parents: 1836 diff changeset	5329	"
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5330	menuItem triggerOnDown ifTrue:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5331	self hasSubmenu ifFalse:[^ true].
1841 5d01716cc37c implement: triggerOnDown ca parents: 1836 diff changeset	5332	].
5d01716cc37c implement: triggerOnDown ca parents: 1836 diff changeset	5333	^ false
5d01716cc37c implement: triggerOnDown ca parents: 1836 diff changeset	5334	!
5d01716cc37c implement: triggerOnDown ca parents: 1836 diff changeset	5335
5d01716cc37c implement: triggerOnDown ca parents: 1836 diff changeset	5336	triggerOnDown:aBool
5d01716cc37c implement: triggerOnDown ca parents: 1836 diff changeset	5337	"trigger the action if pressed
5d01716cc37c implement: triggerOnDown ca parents: 1836 diff changeset	5338	"
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5339	menuItem triggerOnDown:aBool.
1841 5d01716cc37c implement: triggerOnDown ca parents: 1836 diff changeset	5340	!
5d01716cc37c implement: triggerOnDown ca parents: 1836 diff changeset	5341
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	5342	value
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	5343	"gets value
2345 8b7b3e384002 fallBack to activeHelpKey and label, if no flyByHelp is Claus Gittinger <cg@exept.de> parents: 2344 diff changeset	5344	Left here for ST80 compatibility - value is a bad name
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	5345	"
2360 aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5346	^ menuItem itemValue
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5347	!
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5348
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5349	value:aValue
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	5350	"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	5351	Left here for ST80 compatibility - value: is a bad name
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	5352	"
2360 aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5353	menuItem itemValue:aValue.
502 dedc1b29b6ac support of arguments ca parents: 498 diff changeset	5354	!
dedc1b29b6ac support of arguments ca parents: 498 diff changeset	5355
dedc1b29b6ac support of arguments ca parents: 498 diff changeset	5356	value:aValue argument:anArgument
dedc1b29b6ac support of arguments ca parents: 498 diff changeset	5357	"set the value and an argument
dedc1b29b6ac support of arguments ca parents: 498 diff changeset	5358	"
2360 aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5359	menuItem itemValue:aValue.
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5360	menuItem argument:anArgument.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5361	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	5362
1679 af40842718f6 when accepting, and the application does not respond to that Claus Gittinger <cg@exept.de> parents: 1670 diff changeset	5363	!MenuPanel::Item methodsFor:'accessing-behavior'!
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5364
1074 25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	5365	choice
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5366	"implements a radio group; the field
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5367	"
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5368	^ choice
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5369
1074 25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	5370	!
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	choice:something
25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	5373	"set choice indication
25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	5374	"
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5375	choice == something ifTrue:[^ self].
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5376
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5377	choice isValueModel ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	5378	choice removeDependent:self
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5379	].
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	(choice := something) notNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	5382	choice isSymbol ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	5383	(choice := self aspectAt:choice) isNil ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	5384	choice := something
93426020ceed * empty log message * ca parents: 2216 diff changeset	5385	]
93426020ceed * empty log message * ca parents: 2216 diff changeset	5386	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	5387	choice isValueModel ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	5388	choice addDependent:self
93426020ceed * empty log message * ca parents: 2216 diff changeset	5389	]
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	5390	].
1074 25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	5391	!
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	choiceValue
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5394	"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	5395	"
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5396	^ menuItem choiceValue
1074 25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	5397	!
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	choiceValue:something
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5400	"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	5401	"
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5402	menuItem choiceValue ~= something ifTrue:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5403	menuItem choiceValue:something.
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5404	choice notNil ifTrue:[ self invalidate ].
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5405	].
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5406	!
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5407
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5408	enabled
dce33f8bb806 intitial checkin ca parents: diff changeset	5409	"returns the enabled state
dce33f8bb806 intitial checkin ca parents: diff changeset	5410	"
524 d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	5411	\|state\|
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	5412
2364 c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	5413	menuPanel enabled ifFalse:[^ false].
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	5414
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	5415	enableChannel isSymbol ifTrue:[
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	5416	state := self aspectAt:enableChannel.
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	5417
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	5418	state isNil ifTrue:[
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	5419	self ifNotInUIBuilderInfoPrintCR:
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	5420	('MenuPanel::Item [info]: no aspect for ', enableChannel, ' (in ' , label printString , ')').
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	5421	^ true
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	5422	].
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	state isValueModel ifTrue:[
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	5425	enableChannel := state.
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	5426	enableChannel addDependent:self.
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	5427	state := enableChannel value.
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	5428	] ifFalse:[
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	5429	state := state value
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	5430	]
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	5431	] ifFalse:[
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	5432	state := enableChannel value
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	5433	].
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	5434	^ state ~~ false
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5435	!
dce33f8bb806 intitial checkin ca parents: diff changeset	5436
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	5437	enabled:something
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5438	"change the enabled state; if the state changed, a redraw is performed
dce33f8bb806 intitial checkin ca parents: diff changeset	5439	"
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	5440	\|oldState newState\|
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	5441
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	5442	enableChannel isNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	5443	oldState := true
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	5444	] ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	5445	oldState := enableChannel value.
93426020ceed * empty log message * ca parents: 2216 diff changeset	5446	enableChannel isValueModel ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	5447	enableChannel removeDependent:self
93426020ceed * empty log message * ca parents: 2216 diff changeset	5448	]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5449	].
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	5450	enableChannel := something.
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	5451
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	5452	enableChannel isNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	5453	menuPanel shown ifFalse:[^ self].
93426020ceed * empty log message * ca parents: 2216 diff changeset	5454	newState := true
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	5455	] ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	5456	enableChannel isValueModel ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	5457	enableChannel addDependent:self
93426020ceed * empty log message * ca parents: 2216 diff changeset	5458	] ifFalse:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	5459	enableChannel isSymbol ifTrue:[^ self]
93426020ceed * empty log message * ca parents: 2216 diff changeset	5460	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	5461	menuPanel shown ifFalse:[^ self].
93426020ceed * empty log message * ca parents: 2216 diff changeset	5462	newState := enableChannel value.
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	5463	].
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	5464
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	5465	newState ~~ oldState ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	5466	self invalidate
1690 38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	5467	].
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	5468	!
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	5469
1670 dbc8a05605e0 add new behavior: hideMenuOnActivated ca parents: 1666 diff changeset	5470	hideMenuOnActivated
dbc8a05605e0 add new behavior: hideMenuOnActivated ca parents: 1666 diff changeset	5471	"hide the menu when the item was activated; the default is true
dbc8a05605e0 add new behavior: hideMenuOnActivated ca parents: 1666 diff changeset	5472	"
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5473	^ menuItem hideMenuOnActivated
1670 dbc8a05605e0 add new behavior: hideMenuOnActivated ca parents: 1666 diff changeset	5474	!
dbc8a05605e0 add new behavior: hideMenuOnActivated ca parents: 1666 diff changeset	5475
dbc8a05605e0 add new behavior: hideMenuOnActivated ca parents: 1666 diff changeset	5476	hideMenuOnActivated:aBool
dbc8a05605e0 add new behavior: hideMenuOnActivated ca parents: 1666 diff changeset	5477	"hide the menu when the item was activated; the default is true
dbc8a05605e0 add new behavior: hideMenuOnActivated ca parents: 1666 diff changeset	5478	"
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5479	menuItem hideMenuOnActivated:aBool.
1670 dbc8a05605e0 add new behavior: hideMenuOnActivated ca parents: 1666 diff changeset	5480	!
dbc8a05605e0 add new behavior: hideMenuOnActivated ca parents: 1666 diff changeset	5481
2216 9cbeda150dae no info for toolbarmenu enable channel penk parents: 2214 diff changeset	5482	ifNotInUIBuilderInfoPrintCR:aMessage
9cbeda150dae no info for toolbarmenu enable channel penk parents: 2214 diff changeset	5483	"/ q&d hack to suppress info-messages in UIBuilder
9cbeda150dae no info for toolbarmenu enable channel penk parents: 2214 diff changeset	5484
9cbeda150dae no info for toolbarmenu enable channel penk parents: 2214 diff changeset	5485	(menuPanel receiver isNil
9cbeda150dae no info for toolbarmenu enable channel penk parents: 2214 diff changeset	5486	and:[ menuPanel application notNil
9cbeda150dae no info for toolbarmenu enable channel penk parents: 2214 diff changeset	5487	and:[ menuPanel application askFor:#isUIPainter]])
9cbeda150dae no info for toolbarmenu enable channel penk parents: 2214 diff changeset	5488	ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	5489	^ self "/ suppressed
2216 9cbeda150dae no info for toolbarmenu enable channel penk parents: 2214 diff changeset	5490	].
9cbeda150dae no info for toolbarmenu enable channel penk parents: 2214 diff changeset	5491	aMessage infoPrintCR
9cbeda150dae no info for toolbarmenu enable channel penk parents: 2214 diff changeset	5492	!
9cbeda150dae no info for toolbarmenu enable channel penk parents: 2214 diff changeset	5493
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	5494	indication
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	5495	"get on/off indication
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	5496	"
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5497	^ indication
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	5498	!
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	indication:something
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	5501	"set on/off indication
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	5502	"
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5503	indication == something ifTrue:[^ self].
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5504
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5505	indication isValueModel ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	5506	indication removeDependent:self
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5507	].
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	(indication := something) notNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	5510	indication isValueModel ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	5511	indication addDependent:self
93426020ceed * empty log message * ca parents: 2216 diff changeset	5512	] ifFalse:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	5513	"/ to force an update of the value
93426020ceed * empty log message * ca parents: 2216 diff changeset	5514	self indicationValue
93426020ceed * empty log message * ca parents: 2216 diff changeset	5515	]
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5516	].
464 a788fdce92e2 add submenuChannel ca parents: 461 diff changeset	5517	!
a788fdce92e2 add submenuChannel ca parents: 461 diff changeset	5518
1767 e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	5519	keepLinkedMenu
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	5520	"get the keepLinkedMenu flag
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	5521	"
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5522	^ menuItem keepLinkedMenu
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5523	!
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5524
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5525	keepLinkedMenu:aBool
1767 e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	5526	"get the keepLinkedMenu flag
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	5527	"
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5528	menuItem keepLinkedMenu:aBool.
1767 e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	5529	!
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	5530
2331 ebd240410703 can now specify if menu action is to be performed by ca parents: 2326 diff changeset	5531	sendToOriginator
ebd240410703 can now specify if menu action is to be performed by ca parents: 2326 diff changeset	5532	"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	5533	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	5534
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5535	^ menuItem sendToOriginator
2331 ebd240410703 can now specify if menu action is to be performed by ca parents: 2326 diff changeset	5536	!
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	sendToOriginator:aBoolean
ebd240410703 can now specify if menu action is to be performed by ca parents: 2326 diff changeset	5539	"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	5540	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	5541
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5542	menuItem sendToOriginator:aBoolean.
2331 ebd240410703 can now specify if menu action is to be performed by ca parents: 2326 diff changeset	5543	!
ebd240410703 can now specify if menu action is to be performed by ca parents: 2326 diff changeset	5544
464 a788fdce92e2 add submenuChannel ca parents: 461 diff changeset	5545	submenuChannel
a788fdce92e2 add submenuChannel ca parents: 461 diff changeset	5546	"get the submenu channel
a788fdce92e2 add submenuChannel ca parents: 461 diff changeset	5547	"
2364 c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	5548	^ menuItem submenuChannel
464 a788fdce92e2 add submenuChannel ca parents: 461 diff changeset	5549	!
a788fdce92e2 add submenuChannel ca parents: 461 diff changeset	5550
a788fdce92e2 add submenuChannel ca parents: 461 diff changeset	5551	submenuChannel:aSelectorOrNil
a788fdce92e2 add submenuChannel ca parents: 461 diff changeset	5552	"returns the submenu channel
a788fdce92e2 add submenuChannel ca parents: 461 diff changeset	5553	"
2364 c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	5554	menuItem submenuChannel:aSelectorOrNil.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5555	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	5556
1679 af40842718f6 when accepting, and the application does not respond to that Claus Gittinger <cg@exept.de> parents: 1670 diff changeset	5557	!MenuPanel::Item methodsFor:'accessing-dimension'!
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5558
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	5559	moveBy:aPoint
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	5560	"move layout origin
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	5561	"
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	5562	layout moveBy:aPoint.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	5563	!
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	5564
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	5565	preferredExtent
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	5566	"compute my preferred extent excluding the shortCutKey and the menu identifier
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	5567	"
2614 86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5568	\|isVertical icon wIcon isButton labelExtent
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	5569	x "{ Class:SmallInteger }"
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	5570	y "{ Class:SmallInteger }"
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	5571	s "{ Class:SmallInteger }"
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	5572	\|
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	5573	self isVisible ifFalse:[^ 0@0 ].
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	5574
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5575	isButton := menuItem isButton.
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5576
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	5577	isButton ifTrue:[
2326 a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	5578	s := menuPanel maxAbsoluteButtonLevel.
a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	5579	x := s + HorizontalButtonInset.
a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	5580	y := s + VerticalButtonInset.
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	5581	] ifFalse:[
2326 a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	5582	x := HorizontalInset.
a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	5583	y := (menuPanel isPopUpView ifTrue:[VerticalPopUpInset] ifFalse:[VerticalInset]) ? 2.
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	5584	].
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	5585	x := x * 2.
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	5586	y := y * 2.
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	5587
1707 4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	5588	isVertical := menuPanel verticalLayout.
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	5589
2362 7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	5590	self isSeparator ifTrue:[
2326 a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	5591	"SEPARATOR"
a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	5592
a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	5593	s := self class separatorSize.
a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	5594	label = '' ifTrue:[
a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	5595	s := self class halfSeparatorSize.
a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	5596	].
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	"width of doubleSeparator is 5 !!!!"
a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	5599	isVertical ifFalse:[
a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	5600	x := x max:s.
a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	5601	y := y + 5.
a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	5602	] ifTrue:[
a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	5603	y := y max:s.
a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	5604	x := x + 5.
a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	5605	].
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	5606	] ifFalse:[
2614 86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5607	labelExtent := self displayLabelExtent.
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5608
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5609	x := x + labelExtent x.
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5610	y := y + labelExtent y.
2326 a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	5611
a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	5612	isButton ifFalse:[
a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	5613	menuPanel showSeparatingLines ifTrue:[
a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	5614	"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	5615	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	5616	].
a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	5617	(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	5618	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	5619	].
a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	5620	].
2344 d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	5621	wIcon := 0.
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	5622	self hasMenuIndicator ifTrue:[
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	5623	icon := MenuPanel menuIndicator.
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	5624	wIcon := MenuPanel menuIndicatorOffset + icon width.
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	5625	] ifFalse:[
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	5626	self hasDelayedMenuIndicator ifTrue:[
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	5627	icon := MenuPanel delayedMenuIndicator.
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	5628	wIcon := MenuPanel delayedMenuIndicatorOffset + icon width.
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	5629	]
2326 a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	5630	].
2344 d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	5631	x := x + wIcon.
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	5632	].
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	5633	^ x@y
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5634	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	5635
1679 af40842718f6 when accepting, and the application does not respond to that Claus Gittinger <cg@exept.de> parents: 1670 diff changeset	5636	!MenuPanel::Item methodsFor:'accessing-help'!
1613 5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	5637
5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	5638	activeHelpKey
5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	5639	"get the active helpKey; the key to retrieve the helpText from the application
5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	5640	"
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5641	^ menuItem activeHelpKey
1613 5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	5642	!
5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	5643
5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	5644	activeHelpKey:aHelpKey
5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	5645	"set the active helpKey; the key to retrieve the helpText from the application
5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	5646	"
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5647	menuItem activeHelpKey:aHelpKey.
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5648	activeHelpText := nil.
1613 5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	5649	!
5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	5650
5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	5651	activeHelpText
5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	5652	"get the active helpText or nil if not yet resolved
5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	5653	"
2433 49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5654
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5655	\|app key\|
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5656
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5657	activeHelpText notNil ifTrue:[^ activeHelpText].
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5658
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5659	((key := self activeHelpKey) notNil
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5660	and:[(app := menuPanel application) notNil]) ifTrue:[
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5661	^ app helpTextForKey:key.
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5662	].
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5663	^ nil
1613 5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	5664	!
5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	5665
5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	5666	activeHelpText:aText
5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	5667	"set the active helpText
5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	5668	"
5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	5669	activeHelpText := aText.
2345 8b7b3e384002 fallBack to activeHelpKey and label, if no flyByHelp is Claus Gittinger <cg@exept.de> parents: 2344 diff changeset	5670	!
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	flyByHelpText
2433 49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5673	"get the flyBy helpText or nil.
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5674	"
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	\|text key app\|
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5677
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5678	flyByHelpText notNil ifTrue:[^ flyByHelpText].
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5679
2574 366e5807711f separators have no flyByHelp Claus Gittinger <cg@exept.de> parents: 2569 diff changeset	5680	self isSeparator ifTrue:[^ nil].
366e5807711f separators have no flyByHelp Claus Gittinger <cg@exept.de> parents: 2569 diff changeset	5681
2471 e6e52dc428a2 it is not the isButton behavior, martin parents: 2460 diff changeset	5682	"/ its NOT the button-attribute, which controls flyByHelp suppression...
e6e52dc428a2 it is not the isButton behavior, martin parents: 2460 diff changeset	5683	"/ (if you have an argument for that let us know..)
e6e52dc428a2 it is not the isButton behavior, martin parents: 2460 diff changeset	5684	"/ self isButton ifFalse:[^ nil].
e6e52dc428a2 it is not the isButton behavior, martin parents: 2460 diff changeset	5685	(menuPanel isNil or:[menuPanel isPopUpView]) ifTrue:[^ nil].
2433 49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5686
2652 686c0f0acb90 do not show help for items which have a menu (launchers about-item) Claus Gittinger <cg@exept.de> parents: 2617 diff changeset	5687	"/ 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	5688	key := self activeHelpKey.
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5689	(key notNil and:[(app := menuPanel application) notNil]) ifTrue:[
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5690	text := app flyByHelpTextForKey:key.
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5691	].
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5692
2652 686c0f0acb90 do not show help for items which have a menu (launchers about-item) Claus Gittinger <cg@exept.de> parents: 2617 diff changeset	5693	"/ 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	5694	text isNil ifTrue:[
2676 01dc236c3dcd flyByHelp: shown for items with menu IFF there is an activeHelp key ca parents: 2675 diff changeset	5695	self hasSubmenu ifTrue:[
01dc236c3dcd flyByHelp: shown for items with menu IFF there is an activeHelp key ca parents: 2675 diff changeset	5696	^ key
01dc236c3dcd flyByHelp: shown for items with menu IFF there is an activeHelp key ca parents: 2675 diff changeset	5697	].
2652 686c0f0acb90 do not show help for items which have a menu (launchers about-item) Claus Gittinger <cg@exept.de> parents: 2617 diff changeset	5698
2433 49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5699	text := key.
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5700	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	5701	displayLabel isString ifTrue:[
1dc3745fc313 do not show the menus label again as fly by help Claus Gittinger <cg@exept.de> parents: 2545 diff changeset	5702	text := displayLabel string.
1dc3745fc313 do not show the menus label again as fly by help Claus Gittinger <cg@exept.de> parents: 2545 diff changeset	5703	].
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	text isNil ifTrue:[
1dc3745fc313 do not show the menus label again as fly by help Claus Gittinger <cg@exept.de> parents: 2545 diff changeset	5706	text := self rawLabel.
2433 49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5707	text isString ifFalse:[
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5708	text := menuItem rawLabel.
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5709	text isString ifFalse:[
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5710	text := nil.
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5711	]
2550 1dc3745fc313 do not show the menus label again as fly by help Claus Gittinger <cg@exept.de> parents: 2545 diff changeset	5712	].
1dc3745fc313 do not show the menus label again as fly by help Claus Gittinger <cg@exept.de> parents: 2545 diff changeset	5713	text notNil ifTrue:[
1dc3745fc313 do not show the menus label again as fly by help Claus Gittinger <cg@exept.de> parents: 2545 diff changeset	5714	(text includes:$&) ifTrue:[
1dc3745fc313 do not show the menus label again as fly by help Claus Gittinger <cg@exept.de> parents: 2545 diff changeset	5715	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	5716	].
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	text = displayLabel ifTrue:[
1dc3745fc313 do not show the menus label again as fly by help Claus Gittinger <cg@exept.de> parents: 2545 diff changeset	5722	"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	5723	(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	5724	^ nil
1dc3745fc313 do not show the menus label again as fly by help Claus Gittinger <cg@exept.de> parents: 2545 diff changeset	5725	].
2433 49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5726	^ text
2345 8b7b3e384002 fallBack to activeHelpKey and label, if no flyByHelp is Claus Gittinger <cg@exept.de> parents: 2344 diff changeset	5727	!
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	flyByHelpText:aText
2433 49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5730	"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	5731	"
8b7b3e384002 fallBack to activeHelpKey and label, if no flyByHelp is Claus Gittinger <cg@exept.de> parents: 2344 diff changeset	5732	flyByHelpText := aText.
1613 5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	5733	! !
5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	5734
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5735	!MenuPanel::Item methodsFor:'accessing-look'!
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5736
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5737	horizontalLayout
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5738	"on default submenus has a vertical layout;
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5739	true, the submenu has a horizontal layout.
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5740	"
2360 aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5741	^ menuItem horizontalLayout ? false
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5742	!
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	horizontalLayout:aBoolean
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5745	"on default submenus has a vertical layout;
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5746	true, the submenu has a horizontal layout.
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5747	"
2360 aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5748	menuItem horizontalLayout:aBoolean.
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5749	!
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	isButton
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5752	"returns whether item looks like a Button
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5753	"
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5754	^ menuItem isButton
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5755	!
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5756
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5757	isButton:aBool
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5758	"sets whether item looks like a Button
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5759	"
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5760	menuItem isButton ~~ aBool ifTrue:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5761	menuItem isButton:aBool.
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5762	self invalidate.
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5763	]
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	layout
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5767	"returns my layout ( Rectangle )
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5768	"
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5769	^ layout
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5770	!
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	layout:aLayout
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5773	"set a new layout ( Rectangle )
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5774	"
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5775	layout := aLayout.
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5776	self invalidate.
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5777
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	showBusyCursorWhilePerforming
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5781	"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	5782	while performing the menu action. Defaults to false.
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5783	"
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5784	^ menuItem showBusyCursorWhilePerforming
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5785	!
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	showBusyCursorWhilePerforming:aBoolean
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5788	"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	5789	while performing the menu action. Defaults to false.
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5790	"
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5791	menuItem showBusyCursorWhilePerforming:aBoolean.
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5792	! !
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5793
2504 0ce78a73aacf method category rename Claus Gittinger <cg@exept.de> parents: 2503 diff changeset	5794	!MenuPanel::Item methodsFor:'activation & deactivation'!
1705 201f9ce1b2d2 checkin from browser ca parents: 1704 diff changeset	5795
1786 f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	5796	currentSubmenu
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	5797	"returns the current submenu or nil
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	5798	"
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	5799	^ subMenu
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	5800
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
1705 201f9ce1b2d2 checkin from browser ca parents: 1704 diff changeset	5805	hideSubmenu
201f9ce1b2d2 checkin from browser ca parents: 1704 diff changeset	5806	"hide submenu
201f9ce1b2d2 checkin from browser ca parents: 1704 diff changeset	5807	"
2199 61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	5808	self hideSubmenu:subMenu.
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	5809	!
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	5810
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	5811	hideSubmenu:aSubmenu
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	5812	"hide submenu
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	5813	"
1705 201f9ce1b2d2 checkin from browser ca parents: 1704 diff changeset	5814	\|id\|
201f9ce1b2d2 checkin from browser ca parents: 1704 diff changeset	5815
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	5816	aSubmenu isNil ifTrue:[^ self].
2681 2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	5817	aSubmenu removeDependencies.
2199 61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	5818
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	5819	aSubmenu realized ifFalse:[
2364 c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	5820	id := aSubmenu id.
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	5821	id notNil ifTrue:[ menuPanel device unmapWindow:id ]
2199 61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	5822	] ifTrue:[
2364 c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	5823	aSubmenu hide
2199 61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	5824	].
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	5825
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	5826	aSubmenu windowGroup:nil.
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	5827	menuPanel windowGroup removeView:aSubmenu.
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	5828
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	5829	"/ release menu if derived from channel
2364 c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	5830	(subMenu == aSubmenu and:[menuItem submenuChannel notNil]) ifTrue:[
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	5831	menuItem keepLinkedMenu ifFalse:[
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	5832	subMenu := nil
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	5833	]
2199 61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	5834	].
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	openDelayedSubmenu
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	5838	"called to open now my delayed submenu
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	5839	"
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	5840	\|subm\|
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	5841
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	5842	(self isSelected and:[menuPanel shown]) ifFalse:[^ self].
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	5843
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	5844	subMenu notNil ifTrue:[
975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	5845	subMenu realized ifTrue:[
975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	5846	"/ already open
975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	5847	^ self
975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	5848	].
2199 61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	5849	].
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	5850	subm := self setupSubmenu.
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	5851	subm isNil ifTrue:[^ self].
2199 61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	5852
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	5853	self openSubmenu.
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	5854
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	5855	(subm == subMenu and:[self isSelected]) ifFalse:[
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	5856	"/ closed during building or opening the submenu
975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	5857	self hideSubmenu:subm.
2199 61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	5858	].
1705 201f9ce1b2d2 checkin from browser ca parents: 1704 diff changeset	5859	!
1701 026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5860
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5861	openSubmenu
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5862	"opens the submenu; make sure, that the submenu and the menPanel
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5863	is fully visible by shifting it into the visible screen area if
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5864	nescessary.
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5865	"
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	5866	\|p o device isVertical topMenu windGrp prefExtent
1701 026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5867	devBot "{ Class:SmallInteger }"
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5868	devRight "{ Class:SmallInteger }"
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5869	width "{ Class:SmallInteger }"
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5870	height "{ Class:SmallInteger }"
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5871	top "{ Class:SmallInteger }"
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5872	left "{ Class:SmallInteger }"
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5873	\|
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5874
1737 c18896a7cb50 replace shown by realized; when opening a submenue-submenue by shortcut key ca parents: 1735 diff changeset	5875	(subMenu notNil and:[subMenu shown not and:[self isSelected and:[menuPanel realized]]]) ifFalse:[
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	5876	^ self
1701 026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5877	].
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5878
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5879	topMenu := menuPanel topMenu.
1829 bd8b95c5bb89 migration fixes Claus Gittinger <cg@exept.de> parents: 1825 diff changeset	5880	(subMenu device notNil and:[topMenu device ~~ subMenu device]) ifTrue:[
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	5881	subMenu releaseDeviceResources.
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	5882	subMenu setDevice:topMenu device id:nil gcId:nil.
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	5883	subMenu recreate.
1829 bd8b95c5bb89 migration fixes Claus Gittinger <cg@exept.de> parents: 1825 diff changeset	5884	].
bd8b95c5bb89 migration fixes Claus Gittinger <cg@exept.de> parents: 1825 diff changeset	5885
1701 026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5886	windGrp := topMenu windowGroup.
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5887
1707 4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	5888	subMenu superMenu:menuPanel.
1701 026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5889	subMenu becomesActiveMenu.
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5890	subMenu cursor:Cursor hand.
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5891
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5892	windGrp notNil ifTrue:[
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	5893	subMenu windowGroup:windGrp.
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	5894	windGrp addTopView:subMenu.
1701 026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5895	].
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5896
2111 f3d67f7c0f92 bug fix when opening a menu by mnemonic ca parents: 2100 diff changeset	5897	"Q&D kludge - test whether the layout is nil;
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	5898	if true recompute the layouts
2111 f3d67f7c0f92 bug fix when opening a menu by mnemonic ca parents: 2100 diff changeset	5899	"
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	5900	layout isNil ifTrue:[menuPanel rearrangeItems].
2111 f3d67f7c0f92 bug fix when opening a menu by mnemonic ca parents: 2100 diff changeset	5901
1701 026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5902	" Q&D kludge - if any visibility attributes are blocks;
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5903	TODO: only invoke mustRearrange if any are blocks
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	5904	(since I react correctly on valueHolder changes)
1701 026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5905	"
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5906	subMenu rearrangeItemsIfItemVisibilityChanged.
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5907	subMenu fixSize.
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5908
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5909	"compute origin of subMenu
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5910	"
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5911	isVertical := menuPanel verticalLayout.
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5912	device := menuPanel device.
1714 b4c05977e9d5 get heigth and width from preferredExtent when open a submenu ca parents: 1710 diff changeset	5913	prefExtent := subMenu preferredExtent.
b4c05977e9d5 get heigth and width from preferredExtent when open a submenu ca parents: 1710 diff changeset	5914	height := prefExtent y.
b4c05977e9d5 get heigth and width from preferredExtent when open a submenu ca parents: 1710 diff changeset	5915	width := prefExtent x.
1701 026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5916	devBot := device usableHeight.
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5917	devRight := device usableWidth.
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5918
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5919	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	5920
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	5921	menuPanel isPopUpView ifTrue:[
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	5922	o := menuPanel origin + p
1707 4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	5923	] ifFalse:[
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	5924	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	5925	].
1701 026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5926	left := o x.
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5927	top := o y.
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5928
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	5929	top + height > devBot ifTrue:[
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	5930	top := isVertical ifTrue:[devBot - height]
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	5931	ifFalse:[top - layout height - height + 2]
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	5932	].
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	5933	top := top max:0.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	5934
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	5935	"/ (isVertical not and:[subMenu isVerticalLayout]) ifTrue:[
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	5936	"/ top < menuPanel bottom ifTrue:[
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	5937	"/ left := left + layout width.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	5938	"/ ].
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	5939	"/ left + width > devRight ifTrue:[
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	5940	"/ left := o x - width - 2
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	5941	"/ ].
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	5942	"/ ].
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	5943
1701 026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5944	left + width > devRight ifTrue:[
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	5945	left := isVertical ifTrue:[left - layout width - width + 2]
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	5946	ifFalse:[devRight - width]
1701 026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5947	].
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5948	left := left max:0.
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5949
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5950	subMenu origin:(left@top).
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5951
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5952	subMenu realized ifFalse:[
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	5953	subMenu realize.
1701 026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5954	] ifTrue:[
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	5955	topMenu device mapWindow:(subMenu id).
1786 f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	5956	].
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	toggleSubmenuVisibility
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	5960	"toggle the visibility of the submenu
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	5961	"
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	5962	subMenu notNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	5963	subMenu shown ifTrue:[^ self hideSubmenu]
1786 f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	5964	] ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	5965	(subMenu := self setupSubmenu) isNil ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	5966	"/ cannot open a submenu
93426020ceed * empty log message * ca parents: 2216 diff changeset	5967	^ self
93426020ceed * empty log message * ca parents: 2216 diff changeset	5968	]
1786 f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	5969	].
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	5970	self openSubmenu.
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	5971
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	visibleSubmenu
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	5976	"returns the current visible submenu or nil
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	5977	"
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	5978	subMenu notNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	5979	subMenu shown ifTrue:[^ subMenu].
1786 f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	5980	].
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	5981	^ nil
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	5982
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	5983
1701 026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5984
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5985	! !
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	5986
524 d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	5987	!MenuPanel::Item methodsFor:'building'!
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	5988
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	5989	aspectAt:aKey
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	5990	"retursns value assigned to key or nil
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	5991	"
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	5992	\|appl value\|
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	5993
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	5994	appl := menuPanel receiver.
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	5995
1219 6a0d677a6fac removed some #isKindOf: calls. Claus Gittinger <cg@exept.de> parents: 1218 diff changeset	5996	(appl isValueModel) ifTrue:[
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5997	^ appl value:aKey
524 d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	5998	].
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	5999
2123 091268558e93 * empty log message * ca parents: 2118 diff changeset	6000	appl isNil ifTrue:[
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6001	appl := menuPanel application.
2123 091268558e93 * empty log message * ca parents: 2118 diff changeset	6002	].
091268558e93 * empty log message * ca parents: 2118 diff changeset	6003	appl isNil ifTrue:[ ^ nil].
091268558e93 * empty log message * ca parents: 2118 diff changeset	6004
091268558e93 * empty log message * ca parents: 2118 diff changeset	6005	MessageNotUnderstood handle:[:ex\|
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6006	ex selector == aKey ifFalse:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6007	ex reject
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6008	].
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6009	self ifNotInUIBuilderInfoPrintCR:
2545 e838be7f2c83 Tell application name in info message about no-existing aspects. Stefan Vogel <sv@exept.de> parents: 2505 diff changeset	6010	('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	6011	bindWith:appl className with:aKey).
2123 091268558e93 * empty log message * ca parents: 2118 diff changeset	6012	] do:[
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6013	aKey numArgs == 1 ifTrue:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6014	value := appl perform:aKey with:(menuItem argument ? self).
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6015	] ifFalse:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6016	(appl respondsTo:#aspectFor:) ifTrue:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6017	value := appl aspectFor:aKey
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6018	] ifFalse:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6019	value := appl perform:aKey
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6020	]
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6021	]
524 d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	6022	].
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	6023	^ value
1029 c9e90585fa89 only ignore messageNotUnderstood for my aspects. Claus Gittinger <cg@exept.de> parents: 1026 diff changeset	6024
c9e90585fa89 only ignore messageNotUnderstood for my aspects. Claus Gittinger <cg@exept.de> parents: 1026 diff changeset	6025	"Modified: / 29.7.1998 / 11:59:50 / cg"
524 d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	6026	! !
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	6027
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	6028	!MenuPanel::Item methodsFor:'change & update'!
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	6029
2614 86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	6030	fontChanged
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	6031	"called whenever the font changed
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	6032	"
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	6033	displayLabel notNil ifTrue:[
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	6034	displayLabelExtent := nil.
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	6035
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	6036	subMenu notNil ifTrue:[
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	6037	subMenu font:(menuPanel font).
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	6038	].
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
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6042	update:something with:aParameter from:changedObject
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6043
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6044	\|form rect\|
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6045
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6046	(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	6047
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6048	self isSeparator ifFalse:[
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6049	"/ NOT A SEPARATOR
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6050
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6051	menuPanel shown ifTrue:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6052	changedObject == enableChannel ifTrue:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6053	(enableChannel value == false and:[self isSelected]) ifTrue:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6054	^ menuPanel selection:nil.
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6055	].
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6056	^ self invalidate
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6057	].
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6058
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6059	(changedObject == indication or:[changedObject == choice]) ifTrue:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6060	menuItem isButton ifTrue:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6061	self invalidate
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6062	] ifFalse:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6063	"/ invalidate the interactor only
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6064	"/ take any interactor; interactors has the same extent
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6065	form := menuPanel iconIndicationOff.
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6066
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6067	rect := Rectangle left:(layout left + HorizontalInset)
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6068	top:(layout top)
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6069	width:(form width)
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6070	height:(layout height).
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6071
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6072	menuPanel invalidate:rect repairNow:false
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6073	].
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6074	^ self
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6075	].
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6076	].
498 b4c341497621 bug fixes: ca parents: 475 diff changeset	6077	].
712 4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	6078
4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	6079	changedObject == isVisible ifTrue:[
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6080	menuPanel mustRearrange.
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6081	menuPanel rearrangeItems.
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6082	^ self.
712 4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	6083	].
4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	6084
498 b4c341497621 bug fixes: ca parents: 475 diff changeset	6085	super update:something with:aParameter from:changedObject
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	6086	!
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	updateIndicators
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	6089	"update indicators
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	6090	"
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6091	(indication notNil and:[indication isSymbol]) ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	6092	" indication is a selector otherwise a change notification
93426020ceed * empty log message * ca parents: 2216 diff changeset	6093	is raised from the model !!!!
93426020ceed * empty log message * ca parents: 2216 diff changeset	6094	"
93426020ceed * empty log message * ca parents: 2216 diff changeset	6095	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	6096	]
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	6097	! !
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	6098
388 dce33f8bb806 intitial checkin ca parents: diff changeset	6099	!MenuPanel::Item methodsFor:'converting'!
dce33f8bb806 intitial checkin ca parents: diff changeset	6100
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	6101	asMenuItem
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	6102	"convert to a MenuItem
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	6103	"
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6104	^ menuItem
388 dce33f8bb806 intitial checkin ca parents: diff changeset	6105	!
dce33f8bb806 intitial checkin ca parents: diff changeset	6106
dce33f8bb806 intitial checkin ca parents: diff changeset	6107	menuItem:aMenuItem
dce33f8bb806 intitial checkin ca parents: diff changeset	6108	"setup attributes from a MenuItem
dce33f8bb806 intitial checkin ca parents: diff changeset	6109	"
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6110	\|lbl\|
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	6111
388 dce33f8bb806 intitial checkin ca parents: diff changeset	6112	menuPanel disabledRedrawDo:[
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6113	menuItem := aMenuItem.
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6114	menuItem isNil ifTrue:[ menuItem := MenuItem new].
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6115
2433 49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6116	label := displayLabel := activeHelpText := nil.
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6117
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6118	self enabled:(menuItem enabled).
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6119	self indication:(menuItem indication).
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6120	self choice:(menuItem choice).
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6121	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	6122
a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	6123	"/ 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	6124	"/ but ... ??
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6125	(lbl := menuItem labelImage value) isNil ifTrue:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6126	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	6127	].
a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	6128
2364 c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	6129	self submenu:(menuItem submenu).
2326 a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	6130	self label:lbl.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	6131	]
1033 9badc22e3d03 oops &'s where eliminated twice - leading to double &'s Claus Gittinger <cg@exept.de> parents: 1032 diff changeset	6132
1090 cf3d9f5648da only draw with enteredLevel, if item is enabled Claus Gittinger <cg@exept.de> parents: 1083 diff changeset	6133	"Modified: / 22.8.1998 / 15:34:16 / cg"
388 dce33f8bb806 intitial checkin ca parents: diff changeset	6134	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	6135
2681 2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	6136	!MenuPanel::Item methodsFor:'dependents access'!
2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	6137
2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	6138	addDependencies
2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	6139	"add all dependencies
2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	6140	"
2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	6141	enableChannel isValueModel ifTrue:[enableChannel addDependent:self].
2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	6142	isVisible isValueModel ifTrue:[isVisible addDependent:self].
2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	6143	indication isValueModel ifTrue:[indication addDependent:self].
2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	6144	choice isValueModel ifTrue:[choice addDependent:self].
2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	6145	!
2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	6146
2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	6147	removeDependencies
2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	6148	"remove all dependencies
2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	6149	"
2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	6150	enableChannel isValueModel ifTrue:[enableChannel removeDependent:self].
2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	6151	isVisible isValueModel ifTrue:[isVisible removeDependent:self].
2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	6152	indication isValueModel ifTrue:[indication removeDependent:self].
2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	6153	choice isValueModel ifTrue:[choice removeDependent:self].
2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	6154	! !
2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	6155
388 dce33f8bb806 intitial checkin ca parents: diff changeset	6156	!MenuPanel::Item methodsFor:'drawing'!
dce33f8bb806 intitial checkin ca parents: diff changeset	6157
2485 b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6158	draw
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6159	"redraw item
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6160	"
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6161	\|isSelected ownBgCol paint bgColor
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6162	x "{ Class:SmallInteger }"
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6163	y "{ Class:SmallInteger }"
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6164	w "{ Class:SmallInteger }"
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6165	h "{ Class:SmallInteger }"
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6166	\|
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	self isVisible ifFalse:[^ self].
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6169
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6170	self isSeparator ifTrue:[
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6171	self drawSeparator.
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6172	^ self
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6173	].
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6174	menuItem isButton ifTrue:[
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6175	self drawButton.
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6176	^ self
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6177	].
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	"/ DRAW A LABELED ENTRY; no button, no separator
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6180
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6181	isSelected := self isSelected.
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6182	bgColor := menuPanel backgroundColor.
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6183	paint := isSelected
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6184	ifTrue:[self activeBackgroundColor]
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6185	ifFalse:[
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6186	(self isEnabled and:[ self isEntered ]) ifTrue:[
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6187	menuPanel enteredBackgroundColor
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6188	] ifFalse:[
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6189	bgColor
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6190	]].
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	(ownBgCol := self backgroundColorFromLabel) notNil ifTrue:[
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6193	paint := ownBgCol
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6194	].
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	paint ~= bgColor ifTrue:[
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6197	menuPanel paint:paint.
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6198	menuPanel fillRectangle:layout.
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6199	].
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	menuPanel showSeparatingLines ifTrue:[
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6202	self drawSeparatingLines
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6203	].
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	self drawLabel.
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6206
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6207	(ownBgCol notNil and:[isSelected]) ifTrue:[
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6208	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	6209	ifFalse:[menuPanel paint: menuPanel selectionFrameBrightColor].
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6210
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6211	x := layout left.
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6212	y := layout top.
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6213	w := layout width.
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6214	h := layout height.
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6215
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6216	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	6217	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	6218	].
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6219	menuPanel drawLabelEdgeFor:self selected:isSelected.
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6220	!
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6221
1707 4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6222	drawButton
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6223	"draw as button
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6224	"
2362 7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6225	\|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	6226	x "{ Class:SmallInteger }"
2143 7b99a7348c97 draw label shifted right-down when pressed penk parents: 2142 diff changeset	6227	y "{ Class:SmallInteger }"
1707 4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6228	\|
2433 49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6229	drawObject := displayLabel.
2362 7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6230	isEnabled := self enabled.
2159 1eac041aeb3d toggle button draw & behavior Claus Gittinger <cg@exept.de> parents: 2145 diff changeset	6231	isSelected := self isSelected.
2362 7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6232
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6233	isSelected ifFalse:[
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6234	"/ test whether button has pressed toggle behaviour
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6235	showSelected := (self isToggle and:[self indicationValue]).
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6236	] ifTrue:[
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6237	showSelected := isSelected
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6238	].
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6239
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6240	showSelected ifTrue:[
1707 4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6241	bg := self activeBackgroundColor.
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6242	fg := self activeForegroundColor.
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6243	] ifFalse:[
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6244	self isEntered ifTrue:[
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6245	bg := self buttonEnteredBackgroundColor
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6246	] ifFalse:[
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6247	bg := self backgroundColor
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6248	].
2059 c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6249	isEnabled ifTrue:[
1707 4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6250	fg := menuPanel foregroundColor
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6251	] ifFalse:[
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6252	fg := menuPanel disabledForegroundColor.
2059 c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6253	etchFg := menuPanel disabledEtchedForegroundColor.
1707 4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6254	drawObject := self disabledRawLabel
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6255	]
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6256	].
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6257
1708 cfaf55b9043d bug fix in background color of button when derives from label(text) ca parents: 1707 diff changeset	6258	(ownBgCol := self backgroundColorFromLabel) notNil ifTrue:[
cfaf55b9043d bug fix in background color of button when derives from label(text) ca parents: 1707 diff changeset	6259	bg := ownBgCol
cfaf55b9043d bug fix in background color of button when derives from label(text) ca parents: 1707 diff changeset	6260	].
cfaf55b9043d bug fix in background color of button when derives from label(text) ca parents: 1707 diff changeset	6261
1707 4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6262	"DRAW BACKGROUND"
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6263	bg ~= menuPanel backgroundColor ifTrue:[
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6264	menuPanel paint:bg.
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6265	menuPanel fillRectangle:layout.
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6266	].
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	x := layout left + menuPanel buttonPassiveLevel + HorizontalButtonInset.
2362 7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6269
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6270	(drawObject isImage and:[menuPanel centerItems]) ifTrue:[
2337 7f384db88273 centerItems attribute Claus Gittinger <cg@exept.de> parents: 2332 diff changeset	6271	x := x + (layout width - menuPanel buttonPassiveLevel - HorizontalButtonInset - 1 - drawObject width // 2).
7f384db88273 centerItems attribute Claus Gittinger <cg@exept.de> parents: 2332 diff changeset	6272	].
1707 4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6273
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6274	isSelected ifFalse:[
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6275	"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	6276
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6277	indication notNil ifTrue:[
1707 4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6278	"button is indicator and set"
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6279	isSelected := self indicationValue
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6280	] ifFalse:[
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6281	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	6282	]
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6283	].
2143 7b99a7348c97 draw label shifted right-down when pressed penk parents: 2142 diff changeset	6284	y := 0.
1707 4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6285
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6286	isSelected ifTrue:[
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6287	level := menuPanel buttonActiveLevel.
2142 ea2a32738005 pressed button label only shifted by one pixel penk parents: 2141 diff changeset	6288	x := x + 1 "level abs".
2143 7b99a7348c97 draw label shifted right-down when pressed penk parents: 2142 diff changeset	6289	y := y + 1 "level abs".
1707 4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6290	] ifFalse:[
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6291	level := self isEntered ifTrue:[menuPanel buttonEnteredLevel]
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	6292	ifFalse:[menuPanel buttonPassiveLevel].
2059 c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6293	].
c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6294
2362 7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6295	drawObject isEmptyOrNil ifFalse:[
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6296	etchFg notNil ifTrue:[
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6297	self drawRawLabel:drawObject atX:x+1 yOffset:y+1 paint:etchFg.
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6298	].
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6299	self drawRawLabel:drawObject atX:x yOffset:y+0 paint:fg.
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6300	].
2344 d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6301	self drawMenuIndicator.
1707 4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6302
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6303	level ~~ 0 ifTrue:[
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6304	menuPanel drawButtonEdgesFor:self level:level
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6305	].
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
2344 d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6308	drawLabel
2214 8eefad87cf62 drawing delayed menu indicators... first try not yet finished ca parents: 2199 diff changeset	6309	"draw a labeled entry; no button, no separator.
8eefad87cf62 drawing delayed menu indicators... first try not yet finished ca parents: 2199 diff changeset	6310	"
2344 d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6311	\|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	6312	isSelected isEnabled form
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6313	h "{ Class:SmallInteger }"
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6314	y "{ Class:SmallInteger }"
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6315	x "{ Class:SmallInteger }"
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6316	t "{ Class:SmallInteger }"
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6317	\|
2433 49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6318	drawObject := displayLabel.
2362 7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6319	isEnabled := self enabled.
2344 d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6320	isSelected := self isSelected.
2362 7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6321
2344 d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6322	isSelected ifTrue:[
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6323	fg := self activeForegroundColor
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6324	] ifFalse:[
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6325	isEnabled ifTrue:[
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6326	self isEntered ifTrue:[
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6327	fg := menuPanel enteredForegroundColor
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6328	] ifFalse:[
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6329	fg := menuPanel foregroundColor
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6330	]
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6331	] ifFalse:[
2362 7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6332	fg := menuPanel disabledForegroundColor.
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6333	etchFg := menuPanel disabledEtchedForegroundColor.
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6334	drawObject := self disabledRawLabel
2344 d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6335	]
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	h := layout height.
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6339	x := layout left + HorizontalInset.
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6340	t := layout top.
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6341
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6342	((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	6343	y := t + ((h - form height) // 2).
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6344
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6345	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	6346	x := x + 2 + form width.
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6347	].
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6348
2362 7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6349	drawObject isEmptyOrNil ifFalse:[
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6350	etchFg notNil ifTrue:[
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6351	self drawRawLabel:drawObject atX:x+1 yOffset:1 paint:etchFg.
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6352	].
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6353	self drawRawLabel:drawObject atX:x yOffset:0 paint:fg.
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6354	].
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6355
2344 d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6356	self drawMenuIndicator.
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6357
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6358	"/ DRAW SHORTCUT KEY
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6359
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6360	( menuItem shortcutKey notNil
2344 d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6361	and:[(x := menuPanel shortKeyInset) ~~ 0
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6362	and:[(scKey:= self shortcutKeyAsString) notNil]]
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6363	) ifTrue:[
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6364	x := layout left + x.
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6365	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	6366	y := y + menuPanel font ascent.
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6367	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	6368	].
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	"/ DRAW SUBMENU INDICATION
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6371
2362 7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6372	(menuPanel isVerticalLayout and:[self hasSubmenu]) ifFalse:[
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6373	^ self
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6374	].
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6375	arrow := menuPanel rightArrow.
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6376	x := layout right - arrow width - HorizontalInset.
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6377	y := t + (h - arrow height // 2).
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6378
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6379	(menuPanel styleSheet is3D not
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6380	or:[(drawObject := menuPanel rightArrowShadow) isNil]) ifTrue:[
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6381	^ menuPanel displayForm:arrow x:x y:y
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6382	].
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6383	cLa := menuPanel shadowColor.
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6384	cLb := menuPanel lightColor.
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6385
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6386	isSelected ifFalse:[
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6387	fg := cLa.
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6388	cLa := cLb.
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6389	cLb := fg
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6390	].
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6391	menuPanel paint:cLa.
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6392	menuPanel displayForm:arrow x:x y:y.
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6393	menuPanel paint:cLb.
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6394	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	6395
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6396	"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	6397	!
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	drawMenuIndicator
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6400	"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	6401	"
2220 5ea0ceb20354 delayed submenu indicator Claus Gittinger <cg@exept.de> parents: 2219 diff changeset	6402	\|x y icon bAbsLevel\|
2214 8eefad87cf62 drawing delayed menu indicators... first try not yet finished ca parents: 2199 diff changeset	6403
2344 d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6404	self hasDelayedMenuIndicator ifTrue:[
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6405	icon := MenuPanel delayedMenuIndicator.
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6406	] ifFalse:[
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6407	self hasMenuIndicator ifTrue:[
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6408	icon := MenuPanel menuIndicator.
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6409	] ifFalse:[
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6410	^ self
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6411	]
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
2214 8eefad87cf62 drawing delayed menu indicators... first try not yet finished ca parents: 2199 diff changeset	6414	x := layout right - icon width.
2460 9afb27f470a7 checkin from browser Claus Gittinger <cg@exept.de> parents: 2433 diff changeset	6415	false "delayedMenuIndicatorVerticalPosition == #center" ifTrue:[
2220 5ea0ceb20354 delayed submenu indicator Claus Gittinger <cg@exept.de> parents: 2219 diff changeset	6416	y := layout height - icon height // 2 + layout top.
5ea0ceb20354 delayed submenu indicator Claus Gittinger <cg@exept.de> parents: 2219 diff changeset	6417	] ifFalse:[
5ea0ceb20354 delayed submenu indicator Claus Gittinger <cg@exept.de> parents: 2219 diff changeset	6418	y := layout bottom - icon height - 2.
5ea0ceb20354 delayed submenu indicator Claus Gittinger <cg@exept.de> parents: 2219 diff changeset	6419	].
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	bAbsLevel := 0.
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6422	menuItem isButton ifTrue:[
2220 5ea0ceb20354 delayed submenu indicator Claus Gittinger <cg@exept.de> parents: 2219 diff changeset	6423	self isSelected ifTrue:[
5ea0ceb20354 delayed submenu indicator Claus Gittinger <cg@exept.de> parents: 2219 diff changeset	6424	x := x + 1.
5ea0ceb20354 delayed submenu indicator Claus Gittinger <cg@exept.de> parents: 2219 diff changeset	6425	y := y + 1.
5ea0ceb20354 delayed submenu indicator Claus Gittinger <cg@exept.de> parents: 2219 diff changeset	6426	].
5ea0ceb20354 delayed submenu indicator Claus Gittinger <cg@exept.de> parents: 2219 diff changeset	6427	bAbsLevel := menuPanel maxAbsoluteButtonLevel.
5ea0ceb20354 delayed submenu indicator Claus Gittinger <cg@exept.de> parents: 2219 diff changeset	6428	x := x - bAbsLevel.
5ea0ceb20354 delayed submenu indicator Claus Gittinger <cg@exept.de> parents: 2219 diff changeset	6429	y := y - bAbsLevel.
5ea0ceb20354 delayed submenu indicator Claus Gittinger <cg@exept.de> parents: 2219 diff changeset	6430	].
5ea0ceb20354 delayed submenu indicator Claus Gittinger <cg@exept.de> parents: 2219 diff changeset	6431	x := x - 1 "- HorizontalInset".
5ea0ceb20354 delayed submenu indicator Claus Gittinger <cg@exept.de> parents: 2219 diff changeset	6432
5ea0ceb20354 delayed submenu indicator Claus Gittinger <cg@exept.de> parents: 2219 diff changeset	6433	(self isEnabled "and:[self delayedMenuIsEnabled]") ifFalse:[
5ea0ceb20354 delayed submenu indicator Claus Gittinger <cg@exept.de> parents: 2219 diff changeset	6434	icon := menuPanel lightenedImageOnDevice:icon
2214 8eefad87cf62 drawing delayed menu indicators... first try not yet finished ca parents: 2199 diff changeset	6435	].
8eefad87cf62 drawing delayed menu indicators... first try not yet finished ca parents: 2199 diff changeset	6436	icon displayOn:menuPanel x:x y:y.
2220 5ea0ceb20354 delayed submenu indicator Claus Gittinger <cg@exept.de> parents: 2219 diff changeset	6437
2234 29eba50f76eb drawColSep beautified; Claus Gittinger <cg@exept.de> parents: 2232 diff changeset	6438	(false "drawDelayedMenuIndicatorSeparator" and:[ menuPanel buttonPassiveLevel ~~ 0 ])
2220 5ea0ceb20354 delayed submenu indicator Claus Gittinger <cg@exept.de> parents: 2219 diff changeset	6439	ifTrue:[
5ea0ceb20354 delayed submenu indicator Claus Gittinger <cg@exept.de> parents: 2219 diff changeset	6440	menuPanel paint:menuPanel buttonShadowColor.
5ea0ceb20354 delayed submenu indicator Claus Gittinger <cg@exept.de> parents: 2219 diff changeset	6441	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	6442	menuPanel paint:menuPanel buttonLightColor.
5ea0ceb20354 delayed submenu indicator Claus Gittinger <cg@exept.de> parents: 2219 diff changeset	6443	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	6444	].
2214 8eefad87cf62 drawing delayed menu indicators... first try not yet finished ca parents: 2199 diff changeset	6445	!
8eefad87cf62 drawing delayed menu indicators... first try not yet finished ca parents: 2199 diff changeset	6446
2059 c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6447	drawRawLabel:aLabel atX:x yOffset:yOffset paint:fg
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6448	"draw a labeled entry; no button, no separator.
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6449	"
2614 86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	6450	\|mfont labelExtent
1727 a6365337be59 support setting font in MenuPanel and Editor ca parents: 1726 diff changeset	6451	y "{ Class:SmallInteger }"
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6452	y0 "{ Class:SmallInteger }"
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6453	x0 "{ Class:SmallInteger }"
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6454	\|
2059 c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6455
2373 8dbf026f0bd1 bug fix: specific font used by item ca parents: 2372 diff changeset	6456	mfont := menuPanel setFont:(self font).
2485 b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6457	"/ fontAscent := menuPanel font ascent.
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6458	menuPanel paint:fg.
2614 86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	6459	labelExtent := self displayLabelExtent.
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	6460
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	6461	y := layout top + (layout height - labelExtent y // 2) + yOffset.
2337 7f384db88273 centerItems attribute Claus Gittinger <cg@exept.de> parents: 2332 diff changeset	6462	"/ menuPanel centerItems ifTrue:[self halt].
2675 7a090a030736 bugfix when drawing Text with #backgroundColor (see ColorMenu) ca parents: 2659 diff changeset	6463	aLabel isArray ifFalse:[ \|printLabel\|
7a090a030736 bugfix when drawing Text with #backgroundColor (see ColorMenu) ca parents: 2659 diff changeset	6464	aLabel isText ifTrue:[
7a090a030736 bugfix when drawing Text with #backgroundColor (see ColorMenu) ca parents: 2659 diff changeset	6465	"/background of label already drawn
7a090a030736 bugfix when drawing Text with #backgroundColor (see ColorMenu) ca parents: 2659 diff changeset	6466	printLabel := aLabel withoutEmphasis:#backgroundColor.
7a090a030736 bugfix when drawing Text with #backgroundColor (see ColorMenu) ca parents: 2659 diff changeset	6467	] ifFalse:[
7a090a030736 bugfix when drawing Text with #backgroundColor (see ColorMenu) ca parents: 2659 diff changeset	6468	printLabel := aLabel.
7a090a030736 bugfix when drawing Text with #backgroundColor (see ColorMenu) ca parents: 2659 diff changeset	6469	].
7a090a030736 bugfix when drawing Text with #backgroundColor (see ColorMenu) ca parents: 2659 diff changeset	6470	y := y + (printLabel ascentOn:menuPanel).
7a090a030736 bugfix when drawing Text with #backgroundColor (see ColorMenu) ca parents: 2659 diff changeset	6471	printLabel displayOn:menuPanel x:x y:y.
1727 a6365337be59 support setting font in MenuPanel and Editor ca parents: 1726 diff changeset	6472	] ifTrue:[
2337 7f384db88273 centerItems attribute Claus Gittinger <cg@exept.de> parents: 2332 diff changeset	6473	aLabel do:[:el\|
7f384db88273 centerItems attribute Claus Gittinger <cg@exept.de> parents: 2332 diff changeset	6474	el notNil ifTrue:[
2485 b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6475	y0 := y + (el ascentOn:menuPanel).
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6476	"/ el isImageOrForm ifFalse:[
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6477	"/ y0 := y + fontAscent
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6478	"/ ] ifTrue:[
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6479	"/ y0 := y
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6480	"/ ].
2614 86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	6481	x0 := x + (labelExtent x - (el widthOn:menuPanel) // 2).
2337 7f384db88273 centerItems attribute Claus Gittinger <cg@exept.de> parents: 2332 diff changeset	6482	el displayOn:menuPanel x:x0 y:y0.
7f384db88273 centerItems attribute Claus Gittinger <cg@exept.de> parents: 2332 diff changeset	6483	y := y + 1 + (el heightOn:menuPanel)
7f384db88273 centerItems attribute Claus Gittinger <cg@exept.de> parents: 2332 diff changeset	6484	] ifFalse:[
2485 b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6485	y := y + (self spaceBetweenEmptyLines)
2337 7f384db88273 centerItems attribute Claus Gittinger <cg@exept.de> parents: 2332 diff changeset	6486	]
7f384db88273 centerItems attribute Claus Gittinger <cg@exept.de> parents: 2332 diff changeset	6487	].
1727 a6365337be59 support setting font in MenuPanel and Editor ca parents: 1726 diff changeset	6488	].
a6365337be59 support setting font in MenuPanel and Editor ca parents: 1726 diff changeset	6489	menuPanel setFont:mfont
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6490	!
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6491
1707 4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6492	drawSeparatingLines
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6493	"draw separating lines
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6494	"
2059 c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6495	\|myIndex lfSep rtSep items prevItem nextItem
c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6496	lightColor shadowColor
1707 4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6497	l "{ Class:SmallInteger }"
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6498	t "{ Class:SmallInteger }"
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6499	r "{ Class:SmallInteger }"
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6500	b "{ Class:SmallInteger }"
706 d716edbdbe47 show separators bug cleaned tz parents: 689 diff changeset	6501	\|
2059 c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6502
1707 4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6503	items := menuPanel items.
2059 c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6504	myIndex := items identityIndexOf:self.
c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6505
c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6506	prevItem := items at:(myIndex - 1) ifAbsent:nil.
c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6507	lfSep := prevItem notNil and:[prevItem isButton not].
c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6508
c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6509	nextItem := items at:(myIndex + 1) ifAbsent:nil.
c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6510	rtSep := nextItem notNil and:[nextItem isButton not].
c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6511
c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6512	(lfSep or:[rtSep]) ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	6513	^ self
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	6514	].
2059 c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6515
c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6516	lightColor := menuPanel lightColor.
c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6517	shadowColor := menuPanel shadowColor.
c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6518
c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6519	menuPanel paint:lightColor.
1707 4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6520
608 0d8d910768af use default font derived from style ca parents: 601 diff changeset	6521	l := layout left.
0d8d910768af use default font derived from style ca parents: 601 diff changeset	6522	t := layout top.
0d8d910768af use default font derived from style ca parents: 601 diff changeset	6523	r := layout right.
0d8d910768af use default font derived from style ca parents: 601 diff changeset	6524	b := layout bottom.
1707 4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6525
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6526	menuPanel verticalLayout ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	6527	lfSep ifTrue:[menuPanel displayLineFromX:l y:t-1 toX:r y:t-1].
93426020ceed * empty log message * ca parents: 2216 diff changeset	6528	rtSep ifTrue:[menuPanel displayLineFromX:l y:b-1 toX:r y:b-1].
93426020ceed * empty log message * ca parents: 2216 diff changeset	6529
93426020ceed * empty log message * ca parents: 2216 diff changeset	6530	menuPanel paint:shadowColor.
93426020ceed * empty log message * ca parents: 2216 diff changeset	6531	lfSep ifTrue:[menuPanel displayLineFromX:l y:t-2 toX:r y:t-2].
93426020ceed * empty log message * ca parents: 2216 diff changeset	6532	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	6533	] ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	6534	lfSep ifTrue:[menuPanel displayLineFromX:l-1 y:t toX:l-1 y:b].
93426020ceed * empty log message * ca parents: 2216 diff changeset	6535	rtSep ifTrue:[menuPanel displayLineFromX:r-1 y:t toX:r-1 y:b].
93426020ceed * empty log message * ca parents: 2216 diff changeset	6536
93426020ceed * empty log message * ca parents: 2216 diff changeset	6537	menuPanel paint:shadowColor.
93426020ceed * empty log message * ca parents: 2216 diff changeset	6538	lfSep ifTrue:[menuPanel displayLineFromX:l-2 y:t toX:l-2 y:b].
93426020ceed * empty log message * ca parents: 2216 diff changeset	6539	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	6540	]
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	drawSeparator
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6544	"draw as separator
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6545	"
2059 c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6546	\|type lightColor shadowColor isDouble
c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6547	left top
1707 4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6548	x0 "{ Class:SmallInteger }"
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6549	x1 "{ Class:SmallInteger }"
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6550	y0 "{ Class:SmallInteger }"
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6551	y1 "{ Class:SmallInteger }"
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6552	\|
2059 c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6553
1707 4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6554	type := self separatorType.
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6555	(type isNil or:[type == #blankLine]) ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	6556	^ self
1707 4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6557	].
2059 c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6558
c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6559	isDouble := type == #doubleLine.
c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6560
1707 4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6561	lightColor := menuPanel lightColor.
2059 c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6562	shadowColor := menuPanel shadowColor.
c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6563	menuPanel paint:shadowColor.
c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6564
c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6565	left := layout left.
c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6566	top := layout top.
1707 4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6567
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6568	menuPanel verticalLayout ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	6569	x0 := left + HorizontalInset.
93426020ceed * empty log message * ca parents: 2216 diff changeset	6570	x1 := layout right - HorizontalInset.
93426020ceed * empty log message * ca parents: 2216 diff changeset	6571	y0 := top - 1 + (layout height // 2).
93426020ceed * empty log message * ca parents: 2216 diff changeset	6572	isDouble ifTrue:[y0 := y0 - 2].
93426020ceed * empty log message * ca parents: 2216 diff changeset	6573
93426020ceed * empty log message * ca parents: 2216 diff changeset	6574	menuPanel displayLineFromX:x0 y:y0 toX:x1 y:y0.
93426020ceed * empty log message * ca parents: 2216 diff changeset	6575	isDouble ifTrue:[menuPanel displayLineFromX:x0 y:y0+4 toX:x1 y:y0+4].
93426020ceed * empty log message * ca parents: 2216 diff changeset	6576
93426020ceed * empty log message * ca parents: 2216 diff changeset	6577	menuPanel paint:lightColor.
93426020ceed * empty log message * ca parents: 2216 diff changeset	6578	menuPanel displayLineFromX:x0 y:y0+1 toX:x1 y:y0+1.
93426020ceed * empty log message * ca parents: 2216 diff changeset	6579	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	6580
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6581	] ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	6582	y1 := layout bottom.
93426020ceed * empty log message * ca parents: 2216 diff changeset	6583	x0 := left - 1 + (layout width // 2).
93426020ceed * empty log message * ca parents: 2216 diff changeset	6584	y0 := top.
93426020ceed * empty log message * ca parents: 2216 diff changeset	6585	isDouble ifTrue:[x0 := x0 - 2].
93426020ceed * empty log message * ca parents: 2216 diff changeset	6586
93426020ceed * empty log message * ca parents: 2216 diff changeset	6587	menuPanel displayLineFromX:x0 y:y0 toX:x0 y:y1.
93426020ceed * empty log message * ca parents: 2216 diff changeset	6588	isDouble ifTrue:[menuPanel displayLineFromX:x0+4 y:y0 toX:x0+4 y:y1].
93426020ceed * empty log message * ca parents: 2216 diff changeset	6589
93426020ceed * empty log message * ca parents: 2216 diff changeset	6590	menuPanel paint:lightColor.
93426020ceed * empty log message * ca parents: 2216 diff changeset	6591	menuPanel displayLineFromX:x0+1 y:y0 toX:x0+1 y:y1.
93426020ceed * empty log message * ca parents: 2216 diff changeset	6592	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	6593	]
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
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6596	invalidate
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6597
2362 7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6598	layout isNil ifTrue:[^ self].
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6599
2433 49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6600	(displayLabel notNil and:[menuPanel notNil]) ifTrue:[
2362 7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6601	menuPanel invalidateItem:self repairNow:false
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6602	]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	6603	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	6604
dce33f8bb806 intitial checkin ca parents: diff changeset	6605	!MenuPanel::Item methodsFor:'initialization'!
dce33f8bb806 intitial checkin ca parents: diff changeset	6606
dce33f8bb806 intitial checkin ca parents: diff changeset	6607	destroy
616 a6157b083830 support of different styles ca parents: 608 diff changeset	6608	"destroy submenus, remove dependencies
388 dce33f8bb806 intitial checkin ca parents: diff changeset	6609	"
616 a6157b083830 support of different styles ca parents: 608 diff changeset	6610	self submenu:nil.
2681 2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	6611	self removeDependencies.
616 a6157b083830 support of different styles ca parents: 608 diff changeset	6612
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	6613	menuPanel := nil.
616 a6157b083830 support of different styles ca parents: 608 diff changeset	6614	!
a6157b083830 support of different styles ca parents: 608 diff changeset	6615
794 5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	6616	in:aPanel
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	6617	"create item in a menuPanel
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	6618	"
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	6619	menuPanel := aPanel.
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6620
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6621	menuItem isNil ifTrue:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6622	self halt.
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6623	menuItem := MenuItem new
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6624	].
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	initialize
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6628	menuItem := MenuItem new.
1811 df4f5e5b3396 restart under windows Claus Gittinger <cg@exept.de> parents: 1810 diff changeset	6629	!
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	reinitStyle
df4f5e5b3396 restart under windows Claus Gittinger <cg@exept.de> parents: 1810 diff changeset	6632
df4f5e5b3396 restart under windows Claus Gittinger <cg@exept.de> parents: 1810 diff changeset	6633	subMenu notNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	6634	subMenu reinitStyle
1811 df4f5e5b3396 restart under windows Claus Gittinger <cg@exept.de> parents: 1810 diff changeset	6635	].
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	"Created: / 17.8.2000 / 17:57:07 / cg"
df4f5e5b3396 restart under windows Claus Gittinger <cg@exept.de> parents: 1810 diff changeset	6638	"Modified: / 17.8.2000 / 18:00:08 / cg"
794 5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	6639	! !
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	!MenuPanel::Item methodsFor:'label basics'!
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	6642
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	6643	disabledRawLabel
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	6644	"returns the label used if the item is disabled
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	6645	"
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6646	\|block form image\|
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6647
2433 49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6648	disabledDisplayLabel notNil ifTrue:[^ disabledDisplayLabel].
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6649
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6650	disabledDisplayLabel := displayLabel ? ''.
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6651
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6652	disabledDisplayLabel isString ifTrue:[
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6653	^ disabledDisplayLabel
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6654	].
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	block := [:el\| \|rslt\|
2433 49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6657	(rslt := el) notNil ifTrue:[
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6658	el isImageOrForm ifTrue:[
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6659	el colorMap notNil ifTrue:[
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6660	rslt := menuPanel lightenedImageOnDevice:el
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6661	]
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6662	] ifFalse:[
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6663	(displayLabel isKindOf:LabelAndIcon) ifTrue:[
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6664	((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	6665	form := menuPanel lightenedImageOnDevice:form
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6666	].
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6667	((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	6668	image := menuPanel lightenedImageOnDevice:image
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6669	].
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6670	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	6671	]
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	rslt
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6675	].
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	displayLabel isArray ifTrue:[
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6678	disabledDisplayLabel := Array new:(displayLabel size).
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6679
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6680	displayLabel keysAndValuesDo:[:anIndex :aLabel\|
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6681	disabledDisplayLabel at:anIndex put:(block value:aLabel)
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6682	]
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6683	] ifFalse:[
2433 49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6684	disabledDisplayLabel := block value:displayLabel
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6685	].
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6686	^ disabledDisplayLabel
794 5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	6687	!
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	6688
1829 bd8b95c5bb89 migration fixes Claus Gittinger <cg@exept.de> parents: 1825 diff changeset	6689	fetchDeviceResources
2373 8dbf026f0bd1 bug fix: specific font used by item ca parents: 2372 diff changeset	6690
2433 49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6691	disabledDisplayLabel := nil.
1829 bd8b95c5bb89 migration fixes Claus Gittinger <cg@exept.de> parents: 1825 diff changeset	6692	self fetchImages.
bd8b95c5bb89 migration fixes Claus Gittinger <cg@exept.de> parents: 1825 diff changeset	6693	!
bd8b95c5bb89 migration fixes Claus Gittinger <cg@exept.de> parents: 1825 diff changeset	6694
616 a6157b083830 support of different styles ca parents: 608 diff changeset	6695	fetchImages
a6157b083830 support of different styles ca parents: 608 diff changeset	6696	"fetch images
a6157b083830 support of different styles ca parents: 608 diff changeset	6697	"
2118 89d02ebc5b65 optimize #labels: and #fetchImages in Item. discard block ca parents: 2113 diff changeset	6698	\|icon\|
89d02ebc5b65 optimize #labels: and #fetchImages in Item. discard block ca parents: 2113 diff changeset	6699
2433 49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6700	(displayLabel isNil or:[displayLabel isString]) ifTrue:[
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6701	^ self
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6702	].
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6703	displayLabel isImageOrForm ifTrue:[
2488 74c81c1e30d7 imageOnDevice -> imageOnMyDevice Claus Gittinger <cg@exept.de> parents: 2485 diff changeset	6704	displayLabel := menuPanel imageOnMyDevice:displayLabel.
2433 49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6705	^ self.
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6706	].
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	(displayLabel isKindOf:LabelAndIcon) ifTrue:[
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6709	(icon := displayLabel image) notNil ifTrue:[
2488 74c81c1e30d7 imageOnDevice -> imageOnMyDevice Claus Gittinger <cg@exept.de> parents: 2485 diff changeset	6710	displayLabel image:(menuPanel imageOnMyDevice:icon)
2433 49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6711	].
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6712	(icon := displayLabel icon) notNil ifTrue:[
2488 74c81c1e30d7 imageOnDevice -> imageOnMyDevice Claus Gittinger <cg@exept.de> parents: 2485 diff changeset	6713	displayLabel icon:(menuPanel imageOnMyDevice:icon)
2433 49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6714	].
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6715	^ self
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6716	].
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	displayLabel isArray ifFalse:[^ self].
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6719
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6720	displayLabel keysAndValuesDo:[:i :el\|
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6721	(el notNil and:[el isString not]) ifTrue:[
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6722	el isImageOrForm ifTrue:[
2488 74c81c1e30d7 imageOnDevice -> imageOnMyDevice Claus Gittinger <cg@exept.de> parents: 2485 diff changeset	6723	displayLabel at:i put:(menuPanel imageOnMyDevice:el).
2433 49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6724	] ifFalse:[
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6725	el class == LabelAndIcon ifTrue:[
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6726	(icon := el image) notNil ifTrue:[
2488 74c81c1e30d7 imageOnDevice -> imageOnMyDevice Claus Gittinger <cg@exept.de> parents: 2485 diff changeset	6727	el image:(menuPanel imageOnMyDevice:icon)
2433 49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6728	].
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6729	(icon := el icon) notNil ifTrue:[
2488 74c81c1e30d7 imageOnDevice -> imageOnMyDevice Claus Gittinger <cg@exept.de> parents: 2485 diff changeset	6730	el icon:(menuPanel imageOnMyDevice:icon)
2433 49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6731	]
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	]
1078 3adf74275ebd support choice for buttons ca parents: 1076 diff changeset	6735	].
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6736	!
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	updateAccessCharacterFor:aLabel
2550 1dc3745fc313 do not show the menus label again as fly by help Claus Gittinger <cg@exept.de> parents: 2545 diff changeset	6739	"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	6740
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6741	\|s i rest label pos\|
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6742
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6743	(accessCharacter notNil or:[aLabel isNil]) ifTrue:[
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6744	^ aLabel
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6745	].
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	aLabel isString ifFalse:[
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6748	aLabel class == LabelAndIcon ifTrue:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6749	aLabel string:(self updateAccessCharacterFor:(aLabel string))
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6750	].
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6751	^ aLabel
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6752	].
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	s := aLabel size.
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6755	i := 1.
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6756
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6757	label := aLabel.
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6758	pos := menuItem accessCharacterPosition.
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6759
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6760	[((i := label indexOf:$& startingAt:i) ~~ 0 and:[i < s])] whileTrue:[
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6761	rest := label copyFrom:(i+1).
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6762
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6763	i == 1 ifTrue:[label := rest]
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6764	ifFalse:[label := (label copyFrom:1 to:(i-1)), rest].
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6765
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6766	(label at:i) == $& ifTrue:[i := i + 1] ifFalse:[pos := i].
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6767	s := s - 1.
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6768	].
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	(pos isNil or:[(accessCharacter := label at:pos ifAbsent:nil) isNil]) ifTrue:[
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6771	^ label
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6772	].
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6773
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6774	label isText ifFalse:[
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6775	label := Text string:label
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6776	].
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6777	label emphasisAt:pos add:#underline.
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6778	^ label
388 dce33f8bb806 intitial checkin ca parents: diff changeset	6779	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	6780
1573 fd124ee2bce5 shortcutKeys; arrange layout if selection changed ca parents: 1572 diff changeset	6781	!MenuPanel::Item methodsFor:'printing & storing'!
fd124ee2bce5 shortcutKeys; arrange layout if selection changed ca parents: 1572 diff changeset	6782
fd124ee2bce5 shortcutKeys; arrange layout if selection changed ca parents: 1572 diff changeset	6783	displayString
1690 38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	6784	^ self class name, '[', label printString, ']'
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	6785
1573 fd124ee2bce5 shortcutKeys; arrange layout if selection changed ca parents: 1572 diff changeset	6786	! !
fd124ee2bce5 shortcutKeys; arrange layout if selection changed ca parents: 1572 diff changeset	6787
388 dce33f8bb806 intitial checkin ca parents: diff changeset	6788	!MenuPanel::Item methodsFor:'private'!
dce33f8bb806 intitial checkin ca parents: diff changeset	6789
650 29dcdf6a5994 button and label translation support added tz parents: 638 diff changeset	6790	activeBackgroundColor
29dcdf6a5994 button and label translation support added tz parents: 638 diff changeset	6791	"returns the active background color derived from menuPanel
29dcdf6a5994 button and label translation support added tz parents: 638 diff changeset	6792	"
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6793	menuItem isButton ifTrue:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6794	^ menuPanel buttonActiveBackgroundColor
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6795	].
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6796	^ menuPanel activeBackgroundColor
650 29dcdf6a5994 button and label translation support added tz parents: 638 diff changeset	6797	!
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	activeForegroundColor
29dcdf6a5994 button and label translation support added tz parents: 638 diff changeset	6800	"returns the active foreground color derived from menuPanel
29dcdf6a5994 button and label translation support added tz parents: 638 diff changeset	6801	"
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	^menuPanel activeForegroundColor
29dcdf6a5994 button and label translation support added tz parents: 638 diff changeset	6804	!
29dcdf6a5994 button and label translation support added tz parents: 638 diff changeset	6805
727 3ba54333342a button style from style sheet tz parents: 723 diff changeset	6806	backgroundColor
3ba54333342a button style from style sheet tz parents: 723 diff changeset	6807	"returns the background color derived from menuPanel
3ba54333342a button style from style sheet tz parents: 723 diff changeset	6808	"
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6809	menuItem isButton ifTrue:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6810	^ menuPanel buttonPassiveBackgroundColor
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6811	].
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6812	^ menuPanel backgroundColor
727 3ba54333342a button style from style sheet tz parents: 723 diff changeset	6813	!
3ba54333342a button style from style sheet tz parents: 723 diff changeset	6814
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	6815	backgroundColorFromLabel
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	6816	"returns the background color derived from label or nil
388 dce33f8bb806 intitial checkin ca parents: diff changeset	6817	"
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	6818	\|run\|
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	6819
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	6820	label isText ifFalse:[^ nil ].
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	6821	run := label emphasis.
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	6822	run size == 0 ifTrue:[^ nil ].
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	6823
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	6824	run := run first.
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	6825
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	6826	run size == 0 ifTrue:[
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	6827	(run value isColor and:[run key == #backgroundColor]) ifTrue:[
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	6828	^ run value
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	6829	]
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	6830	] ifFalse:[
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	6831	run do:[:r\|
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	6832	(r value isColor and:[r key == #backgroundColor]) ifTrue:[
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	6833	^ r value
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	6834	]
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	6835	]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	6836	].
dce33f8bb806 intitial checkin ca parents: diff changeset	6837	^ nil
dce33f8bb806 intitial checkin ca parents: diff changeset	6838	!
dce33f8bb806 intitial checkin ca parents: diff changeset	6839
1081 fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	6840	buttonEnteredBackgroundColor
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	6841	"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	6842	derived from menuPanel
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	6843	"
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6844	menuItem isButton ifTrue:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6845	^ menuPanel buttonEnteredBackgroundColor
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6846	].
1081 fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	6847	^ menuPanel backgroundColor
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	6848	!
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	6849
1074 25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	6850	choiceForm
25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	6851	"returns choice form or nil
25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	6852	"
1798 08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	6853	\|isOn\|
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	6854
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6855	choice isNil ifTrue:[^ nil].
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6856
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6857	isOn := (choice value = menuItem choiceValue).
1798 08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	6858	self enabled ifFalse:[
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6859	^ isOn ifTrue:[menuPanel iconRadioGroupDisabledOn]
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6860	ifFalse:[menuPanel iconRadioGroupDisabledOff]
1798 08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	6861	].
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	6862	^ isOn ifTrue:[menuPanel iconRadioGroupOn]
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6863	ifFalse:[menuPanel iconRadioGroupOff]
1074 25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	6864	!
25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	6865
663 b418df6b72d8 retrive submenu: ca parents: 661 diff changeset	6866	findSubMenuIn:aRecv
1051 a448c854fcbb catch messageNotUnderstood for #aspectFor: Claus Gittinger <cg@exept.de> parents: 1048 diff changeset	6867	"ask the receiver for a submenu aspect, sending it
a448c854fcbb catch messageNotUnderstood for #aspectFor: Claus Gittinger <cg@exept.de> parents: 1048 diff changeset	6868	#aspectFor: first; then trying the selector itself.
a448c854fcbb catch messageNotUnderstood for #aspectFor: Claus Gittinger <cg@exept.de> parents: 1048 diff changeset	6869	Ignore the error if that message is not understood
a448c854fcbb catch messageNotUnderstood for #aspectFor: Claus Gittinger <cg@exept.de> parents: 1048 diff changeset	6870	(but not other message-not-understoods)"
a448c854fcbb catch messageNotUnderstood for #aspectFor: Claus Gittinger <cg@exept.de> parents: 1048 diff changeset	6871
2069 7891c7d3af69 use new #perform:withOptionalArgument: Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	6872	\|subm sel numArgs\|
1795 6afd0e768267 submenuChannel selector: allow upto two arguments, the arg and the menu ca parents: 1793 diff changeset	6873
6afd0e768267 submenuChannel selector: allow upto two arguments, the arg and the menu ca parents: 1793 diff changeset	6874	aRecv isNil ifTrue:[^ nil].
6afd0e768267 submenuChannel selector: allow upto two arguments, the arg and the menu ca parents: 1793 diff changeset	6875
2364 c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	6876	sel := menuItem submenuChannel.
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	6877	sel isString ifFalse:[^ nil].
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	6878	sel := sel asSymbol.
2069 7891c7d3af69 use new #perform:withOptionalArgument: Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	6879	numArgs := sel numArgs.
7891c7d3af69 use new #perform:withOptionalArgument: Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	6880
7891c7d3af69 use new #perform:withOptionalArgument: Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	6881	numArgs == 0 ifTrue:[
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6882	MessageNotUnderstood handle:[:ex \|
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6883	\|selector\|
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6884
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6885	((selector := ex message selector) == sel
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6886	or:[selector == #aspectFor:]) ifFalse:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6887	ex reject
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6888	].
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6889	] do:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6890	subm := aRecv aspectFor:sel.
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6891	].
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6892	subm notNil ifTrue:[^ subm].
1795 6afd0e768267 submenuChannel selector: allow upto two arguments, the arg and the menu ca parents: 1793 diff changeset	6893	].
6afd0e768267 submenuChannel selector: allow upto two arguments, the arg and the menu ca parents: 1793 diff changeset	6894
2043 133a9674bcdf * empty log message * Claus Gittinger <cg@exept.de> parents: 2042 diff changeset	6895	(Array with:(aRecv) with:(aRecv class))
133a9674bcdf * empty log message * Claus Gittinger <cg@exept.de> parents: 2042 diff changeset	6896	do:[:aPossibleReceiver \|
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6897	MessageNotUnderstood handle:[:ex\|
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6898	ex message selector == sel ifFalse:[ ex reject ]
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6899	] do:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6900	numArgs == 0 ifTrue:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6901	subm := aPossibleReceiver perform:sel
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6902	] ifFalse:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6903	numArgs == 1 ifTrue:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6904	subm := aPossibleReceiver perform:sel with:(menuItem argument ? menuPanel)
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6905	] ifFalse:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6906	subm := aPossibleReceiver perform:sel with:(menuItem argument) with:menuPanel
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6907	]
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	subm notNil ifTrue:[^ subm].
1795 6afd0e768267 submenuChannel selector: allow upto two arguments, the arg and the menu ca parents: 1793 diff changeset	6911	].
6afd0e768267 submenuChannel selector: allow upto two arguments, the arg and the menu ca parents: 1793 diff changeset	6912
663 b418df6b72d8 retrive submenu: ca parents: 661 diff changeset	6913	^ subm
2043 133a9674bcdf * empty log message * Claus Gittinger <cg@exept.de> parents: 2042 diff changeset	6914
133a9674bcdf * empty log message * Claus Gittinger <cg@exept.de> parents: 2042 diff changeset	6915	"Modified: / 30.10.2001 / 13:28:25 / cg"
663 b418df6b72d8 retrive submenu: ca parents: 661 diff changeset	6916	!
b418df6b72d8 retrive submenu: ca parents: 661 diff changeset	6917
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	6918	indicationValue
524 d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	6919	"returns indication value or nil in case of no indication
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	6920	"
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6921	\|numArgs sel recv\|
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6922
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6923	indication isNil ifTrue:[^ nil]. "no indication specified"
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6924
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6925	indication isSymbol ifFalse:[
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6926	^ indication value == true "block or model"
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6927	].
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	(numArgs := indication numArgs) == 2 ifTrue:[
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6930	recv := menuPanel receiver.
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6931
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6932	(recv isValueModel) ifFalse:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6933	(recv notNil or:[(recv := menuPanel application) notNil]) ifTrue:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6934	sel := indication copyFrom:1 to:(indication indexOf:$:).
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6935	sel := sel asSymbol.
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6936
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6937	MessageNotUnderstood handle:[:ex\|
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6938	ex message selector == sel ifFalse:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6939	ex reject
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6940	].
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6941	] do:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6942	sel := recv perform:sel with:(menuItem argument)
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6943	]
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	^ sel value == true
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6947	].
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	numArgs ~~ 0 ifTrue:[
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6950	sel := (indication copyWithoutLast:1) asSymbol
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6951	] ifFalse:[
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6952	sel := indication
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6953	].
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6954	sel := self aspectAt:sel.
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6955
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6956	sel isValueModel ifTrue:[
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6957	indication := sel.
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6958	indication addDependent:self.
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6959	].
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6960	^ sel value == true
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	6961	!
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	indicationValue:aValue
1218 6ce43fcb2603 code cleanup Claus Gittinger <cg@exept.de> parents: 1217 diff changeset	6964	"set the indication value
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	6965	"
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6966	\|numArgs recv\|
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6967
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6968	indication isNil ifTrue:[^ self]. "no indication specified"
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6969
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6970	indication isSymbol ifFalse:[
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6971	indication perform:#value: with:aValue ifNotUnderstood:nil. "block or model"
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6972	^ self
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6973	].
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	(numArgs := indication numArgs) == 0 ifTrue:[ "no arguments to selector; cannot set"
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6976	^ self
1218 6ce43fcb2603 code cleanup Claus Gittinger <cg@exept.de> parents: 1217 diff changeset	6977	].
6ce43fcb2603 code cleanup Claus Gittinger <cg@exept.de> parents: 1217 diff changeset	6978
524 d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	6979	recv := menuPanel receiver.
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6980	recv isValueModel ifTrue:[^ self].
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6981
1218 6ce43fcb2603 code cleanup Claus Gittinger <cg@exept.de> parents: 1217 diff changeset	6982	recv isNil ifTrue:[
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6983	recv := menuPanel application.
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6984	recv isNil ifTrue:[^ self].
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6985	].
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6986
2069 7891c7d3af69 use new #perform:withOptionalArgument: Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	6987	MessageNotUnderstood handle:[:ex\|
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6988	(ex message selector ~~ indication) ifTrue:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6989	ex reject
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6990	].
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6991	self ifNotInUIBuilderInfoPrintCR:
2545 e838be7f2c83 Tell application name in info message about no-existing aspects. Stefan Vogel <sv@exept.de> parents: 2505 diff changeset	6992	('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	6993	bindWith:recv className with:indication).
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6994	] do:[
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6995	numArgs == 1 ifTrue:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6996	recv perform:indication with:aValue
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6997	] ifFalse:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6998	recv perform:indication with:(menuItem argument ? self) with:aValue
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6999	]
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	7000	].
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	7001	!
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	7002
1074 25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	7003	indicatorForm
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	7004	"returns indication form or nil
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	7005	"
1798 08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	7006	\|val\|
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	7007
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	7008	indication isNil ifTrue:[^ nil].
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	7009
1798 08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	7010	val := self indicationValue.
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	7011	self enabled ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	7012	^ val == true
93426020ceed * empty log message * ca parents: 2216 diff changeset	7013	ifTrue:[menuPanel iconIndicationDisabledOn]
93426020ceed * empty log message * ca parents: 2216 diff changeset	7014	ifFalse:[menuPanel iconIndicationDisabledOff]
1798 08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	7015	].
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	7016	^ val == true
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	7017	ifTrue:[menuPanel iconIndicationOn]
93426020ceed * empty log message * ca parents: 2216 diff changeset	7018	ifFalse:[menuPanel iconIndicationOff]
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	7019	!
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	7020
1081 fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	7021	isEntered
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	7022	"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	7023	"
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	7024	^ menuPanel enteredItem == self
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	7025
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	7026	"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	7027	!
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	7028
464 a788fdce92e2 add submenuChannel ca parents: 461 diff changeset	7029	separatorType
a788fdce92e2 add submenuChannel ca parents: 461 diff changeset	7030	"returns type of separator line or nil
388 dce33f8bb806 intitial checkin ca parents: diff changeset	7031	"
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	7032	\|c lbl\|
388 dce33f8bb806 intitial checkin ca parents: diff changeset	7033
2433 49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	7034	self isSeparator ifFalse:[
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	7035	^ nil
388 dce33f8bb806 intitial checkin ca parents: diff changeset	7036	].
dce33f8bb806 intitial checkin ca parents: diff changeset	7037
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	7038	(lbl := label value) isNil ifTrue:[
2433 49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	7039	^ #singleLine
388 dce33f8bb806 intitial checkin ca parents: diff changeset	7040	].
dce33f8bb806 intitial checkin ca parents: diff changeset	7041
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	7042	lbl size == 1 ifTrue:[
2433 49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	7043	c := lbl first.
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	7044	c == $- ifTrue:[^ #singleLine].
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	7045	c == $= ifTrue:[^ #doubleLine].
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	7046	].
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	7047	^ #blankLine
1130 fb79ef4aeec8 style changes Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	7048	!
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	setupSubmenu
2364 c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7051	\|appl master recv submenuHolder submenu submenuEncoding channel\|
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7052
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7053	channel := menuItem submenuChannel value.
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7054	channel isNil ifTrue:[ ^ subMenu ].
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7055
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7056	subMenu notNil ifTrue:[
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7057	menuItem keepLinkedMenu ifTrue:[ ^ subMenu ].
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7058	].
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	channel isSymbol ifFalse:[
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7061	submenuHolder := channel
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7062	] ifTrue:[
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7063	appl := menuPanel application.
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7064	appl isNil ifTrue:[
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7065	appl := menuPanel receiver.
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7066	appl notNil ifTrue:[
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7067	(submenuHolder := self findSubMenuIn:appl) isNil ifTrue:[
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7068	[submenuHolder isNil
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7069	and:[(master := appl perform:#masterApplication ifNotUnderstood:nil) notNil
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7070	and:[master ~~ appl]]] whileTrue:[
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7071	appl := master.
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7072	submenuHolder := self findSubMenuIn:appl.
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7073	].
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7074	]
2232 5784671fb497 when searching for a sumbenus application, do NOT Claus Gittinger <cg@exept.de> parents: 2231 diff changeset	7075	].
2364 c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7076	].
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7077	submenuHolder isNil ifTrue:[
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7078	(submenuHolder := self findSubMenuIn:appl) isNil ifTrue:[
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7079	(recv := menuPanel receiver) ~~ appl ifTrue:[
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7080	appl := recv.
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7081	submenuHolder := self findSubMenuIn:appl
2232 5784671fb497 when searching for a sumbenus application, do NOT Claus Gittinger <cg@exept.de> parents: 2231 diff changeset	7082	]
5784671fb497 when searching for a sumbenus application, do NOT Claus Gittinger <cg@exept.de> parents: 2231 diff changeset	7083	]
2364 c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7084	]
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	(submenu := submenuHolder value) isArray ifTrue:[
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7088	submenuEncoding := submenu.
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7089	submenu := Menu new fromLiteralArrayEncoding:submenuEncoding.
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7090	"/ cg: linked menus also may contain translations ...
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7091	submenu notNil ifTrue:[
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7092	appl notNil ifTrue:[
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7093	submenu findGuiResourcesIn:appl.
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7094	]
2232 5784671fb497 when searching for a sumbenus application, do NOT Claus Gittinger <cg@exept.de> parents: 2231 diff changeset	7095	].
2364 c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7096	].
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7097	"/ appl notNil ifTrue:[submenu application:appl].
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7098	self submenu:submenu.
1130 fb79ef4aeec8 style changes Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	7099	^ subMenu
fb79ef4aeec8 style changes Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	7100
fb79ef4aeec8 style changes Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	7101	"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	7102	!
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	spaceBetweenEmptyLines
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	7105	^ 3
388 dce33f8bb806 intitial checkin ca parents: diff changeset	7106	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	7107
dce33f8bb806 intitial checkin ca parents: diff changeset	7108	!MenuPanel::Item methodsFor:'queries'!
dce33f8bb806 intitial checkin ca parents: diff changeset	7109
1217 c6a4c536aa8c care for items which change visibility via Claus Gittinger <cg@exept.de> parents: 1212 diff changeset	7110	canChangeVisibility
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	7111	"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	7112	otherwise there is a change notification raised if the model changed
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	7113	"
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	7114	^ isVisible isSymbol
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	7115	"/ ^ isVisible notNil and:[isVisible ~~ true]
1217 c6a4c536aa8c care for items which change visibility via Claus Gittinger <cg@exept.de> parents: 1212 diff changeset	7116	!
c6a4c536aa8c care for items which change visibility via Claus Gittinger <cg@exept.de> parents: 1212 diff changeset	7117
388 dce33f8bb806 intitial checkin ca parents: diff changeset	7118	canSelect
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	7119	"returns true if item is selectable; no separator, visible and enabled.
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	7120	in case of a choice (RadioButton) i have to check for the choiceValue
388 dce33f8bb806 intitial checkin ca parents: diff changeset	7121	"
2362 7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	7122	self isSeparator ifTrue:[^ false].
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	7123
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	7124	(self isVisible and:[self enabled]) ifTrue:[
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7125	(choice isNil or:[choice value ~= menuItem choiceValue]) ifTrue:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7126	^ true
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7127	].
1078 3adf74275ebd support choice for buttons ca parents: 1076 diff changeset	7128	].
3adf74275ebd support choice for buttons ca parents: 1076 diff changeset	7129	^ false
388 dce33f8bb806 intitial checkin ca parents: diff changeset	7130	!
dce33f8bb806 intitial checkin ca parents: diff changeset	7131
2046 012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	7132	containsPoint:aPoint
012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	7133	"returns true if aPoint is contained in my layout
012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	7134	"
012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	7135	(self isVisible and:[layout notNil]) ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	7136	^ layout containsPoint:aPoint
2046 012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	7137	].
012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	7138	^ false
012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	7139
012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	7140	"Created: / 13.11.2001 / 13:55:31 / cg"
012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	7141	!
012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	7142
388 dce33f8bb806 intitial checkin ca parents: diff changeset	7143	containsPointX:x y:y
dce33f8bb806 intitial checkin ca parents: diff changeset	7144	"returns true if point is contained in my layout
dce33f8bb806 intitial checkin ca parents: diff changeset	7145	"
712 4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	7146	(self isVisible and:[layout notNil]) ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	7147	^ layout containsPointX:x y:y
505 562d5661a855 check for valid layout ca parents: 502 diff changeset	7148	].
562d5661a855 check for valid layout ca parents: 502 diff changeset	7149	^ false
388 dce33f8bb806 intitial checkin ca parents: diff changeset	7150	!
dce33f8bb806 intitial checkin ca parents: diff changeset	7151
2199 61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	7152	hasDelayedMenu
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	7153	"returns true if a delayed menu exists
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	7154	"
2360 aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	7155	self hasSubmenu ifFalse:[
2326 a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	7156	^ false
2199 61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	7157	].
2360 aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	7158	menuItem itemValue notNil ifTrue:[ ^ true ].
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	7159
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	7160	(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	7161	^ false
2199 61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	7162	].
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	7163	^ true
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	7164	!
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	7165
2214 8eefad87cf62 drawing delayed menu indicators... first try not yet finished ca parents: 2199 diff changeset	7166	hasDelayedMenuIndicator
8eefad87cf62 drawing delayed menu indicators... first try not yet finished ca parents: 2199 diff changeset	7167	"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	7168	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	7169	"
8eefad87cf62 drawing delayed menu indicators... first try not yet finished ca parents: 2199 diff changeset	7170	menuPanel isPopUpView ifFalse:[
2344 d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	7171	^ self hasDelayedMenu
2214 8eefad87cf62 drawing delayed menu indicators... first try not yet finished ca parents: 2199 diff changeset	7172	].
8eefad87cf62 drawing delayed menu indicators... first try not yet finished ca parents: 2199 diff changeset	7173	^ false
8eefad87cf62 drawing delayed menu indicators... first try not yet finished ca parents: 2199 diff changeset	7174	!
8eefad87cf62 drawing delayed menu indicators... first try not yet finished ca parents: 2199 diff changeset	7175
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	7176	hasIndication
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	7177	"returns true if on/off indication exists
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	7178	"
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	7179	^ indication notNil
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	7180	!
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	7181
2344 d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	7182	hasMenuIndicator
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	7183	"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	7184	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	7185	"
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	7186	menuPanel isPopUpView ifFalse:[
2360 aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	7187	^ self hasSubmenu and:[menuItem isButton]
2344 d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	7188	].
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	7189	^ false
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	7190	!
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	7191
388 dce33f8bb806 intitial checkin ca parents: diff changeset	7192	hasSubmenu
1473 1f62652f146e use hasSubmenu insteat of submenu if possible; Claus Gittinger <cg@exept.de> parents: 1472 diff changeset	7193	"returns true if the item is configured as an subMenu entry
388 dce33f8bb806 intitial checkin ca parents: diff changeset	7194	"
2364 c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7195	^ subMenu notNil or:[menuItem submenuChannel notNil]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	7196	!
dce33f8bb806 intitial checkin ca parents: diff changeset	7197
dce33f8bb806 intitial checkin ca parents: diff changeset	7198	isEnabled
dce33f8bb806 intitial checkin ca parents: diff changeset	7199	"returns enabled state
dce33f8bb806 intitial checkin ca parents: diff changeset	7200	"
dce33f8bb806 intitial checkin ca parents: diff changeset	7201	^ self enabled
dce33f8bb806 intitial checkin ca parents: diff changeset	7202	!
dce33f8bb806 intitial checkin ca parents: diff changeset	7203
608 0d8d910768af use default font derived from style ca parents: 601 diff changeset	7204	isSeparator
0d8d910768af use default font derived from style ca parents: 601 diff changeset	7205	"returns true if item is a separator
0d8d910768af use default font derived from style ca parents: 601 diff changeset	7206	"
2433 49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	7207	^ displayLabel isNil
608 0d8d910768af use default font derived from style ca parents: 601 diff changeset	7208	!
0d8d910768af use default font derived from style ca parents: 601 diff changeset	7209
2159 1eac041aeb3d toggle button draw & behavior Claus Gittinger <cg@exept.de> parents: 2145 diff changeset	7210	isToggle
1eac041aeb3d toggle button draw & behavior Claus Gittinger <cg@exept.de> parents: 2145 diff changeset	7211	"returns true if on/off indication exists
1eac041aeb3d toggle button draw & behavior Claus Gittinger <cg@exept.de> parents: 2145 diff changeset	7212	"
1eac041aeb3d toggle button draw & behavior Claus Gittinger <cg@exept.de> parents: 2145 diff changeset	7213	^ self hasIndication and:[ self isButton ]
1eac041aeb3d toggle button draw & behavior Claus Gittinger <cg@exept.de> parents: 2145 diff changeset	7214	!
1eac041aeb3d toggle button draw & behavior Claus Gittinger <cg@exept.de> parents: 2145 diff changeset	7215
712 4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	7216	isVisible
4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	7217	"returns the visibility state
4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	7218	"
4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	7219	\|state\|
4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	7220
4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	7221	isVisible isSymbol ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	7222	state := self aspectAt:isVisible.
93426020ceed * empty log message * ca parents: 2216 diff changeset	7223
93426020ceed * empty log message * ca parents: 2216 diff changeset	7224	state isValueModel ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	7225	isVisible := state.
93426020ceed * empty log message * ca parents: 2216 diff changeset	7226	isVisible addDependent:self.
93426020ceed * empty log message * ca parents: 2216 diff changeset	7227	state := isVisible.
93426020ceed * empty log message * ca parents: 2216 diff changeset	7228	]
712 4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	7229	] ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	7230	state := isVisible
1164 e6e9633abf48 kludge fix: invoke mustRearrange to care for block-visibility attributes Claus Gittinger <cg@exept.de> parents: 1156 diff changeset	7231	].
e6e9633abf48 kludge fix: invoke mustRearrange to care for block-visibility attributes Claus Gittinger <cg@exept.de> parents: 1156 diff changeset	7232	^ state value ~~ false
e6e9633abf48 kludge fix: invoke mustRearrange to care for block-visibility attributes Claus Gittinger <cg@exept.de> parents: 1156 diff changeset	7233
e6e9633abf48 kludge fix: invoke mustRearrange to care for block-visibility attributes Claus Gittinger <cg@exept.de> parents: 1156 diff changeset	7234	"Modified: / 5.10.1998 / 12:08:28 / cg"
712 4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	7235	!
4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	7236
4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	7237	isVisible:something
4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	7238	"change the state; if the state changed, a redraw is performed
4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	7239	"
4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	7240	\|oldState newState\|
4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	7241
4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	7242	isVisible isNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	7243	oldState := true
712 4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	7244	] ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	7245	oldState := isVisible value.
93426020ceed * empty log message * ca parents: 2216 diff changeset	7246	isVisible isValueModel ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	7247	isVisible removeDependent:self
93426020ceed * empty log message * ca parents: 2216 diff changeset	7248	]
712 4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	7249	].
4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	7250	isVisible := something.
4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	7251
4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	7252	isVisible isNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	7253	newState := true
712 4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	7254	] ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	7255	isVisible isValueModel ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	7256	isVisible addDependent:self
93426020ceed * empty log message * ca parents: 2216 diff changeset	7257	] ifFalse:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	7258	isVisible isSymbol ifTrue:[^ self]
93426020ceed * empty log message * ca parents: 2216 diff changeset	7259	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	7260	menuPanel shown ifFalse:[^ self].
93426020ceed * empty log message * ca parents: 2216 diff changeset	7261	newState := isVisible value.
712 4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	7262	].
4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	7263
4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	7264	newState ~~ oldState ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	7265	menuPanel mustRearrange
712 4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	7266	]
1164 e6e9633abf48 kludge fix: invoke mustRearrange to care for block-visibility attributes Claus Gittinger <cg@exept.de> parents: 1156 diff changeset	7267
e6e9633abf48 kludge fix: invoke mustRearrange to care for block-visibility attributes Claus Gittinger <cg@exept.de> parents: 1156 diff changeset	7268	"Modified: / 5.10.1998 / 12:12:04 / cg"
712 4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	7269	!
4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	7270
2433 49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	7271	needsItemSpaceWhenDrawing
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	7272	^ self isSeparator not and:[menuItem isButton not]
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	7273	!
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	7274
388 dce33f8bb806 intitial checkin ca parents: diff changeset	7275	shortcutKeyAsString
dce33f8bb806 intitial checkin ca parents: diff changeset	7276	"converts shortcutKey to a text object
dce33f8bb806 intitial checkin ca parents: diff changeset	7277	"
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7278	\|nm prefix shortcutKey\|
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7279
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7280	shortcutKey := menuItem shortcutKey.
1609 2c8d62894ebe optimize searchinf for shortCutKeys ca parents: 1600 diff changeset	7281
2c8d62894ebe optimize searchinf for shortCutKeys ca parents: 1600 diff changeset	7282	shortcutKey isNil ifTrue:[
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7283	^ nil
1609 2c8d62894ebe optimize searchinf for shortCutKeys ca parents: 1600 diff changeset	7284	].
2c8d62894ebe optimize searchinf for shortCutKeys ca parents: 1600 diff changeset	7285
2c8d62894ebe optimize searchinf for shortCutKeys ca parents: 1600 diff changeset	7286	shortcutKey isCharacter ifTrue:[
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7287	nm := shortcutKey asString
388 dce33f8bb806 intitial checkin ca parents: diff changeset	7288	] ifFalse:[
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7289	"/ this is somewhat complicated: we have the symbolic key at hand,
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7290	"/ but want to show the untranslated (inverse keyBoardMapped) key & modifier
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7291	"/ Ask the devices keyboardMap for the backtranslation.
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7292
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7293	nm := menuPanel device keyboardMap keyAtValue:shortcutKey ifAbsent:shortcutKey.
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7294	"/
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7295	"/ some modifier-key combination ?
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7296	"/
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7297	(nm startsWith:#Cmd) ifTrue:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7298	prefix := #Cmd.
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7299	] ifFalse:[(nm startsWith:#Alt) ifTrue:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7300	prefix := #Alt.
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7301	] ifFalse:[(nm startsWith:#Meta) ifTrue:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7302	prefix := #Meta.
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7303	] ifFalse:[(nm startsWith:#Ctrl) ifTrue:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7304	prefix := #Ctrl.
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7305	]]]].
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7306	prefix notNil ifTrue:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7307	nm := (self shortcutKeyPrefixFor:prefix), (nm copyFrom:(prefix size + 1))
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7308	] ifFalse:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7309	nm := nm asString
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7310	]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	7311	].
608 0d8d910768af use default font derived from style ca parents: 601 diff changeset	7312	^ nm
388 dce33f8bb806 intitial checkin ca parents: diff changeset	7313
987 541dff179cc2 checkin from browser Claus Gittinger <cg@exept.de> parents: 984 diff changeset	7314	"Modified: / 17.7.1998 / 11:56:40 / cg"
388 dce33f8bb806 intitial checkin ca parents: diff changeset	7315	!
dce33f8bb806 intitial checkin ca parents: diff changeset	7316
dce33f8bb806 intitial checkin ca parents: diff changeset	7317	shortcutKeyPrefixFor:aModifier
dce33f8bb806 intitial checkin ca parents: diff changeset	7318	"returns prefix assigned to a modifier
dce33f8bb806 intitial checkin ca parents: diff changeset	7319	"
dce33f8bb806 intitial checkin ca parents: diff changeset	7320	\|m\|
dce33f8bb806 intitial checkin ca parents: diff changeset	7321
dce33f8bb806 intitial checkin ca parents: diff changeset	7322	m := menuPanel device modifierKeyTopFor:aModifier.
dce33f8bb806 intitial checkin ca parents: diff changeset	7323	m notNil ifTrue:[
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	7324	^ m , '-'
388 dce33f8bb806 intitial checkin ca parents: diff changeset	7325	].
987 541dff179cc2 checkin from browser Claus Gittinger <cg@exept.de> parents: 984 diff changeset	7326	^ aModifier , '-'.
541dff179cc2 checkin from browser Claus Gittinger <cg@exept.de> parents: 984 diff changeset	7327
541dff179cc2 checkin from browser Claus Gittinger <cg@exept.de> parents: 984 diff changeset	7328	"Modified: / 17.7.1998 / 11:56:46 / cg"
388 dce33f8bb806 intitial checkin ca parents: diff changeset	7329	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	7330
dce33f8bb806 intitial checkin ca parents: diff changeset	7331	!MenuPanel::Item methodsFor:'selection'!
dce33f8bb806 intitial checkin ca parents: diff changeset	7332
dce33f8bb806 intitial checkin ca parents: diff changeset	7333	isSelected
dce33f8bb806 intitial checkin ca parents: diff changeset	7334	"returns true if item is selected
dce33f8bb806 intitial checkin ca parents: diff changeset	7335	"
1998 5059b7c9cd2c * empty log message * Claus Gittinger <cg@exept.de> parents: 1997 diff changeset	7336
5059b7c9cd2c * empty log message * Claus Gittinger <cg@exept.de> parents: 1997 diff changeset	7337	^ menuPanel notNil and:[menuPanel selection == self]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	7338	!
dce33f8bb806 intitial checkin ca parents: diff changeset	7339
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	7340	isSelected:isSelected
1473 1f62652f146e use hasSubmenu insteat of submenu if possible; Claus Gittinger <cg@exept.de> parents: 1472 diff changeset	7341	"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	7342	submenu and perform a redraw
1f62652f146e use hasSubmenu insteat of submenu if possible; Claus Gittinger <cg@exept.de> parents: 1472 diff changeset	7343	"
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	7344	(isSelected and:[menuPanel notNil]) ifFalse:[
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	7345	self invalidate.
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	7346	self hideSubmenu.
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7347	^ self
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	7348	].
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	7349
2199 61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	7350	menuPanel realized ifFalse:[ ^ self ].
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	7351
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7352	(indication isNil or:[menuItem isButton not]) ifTrue:[
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	7353	self invalidate
2199 61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	7354	].
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	7355	self hasSubmenu ifFalse:[ ^ self].
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	7356
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	7357	self hasDelayedMenu ifTrue:[
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	7358	menuPanel openDelayed:self
2199 61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	7359	] ifFalse:[
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	7360	subMenu := self setupSubmenu.
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	7361	subMenu notNil ifTrue:[ self openSubmenu ].
1701 026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	7362	].
388 dce33f8bb806 intitial checkin ca parents: diff changeset	7363	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	7364
2692 93566e299318 +actionValue2 werner parents: 2681 diff changeset	7365	!MenuPanel::Item::Adornment methodsFor:'accessing'!
93566e299318 +actionValue2 werner parents: 2681 diff changeset	7366
93566e299318 +actionValue2 werner parents: 2681 diff changeset	7367	argument2
93566e299318 +actionValue2 werner parents: 2681 diff changeset	7368
93566e299318 +actionValue2 werner parents: 2681 diff changeset	7369	^ argument2
93566e299318 +actionValue2 werner parents: 2681 diff changeset	7370	!
93566e299318 +actionValue2 werner parents: 2681 diff changeset	7371
93566e299318 +actionValue2 werner parents: 2681 diff changeset	7372	argument2:anArgumentOrNil
93566e299318 +actionValue2 werner parents: 2681 diff changeset	7373
93566e299318 +actionValue2 werner parents: 2681 diff changeset	7374	argument2 := anArgumentOrNil
93566e299318 +actionValue2 werner parents: 2681 diff changeset	7375	! !
93566e299318 +actionValue2 werner parents: 2681 diff changeset	7376
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	7377	!MenuPanel::ScrollActivity class methodsFor:'default icons'!
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7378
2018 2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	7379	icon
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7380	"This resource specification was automatically generated
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7381	by the ImageEditor of ST/X."
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7382
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7383	"Do not manually edit this!! If it is corrupted,
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7384	the ImageEditor may not be able to read the specification."
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7385
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7386	"
2018 2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	7387	self icon inspect
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	7388	ImageEditor openOnClass:self andSelector:#icon
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7389	"
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7390
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7391	<resource: #image>
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7392
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7393	^Icon
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	7394	constantNamed:#'MenuPanel::Scrolling class icon'
93426020ceed * empty log message * ca parents: 2216 diff changeset	7395	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	7396	! !
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7397
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	7398	!MenuPanel::ScrollActivity class methodsFor:'instance creation'!
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7399
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7400	new
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7401	^ self basicNew initialize
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7402	! !
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7403
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	7404	!MenuPanel::ScrollActivity methodsFor:'accessing'!
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7405
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7406	activeMenu
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7407	"returns the active menu the scrolling is activated on; nil
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7408	is returned if scrolling is deactivated
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7409	"
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7410	^ activeMenu
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7411	!
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7412
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7413	direction
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7414	"returns the scroll-direction
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7415	"
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7416	^ direction
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7417	!
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7418
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7419	iconAt:aDirection on:aMenu
2018 2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	7420	\|icon device index\|
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7421
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7422	device := aMenu device.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7423
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7424	aDirection == #PREV ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	7425	aMenu verticalLayout ifTrue:[index := 3] "/ 3 - 1 * 90 180
93426020ceed * empty log message * ca parents: 2216 diff changeset	7426	ifFalse:[index := 2] "/ 2 - 1 * 90 90
2018 2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	7427	] ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	7428	aMenu verticalLayout ifTrue:[index := 1] "/ 1 - 1 * 90 0
93426020ceed * empty log message * ca parents: 2216 diff changeset	7429	ifFalse:[index := 4] "/ 4 - 1 * 90 270
2018 2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	7430	].
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	7431
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	7432	icon := icons at:index.
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	7433
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	7434	(icon isNil or:[icon device ~~ device]) ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	7435	icon := self class icon.
93426020ceed * empty log message * ca parents: 2216 diff changeset	7436	index > 1 ifTrue:[ icon := icon rotated:(index - 1 * 90) ]
93426020ceed * empty log message * ca parents: 2216 diff changeset	7437	ifFalse:[ icon := icon copy ].
93426020ceed * empty log message * ca parents: 2216 diff changeset	7438
93426020ceed * empty log message * ca parents: 2216 diff changeset	7439	icon := icon onDevice:device.
93426020ceed * empty log message * ca parents: 2216 diff changeset	7440	icon clearMaskedPixels.
93426020ceed * empty log message * ca parents: 2216 diff changeset	7441	icons at:index put:icon
2018 2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	7442	].
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	7443	^ icon
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7444	! !
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7445
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	7446	!MenuPanel::ScrollActivity methodsFor:'initialization'!
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7447
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7448	initialize
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7449
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7450	semaLock := RecursionLock new.
2018 2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	7451	icons := Array new:4.
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7452	! !
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7453
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	7454	!MenuPanel::ScrollActivity methodsFor:'queries'!
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7455
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7456	isActive
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7457	"returns true if scrolling is activated
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7458	"
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7459	^ activeMenu notNil
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7460	! !
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7461
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	7462	!MenuPanel::ScrollActivity methodsFor:'user operations'!
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7463
2047 62de65e3a61b initial delay; autoRepeat delay Claus Gittinger <cg@exept.de> parents: 2046 diff changeset	7464	startIfRequiredAt:aDirection on:aMenu
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7465	"start scrolling; returns true if scrolling is activated
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7466	"
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7467	\|bounds index\|
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7468
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7469	semaLock critical:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	7470	self stop.
93426020ceed * empty log message * ca parents: 2216 diff changeset	7471
93426020ceed * empty log message * ca parents: 2216 diff changeset	7472	( aDirection notNil
93426020ceed * empty log message * ca parents: 2216 diff changeset	7473	and:[aMenu notNil
93426020ceed * empty log message * ca parents: 2216 diff changeset	7474	and:[(bounds := aMenu scrollerBoundsAt:aDirection) notNil]]
93426020ceed * empty log message * ca parents: 2216 diff changeset	7475	) ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	7476	activeMenu := aMenu.
93426020ceed * empty log message * ca parents: 2216 diff changeset	7477	direction := aDirection.
93426020ceed * empty log message * ca parents: 2216 diff changeset	7478
93426020ceed * empty log message * ca parents: 2216 diff changeset	7479	index := aMenu indexOfItemAtScroller:aDirection.
93426020ceed * empty log message * ca parents: 2216 diff changeset	7480
93426020ceed * empty log message * ca parents: 2216 diff changeset	7481	index ~~ 0 ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	7482	scrollTask :=
93426020ceed * empty log message * ca parents: 2216 diff changeset	7483	[
93426020ceed * empty log message * ca parents: 2216 diff changeset	7484	\|item step\|
93426020ceed * empty log message * ca parents: 2216 diff changeset	7485
93426020ceed * empty log message * ca parents: 2216 diff changeset	7486	[
93426020ceed * empty log message * ca parents: 2216 diff changeset	7487	step := (aDirection == #PREV) ifTrue:[-1] ifFalse:[1].
93426020ceed * empty log message * ca parents: 2216 diff changeset	7488	( aMenu shown and:[(item := aMenu itemAt:index) notNil] ) ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	7489	aMenu makeItemVisible:item.
93426020ceed * empty log message * ca parents: 2216 diff changeset	7490	index := index + step.
93426020ceed * empty log message * ca parents: 2216 diff changeset	7491	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	7492
93426020ceed * empty log message * ca parents: 2216 diff changeset	7493	Delay waitForSeconds:(ButtonController defaultInitialDelay).
93426020ceed * empty log message * ca parents: 2216 diff changeset	7494
93426020ceed * empty log message * ca parents: 2216 diff changeset	7495	[ aMenu shown and:[(item := aMenu itemAt:index) notNil] ] whileTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	7496	aMenu makeItemVisible:item.
93426020ceed * empty log message * ca parents: 2216 diff changeset	7497	Delay waitForSeconds:(ButtonController defaultRepeatDelay).
93426020ceed * empty log message * ca parents: 2216 diff changeset	7498	index := index + step.
93426020ceed * empty log message * ca parents: 2216 diff changeset	7499	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	7500	item := nil.
93426020ceed * empty log message * ca parents: 2216 diff changeset	7501	] ensure:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	7502	scrollTask := nil.
93426020ceed * empty log message * ca parents: 2216 diff changeset	7503
93426020ceed * empty log message * ca parents: 2216 diff changeset	7504	item notNil ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	7505	"/ process was killed
93426020ceed * empty log message * ca parents: 2216 diff changeset	7506	aMenu invalidate:bounds
93426020ceed * empty log message * ca parents: 2216 diff changeset	7507	]
93426020ceed * empty log message * ca parents: 2216 diff changeset	7508	]
93426020ceed * empty log message * ca parents: 2216 diff changeset	7509	] forkAt:8.
93426020ceed * empty log message * ca parents: 2216 diff changeset	7510	]
93426020ceed * empty log message * ca parents: 2216 diff changeset	7511	]
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7512	].
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7513	^ bounds notNil
2047 62de65e3a61b initial delay; autoRepeat delay Claus Gittinger <cg@exept.de> parents: 2046 diff changeset	7514
2048 ba472f3f46c7 code cleanup Claus Gittinger <cg@exept.de> parents: 2047 diff changeset	7515	"Created: ca"
ba472f3f46c7 code cleanup Claus Gittinger <cg@exept.de> parents: 2047 diff changeset	7516
ba472f3f46c7 code cleanup Claus Gittinger <cg@exept.de> parents: 2047 diff changeset	7517	"Modified: / 13.11.2001 / 20:15:52 / cg"
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7518	!
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7519
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7520	stop
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7521	"stop scrolling; returns true if the scrolling was activated otherwise false
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7522	"
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7523	\|task resp\|
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7524
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7525	activeMenu isNil ifTrue:[
2231 65cec3d10fb1 Change sends to obsolete methods Stefan Vogel <sv@exept.de> parents: 2220 diff changeset	7526	^ false
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7527	].
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7528	semaLock critical:[
2231 65cec3d10fb1 Change sends to obsolete methods Stefan Vogel <sv@exept.de> parents: 2220 diff changeset	7529	resp := activeMenu notNil.
65cec3d10fb1 Change sends to obsolete methods Stefan Vogel <sv@exept.de> parents: 2220 diff changeset	7530
65cec3d10fb1 Change sends to obsolete methods Stefan Vogel <sv@exept.de> parents: 2220 diff changeset	7531	(task := scrollTask) notNil ifTrue:[
65cec3d10fb1 Change sends to obsolete methods Stefan Vogel <sv@exept.de> parents: 2220 diff changeset	7532	scrollTask := nil.
65cec3d10fb1 Change sends to obsolete methods Stefan Vogel <sv@exept.de> parents: 2220 diff changeset	7533
65cec3d10fb1 Change sends to obsolete methods Stefan Vogel <sv@exept.de> parents: 2220 diff changeset	7534	Error handle:[:ex\|
65cec3d10fb1 Change sends to obsolete methods Stefan Vogel <sv@exept.de> parents: 2220 diff changeset	7535	] do:[
65cec3d10fb1 Change sends to obsolete methods Stefan Vogel <sv@exept.de> parents: 2220 diff changeset	7536	task terminateWithAllSubprocessesInGroup.
65cec3d10fb1 Change sends to obsolete methods Stefan Vogel <sv@exept.de> parents: 2220 diff changeset	7537	task waitUntilTerminated.
65cec3d10fb1 Change sends to obsolete methods Stefan Vogel <sv@exept.de> parents: 2220 diff changeset	7538	].
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	activeMenu := direction := nil.
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7541	].
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7542	^ resp
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7543	! !
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7544
388 dce33f8bb806 intitial checkin ca parents: diff changeset	7545	!MenuPanel class methodsFor:'documentation'!
dce33f8bb806 intitial checkin ca parents: diff changeset	7546
dce33f8bb806 intitial checkin ca parents: diff changeset	7547	version
2713 9e417aa397c0 * empty log message * ca parents: 2712 diff changeset	7548	^ '$Header: /cvs/stx/stx/libwidg2/MenuPanel.st,v 1.392 2004-06-04 13:23:10 ca Exp $'
388 dce33f8bb806 intitial checkin ca parents: diff changeset	7549	! !
2199 61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	7550
388 dce33f8bb806 intitial checkin ca parents: diff changeset	7551	MenuPanel initialize!

author	ca
	Fri, 04 Jun 2004 15:23:10 +0200
changeset 2713	9e417aa397c0
parent 2712	8a5f94b10261
child 2715	11d4f65d42d2
permissions	-rw-r--r--