hg/stx-libwidg2: MenuPanel.st@645efaba917a (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	"
1750 f9e5700bd99a compatibility stuff Claus Gittinger <cg@exept.de> parents: 1737 diff changeset	12	"{ Package: 'stx:libwidg2' }"
f9e5700bd99a compatibility stuff Claus Gittinger <cg@exept.de> parents: 1737 diff changeset	13
2182 59a770bbb95a changed superclass to View (to inherit model) Claus Gittinger <cg@exept.de> parents: 2171 diff changeset	14	View subclass:#MenuPanel
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	15	instanceVariableNames:'adornment shadowView mapTime mustRearrange superMenu
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	16	shortKeyInset selection items groupSizes receiver enabled
93426020ceed * empty log message * ca parents: 2216 diff changeset	17	lastActiveMenu enteredItem prevFocusView previousPointerGrab
93426020ceed * empty log message * ca parents: 2216 diff changeset	18	previousKeyboardGrab relativeGrabOrigin hasImplicitGrap
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	19	scrollActivity rightArrowShadow rightArrow fgColor verticalLayout
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	20	showSeparatingLines showGroupDivider implicitGrabView
2331 ebd240410703 can now specify if menu action is to be performed by ca parents: 2326 diff changeset	21	lastPointerView openDelayedMenuBlock preferredWidth application
2883 58f2f296254d defaults Claus Gittinger <cg@exept.de> parents: 2877 diff changeset	22	originator centerItems hideOnRelease defaultHideOnRelease
3131 611b833f2ac9 * empty log message * ca parents: 3128 diff changeset	23	buttonInsetX buttonInsetY itemSpace activeBackgroundColor
611b833f2ac9 * empty log message * ca parents: 3128 diff changeset	24	stringOffsetX'
2609 b927f450c4c8 * empty log message * ca parents: 2607 diff changeset	25	classVariableNames:'InitialSelectionQuerySignal Images LigthenedImages
2752 1d1788de3393 more xp style Claus Gittinger <cg@exept.de> parents: 2737 diff changeset	26	DefaultForegroundColor DefaultBackgroundColor IconIndicationOn
2755 f8035120da51 * empty log message * Claus Gittinger <cg@exept.de> parents: 2754 diff changeset	27	IconIndicationOff IconRadioOn IconRadioOff
f8035120da51 * empty log message * Claus Gittinger <cg@exept.de> parents: 2754 diff changeset	28	IconDisabledIndicationOn IconDisabledIndicationOff
f8035120da51 * empty log message * Claus Gittinger <cg@exept.de> parents: 2754 diff changeset	29	IconDisabledRadioOn IconDisabledRadioOff'
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	30	poolDictionaries:''
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	31	category:'Views-Menus'
388 dce33f8bb806 intitial checkin ca parents: diff changeset	32	!
dce33f8bb806 intitial checkin ca parents: diff changeset	33
dce33f8bb806 intitial checkin ca parents: diff changeset	34	Object subclass:#Item
2433 49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	35	instanceVariableNames:'menuItem layout menuPanel subMenu displayLabel displayLabelExtent
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	36	disabledDisplayLabel enableChannel label activeHelpText
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	37	flyByHelpText isVisible indication choice accessCharacter'
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	38	classVariableNames:'HorizontalInset VerticalInset HorizontalButtonInset
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	39	VerticalButtonInset LabelRightOffset VerticalPopUpInset'
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	40	poolDictionaries:''
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	41	privateIn:MenuPanel
388 dce33f8bb806 intitial checkin ca parents: diff changeset	42	!
dce33f8bb806 intitial checkin ca parents: diff changeset	43
2692 93566e299318 +actionValue2 werner parents: 2681 diff changeset	44	Object subclass:#Adornment
93566e299318 +actionValue2 werner parents: 2681 diff changeset	45	instanceVariableNames:'indication accessCharacterPosition shortcutKey argument argument2
93566e299318 +actionValue2 werner parents: 2681 diff changeset	46	choice choiceValue'
93566e299318 +actionValue2 werner parents: 2681 diff changeset	47	classVariableNames:''
93566e299318 +actionValue2 werner parents: 2681 diff changeset	48	poolDictionaries:''
93566e299318 +actionValue2 werner parents: 2681 diff changeset	49	privateIn:MenuPanel::Item
93566e299318 +actionValue2 werner parents: 2681 diff changeset	50	!
93566e299318 +actionValue2 werner parents: 2681 diff changeset	51
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	52	Object subclass:#ScrollActivity
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	53	instanceVariableNames:'semaLock activeMenu scrollTask direction icons'
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	54	classVariableNames:''
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	55	poolDictionaries:''
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	56	privateIn:MenuPanel
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	57	!
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	58
388 dce33f8bb806 intitial checkin ca parents: diff changeset	59	!MenuPanel class methodsFor:'documentation'!
dce33f8bb806 intitial checkin ca parents: diff changeset	60
2005 a85fab2cc6f6 * empty log message * Claus Gittinger <cg@exept.de> parents: 2004 diff changeset	61	copyright
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	COPYRIGHT (c) 1997 by eXept Software AG
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	64	All Rights Reserved
2005 a85fab2cc6f6 * empty log message * Claus Gittinger <cg@exept.de> parents: 2004 diff changeset	65
a85fab2cc6f6 * empty log message * Claus Gittinger <cg@exept.de> parents: 2004 diff changeset	66	This software is furnished under a license and may be used
a85fab2cc6f6 * empty log message * Claus Gittinger <cg@exept.de> parents: 2004 diff changeset	67	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	68	inclusion of the above copyright notice. This software may not
a85fab2cc6f6 * empty log message * Claus Gittinger <cg@exept.de> parents: 2004 diff changeset	69	be provided or otherwise made available to, or used by, any
a85fab2cc6f6 * empty log message * Claus Gittinger <cg@exept.de> parents: 2004 diff changeset	70	other person. No title to or ownership of the software is
a85fab2cc6f6 * empty log message * Claus Gittinger <cg@exept.de> parents: 2004 diff changeset	71	hereby transferred.
a85fab2cc6f6 * empty log message * Claus Gittinger <cg@exept.de> parents: 2004 diff changeset	72	"
a85fab2cc6f6 * empty log message * Claus Gittinger <cg@exept.de> parents: 2004 diff changeset	73
388 dce33f8bb806 intitial checkin ca parents: diff changeset	74	!
dce33f8bb806 intitial checkin ca parents: diff changeset	75
dce33f8bb806 intitial checkin ca parents: diff changeset	76	documentation
dce33f8bb806 intitial checkin ca parents: diff changeset	77	"
dce33f8bb806 intitial checkin ca parents: diff changeset	78	a menu panel used for both pull-down-menus and pop-up-menus.
dce33f8bb806 intitial checkin ca parents: diff changeset	79
2170 e76171113581 enteredFG / enteredBG Claus Gittinger <cg@exept.de> parents: 2166 diff changeset	80	this will eventually replace most of the MenuView and PopUpMenu stuff.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	81	(and hopefully be ST-80 compatible ...)
dce33f8bb806 intitial checkin ca parents: diff changeset	82
502 dedc1b29b6ac support of arguments ca parents: 498 diff changeset	83	To create a menu, there exists a MenuEditor which will generate
dedc1b29b6ac support of arguments ca parents: 498 diff changeset	84	a menu specification.
dedc1b29b6ac support of arguments ca parents: 498 diff changeset	85
dedc1b29b6ac support of arguments ca parents: 498 diff changeset	86
2061 faf64f2cd28e * empty log message * Claus Gittinger <cg@exept.de> parents: 2059 diff changeset	87	Notice:
faf64f2cd28e * empty log message * Claus Gittinger <cg@exept.de> parents: 2059 diff changeset	88	This is going to replace the obsolete MenuView.
faf64f2cd28e * empty log message * Claus Gittinger <cg@exept.de> parents: 2059 diff changeset	89
388 dce33f8bb806 intitial checkin ca parents: diff changeset	90	[author:]
1786 f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	91	Claus Atzkern
388 dce33f8bb806 intitial checkin ca parents: diff changeset	92
dce33f8bb806 intitial checkin ca parents: diff changeset	93	[see also:]
1786 f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	94	Menu
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	95	MenuItem
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	96	MenuEditor
2170 e76171113581 enteredFG / enteredBG Claus Gittinger <cg@exept.de> parents: 2166 diff changeset	97
e76171113581 enteredFG / enteredBG Claus Gittinger <cg@exept.de> parents: 2166 diff changeset	98	cg: this code is so ugly - needs a complete rewrite...
e76171113581 enteredFG / enteredBG Claus Gittinger <cg@exept.de> parents: 2166 diff changeset	99
388 dce33f8bb806 intitial checkin ca parents: diff changeset	100	"
dce33f8bb806 intitial checkin ca parents: diff changeset	101	!
dce33f8bb806 intitial checkin ca parents: diff changeset	102
dce33f8bb806 intitial checkin ca parents: diff changeset	103	examples
dce33f8bb806 intitial checkin ca parents: diff changeset	104
dce33f8bb806 intitial checkin ca parents: diff changeset	105	"
dce33f8bb806 intitial checkin ca parents: diff changeset	106	start as PullDownMenu
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	107	[exBegin]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	108	\|top subView mview desc s1 s2 s3 img lbs labels\|
dce33f8bb806 intitial checkin ca parents: diff changeset	109
dce33f8bb806 intitial checkin ca parents: diff changeset	110	top := StandardSystemView new.
dce33f8bb806 intitial checkin ca parents: diff changeset	111
436 c03d6faa41a6 process events befor accept ca parents: 434 diff changeset	112	mview := MenuPanel in:top.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	113
502 dedc1b29b6ac support of arguments ca parents: 498 diff changeset	114	labels := #( 'foo' 'bar' 'baz' 'test' 'claus' ).
388 dce33f8bb806 intitial checkin ca parents: diff changeset	115	mview level:2.
dce33f8bb806 intitial checkin ca parents: diff changeset	116	mview verticalLayout:false.
dce33f8bb806 intitial checkin ca parents: diff changeset	117	img := Image fromFile:'bitmaps/SBrowser.xbm'.
502 dedc1b29b6ac support of arguments ca parents: 498 diff changeset	118	lbs := Array with:'foo' with:'bar' with:img with:'baz' with:'test' with:'ludwig'.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	119	mview labels:lbs.
dce33f8bb806 intitial checkin ca parents: diff changeset	120	mview shortcutKeyAt:2 put:#Cut.
dce33f8bb806 intitial checkin ca parents: diff changeset	121	mview accessCharacterPositionAt:1 put:1.
dce33f8bb806 intitial checkin ca parents: diff changeset	122	mview accessCharacterPositionAt:2 put:2.
dce33f8bb806 intitial checkin ca parents: diff changeset	123
dce33f8bb806 intitial checkin ca parents: diff changeset	124	mview enabledAt:5 put:false.
dce33f8bb806 intitial checkin ca parents: diff changeset	125	mview groupSizes:#( 2 2 ).
436 c03d6faa41a6 process events befor accept ca parents: 434 diff changeset	126	s1 := MenuPanel labels:labels.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	127	s1 accessCharacterPositionAt:1 put:1.
dce33f8bb806 intitial checkin ca parents: diff changeset	128	s1 accessCharacterPositionAt:2 put:2.
dce33f8bb806 intitial checkin ca parents: diff changeset	129	s1 groupSizes:#( 2 2 ).
436 c03d6faa41a6 process events befor accept ca parents: 434 diff changeset	130	s2 := MenuPanel labels:#( '1' nil '2' '-' '3' '=' '4' ' ' '5' ).
c03d6faa41a6 process events befor accept ca parents: 434 diff changeset	131	s3 := MenuPanel labels:lbs.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	132
dce33f8bb806 intitial checkin ca parents: diff changeset	133	s1 subMenuAt:2 put:s2.
436 c03d6faa41a6 process events befor accept ca parents: 434 diff changeset	134	s1 subMenuAt:3 put:(MenuPanel labels:lbs).
388 dce33f8bb806 intitial checkin ca parents: diff changeset	135	s2 subMenuAt:3 put:s3.
436 c03d6faa41a6 process events befor accept ca parents: 434 diff changeset	136	s3 subMenuAt:3 put:(MenuPanel labels:labels).
388 dce33f8bb806 intitial checkin ca parents: diff changeset	137	s3 shortcutKeyAt:3 put:$q.
dce33f8bb806 intitial checkin ca parents: diff changeset	138
dce33f8bb806 intitial checkin ca parents: diff changeset	139	mview subMenuAt:1 put:s1.
436 c03d6faa41a6 process events befor accept ca parents: 434 diff changeset	140	mview subMenuAt:4 put:(MenuPanel labels:lbs).
388 dce33f8bb806 intitial checkin ca parents: diff changeset	141	(mview subMenuAt:4) shortcutKeyAt:3 put:#Copy.
dce33f8bb806 intitial checkin ca parents: diff changeset	142	s1 shortcutKeyAt:1 put:#Copy.
dce33f8bb806 intitial checkin ca parents: diff changeset	143	s1 shortcutKeyAt:3 put:#Paste.
dce33f8bb806 intitial checkin ca parents: diff changeset	144
436 c03d6faa41a6 process events befor accept ca parents: 434 diff changeset	145	mview subMenuAt:2 put:(MenuPanel labels:labels).
616 a6157b083830 support of different styles ca parents: 608 diff changeset	146	top extent:(mview preferredExtent).
388 dce33f8bb806 intitial checkin ca parents: diff changeset	147	top open.
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	148	[exEnd]
93426020ceed * empty log message * ca parents: 2216 diff changeset	149
93426020ceed * empty log message * ca parents: 2216 diff changeset	150	[exBegin]
1767 e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	151	\|top menu view item\|
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	152
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	153	top := StandardSystemView extent:240@100.
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	154	menu := MenuPanel in:top.
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	155	menu labels:#( 'foo' 'Application' 'Clock' ).
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	156	menu verticalLayout:false.
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	157
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	158	menu subMenuAt:1 put:(MenuPanel labels:#( 'bar' 'baz' )).
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	159	menu subMenuAt:2 put:(MenuPanel labels:#( 'foo' 'bar' 'baz' )).
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	160
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	161	view := ClockView new.
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	162	view preferredExtent:100@100.
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	163	item := menu itemAt:3.
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	164	item submenu:view.
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	165
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	166	view := SimpleView new.
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	167	view client:(CodingExamples_GUI::GUIDemoExtendedComboBox new).
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	168	view preferredExtent:(400@50).
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	169	item := menu itemAt:2.
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	170	item submenu:view.
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	171
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	172	menu origin:0@0 corner:1.0@30.
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	173	top open.
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	174	[exEnd]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	175
dce33f8bb806 intitial checkin ca parents: diff changeset	176
dce33f8bb806 intitial checkin ca parents: diff changeset	177	start as PopUpMenu
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	178	[exBegin]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	179	\|subView mview desc s1 s2 s3 img lbs labels\|
dce33f8bb806 intitial checkin ca parents: diff changeset	180
436 c03d6faa41a6 process events befor accept ca parents: 434 diff changeset	181	mview := MenuPanel new.
502 dedc1b29b6ac support of arguments ca parents: 498 diff changeset	182	labels := #( 'foo' 'bar' 'baz' ).
388 dce33f8bb806 intitial checkin ca parents: diff changeset	183	mview level:2.
dce33f8bb806 intitial checkin ca parents: diff changeset	184
dce33f8bb806 intitial checkin ca parents: diff changeset	185	img := Image fromFile:'bitmaps/SBrowser.xbm'.
502 dedc1b29b6ac support of arguments ca parents: 498 diff changeset	186	lbs := Array with:'foo' with:'bar' with:img with:'baz' with:'test'.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	187	mview labels:lbs.
dce33f8bb806 intitial checkin ca parents: diff changeset	188
436 c03d6faa41a6 process events befor accept ca parents: 434 diff changeset	189	s1 := MenuPanel labels:labels.
c03d6faa41a6 process events befor accept ca parents: 434 diff changeset	190	s2 := MenuPanel labels:#( '1' nil '2' '-' '3' '=' '4' ' ' '5' ).
c03d6faa41a6 process events befor accept ca parents: 434 diff changeset	191	s3 := MenuPanel labels:lbs.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	192	s1 subMenuAt:2 put:s2.
436 c03d6faa41a6 process events befor accept ca parents: 434 diff changeset	193	s1 subMenuAt:3 put:(MenuPanel labels:lbs).
388 dce33f8bb806 intitial checkin ca parents: diff changeset	194	s2 subMenuAt:3 put:s3.
436 c03d6faa41a6 process events befor accept ca parents: 434 diff changeset	195	s3 subMenuAt:3 put:(MenuPanel labels:labels).
388 dce33f8bb806 intitial checkin ca parents: diff changeset	196	s3 shortcutKeyAt:3 put:$q.
dce33f8bb806 intitial checkin ca parents: diff changeset	197
dce33f8bb806 intitial checkin ca parents: diff changeset	198	mview subMenuAt:1 put:s1.
436 c03d6faa41a6 process events befor accept ca parents: 434 diff changeset	199	mview subMenuAt:4 put:(MenuPanel labels:lbs).
388 dce33f8bb806 intitial checkin ca parents: diff changeset	200	(mview subMenuAt:4) shortcutKeyAt:3 put:#Copy.
dce33f8bb806 intitial checkin ca parents: diff changeset	201	s1 shortcutKeyAt:1 put:#Copy.
dce33f8bb806 intitial checkin ca parents: diff changeset	202	s1 shortcutKeyAt:3 put:#Paste.
dce33f8bb806 intitial checkin ca parents: diff changeset	203
436 c03d6faa41a6 process events befor accept ca parents: 434 diff changeset	204	mview subMenuAt:2 put:(MenuPanel labels:labels).
388 dce33f8bb806 intitial checkin ca parents: diff changeset	205	mview startUp
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	206	[exEnd]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	207
dce33f8bb806 intitial checkin ca parents: diff changeset	208
dce33f8bb806 intitial checkin ca parents: diff changeset	209	start from menu spec
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	210	[exBegin]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	211	\|menu\|
dce33f8bb806 intitial checkin ca parents: diff changeset	212
436 c03d6faa41a6 process events befor accept ca parents: 434 diff changeset	213	menu := MenuPanel menu:
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	214	#(#Menu #( #(#MenuItem
93426020ceed * empty log message * ca parents: 2216 diff changeset	215	#label: 'File'
93426020ceed * empty log message * ca parents: 2216 diff changeset	216	#submenu:
93426020ceed * empty log message * ca parents: 2216 diff changeset	217	#(#Menu #(#(#MenuItem #label: 'quit' #value:#quit )
93426020ceed * empty log message * ca parents: 2216 diff changeset	218	(#MenuItem
93426020ceed * empty log message * ca parents: 2216 diff changeset	219	#label: 'edit'
93426020ceed * empty log message * ca parents: 2216 diff changeset	220	#submenu:
93426020ceed * empty log message * ca parents: 2216 diff changeset	221	#(#Menu #( #(#MenuItem #label: 'edit' #value:#edit )
93426020ceed * empty log message * ca parents: 2216 diff changeset	222	#(#MenuItem #label: 'close' #value:#close)
93426020ceed * empty log message * ca parents: 2216 diff changeset	223	)
93426020ceed * empty log message * ca parents: 2216 diff changeset	224	nil
93426020ceed * empty log message * ca parents: 2216 diff changeset	225	nil
93426020ceed * empty log message * ca parents: 2216 diff changeset	226	)
93426020ceed * empty log message * ca parents: 2216 diff changeset	227	)
93426020ceed * empty log message * ca parents: 2216 diff changeset	228	#(#MenuItem #label: 'help' #value:#help )
93426020ceed * empty log message * ca parents: 2216 diff changeset	229	)
93426020ceed * empty log message * ca parents: 2216 diff changeset	230	nil
93426020ceed * empty log message * ca parents: 2216 diff changeset	231	nil
93426020ceed * empty log message * ca parents: 2216 diff changeset	232	)
93426020ceed * empty log message * ca parents: 2216 diff changeset	233	)
93426020ceed * empty log message * ca parents: 2216 diff changeset	234	#(#MenuItem #label: 'Inspect' #value:#inspectMenu )
93426020ceed * empty log message * ca parents: 2216 diff changeset	235	#(#MenuItem #label: 'Bar'
93426020ceed * empty log message * ca parents: 2216 diff changeset	236	#submenu:
93426020ceed * empty log message * ca parents: 2216 diff changeset	237	#(#Menu #( #(#MenuItem #label: 'bar 1' #value:#bar1 )
93426020ceed * empty log message * ca parents: 2216 diff changeset	238	#(#MenuItem #label: 'bar 2' #value:#bar2 )
93426020ceed * empty log message * ca parents: 2216 diff changeset	239	)
93426020ceed * empty log message * ca parents: 2216 diff changeset	240	nil
93426020ceed * empty log message * ca parents: 2216 diff changeset	241	nil
93426020ceed * empty log message * ca parents: 2216 diff changeset	242	)
93426020ceed * empty log message * ca parents: 2216 diff changeset	243	)
93426020ceed * empty log message * ca parents: 2216 diff changeset	244	)
93426020ceed * empty log message * ca parents: 2216 diff changeset	245	#( 2 )
93426020ceed * empty log message * ca parents: 2216 diff changeset	246	nil
93426020ceed * empty log message * ca parents: 2216 diff changeset	247	) decodeAsLiteralArray.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	248
dce33f8bb806 intitial checkin ca parents: diff changeset	249	menu verticalLayout:false.
dce33f8bb806 intitial checkin ca parents: diff changeset	250	Transcript showCR:(menu startUp).
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	251	[exEnd]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	252
dce33f8bb806 intitial checkin ca parents: diff changeset	253	"
dce33f8bb806 intitial checkin ca parents: diff changeset	254
dce33f8bb806 intitial checkin ca parents: diff changeset	255	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	256
dce33f8bb806 intitial checkin ca parents: diff changeset	257	!MenuPanel class methodsFor:'instance creation'!
dce33f8bb806 intitial checkin ca parents: diff changeset	258
dce33f8bb806 intitial checkin ca parents: diff changeset	259	fromSpec:aSpec
dce33f8bb806 intitial checkin ca parents: diff changeset	260	^ self fromSpec:aSpec receiver:nil
dce33f8bb806 intitial checkin ca parents: diff changeset	261	!
dce33f8bb806 intitial checkin ca parents: diff changeset	262
dce33f8bb806 intitial checkin ca parents: diff changeset	263	fromSpec:aSpec receiver:aReceiver
dce33f8bb806 intitial checkin ca parents: diff changeset	264	\|menu\|
dce33f8bb806 intitial checkin ca parents: diff changeset	265
dce33f8bb806 intitial checkin ca parents: diff changeset	266	aSpec notNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	267	menu := Menu new.
93426020ceed * empty log message * ca parents: 2216 diff changeset	268	menu receiver:aReceiver.
93426020ceed * empty log message * ca parents: 2216 diff changeset	269	menu fromLiteralArrayEncoding:aSpec.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	270	].
dce33f8bb806 intitial checkin ca parents: diff changeset	271	^ self menu:menu receiver:aReceiver
dce33f8bb806 intitial checkin ca parents: diff changeset	272	!
dce33f8bb806 intitial checkin ca parents: diff changeset	273
dce33f8bb806 intitial checkin ca parents: diff changeset	274	labels:labels
dce33f8bb806 intitial checkin ca parents: diff changeset	275	^ self labels:labels nameKeys:nil receiver:nil
dce33f8bb806 intitial checkin ca parents: diff changeset	276	!
dce33f8bb806 intitial checkin ca parents: diff changeset	277
dce33f8bb806 intitial checkin ca parents: diff changeset	278	labels:labels nameKeys:nameKeys
dce33f8bb806 intitial checkin ca parents: diff changeset	279	^ self labels:labels nameKeys:nameKeys receiver:nil
dce33f8bb806 intitial checkin ca parents: diff changeset	280	!
dce33f8bb806 intitial checkin ca parents: diff changeset	281
dce33f8bb806 intitial checkin ca parents: diff changeset	282	labels:labels nameKeys:nameKeys receiver:aReceiver
dce33f8bb806 intitial checkin ca parents: diff changeset	283	\|mview\|
dce33f8bb806 intitial checkin ca parents: diff changeset	284
dce33f8bb806 intitial checkin ca parents: diff changeset	285	mview := self menu:nil receiver:aReceiver.
dce33f8bb806 intitial checkin ca parents: diff changeset	286	mview labels:labels.
dce33f8bb806 intitial checkin ca parents: diff changeset	287	mview nameKeys:nameKeys.
dce33f8bb806 intitial checkin ca parents: diff changeset	288	^ mview
dce33f8bb806 intitial checkin ca parents: diff changeset	289
dce33f8bb806 intitial checkin ca parents: diff changeset	290	!
dce33f8bb806 intitial checkin ca parents: diff changeset	291
502 dedc1b29b6ac support of arguments ca parents: 498 diff changeset	292	labels:labels receiver:aReceiver
dedc1b29b6ac support of arguments ca parents: 498 diff changeset	293	^ self labels:labels nameKeys:nil receiver:aReceiver
dedc1b29b6ac support of arguments ca parents: 498 diff changeset	294	!
dedc1b29b6ac support of arguments ca parents: 498 diff changeset	295
388 dce33f8bb806 intitial checkin ca parents: diff changeset	296	menu:aMenu
dce33f8bb806 intitial checkin ca parents: diff changeset	297	^ self menu:aMenu receiver:nil
dce33f8bb806 intitial checkin ca parents: diff changeset	298	!
dce33f8bb806 intitial checkin ca parents: diff changeset	299
dce33f8bb806 intitial checkin ca parents: diff changeset	300	menu:aMenu receiver:aReceiver
dce33f8bb806 intitial checkin ca parents: diff changeset	301	\|mview\|
dce33f8bb806 intitial checkin ca parents: diff changeset	302
dce33f8bb806 intitial checkin ca parents: diff changeset	303	mview := self new.
1955 dea13bc1f1e0 bug fix when setting the receiver ca parents: 1929 diff changeset	304
dea13bc1f1e0 bug fix when setting the receiver ca parents: 1929 diff changeset	305	(aMenu notNil and:[aMenu receiver isNil]) ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	306	"/ no receiver specified in the menu; thus set the receiver immediately
93426020ceed * empty log message * ca parents: 2216 diff changeset	307	mview receiver:aReceiver
1955 dea13bc1f1e0 bug fix when setting the receiver ca parents: 1929 diff changeset	308	].
dea13bc1f1e0 bug fix when setting the receiver ca parents: 1929 diff changeset	309
388 dce33f8bb806 intitial checkin ca parents: diff changeset	310	mview menu:aMenu.
dce33f8bb806 intitial checkin ca parents: diff changeset	311
1955 dea13bc1f1e0 bug fix when setting the receiver ca parents: 1929 diff changeset	312
388 dce33f8bb806 intitial checkin ca parents: diff changeset	313	"/ a menu itself may contain a receiver
dce33f8bb806 intitial checkin ca parents: diff changeset	314	"/ thus we do not overwrite the receiver
dce33f8bb806 intitial checkin ca parents: diff changeset	315
dce33f8bb806 intitial checkin ca parents: diff changeset	316	aReceiver notNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	317	mview receiver:aReceiver
388 dce33f8bb806 intitial checkin ca parents: diff changeset	318	].
dce33f8bb806 intitial checkin ca parents: diff changeset	319	^ mview
dce33f8bb806 intitial checkin ca parents: diff changeset	320	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	321
dce33f8bb806 intitial checkin ca parents: diff changeset	322	!MenuPanel class methodsFor:'class initialization'!
dce33f8bb806 intitial checkin ca parents: diff changeset	323
dce33f8bb806 intitial checkin ca parents: diff changeset	324	initialize
dce33f8bb806 intitial checkin ca parents: diff changeset	325	InitialSelectionQuerySignal isNil ifTrue:[
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	326	InitialSelectionQuerySignal := QuerySignal new.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	327	].
dce33f8bb806 intitial checkin ca parents: diff changeset	328
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	329	"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	330	self initialize
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	331	"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	332
660 d1670dfe5445 Do not call #updateStyleCache from #initialize. Stefan Vogel <sv@exept.de> parents: 658 diff changeset	333	"Modified: / 15.1.1998 / 23:08:31 / stefan"
794 5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	334	!
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	335
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	336	preSnapshot
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	337	"remove all resources"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	338
794 5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	339	Images := nil.
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	340	LigthenedImages := nil.
616 a6157b083830 support of different styles ca parents: 608 diff changeset	341	! !
a6157b083830 support of different styles ca parents: 608 diff changeset	342
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	343	!MenuPanel class methodsFor:'default icons'!
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	344
2344 d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	345	delayedMenuIndicator
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	346	"This resource specification was automatically generated
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	347	by the ImageEditor of ST/X."
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	348
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	349	"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	350	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	351
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	352	"
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	353	self delayedMenuIndicator inspect
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	354	ImageEditor openOnClass:self andSelector:#delayedMenuIndicator
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	355	Icon flushCachedIcons
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	356	"
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	<resource: #image>
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	359
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	360	^Icon
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	361	constantNamed:#'MenuPanel class delayedMenuIndicator'
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	362	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	363	!
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	364
1798 08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	365	iconIndicationDisabledOff
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	366	"This resource specification was automatically generated
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	367	by the ImageEditor of ST/X."
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	368
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	369	"Do not manually edit this!! If it is corrupted,
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	370	the ImageEditor may not be able to read the specification."
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	371
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	372	"
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	373	self iconIndicationDisabledOff inspect
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	374	ImageEditor openOnClass:self andSelector:#iconIndicationDisabledOff
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	375	"
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	376
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	377	<resource: #image>
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	378
2755 f8035120da51 * empty log message * Claus Gittinger <cg@exept.de> parents: 2754 diff changeset	379	IconDisabledIndicationOff isNil ifTrue:[
f8035120da51 * empty log message * Claus Gittinger <cg@exept.de> parents: 2754 diff changeset	380	IconDisabledIndicationOff := Icon
f8035120da51 * empty log message * Claus Gittinger <cg@exept.de> parents: 2754 diff changeset	381	constantNamed:#'MenuPanel iconIndicationDisabledOff'
f8035120da51 * empty log message * Claus Gittinger <cg@exept.de> parents: 2754 diff changeset	382	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]
f8035120da51 * empty log message * Claus Gittinger <cg@exept.de> parents: 2754 diff changeset	383	].
f8035120da51 * empty log message * Claus Gittinger <cg@exept.de> parents: 2754 diff changeset	384	^ IconDisabledIndicationOff
1889 43516e4588ce give warning messages for unimplemented menu-aspects Claus Gittinger <cg@exept.de> parents: 1878 diff changeset	385	!
1798 08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	386
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	387	iconIndicationDisabledOn
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	388	"This resource specification was automatically generated
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	389	by the ImageEditor of ST/X."
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	390
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	391	"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	392	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	393
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	394	"
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	395	self iconIndicationDisabledOn inspect
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	396	ImageEditor openOnClass:self andSelector:#iconIndicationDisabledOn
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	397	"
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	398
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	399	<resource: #image>
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	400
2755 f8035120da51 * empty log message * Claus Gittinger <cg@exept.de> parents: 2754 diff changeset	401	IconDisabledIndicationOn isNil ifTrue:[
f8035120da51 * empty log message * Claus Gittinger <cg@exept.de> parents: 2754 diff changeset	402	IconDisabledIndicationOn := Icon
f8035120da51 * empty log message * Claus Gittinger <cg@exept.de> parents: 2754 diff changeset	403	constantNamed:#'MenuPanel iconIndicationDisabledOn'
f8035120da51 * empty log message * Claus Gittinger <cg@exept.de> parents: 2754 diff changeset	404	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]
f8035120da51 * empty log message * Claus Gittinger <cg@exept.de> parents: 2754 diff changeset	405	].
f8035120da51 * empty log message * Claus Gittinger <cg@exept.de> parents: 2754 diff changeset	406	^ IconDisabledIndicationOn
1889 43516e4588ce give warning messages for unimplemented menu-aspects Claus Gittinger <cg@exept.de> parents: 1878 diff changeset	407	!
1798 08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	408
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	409	iconIndicationOff
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	410	"This resource specification was automatically generated
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	411	by the ImageEditor of ST/X."
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	"Do not manually edit this!! If it is corrupted,
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	414	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	415
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	416	"
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	417	self iconIndicationOff inspect
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	418	ImageEditor openOnClass:self andSelector:#iconIndicationOff
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
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	421	<resource: #image>
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	422
2752 1d1788de3393 more xp style Claus Gittinger <cg@exept.de> parents: 2737 diff changeset	423	IconIndicationOff isNil ifTrue:[
1d1788de3393 more xp style Claus Gittinger <cg@exept.de> parents: 2737 diff changeset	424	IconIndicationOff := Icon
1d1788de3393 more xp style Claus Gittinger <cg@exept.de> parents: 2737 diff changeset	425	constantNamed:#'MenuPanel iconIndicationOff'
1d1788de3393 more xp style Claus Gittinger <cg@exept.de> parents: 2737 diff changeset	426	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]
1d1788de3393 more xp style Claus Gittinger <cg@exept.de> parents: 2737 diff changeset	427	].
1d1788de3393 more xp style Claus Gittinger <cg@exept.de> parents: 2737 diff changeset	428	^ IconIndicationOff
1889 43516e4588ce give warning messages for unimplemented menu-aspects Claus Gittinger <cg@exept.de> parents: 1878 diff changeset	429	!
1726 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	iconIndicationOn
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	432	"This resource specification was automatically generated
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	433	by the ImageEditor of ST/X."
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	434
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	435	"Do not manually edit this!! If it is corrupted,
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	436	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	437
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	438	"
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	439	self iconIndicationOn inspect
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	440	ImageEditor openOnClass:self andSelector:#iconIndicationOn
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	441	"
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	442
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	443	<resource: #image>
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	444
2752 1d1788de3393 more xp style Claus Gittinger <cg@exept.de> parents: 2737 diff changeset	445	IconIndicationOn isNil ifTrue:[
1d1788de3393 more xp style Claus Gittinger <cg@exept.de> parents: 2737 diff changeset	446	IconIndicationOn := Icon
1d1788de3393 more xp style Claus Gittinger <cg@exept.de> parents: 2737 diff changeset	447	constantNamed:#'MenuPanel iconIndicationOn'
1d1788de3393 more xp style Claus Gittinger <cg@exept.de> parents: 2737 diff changeset	448	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]
1d1788de3393 more xp style Claus Gittinger <cg@exept.de> parents: 2737 diff changeset	449	].
1d1788de3393 more xp style Claus Gittinger <cg@exept.de> parents: 2737 diff changeset	450	^ IconIndicationOn
1889 43516e4588ce give warning messages for unimplemented menu-aspects Claus Gittinger <cg@exept.de> parents: 1878 diff changeset	451	!
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	452
1798 08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	453	iconRadioGroupDisabledOff
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	454	"This resource specification was automatically generated
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	455	by the ImageEditor of ST/X."
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	456
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	457	"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	458	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	459
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	460	"
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	461	self iconRadioGroupDisabledOff inspect
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	462	ImageEditor openOnClass:self andSelector:#iconRadioGroupDisabledOff
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	463	"
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	464
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	465	<resource: #image>
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	466
2755 f8035120da51 * empty log message * Claus Gittinger <cg@exept.de> parents: 2754 diff changeset	467	IconDisabledRadioOff isNil ifTrue:[
f8035120da51 * empty log message * Claus Gittinger <cg@exept.de> parents: 2754 diff changeset	468	IconDisabledRadioOff := Icon
f8035120da51 * empty log message * Claus Gittinger <cg@exept.de> parents: 2754 diff changeset	469	constantNamed:#'MenuPanel iconRadioGroupDisabledOff'
f8035120da51 * empty log message * Claus Gittinger <cg@exept.de> parents: 2754 diff changeset	470	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]
f8035120da51 * empty log message * Claus Gittinger <cg@exept.de> parents: 2754 diff changeset	471	].
f8035120da51 * empty log message * Claus Gittinger <cg@exept.de> parents: 2754 diff changeset	472	^ IconDisabledRadioOff
1889 43516e4588ce give warning messages for unimplemented menu-aspects Claus Gittinger <cg@exept.de> parents: 1878 diff changeset	473	!
1798 08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	474
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	475	iconRadioGroupDisabledOn
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	476	"This resource specification was automatically generated
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	477	by the ImageEditor of ST/X."
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	478
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	479	"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	480	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	481
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	482	"
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	483	self iconRadioGroupDisabledOn inspect
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	484	ImageEditor openOnClass:self andSelector:#iconRadioGroupDisabledOn
2337 7f384db88273 centerItems attribute Claus Gittinger <cg@exept.de> parents: 2332 diff changeset	485	Icon flushCachedIcons
1798 08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	486	"
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	487
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	488	<resource: #image>
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	489
2755 f8035120da51 * empty log message * Claus Gittinger <cg@exept.de> parents: 2754 diff changeset	490	IconDisabledRadioOn isNil ifTrue:[
f8035120da51 * empty log message * Claus Gittinger <cg@exept.de> parents: 2754 diff changeset	491	IconDisabledRadioOn := Icon
f8035120da51 * empty log message * Claus Gittinger <cg@exept.de> parents: 2754 diff changeset	492	constantNamed:#'MenuPanel class iconRadioGroupDisabledOn'
f8035120da51 * empty log message * Claus Gittinger <cg@exept.de> parents: 2754 diff changeset	493	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]
f8035120da51 * empty log message * Claus Gittinger <cg@exept.de> parents: 2754 diff changeset	494	].
f8035120da51 * empty log message * Claus Gittinger <cg@exept.de> parents: 2754 diff changeset	495	^ IconDisabledRadioOn
1889 43516e4588ce give warning messages for unimplemented menu-aspects Claus Gittinger <cg@exept.de> parents: 1878 diff changeset	496	!
1798 08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	497
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	498	iconRadioGroupOff
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	499	"This resource specification was automatically generated
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	500	by the ImageEditor of ST/X."
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	501
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	502	"Do not manually edit this!! If it is corrupted,
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	503	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	504
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	505	"
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	506	self iconRadioGroupOff inspect
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	507	ImageEditor openOnClass:self andSelector:#iconRadioGroupOff
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
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	510	<resource: #image>
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	511
2754 e1099c448aa9 more xp style Claus Gittinger <cg@exept.de> parents: 2752 diff changeset	512	IconRadioOff isNil ifTrue:[
e1099c448aa9 more xp style Claus Gittinger <cg@exept.de> parents: 2752 diff changeset	513	IconRadioOff := Icon
e1099c448aa9 more xp style Claus Gittinger <cg@exept.de> parents: 2752 diff changeset	514	constantNamed:#'MenuPanel iconRadioGroupOff'
e1099c448aa9 more xp style Claus Gittinger <cg@exept.de> parents: 2752 diff changeset	515	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]
e1099c448aa9 more xp style Claus Gittinger <cg@exept.de> parents: 2752 diff changeset	516	].
e1099c448aa9 more xp style Claus Gittinger <cg@exept.de> parents: 2752 diff changeset	517	^ IconRadioOff
1889 43516e4588ce give warning messages for unimplemented menu-aspects Claus Gittinger <cg@exept.de> parents: 1878 diff changeset	518	!
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	519
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	520	iconRadioGroupOn
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	521	"This resource specification was automatically generated
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	522	by the ImageEditor of ST/X."
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	523
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	524	"Do not manually edit this!! If it is corrupted,
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	525	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	526
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	527	"
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	528	self iconRadioGroupOn inspect
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	529	ImageEditor openOnClass:self andSelector:#iconRadioGroupOn
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	530	"
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	531
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	532	<resource: #image>
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	533
2754 e1099c448aa9 more xp style Claus Gittinger <cg@exept.de> parents: 2752 diff changeset	534	IconRadioOn isNil ifTrue:[
e1099c448aa9 more xp style Claus Gittinger <cg@exept.de> parents: 2752 diff changeset	535	IconRadioOn := Icon
e1099c448aa9 more xp style Claus Gittinger <cg@exept.de> parents: 2752 diff changeset	536	constantNamed:#'MenuPanel iconRadioGroupOn'
e1099c448aa9 more xp style Claus Gittinger <cg@exept.de> parents: 2752 diff changeset	537	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]
e1099c448aa9 more xp style Claus Gittinger <cg@exept.de> parents: 2752 diff changeset	538	].
e1099c448aa9 more xp style Claus Gittinger <cg@exept.de> parents: 2752 diff changeset	539	^ IconRadioOn
2344 d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	540	!
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	541
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	542	menuIndicator
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	543	"This resource specification was automatically generated
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	544	by the ImageEditor of ST/X."
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	545
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	546	"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	547	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	548
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	549	"
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	550	self menuIndicator inspect
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	551	ImageEditor openOnClass:self andSelector:#menuIndicator
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	552	Icon flushCachedIcons
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
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	555	<resource: #image>
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	^Icon
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	558	constantNamed:#'MenuPanel::Item class menuIndicator'
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	559	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	560	! !
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	561
616 a6157b083830 support of different styles ca parents: 608 diff changeset	562	!MenuPanel class methodsFor:'defaults'!
450 ac72eb2ed895 initialize fix Claus Gittinger <cg@exept.de> parents: 441 diff changeset	563
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	564	defaultBackgroundColor
2609 b927f450c4c8 * empty log message * ca parents: 2607 diff changeset	565	DefaultBackgroundColor notNil ifTrue:[^ DefaultBackgroundColor].
2372 d136f6d4b7c5 bugfix if font is nil ca parents: 2364 diff changeset	566	^ StyleSheet at:#'pullDownMenu.backgroundColor' default:DefaultViewBackgroundColor.
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	567	!
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	568
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	569	defaultLevel
2372 d136f6d4b7c5 bugfix if font is nil ca parents: 2364 diff changeset	570	^ StyleSheet at:#'pullDownMenu.level' default:1
d136f6d4b7c5 bugfix if font is nil ca parents: 2364 diff changeset	571	"
d136f6d4b7c5 bugfix if font is nil ca parents: 2364 diff changeset	572	self defaultLevel
d136f6d4b7c5 bugfix if font is nil ca parents: 2364 diff changeset	573	"
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	574	!
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	575
2344 d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	576	delayedMenuIndicatorOffset
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	577	"returns an additional offset between the label and the
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	578	delayedMenu indication (i.e. the down-arrow icon)"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	579
2344 d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	580	^ 1 "2"
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	581	!
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	582
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	583	menuIndicatorOffset
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	584	"returns an additional offset between the label and the
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	585	delayedMenu indication (i.e. the down-arrow icon)"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	586
2344 d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	587	^ 1 "2"
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	588	!
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	589
1786 f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	590	mnemonicIdentifier
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	591	"returns the identifier each mnemonic starts with;
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	592	ex:
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	593	&File mnemonic := Cmdf
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	594	F&ile mnemonic := Cmdi
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	595	....."
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	596
1786 f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	597	^ 'Cmd'
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	598	!
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	599
450 ac72eb2ed895 initialize fix Claus Gittinger <cg@exept.de> parents: 441 diff changeset	600	updateStyleCache
2777 56bb352f6b91 * empty log message * Claus Gittinger <cg@exept.de> parents: 2772 diff changeset	601	"extract values from the styleSheet and cache them in class variables"
657 a8246e896fa3 class initialize routine completed tz parents: 653 diff changeset	602
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	603	<resource: #style (
93426020ceed * empty log message * ca parents: 2216 diff changeset	604	#'popup.borderWidth' #'popup.level'
93426020ceed * empty log message * ca parents: 2216 diff changeset	605	#'selection.disabledForegroundColor'
93426020ceed * empty log message * ca parents: 2216 diff changeset	606	#'pullDownMenu.foregroundColor' #'pullDownMenu.backgroundColor' #'pullDownMenu.level'
93426020ceed * empty log message * ca parents: 2216 diff changeset	607	#'menu.itemHorizontalSpace' #'menu.buttonItemHorizontalSpace' #'menu.buttonItemSpace'
2883 58f2f296254d defaults Claus Gittinger <cg@exept.de> parents: 2877 diff changeset	608	#'menu.itemSpace' #'menu.buttonItemVerticalSpace'
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	609	#'menu.buttonActiveLevel' #'menu.buttonPassiveLevel' #'menu.buttonEnteredLevel'
93426020ceed * empty log message * ca parents: 2216 diff changeset	610	#'menu.hilightLevel' #'menu.enteredLevel'
93426020ceed * empty log message * ca parents: 2216 diff changeset	611	#'menu.groupDividerSize' #'menu.itemMargin'
93426020ceed * empty log message * ca parents: 2216 diff changeset	612	#'menu.disabledEtchedForegroundColor' #'menu.hilightForegroundColor'
93426020ceed * empty log message * ca parents: 2216 diff changeset	613	#'menu.enteredBackgroundColor' #'menu.enteredForegroundColor'
93426020ceed * empty log message * ca parents: 2216 diff changeset	614	#'menu.disabledForegroundColor' #'menu.buttonEnteredBackgroundColor'
93426020ceed * empty log message * ca parents: 2216 diff changeset	615	#'menu.selectionFollowsMouse'
93426020ceed * empty log message * ca parents: 2216 diff changeset	616	#'button.disabledEtchedForegroundColor' #'button.disabledForegroundColor'
93426020ceed * empty log message * ca parents: 2216 diff changeset	617	#'button.activeBackgroundColor' #'button.backgroundColor' #'button.lightColor'
93426020ceed * empty log message * ca parents: 2216 diff changeset	618	#'button.enteredBackgroundColor' #'button.halfLightColor' #'button.halfShadowColor'
93426020ceed * empty log message * ca parents: 2216 diff changeset	619	#'button.activeLevel' #'button.passiveLevel' #'button.edgeStyle'
2752 1d1788de3393 more xp style Claus Gittinger <cg@exept.de> parents: 2737 diff changeset	620	#'menu.iconIndicationOn' #'menu.iconIndicationOff'
2754 e1099c448aa9 more xp style Claus Gittinger <cg@exept.de> parents: 2752 diff changeset	621	#'menu.iconIndicationOn.bitmapFile' #'menu.iconIndication.bitmapOffFile'
e1099c448aa9 more xp style Claus Gittinger <cg@exept.de> parents: 2752 diff changeset	622	#'menu.iconRadioOn' #'menu.iconRadioOff'
e1099c448aa9 more xp style Claus Gittinger <cg@exept.de> parents: 2752 diff changeset	623	#'menu.iconRadioOn.bitmapFile' #'menu.iconRadioOff.bitmapFile'
2755 f8035120da51 * empty log message * Claus Gittinger <cg@exept.de> parents: 2754 diff changeset	624	#'menu.iconDisabledIndicationOn' #'menu.iconDisabledIndicationOff'
f8035120da51 * empty log message * Claus Gittinger <cg@exept.de> parents: 2754 diff changeset	625	#'menu.iconDisabledIndicationOn.bitmapFile' #'menu.iconDisabledIndication.bitmapOffFile'
f8035120da51 * empty log message * Claus Gittinger <cg@exept.de> parents: 2754 diff changeset	626	#'menu.iconDisabledRadioOn' #'menu.iconDisabledRadioOff'
f8035120da51 * empty log message * Claus Gittinger <cg@exept.de> parents: 2754 diff changeset	627	#'menu.iconDisabledRadioOn.bitmapFile' #'menu.iconDisabledRadioOff.bitmapFile'
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	628	)>
93426020ceed * empty log message * ca parents: 2216 diff changeset	629
93426020ceed * empty log message * ca parents: 2216 diff changeset	630	\|styleSheet style var foregroundColor backgroundColor buttonPassiveBackgroundColor
2754 e1099c448aa9 more xp style Claus Gittinger <cg@exept.de> parents: 2752 diff changeset	631	buttonActiveLevel buttonPassiveLevel buttonEnteredLevel getBitmapOrFile\|
2607 5eecd27af4e4 * empty log message * ca parents: 2604 diff changeset	632
2611 9814b5547d63 bugfix: backgroundColor after loading new style ca parents: 2610 diff changeset	633	"clear DefaultBackgroundColor caused by accessing the #defaultBackgroundColor
9814b5547d63 bugfix: backgroundColor after loading new style ca parents: 2610 diff changeset	634	which returns the default cashed DefaultBackgroundColor
9814b5547d63 bugfix: backgroundColor after loading new style ca parents: 2610 diff changeset	635	"
9814b5547d63 bugfix: backgroundColor after loading new style ca parents: 2610 diff changeset	636	DefaultBackgroundColor := nil.
9814b5547d63 bugfix: backgroundColor after loading new style ca parents: 2610 diff changeset	637
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	638	MenuView updateStyleCache.
93426020ceed * empty log message * ca parents: 2216 diff changeset	639	SelectionInListView updateStyleCache.
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	640
2372 d136f6d4b7c5 bugfix if font is nil ca parents: 2364 diff changeset	641	styleSheet := StyleSheet.
d136f6d4b7c5 bugfix if font is nil ca parents: 2364 diff changeset	642	style := styleSheet name.
d136f6d4b7c5 bugfix if font is nil ca parents: 2364 diff changeset	643
2607 5eecd27af4e4 * empty log message * ca parents: 2604 diff changeset	644	DefaultFont := MenuView defaultFont.
2883 58f2f296254d defaults Claus Gittinger <cg@exept.de> parents: 2877 diff changeset	645	foregroundColor := DefaultForegroundColor := styleSheet colorAt:#'pullDownMenu.foregroundColor'
58f2f296254d defaults Claus Gittinger <cg@exept.de> parents: 2877 diff changeset	646	default:[styleSheet
58f2f296254d defaults Claus Gittinger <cg@exept.de> parents: 2877 diff changeset	647	colorAt:#'menu.foregroundColor'
58f2f296254d defaults Claus Gittinger <cg@exept.de> parents: 2877 diff changeset	648	default:Color black].
2609 b927f450c4c8 * empty log message * ca parents: 2607 diff changeset	649	backgroundColor := DefaultBackgroundColor := self defaultBackgroundColor.
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	650
93426020ceed * empty log message * ca parents: 2216 diff changeset	651	var := styleSheet colorAt:#'menu.hilightBackgroundColor'.
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	652	var isNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	653	style == #motif ifTrue:[ var := backgroundColor ]
93426020ceed * empty log message * ca parents: 2216 diff changeset	654	ifFalse:[ var := styleSheet is3D ifFalse:[foregroundColor] ifTrue:[backgroundColor] ]
93426020ceed * empty log message * ca parents: 2216 diff changeset	655	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	656	styleSheet at:#'menuPanel.activeBackgroundColor' put:var.
93426020ceed * empty log message * ca parents: 2216 diff changeset	657
93426020ceed * empty log message * ca parents: 2216 diff changeset	658	var := styleSheet colorAt:#'menu.disabledEtchedForegroundColor'.
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	659	var isNil ifTrue:[ var := styleSheet colorAt:#'button.disabledEtchedForegroundColor' ].
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	660	styleSheet at:#'menuPanel.disabledEtchedFgColor' put:var.
93426020ceed * empty log message * ca parents: 2216 diff changeset	661
93426020ceed * empty log message * ca parents: 2216 diff changeset	662	var := styleSheet colorAt:#'menu.disabledForegroundColor'.
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	663	var isNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	664	var := styleSheet colorAt:#'selection.disabledForegroundColor'.
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	665	var isNil ifTrue:[ var := styleSheet colorAt:#'button.disabledForegroundColor' default:Color darkGray ]
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	666	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	667	styleSheet at:#'menuPanel.disabledForegroundColor' put:var.
93426020ceed * empty log message * ca parents: 2216 diff changeset	668
93426020ceed * empty log message * ca parents: 2216 diff changeset	669	var := styleSheet colorAt:#'menu.hilightForegroundColor'.
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	670	var isNil ifTrue:[ var := styleSheet is3D ifTrue:[foregroundColor] ifFalse:[backgroundColor] ].
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	671	styleSheet at:#'menuPanel.activeForegroundColor' put:var.
93426020ceed * empty log message * ca parents: 2216 diff changeset	672
93426020ceed * empty log message * ca parents: 2216 diff changeset	673
93426020ceed * empty log message * ca parents: 2216 diff changeset	674	buttonActiveLevel := styleSheet at:#'menu.buttonActiveLevel' default:(styleSheet is3D ifTrue:[-2] ifFalse:[0]).
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	675	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	676	styleSheet at:#'menuPanel.buttonActiveLevel' put:buttonActiveLevel.
93426020ceed * empty log message * ca parents: 2216 diff changeset	677
93426020ceed * empty log message * ca parents: 2216 diff changeset	678	buttonPassiveLevel := styleSheet at:#'menu.buttonPassiveLevel'.
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	679	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	680	styleSheet at:#'menuPanel.buttonPassiveLevel' put:buttonPassiveLevel.
93426020ceed * empty log message * ca parents: 2216 diff changeset	681
93426020ceed * empty log message * ca parents: 2216 diff changeset	682	buttonEnteredLevel := styleSheet at:#'menu.buttonEnteredLevel' default:buttonPassiveLevel.
93426020ceed * empty log message * ca parents: 2216 diff changeset	683	styleSheet at:#'menuPanel.buttonEnteredLevel' put:buttonEnteredLevel.
93426020ceed * empty log message * ca parents: 2216 diff changeset	684
93426020ceed * empty log message * ca parents: 2216 diff changeset	685	var := (buttonActiveLevel abs max:(buttonPassiveLevel abs)) max:(buttonEnteredLevel abs).
93426020ceed * empty log message * ca parents: 2216 diff changeset	686	styleSheet at:#'menuPanel.maxAbsoluteButtonLevel' put:var.
93426020ceed * empty log message * ca parents: 2216 diff changeset	687
93426020ceed * empty log message * ca parents: 2216 diff changeset	688	buttonPassiveBackgroundColor := styleSheet at:#'button.backgroundColor'.
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	689	buttonPassiveBackgroundColor isNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	690	buttonPassiveBackgroundColor := (styleSheet at:'viewBackground') ? backgroundColor
93426020ceed * empty log message * ca parents: 2216 diff changeset	691	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	692	styleSheet at:#'menuPanel.buttonPassiveBackgroundColor' put:buttonPassiveBackgroundColor.
93426020ceed * empty log message * ca parents: 2216 diff changeset	693
93426020ceed * empty log message * ca parents: 2216 diff changeset	694	var := styleSheet at:#'button.lightColor'.
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	695	var isNil ifTrue:[ var := (buttonPassiveBackgroundColor averageColorIn:(0@0 corner:7@7)) lightened ].
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	696	styleSheet at:#'menuPanel.buttonLightColor' put:var.
93426020ceed * empty log message * ca parents: 2216 diff changeset	697
93426020ceed * empty log message * ca parents: 2216 diff changeset	698	var := styleSheet at:#'button.shadowColor'.
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	699	var isNil ifTrue:[ var := (buttonPassiveBackgroundColor averageColorIn:(0@0 corner:7@7)) darkened ].
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	700	styleSheet at:#'menuPanel.buttonShadowColor' put:var.
93426020ceed * empty log message * ca parents: 2216 diff changeset	701
93426020ceed * empty log message * ca parents: 2216 diff changeset	702	var := styleSheet colorAt:#'menu.buttonEnteredBackgroundColor'.
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	703	var isNil ifTrue:[ var := styleSheet colorAt:#'button.enteredBackgroundColor' default:buttonPassiveBackgroundColor ].
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	704	styleSheet at:#'menuPanel.buttonEnteredBackgroundColor' put:var.
93426020ceed * empty log message * ca parents: 2216 diff changeset	705
93426020ceed * empty log message * ca parents: 2216 diff changeset	706	Item updateStyleCache.
2607 5eecd27af4e4 * empty log message * ca parents: 2604 diff changeset	707
2754 e1099c448aa9 more xp style Claus Gittinger <cg@exept.de> parents: 2752 diff changeset	708	getBitmapOrFile := [:key :fileKey \|
e1099c448aa9 more xp style Claus Gittinger <cg@exept.de> parents: 2752 diff changeset	709	\|var\|
e1099c448aa9 more xp style Claus Gittinger <cg@exept.de> parents: 2752 diff changeset	710
e1099c448aa9 more xp style Claus Gittinger <cg@exept.de> parents: 2752 diff changeset	711	var := styleSheet at:key ifAbsent:nil.
e1099c448aa9 more xp style Claus Gittinger <cg@exept.de> parents: 2752 diff changeset	712	var isNil ifTrue:[
e1099c448aa9 more xp style Claus Gittinger <cg@exept.de> parents: 2752 diff changeset	713	var := styleSheet at:fileKey ifAbsent:nil.
2752 1d1788de3393 more xp style Claus Gittinger <cg@exept.de> parents: 2737 diff changeset	714	var notNil ifTrue:[
2754 e1099c448aa9 more xp style Claus Gittinger <cg@exept.de> parents: 2752 diff changeset	715	var := Smalltalk imageFromFileNamed:var forClass:self.
2752 1d1788de3393 more xp style Claus Gittinger <cg@exept.de> parents: 2737 diff changeset	716	].
1d1788de3393 more xp style Claus Gittinger <cg@exept.de> parents: 2737 diff changeset	717	].
2754 e1099c448aa9 more xp style Claus Gittinger <cg@exept.de> parents: 2752 diff changeset	718	var
e1099c448aa9 more xp style Claus Gittinger <cg@exept.de> parents: 2752 diff changeset	719	].
e1099c448aa9 more xp style Claus Gittinger <cg@exept.de> parents: 2752 diff changeset	720
2883 58f2f296254d defaults Claus Gittinger <cg@exept.de> parents: 2877 diff changeset	721	IconIndicationOn := getBitmapOrFile value:#'menu.iconIndicationOn' value:#'menu.iconIndicationOn.bitmapFile'.
58f2f296254d defaults Claus Gittinger <cg@exept.de> parents: 2877 diff changeset	722	IconIndicationOff := getBitmapOrFile value:#'menu.iconIndicationOff' value:#'menu.iconIndicationOff.bitmapFile'.
58f2f296254d defaults Claus Gittinger <cg@exept.de> parents: 2877 diff changeset	723	IconDisabledIndicationOn := getBitmapOrFile value:#'menu.iconDisabledIndicationOn' value:#'menu.iconDisabledIndicationOn.bitmapFile'.
58f2f296254d defaults Claus Gittinger <cg@exept.de> parents: 2877 diff changeset	724	IconDisabledIndicationOff := getBitmapOrFile value:#'menu.iconDisabledIndicationOff' value:#'menu.iconDisabledIndicationOff.bitmapFile'.
58f2f296254d defaults Claus Gittinger <cg@exept.de> parents: 2877 diff changeset	725
58f2f296254d defaults Claus Gittinger <cg@exept.de> parents: 2877 diff changeset	726	IconRadioOn := getBitmapOrFile value:#'menu.iconRadioOn' value:#'menu.iconRadioOn.bitmapFile'.
58f2f296254d defaults Claus Gittinger <cg@exept.de> parents: 2877 diff changeset	727	IconRadioOff := getBitmapOrFile value:#'menu.iconRadioOff' value:#'menu.iconRadioOff.bitmapFile'.
58f2f296254d defaults Claus Gittinger <cg@exept.de> parents: 2877 diff changeset	728	IconDisabledRadioOn := getBitmapOrFile value:#'menu.iconDisabledRadioOn' value:#'menu.iconDisabledRadioOn.bitmapFile'.
58f2f296254d defaults Claus Gittinger <cg@exept.de> parents: 2877 diff changeset	729	IconDisabledRadioOff := getBitmapOrFile value:#'menu.iconDisabledRadioOff' value:#'menu.iconDisabledRadioOff.bitmapFile'.
2752 1d1788de3393 more xp style Claus Gittinger <cg@exept.de> parents: 2737 diff changeset	730
2607 5eecd27af4e4 * empty log message * ca parents: 2604 diff changeset	731	"
5eecd27af4e4 * empty log message * ca parents: 2604 diff changeset	732	self updateStyleCache
5eecd27af4e4 * empty log message * ca parents: 2604 diff changeset	733	"
388 dce33f8bb806 intitial checkin ca parents: diff changeset	734	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	735
794 5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	736	!MenuPanel class methodsFor:'image registration'!
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	737
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	738	image:anImage onDevice:aDevice
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	Images := nil
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	741	"
2269 e250e3adfc56 registration of images ca parents: 2255 diff changeset	742	\|deviceImages\|
794 5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	743
1156 6fa33dc93509 fix to avoid repeated image>>onDevice Claus Gittinger <cg@exept.de> parents: 1151 diff changeset	744	anImage device == aDevice ifTrue:[
2269 e250e3adfc56 registration of images ca parents: 2255 diff changeset	745	^ anImage
1853 399e2eac3b99 Use WeakIdentityDictionaries to cache images per Workstation. Stefan Vogel <sv@exept.de> parents: 1841 diff changeset	746	].
399e2eac3b99 Use WeakIdentityDictionaries to cache images per Workstation. Stefan Vogel <sv@exept.de> parents: 1841 diff changeset	747
399e2eac3b99 Use WeakIdentityDictionaries to cache images per Workstation. Stefan Vogel <sv@exept.de> parents: 1841 diff changeset	748	Images isNil ifTrue:[ Images := WeakIdentityDictionary new ].
794 5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	749
1097 8a2f6c5ad1a9 * empty log message * Claus Gittinger <cg@exept.de> parents: 1096 diff changeset	750	(deviceImages := Images at:aDevice ifAbsent:nil) isNil ifTrue:[
2269 e250e3adfc56 registration of images ca parents: 2255 diff changeset	751	Images at:aDevice put:(deviceImages := Dictionary new)
e250e3adfc56 registration of images ca parents: 2255 diff changeset	752	].
e250e3adfc56 registration of images ca parents: 2255 diff changeset	753
e250e3adfc56 registration of images ca parents: 2255 diff changeset	754	^ deviceImages at:anImage ifAbsentPut:[ \|image\|
e250e3adfc56 registration of images ca parents: 2255 diff changeset	755	image := anImage copy onDevice:aDevice.
e250e3adfc56 registration of images ca parents: 2255 diff changeset	756	image clearMaskedPixels.
e250e3adfc56 registration of images ca parents: 2255 diff changeset	757	deviceImages at:anImage put:image.
e250e3adfc56 registration of images ca parents: 2255 diff changeset	758	image
e250e3adfc56 registration of images ca parents: 2255 diff changeset	759	].
794 5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	760	!
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	761
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	762	lightenedImage:anImage onDevice:aDevice
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	763	"
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	764	LigthenedImages := nil
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	765	"
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	766	\|deviceImages image colorMap\|
794 5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	767
1853 399e2eac3b99 Use WeakIdentityDictionaries to cache images per Workstation. Stefan Vogel <sv@exept.de> parents: 1841 diff changeset	768	LigthenedImages isNil ifTrue:[ LigthenedImages := WeakIdentityDictionary new ].
794 5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	769
1097 8a2f6c5ad1a9 * empty log message * Claus Gittinger <cg@exept.de> parents: 1096 diff changeset	770	(deviceImages := LigthenedImages at:aDevice ifAbsent:nil) isNil ifTrue:[
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	771	LigthenedImages at:aDevice put:(deviceImages := Dictionary new)
1097 8a2f6c5ad1a9 * empty log message * Claus Gittinger <cg@exept.de> parents: 1096 diff changeset	772	].
8a2f6c5ad1a9 * empty log message * Claus Gittinger <cg@exept.de> parents: 1096 diff changeset	773
8a2f6c5ad1a9 * empty log message * Claus Gittinger <cg@exept.de> parents: 1096 diff changeset	774	(image := deviceImages at:anImage ifAbsent:nil) notNil ifTrue:[
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	775	^ image
975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	776	].
975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	777
975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	778	colorMap := anImage perform:#colorMap ifNotUnderstood:nil.
975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	779
975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	780	colorMap notNil ifTrue:[
975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	781	image := anImage copy lightened onDevice:aDevice.
975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	782	image clearMaskedPixels.
794 5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	783	] ifFalse:[
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	784	image := self image:anImage onDevice:aDevice
794 5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	785	].
1097 8a2f6c5ad1a9 * empty log message * Claus Gittinger <cg@exept.de> parents: 1096 diff changeset	786	deviceImages at:anImage put:image.
794 5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	787	^ image
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	788	! !
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	789
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	790	!MenuPanel class methodsFor:'private'!
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	791
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	792	subMenu:aSubMenu
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	793	"create a submenu; can be redifined in derived classes"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	794
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	795	^ (self new) menu:aSubMenu.
1063 08b7ca464437 dont show accelerators for horizontal layouts Claus Gittinger <cg@exept.de> parents: 1054 diff changeset	796
08b7ca464437 dont show accelerators for horizontal layouts Claus Gittinger <cg@exept.de> parents: 1054 diff changeset	797	"Modified: / 8.8.1998 / 02:13:11 / cg"
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	798	! !
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	799
1808 e8628b502a49 methodCategory change Claus Gittinger <cg@exept.de> parents: 1806 diff changeset	800	!MenuPanel methodsFor:'accepting'!
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	801
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	802	accept
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	803	"accept current selected item"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	804
1670 dbc8a05605e0 add new behavior: hideMenuOnActivated ca parents: 1666 diff changeset	805	^ self acceptItem:(self selection) inMenu:self
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	806	!
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	807
1836 89a1b938c09e fixed returned value from non-performing menu Claus Gittinger <cg@exept.de> parents: 1832 diff changeset	808	accept:anItem
2326 a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	809	"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	810
3142 4f1c952048c5 focusView handling ca parents: 3133 diff changeset	811	\|item tgState itemIdx recv panel masterGroup winGrp acceptAction focusView\|
1630 01dc20096011 grabbing cleaned up; ca parents: 1613 diff changeset	812
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	813	self superMenu notNil ifTrue:[
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	814	^ self topMenu accept:anItem
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	815	].
3142 4f1c952048c5 focusView handling ca parents: 3133 diff changeset	816	prevFocusView ~~ self ifTrue:[
4f1c952048c5 focusView handling ca parents: 3133 diff changeset	817	focusView := prevFocusView.
4f1c952048c5 focusView handling ca parents: 3133 diff changeset	818	].
4f1c952048c5 focusView handling ca parents: 3133 diff changeset	819	prevFocusView := nil.
4f1c952048c5 focusView handling ca parents: 3133 diff changeset	820
2199 61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	821	self openDelayed:nil.
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	822	self scrollActivity stop.
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	823	self selection:nil.
420 b6f9fff472ef fixes ca parents: 417 diff changeset	824
b6f9fff472ef fixes ca parents: 417 diff changeset	825	(anItem notNil and:[anItem canAccept]) ifTrue:[
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	826	tgState := anItem toggleIndication.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	827	panel := anItem menuPanel.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	828	itemIdx := panel findFirst:[:el\| el == anItem ].
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	829	item := anItem.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	830	recv := panel receiver.
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	831	].
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	832	self doUngrab:true.
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	833
510 8f77b9382066 bug fix with redraw ca parents: 505 diff changeset	834	self isPopUpView ifFalse:[
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	835	self do:[:el\| el updateIndicators].
3143 645efaba917a bugfix: check for notNil windowGroup ca parents: 3142 diff changeset	836	(winGrp := self windowGroup) notNil ifTrue:[
3142 4f1c952048c5 focusView handling ca parents: 3133 diff changeset	837	winGrp processExposeEvents.
4f1c952048c5 focusView handling ca parents: 3133 diff changeset	838	].
524 d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	839	] ifTrue:[
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	840	self unmap.
2712 8a5f94b10261 late expose event bug fixed ca parents: 2696 diff changeset	841	self device sync. "/ round trip - all expose events are now received
3143 645efaba917a bugfix: check for notNil windowGroup ca parents: 3142 diff changeset	842
645efaba917a bugfix: check for notNil windowGroup ca parents: 3142 diff changeset	843	(winGrp := self windowGroup) notNil ifTrue:[
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	844	"/ give expose event a chance to arrive
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	845	[shown and:[realized]] whileTrue:[
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	846	winGrp processExposeEventsFor:self
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	847	].
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	848	masterGroup := winGrp previousGroup.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	849	].
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	850	"/ cg: disabled-not needed - try PopUpList with destroy...
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	851	"/ self destroy.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	852	masterGroup notNil ifTrue:[masterGroup processExposeEvents].
524 d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	853	].
1710 bb9bb814e7c4 showBusy code moved Claus Gittinger <cg@exept.de> parents: 1709 diff changeset	854
3142 4f1c952048c5 focusView handling ca parents: 3133 diff changeset	855	acceptAction := [ self accept:item index:itemIdx toggle:tgState receiver:recv.
4f1c952048c5 focusView handling ca parents: 3133 diff changeset	856
4f1c952048c5 focusView handling ca parents: 3133 diff changeset	857	focusView notNil ifTrue:[
3143 645efaba917a bugfix: check for notNil windowGroup ca parents: 3142 diff changeset	858	(winGrp := self windowGroup) notNil ifTrue:[
645efaba917a bugfix: check for notNil windowGroup ca parents: 3142 diff changeset	859	self windowGroup focusView:focusView.
645efaba917a bugfix: check for notNil windowGroup ca parents: 3142 diff changeset	860	].
3142 4f1c952048c5 focusView handling ca parents: 3133 diff changeset	861	].
2826 7294e112f2c2 * empty log message * Claus Gittinger <cg@exept.de> parents: 2817 diff changeset	862	].
2050 ef5517d7a2d0 do not destroy myself after accepting (for PopUpList) Claus Gittinger <cg@exept.de> parents: 2048 diff changeset	863
1710 bb9bb814e7c4 showBusy code moved Claus Gittinger <cg@exept.de> parents: 1709 diff changeset	864	(item notNil
bb9bb814e7c4 showBusy code moved Claus Gittinger <cg@exept.de> parents: 1709 diff changeset	865	and:[item showBusyCursorWhilePerforming
bb9bb814e7c4 showBusy code moved Claus Gittinger <cg@exept.de> parents: 1709 diff changeset	866	and:[(winGrp := (masterGroup ? (self windowGroup))) notNil]])
bb9bb814e7c4 showBusy code moved Claus Gittinger <cg@exept.de> parents: 1709 diff changeset	867	ifTrue:[
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	868	winGrp withWaitCursorDo:acceptAction
2132 fd5b29a20fe1 * empty log message * Claus Gittinger <cg@exept.de> parents: 2125 diff changeset	869	] ifFalse:[acceptAction value].
524 d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	870
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	871	self isPopUpView ifTrue:[
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	872	self menuAdornmentAt:#item put:item.
524 d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	873	].
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	874	^ item.
524 d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	875
2050 ef5517d7a2d0 do not destroy myself after accepting (for PopUpList) Claus Gittinger <cg@exept.de> parents: 2048 diff changeset	876	"Modified: / 15.11.2001 / 17:05:40 / cg"
524 d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	877	!
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	878
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	879	accept:anItem index:anIndex toggle:aState receiver:aReceiver
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	880	"accept an item"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	881
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	882	\|value argument numArgs isValueModel rec args arg2
1697 345d3664e10c added 'showBusyCursorWhileActive' attribute Claus Gittinger <cg@exept.de> parents: 1695 diff changeset	883	app master fallBack\|
524 d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	884
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	885	anItem isNil ifTrue:[
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	886	self menuAdornmentAt:#hasPerformed put:true.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	887	^ nil
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	888	].
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	889
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	890	isValueModel := aReceiver isValueModel.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	891
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	892	self menuAdornmentAt:#hasPerformed put:isValueModel.
524 d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	893
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	894	(value := anItem value) isNil ifTrue:[
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	895	^ anIndex
524 d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	896	].
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	897
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	898	(argument := anItem argument) isNil ifTrue:[
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	899	argument := aState ? anItem
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	900	].
524 d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	901
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	902	value isSymbol ifFalse:[
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	903	"/ a valueHolder or block
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	904	(value respondsTo:#valueWithArguments:) ifFalse:[
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	905	^ value
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	906	].
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	907
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	908	numArgs := value perform:#numArgs ifNotUnderstood:0.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	909
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	910	numArgs == 0 ifTrue:[
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	911	args := nil
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	912	] ifFalse:[
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	913	numArgs == 1 ifTrue:[
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	914	args := Array with:argument
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	915	] ifFalse:[
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	916	args := Array with:argument with:self
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	value valueWithArguments:args.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	921
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	922	self menuAdornmentAt:#hasPerformed put:true.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	923	^ anIndex
524 d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	924	].
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	925
2331 ebd240410703 can now specify if menu action is to be performed by ca parents: 2326 diff changeset	926	anItem sendToOriginator ifTrue:[
2473 6ace3a7234b0 care for nil originator Claus Gittinger <cg@exept.de> parents: 2471 diff changeset	927	rec := self originator.
6ace3a7234b0 care for nil originator Claus Gittinger <cg@exept.de> parents: 2471 diff changeset	928	rec isNil ifTrue:[
2844 e813c02733ea * empty log message * Claus Gittinger <cg@exept.de> parents: 2833 diff changeset	929	self error:'no originating widget (no target for message)' mayProceed:true.
2473 6ace3a7234b0 care for nil originator Claus Gittinger <cg@exept.de> parents: 2471 diff changeset	930	].
2331 ebd240410703 can now specify if menu action is to be performed by ca parents: 2326 diff changeset	931	] ifFalse:[
ebd240410703 can now specify if menu action is to be performed by ca parents: 2326 diff changeset	932	rec := aReceiver
ebd240410703 can now specify if menu action is to be performed by ca parents: 2326 diff changeset	933	].
ebd240410703 can now specify if menu action is to be performed by ca parents: 2326 diff changeset	934
ebd240410703 can now specify if menu action is to be performed by ca parents: 2326 diff changeset	935	rec isNil ifTrue:[
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	936	^ value
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	937	].
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	938
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	939	isValueModel ifTrue:[
2331 ebd240410703 can now specify if menu action is to be performed by ca parents: 2326 diff changeset	940	rec value:value
465 67a0f3dd503a in case of performing a selector '0' is returned ca parents: 464 diff changeset	941	] ifFalse:[
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	942	arg2 := self.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	943
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	944	"/ support for ST80 style applications
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	945	"/ (expecting the message to go to the application
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	946	"/ if not understood by the view)
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	947	"/ These expect the controller to be passed as argument.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	948	"/ sigh.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	949
2331 ebd240410703 can now specify if menu action is to be performed by ca parents: 2326 diff changeset	950	(rec isView
ebd240410703 can now specify if menu action is to be performed by ca parents: 2326 diff changeset	951	and:[(rec respondsTo:value) not
ebd240410703 can now specify if menu action is to be performed by ca parents: 2326 diff changeset	952	and:[(app := rec application) ~~ rec
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	953	and:[app notNil]]]) ifTrue:[
2331 ebd240410703 can now specify if menu action is to be performed by ca parents: 2326 diff changeset	954	arg2 := rec controller. "/ the Views controller
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	955	rec := app.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	956	].
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	957
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	958	(numArgs := value numArgs) == 0 ifTrue:[
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	959	args := nil
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	960	] ifFalse:[
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	961	numArgs == 1 ifTrue:[
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	962	args := Array with:argument
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	963	] ifFalse:[
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	964	args := Array with:argument with:arg2
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	965	]
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	966	].
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	967
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	968	fallBack :=
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	969	[
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	970	"/ mhmh - the receiver did not respond to that message;
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	971	"/ if there is a master-application, try that one
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	972	"/ (recursive)
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	973	master := rec perform:#masterApplication ifNotUnderstood:nil.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	974	master notNil ifTrue:[
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	975	rec := master.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	976	rec perform:value withArguments:args ifNotUnderstood:fallBack
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	977	] ifFalse:[
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	978	self
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	979	error:'unimplemented (or error in) menu message: ' , value
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	980	mayProceed:true
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	981	].
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	982	].
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	983
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	984	rec perform:value withArguments:args ifNotUnderstood:fallBack.
420 b6f9fff472ef fixes ca parents: 417 diff changeset	985	].
524 d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	986	self menuAdornmentAt:#hasPerformed put:true.
1270 0ae582fd7294 send menuMessage to application, Claus Gittinger <cg@exept.de> parents: 1267 diff changeset	987	^ value
1679 af40842718f6 when accepting, and the application does not respond to that Claus Gittinger <cg@exept.de> parents: 1670 diff changeset	988
1719 ba7ebb56e6fd recursively try masterApps when performing Claus Gittinger <cg@exept.de> parents: 1715 diff changeset	989	"Modified: / 19.2.2000 / 11:08:22 / cg"
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	990	!
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	991
1670 dbc8a05605e0 add new behavior: hideMenuOnActivated ca parents: 1666 diff changeset	992	acceptItem:anItem inMenu:aMenu
2199 61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	993	\|tgState topMenu\|
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	994
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	995	topMenu := self topMenu.
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	996	topMenu openDelayed:nil.
1670 dbc8a05605e0 add new behavior: hideMenuOnActivated ca parents: 1666 diff changeset	997
1841 5d01716cc37c implement: triggerOnDown ca parents: 1836 diff changeset	998	(anItem isNil or:[anItem hideMenuOnActivated]) ifTrue:[
2934 b4ec1cbb3302 * empty log message * Claus Gittinger <cg@exept.de> parents: 2926 diff changeset	999	topMenu accept:anItem
1670 dbc8a05605e0 add new behavior: hideMenuOnActivated ca parents: 1666 diff changeset	1000	] ifFalse:[
2934 b4ec1cbb3302 * empty log message * Claus Gittinger <cg@exept.de> parents: 2926 diff changeset	1001	anItem canAccept ifTrue:[
b4ec1cbb3302 * empty log message * Claus Gittinger <cg@exept.de> parents: 2926 diff changeset	1002	tgState := anItem toggleIndication.
b4ec1cbb3302 * empty log message * Claus Gittinger <cg@exept.de> parents: 2926 diff changeset	1003
b4ec1cbb3302 * empty log message * Claus Gittinger <cg@exept.de> parents: 2926 diff changeset	1004	self accept:anItem
b4ec1cbb3302 * empty log message * Claus Gittinger <cg@exept.de> parents: 2926 diff changeset	1005	index:(aMenu selectionIndex)
b4ec1cbb3302 * empty log message * Claus Gittinger <cg@exept.de> parents: 2926 diff changeset	1006	toggle:tgState
b4ec1cbb3302 * empty log message * Claus Gittinger <cg@exept.de> parents: 2926 diff changeset	1007	receiver:(aMenu receiver).
b4ec1cbb3302 * empty log message * Claus Gittinger <cg@exept.de> parents: 2926 diff changeset	1008
b4ec1cbb3302 * empty log message * Claus Gittinger <cg@exept.de> parents: 2926 diff changeset	1009	aMenu do:[:el\| el updateIndicators].
b4ec1cbb3302 * empty log message * Claus Gittinger <cg@exept.de> parents: 2926 diff changeset	1010	anItem hideMenuOnActivated ifFalse:[
b4ec1cbb3302 * empty log message * Claus Gittinger <cg@exept.de> parents: 2926 diff changeset	1011	aMenu invalidate
b4ec1cbb3302 * empty log message * Claus Gittinger <cg@exept.de> parents: 2926 diff changeset	1012	].
b4ec1cbb3302 * empty log message * Claus Gittinger <cg@exept.de> parents: 2926 diff changeset	1013	]
1670 dbc8a05605e0 add new behavior: hideMenuOnActivated ca parents: 1666 diff changeset	1014	]
dbc8a05605e0 add new behavior: hideMenuOnActivated ca parents: 1666 diff changeset	1015	!
dbc8a05605e0 add new behavior: hideMenuOnActivated ca parents: 1666 diff changeset	1016
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	1017	lastItemAccepted
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1018	"returns last item selected or nil"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1019
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1020	^ self topMenu menuAdornmentAt:#item
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	1021	!
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	1022
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	1023	lastValueAccepted
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1024	"returns last value accepted or nil"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1025
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1026	^ self lastItemAccepted value
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	1027	! !
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	1028
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1029	!MenuPanel methodsFor:'accessing'!
dce33f8bb806 intitial checkin ca parents: diff changeset	1030
dce33f8bb806 intitial checkin ca parents: diff changeset	1031	accessCharacterPositionAt:stringOrNumber
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1032	"get the access character position for a textLabel"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1033
2059 c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	1034	^ self itemAt:stringOrNumber do:[:el\| el accessCharacterPosition ]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1035	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1036
dce33f8bb806 intitial checkin ca parents: diff changeset	1037	accessCharacterPositionAt:stringOrNumber put:anIndexOrNil
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1038	"get the access character position for a textLabel"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1039
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1040	self itemAt:stringOrNumber do:[:el\| el accessCharacterPosition:anIndexOrNil ]
dce33f8bb806 intitial checkin ca parents: diff changeset	1041	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1042
dce33f8bb806 intitial checkin ca parents: diff changeset	1043	accessCharacterPositions
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1044	"returns a collection of accessCharacterPositions or nil"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1045
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1046	^ self collect:[:anItem\| anItem accessCharacterPosition ]
dce33f8bb806 intitial checkin ca parents: diff changeset	1047	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1048
dce33f8bb806 intitial checkin ca parents: diff changeset	1049	accessCharacterPositions:something
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1050	"define accessCharacterPositions for each item"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1051
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1052	self onEachPerform:#accessCharacterPosition: withArgList:something
dce33f8bb806 intitial checkin ca parents: diff changeset	1053	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1054
dce33f8bb806 intitial checkin ca parents: diff changeset	1055	args
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1056	"returns a collection of arguments or nil"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1057
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1058	^ self collect:[:anItem\| anItem argument ]
dce33f8bb806 intitial checkin ca parents: diff changeset	1059	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1060
dce33f8bb806 intitial checkin ca parents: diff changeset	1061	args:something
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1062	"define arguments for each item"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1063
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1064	self onEachPerform:#argument: withArgList:something
dce33f8bb806 intitial checkin ca parents: diff changeset	1065	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1066
dce33f8bb806 intitial checkin ca parents: diff changeset	1067	argsAt:stringOrNumber
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1068	"gets the argument of an item or nil"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1069
2059 c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	1070	^ self itemAt:stringOrNumber do:[:el\| el argument ]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1071	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1072
dce33f8bb806 intitial checkin ca parents: diff changeset	1073	argsAt:stringOrNumber put:anArgument
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1074	"sets the argument of an item"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1075
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1076	self itemAt:stringOrNumber do:[:el\| el argument:anArgument ]
dce33f8bb806 intitial checkin ca parents: diff changeset	1077	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1078
1081 fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1079	enteredItem
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1080	"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	1081	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	1082
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1083	^ enteredItem
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1084
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1085	"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	1086	!
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1087
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1088	groupSizes
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1089	"gets collection of group sizes"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1090
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1091	^ groupSizes
dce33f8bb806 intitial checkin ca parents: diff changeset	1092	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1093
dce33f8bb806 intitial checkin ca parents: diff changeset	1094	groupSizes:aGroupSizes
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1095	"sets collection of group sizes"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1096
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1097	aGroupSizes = groupSizes ifFalse:[
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1098	groupSizes := aGroupSizes copy.
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1099	self mustRearrange.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1100	].
dce33f8bb806 intitial checkin ca parents: diff changeset	1101	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1102
2731 7382424af8d9 Don't carsh when typing SPACE in PopUpList Stefan Vogel <sv@exept.de> parents: 2729 diff changeset	1103	hideOnRelease
7382424af8d9 Don't carsh when typing SPACE in PopUpList Stefan Vogel <sv@exept.de> parents: 2729 diff changeset	1104	^ hideOnRelease
7382424af8d9 Don't carsh when typing SPACE in PopUpList Stefan Vogel <sv@exept.de> parents: 2729 diff changeset	1105	!
7382424af8d9 Don't carsh when typing SPACE in PopUpList Stefan Vogel <sv@exept.de> parents: 2729 diff changeset	1106
7382424af8d9 Don't carsh when typing SPACE in PopUpList Stefan Vogel <sv@exept.de> parents: 2729 diff changeset	1107	hideOnRelease:something
7382424af8d9 Don't carsh when typing SPACE in PopUpList Stefan Vogel <sv@exept.de> parents: 2729 diff changeset	1108	hideOnRelease := something.
7382424af8d9 Don't carsh when typing SPACE in PopUpList Stefan Vogel <sv@exept.de> parents: 2729 diff changeset	1109	!
7382424af8d9 Don't carsh when typing SPACE in PopUpList Stefan Vogel <sv@exept.de> parents: 2729 diff changeset	1110
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1111	labelAt:stringOrNumber
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1112	"gets the label of an item or nil"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1113
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1114	^ self itemAt:stringOrNumber do:[:el\| el label ]
dce33f8bb806 intitial checkin ca parents: diff changeset	1115	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1116
dce33f8bb806 intitial checkin ca parents: diff changeset	1117	labelAt:stringOrNumber put:aLabel
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1118	"sets the label of an item"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1119
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1120	self itemAt:stringOrNumber do:[:el\| el label:aLabel ]
dce33f8bb806 intitial checkin ca parents: diff changeset	1121	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1122
dce33f8bb806 intitial checkin ca parents: diff changeset	1123	labels
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1124	"returns a collection of labels's or nil"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1125
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1126	^ self collect:[:anItem\| anItem label ]
dce33f8bb806 intitial checkin ca parents: diff changeset	1127	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1128
dce33f8bb806 intitial checkin ca parents: diff changeset	1129	labels:labels
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1130	"define labels for each item"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1131
2118 89d02ebc5b65 optimize #labels: and #fetchImages in Item. discard block ca parents: 2113 diff changeset	1132	\|size\|
89d02ebc5b65 optimize #labels: and #fetchImages in Item. discard block ca parents: 2113 diff changeset	1133
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1134	self disabledRedrawDo:[
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1135	self removeAll.
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1136	size := labels size.
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1137
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1138	size > 0 ifTrue:[
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1139	items := OrderedCollection new:size.
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1140	labels do:[:aLabel\| items add:(Item in:self label:aLabel) ]
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1141	]
2118 89d02ebc5b65 optimize #labels: and #fetchImages in Item. discard block ca parents: 2113 diff changeset	1142	].
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1143	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1144
1999 56a97236e72d * empty log message * Claus Gittinger <cg@exept.de> parents: 1998 diff changeset	1145	menuPerformer:anObject
56a97236e72d * empty log message * Claus Gittinger <cg@exept.de> parents: 1998 diff changeset	1146	"set the menu-receiver. Thats the one who gets the messages ( both from myself and
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1147	from all submenus no specific receiver is defined )."
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1148
1999 56a97236e72d * empty log message * Claus Gittinger <cg@exept.de> parents: 1998 diff changeset	1149	^ self receiver:anObject
56a97236e72d * empty log message * Claus Gittinger <cg@exept.de> parents: 1998 diff changeset	1150	!
56a97236e72d * empty log message * Claus Gittinger <cg@exept.de> parents: 1998 diff changeset	1151
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1152	nameKeyAt:stringOrNumber
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1153	"gets the nameKey of an item or nil"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1154
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1155	^ self itemAt:stringOrNumber do:[:el\| el nameKey ]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1156	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1157
dce33f8bb806 intitial checkin ca parents: diff changeset	1158	nameKeyAt:stringOrNumber put:aNameKey
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1159	"sets the nameKey of an item"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1160
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1161	self itemAt:stringOrNumber do:[:el\| el nameKey:aNameKey ]
dce33f8bb806 intitial checkin ca parents: diff changeset	1162	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1163
dce33f8bb806 intitial checkin ca parents: diff changeset	1164	nameKeys
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1165	"returns a collection of nameKeyss or nil"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1166
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1167	^ self collect:[:anItem\| anItem nameKey ]
dce33f8bb806 intitial checkin ca parents: diff changeset	1168	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1169
dce33f8bb806 intitial checkin ca parents: diff changeset	1170	nameKeys:something
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1171	"define nameKeys for each item"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1172
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1173	self onEachPerform:#nameKey: withArgList:something
dce33f8bb806 intitial checkin ca parents: diff changeset	1174	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1175
dce33f8bb806 intitial checkin ca parents: diff changeset	1176	numberOfItems
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1177	"gets number of items"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1178
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1179	^ items size
dce33f8bb806 intitial checkin ca parents: diff changeset	1180	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1181
2331 ebd240410703 can now specify if menu action is to be performed by ca parents: 2326 diff changeset	1182	originator
ebd240410703 can now specify if menu action is to be performed by ca parents: 2326 diff changeset	1183	originator notNil ifTrue:[^ originator].
ebd240410703 can now specify if menu action is to be performed by ca parents: 2326 diff changeset	1184	superMenu notNil ifTrue:[
ebd240410703 can now specify if menu action is to be performed by ca parents: 2326 diff changeset	1185	^ superMenu originator
ebd240410703 can now specify if menu action is to be performed by ca parents: 2326 diff changeset	1186	].
ebd240410703 can now specify if menu action is to be performed by ca parents: 2326 diff changeset	1187	^ nil
ebd240410703 can now specify if menu action is to be performed by ca parents: 2326 diff changeset	1188	!
ebd240410703 can now specify if menu action is to be performed by ca parents: 2326 diff changeset	1189
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1190	receiver
dce33f8bb806 intitial checkin ca parents: diff changeset	1191	"get the menu-receiver. Thats the one who gets the messages ( both from myself and
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1192	from all submenus no specific receiver is defined )."
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1193
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	1194	(receiver isNil and:[superMenu notNil]) ifTrue:[
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1195	^ superMenu receiver
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1196	].
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	1197	^ receiver
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1198	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1199
dce33f8bb806 intitial checkin ca parents: diff changeset	1200	receiver:anObject
dce33f8bb806 intitial checkin ca parents: diff changeset	1201	"set the menu-receiver. Thats the one who gets the messages ( both from myself and
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1202	from all submenus no specific receiver is defined )."
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1203
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	1204	receiver := anObject
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1205	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1206
dce33f8bb806 intitial checkin ca parents: diff changeset	1207	shortcutKeyAt:stringOrNumber
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1208	"gets the shortCutKey of an item or nil"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1209
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1210	^ self itemAt:stringOrNumber do:[:el\| el shortcutKey ]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1211	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1212
dce33f8bb806 intitial checkin ca parents: diff changeset	1213	shortcutKeyAt:stringOrNumber put:aKey
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1214	"sets the shortCutKey of an item"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1215
1889 43516e4588ce give warning messages for unimplemented menu-aspects Claus Gittinger <cg@exept.de> parents: 1878 diff changeset	1216	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	1217	!
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1218
dce33f8bb806 intitial checkin ca parents: diff changeset	1219	shortcutKeys
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1220	"returns a collection of shortcutKeys or nil"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1221
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1222	^ self collect:[:anItem\| anItem shortcutKey ]
dce33f8bb806 intitial checkin ca parents: diff changeset	1223	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1224
dce33f8bb806 intitial checkin ca parents: diff changeset	1225	shortcutKeys:something
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1226	"define shortcutKeys for each item"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1227
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1228	self onEachPerform:#shortcutKey: withArgList:something
dce33f8bb806 intitial checkin ca parents: diff changeset	1229	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1230
dce33f8bb806 intitial checkin ca parents: diff changeset	1231	valueAt:stringOrNumber
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1232	"gets value of an item; a block, valueHolder, ..."
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1233
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1234	^ self itemAt:stringOrNumber do:[:el\| el value ]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1235	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1236
dce33f8bb806 intitial checkin ca parents: diff changeset	1237	valueAt:stringOrNumber put:someThing
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1238	"sets value of an item; a block, valueHolder, ..."
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1239
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1240	self itemAt:stringOrNumber do:[:el\| el value:someThing ]
dce33f8bb806 intitial checkin ca parents: diff changeset	1241	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1242
dce33f8bb806 intitial checkin ca parents: diff changeset	1243	values:something
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1244	"define values for each item"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1245
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1246	self onEachPerform:#value: withArgList:something
dce33f8bb806 intitial checkin ca parents: diff changeset	1247	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	1248
1679 af40842718f6 when accepting, and the application does not respond to that Claus Gittinger <cg@exept.de> parents: 1670 diff changeset	1249	!MenuPanel methodsFor:'accessing-behavior'!
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1250
dce33f8bb806 intitial checkin ca parents: diff changeset	1251	disableAll
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1252	"disable all items; not the menu in case of enabled"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1253
498 b4c341497621 bug fixes: ca parents: 475 diff changeset	1254	self do:[:anItem\| anItem enabled:false]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1255	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1256
dce33f8bb806 intitial checkin ca parents: diff changeset	1257	disableAll:collectionOfIndicesOrNames
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1258	"disable an collection of items"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1259
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1260	collectionOfIndicesOrNames do:[:entry\| self enabledAt:entry put:false ].
dce33f8bb806 intitial checkin ca parents: diff changeset	1261	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1262
dce33f8bb806 intitial checkin ca parents: diff changeset	1263	enableAll
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1264	"enable all items; not the menu in case of disabled"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1265
498 b4c341497621 bug fixes: ca parents: 475 diff changeset	1266	self do:[:anItem\| anItem enabled:true]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1267	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1268
dce33f8bb806 intitial checkin ca parents: diff changeset	1269	enableAll:collectionOfIndicesOrNames
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1270	"enable an collection of items"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1271
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1272	collectionOfIndicesOrNames do:[:entry\| self enabledAt:entry put:true ].
dce33f8bb806 intitial checkin ca parents: diff changeset	1273	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1274
dce33f8bb806 intitial checkin ca parents: diff changeset	1275	enabled
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1276	"returns enabled state"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1277
498 b4c341497621 bug fixes: ca parents: 475 diff changeset	1278	^ enabled
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1279	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1280
dce33f8bb806 intitial checkin ca parents: diff changeset	1281	enabled:aState
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1282	"change enabled state of menu"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1283
545 d01d14358b07 * empty log message * Claus Gittinger <cg@exept.de> parents: 524 diff changeset	1284	\|state\|
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	1285
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	1286	state := aState ? true.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1287
1690 38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	1288	enabled ~~ state ifTrue:[
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1289	enabled := state.
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1290	self invalidate.
498 b4c341497621 bug fixes: ca parents: 475 diff changeset	1291	].
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1292	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1293
dce33f8bb806 intitial checkin ca parents: diff changeset	1294	enabledAt:stringOrNumber
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1295	"gets the enabled state of an item or false"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1296
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1297	^ self itemAt:stringOrNumber do:[:el\| el enabled ] ifAbsent:false
dce33f8bb806 intitial checkin ca parents: diff changeset	1298	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1299
dce33f8bb806 intitial checkin ca parents: diff changeset	1300	enabledAt:stringOrNumber put:aState
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1301	"sets the enabled state of an item"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1302
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1303	self itemAt:stringOrNumber do:[:el\| el enabled:aState ]
dce33f8bb806 intitial checkin ca parents: diff changeset	1304	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1305
2731 7382424af8d9 Don't carsh when typing SPACE in PopUpList Stefan Vogel <sv@exept.de> parents: 2729 diff changeset	1306	exclusivePointer:aBoolean
7382424af8d9 Don't carsh when typing SPACE in PopUpList Stefan Vogel <sv@exept.de> parents: 2729 diff changeset	1307	"Do nothing here. Compatibility with PopUpListController"
7382424af8d9 Don't carsh when typing SPACE in PopUpList Stefan Vogel <sv@exept.de> parents: 2729 diff changeset	1308
7382424af8d9 Don't carsh when typing SPACE in PopUpList Stefan Vogel <sv@exept.de> parents: 2729 diff changeset	1309	^ self
7382424af8d9 Don't carsh when typing SPACE in PopUpList Stefan Vogel <sv@exept.de> parents: 2729 diff changeset	1310	!
7382424af8d9 Don't carsh when typing SPACE in PopUpList Stefan Vogel <sv@exept.de> parents: 2729 diff changeset	1311
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1312	isEnabled:stringOrNumber
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1313	"gets the enabled state of an item or false"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1314
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1315	^ self enabledAt:stringOrNumber
dce33f8bb806 intitial checkin ca parents: diff changeset	1316	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	1317
1679 af40842718f6 when accepting, and the application does not respond to that Claus Gittinger <cg@exept.de> parents: 1670 diff changeset	1318	!MenuPanel methodsFor:'accessing-channels'!
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	1319
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	1320	enableChannel:aValueHolder
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1321	"set my enableChannel"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1322
498 b4c341497621 bug fixes: ca parents: 475 diff changeset	1323	enableChannel notNil ifTrue:[
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1324	enableChannel removeDependent:self
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	1325	].
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	1326
498 b4c341497621 bug fixes: ca parents: 475 diff changeset	1327	(enableChannel := aValueHolder) notNil ifTrue:[
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1328	enableChannel addDependent:self.
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	1329	].
498 b4c341497621 bug fixes: ca parents: 475 diff changeset	1330	self enabled:(enableChannel value).
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	1331	!
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	1332
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	1333	menuHolder:aValueHolder
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1334	"set my menuHolder"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1335
498 b4c341497621 bug fixes: ca parents: 475 diff changeset	1336	menuHolder notNil ifTrue:[
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1337	menuHolder removeDependent:self
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	1338	].
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	1339
498 b4c341497621 bug fixes: ca parents: 475 diff changeset	1340	(menuHolder := aValueHolder) notNil ifTrue:[
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1341	menuHolder addDependent:self.
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	1342	].
498 b4c341497621 bug fixes: ca parents: 475 diff changeset	1343	self menu:(menuHolder value)
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	1344	! !
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	1345
1679 af40842718f6 when accepting, and the application does not respond to that Claus Gittinger <cg@exept.de> parents: 1670 diff changeset	1346	!MenuPanel methodsFor:'accessing-color & font'!
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1347
616 a6157b083830 support of different styles ca parents: 608 diff changeset	1348	activeBackgroundColor
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1349	"get the background drawing color used to highlight selection"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1350
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1351	^ styleSheet colorAt:#'menuPanel.activeBackgroundColor'
616 a6157b083830 support of different styles ca parents: 608 diff changeset	1352	!
a6157b083830 support of different styles ca parents: 608 diff changeset	1353
a6157b083830 support of different styles ca parents: 608 diff changeset	1354	activeForegroundColor
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1355	"get the foreground color used to highlight selections"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1356
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1357	^ styleSheet colorAt:#'menuPanel.activeForegroundColor'
616 a6157b083830 support of different styles ca parents: 608 diff changeset	1358	!
a6157b083830 support of different styles ca parents: 608 diff changeset	1359
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1360	backgroundColor
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1361	"return the background color"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1362
502 dedc1b29b6ac support of arguments ca parents: 498 diff changeset	1363	^ super viewBackground
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1364	!
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1365
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1366	backgroundColor:aColor
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1367	"set the background drawing color. You should not use this method;
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1368	instead, leave the value as defined in the styleSheet."
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1369
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1370	self backgroundColor ~~ aColor ifTrue:[
2659 3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	1371	super viewBackground:aColor.
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	1372	self invalidate "/ RepairNow:true
616 a6157b083830 support of different styles ca parents: 608 diff changeset	1373	]
a6157b083830 support of different styles ca parents: 608 diff changeset	1374
911 6b1ad8b039c5 no, repairNow should not be needed here Claus Gittinger <cg@exept.de> parents: 910 diff changeset	1375	"Modified: / 6.6.1998 / 19:50:06 / cg"
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1376	!
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1377
727 3ba54333342a button style from style sheet tz parents: 723 diff changeset	1378	buttonActiveBackgroundColor
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1379	"get the background drawing color used to highlight button selection"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1380
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1381	^ styleSheet colorAt:#'button.activeBackgroundColor'
93426020ceed * empty log message * ca parents: 2216 diff changeset	1382	default:(self viewBackground)
727 3ba54333342a button style from style sheet tz parents: 723 diff changeset	1383	!
3ba54333342a button style from style sheet tz parents: 723 diff changeset	1384
730 9e45051a4fbd better button draw routine + style sheet support tz parents: 729 diff changeset	1385	buttonEdgeStyle
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1386	"get the button edge style"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1387
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1388	^ styleSheet at:#'button.edgeStyle'
730 9e45051a4fbd better button draw routine + style sheet support tz parents: 729 diff changeset	1389	!
9e45051a4fbd better button draw routine + style sheet support tz parents: 729 diff changeset	1390
1081 fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1391	buttonEnteredBackgroundColor
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1392	"get the background drawing color used to highlight entered button items"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1393
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1394	^ styleSheet colorAt:#'menuPanel.buttonEnteredBackgroundColor'
1081 fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1395	!
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1396
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1397	buttonEnteredLevel
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1398	"get the 3D-level used to highlight entered button items"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1399
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1400	^ styleSheet at:#'menuPanel.buttonEnteredLevel'
1081 fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1401	!
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1402
730 9e45051a4fbd better button draw routine + style sheet support tz parents: 729 diff changeset	1403	buttonHalfLightColor
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1404	"get the background drawing color used to half light button frame"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1405
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1406	^ styleSheet colorAt:#'button.halfLightColor'
730 9e45051a4fbd better button draw routine + style sheet support tz parents: 729 diff changeset	1407	!
9e45051a4fbd better button draw routine + style sheet support tz parents: 729 diff changeset	1408
9e45051a4fbd better button draw routine + style sheet support tz parents: 729 diff changeset	1409	buttonHalfShadowColor
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1410	"get the background drawing color used to half shadow button frame"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1411
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1412	^ styleSheet colorAt:#'button.halfShadowColor'
727 3ba54333342a button style from style sheet tz parents: 723 diff changeset	1413	!
3ba54333342a button style from style sheet tz parents: 723 diff changeset	1414
3ba54333342a button style from style sheet tz parents: 723 diff changeset	1415	buttonLightColor
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1416	"get the background drawing color used to light button frame"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1417
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1418	^ styleSheet colorAt:#'menuPanel.buttonLightColor'
727 3ba54333342a button style from style sheet tz parents: 723 diff changeset	1419	!
3ba54333342a button style from style sheet tz parents: 723 diff changeset	1420
3ba54333342a button style from style sheet tz parents: 723 diff changeset	1421	buttonPassiveBackgroundColor
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1422	"get the background drawing color used for button"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1423
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1424	^ styleSheet colorAt:#'menuPanel.buttonPassiveBackgroundColor'
727 3ba54333342a button style from style sheet tz parents: 723 diff changeset	1425	!
3ba54333342a button style from style sheet tz parents: 723 diff changeset	1426
3ba54333342a button style from style sheet tz parents: 723 diff changeset	1427	buttonShadowColor
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1428	"get the background drawing color used to shadow button frame"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1429
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1430	^ styleSheet colorAt:#'menuPanel.buttonShadowColor'
2059 c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	1431	!
c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	1432
c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	1433	disabledEtchedForegroundColor
c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	1434	"return the color used for etching disabled items.
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1435	If nil, no 3D effect is drawn."
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1436
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1437	^ styleSheet colorAt:#'menuPanel.disabledEtchedFgColor'
727 3ba54333342a button style from style sheet tz parents: 723 diff changeset	1438	!
3ba54333342a button style from style sheet tz parents: 723 diff changeset	1439
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1440	disabledForegroundColor
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1441	"return the foreground color used by disabled items"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1442
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1443	^ styleSheet colorAt:#'menuPanel.disabledForegroundColor'
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1444	!
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1445
2170 e76171113581 enteredFG / enteredBG Claus Gittinger <cg@exept.de> parents: 2166 diff changeset	1446	enteredBackgroundColor
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1447	"return the background color for entered items"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1448
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1449	^ styleSheet colorAt:#'menu.enteredBackgroundColor'
93426020ceed * empty log message * ca parents: 2216 diff changeset	1450	default:(self backgroundColor)
2170 e76171113581 enteredFG / enteredBG Claus Gittinger <cg@exept.de> parents: 2166 diff changeset	1451	!
e76171113581 enteredFG / enteredBG Claus Gittinger <cg@exept.de> parents: 2166 diff changeset	1452
e76171113581 enteredFG / enteredBG Claus Gittinger <cg@exept.de> parents: 2166 diff changeset	1453	enteredForegroundColor
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1454	"return the foreground color for entered items"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1455
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1456	^ styleSheet colorAt:#'menu.enteredForegroundColor' default:fgColor
2170 e76171113581 enteredFG / enteredBG Claus Gittinger <cg@exept.de> parents: 2166 diff changeset	1457	!
e76171113581 enteredFG / enteredBG Claus Gittinger <cg@exept.de> parents: 2166 diff changeset	1458
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1459	font:aFont
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1460	"set the font"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1461
2614 86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	1462	(aFont isNil or:[aFont = font]) ifTrue:[ ^ self ].
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	1463
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	1464	super font:aFont.
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	1465	self do:[:anItem\| anItem fontChanged ].
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	1466
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	1467	(shown and:[superMenu notNil]) ifTrue:[
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	1468	self extent:(self preferredExtent)
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	1469	].
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	1470	self mustRearrange.
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1471	!
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1472
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1473	foregroundColor
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1474	"return the passive foreground color"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1475
2059 c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	1476	^ fgColor
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1477	!
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1478
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1479	foregroundColor:aColor
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1480	"set the foregroundColor drawing color. You should not use this method;
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1481	instead leave the value as defined in the styleSheet."
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1482
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1483	aColor ~= fgColor ifTrue:[
1478 38f08dec8e34 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	1484	fgColor := aColor onDevice:device.
2659 3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	1485	self invalidate
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1486	].
580 249f6cfc5bb2 checkin from browser Claus Gittinger <cg@exept.de> parents: 571 diff changeset	1487	!
249f6cfc5bb2 checkin from browser Claus Gittinger <cg@exept.de> parents: 571 diff changeset	1488
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1489	maxAbsoluteButtonLevel
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1490	"returns the maximum absolute button level; used to compute the preferred
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1491	extent of a button"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1492
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1493	^ styleSheet at:#'menuPanel.maxAbsoluteButtonLevel'
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1494	!
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1495
730 9e45051a4fbd better button draw routine + style sheet support tz parents: 729 diff changeset	1496	selectionFrameBrightColor
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1497	"get the selection frame bright color"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1498
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1499	^ Color white
730 9e45051a4fbd better button draw routine + style sheet support tz parents: 729 diff changeset	1500	!
9e45051a4fbd better button draw routine + style sheet support tz parents: 729 diff changeset	1501
9e45051a4fbd better button draw routine + style sheet support tz parents: 729 diff changeset	1502	selectionFrameDarkColor
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1503	"get the selection frame dark color"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1504
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1505	^ Color black
730 9e45051a4fbd better button draw routine + style sheet support tz parents: 729 diff changeset	1506	!
9e45051a4fbd better button draw routine + style sheet support tz parents: 729 diff changeset	1507
1727 a6365337be59 support setting font in MenuPanel and Editor ca parents: 1726 diff changeset	1508	setFont:aFont
2485 b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	1509	"set the font if the argument is nonNil;
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	1510	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	1511
1727 a6365337be59 support setting font in MenuPanel and Editor ca parents: 1726 diff changeset	1512	\|currentFont\|
a6365337be59 support setting font in MenuPanel and Editor ca parents: 1726 diff changeset	1513
a6365337be59 support setting font in MenuPanel and Editor ca parents: 1726 diff changeset	1514	(aFont notNil and:[aFont ~= font]) ifTrue:[
2485 b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	1515	currentFont := font.
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	1516	super font:aFont.
1727 a6365337be59 support setting font in MenuPanel and Editor ca parents: 1726 diff changeset	1517	].
a6365337be59 support setting font in MenuPanel and Editor ca parents: 1726 diff changeset	1518	^ currentFont
2761 611ecd331c14 more xp style Claus Gittinger <cg@exept.de> parents: 2755 diff changeset	1519	!
611ecd331c14 more xp style Claus Gittinger <cg@exept.de> parents: 2755 diff changeset	1520
611ecd331c14 more xp style Claus Gittinger <cg@exept.de> parents: 2755 diff changeset	1521	viewBackground:aColor
611ecd331c14 more xp style Claus Gittinger <cg@exept.de> parents: 2755 diff changeset	1522	super viewBackground:aColor
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1523	! !
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1524
1679 af40842718f6 when accepting, and the application does not respond to that Claus Gittinger <cg@exept.de> parents: 1670 diff changeset	1525	!MenuPanel methodsFor:'accessing-dimensions'!
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1526
dce33f8bb806 intitial checkin ca parents: diff changeset	1527	height
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1528	"default height"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1529
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1530	(explicitExtent ~~ true) ifTrue:[
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1531	^ self preferredExtent y
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1532	].
dce33f8bb806 intitial checkin ca parents: diff changeset	1533	^ super height
dce33f8bb806 intitial checkin ca parents: diff changeset	1534	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1535
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	1536	maxExtent
2729 d28bc8243494 Do not set maxExtent (to the Screen size) in StandartSystemView. Stefan Vogel <sv@exept.de> parents: 2715 diff changeset	1537
d28bc8243494 Do not set maxExtent (to the Screen size) in StandartSystemView. Stefan Vogel <sv@exept.de> parents: 2715 diff changeset	1538	device notNil ifTrue:[
d28bc8243494 Do not set maxExtent (to the Screen size) in StandartSystemView. Stefan Vogel <sv@exept.de> parents: 2715 diff changeset	1539	^ device usableExtent - 2.
d28bc8243494 Do not set maxExtent (to the Screen size) in StandartSystemView. Stefan Vogel <sv@exept.de> parents: 2715 diff changeset	1540	].
d28bc8243494 Do not set maxExtent (to the Screen size) in StandartSystemView. Stefan Vogel <sv@exept.de> parents: 2715 diff changeset	1541	superMenu notNil ifTrue:[
d28bc8243494 Do not set maxExtent (to the Screen size) in StandartSystemView. Stefan Vogel <sv@exept.de> parents: 2715 diff changeset	1542	^ superMenu maxExtent
d28bc8243494 Do not set maxExtent (to the Screen size) in StandartSystemView. Stefan Vogel <sv@exept.de> parents: 2715 diff changeset	1543	].
d28bc8243494 Do not set maxExtent (to the Screen size) in StandartSystemView. Stefan Vogel <sv@exept.de> parents: 2715 diff changeset	1544	"don't know, assume there is no maxExtent"
d28bc8243494 Do not set maxExtent (to the Screen size) in StandartSystemView. Stefan Vogel <sv@exept.de> parents: 2715 diff changeset	1545	self error:'don''t know maxExtent'.
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	1546	!
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	1547
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1548	preferredExtent
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1549	"compute and returns my preferred extent"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1550
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1551	\|maxExtent usedExtent\|
2024 1214769c0441 + #preferredWidth: Claus Gittinger <cg@exept.de> parents: 2020 diff changeset	1552
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	1553	preferredExtent notNil ifTrue:[
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1554	^ preferredExtent
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	1555	].
2024 1214769c0441 + #preferredWidth: Claus Gittinger <cg@exept.de> parents: 2020 diff changeset	1556	usedExtent := self preferredExtentOfItems.
1214769c0441 + #preferredWidth: Claus Gittinger <cg@exept.de> parents: 2020 diff changeset	1557
1214769c0441 + #preferredWidth: Claus Gittinger <cg@exept.de> parents: 2020 diff changeset	1558	superView isNil ifTrue:[
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1559	"/ is standalone
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	1560	preferredWidth notNil ifTrue:[
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1561	usedExtent x < preferredWidth ifTrue:[
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1562	usedExtent := preferredWidth @ usedExtent y.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1563	]
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1564	]
2024 1214769c0441 + #preferredWidth: Claus Gittinger <cg@exept.de> parents: 2020 diff changeset	1565	].
1214769c0441 + #preferredWidth: Claus Gittinger <cg@exept.de> parents: 2020 diff changeset	1566
2729 d28bc8243494 Do not set maxExtent (to the Screen size) in StandartSystemView. Stefan Vogel <sv@exept.de> parents: 2715 diff changeset	1567	maxExtent := self maxExtent.
d28bc8243494 Do not set maxExtent (to the Screen size) in StandartSystemView. Stefan Vogel <sv@exept.de> parents: 2715 diff changeset	1568	maxExtent notNil ifTrue:[
d28bc8243494 Do not set maxExtent (to the Screen size) in StandartSystemView. Stefan Vogel <sv@exept.de> parents: 2715 diff changeset	1569	usedExtent := usedExtent min:maxExtent.
d28bc8243494 Do not set maxExtent (to the Screen size) in StandartSystemView. Stefan Vogel <sv@exept.de> parents: 2715 diff changeset	1570	].
d28bc8243494 Do not set maxExtent (to the Screen size) in StandartSystemView. Stefan Vogel <sv@exept.de> parents: 2715 diff changeset	1571	^ usedExtent
2024 1214769c0441 + #preferredWidth: Claus Gittinger <cg@exept.de> parents: 2020 diff changeset	1572
1214769c0441 + #preferredWidth: Claus Gittinger <cg@exept.de> parents: 2020 diff changeset	1573	"Modified: / 10.10.2001 / 14:57:25 / cg"
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	1574	!
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	1575
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	1576	preferredExtentOfItems
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	1577	"compute and returns my preferred extent including all items
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1578	!!!!!! changes have influence on method #rearrangeItems !!!!!!"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1579
1707 4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	1580	\|hasMenu shCtKey extent showAcc sck
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1581	x "{ Class:SmallInteger }"
93426020ceed * empty log message * ca parents: 2216 diff changeset	1582	y "{ Class:SmallInteger }"
93426020ceed * empty log message * ca parents: 2216 diff changeset	1583	size "{ Class:SmallInteger }"
2883 58f2f296254d defaults Claus Gittinger <cg@exept.de> parents: 2877 diff changeset	1584	buttonInsetX2 "{ Class:SmallInteger }"
58f2f296254d defaults Claus Gittinger <cg@exept.de> parents: 2877 diff changeset	1585	buttonInsetY2 "{ Class:SmallInteger }"
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1586	labelInsetX "{ Class:SmallInteger }"
93426020ceed * empty log message * ca parents: 2216 diff changeset	1587	labelInsetY "{ Class:SmallInteger }"
93426020ceed * empty log message * ca parents: 2216 diff changeset	1588	itemMargin "{ Class:SmallInteger }"
93426020ceed * empty log message * ca parents: 2216 diff changeset	1589	groupDividerSize "{ Class:SmallInteger }"
1690 38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	1590	\|
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1591
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1592	(size := items size) == 0 ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1593	self isViewWrapper ifTrue:[ ^ subViews first extent ].
2433 49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	1594	^ 32 @ 32
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1595	].
3131 611b833f2ac9 * empty log message * ca parents: 3128 diff changeset	1596	stringOffsetX := nil.
2883 58f2f296254d defaults Claus Gittinger <cg@exept.de> parents: 2877 diff changeset	1597	buttonInsetX2 := 2 * buttonInsetX.
58f2f296254d defaults Claus Gittinger <cg@exept.de> parents: 2877 diff changeset	1598	buttonInsetY2 := 2 * buttonInsetY.
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1599
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1600	self isPopUpView ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1601	labelInsetX := labelInsetY := 2 * (self enteredLevel abs).
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1602	] ifTrue:[
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	1603	labelInsetX := labelInsetY := 0.
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1604	].
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1605
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1606	x := 0.
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1607	y := 0.
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1608	groupDividerSize := self groupDividerSize.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1609
dce33f8bb806 intitial checkin ca parents: diff changeset	1610	self verticalLayout ifFalse:[
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1611	items keysAndValuesDo:[:key :el\| \|eX eY\|
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1612	extent := el preferredExtent.
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1613
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1614	"/ check for visibility (extent x ~~ 0)
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1615	(eX := extent x) ~~ 0 ifTrue:[
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1616	eY := extent y.
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1617
1472 fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	1618	el isButton ifTrue:[
2883 58f2f296254d defaults Claus Gittinger <cg@exept.de> parents: 2877 diff changeset	1619	eX := eX + buttonInsetX2.
58f2f296254d defaults Claus Gittinger <cg@exept.de> parents: 2877 diff changeset	1620	eY := eY + buttonInsetY2.
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1621	] ifFalse:[
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	1622	eX := eX + labelInsetX.
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	1623	eY := eY + labelInsetY.
1472 fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	1624	].
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1625	key ~~ size ifTrue:[
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1626	(self hasGroupDividerAt:key) ifTrue:[
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1627	x := x + groupDividerSize
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1628	] ifFalse:[
2433 49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	1629	el needsItemSpaceWhenDrawing ifTrue:[
1723 f633725a0ace use itemSpace only for horizontal menus and between labeled items ca parents: 1719 diff changeset	1630	x := x + itemSpace
f633725a0ace use itemSpace only for horizontal menus and between labeled items ca parents: 1719 diff changeset	1631	]
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1632	]
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1633	].
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1634	x := eX + x.
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1635	y := eY max:y.
1472 fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	1636	]
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1637	]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1638	] ifTrue:[
1472 fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	1639	hasMenu := false.
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	1640	shCtKey := 0.
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1641	showAcc := MenuView showAcceleratorKeys == true.
1472 fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	1642	y := x.
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	1643	x := 0.
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1644	itemMargin := 2 * self itemMargin.
1472 fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	1645
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1646	items keysAndValuesDo:[:key :el\| \|eX eY\|
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1647	extent := el preferredExtent.
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1648
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1649	"/ check for visibility (extent x ~~ 0)
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1650	(eX := extent x) ~~ 0 ifTrue:[
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1651	eY := extent y.
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1652
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1653	el isButton ifTrue:[
2883 58f2f296254d defaults Claus Gittinger <cg@exept.de> parents: 2877 diff changeset	1654	eX := eX + buttonInsetX2.
58f2f296254d defaults Claus Gittinger <cg@exept.de> parents: 2877 diff changeset	1655	eY := eY + buttonInsetY2.
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1656	] ifFalse:[
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	1657	eX := eX + labelInsetX.
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	1658	eY := eY + labelInsetY.
1472 fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	1659	].
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1660	hasMenu ifFalse:[
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1661	hasMenu := el hasSubmenu
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1662	].
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1663	(showAcc and:[(sck := el shortcutKeyAsString) notNil]) ifTrue:[
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1664	shCtKey := shCtKey max:(sck widthOn:self)
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1665	].
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1666	key ~~ size ifTrue:[
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1667	(self hasGroupDividerAt:key) ifTrue:[
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1668	y := y + groupDividerSize
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1669	]
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1670	].
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1671	y := eY + y.
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1672	x := eX max:x.
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1673	].
1472 fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	1674	].
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1675	x := x + itemMargin.
1472 fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	1676
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	1677	(hasMenu or:[shCtKey ~~ 0]) ifTrue:[
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	1678	shortKeyInset := x + Item labelRightOffset.
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	1679	x := shortKeyInset + shCtKey + self subMenuIndicationWidth.
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	1680
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	1681	(shCtKey ~~ 0 and:[hasMenu]) ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1682	x := x + self shortcutKeyOffset.
1472 fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	1683	]
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	1684	].
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1685	"/ to have a small inset
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1686	y := y + 1.
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1687	"/ x := x + 1.
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1688	].
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1689	x := x + margin + margin.
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1690	y := y + margin + margin.
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1691
2433 49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	1692	^ x @ y
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1693	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1694
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1695	preferredWidth:aWidthOrNil
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1696	"used for example by combo box to setup the preferred width for the popup menu.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1697	If nil (default), the width is computed from the contained items.
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1698	If not nil, the width is the maximum from the contained items and the required width."
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1699
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1700	preferredWidth := aWidthOrNil.
2024 1214769c0441 + #preferredWidth: Claus Gittinger <cg@exept.de> parents: 2020 diff changeset	1701	!
1214769c0441 + #preferredWidth: Claus Gittinger <cg@exept.de> parents: 2020 diff changeset	1702
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1703	shortKeyInset
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1704	"left inset of shortcutKey"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1705
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1706	^ shortKeyInset
616 a6157b083830 support of different styles ca parents: 608 diff changeset	1707	!
a6157b083830 support of different styles ca parents: 608 diff changeset	1708
3131 611b833f2ac9 * empty log message * ca parents: 3128 diff changeset	1709	stringOffsetXfor:anItem
611b833f2ac9 * empty log message * ca parents: 3128 diff changeset	1710	"return the x offset for a MenuItem where to draw the text
611b833f2ac9 * empty log message * ca parents: 3128 diff changeset	1711	"
611b833f2ac9 * empty log message * ca parents: 3128 diff changeset	1712	\|label w\|
611b833f2ac9 * empty log message * ca parents: 3128 diff changeset	1713
611b833f2ac9 * empty log message * ca parents: 3128 diff changeset	1714	anItem isButton ifTrue:[ ^ 0 ].
611b833f2ac9 * empty log message * ca parents: 3128 diff changeset	1715
611b833f2ac9 * empty log message * ca parents: 3128 diff changeset	1716	stringOffsetX isNil ifTrue:[
611b833f2ac9 * empty log message * ca parents: 3128 diff changeset	1717	stringOffsetX := 0.
611b833f2ac9 * empty log message * ca parents: 3128 diff changeset	1718
611b833f2ac9 * empty log message * ca parents: 3128 diff changeset	1719	(self isPopUpView and:[self verticalLayout]) ifTrue:[
611b833f2ac9 * empty log message * ca parents: 3128 diff changeset	1720	self do:[:el\|
611b833f2ac9 * empty log message * ca parents: 3128 diff changeset	1721	el isVisible ifTrue:[
611b833f2ac9 * empty log message * ca parents: 3128 diff changeset	1722	( (label := el indicatorForm) notNil
611b833f2ac9 * empty log message * ca parents: 3128 diff changeset	1723	or:[(label := el choiceForm) notNil]
611b833f2ac9 * empty log message * ca parents: 3128 diff changeset	1724	) ifTrue:[
611b833f2ac9 * empty log message * ca parents: 3128 diff changeset	1725	stringOffsetX := stringOffsetX max:(label width + 2).
611b833f2ac9 * empty log message * ca parents: 3128 diff changeset	1726	] ifFalse:[
611b833f2ac9 * empty log message * ca parents: 3128 diff changeset	1727	label := el displayLabel.
611b833f2ac9 * empty log message * ca parents: 3128 diff changeset	1728	label class == LabelAndIcon ifTrue:[
611b833f2ac9 * empty log message * ca parents: 3128 diff changeset	1729	stringOffsetX := stringOffsetX max:(label xOfString).
611b833f2ac9 * empty log message * ca parents: 3128 diff changeset	1730	].
611b833f2ac9 * empty log message * ca parents: 3128 diff changeset	1731	].
611b833f2ac9 * empty log message * ca parents: 3128 diff changeset	1732	].
611b833f2ac9 * empty log message * ca parents: 3128 diff changeset	1733	].
611b833f2ac9 * empty log message * ca parents: 3128 diff changeset	1734	].
611b833f2ac9 * empty log message * ca parents: 3128 diff changeset	1735	].
611b833f2ac9 * empty log message * ca parents: 3128 diff changeset	1736	w := 0.
611b833f2ac9 * empty log message * ca parents: 3128 diff changeset	1737
611b833f2ac9 * empty log message * ca parents: 3128 diff changeset	1738	( (label := anItem indicatorForm) notNil
611b833f2ac9 * empty log message * ca parents: 3128 diff changeset	1739	or:[(label := anItem choiceForm) notNil]
611b833f2ac9 * empty log message * ca parents: 3128 diff changeset	1740	) ifTrue:[
611b833f2ac9 * empty log message * ca parents: 3128 diff changeset	1741	w := label width + 2.
611b833f2ac9 * empty log message * ca parents: 3128 diff changeset	1742	].
611b833f2ac9 * empty log message * ca parents: 3128 diff changeset	1743	stringOffsetX == 0 ifTrue:[
611b833f2ac9 * empty log message * ca parents: 3128 diff changeset	1744	^ w
611b833f2ac9 * empty log message * ca parents: 3128 diff changeset	1745	].
611b833f2ac9 * empty log message * ca parents: 3128 diff changeset	1746	w == 0 ifTrue:[
611b833f2ac9 * empty log message * ca parents: 3128 diff changeset	1747	label := anItem displayLabel.
611b833f2ac9 * empty log message * ca parents: 3128 diff changeset	1748
611b833f2ac9 * empty log message * ca parents: 3128 diff changeset	1749	label class == LabelAndIcon ifTrue:[
611b833f2ac9 * empty log message * ca parents: 3128 diff changeset	1750	^ stringOffsetX - label xOfString
611b833f2ac9 * empty log message * ca parents: 3128 diff changeset	1751	].
611b833f2ac9 * empty log message * ca parents: 3128 diff changeset	1752	].
611b833f2ac9 * empty log message * ca parents: 3128 diff changeset	1753	^ stringOffsetX.
611b833f2ac9 * empty log message * ca parents: 3128 diff changeset	1754	!
611b833f2ac9 * empty log message * ca parents: 3128 diff changeset	1755
616 a6157b083830 support of different styles ca parents: 608 diff changeset	1756	subMenuIndicationWidth
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1757	^ self rightArrow width
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1758	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	1759
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	1760	!MenuPanel methodsFor:'accessing-interactors'!
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	1761
1798 08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	1762	iconIndicationDisabledOff
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1763	^ self registerImageOnDevice:(self class iconIndicationDisabledOff)
1798 08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	1764	!
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	1765
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	1766	iconIndicationDisabledOn
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1767	^ self registerImageOnDevice:(self class iconIndicationDisabledOn)
1798 08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	1768	!
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	1769
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	1770	iconIndicationOff
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1771	^ self registerImageOnDevice:(self class iconIndicationOff)
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	1772	!
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	1773
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	1774	iconIndicationOn
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1775	^ self registerImageOnDevice:(self class iconIndicationOn)
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	1776	!
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	1777
1798 08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	1778	iconRadioGroupDisabledOff
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1779	^ self registerImageOnDevice:(self class iconRadioGroupDisabledOff)
1798 08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	1780	!
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	1781
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	1782	iconRadioGroupDisabledOn
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1783	^ self registerImageOnDevice:(self class iconRadioGroupDisabledOn)
1798 08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	1784	!
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	1785
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	1786	iconRadioGroupOff
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1787	^ self registerImageOnDevice:(self class iconRadioGroupOff)
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	1788	!
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	1789
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	1790	iconRadioGroupOn
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1791	^ self registerImageOnDevice:(self class iconRadioGroupOn)
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	1792	! !
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	1793
1679 af40842718f6 when accepting, and the application does not respond to that Claus Gittinger <cg@exept.de> parents: 1670 diff changeset	1794	!MenuPanel methodsFor:'accessing-items'!
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1795
dce33f8bb806 intitial checkin ca parents: diff changeset	1796	itemAt:stringOrNumber do:aOneArgBlock
2505 56607624d05a Fix pidgin spelling: 'does not exists' and 'not exists' Stefan Vogel <sv@exept.de> parents: 2504 diff changeset	1797	"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	1798	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	1799
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1800	^ self itemAt:stringOrNumber do:aOneArgBlock ifAbsent:nil
dce33f8bb806 intitial checkin ca parents: diff changeset	1801	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1802
dce33f8bb806 intitial checkin ca parents: diff changeset	1803	itemAt:stringOrNumber do:aOneArgBlock ifAbsent:exceptionBlock
dce33f8bb806 intitial checkin ca parents: diff changeset	1804	"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	1805	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	1806
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1807	\|item\|
dce33f8bb806 intitial checkin ca parents: diff changeset	1808
dce33f8bb806 intitial checkin ca parents: diff changeset	1809	item := self itemAt:stringOrNumber.
dce33f8bb806 intitial checkin ca parents: diff changeset	1810	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	1811	^ exceptionBlock value
706 d716edbdbe47 show separators bug cleaned tz parents: 689 diff changeset	1812	!
d716edbdbe47 show separators bug cleaned tz parents: 689 diff changeset	1813
d716edbdbe47 show separators bug cleaned tz parents: 689 diff changeset	1814	itemAtIndex:anIndex
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1815	"returns item at an index or nil"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1816
706 d716edbdbe47 show separators bug cleaned tz parents: 689 diff changeset	1817	^ 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	1818	!
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	1819
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	1820	items
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1821	"returns list of items or nil"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1822
1707 4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	1823	^ items
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1824	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	1825
1679 af40842718f6 when accepting, and the application does not respond to that Claus Gittinger <cg@exept.de> parents: 1670 diff changeset	1826	!MenuPanel methodsFor:'accessing-look'!
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1827
727 3ba54333342a button style from style sheet tz parents: 723 diff changeset	1828	buttonActiveLevel
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1829	"get the buttons active level"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1830
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1831	^ styleSheet at:#'menuPanel.buttonActiveLevel'
727 3ba54333342a button style from style sheet tz parents: 723 diff changeset	1832	!
3ba54333342a button style from style sheet tz parents: 723 diff changeset	1833
3ba54333342a button style from style sheet tz parents: 723 diff changeset	1834	buttonPassiveLevel
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1835	"get the buttons passive level"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1836
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1837	^ styleSheet at:#'menuPanel.buttonPassiveLevel'
727 3ba54333342a button style from style sheet tz parents: 723 diff changeset	1838	!
3ba54333342a button style from style sheet tz parents: 723 diff changeset	1839
2337 7f384db88273 centerItems attribute Claus Gittinger <cg@exept.de> parents: 2332 diff changeset	1840	centerItems
7f384db88273 centerItems attribute Claus Gittinger <cg@exept.de> parents: 2332 diff changeset	1841	^ centerItems ? false
7f384db88273 centerItems attribute Claus Gittinger <cg@exept.de> parents: 2332 diff changeset	1842	!
7f384db88273 centerItems attribute Claus Gittinger <cg@exept.de> parents: 2332 diff changeset	1843
7f384db88273 centerItems attribute Claus Gittinger <cg@exept.de> parents: 2332 diff changeset	1844	centerItems:aBoolean
7f384db88273 centerItems attribute Claus Gittinger <cg@exept.de> parents: 2332 diff changeset	1845	centerItems := aBoolean
7f384db88273 centerItems attribute Claus Gittinger <cg@exept.de> parents: 2332 diff changeset	1846	!
7f384db88273 centerItems attribute Claus Gittinger <cg@exept.de> parents: 2332 diff changeset	1847
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1848	fitFirstPanel
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1849	"gets true if the first panel in the menu hierarchy must be fit
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1850	to the extent of its superView
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1851
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1852	NOT SUPPORTED"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1853
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1854	^ false
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1855	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1856
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1857	fitFirstPanel:aState
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1858	"sets true if the first panel in the menu hierarchy must be fit
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1859	to the extent of its superView
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1860
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1861	NOT SUPPORTED"
616 a6157b083830 support of different styles ca parents: 608 diff changeset	1862	!
a6157b083830 support of different styles ca parents: 608 diff changeset	1863
1093 7cb44303b016 margin fixes Claus Gittinger <cg@exept.de> parents: 1090 diff changeset	1864	level:anInt
2003 732fbaf5864f avoid changing the level after realization (to avoid confusing the shadow) Claus Gittinger <cg@exept.de> parents: 2000 diff changeset	1865	anInt ~~ level ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1866	super level:anInt.
93426020ceed * empty log message * ca parents: 2216 diff changeset	1867	self mustRearrange
2003 732fbaf5864f avoid changing the level after realization (to avoid confusing the shadow) Claus Gittinger <cg@exept.de> parents: 2000 diff changeset	1868	]
2052 61367c7a47aa * empty log message * Claus Gittinger <cg@exept.de> parents: 2051 diff changeset	1869
61367c7a47aa * empty log message * Claus Gittinger <cg@exept.de> parents: 2051 diff changeset	1870	"Modified: / 15.11.2001 / 17:42:07 / cg"
1093 7cb44303b016 margin fixes Claus Gittinger <cg@exept.de> parents: 1090 diff changeset	1871	!
7cb44303b016 margin fixes Claus Gittinger <cg@exept.de> parents: 1090 diff changeset	1872
616 a6157b083830 support of different styles ca parents: 608 diff changeset	1873	rightArrow
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	1874	rightArrow isNil ifTrue:[
975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	1875	device isNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1876	^ SelectionInListView rightArrowFormOn:Display
93426020ceed * empty log message * ca parents: 2216 diff changeset	1877	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	1878	rightArrow := SelectionInListView rightArrowFormOn:device
93426020ceed * empty log message * ca parents: 2216 diff changeset	1879	].
616 a6157b083830 support of different styles ca parents: 608 diff changeset	1880	^ rightArrow
a6157b083830 support of different styles ca parents: 608 diff changeset	1881	!
a6157b083830 support of different styles ca parents: 608 diff changeset	1882
a6157b083830 support of different styles ca parents: 608 diff changeset	1883	rightArrowShadow
a6157b083830 support of different styles ca parents: 608 diff changeset	1884	^ rightArrowShadow
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1885	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1886
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1887	showGroupDivider
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1888	"get the enabled flag for showing groupDiveders"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1889
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1890	^ showGroupDivider
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1891	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1892
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1893	showGroupDivider:aState
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1894	"set the enabled flag for showing groupDiveders"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1895
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1896	showGroupDivider ~~ aState ifTrue:[
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1897	showGroupDivider := aState.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1898	self mustRearrange.
653 cf9b6ef11ade bug fix; no automatic rearrange of items ca parents: 650 diff changeset	1899	]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1900	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1901
dce33f8bb806 intitial checkin ca parents: diff changeset	1902	showSeparatingLines
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1903	"gets true if drawing of separating lines is enabled."
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1904
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1905	^ showSeparatingLines
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1906	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1907
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1908	showSeparatingLines:aState
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1909	"turn on/off drawing of separating lines."
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1910
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1911	aState ~~ showSeparatingLines ifTrue:[
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1912	showSeparatingLines := aState.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1913	self mustRearrange
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1914	].
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1915	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1916
dce33f8bb806 intitial checkin ca parents: diff changeset	1917	verticalLayout
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1918	"get the layout: vertical( true ) or horizontal( false )"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1919
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	1920	verticalLayout notNil ifTrue:[ ^ verticalLayout ].
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1921
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1922	superMenu notNil ifTrue:[ verticalLayout := true ]
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1923	ifFalse:[ verticalLayout := self isPopUpView ].
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	1924	^ verticalLayout
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1925	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1926
dce33f8bb806 intitial checkin ca parents: diff changeset	1927	verticalLayout:aState
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1928	"set the layout: vertical( true ) or horizontal( false )"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1929
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1930	aState ~~ verticalLayout ifTrue:[
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1931	verticalLayout isNil ifTrue:[
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1932	verticalLayout := aState
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1933	] ifFalse:[
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1934	verticalLayout := aState.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1935	self mustRearrange.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1936	].
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1937	].
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1938	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	1939
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1940	!MenuPanel methodsFor:'accessing-style'!
93426020ceed * empty log message * ca parents: 2216 diff changeset	1941
93426020ceed * empty log message * ca parents: 2216 diff changeset	1942	buttonInsetX
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1943	"returns the verical button space"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1944
2883 58f2f296254d defaults Claus Gittinger <cg@exept.de> parents: 2877 diff changeset	1945	^ buttonInsetX
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1946	!
93426020ceed * empty log message * ca parents: 2216 diff changeset	1947
93426020ceed * empty log message * ca parents: 2216 diff changeset	1948	buttonInsetY
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1949	"returns the verical button space"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1950
2883 58f2f296254d defaults Claus Gittinger <cg@exept.de> parents: 2877 diff changeset	1951	^ buttonInsetY
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1952	!
93426020ceed * empty log message * ca parents: 2216 diff changeset	1953
93426020ceed * empty log message * ca parents: 2216 diff changeset	1954	enteredLevel
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1955	"returns the enter-level for an unselected item moved through"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1956
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1957	^ styleSheet at:#'menu.enteredLevel' default:0
93426020ceed * empty log message * ca parents: 2216 diff changeset	1958	!
93426020ceed * empty log message * ca parents: 2216 diff changeset	1959
93426020ceed * empty log message * ca parents: 2216 diff changeset	1960	groupDividerSize
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1961	"returns the width of a group divider"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1962
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1963	^ styleSheet at:#'menu.groupDividerSize' default:6
93426020ceed * empty log message * ca parents: 2216 diff changeset	1964	!
93426020ceed * empty log message * ca parents: 2216 diff changeset	1965
93426020ceed * empty log message * ca parents: 2216 diff changeset	1966	itemMargin
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1967	"returns the margin of an item"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1968
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1969	^ styleSheet at:#'menu.itemMargin' default:0
93426020ceed * empty log message * ca parents: 2216 diff changeset	1970	!
93426020ceed * empty log message * ca parents: 2216 diff changeset	1971
93426020ceed * empty log message * ca parents: 2216 diff changeset	1972	itemSpace
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1973	"returns the additional space for an item in a (vertical) panel"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1974
2883 58f2f296254d defaults Claus Gittinger <cg@exept.de> parents: 2877 diff changeset	1975	^ itemSpace
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1976	!
93426020ceed * empty log message * ca parents: 2216 diff changeset	1977
93426020ceed * empty log message * ca parents: 2216 diff changeset	1978	selectionFollowsMouse
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1979	"returns true if the selection follows the mouse"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1980
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1981	^ styleSheet at:#'menu.selectionFollowsMouse' default:false
93426020ceed * empty log message * ca parents: 2216 diff changeset	1982	!
93426020ceed * empty log message * ca parents: 2216 diff changeset	1983
93426020ceed * empty log message * ca parents: 2216 diff changeset	1984	shortcutKeyOffset
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1985	"returns the offset for a shortcutKey"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1986
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1987	^ 5
93426020ceed * empty log message * ca parents: 2216 diff changeset	1988	! !
93426020ceed * empty log message * ca parents: 2216 diff changeset	1989
1679 af40842718f6 when accepting, and the application does not respond to that Claus Gittinger <cg@exept.de> parents: 1670 diff changeset	1990	!MenuPanel methodsFor:'accessing-submenu'!
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1991
dce33f8bb806 intitial checkin ca parents: diff changeset	1992	subMenuAt:stringOrNumber
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1993	"gets the submenu of an item or nil"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1994
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1995	^ self itemAt:stringOrNumber do:[:el\| el submenu ]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1996	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1997
dce33f8bb806 intitial checkin ca parents: diff changeset	1998	subMenuAt:stringOrNumber put:aSubMenu
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1999	"sets the submenu of an item"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2000
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2001	self itemAt:stringOrNumber do:[:el\| el submenu:aSubMenu ]
dce33f8bb806 intitial checkin ca parents: diff changeset	2002	!
dce33f8bb806 intitial checkin ca parents: diff changeset	2003
dce33f8bb806 intitial checkin ca parents: diff changeset	2004	subMenuShown
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2005	"return the currently visible submenu - or nil if there is none"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2006
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2007	\|item\|
dce33f8bb806 intitial checkin ca parents: diff changeset	2008
dce33f8bb806 intitial checkin ca parents: diff changeset	2009	(item := self selection) notNil ifTrue:[
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2010	^ item submenu
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2011	].
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2012	^ nil
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2013	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	2014
2504 0ce78a73aacf method category rename Claus Gittinger <cg@exept.de> parents: 2503 diff changeset	2015	!MenuPanel methodsFor:'activation & deactivation'!
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2016
1795 6afd0e768267 submenuChannel selector: allow upto two arguments, the arg and the menu ca parents: 1793 diff changeset	2017	closeMenus
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2018	"close all menus without accepting"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2019
1795 6afd0e768267 submenuChannel selector: allow upto two arguments, the arg and the menu ca parents: 1793 diff changeset	2020	self topMenu accept:nil.
6afd0e768267 submenuChannel selector: allow upto two arguments, the arg and the menu ca parents: 1793 diff changeset	2021	!
6afd0e768267 submenuChannel selector: allow upto two arguments, the arg and the menu ca parents: 1793 diff changeset	2022
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2023	hide
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2024	"hide the view, leave its modal event loop"
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2025
2407 d8cdc13f677b checkin from browser penk parents: 2374 diff changeset	2026	"/ TODO: replace with LeaveSignal raise.
d8cdc13f677b checkin from browser penk parents: 2374 diff changeset	2027
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2028	self selection:nil.
dce33f8bb806 intitial checkin ca parents: diff changeset	2029	self unmap.
dce33f8bb806 intitial checkin ca parents: diff changeset	2030	!
dce33f8bb806 intitial checkin ca parents: diff changeset	2031
dce33f8bb806 intitial checkin ca parents: diff changeset	2032	show
1836 89a1b938c09e fixed returned value from non-performing menu Claus Gittinger <cg@exept.de> parents: 1832 diff changeset	2033	"realize the view at its last position;
89a1b938c09e fixed returned value from non-performing menu Claus Gittinger <cg@exept.de> parents: 1832 diff changeset	2034	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	2035	(unless the menu has already performed its action, by sending an appropriate message
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2036	to some performer)"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2037
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2038	^ self showAt:(self origin) resizing:true
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2039	!
dce33f8bb806 intitial checkin ca parents: diff changeset	2040
dce33f8bb806 intitial checkin ca parents: diff changeset	2041	showAt:aPoint
1836 89a1b938c09e fixed returned value from non-performing menu Claus Gittinger <cg@exept.de> parents: 1832 diff changeset	2042	"realize the view at aPoint.
89a1b938c09e fixed returned value from non-performing menu Claus Gittinger <cg@exept.de> parents: 1832 diff changeset	2043	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	2044	(unless the menu has already performed its action, by sending an appropriate message
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2045	to some performer)"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2046
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2047	^ self showAt:aPoint resizing:true
dce33f8bb806 intitial checkin ca parents: diff changeset	2048	!
dce33f8bb806 intitial checkin ca parents: diff changeset	2049
dce33f8bb806 intitial checkin ca parents: diff changeset	2050	showAt:aPoint resizing:aBoolean
984 87d36803b9d8 oops - menu items fired twice. Claus Gittinger <cg@exept.de> parents: 971 diff changeset	2051	"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	2052	or if I have already performed.
87d36803b9d8 oops - menu items fired twice. Claus Gittinger <cg@exept.de> parents: 971 diff changeset	2053	Return the items value, otherwise.
87d36803b9d8 oops - menu items fired twice. Claus Gittinger <cg@exept.de> parents: 971 diff changeset	2054	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	2055	menu (i.e. the view or controller), which will perform the action
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2056	if a non-nil is returned."
1836 89a1b938c09e fixed returned value from non-performing menu Claus Gittinger <cg@exept.de> parents: 1832 diff changeset	2057
1331 aae37cbfb30a fixed style handling to avoid bad resizing when popup-level/bw Claus Gittinger <cg@exept.de> parents: 1330 diff changeset	2058	self rearrangeItemsIfItemVisibilityChanged.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2059
dce33f8bb806 intitial checkin ca parents: diff changeset	2060	aBoolean ifTrue:[
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2061	self fixSize.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2062	].
dce33f8bb806 intitial checkin ca parents: diff changeset	2063	self origin:aPoint.
1459 53f83c83b354 checkin from browser Claus Gittinger <cg@exept.de> parents: 1455 diff changeset	2064	"/ self makeFullyVisible. -- done in realize
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2065	self openModal:[true]. "realize "
dce33f8bb806 intitial checkin ca parents: diff changeset	2066
984 87d36803b9d8 oops - menu items fired twice. Claus Gittinger <cg@exept.de> parents: 971 diff changeset	2067	"/ if I have already performed,
87d36803b9d8 oops - menu items fired twice. Claus Gittinger <cg@exept.de> parents: 971 diff changeset	2068	"/ return nil - to avoid items triggering twice.
87d36803b9d8 oops - menu items fired twice. Claus Gittinger <cg@exept.de> parents: 971 diff changeset	2069
87d36803b9d8 oops - menu items fired twice. Claus Gittinger <cg@exept.de> parents: 971 diff changeset	2070	(self topMenu menuAdornmentAt:#hasPerformed) == true ifTrue:[
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2071	^ nil
984 87d36803b9d8 oops - menu items fired twice. Claus Gittinger <cg@exept.de> parents: 971 diff changeset	2072	].
1836 89a1b938c09e fixed returned value from non-performing menu Claus Gittinger <cg@exept.de> parents: 1832 diff changeset	2073
984 87d36803b9d8 oops - menu items fired twice. Claus Gittinger <cg@exept.de> parents: 971 diff changeset	2074	^ self lastValueAccepted
87d36803b9d8 oops - menu items fired twice. Claus Gittinger <cg@exept.de> parents: 971 diff changeset	2075
1137 7df0b776e47a fixes for 2D styles (borderWidth) Claus Gittinger <cg@exept.de> parents: 1130 diff changeset	2076	"Modified: / 15.9.1998 / 12:50:23 / cg"
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2077	!
dce33f8bb806 intitial checkin ca parents: diff changeset	2078
dce33f8bb806 intitial checkin ca parents: diff changeset	2079	showAtPointer
1836 89a1b938c09e fixed returned value from non-performing menu Claus Gittinger <cg@exept.de> parents: 1832 diff changeset	2080	"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	2081	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	2082	(unless the menu has already performed its action, by sending an appropriate message
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2083	to some performer)"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2084
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2085	^ self showAt:(device pointerPosition) resizing:true
dce33f8bb806 intitial checkin ca parents: diff changeset	2086	!
dce33f8bb806 intitial checkin ca parents: diff changeset	2087
dce33f8bb806 intitial checkin ca parents: diff changeset	2088	showCenteredIn:aView
dce33f8bb806 intitial checkin ca parents: diff changeset	2089	"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	2090	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	2091	(unless the menu has already performed its action, by sending an appropriate message
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2092	to some performer)"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2093
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2094	\|top\|
dce33f8bb806 intitial checkin ca parents: diff changeset	2095
dce33f8bb806 intitial checkin ca parents: diff changeset	2096	top := aView topView.
dce33f8bb806 intitial checkin ca parents: diff changeset	2097	top raise.
1137 7df0b776e47a fixes for 2D styles (borderWidth) Claus Gittinger <cg@exept.de> parents: 1130 diff changeset	2098	^ 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	2099
7df0b776e47a fixes for 2D styles (borderWidth) Claus Gittinger <cg@exept.de> parents: 1130 diff changeset	2100	"Modified: / 15.9.1998 / 12:45:50 / cg"
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2101	!
dce33f8bb806 intitial checkin ca parents: diff changeset	2102
dce33f8bb806 intitial checkin ca parents: diff changeset	2103	startUp
dce33f8bb806 intitial checkin ca parents: diff changeset	2104	"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	2105	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	2106	(unless the menu has already performed its action, by sending an appropriate message
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2107	to some performer)"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2108
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2109	^ self showAtPointer
897 6bbc8c15ac0a added #startUpAt: (MenuView compatibility) Claus Gittinger <cg@exept.de> parents: 890 diff changeset	2110	!
6bbc8c15ac0a added #startUpAt: (MenuView compatibility) Claus Gittinger <cg@exept.de> parents: 890 diff changeset	2111
6bbc8c15ac0a added #startUpAt: (MenuView compatibility) Claus Gittinger <cg@exept.de> parents: 890 diff changeset	2112	startUpAt:aPoint
6bbc8c15ac0a added #startUpAt: (MenuView compatibility) Claus Gittinger <cg@exept.de> parents: 890 diff changeset	2113	"realize the menu at aPoint
1836 89a1b938c09e fixed returned value from non-performing menu Claus Gittinger <cg@exept.de> parents: 1832 diff changeset	2114	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	2115	(unless the menu has already performed its action, by sending an appropriate message
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2116	to some performer)"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2117
897 6bbc8c15ac0a added #startUpAt: (MenuView compatibility) Claus Gittinger <cg@exept.de> parents: 890 diff changeset	2118	^ self showAt:aPoint
6bbc8c15ac0a added #startUpAt: (MenuView compatibility) Claus Gittinger <cg@exept.de> parents: 890 diff changeset	2119
6bbc8c15ac0a added #startUpAt: (MenuView compatibility) Claus Gittinger <cg@exept.de> parents: 890 diff changeset	2120	"Created: / 21.5.1998 / 14:15:57 / cg"
1750 f9e5700bd99a compatibility stuff Claus Gittinger <cg@exept.de> parents: 1737 diff changeset	2121	!
f9e5700bd99a compatibility stuff Claus Gittinger <cg@exept.de> parents: 1737 diff changeset	2122
2332 7e98cc0c92b7 can now specify if menu action is to be performed by ca parents: 2331 diff changeset	2123	startUpFor:originatingWidget
7e98cc0c92b7 can now specify if menu action is to be performed by ca parents: 2331 diff changeset	2124	"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	2125	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	2126	(unless the menu has already performed its action, by sending an appropriate message
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2127	to some performer)"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2128
2332 7e98cc0c92b7 can now specify if menu action is to be performed by ca parents: 2331 diff changeset	2129	originator := originatingWidget.
7e98cc0c92b7 can now specify if menu action is to be performed by ca parents: 2331 diff changeset	2130	^ self startUp
7e98cc0c92b7 can now specify if menu action is to be performed by ca parents: 2331 diff changeset	2131	!
7e98cc0c92b7 can now specify if menu action is to be performed by ca parents: 2331 diff changeset	2132
1750 f9e5700bd99a compatibility stuff Claus Gittinger <cg@exept.de> parents: 1737 diff changeset	2133	startUpOrNil
f9e5700bd99a compatibility stuff Claus Gittinger <cg@exept.de> parents: 1737 diff changeset	2134	"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	2135	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	2136	(unless the menu has already performed its action, by sending an appropriate message
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2137	to some performer)"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2138
1750 f9e5700bd99a compatibility stuff Claus Gittinger <cg@exept.de> parents: 1737 diff changeset	2139	^ self showAtPointer
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2140	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	2141
dce33f8bb806 intitial checkin ca parents: diff changeset	2142	!MenuPanel methodsFor:'adding & removing'!
dce33f8bb806 intitial checkin ca parents: diff changeset	2143
dce33f8bb806 intitial checkin ca parents: diff changeset	2144	createAtIndex:anIndexOrNil
1800 600f247a2846 comment Claus Gittinger <cg@exept.de> parents: 1799 diff changeset	2145	"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	2146	is added to the end. If the index is not valid nil is returned;
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2147	otherwise the new created item is returned."
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2148
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2149	\|max item\|
dce33f8bb806 intitial checkin ca parents: diff changeset	2150
dce33f8bb806 intitial checkin ca parents: diff changeset	2151	max := (items size) + 1.
dce33f8bb806 intitial checkin ca parents: diff changeset	2152
dce33f8bb806 intitial checkin ca parents: diff changeset	2153	anIndexOrNil notNil ifTrue:[
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2154	(anIndexOrNil < 1 or:[anIndexOrNil > max]) ifTrue:[
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2155	^ nil
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2156	]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2157	].
dce33f8bb806 intitial checkin ca parents: diff changeset	2158	items isNil ifTrue:[
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2159	items := OrderedCollection new
1151 199863d6a463 items: convert Array to OrderedCollection Claus Gittinger <cg@exept.de> parents: 1137 diff changeset	2160	] ifFalse:[
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2161	items := items asOrderedCollection
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2162	].
dce33f8bb806 intitial checkin ca parents: diff changeset	2163	item := Item in:self.
dce33f8bb806 intitial checkin ca parents: diff changeset	2164
dce33f8bb806 intitial checkin ca parents: diff changeset	2165	(anIndexOrNil isNil or:[anIndexOrNil == max]) ifTrue:[
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2166	items add:item
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2167	] ifFalse:[
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2168	items add:item beforeIndex:anIndexOrNil
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2169	].
dce33f8bb806 intitial checkin ca parents: diff changeset	2170	^ item
dce33f8bb806 intitial checkin ca parents: diff changeset	2171	!
dce33f8bb806 intitial checkin ca parents: diff changeset	2172
dce33f8bb806 intitial checkin ca parents: diff changeset	2173	remove:stringOrNumber
dce33f8bb806 intitial checkin ca parents: diff changeset	2174	"remove the first item which is assigned to stringOrNumber;
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2175	if found, remove and return it"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2176
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2177	\|item\|
dce33f8bb806 intitial checkin ca parents: diff changeset	2178
dce33f8bb806 intitial checkin ca parents: diff changeset	2179	(item := self itemAt:stringOrNumber) notNil ifTrue:[
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2180	items remove:item.
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2181	item destroy.
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2182	items isEmpty ifTrue:[items := nil].
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2183	self mustRearrange.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2184	].
dce33f8bb806 intitial checkin ca parents: diff changeset	2185	^ item
dce33f8bb806 intitial checkin ca parents: diff changeset	2186	!
dce33f8bb806 intitial checkin ca parents: diff changeset	2187
dce33f8bb806 intitial checkin ca parents: diff changeset	2188	removeAll
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2189	"remove all items and submenus"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2190
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2191	self disabledRedrawDo:[
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2192	self selection:nil.
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2193	groupSizes := nil.
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2194	items notNil ifTrue:[
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2195	items copy do:[:el\| el destroy ].
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2196	].
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2197	items := nil
2050 ef5517d7a2d0 do not destroy myself after accepting (for PopUpList) Claus Gittinger <cg@exept.de> parents: 2048 diff changeset	2198	].
ef5517d7a2d0 do not destroy myself after accepting (for PopUpList) Claus Gittinger <cg@exept.de> parents: 2048 diff changeset	2199
ef5517d7a2d0 do not destroy myself after accepting (for PopUpList) Claus Gittinger <cg@exept.de> parents: 2048 diff changeset	2200	"Modified: / 15.11.2001 / 17:02:51 / cg"
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2201	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	2202
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2203	!MenuPanel methodsFor:'change & update'!
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2204
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2205	update:something with:aParameter from:changedObject
498 b4c341497621 bug fixes: ca parents: 475 diff changeset	2206
b4c341497621 bug fixes: ca parents: 475 diff changeset	2207	changedObject == menuHolder ifTrue:[^ self menu:(menuHolder value)].
b4c341497621 bug fixes: ca parents: 475 diff changeset	2208	changedObject == enableChannel ifTrue:[^ self enabled:(enableChannel value)].
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2209
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2210	super update:something with:aParameter from:changedObject
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2211	! !
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2212
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2213	!MenuPanel methodsFor:'converting'!
dce33f8bb806 intitial checkin ca parents: diff changeset	2214
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2215	asMenu
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2216	"convert contents to menu"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2217
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2218	\|menu\|
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2219
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2220	menu := Menu new.
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2221	menu groupSizes:groupSizes.
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2222	self do:[:anItem\| menu addItem:(anItem asMenuItem) ].
2059 c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	2223	^ menu
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2224	!
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2225
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2226	fromSpec:aMenuSpec
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2227	"build from spec"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2228
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2229	\|menu\|
dce33f8bb806 intitial checkin ca parents: diff changeset	2230
dce33f8bb806 intitial checkin ca parents: diff changeset	2231	menu := Menu new.
dce33f8bb806 intitial checkin ca parents: diff changeset	2232	menu fromLiteralArrayEncoding:aMenuSpec.
dce33f8bb806 intitial checkin ca parents: diff changeset	2233	self menu:menu
dce33f8bb806 intitial checkin ca parents: diff changeset	2234	!
dce33f8bb806 intitial checkin ca parents: diff changeset	2235
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2236	menu:aMenu
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2237	"convert to Menu"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2238
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2239	self disabledRedrawDo:[
2232 5784671fb497 when searching for a sumbenus application, do NOT Claus Gittinger <cg@exept.de> parents: 2231 diff changeset	2240	\|menu newItems menuReceiver\|
5784671fb497 when searching for a sumbenus application, do NOT Claus Gittinger <cg@exept.de> parents: 2231 diff changeset	2241
5784671fb497 when searching for a sumbenus application, do NOT Claus Gittinger <cg@exept.de> parents: 2231 diff changeset	2242	self removeAll.
5784671fb497 when searching for a sumbenus application, do NOT Claus Gittinger <cg@exept.de> parents: 2231 diff changeset	2243
5784671fb497 when searching for a sumbenus application, do NOT Claus Gittinger <cg@exept.de> parents: 2231 diff changeset	2244	(menu := aMenu) notNil ifTrue:[
5784671fb497 when searching for a sumbenus application, do NOT Claus Gittinger <cg@exept.de> parents: 2231 diff changeset	2245	(aMenu isCollection) ifTrue:[
5784671fb497 when searching for a sumbenus application, do NOT Claus Gittinger <cg@exept.de> parents: 2231 diff changeset	2246	menu := Menu new.
5784671fb497 when searching for a sumbenus application, do NOT Claus Gittinger <cg@exept.de> parents: 2231 diff changeset	2247	menu fromLiteralArrayEncoding:aMenu.
5784671fb497 when searching for a sumbenus application, do NOT Claus Gittinger <cg@exept.de> parents: 2231 diff changeset	2248	] ifFalse:[
5784671fb497 when searching for a sumbenus application, do NOT Claus Gittinger <cg@exept.de> parents: 2231 diff changeset	2249	menuReceiver := menu receiver.
5784671fb497 when searching for a sumbenus application, do NOT Claus Gittinger <cg@exept.de> parents: 2231 diff changeset	2250	menuReceiver notNil ifTrue:[
2793 2c524ca057f6 * empty log message * penk parents: 2777 diff changeset	2251	self receiver:menuReceiver.
2232 5784671fb497 when searching for a sumbenus application, do NOT Claus Gittinger <cg@exept.de> parents: 2231 diff changeset	2252	]
5784671fb497 when searching for a sumbenus application, do NOT Claus Gittinger <cg@exept.de> parents: 2231 diff changeset	2253	].
5784671fb497 when searching for a sumbenus application, do NOT Claus Gittinger <cg@exept.de> parents: 2231 diff changeset	2254	(newItems := menu menuItems) size > 0 ifTrue:[
5784671fb497 when searching for a sumbenus application, do NOT Claus Gittinger <cg@exept.de> parents: 2231 diff changeset	2255	items := newItems collect:[:ni \|
5784671fb497 when searching for a sumbenus application, do NOT Claus Gittinger <cg@exept.de> parents: 2231 diff changeset	2256	\|i\|
5784671fb497 when searching for a sumbenus application, do NOT Claus Gittinger <cg@exept.de> parents: 2231 diff changeset	2257
5784671fb497 when searching for a sumbenus application, do NOT Claus Gittinger <cg@exept.de> parents: 2231 diff changeset	2258	i:= Item in:self.
5784671fb497 when searching for a sumbenus application, do NOT Claus Gittinger <cg@exept.de> parents: 2231 diff changeset	2259	i menuItem:ni.
5784671fb497 when searching for a sumbenus application, do NOT Claus Gittinger <cg@exept.de> parents: 2231 diff changeset	2260	i.
5784671fb497 when searching for a sumbenus application, do NOT Claus Gittinger <cg@exept.de> parents: 2231 diff changeset	2261	].
5784671fb497 when searching for a sumbenus application, do NOT Claus Gittinger <cg@exept.de> parents: 2231 diff changeset	2262	].
5784671fb497 when searching for a sumbenus application, do NOT Claus Gittinger <cg@exept.de> parents: 2231 diff changeset	2263	self groupSizes:(menu groupSizes).
5784671fb497 when searching for a sumbenus application, do NOT Claus Gittinger <cg@exept.de> parents: 2231 diff changeset	2264	]
1063 08b7ca464437 dont show accelerators for horizontal layouts Claus Gittinger <cg@exept.de> parents: 1054 diff changeset	2265	]
08b7ca464437 dont show accelerators for horizontal layouts Claus Gittinger <cg@exept.de> parents: 1054 diff changeset	2266
08b7ca464437 dont show accelerators for horizontal layouts Claus Gittinger <cg@exept.de> parents: 1054 diff changeset	2267	"Modified: / 8.8.1998 / 02:05:04 / cg"
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2268	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	2269
2681 2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	2270	!MenuPanel methodsFor:'dependents access'!
2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	2271
2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	2272	addDependencies
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2273	"add all dependencies"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2274
2681 2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	2275	self do:[:anItem\| anItem addDependencies ].
2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	2276
2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	2277	menuHolder notNil ifTrue:[menuHolder addDependent:self].
2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	2278	enableChannel notNil ifTrue:[enableChannel addDependent:self].
2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	2279	!
2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	2280
2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	2281	removeDependencies
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2282	"remove all dependencies"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2283
2681 2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	2284	self do:[:anItem\| anItem removeDependencies ].
2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	2285
2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	2286	menuHolder notNil ifTrue:[menuHolder removeDependent:self].
2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	2287	enableChannel notNil ifTrue:[enableChannel removeDependent:self].
2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	2288	! !
2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	2289
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2290	!MenuPanel methodsFor:'drawing'!
dce33f8bb806 intitial checkin ca parents: diff changeset	2291
dce33f8bb806 intitial checkin ca parents: diff changeset	2292	disabledRedrawDo:aBlock
dce33f8bb806 intitial checkin ca parents: diff changeset	2293	"evaluate a block without redrawing within the block; after processing
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2294	of the block a redraw might be performed"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2295
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2296	\|state\|
dce33f8bb806 intitial checkin ca parents: diff changeset	2297
dce33f8bb806 intitial checkin ca parents: diff changeset	2298	state := mustRearrange.
dce33f8bb806 intitial checkin ca parents: diff changeset	2299	mustRearrange := true.
dce33f8bb806 intitial checkin ca parents: diff changeset	2300	aBlock value.
dce33f8bb806 intitial checkin ca parents: diff changeset	2301	mustRearrange := state.
dce33f8bb806 intitial checkin ca parents: diff changeset	2302	self mustRearrange
dce33f8bb806 intitial checkin ca parents: diff changeset	2303	!
dce33f8bb806 intitial checkin ca parents: diff changeset	2304
1690 38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2305	drawButtonEdgesFor:anItem level:aLevel
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2306	\|layout\|
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2307
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2308	aLevel ~~ 0 ifTrue:[
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2309	layout := anItem layout.
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2310
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2311	styleSheet is3D ifFalse:[
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2312	self displayRectangle:layout.
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2313	] ifTrue:[
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2314	self drawEdgesForX:(layout left)
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2315	y:(layout top)
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2316	width:(layout width)
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2317	height:(layout height)
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2318	level:aLevel
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	2319	shadow:(self buttonShadowColor)
93426020ceed * empty log message * ca parents: 2216 diff changeset	2320	light:(self buttonLightColor)
93426020ceed * empty log message * ca parents: 2216 diff changeset	2321	halfShadow:(self buttonHalfShadowColor)
93426020ceed * empty log message * ca parents: 2216 diff changeset	2322	halfLight:(self buttonHalfLightColor)
93426020ceed * empty log message * ca parents: 2216 diff changeset	2323	style:(self buttonEdgeStyle)
1690 38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2324	]
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2325	]
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2326	!
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2327
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2328	drawItemsX:x y:y width:w height:h
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2329	"redraw items and groups in a damage"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2330
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2331	\|isVertical item layout prevClip
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2332	x1 "{ Class:SmallInteger }"
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2333	x2 "{ Class:SmallInteger }"
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2334	y1 "{ Class:SmallInteger }"
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2335	y2 "{ Class:SmallInteger }"
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2336	start "{ Class:SmallInteger }"
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2337	stop "{ Class:SmallInteger }"
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2338	size "{ Class:SmallInteger }"
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2339	groupDivInset "{ Class:SmallInteger }"
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2340	\|
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2341
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2342	size := items size.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2343	isVertical := self verticalLayout.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2344
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2345	isVertical ifTrue:[
2064 0e0d1fe431fb checkin from browser Claus Gittinger <cg@exept.de> parents: 2063 diff changeset	2346	start := items findFirst:[:el\| \|l\| l := el layout. l notNil and:[l bottom > y]].
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2347	start == 0 ifTrue:[ ^ self ].
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2348	y1 := y + h.
2064 0e0d1fe431fb checkin from browser Claus Gittinger <cg@exept.de> parents: 2063 diff changeset	2349	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	2350	startingAt:(start + 1).
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2351	] ifFalse:[
2064 0e0d1fe431fb checkin from browser Claus Gittinger <cg@exept.de> parents: 2063 diff changeset	2352	start := items findFirst:[:el\| \|l\| l := el layout. l notNil and:[l right > x ]].
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2353	start == 0 ifTrue:[ ^ self ].
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2354	x1 := x + w.
2064 0e0d1fe431fb checkin from browser Claus Gittinger <cg@exept.de> parents: 2063 diff changeset	2355	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	2356	startingAt:(start + 1).
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2357	].
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2358	stop == 0 ifTrue:[stop := size] ifFalse:[stop := stop - 1].
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2359
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	2360	(groupSizes size ~~ 0 and:[showGroupDivider]) ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	2361	groupDivInset := self groupDividerSize // 2.
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2362
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2363	groupDivInset ~~ 0 ifTrue:[
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2364	(start ~~ 1 and:[self hasGroupDividerAt:(start-1)]) ifTrue:[
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2365	start := start - 1
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2366	]
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2367	].
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2368	] ifFalse:[
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2369	groupDivInset := 0
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2370	].
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2371
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2372	prevClip := clipRect.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2373	self clippingRectangle:(Rectangle left:x top:y width:w height:h).
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2374
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2375	start to:stop do:[:i\|
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2376	item := items at:i.
2485 b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	2377	item draw.
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2378
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2379	(groupDivInset ~~ 0 and:[i ~~ size and:[self hasGroupDividerAt:i]]) ifTrue:[
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2380	layout := item layout.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2381
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2382	isVertical ifTrue:[
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2383	x1 := layout left.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2384	x2 := layout right.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2385	y1 := layout bottom + groupDivInset.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2386	y2 := y1.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2387	] ifFalse:[
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2388	y1 := layout top.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2389	y2 := layout bottom.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2390	x1 := layout right + groupDivInset.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2391	x2 := x1.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2392	].
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2393	self paint:shadowColor.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2394	self displayLineFromX:x1 y:y1 toX:x2 y:y2.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2395	self paint:lightColor.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2396
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2397	isVertical ifTrue:[y1 := y1 + 1. y2 := y1 ]
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2398	ifFalse:[x1 := x1 + 1. x2 := x1 ].
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2399
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2400	self displayLineFromX:x1 y:y1 toX:x2 y:y2
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2401	]
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2402	].
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2403	self clippingRectangle:prevClip.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2404	!
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2405
1690 38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2406	drawLabelEdgeFor:anItem selected:isSelected
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2407	\|level layout\|
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2408
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2409	isSelected ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	2410	level := styleSheet at:#'menu.hilightLevel' default:0.
1690 38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2411	] ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	2412	anItem == enteredItem ifTrue:[ level := self enteredLevel ]
93426020ceed * empty log message * ca parents: 2216 diff changeset	2413	ifFalse:[ level := 0 ]
1690 38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2414	].
1081 fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	2415
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	2416	level ~~ 0 ifTrue:[
1690 38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2417	layout := anItem layout.
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2418
1691 8e1a9d7a298e bugfix in drawLableEdge... ca parents: 1690 diff changeset	2419	self drawEdgesForX:(layout left)
8e1a9d7a298e bugfix in drawLableEdge... ca parents: 1690 diff changeset	2420	y:(layout top)
8e1a9d7a298e bugfix in drawLableEdge... ca parents: 1690 diff changeset	2421	width:(layout width)
8e1a9d7a298e bugfix in drawLableEdge... ca parents: 1690 diff changeset	2422	height:(layout height)
1690 38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2423	level:level
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2424	].
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2425	!
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2426
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2427	drawScrollerAt:aDirection bounds:bounds
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2428	"draw a scroller"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2429
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2430	\|scrolling icon level x y w h\|
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2431
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2432	x := bounds left.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2433	y := bounds top.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2434	w := bounds width.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2435	h := bounds height.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2436
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	2437	scrolling := self scrollActivity.
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2438
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2439	(scrolling activeMenu == self and:[scrolling direction == aDirection]) ifTrue:[
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2440	level := -2
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2441	] ifFalse:[
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2442	level := 1
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2443	].
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2444
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2445	level ~~ 0 ifTrue:[
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2446	self drawEdgesForX:x y:y width:w height:h level:level.
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2447	].
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2448	icon := scrolling iconAt:aDirection on:self.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2449
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2450	icon displayOn:self x:(x + (w - icon width // 2))
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2451	y:(y + (h - icon height // 2)).
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2452	!
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2453
1690 38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2454	invalidateItem:anItem repairNow:aBool
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2455	"an item changed; invalidate the items layout"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2456
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2457	\|layout\|
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2458
1690 38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2459	(mustRearrange not and:[shown]) ifTrue:[
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2460	layout := anItem layout.
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2461
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2462	(layout bottom > margin and:[layout top < (height - margin)]) ifTrue:[
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2463	self invalidate:(layout copy insetBy:-1) repairNow:aBool
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2464	]
1728 fc0bd6482feb kludge redraw bug fix Claus Gittinger <cg@exept.de> parents: 1727 diff changeset	2465	].
fc0bd6482feb kludge redraw bug fix Claus Gittinger <cg@exept.de> parents: 1727 diff changeset	2466
fc0bd6482feb kludge redraw bug fix Claus Gittinger <cg@exept.de> parents: 1727 diff changeset	2467	"Modified: / 29.2.2000 / 11:28:59 / cg"
746 bd252bbe276f better drawing routine for button behavior tz parents: 739 diff changeset	2468	!
bd252bbe276f better drawing routine for button behavior tz parents: 739 diff changeset	2469
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2470	mustRearrange
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2471	"force rearrange (i.e. set the rearrange flag)"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2472
2080 f37673e44158 Fix rearrangeItem stuff Stefan Vogel <sv@exept.de> parents: 2079 diff changeset	2473	mustRearrange ifFalse:[
2659 3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	2474	mustRearrange := true.
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	2475	self invalidate "/ RepairNow:true
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2476	]
590 3177528b5f95 checkin from browser Claus Gittinger <cg@exept.de> parents: 587 diff changeset	2477
911 6b1ad8b039c5 no, repairNow should not be needed here Claus Gittinger <cg@exept.de> parents: 910 diff changeset	2478	"Modified: / 6.6.1998 / 19:51:07 / cg"
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2479	!
dce33f8bb806 intitial checkin ca parents: diff changeset	2480
710 4453e463ff16 add new feature: ca parents: 709 diff changeset	2481	rearrangeGroups
3126 8dca3b01f1db new startGroup value: #conditionalRight Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	2482	"implements the groupIdentifier #right/#conditionalRight in a horizontal menu"
8dca3b01f1db new startGroup value: #conditionalRight Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	2483
8dca3b01f1db new startGroup value: #conditionalRight Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	2484	<resource: #style (#'menuPanel.ignoreConditionalStartGroupRight')>
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2485
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2486	\|layout point
710 4453e463ff16 add new feature: ca parents: 709 diff changeset	2487	dltX "{ Class:SmallInteger }"
4453e463ff16 add new feature: ca parents: 709 diff changeset	2488	start "{ Class:SmallInteger }"
3126 8dca3b01f1db new startGroup value: #conditionalRight Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	2489	start2 "{ Class:SmallInteger }"
710 4453e463ff16 add new feature: ca parents: 709 diff changeset	2490	\|
4453e463ff16 add new feature: ca parents: 709 diff changeset	2491
4453e463ff16 add new feature: ca parents: 709 diff changeset	2492	(self isPopUpView or:[self verticalLayout]) ifTrue:[
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2493	^ self
710 4453e463ff16 add new feature: ca parents: 709 diff changeset	2494	].
4453e463ff16 add new feature: ca parents: 709 diff changeset	2495
4453e463ff16 add new feature: ca parents: 709 diff changeset	2496	layout := items last layout.
4453e463ff16 add new feature: ca parents: 709 diff changeset	2497
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2498	(dltX := width - margin - layout right) <= 0 ifTrue:[
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2499	^ self "/ no free space
710 4453e463ff16 add new feature: ca parents: 709 diff changeset	2500	].
3125 25a0bdbe879a startGroup-right is ignorable via styleSheet Claus Gittinger <cg@exept.de> parents: 3122 diff changeset	2501
710 4453e463ff16 add new feature: ca parents: 709 diff changeset	2502	start := items findFirst:[:anItem\| anItem startGroup == #right ].
3127 9b522d37eca0 new startGroup value: #conditionalRight Claus Gittinger <cg@exept.de> parents: 3126 diff changeset	2503	"/ The behavior of #conditionalRight is controlled by the styleSheet.
9b522d37eca0 new startGroup value: #conditionalRight Claus Gittinger <cg@exept.de> parents: 3126 diff changeset	2504	"/ If menuPanel.ignoreConditionalStartGroupRight is true, it is ignored.
9b522d37eca0 new startGroup value: #conditionalRight Claus Gittinger <cg@exept.de> parents: 3126 diff changeset	2505	"/ otherwise, it is treated like #right.
9b522d37eca0 new startGroup value: #conditionalRight Claus Gittinger <cg@exept.de> parents: 3126 diff changeset	2506	"/ This allows for groups to be specified as #right under motif, but
9b522d37eca0 new startGroup value: #conditionalRight Claus Gittinger <cg@exept.de> parents: 3126 diff changeset	2507	"/ non-right under win32 (as is used woth the help-menus).
3126 8dca3b01f1db new startGroup value: #conditionalRight Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	2508	(styleSheet at:#'menuPanel.ignoreConditionalStartGroupRight' ifAbsent:false) ifTrue:[
8dca3b01f1db new startGroup value: #conditionalRight Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	2509	"/ #conditionalRight is treated like #right
8dca3b01f1db new startGroup value: #conditionalRight Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	2510	start2 := items findFirst:[:anItem\| anItem startGroup == #conditionalRight ].
8dca3b01f1db new startGroup value: #conditionalRight Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	2511	start2 ~~ 0 ifTrue:[
8dca3b01f1db new startGroup value: #conditionalRight Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	2512	start := start min:start2.
8dca3b01f1db new startGroup value: #conditionalRight Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	2513	].
8dca3b01f1db new startGroup value: #conditionalRight Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	2514	].
710 4453e463ff16 add new feature: ca parents: 709 diff changeset	2515	start == 0 ifTrue:[
3125 25a0bdbe879a startGroup-right is ignorable via styleSheet Claus Gittinger <cg@exept.de> parents: 3122 diff changeset	2516	^ self "/ no right-group item detected
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2517	].
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2518	point := dltX @ 0.
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2519
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2520	"/ move items layout to right
710 4453e463ff16 add new feature: ca parents: 709 diff changeset	2521	items from:start do:[:anItem\|
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2522	anItem isVisible ifTrue:[
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2523	anItem layout moveBy:point.
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2524	]
710 4453e463ff16 add new feature: ca parents: 709 diff changeset	2525	].
3125 25a0bdbe879a startGroup-right is ignorable via styleSheet Claus Gittinger <cg@exept.de> parents: 3122 diff changeset	2526
3127 9b522d37eca0 new startGroup value: #conditionalRight Claus Gittinger <cg@exept.de> parents: 3126 diff changeset	2527	"Modified: / 16-10-2006 / 13:05:15 / cg"
710 4453e463ff16 add new feature: ca parents: 709 diff changeset	2528	!
4453e463ff16 add new feature: ca parents: 709 diff changeset	2529
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2530	rearrangeItems
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2531	"recompute the layout of each item
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2532	!!!!!! changes have influence on method #preferredExtentOfItems !!!!!!"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2533
1791 bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	2534	\|isVertical extent isPopUpMenu
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	2535	x "{ Class:SmallInteger }"
93426020ceed * empty log message * ca parents: 2216 diff changeset	2536	y "{ Class:SmallInteger }"
93426020ceed * empty log message * ca parents: 2216 diff changeset	2537	x0 "{ Class:SmallInteger }"
93426020ceed * empty log message * ca parents: 2216 diff changeset	2538	y0 "{ Class:SmallInteger }"
93426020ceed * empty log message * ca parents: 2216 diff changeset	2539	x1 "{ Class:SmallInteger }"
93426020ceed * empty log message * ca parents: 2216 diff changeset	2540	y1 "{ Class:SmallInteger }"
93426020ceed * empty log message * ca parents: 2216 diff changeset	2541	size "{ Class:SmallInteger }"
93426020ceed * empty log message * ca parents: 2216 diff changeset	2542	insetX "{ Class:SmallInteger }"
93426020ceed * empty log message * ca parents: 2216 diff changeset	2543	insetY "{ Class:SmallInteger }"
93426020ceed * empty log message * ca parents: 2216 diff changeset	2544	labelInsetX "{ Class:SmallInteger }"
93426020ceed * empty log message * ca parents: 2216 diff changeset	2545	labelInsetY "{ Class:SmallInteger }"
93426020ceed * empty log message * ca parents: 2216 diff changeset	2546	itemMargin "{ Class:SmallInteger }"
93426020ceed * empty log message * ca parents: 2216 diff changeset	2547	groupDividerSize "{ Class:SmallInteger }"
710 4453e463ff16 add new feature: ca parents: 709 diff changeset	2548	\|
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2549	(mustRearrange and:[(size := items size) ~~ 0]) ifFalse:[
1478 38f08dec8e34 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	2550	mustRearrange := false.
2433 49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	2551	^ self
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2552	].
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	2553
2080 f37673e44158 Fix rearrangeItem stuff Stefan Vogel <sv@exept.de> parents: 2079 diff changeset	2554	"/ DON'T SET THIS!!
f37673e44158 Fix rearrangeItem stuff Stefan Vogel <sv@exept.de> parents: 2079 diff changeset	2555	"/ item layout: below of first item -> item invalidate
f37673e44158 Fix rearrangeItem stuff Stefan Vogel <sv@exept.de> parents: 2079 diff changeset	2556	"/ -> menuPanel invalidateItem:repairDamage:
f37673e44158 Fix rearrangeItem stuff Stefan Vogel <sv@exept.de> parents: 2079 diff changeset	2557	"/ -> invalidate:rapairDamage:
f37673e44158 Fix rearrangeItem stuff Stefan Vogel <sv@exept.de> parents: 2079 diff changeset	2558	"/ -> redrawX:y:width:height:
f37673e44158 Fix rearrangeItem stuff Stefan Vogel <sv@exept.de> parents: 2079 diff changeset	2559	"/ tries to get uninitialized layout from second item.
f37673e44158 Fix rearrangeItem stuff Stefan Vogel <sv@exept.de> parents: 2079 diff changeset	2560	"/ This happens in a modal debugger!!
f37673e44158 Fix rearrangeItem stuff Stefan Vogel <sv@exept.de> parents: 2079 diff changeset	2561	"/ mustRearrange := false.
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	2562	isVertical := self verticalLayout.
93426020ceed * empty log message * ca parents: 2216 diff changeset	2563	groupDividerSize := self groupDividerSize.
93426020ceed * empty log message * ca parents: 2216 diff changeset	2564	isPopUpMenu := self isPopUpView.
1791 bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	2565
bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	2566	isPopUpMenu ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	2567	labelInsetX := labelInsetY := self enteredLevel abs.
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2568	] ifTrue:[
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	2569	labelInsetX := labelInsetY := 0
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2570	].
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2571
2729 d28bc8243494 Do not set maxExtent (to the Screen size) in StandartSystemView. Stefan Vogel <sv@exept.de> parents: 2715 diff changeset	2572	(isPopUpMenu or:[explicitExtent ~~ true]) ifTrue:[ \|saveExtent maxExtent extentToSet\|
d28bc8243494 Do not set maxExtent (to the Screen size) in StandartSystemView. Stefan Vogel <sv@exept.de> parents: 2715 diff changeset	2573	extent := self preferredExtent.
d28bc8243494 Do not set maxExtent (to the Screen size) in StandartSystemView. Stefan Vogel <sv@exept.de> parents: 2715 diff changeset	2574
d28bc8243494 Do not set maxExtent (to the Screen size) in StandartSystemView. Stefan Vogel <sv@exept.de> parents: 2715 diff changeset	2575	isPopUpMenu ifTrue:[
d28bc8243494 Do not set maxExtent (to the Screen size) in StandartSystemView. Stefan Vogel <sv@exept.de> parents: 2715 diff changeset	2576	maxExtent := self maxExtent.
d28bc8243494 Do not set maxExtent (to the Screen size) in StandartSystemView. Stefan Vogel <sv@exept.de> parents: 2715 diff changeset	2577	maxExtent notNil ifTrue:[
d28bc8243494 Do not set maxExtent (to the Screen size) in StandartSystemView. Stefan Vogel <sv@exept.de> parents: 2715 diff changeset	2578	extentToSet := isVertical ifTrue:[extent x @ (extent y min:(maxExtent y))]
d28bc8243494 Do not set maxExtent (to the Screen size) in StandartSystemView. Stefan Vogel <sv@exept.de> parents: 2715 diff changeset	2579	ifFalse:[(extent x min:(maxExtent x)) @ extent y].
d28bc8243494 Do not set maxExtent (to the Screen size) in StandartSystemView. Stefan Vogel <sv@exept.de> parents: 2715 diff changeset	2580	].
d28bc8243494 Do not set maxExtent (to the Screen size) in StandartSystemView. Stefan Vogel <sv@exept.de> parents: 2715 diff changeset	2581	] ifFalse:[
d28bc8243494 Do not set maxExtent (to the Screen size) in StandartSystemView. Stefan Vogel <sv@exept.de> parents: 2715 diff changeset	2582	extent := extentToSet := isVertical ifTrue:[extent x @ 1.0] ifFalse:[1.0 @ extent y].
1478 38f08dec8e34 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	2583	].
2729 d28bc8243494 Do not set maxExtent (to the Screen size) in StandartSystemView. Stefan Vogel <sv@exept.de> parents: 2715 diff changeset	2584	self extent:extentToSet.
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2585	] ifFalse:[
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2586	extent := self computeExtent
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2587	].
1082 382324ddce3f support and additional buttonSpacing (for normal and win95 styles) Claus Gittinger <cg@exept.de> parents: 1081 diff changeset	2588
1093 7cb44303b016 margin fixes Claus Gittinger <cg@exept.de> parents: 1090 diff changeset	2589	x := y := margin.
7cb44303b016 margin fixes Claus Gittinger <cg@exept.de> parents: 1090 diff changeset	2590
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2591	isVertical ifFalse:[
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2592	y0 := margin.
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2593	y1 := extent y - margin.
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2594
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2595	items keysAndValuesDo:[:anIndex :el\|
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2596	el isVisible ifFalse:[
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2597	el layout:(Rectangle left:x top:y0 right:x bottom:y1)
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2598	] ifTrue:[
1478 38f08dec8e34 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	2599	el isButton ifTrue:[
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	2600	insetX := buttonInsetX.
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	2601	insetY := buttonInsetY.
2062 31ba9af25394 checkin from browser Claus Gittinger <cg@exept.de> parents: 2061 diff changeset	2602	] ifFalse:[
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	2603	insetX := labelInsetX.
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	2604	insetY := labelInsetY.
1478 38f08dec8e34 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	2605	].
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	2606	x0 := x + insetX.
2171 90a7393eb53c * empty log message * Claus Gittinger <cg@exept.de> parents: 2170 diff changeset	2607	x1 := x0 + (el preferredExtent x).
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	2608	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	2609	x := x1 + insetX.
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2610
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2611	size ~~ anIndex ifTrue:[
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2612	(self hasGroupDividerAt:anIndex) ifTrue:[
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2613	x := x + groupDividerSize
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2614	] ifFalse:[
2433 49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	2615	el needsItemSpaceWhenDrawing ifTrue:[
1723 f633725a0ace use itemSpace only for horizontal menus and between labeled items ca parents: 1719 diff changeset	2616	x := x + itemSpace
f633725a0ace use itemSpace only for horizontal menus and between labeled items ca parents: 1719 diff changeset	2617	]
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2618	]
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2619	]
1478 38f08dec8e34 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	2620	].
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2621	].
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2622	] ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	2623	itemMargin := self itemMargin.
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2624	x0 := margin.
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	2625	x1 := extent x - margin - itemMargin. "/ -1
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2626
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2627	items keysAndValuesDo:[:anIndex :el\|
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2628	el isVisible ifFalse:[
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2629	el layout:(Rectangle left:x0 top:y right:x1 bottom:y)
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2630	] ifTrue:[
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2631	el isButton ifTrue:[
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	2632	insetX := buttonInsetX.
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	2633	insetY := buttonInsetY.
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2634	] ifFalse:[
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	2635	insetX := labelInsetX.
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	2636	insetY := labelInsetY.
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2637	].
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	2638	y0 := y + insetY.
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2639	y1 := y0 + el preferredExtent y.
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	2640	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	2641	y := y1 + insetY.
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2642
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2643	size ~~ anIndex ifTrue:[
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2644	(self hasGroupDividerAt:anIndex) ifTrue:[
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2645	y := y + groupDividerSize
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2646	]
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2647	]
1478 38f08dec8e34 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	2648	]
38f08dec8e34 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	2649	]
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2650	].
710 4453e463ff16 add new feature: ca parents: 709 diff changeset	2651	self rearrangeGroups.
2048 ba472f3f46c7 code cleanup Claus Gittinger <cg@exept.de> parents: 2047 diff changeset	2652	selection notNil ifTrue:[self makeItemVisible:selection].
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2653	mustRearrange := false.
2048 ba472f3f46c7 code cleanup Claus Gittinger <cg@exept.de> parents: 2047 diff changeset	2654
ba472f3f46c7 code cleanup Claus Gittinger <cg@exept.de> parents: 2047 diff changeset	2655	"Modified: / 13.11.2001 / 20:17:21 / cg"
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2656	!
dce33f8bb806 intitial checkin ca parents: diff changeset	2657
1217 c6a4c536aa8c care for items which change visibility via Claus Gittinger <cg@exept.de> parents: 1212 diff changeset	2658	rearrangeItemsIfItemVisibilityChanged
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2659	"check for items which can change its visibility;
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2660	if at least one item exists, rearrange all items"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2661
1464 3070de4c8b88 checkin from browser Claus Gittinger <cg@exept.de> parents: 1459 diff changeset	2662	items isNil ifTrue:[^ self].
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2663
1217 c6a4c536aa8c care for items which change visibility via Claus Gittinger <cg@exept.de> parents: 1212 diff changeset	2664	items do:[:item \|
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2665	item canChangeVisibility ifTrue:[
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2666	mustRearrange := true.
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2667	self rearrangeItems.
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2668	^ self
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2669	].
1217 c6a4c536aa8c care for items which change visibility via Claus Gittinger <cg@exept.de> parents: 1212 diff changeset	2670	]
c6a4c536aa8c care for items which change visibility via Claus Gittinger <cg@exept.de> parents: 1212 diff changeset	2671	!
c6a4c536aa8c care for items which change visibility via Claus Gittinger <cg@exept.de> parents: 1212 diff changeset	2672
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2673	redrawX:x y:y width:w height:h
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2674	"redraw a damage"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2675
2860 300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	2676	\|y0 y1 x0 x1\|
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2677
710 4453e463ff16 add new feature: ca parents: 709 diff changeset	2678	(shown and:[w ~~ 0]) ifFalse:[^ self].
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2679
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2680	mustRearrange ifTrue:[
2569 bfe9e33b545e not ifTrue -> ifFalse Claus Gittinger <cg@exept.de> parents: 2550 diff changeset	2681	self isPopUpView ifFalse:[explicitExtent := true].
1387 ad7a920fdf61 less flicker by using a clipRect in redraw Claus Gittinger <cg@exept.de> parents: 1382 diff changeset	2682	self rearrangeItems.
2569 bfe9e33b545e not ifTrue -> ifFalse Claus Gittinger <cg@exept.de> parents: 2550 diff changeset	2683	self invalidate.
bfe9e33b545e not ifTrue -> ifFalse Claus Gittinger <cg@exept.de> parents: 2550 diff changeset	2684	^ self
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2685	].
2888 095d9fb3e846 * empty log message * Claus Gittinger <cg@exept.de> parents: 2884 diff changeset	2686	"/ self paint:(self viewBackground).
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2687	self clearRectangleX:x y:y width:w height:h.
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2688
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2689	items size == 0 ifTrue:[
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2690	^ self
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2691	].
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2692	y0 := y.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2693	y1 := y + h.
2018 2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	2694	x0 := x.
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	2695	x1 := x + w.
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2696
2860 300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	2697	self isPopUpView ifFalse:[ \|mustDraw prvBound nxtBound\|
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	2698	self hasScrollers ifTrue:[
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	2699	(self hasScrollerAt:#PREV) ifTrue:[
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	2700	prvBound := self scrollerBoundsAt:#PREV.
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	2701
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	2702	self verticalLayout ifTrue:[
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	2703	(mustDraw := (prvBound bottom > y)) ifTrue:[
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	2704	y0 := prvBound bottom.
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	2705	].
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	2706	] ifFalse:[
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	2707	(mustDraw := (prvBound right > x)) ifTrue:[
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	2708	x0 := prvBound right.
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	2709	].
2018 2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	2710	].
2860 300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	2711	mustDraw ifTrue:[
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	2712	self drawScrollerAt:#PREV bounds:prvBound.
2018 2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	2713	].
2052 61367c7a47aa * empty log message * Claus Gittinger <cg@exept.de> parents: 2051 diff changeset	2714	].
2860 300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	2715
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	2716	(self hasScrollerAt:#NEXT) ifTrue:[
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	2717	nxtBound := self scrollerBoundsAt:#NEXT.
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	2718
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	2719	self verticalLayout ifTrue:[
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	2720	(mustDraw := (nxtBound top < y1)) ifTrue:[
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	2721	y1 := nxtBound top.
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	2722	]
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	2723	] ifFalse:[
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	2724	(mustDraw := (nxtBound left < x1)) ifTrue:[
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	2725	x1 := nxtBound left.
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	2726	]
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	2727	].
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	2728	mustDraw ifTrue:[
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	2729	self drawScrollerAt:#NEXT bounds:nxtBound.
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	2730	].
2052 61367c7a47aa * empty log message * Claus Gittinger <cg@exept.de> parents: 2051 diff changeset	2731	].
1387 ad7a920fdf61 less flicker by using a clipRect in redraw Claus Gittinger <cg@exept.de> parents: 1382 diff changeset	2732	].
2860 300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	2733	self menuAdornmentAt:#lastDrawnScrollerNextBounds put:nxtBound.
1387 ad7a920fdf61 less flicker by using a clipRect in redraw Claus Gittinger <cg@exept.de> parents: 1382 diff changeset	2734	].
2018 2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	2735	(y1 > y0 and:[x1 > x0]) ifTrue:[
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	2736	self drawItemsX:x0 y:y0 width:(x1 - x0) height:(y1 - y0)
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2737	].
2052 61367c7a47aa * empty log message * Claus Gittinger <cg@exept.de> parents: 2051 diff changeset	2738
61367c7a47aa * empty log message * Claus Gittinger <cg@exept.de> parents: 2051 diff changeset	2739	"Modified: / 15.11.2001 / 20:57:32 / cg"
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2740	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	2741
dce33f8bb806 intitial checkin ca parents: diff changeset	2742	!MenuPanel methodsFor:'enumerting & searching'!
dce33f8bb806 intitial checkin ca parents: diff changeset	2743
dce33f8bb806 intitial checkin ca parents: diff changeset	2744	collect:aOneArgBlock
dce33f8bb806 intitial checkin ca parents: diff changeset	2745	"evaluate the argument, aOneArgBlock for every item in the menuPanel
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2746	and return a collection of the results"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2747
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2748	items notNil ifTrue:[^ items collect:aOneArgBlock ].
2059 c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	2749	^ nil
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2750	!
dce33f8bb806 intitial checkin ca parents: diff changeset	2751
dce33f8bb806 intitial checkin ca parents: diff changeset	2752	do:aOneArgBlock
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2753	"evaluate the argument, aOneArgBlock for every item in the menuPanel."
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2754
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2755	items notNil ifTrue:[ items do:aOneArgBlock ].
dce33f8bb806 intitial checkin ca parents: diff changeset	2756	!
dce33f8bb806 intitial checkin ca parents: diff changeset	2757
dce33f8bb806 intitial checkin ca parents: diff changeset	2758	findFirst:aOneArgBlock
dce33f8bb806 intitial checkin ca parents: diff changeset	2759	"find the first item, for which evaluation of the argument, aOneArgBlock
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2760	returns true; return its index or 0 if none detected."
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2761
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2762	items notNil ifTrue:[ ^ items findFirst:aOneArgBlock ].
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2763	^ 0
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2764	!
dce33f8bb806 intitial checkin ca parents: diff changeset	2765
dce33f8bb806 intitial checkin ca parents: diff changeset	2766	findLast:aOneArgBlock
dce33f8bb806 intitial checkin ca parents: diff changeset	2767	"find the last item, for which evaluation of the argument, aOneArgBlock
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2768	returns true; return its index or 0 if none detected."
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2769
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2770	items notNil ifTrue:[ ^ items findLast:aOneArgBlock ].
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2771	^ 0
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2772	!
dce33f8bb806 intitial checkin ca parents: diff changeset	2773
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2774	indexOf:something
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2775	"returns index of an item assigned to an index, nameKey, textLabel or value if symbol.
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2776	If no item match 0 is returned. No range checks are performed on a number argument"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2777
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2778	\|i v\|
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2779
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2780	something isNumber ifTrue:[ ^ something ].
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2781	something isNil ifTrue:[ ^ 0 ].
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2782
1218 6ce43fcb2603 code cleanup Claus Gittinger <cg@exept.de> parents: 1217 diff changeset	2783	i := self findFirst:[:el \| (el nameKey = something) or: [el = something]].
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2784
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2785	i ~~ 0 ifTrue:[
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2786	^ i
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2787	].
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2788
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2789	something isSymbol ifTrue:[
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2790	i := self findFirst:[:el\|
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2791	v := el value.
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2792	v isSymbol and:[v == something]
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2793	].
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2794	i ~~ 0 ifTrue:[
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2795	^ i
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2796	]
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2797	].
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2798
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2799	(something respondsTo:#string) ifTrue:[
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2800	v := something string.
1218 6ce43fcb2603 code cleanup Claus Gittinger <cg@exept.de> parents: 1217 diff changeset	2801	^ self findFirst:[:el \| el textLabel = v].
6ce43fcb2603 code cleanup Claus Gittinger <cg@exept.de> parents: 1217 diff changeset	2802	].
6ce43fcb2603 code cleanup Claus Gittinger <cg@exept.de> parents: 1217 diff changeset	2803	^ 0
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2804	!
dce33f8bb806 intitial checkin ca parents: diff changeset	2805
706 d716edbdbe47 show separators bug cleaned tz parents: 689 diff changeset	2806	indexOfItem:anItem
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2807	"returns the index of the item or 0"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2808
706 d716edbdbe47 show separators bug cleaned tz parents: 689 diff changeset	2809	^ items notNil ifTrue:[items identityIndexOf:anItem] ifFalse:[0]
d716edbdbe47 show separators bug cleaned tz parents: 689 diff changeset	2810	!
d716edbdbe47 show separators bug cleaned tz parents: 689 diff changeset	2811
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2812	keysAndValuesDo:aTwoArgBlock
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2813	"evaluate the argument, aTwoArgBlock for every item in the menuPanel."
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2814
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2815	items notNil ifTrue:[ items keysAndValuesDo:aTwoArgBlock ].
dce33f8bb806 intitial checkin ca parents: diff changeset	2816	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	2817
dce33f8bb806 intitial checkin ca parents: diff changeset	2818	!MenuPanel methodsFor:'event handling'!
dce33f8bb806 intitial checkin ca parents: diff changeset	2819
dce33f8bb806 intitial checkin ca parents: diff changeset	2820	buttonMotion:state x:x y:y
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2821	"open or close the corresponding submenu"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2822
2046 012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	2823	\|menue motionPoint translatedPoint sensor\|
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2824
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	2825	self scrollActivity isActive ifTrue:[
2347 9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	2826	^ self
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2827	].
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2828
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2829	sensor := self sensor.
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2830
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2831	(sensor isNil or:[sensor hasButtonMotionEventFor:nil]) ifTrue:[
2347 9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	2832	^ self
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2833	].
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2834	menue := self detectGrabMenu.
1841 5d01716cc37c implement: triggerOnDown ca parents: 1836 diff changeset	2835
2046 012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	2836	motionPoint := x@y.
012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	2837	translatedPoint := menue translateGrabPoint:motionPoint.
2048 ba472f3f46c7 code cleanup Claus Gittinger <cg@exept.de> parents: 2047 diff changeset	2838	menue handleButtonMotion:state atPoint:translatedPoint.
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2839
2347 9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	2840	hideOnRelease := true.
9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	2841
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2842	(self isPopUpView or:[sensor anyButtonPressed]) ifTrue:[
2347 9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	2843	^ self
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2844	].
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2845
1786 f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	2846	(selection notNil and:[selection visibleSubmenu isNil]) ifTrue:[
2347 9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	2847	"/ 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	2848	(self containsPoint:motionPoint) ifFalse:[
9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	2849	^ self accept:nil
9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	2850	]
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2851	].
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2852
2048 ba472f3f46c7 code cleanup Claus Gittinger <cg@exept.de> parents: 2047 diff changeset	2853	"Modified: / 13.11.2001 / 20:21:49 / cg"
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2854	!
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2855
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2856	buttonPress:button x:x y:y
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2857	"any button pressed; open or close the corresponding submenus"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2858
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2859	\|menu point\|
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2860
2347 9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	2861	hideOnRelease := true.
9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	2862
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	2863	self scrollActivity stop.
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2864	point := x@y.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2865	menu := self detectMenuAtGrabPoint:point.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2866
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2867	menu isNil ifTrue:[
2133 293dadf237ad hide on buttonRelease outside (instead of buttonPress outside) Claus Gittinger <cg@exept.de> parents: 2132 diff changeset	2868	"/ self accept:nil
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2869	] ifFalse:[
2347 9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	2870	point := menu translateGrabPoint:point.
9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	2871	menu handleButtonPressAtPoint:point.
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2872	]
2046 012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	2873
012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	2874	"Modified: / 13.11.2001 / 14:12:32 / cg"
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2875	!
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2876
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2877	buttonRelease:button x:x y:y
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2878	"button release action; accept selection and close all views"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2879
2679 302ab06d7110 * empty log message * Claus Gittinger <cg@exept.de> parents: 2676 diff changeset	2880	\|topMenu dstMenu item srcPoint dstPoint subm hideMenuAndPerformAction
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2881	buttonReleaseTime menuOpenTime\|
2199 61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	2882
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	2883	topMenu := self topMenu.
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	2884	topMenu openDelayed:nil.
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2885
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	2886	self scrollActivity stop ifTrue:[
2255 e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2887	^ self
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2888	].
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2889
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2890	dstMenu := topMenu activeMenu.
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2891
2679 302ab06d7110 * empty log message * Claus Gittinger <cg@exept.de> parents: 2676 diff changeset	2892	hideMenuAndPerformAction := dstMenu selection notNil or:[dstMenu isPopUpView not].
302ab06d7110 * empty log message * Claus Gittinger <cg@exept.de> parents: 2676 diff changeset	2893
302ab06d7110 * empty log message * Claus Gittinger <cg@exept.de> parents: 2676 diff changeset	2894	hideMenuAndPerformAction ifFalse:[
302ab06d7110 * empty log message * Claus Gittinger <cg@exept.de> parents: 2676 diff changeset	2895	hideOnRelease ifTrue:[
302ab06d7110 * empty log message * Claus Gittinger <cg@exept.de> parents: 2676 diff changeset	2896	buttonReleaseTime := Time millisecondClockValue.
302ab06d7110 * empty log message * Claus Gittinger <cg@exept.de> parents: 2676 diff changeset	2897	menuOpenTime := dstMenu mapTime.
302ab06d7110 * empty log message * Claus Gittinger <cg@exept.de> parents: 2676 diff changeset	2898	"/ t := windowGroup lastEvent timeStamp.
302ab06d7110 * empty log message * Claus Gittinger <cg@exept.de> parents: 2676 diff changeset	2899	hideMenuAndPerformAction := (OperatingSystem millisecondTimeDeltaBetween:buttonReleaseTime and:menuOpenTime)
302ab06d7110 * empty log message * Claus Gittinger <cg@exept.de> parents: 2676 diff changeset	2900	> (PopUpMenu maxClickTimeToStayOpen).
302ab06d7110 * empty log message * Claus Gittinger <cg@exept.de> parents: 2676 diff changeset	2901	].
302ab06d7110 * empty log message * Claus Gittinger <cg@exept.de> parents: 2676 diff changeset	2902	].
302ab06d7110 * empty log message * Claus Gittinger <cg@exept.de> parents: 2676 diff changeset	2903
302ab06d7110 * empty log message * Claus Gittinger <cg@exept.de> parents: 2676 diff changeset	2904	hideMenuAndPerformAction ifTrue:[
2255 e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2905	srcPoint := x@y.
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2906
2255 e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2907	( (dstMenu := self detectMenuAtGrabPoint:srcPoint) notNil
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2908	and:[(item := dstMenu selection) notNil]
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2909	) ifTrue:[
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2910	item visibleSubmenu notNil ifTrue:[
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2911	dstMenu selection:nil.
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	(selection isNil and:[self isPopUpView not]) ifTrue:[
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2914	self accept:nil
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2915	].
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2916	^ self
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2917
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2918	].
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2919	subm := item currentSubmenu.
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2920
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	2921	subm notNil ifTrue:[
2255 e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2922	subm shown ifTrue:[^ self].
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2923	"/ test whether any action is assigned to the menu
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2924	"/ if not ignorre accept
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2925	item hasDelayedMenu ifFalse:[^ self].
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2926	"/ handle action defined for the delayed menu
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2927	].
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2928	dstPoint := dstMenu translateGrabPoint:srcPoint.
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2929
2347 9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	2930	(dstMenu itemAtPoint:dstPoint) == dstMenu selection ifFalse:[
2255 e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2931	item := nil
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2932	].
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2933	topMenu acceptItem:item inMenu:dstMenu.
2347 9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	2934	^ self
2255 e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2935	].
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2936
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2937	(selection notNil and:[dstMenu == self]) ifTrue:[
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2938	selection visibleSubmenu notNil ifTrue:[
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2939	^ self
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2940	]
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2941	].
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	2942	self accept:nil.
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2943	].
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2944	!
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2945
2860 300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	2946	handleSizeChanged:how
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	2947	"used to handle the scrollers and groups in a none popUpView
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	2948	"
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	2949	\|layouts damage isVertical scrollBound\|
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	2950
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	2951	(mustRearrange or:[items size == 0 or:[self isPopUpView]]) ifTrue:[
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	2952	^ self
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	2953	].
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	2954	mustRearrange := true.
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	2955
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	2956	shown ifFalse:[
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	2957	^ self
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	2958	].
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	2959	layouts := OrderedCollection new.
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	2960
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	2961	items do:[:el\| \|layout\|
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	2962	(layout := el layout) isNil ifTrue:[
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	2963	self invalidate.
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	2964	^ self.
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	2965	].
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	2966	layouts add:layout.
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	2967	].
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	2968	isVertical := self verticalLayout.
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	2969	scrollBound := self scrollerBoundsAt:#NEXT.
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	2970
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	2971	self rearrangeItems.
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	2972
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	2973	items keysAndValuesDo:[:i :el\| \|newLyt oldLyt\|
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	2974	damage isNil ifTrue:[
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	2975	newLyt := el layout.
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	2976	oldLyt := layouts at:i ifAbsent:newLyt.
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	2977
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	2978	newLyt ~= oldLyt ifTrue:[ \|x y start\|
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	2979	start := 0.
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	2980
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	2981	i > 1 ifTrue:[
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	2982	isVertical ifTrue:[
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	2983	x := 0.
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	2984	y := start := (oldLyt top min:(newLyt top)) min:(height - scrollBound height).
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	2985	] ifFalse:[
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	2986	y := 0.
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	2987	x := start := (oldLyt left min:(newLyt left)) min:(width - scrollBound width).
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	2988	].
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	2989	].
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	2990	start <= 20 ifTrue:[
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	2991	self invalidate.
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	2992	^ self
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	2993	].
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	2994	damage := Rectangle left:x top:y extent:(self extent).
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	2995	].
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	2996	].
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	2997	].
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	2998	damage isNil ifTrue:[
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	2999	damage := scrollBound.
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	3000	].
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	3001	scrollBound := self menuAdornmentAt:#lastDrawnScrollerNextBounds.
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	3002
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	3003	scrollBound notNil ifTrue:[
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	3004	damage := damage merge:scrollBound
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	3005	].
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	3006	self invalidate:damage.
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	3007	!
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	3008
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3009	keyPress:key x:x y:y
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	3010	"any key is pressed"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	3011
2869 3e24a0b78c17 comment Claus Gittinger <cg@exept.de> parents: 2860 diff changeset	3012	<resource: #keyboard (#Escape
3e24a0b78c17 comment Claus Gittinger <cg@exept.de> parents: 2860 diff changeset	3013	#Tab #FocusNext #FocusPrevious
3e24a0b78c17 comment Claus Gittinger <cg@exept.de> parents: 2860 diff changeset	3014	#CursorLeft #CursorRight )>
3e24a0b78c17 comment Claus Gittinger <cg@exept.de> parents: 2860 diff changeset	3015
3e24a0b78c17 comment Claus Gittinger <cg@exept.de> parents: 2860 diff changeset	3016	\|menu menusSuperMenu sensor\|
2251 30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3017
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3018	sensor := self sensor.
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	3019	sensor isNil ifTrue:[^ self].
2251 30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3020
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3021	sensor anyButtonPressed ifTrue:[
2482 13acaaf02528 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 2481 diff changeset	3022	^ self "/ ignored while any button is pressed
2251 30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3023	].
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3024
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	3025	self scrollActivity isActive ifTrue:[
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	3026	key ~~ #Escape ifTrue:[
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	3027	^ self
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	3028	].
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	3029	self scrollActivity stop
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	3030	].
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	3031
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3032	(key == #Tab
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3033	or:[key == #FocusNext
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3034	or:[key == #FocusPrevious]]) ifTrue:[
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3035	self accept:nil.
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	3036	^ super keyPress:key x:x y:y
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3037	].
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3038
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3039	menu := self detectGrabMenu.
2869 3e24a0b78c17 comment Claus Gittinger <cg@exept.de> parents: 2860 diff changeset	3040	menusSuperMenu := menu superMenu.
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3041
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3042	key == #Escape ifTrue:[
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3043	"/ must hide the active menu
2869 3e24a0b78c17 comment Claus Gittinger <cg@exept.de> parents: 2860 diff changeset	3044	(menusSuperMenu notNil and:[menusSuperMenu ~~ self]) ifTrue:[
1703 e127eff742bb bugfix: request focus ca parents: 1701 diff changeset	3045	"/ hide active menu but keep the grab
2869 3e24a0b78c17 comment Claus Gittinger <cg@exept.de> parents: 2860 diff changeset	3046	menusSuperMenu selection:nil
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3047	] ifFalse:[
1703 e127eff742bb bugfix: request focus ca parents: 1701 diff changeset	3048	"/ hide active menu and ungrab
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3049	self accept:nil
2251 30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3050	].
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3051	^ self
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3052	].
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3053
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3054	menu isViewWrapper ifFalse:[
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3055	sensor compressKeyPressEventsWithKey:key.
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3056	menu handleKeyPress:key.
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	3057	^ self
2251 30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3058	].
2869 3e24a0b78c17 comment Claus Gittinger <cg@exept.de> parents: 2860 diff changeset	3059	menusSuperMenu == self ifFalse:[^ self].
2251 30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3060
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3061	"/ allow cursor movement
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3062	(key == #CursorLeft or:[key == #CursorRight]) ifTrue:[
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3063	(self containsPoint:x@y) ifTrue:[
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3064	self handleKeyPress:key.
1786 f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3065	]
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3066	].
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3067	!
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3068
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3069	pointerLeave:state
2255 e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	3070	\|sensor\|
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	3071
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	3072	self scrollActivity isActive ifTrue:[^ self].
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	3073
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3074	self detectGrabMenu handlePointerLeave:state.
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3075
2255 e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	3076	(selection isNil or:[self isPopUpView]) ifTrue:[
2251 30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3077	^ self
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3078	].
2255 e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	3079
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	3080	selection visibleSubmenu notNil ifTrue:[^ self].
2255 e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	3081
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	3082	windowGroup focusView ~~ self ifTrue:[
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	3083	self accept:nil
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	3084	] ifFalse:[
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	3085	selection isButton ifTrue:[
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	3086	sensor := self sensor.
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	3087
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	3088	sensor isNil ifTrue:[
2251 30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3089	self accept:nil
2255 e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	3090	] ifFalse:[
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	3091	"/ I'have the focus; if no button pressed, than keep the selection
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	3092	sensor anyButtonPressed ifTrue:[
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	3093	self selection:nil
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	3094	]
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	3095	].
2251 30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3096	]
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3097	].
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3098	!
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3099
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3100	sizeChanged:how
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	3101	"redraw #right groups"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	3102
2860 300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	3103	"/ self isPopUpView ifFalse:[
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	3104	"/ mustRearrange := true.
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	3105	"/ self invalidate
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	3106	"/ ].
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	3107	"/ ^ super sizeChanged:how.
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	3108
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	3109	self handleSizeChanged:how.
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	3110	super sizeChanged:how.
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3111	! !
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3112
2503 4f34d55dae21 method category rename Claus Gittinger <cg@exept.de> parents: 2488 diff changeset	3113	!MenuPanel methodsFor:'event handling-processing'!
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3114
1767 e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	3115	clearImplicitGrab
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	3116	implicitGrabView := lastPointerView := nil.
1767 e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	3117	!
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	3118
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	3119	dispatchEvent:ev withFocusOn:focusView delegate:doDelegate
2482 13acaaf02528 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 2481 diff changeset	3120	"dispatch and handle an event"
13acaaf02528 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 2481 diff changeset	3121
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	3122	\|view x y p syntheticEvent menu\|
1767 e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	3123
2658 04f9fdd74b8e event handling Claus Gittinger <cg@exept.de> parents: 2652 diff changeset	3124	ev isDamage ifTrue:[
04f9fdd74b8e event handling Claus Gittinger <cg@exept.de> parents: 2652 diff changeset	3125	^ super dispatchEvent:ev withFocusOn:focusView delegate:false.
04f9fdd74b8e event handling Claus Gittinger <cg@exept.de> parents: 2652 diff changeset	3126	].
04f9fdd74b8e event handling Claus Gittinger <cg@exept.de> parents: 2652 diff changeset	3127
3142 4f1c952048c5 focusView handling ca parents: 3133 diff changeset	3128	(superMenu isNil and:[ev isButtonPressEvent]) ifTrue:[
4f1c952048c5 focusView handling ca parents: 3133 diff changeset	3129	focusView ~~ self ifTrue:[prevFocusView := focusView].
4f1c952048c5 focusView handling ca parents: 3133 diff changeset	3130	].
4f1c952048c5 focusView handling ca parents: 3133 diff changeset	3131
1767 e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	3132	"/ situation: we get a buttonPress, set implicitGrab (for scrollbars etc.)
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	3133	"/ but never get the buttonRelease, since someone else (a popUp) grabbed the
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	3134	"/ pointer in the meantime, and has eaten the release event ... (double-sigh)
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	3135	implicitGrabView notNil ifTrue:[
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	3136	self sensor leftButtonPressed ifFalse:[
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	3137	self clearImplicitGrab.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	3138	].
1767 e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	3139	].
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	3140
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	3141	((x := ev x) isNil or:[(y := ev y) isNil]) ifTrue:[
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	3142	^ super dispatchEvent:ev withFocusOn:focusView delegate:false.
1767 e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	3143	].
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	3144
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	3145	implicitGrabView notNil ifTrue:[
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	3146	ev isButtonEvent ifTrue:[
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	3147	p := device translatePoint:(x@y) fromView:self toView:implicitGrabView.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	3148	ev view:implicitGrabView.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	3149	ev arguments at:2 put:p x.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	3150	ev arguments at:3 put:p y.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	3151	implicitGrabView dispatchEvent:ev withFocusOn:focusView delegate:false.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	3152
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	3153	ev isButtonReleaseEvent ifTrue:[
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	3154	self clearImplicitGrab.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	3155	].
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	3156	^ self
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	3157	]
1767 e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	3158	].
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	3159	menu := self detectMenuAtGrabPoint:(x@y).
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	3160
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	3161	(menu isNil or:[menu isViewWrapper not]) ifTrue:[
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	3162	self clearImplicitGrab.
1767 e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	3163	^ super dispatchEvent:ev withFocusOn:focusView delegate:false
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	3164	].
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	3165
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	3166	p := menu translateGrabPoint:(x@y).
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	3167	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	3168	p := device translatePoint:(x@y) fromView:self toView:view.
1767 e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	3169
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	3170	ev isButtonPressEvent ifTrue:[
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	3171	(view wantsFocusWithButtonPress) ifTrue:[
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	3172	view requestFocus.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	3173	].
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	3174	view ~~ self ifTrue:[ "/ can this ever be self ?
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	3175	implicitGrabView := view.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	3176	]
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	3177	].
1767 e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	3178
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	3179	ev isButtonMotionEvent ifTrue:[
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	3180	lastPointerView ~~ view ifTrue:[
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	3181	"/ must generate enter/leave ... (sigh)
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	3182	lastPointerView notNil ifTrue:[
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	3183	"/ XXX: should be fixed
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	3184	syntheticEvent := WindowEvent pointerLeave:0 view:lastPointerView.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	3185	lastPointerView dispatchEvent:syntheticEvent withFocusOn:nil delegate:false.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	3186	].
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	3187	view notNil ifTrue:[
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	3188	syntheticEvent := WindowEvent pointerEnter:0 x:x y:y view:view.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	3189	view dispatchEvent:syntheticEvent withFocusOn:nil delegate:false.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	3190	].
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	3191	lastPointerView := view.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	3192	].
1767 e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	3193	].
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	3194
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	3195	ev view:view.
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	3196	ev x:p x.
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	3197	ev y:p y.
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	3198	view dispatchEvent:ev withFocusOn:focusView delegate:false.
2020 1f1868eba475 extracted common code to detectViewAt:aPoint. Claus Gittinger <cg@exept.de> parents: 2018 diff changeset	3199
1f1868eba475 extracted common code to detectViewAt:aPoint. Claus Gittinger <cg@exept.de> parents: 2018 diff changeset	3200	"Modified: / 10.10.2001 / 13:54:47 / cg"
1767 e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	3201	!
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	3202
2048 ba472f3f46c7 code cleanup Claus Gittinger <cg@exept.de> parents: 2047 diff changeset	3203	handleButtonMotion:state atPoint:motionPoint
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	3204	"open or close the corresponding submenus"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	3205
2251 30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3206	\|menu item translatedPoint containsPoint\|
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3207
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3208	containsPoint := self containsPoint:motionPoint.
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3209	containsPoint ifTrue:[ item := self itemAtPoint:motionPoint ]
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3210	ifFalse:[ item := nil ].
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3211
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3212	self pointerEntersItem:item.
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3213
1910 119f91172b70 * empty log message * Claus Gittinger <cg@exept.de> parents: 1902 diff changeset	3214	(state == 0 or:[self sensor anyButtonPressed not]) ifTrue:[
2251 30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3215	"/ only update pointerEnter
2048 ba472f3f46c7 code cleanup Claus Gittinger <cg@exept.de> parents: 2047 diff changeset	3216	^ self
ba472f3f46c7 code cleanup Claus Gittinger <cg@exept.de> parents: 2047 diff changeset	3217	].
ba472f3f46c7 code cleanup Claus Gittinger <cg@exept.de> parents: 2047 diff changeset	3218
2251 30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3219	containsPoint ifTrue:[
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3220	self selection:item openMenu:true.
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	3221	^ self
2251 30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3222	].
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3223
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3224	menu := self superMenuAtPoint:motionPoint.
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3225
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	3226	menu notNil ifTrue:[
2046 012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	3227	translatedPoint := self translateMenuPoint:motionPoint toMenu:menu.
2251 30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3228	menu handleButtonMotion:state atPoint:translatedPoint.
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	3229	^ self
2251 30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3230	].
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3231	self isPopUpView ifTrue:[
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3232	self selection:nil
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3233	].
2046 012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	3234	!
012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	3235
012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	3236	handleButtonPressAtPoint:aPoint
2482 13acaaf02528 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 2481 diff changeset	3237	"a button pressed; open or close the corresponding submenus"
13acaaf02528 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 2481 diff changeset	3238
2251 30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3239	\| item sensor direction wasSelected\|
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	3240
2046 012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	3241	item := self itemAtPoint:aPoint.
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	3242	item isNil ifTrue:[
2251 30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3243	self selection:nil openMenu:false.
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	3244	^ self
2251 30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3245	].
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3246
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3247	direction := self scrollerDirectionAtPoint:aPoint.
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3248	direction notNil ifTrue:[
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3249	(self scrollActivity startIfRequiredAt:direction on:self) ifTrue:[
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3250	self pointerEntersItem:nil.
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3251	^ self
2238 68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3252	]
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	3253	].
2251 30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3254
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3255	wasSelected := (selection == item).
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3256	wasSelected ifFalse:[
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3257	self selection:item openMenu:true
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3258	].
2199 61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	3259	item hasDelayedMenu ifTrue:[^ self].
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	3260
2238 68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3261	(item isToggle or:[item triggerOnDown]) ifFalse:[
2251 30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3262	(wasSelected and:[item hasSubmenu and:[item visibleSubmenu isNil]]) ifTrue:[
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3263	item toggleSubmenuVisibility
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3264	].
2238 68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3265	^ self
68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3266	].
68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3267	(item canAccept and:[item == self selection]) ifFalse:[
68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3268	^ self
68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3269	].
68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3270	self invalidateItem:item repairNow:true.
68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3271	self acceptItem:item inMenu:self.
68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3272
2482 13acaaf02528 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 2481 diff changeset	3273	sensor := self sensor.
13acaaf02528 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 2481 diff changeset	3274	[sensor anyButtonPressed] whileTrue:[ Delay waitForSeconds:0.1 ].
13acaaf02528 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 2481 diff changeset	3275	sensor flushUserEvents.
2238 68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3276	self selection:nil.
2046 012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	3277
012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	3278	"Created: / 13.11.2001 / 14:12:04 / cg"
2047 62de65e3a61b initial delay; autoRepeat delay Claus Gittinger <cg@exept.de> parents: 2046 diff changeset	3279	"Modified: / 13.11.2001 / 19:50:52 / cg"
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	3280	!
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	3281
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3282	handleCursorKey:aKey
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	3283	"handle a cursor key"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	3284
1786 f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3285	\|next menu item isVrt backKey p1 p2
2354 1bd2ac73b73c cursorUp/Down behavior Claus Gittinger <cg@exept.de> parents: 2347 diff changeset	3286	idx0 "{ Class:SmallInteger }"
687 23ce9888d76f bug fixes: ca parents: 681 diff changeset	3287	idx "{ Class:SmallInteger }"
1705 201f9ce1b2d2 checkin from browser ca parents: 1704 diff changeset	3288	size "{ Class:SmallInteger }"
687 23ce9888d76f bug fixes: ca parents: 681 diff changeset	3289	\|
1786 f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3290	(size := items size) == 0 ifTrue:[
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3291	superMenu notNil ifTrue:[superMenu handleCursorKey:aKey].
2354 1bd2ac73b73c cursorUp/Down behavior Claus Gittinger <cg@exept.de> parents: 2347 diff changeset	3292	^ self
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3293	].
1786 f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3294
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3295	isVrt := self verticalLayout.
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3296
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	3297
1786 f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3298	( (isVrt and:[aKey == #CursorUp or:[aKey == #CursorDown]])
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3299	or:[(isVrt not and:[aKey == #CursorRight or:[aKey == #CursorLeft]])]
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3300	) ifTrue:[
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3301	selection isNil ifTrue:[
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3302	(superMenu notNil and:[superMenu verticalLayout == isVrt]) ifTrue:[
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3303	^ superMenu handleCursorKey:aKey
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3304	].
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	3305	idx := 0.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	3306
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	3307	isVrt ifTrue:[
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	3308	"/ used because of vertical scrolling
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	3309	idx := items findFirst:[:el\| el layout top > 0 ].
2354 1bd2ac73b73c cursorUp/Down behavior Claus Gittinger <cg@exept.de> parents: 2347 diff changeset	3310	idx ~~ 0 ifTrue:[idx := idx - 1 ]
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	3311	].
1786 f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3312	] ifFalse:[
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	3313	idx := self indexOf:selection.
1786 f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3314	].
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3315	next := aKey == #CursorRight or:[aKey == #CursorDown].
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3316
2354 1bd2ac73b73c cursorUp/Down behavior Claus Gittinger <cg@exept.de> parents: 2347 diff changeset	3317	idx0 := idx.
1bd2ac73b73c cursorUp/Down behavior Claus Gittinger <cg@exept.de> parents: 2347 diff changeset	3318	size timesRepeat:[
1bd2ac73b73c cursorUp/Down behavior Claus Gittinger <cg@exept.de> parents: 2347 diff changeset	3319	\|el\|
1bd2ac73b73c cursorUp/Down behavior Claus Gittinger <cg@exept.de> parents: 2347 diff changeset	3320
1bd2ac73b73c cursorUp/Down behavior Claus Gittinger <cg@exept.de> parents: 2347 diff changeset	3321	next ifTrue:[idx := idx + 1] ifFalse:[idx := idx - 1].
1bd2ac73b73c cursorUp/Down behavior Claus Gittinger <cg@exept.de> parents: 2347 diff changeset	3322
1bd2ac73b73c cursorUp/Down behavior Claus Gittinger <cg@exept.de> parents: 2347 diff changeset	3323	idx > size ifTrue:[
1bd2ac73b73c cursorUp/Down behavior Claus Gittinger <cg@exept.de> parents: 2347 diff changeset	3324	idx := 0 "1"
1bd2ac73b73c cursorUp/Down behavior Claus Gittinger <cg@exept.de> parents: 2347 diff changeset	3325	] ifFalse:[
1bd2ac73b73c cursorUp/Down behavior Claus Gittinger <cg@exept.de> parents: 2347 diff changeset	3326	idx < 0 ifTrue:[
1bd2ac73b73c cursorUp/Down behavior Claus Gittinger <cg@exept.de> parents: 2347 diff changeset	3327	idx := size
1bd2ac73b73c cursorUp/Down behavior Claus Gittinger <cg@exept.de> parents: 2347 diff changeset	3328	]
1bd2ac73b73c cursorUp/Down behavior Claus Gittinger <cg@exept.de> parents: 2347 diff changeset	3329	].
1bd2ac73b73c cursorUp/Down behavior Claus Gittinger <cg@exept.de> parents: 2347 diff changeset	3330
1bd2ac73b73c cursorUp/Down behavior Claus Gittinger <cg@exept.de> parents: 2347 diff changeset	3331	idx == 0 ifTrue:[
1bd2ac73b73c cursorUp/Down behavior Claus Gittinger <cg@exept.de> parents: 2347 diff changeset	3332	self selection:nil.
1bd2ac73b73c cursorUp/Down behavior Claus Gittinger <cg@exept.de> parents: 2347 diff changeset	3333	^ self
1bd2ac73b73c cursorUp/Down behavior Claus Gittinger <cg@exept.de> parents: 2347 diff changeset	3334	] ifFalse:[
1bd2ac73b73c cursorUp/Down behavior Claus Gittinger <cg@exept.de> parents: 2347 diff changeset	3335	(el := items at:idx ifAbsent:nil) notNil ifTrue:[
1bd2ac73b73c cursorUp/Down behavior Claus Gittinger <cg@exept.de> parents: 2347 diff changeset	3336	el canSelect ifTrue:[
1bd2ac73b73c cursorUp/Down behavior Claus Gittinger <cg@exept.de> parents: 2347 diff changeset	3337	el hasDelayedMenu ifTrue:[
1bd2ac73b73c cursorUp/Down behavior Claus Gittinger <cg@exept.de> parents: 2347 diff changeset	3338	"/ do not open menu
1bd2ac73b73c cursorUp/Down behavior Claus Gittinger <cg@exept.de> parents: 2347 diff changeset	3339	self selection:el openMenu:false
1bd2ac73b73c cursorUp/Down behavior Claus Gittinger <cg@exept.de> parents: 2347 diff changeset	3340	] ifFalse:[
1bd2ac73b73c cursorUp/Down behavior Claus Gittinger <cg@exept.de> parents: 2347 diff changeset	3341	"/ open comes from style-sheet
1bd2ac73b73c cursorUp/Down behavior Claus Gittinger <cg@exept.de> parents: 2347 diff changeset	3342	self selection:el.
1bd2ac73b73c cursorUp/Down behavior Claus Gittinger <cg@exept.de> parents: 2347 diff changeset	3343	].
1bd2ac73b73c cursorUp/Down behavior Claus Gittinger <cg@exept.de> parents: 2347 diff changeset	3344	^ self
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	3345	].
2354 1bd2ac73b73c cursorUp/Down behavior Claus Gittinger <cg@exept.de> parents: 2347 diff changeset	3346	]
1bd2ac73b73c cursorUp/Down behavior Claus Gittinger <cg@exept.de> parents: 2347 diff changeset	3347	].
1bd2ac73b73c cursorUp/Down behavior Claus Gittinger <cg@exept.de> parents: 2347 diff changeset	3348	idx == idx0 ifTrue:[
1bd2ac73b73c cursorUp/Down behavior Claus Gittinger <cg@exept.de> parents: 2347 diff changeset	3349	^ self
1bd2ac73b73c cursorUp/Down behavior Claus Gittinger <cg@exept.de> parents: 2347 diff changeset	3350	].
1786 f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3351	].
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3352	^ self
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3353	].
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3354
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3355	superMenu notNil ifTrue:[
1791 bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	3356	p1 := self translateGrabPoint:0.
bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	3357	p2 := superMenu translateGrabPoint:0.
1786 f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3358	].
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3359
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3360	isVrt ifTrue:[
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3361	(superMenu notNil and:[p1 x > p2 x]) ifTrue:[
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3362	backKey := #CursorRight
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3363	] ifFalse:[
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3364	backKey := #CursorLeft.
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3365	]
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3366	] ifFalse:[
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3367	(superMenu notNil and:[p1 y > p2 y]) ifTrue:[
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3368	backKey := #CursorDown
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3369	] ifFalse:[
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3370	backKey := #CursorUp.
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3371	]
1786 f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3372	].
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3373
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3374	aKey == backKey ifTrue:[
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3375	superMenu isNil ifTrue:[
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3376	self accept:nil
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3377	] ifFalse:[
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3378	superMenu verticalLayout ~~ isVrt ifTrue:[
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3379	superMenu handleCursorKey:aKey
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3380	] ifFalse:[
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3381	superMenu selection hideSubmenu
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3382	]
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3383	].
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3384	^ self
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3385	].
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3386
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3387	selection isNil ifTrue:[
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3388	superMenu isNil ifTrue:[^ self accept:nil].
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3389
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3390	superMenu verticalLayout ~~ isVrt ifTrue:[
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3391	superMenu handleCursorKey:aKey
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3392	] ifFalse:[
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3393	(item := items findFirst:[:el\| el canSelect]) notNil ifTrue:[
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	3394	self selectionIndex:item
1786 f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3395	]
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3396	].
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3397	^ self
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3398	].
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3399
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3400	selection hasSubmenu ifTrue:[
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3401	(menu := selection visibleSubmenu) isNil ifTrue:[
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3402	selection toggleSubmenuVisibility
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3403	] ifFalse:[
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3404	menu selectionIndex:1
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3405	]
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3406	] ifFalse:[
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3407	superMenu notNil ifTrue:[
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3408	superMenu verticalLayout ~~ isVrt ifTrue:[
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3409	superMenu handleCursorKey:aKey
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3410	]
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3411	] ifFalse:[
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3412	self accept:nil
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3413	]
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3414	].
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3415	!
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3416
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3417	handleKeyPress:key
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	3418	"any key is pressed"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	3419
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	3420	\|item inMenu\|
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3421
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3422	(key == #Return or:[key == Character space]) ifTrue:[
1786 f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3423	self handleReturnPressed
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3424	] ifFalse:[
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3425	key isCharacter ifTrue:[
1862 ffbe4c06defd handleKeyPress: search character-key in wrapped menu ca parents: 1853 diff changeset	3426	"/ selection notNil ifTrue:[
ffbe4c06defd handleKeyPress: search character-key in wrapped menu ca parents: 1853 diff changeset	3427	"/ inMenu := self
ffbe4c06defd handleKeyPress: search character-key in wrapped menu ca parents: 1853 diff changeset	3428	"/ ] ifFalse:[
ffbe4c06defd handleKeyPress: search character-key in wrapped menu ca parents: 1853 diff changeset	3429	"/ (inMenu := superMenu) isNil ifTrue:[^ self].
ffbe4c06defd handleKeyPress: search character-key in wrapped menu ca parents: 1853 diff changeset	3430	"/ ].
ffbe4c06defd handleKeyPress: search character-key in wrapped menu ca parents: 1853 diff changeset	3431	inMenu := self.
1786 f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3432
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3433	(item := inMenu detectItemForKey:key) notNil ifTrue:[
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3434	inMenu selection:item
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3435	]
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3436	] ifFalse:[
1786 f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3437	( key == #CursorDown or:[key == #CursorUp
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3438	or:[key == #CursorLeft or:[key == #CursorRight]]]
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3439	) ifTrue:[
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3440	self handleCursorKey:key
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3441	]
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3442	]
1889 43516e4588ce give warning messages for unimplemented menu-aspects Claus Gittinger <cg@exept.de> parents: 1878 diff changeset	3443	]
43516e4588ce give warning messages for unimplemented menu-aspects Claus Gittinger <cg@exept.de> parents: 1878 diff changeset	3444	!
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3445
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3446	handlePointerLeave:state
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3447	self pointerEntersItem:nil.
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3448	super pointerLeave:state
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3449	!
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3450
1786 f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3451	handleReturnPressed
2482 13acaaf02528 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 2481 diff changeset	3452	"any key is pressed"
13acaaf02528 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 2481 diff changeset	3453
2238 68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3454	\|sensor subm item\|
68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3455
68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3456	(item := selection) isNil ifTrue:[
68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3457	superMenu notNil ifTrue:[
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	3458	item := superMenu selection.
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	3459
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	3460	item value notNil ifTrue:[
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	3461	"/ is a delayed menu
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	3462	self accept:item
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	3463	] ifFalse:[
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	3464	item toggleSubmenuVisibility
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	3465	]
2238 68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3466	] ifFalse:[
68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3467	self accept
68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3468	].
68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3469	^ self
1841 5d01716cc37c implement: triggerOnDown ca parents: 1836 diff changeset	3470	].
5d01716cc37c implement: triggerOnDown ca parents: 1836 diff changeset	3471	selection hasSubmenu ifTrue:[
2238 68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3472	selection hasDelayedMenu ifFalse:[
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	3473	selection toggleSubmenuVisibility.
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	3474	^ self
2238 68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3475	].
68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3476	subm := selection currentSubmenu.
68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3477
68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3478	(subm notNil and:[subm shown]) ifTrue:[
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	3479	selection toggleSubmenuVisibility.
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	3480	^ self
2238 68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3481	].
68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3482	self openDelayed:nil
1841 5d01716cc37c implement: triggerOnDown ca parents: 1836 diff changeset	3483	].
5d01716cc37c implement: triggerOnDown ca parents: 1836 diff changeset	3484	self accept.
5d01716cc37c implement: triggerOnDown ca parents: 1836 diff changeset	3485
2238 68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3486	" test for toggle "
68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3487	item isToggle ifTrue:[
68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3488	self selection:item.
68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3489	] ifFalse:[
68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3490	(selection notNil and:[selection triggerOnDown]) ifFalse:[
68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3491	^ self
68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3492	]
68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3493	].
1841 5d01716cc37c implement: triggerOnDown ca parents: 1836 diff changeset	3494
5d01716cc37c implement: triggerOnDown ca parents: 1836 diff changeset	3495	(sensor := self sensor) isNil ifTrue:[
2238 68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3496	^ self
1841 5d01716cc37c implement: triggerOnDown ca parents: 1836 diff changeset	3497	].
5d01716cc37c implement: triggerOnDown ca parents: 1836 diff changeset	3498
2482 13acaaf02528 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 2481 diff changeset	3499	[
13acaaf02528 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 2481 diff changeset	3500	sensor flushKeyboardFor:nil.
2238 68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3501	Delay waitForSeconds:0.1.
68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3502	sensor hasKeyPressEventFor:nil.
1841 5d01716cc37c implement: triggerOnDown ca parents: 1836 diff changeset	3503	] whileTrue.
1786 f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3504	!
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3505
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3506	pointerEntersItem:anItemOrNil
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3507	"the pointer moves over an item or nil; restore the old item and
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	3508	redraw the new item highlighted."
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	3509
1690 38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3510	\|oldItem newItem\|
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3511
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3512	( anItemOrNil notNil
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3513	and:[anItemOrNil canSelect
1690 38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3514	and:[selection isNil
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3515	and:[self isPopUpView not]]]) ifTrue:[
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3516	anItemOrNil isButton ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	3517	( self buttonEnteredBackgroundColor ~= self buttonPassiveBackgroundColor
93426020ceed * empty log message * ca parents: 2216 diff changeset	3518	or:[self buttonEnteredLevel ~= self buttonPassiveLevel]
1690 38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3519	) ifTrue:[
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3520	newItem := anItemOrNil
1690 38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3521	]
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3522	] ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	3523	(self enteredLevel ~~ 0
93426020ceed * empty log message * ca parents: 2216 diff changeset	3524	or:[self enteredBackgroundColor ~= self backgroundColor]
93426020ceed * empty log message * ca parents: 2216 diff changeset	3525	) ifTrue:[
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3526	newItem := anItemOrNil
1690 38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3527	]
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3528	]
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3529	].
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3530
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3531	newItem ~~ enteredItem ifTrue:[
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3532	oldItem := enteredItem.
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3533	enteredItem := newItem.
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3534
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3535	oldItem notNil ifTrue:[
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3536	self invalidateItem:oldItem repairNow:(enteredItem isNil).
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3537	].
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3538
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3539	enteredItem notNil ifTrue:[
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3540	self invalidateItem:enteredItem repairNow:true.
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3541	].
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3542	].
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3543	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	3544
2251 30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3545	!MenuPanel methodsFor:'focus handling'!
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3546
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3547	hasKeyboardFocus:aBoolean
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	3548	"notification from the windowGroup that I got/lost the keyboard focus."
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	3549
2251 30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3550	\|focusView\|
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3551
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3552	self isPopUpView ifTrue:[
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3553	"/ not visible for popup menus
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3554	^ super hasKeyboardFocus:aBoolean
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3555	].
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3556
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3557	(aBoolean not and:[selection notNil]) ifTrue:[
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3558	hasImplicitGrap ~~ true ifTrue:[
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3559	focusView := windowGroup focusView.
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3560
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3561	focusView == self ifFalse:[
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3562	self selection:nil.
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3563	]
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3564	]
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3565	].
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3566	super hasKeyboardFocus:aBoolean.
3142 4f1c952048c5 focusView handling ca parents: 3133 diff changeset	3567	!
4f1c952048c5 focusView handling ca parents: 3133 diff changeset	3568
4f1c952048c5 focusView handling ca parents: 3133 diff changeset	3569	showFocus:focusByTab
4f1c952048c5 focusView handling ca parents: 3133 diff changeset	3570	focusByTab == true ifTrue:[
4f1c952048c5 focusView handling ca parents: 3133 diff changeset	3571	prevFocusView := nil.
4f1c952048c5 focusView handling ca parents: 3133 diff changeset	3572	].
4f1c952048c5 focusView handling ca parents: 3133 diff changeset	3573	super showFocus:focusByTab.
2251 30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3574	! !
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3575
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3576	!MenuPanel methodsFor:'grabbing'!
dce33f8bb806 intitial checkin ca parents: diff changeset	3577
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3578	doGrab
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3579	relativeGrabOrigin := nil.
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3580
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3581	superMenu notNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	3582	superMenu doGrab
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3583	] ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	3584	hasImplicitGrap ~~ true ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	3585	self grabMouseAndKeyboard.
93426020ceed * empty log message * ca parents: 2216 diff changeset	3586	hasImplicitGrap := true
93426020ceed * empty log message * ca parents: 2216 diff changeset	3587	]
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3588	]
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3589	!
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3590
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3591	doUngrab:forceDo
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3592
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3593	relativeGrabOrigin := nil.
1767 e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	3594	self clearImplicitGrab.
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3595
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3596	superMenu notNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	3597	forceDo ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	3598	superMenu doUngrab:true
93426020ceed * empty log message * ca parents: 2216 diff changeset	3599	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	3600	^ self
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3601	].
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3602
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3603	hasImplicitGrap ~~ true ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	3604	^ self
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3605	].
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3606
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3607	forceDo ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	3608	(selection notNil or:[prevFocusView == self]) ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	3609	^ self
93426020ceed * empty log message * ca parents: 2216 diff changeset	3610	].
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3611	].
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3612	self ungrabMouseAndKeyboard.
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3613	self selection:nil.
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3614	hasImplicitGrap := nil.
1703 e127eff742bb bugfix: request focus ca parents: 1701 diff changeset	3615	prevFocusView := nil.
e127eff742bb bugfix: request focus ca parents: 1701 diff changeset	3616
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3617	!
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3618
1630 01dc20096011 grabbing cleaned up; ca parents: 1613 diff changeset	3619	grabKeyboard
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	3620	"grap the keyboard; keep previous grab"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	3621
1630 01dc20096011 grabbing cleaned up; ca parents: 1613 diff changeset	3622	previousKeyboardGrab := device activeKeyboardGrab.
2713 9e417aa397c0 * empty log message * ca parents: 2712 diff changeset	3623	^ super grabKeyboard
1630 01dc20096011 grabbing cleaned up; ca parents: 1613 diff changeset	3624	!
01dc20096011 grabbing cleaned up; ca parents: 1613 diff changeset	3625
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3626	grabMouseAndKeyboard
2482 13acaaf02528 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 2481 diff changeset	3627	"get exclusive access to pointer and keyboard"
13acaaf02528 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 2481 diff changeset	3628
3142 4f1c952048c5 focusView handling ca parents: 3133 diff changeset	3629	\|winGroup sensor\|
4f1c952048c5 focusView handling ca parents: 3133 diff changeset	3630
4f1c952048c5 focusView handling ca parents: 3133 diff changeset	3631	winGroup := self windowGroup.
4f1c952048c5 focusView handling ca parents: 3133 diff changeset	3632
4f1c952048c5 focusView handling ca parents: 3133 diff changeset	3633	(realized and:[winGroup notNil]) ifTrue:[
4f1c952048c5 focusView handling ca parents: 3133 diff changeset	3634	prevFocusView isNil ifTrue:[
4f1c952048c5 focusView handling ca parents: 3133 diff changeset	3635	prevFocusView := winGroup focusView.
4f1c952048c5 focusView handling ca parents: 3133 diff changeset	3636	].
2482 13acaaf02528 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 2481 diff changeset	3637	sensor := self sensor.
13acaaf02528 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 2481 diff changeset	3638	device activePointerGrab ~~ self ifTrue:[
13acaaf02528 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 2481 diff changeset	3639	sensor flushMotionEventsFor:nil.
13acaaf02528 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 2481 diff changeset	3640
13acaaf02528 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 2481 diff changeset	3641	(self grabPointer) ifFalse:[
13acaaf02528 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 2481 diff changeset	3642	Delay waitForSeconds:0.1.
13acaaf02528 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 2481 diff changeset	3643	(self grabPointer) ifFalse:[
13acaaf02528 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 2481 diff changeset	3644	"give up"
13acaaf02528 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 2481 diff changeset	3645	'MenuPanel [warning]: could not grab pointer' errorPrintCR.
13acaaf02528 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 2481 diff changeset	3646	self unmap
13acaaf02528 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 2481 diff changeset	3647	]
13acaaf02528 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 2481 diff changeset	3648	]
13acaaf02528 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 2481 diff changeset	3649	].
13acaaf02528 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 2481 diff changeset	3650
13acaaf02528 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 2481 diff changeset	3651	device activeKeyboardGrab ~~ self ifTrue:[
13acaaf02528 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 2481 diff changeset	3652	device sync.
13acaaf02528 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 2481 diff changeset	3653	sensor flushKeyboardFor:nil.
13acaaf02528 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 2481 diff changeset	3654	self grabKeyboard.
13acaaf02528 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 2481 diff changeset	3655	]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3656	]
dce33f8bb806 intitial checkin ca parents: diff changeset	3657
717 540e638fdebb Avoid pointer and keyboard grabbing if not necessary Stefan Vogel <sv@exept.de> parents: 712 diff changeset	3658	"Modified: / 2.2.1998 / 23:43:59 / stefan"
1254 38b8bcfabbd7 checkin from browser Claus Gittinger <cg@exept.de> parents: 1253 diff changeset	3659	"Modified: / 15.3.1999 / 12:01:38 / cg"
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3660	!
dce33f8bb806 intitial checkin ca parents: diff changeset	3661
1630 01dc20096011 grabbing cleaned up; ca parents: 1613 diff changeset	3662	grabPointerWithCursor:aCursorOrNil
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	3663	"grap the pointer; keep previous grab"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	3664
1630 01dc20096011 grabbing cleaned up; ca parents: 1613 diff changeset	3665	previousPointerGrab := device activePointerGrab.
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3666	hasImplicitGrap := true.
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	3667	^ super grabPointerWithCursor:aCursorOrNil
1630 01dc20096011 grabbing cleaned up; ca parents: 1613 diff changeset	3668	!
01dc20096011 grabbing cleaned up; ca parents: 1613 diff changeset	3669
01dc20096011 grabbing cleaned up; ca parents: 1613 diff changeset	3670	ungrabKeyboard
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	3671	"ungrap the keyboard; restore previous grab"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	3672
1630 01dc20096011 grabbing cleaned up; ca parents: 1613 diff changeset	3673	super ungrabKeyboard.
1690 38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3674
2579 114e5cf689a2 care for previous-grab-window still being visible james parents: 2574 diff changeset	3675	(previousKeyboardGrab notNil
114e5cf689a2 care for previous-grab-window still being visible james parents: 2574 diff changeset	3676	and:[ previousKeyboardGrab realized ]) ifTrue:[
114e5cf689a2 care for previous-grab-window still being visible james parents: 2574 diff changeset	3677	device grabKeyboardInView:previousKeyboardGrab.
114e5cf689a2 care for previous-grab-window still being visible james parents: 2574 diff changeset	3678	].
1630 01dc20096011 grabbing cleaned up; ca parents: 1613 diff changeset	3679	!
01dc20096011 grabbing cleaned up; ca parents: 1613 diff changeset	3680
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3681	ungrabMouseAndKeyboard
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	3682	"ungrab resources (mouse and keyboard)"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	3683
1630 01dc20096011 grabbing cleaned up; ca parents: 1613 diff changeset	3684	self ungrabPointer.
01dc20096011 grabbing cleaned up; ca parents: 1613 diff changeset	3685	self ungrabKeyboard.
01dc20096011 grabbing cleaned up; ca parents: 1613 diff changeset	3686	!
01dc20096011 grabbing cleaned up; ca parents: 1613 diff changeset	3687
01dc20096011 grabbing cleaned up; ca parents: 1613 diff changeset	3688	ungrabPointer
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	3689	"ungrap the pointer; restore previous grab"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	3690
1630 01dc20096011 grabbing cleaned up; ca parents: 1613 diff changeset	3691	super ungrabPointer.
1690 38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3692
2579 114e5cf689a2 care for previous-grab-window still being visible james parents: 2574 diff changeset	3693	(previousPointerGrab notNil
114e5cf689a2 care for previous-grab-window still being visible james parents: 2574 diff changeset	3694	and:[ previousPointerGrab realized ]) ifTrue:[
114e5cf689a2 care for previous-grab-window still being visible james parents: 2574 diff changeset	3695	device grabPointerInView:previousPointerGrab.
1630 01dc20096011 grabbing cleaned up; ca parents: 1613 diff changeset	3696	].
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3697	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	3698
1251 eb5b4cdbacde fixed helpText display; Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	3699	!MenuPanel methodsFor:'help'!
eb5b4cdbacde fixed helpText display; Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	3700
2058 f0a23f80454e flyByHelp Claus Gittinger <cg@exept.de> parents: 2052 diff changeset	3701	flyByHelpTextAt:srcPoint
f0a23f80454e flyByHelp Claus Gittinger <cg@exept.de> parents: 2052 diff changeset	3702	"return the helpText for aPoint (i.e. when mouse-pointer is moved over an item).
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	3703	If there is a selection, that items helpText is used (ignoring the given point)."
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	3704
2550 1dc3745fc313 do not show the menus label again as fly by help Claus Gittinger <cg@exept.de> parents: 2545 diff changeset	3705	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	3706	^ nil
2058 f0a23f80454e flyByHelp Claus Gittinger <cg@exept.de> parents: 2052 diff changeset	3707	!
f0a23f80454e flyByHelp Claus Gittinger <cg@exept.de> parents: 2052 diff changeset	3708
f0a23f80454e flyByHelp Claus Gittinger <cg@exept.de> parents: 2052 diff changeset	3709	flyByHelpTextForItem:anItem
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	3710	"returns the helpText for an item (empty if none)"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	3711
2063 8bff9e49f1e9 * empty log message * Claus Gittinger <cg@exept.de> parents: 2062 diff changeset	3712	anItem isNil ifTrue:[^ nil].
2433 49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	3713	^ anItem flyByHelpText.
2058 f0a23f80454e flyByHelp Claus Gittinger <cg@exept.de> parents: 2052 diff changeset	3714	!
f0a23f80454e flyByHelp Claus Gittinger <cg@exept.de> parents: 2052 diff changeset	3715
1251 eb5b4cdbacde fixed helpText display; Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	3716	helpText
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	3717	"return the helpText for the currently selected item (empty if none)"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	3718
1613 5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	3719	^ self helpTextForItem:selection
1251 eb5b4cdbacde fixed helpText display; Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	3720	!
eb5b4cdbacde fixed helpText display; Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	3721
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3722	helpTextAt:srcPoint
1252 6db6906da49b debug print Claus Gittinger <cg@exept.de> parents: 1251 diff changeset	3723	"return the helpText for aPoint (i.e. when mouse-pointer is moved over an item).
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	3724	If there is a selection, that items helpText is used (ignoreing the given point)."
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	3725
2550 1dc3745fc313 do not show the menus label again as fly by help Claus Gittinger <cg@exept.de> parents: 2545 diff changeset	3726	self withMenuAndItemAt:srcPoint do:[:menu :item \| ^ menu helpTextForItem:item].
2884 6e060df8f158 fix: MUST return nil, if there is no help text (not empty string !) Claus Gittinger <cg@exept.de> parents: 2883 diff changeset	3727	^ nil
1613 5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	3728	!
5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	3729
5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	3730	helpTextForItem:anItem
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	3731	"returns the helpText for an item (empty if none)"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	3732
2884 6e060df8f158 fix: MUST return nil, if there is no help text (not empty string !) Claus Gittinger <cg@exept.de> parents: 2883 diff changeset	3733	anItem isNil ifTrue:[^ nil].
2433 49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	3734	^ anItem activeHelpText.
2550 1dc3745fc313 do not show the menus label again as fly by help Claus Gittinger <cg@exept.de> parents: 2545 diff changeset	3735	!
1dc3745fc313 do not show the menus label again as fly by help Claus Gittinger <cg@exept.de> parents: 2545 diff changeset	3736
1dc3745fc313 do not show the menus label again as fly by help Claus Gittinger <cg@exept.de> parents: 2545 diff changeset	3737	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	3738	\|dstMenu dstPoint item\|
1dc3745fc313 do not show the menus label again as fly by help Claus Gittinger <cg@exept.de> parents: 2545 diff changeset	3739
1dc3745fc313 do not show the menus label again as fly by help Claus Gittinger <cg@exept.de> parents: 2545 diff changeset	3740	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	3741	dstMenu notNil ifTrue:[
1dc3745fc313 do not show the menus label again as fly by help Claus Gittinger <cg@exept.de> parents: 2545 diff changeset	3742	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	3743	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	3744	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	3745	]
1251 eb5b4cdbacde fixed helpText display; Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	3746	! !
eb5b4cdbacde fixed helpText display; Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	3747
794 5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	3748	!MenuPanel methodsFor:'image registration'!
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	3749
2488 74c81c1e30d7 imageOnDevice -> imageOnMyDevice Claus Gittinger <cg@exept.de> parents: 2485 diff changeset	3750	imageOnMyDevice:anImage
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	3751	"returns image registered on device"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	3752
2770 d46f94ddabef * empty log message * Claus Gittinger <cg@exept.de> parents: 2768 diff changeset	3753	^ self class image:anImage value onDevice:device
794 5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	3754	!
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	3755
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	3756	lightenedImageOnDevice:anImage
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	3757	"returns lightened image registered on device"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	3758
794 5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	3759	^ self class lightenedImage:anImage onDevice:device
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	3760	! !
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	3761
1688 271829d6a2e4 category changes Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	3762	!MenuPanel methodsFor:'initialization & release'!
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3763
767 ffa2a09a1039 added #addToCurrentProject in order to avoid restart errors tz parents: 746 diff changeset	3764	addToCurrentProject
ffa2a09a1039 added #addToCurrentProject in order to avoid restart errors tz parents: 746 diff changeset	3765	"ignored here"
ffa2a09a1039 added #addToCurrentProject in order to avoid restart errors tz parents: 746 diff changeset	3766	!
ffa2a09a1039 added #addToCurrentProject in order to avoid restart errors tz parents: 746 diff changeset	3767
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3768	create
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	3769	"create the shadow view for a none contained submenu"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	3770
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3771	super create.
dce33f8bb806 intitial checkin ca parents: diff changeset	3772
dce33f8bb806 intitial checkin ca parents: diff changeset	3773	self isPopUpView ifTrue:[
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	3774	(PopUpView shadowsOnDevice:device) ifTrue:[
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	3775	shadowView isNil ifTrue:[
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	3776	shadowView := (ShadowView onDevice:device) for:self
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	3777	] ifFalse:[
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	3778	self saveUnder:true.
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	3779	].
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	3780	]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3781	] ifFalse:[
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	3782	explicitExtent == true ifTrue:[
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	3783	(self width) == (superView width) ifTrue:[
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	3784	self verticalLayout:false
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	3785	]
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	3786	]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3787	]
1024 28c87a2369f6 show active help on pointer motion. Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	3788
28c87a2369f6 show active help on pointer motion. Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	3789	"Modified: / 28.7.1998 / 02:11:44 / cg"
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3790	!
dce33f8bb806 intitial checkin ca parents: diff changeset	3791
dce33f8bb806 intitial checkin ca parents: diff changeset	3792	destroy
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	3793	"destroy items and shadowView; remove dependencies"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	3794
798 74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	3795	self clearLastActiveMenu.
2051 d958c12cc08e * empty log message * Claus Gittinger <cg@exept.de> parents: 2050 diff changeset	3796	items notNil ifTrue:[items copy do:[:el\|el destroy]].
2681 2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	3797	items := nil.
2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	3798	self removeDependencies.
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3799
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3800	super destroy.
3142 4f1c952048c5 focusView handling ca parents: 3133 diff changeset	3801	prevFocusView := superMenu := nil.
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3802	shadowView notNil ifTrue:[shadowView destroy].
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3803
2051 d958c12cc08e * empty log message * Claus Gittinger <cg@exept.de> parents: 2050 diff changeset	3804	"Modified: / 15.11.2001 / 17:08:45 / cg"
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3805	!
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3806
616 a6157b083830 support of different styles ca parents: 608 diff changeset	3807	fetchDeviceResources
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	3808	"fetch device colors, to avoid reallocation at redraw time"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	3809
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	3810	\|style\|
93426020ceed * empty log message * ca parents: 2216 diff changeset	3811
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	3812	superMenu notNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	3813	styleSheet := superMenu styleSheet
93426020ceed * empty log message * ca parents: 2216 diff changeset	3814	].
616 a6157b083830 support of different styles ca parents: 608 diff changeset	3815
a6157b083830 support of different styles ca parents: 608 diff changeset	3816	super fetchDeviceResources.
a6157b083830 support of different styles ca parents: 608 diff changeset	3817
1081 fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	3818	"/ 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	3819	"/ (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	3820
616 a6157b083830 support of different styles ca parents: 608 diff changeset	3821	superMenu isNil ifTrue:[
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	3822	rightArrow isNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	3823	rightArrow := SelectionInListView rightArrowFormOn:device.
2059 c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	3824	].
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	3825	fgColor := fgColor onDevice:device.
93426020ceed * empty log message * ca parents: 2216 diff changeset	3826	style := styleSheet name.
93426020ceed * empty log message * ca parents: 2216 diff changeset	3827
2761 611ecd331c14 more xp style Claus Gittinger <cg@exept.de> parents: 2755 diff changeset	3828	(style ~~ #os2 and:[style ~~ #win95 and:[style ~~ #winXP]]) ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	3829	rightArrowShadow := SelectionInListView rightArrowShadowFormOn:device
93426020ceed * empty log message * ca parents: 2216 diff changeset	3830	] ifFalse:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	3831	rightArrowShadow := nil
93426020ceed * empty log message * ca parents: 2216 diff changeset	3832	].
616 a6157b083830 support of different styles ca parents: 608 diff changeset	3833	] ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	3834	rightArrow := superMenu rightArrow.
93426020ceed * empty log message * ca parents: 2216 diff changeset	3835	rightArrowShadow := superMenu rightArrowShadow.
93426020ceed * empty log message * ca parents: 2216 diff changeset	3836
93426020ceed * empty log message * ca parents: 2216 diff changeset	3837	self foregroundColor:(superMenu foregroundColor).
2614 86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	3838	self font:(superMenu font).
2761 611ecd331c14 more xp style Claus Gittinger <cg@exept.de> parents: 2755 diff changeset	3839	"/ self viewBackground:(superMenu viewBackground).
1137 7df0b776e47a fixes for 2D styles (borderWidth) Claus Gittinger <cg@exept.de> parents: 1130 diff changeset	3840	].
7df0b776e47a fixes for 2D styles (borderWidth) Claus Gittinger <cg@exept.de> parents: 1130 diff changeset	3841
1829 bd8b95c5bb89 migration fixes Claus Gittinger <cg@exept.de> parents: 1825 diff changeset	3842	items notNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	3843	items do:[:eachItem\| eachItem fetchDeviceResources ]
1829 bd8b95c5bb89 migration fixes Claus Gittinger <cg@exept.de> parents: 1825 diff changeset	3844	].
bd8b95c5bb89 migration fixes Claus Gittinger <cg@exept.de> parents: 1825 diff changeset	3845
1137 7df0b776e47a fixes for 2D styles (borderWidth) Claus Gittinger <cg@exept.de> parents: 1130 diff changeset	3846	"Modified: / 15.9.1998 / 12:51:29 / cg"
616 a6157b083830 support of different styles ca parents: 608 diff changeset	3847	!
a6157b083830 support of different styles ca parents: 608 diff changeset	3848
580 249f6cfc5bb2 checkin from browser Claus Gittinger <cg@exept.de> parents: 571 diff changeset	3849	initStyle
249f6cfc5bb2 checkin from browser Claus Gittinger <cg@exept.de> parents: 571 diff changeset	3850	"initialize style specific stuff"
249f6cfc5bb2 checkin from browser Claus Gittinger <cg@exept.de> parents: 571 diff changeset	3851
2919 0c83b23cb6c6 resource directive Claus Gittinger <cg@exept.de> parents: 2895 diff changeset	3852	<resource: #style (#'menu.buttonItemHorizontalSpace' #'menu.buttonItemSpace'
0c83b23cb6c6 resource directive Claus Gittinger <cg@exept.de> parents: 2895 diff changeset	3853	#'menu.buttonItemVerticalSpace' #'menu.itemSpace'
0c83b23cb6c6 resource directive Claus Gittinger <cg@exept.de> parents: 2895 diff changeset	3854	#'menu.itemHorizontalSpace'
0c83b23cb6c6 resource directive Claus Gittinger <cg@exept.de> parents: 2895 diff changeset	3855	#'popup.hideOnRelease'
0c83b23cb6c6 resource directive Claus Gittinger <cg@exept.de> parents: 2895 diff changeset	3856	)>
2609 b927f450c4c8 * empty log message * ca parents: 2607 diff changeset	3857	\|fn\|
b927f450c4c8 * empty log message * ca parents: 2607 diff changeset	3858
580 249f6cfc5bb2 checkin from browser Claus Gittinger <cg@exept.de> parents: 571 diff changeset	3859	super initStyle.
616 a6157b083830 support of different styles ca parents: 608 diff changeset	3860
2883 58f2f296254d defaults Claus Gittinger <cg@exept.de> parents: 2877 diff changeset	3861	buttonInsetX := styleSheet at:#'menu.buttonItemHorizontalSpace'.
58f2f296254d defaults Claus Gittinger <cg@exept.de> parents: 2877 diff changeset	3862	buttonInsetX isNil ifTrue:[ buttonInsetX := styleSheet at:#'menu.buttonItemSpace' default:0 ].
58f2f296254d defaults Claus Gittinger <cg@exept.de> parents: 2877 diff changeset	3863	buttonInsetX := buttonInsetX abs.
58f2f296254d defaults Claus Gittinger <cg@exept.de> parents: 2877 diff changeset	3864
58f2f296254d defaults Claus Gittinger <cg@exept.de> parents: 2877 diff changeset	3865	buttonInsetY := styleSheet at:#'menu.buttonItemVerticalSpace'.
58f2f296254d defaults Claus Gittinger <cg@exept.de> parents: 2877 diff changeset	3866	buttonInsetY isNil ifTrue:[ buttonInsetY := styleSheet at:#'menu.buttonItemSpace' default:0 ].
58f2f296254d defaults Claus Gittinger <cg@exept.de> parents: 2877 diff changeset	3867	buttonInsetY := buttonInsetY abs.
58f2f296254d defaults Claus Gittinger <cg@exept.de> parents: 2877 diff changeset	3868
58f2f296254d defaults Claus Gittinger <cg@exept.de> parents: 2877 diff changeset	3869	itemSpace := styleSheet at:#'menu.itemHorizontalSpace'.
58f2f296254d defaults Claus Gittinger <cg@exept.de> parents: 2877 diff changeset	3870	itemSpace isNil ifTrue:[ itemSpace := styleSheet at:#'menu.itemSpace' default:[ font widthOf:' '] ].
58f2f296254d defaults Claus Gittinger <cg@exept.de> parents: 2877 diff changeset	3871
58f2f296254d defaults Claus Gittinger <cg@exept.de> parents: 2877 diff changeset	3872
2609 b927f450c4c8 * empty log message * ca parents: 2607 diff changeset	3873	fgColor := DefaultForegroundColor ? Color black.
b927f450c4c8 * empty log message * ca parents: 2607 diff changeset	3874	DefaultBackgroundColor notNil ifTrue:[ viewBackground := DefaultBackgroundColor ].
b927f450c4c8 * empty log message * ca parents: 2607 diff changeset	3875	fn := self class defaultFont.
2610 a30fc1fb35d7 * empty log message * ca parents: 2609 diff changeset	3876	fn notNil ifTrue:[ self font:fn ].
1923 530426a3d692 support #level: ca parents: 1922 diff changeset	3877
2347 9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	3878	defaultHideOnRelease := styleSheet at:#'popup.hideOnRelease' default:true.
9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	3879
2003 732fbaf5864f avoid changing the level after realization (to avoid confusing the shadow) Claus Gittinger <cg@exept.de> parents: 2000 diff changeset	3880	self updateLevelAndBorder.
580 249f6cfc5bb2 checkin from browser Claus Gittinger <cg@exept.de> parents: 571 diff changeset	3881	!
249f6cfc5bb2 checkin from browser Claus Gittinger <cg@exept.de> parents: 571 diff changeset	3882
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3883	initialize
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	3884	"set default configuration"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	3885
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3886	super initialize.
616 a6157b083830 support of different styles ca parents: 608 diff changeset	3887
2877 6f7df547445b * empty log message * Claus Gittinger <cg@exept.de> parents: 2871 diff changeset	3888	self enableMotionEvents. "/ for flyByHelp
498 b4c341497621 bug fixes: ca parents: 475 diff changeset	3889	enabled := true.
1877 3b415fa4710f only access originChanged, extentChanged and cornerChanged Claus Gittinger <cg@exept.de> parents: 1874 diff changeset	3890	self extentChangedFlag:false.
3b415fa4710f only access originChanged, extentChanged and cornerChanged Claus Gittinger <cg@exept.de> parents: 1874 diff changeset	3891	self originChangedFlag:false.
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	3892	explicitExtent := nil.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	3893	shortKeyInset := 0.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	3894	mustRearrange := false.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	3895	showSeparatingLines := false.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	3896	showGroupDivider := true.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3897	!
dce33f8bb806 intitial checkin ca parents: diff changeset	3898
1573 fd124ee2bce5 shortcutKeys; arrange layout if selection changed ca parents: 1572 diff changeset	3899	map
717 540e638fdebb Avoid pointer and keyboard grabbing if not necessary Stefan Vogel <sv@exept.de> parents: 712 diff changeset	3900	"grab the pointer here, when visible (but not if control has already been lost).
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	3901	If the grab fails, try again and unmap myself if that fails too."
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	3902
1791 bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	3903	\|loIndices loItems\|
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3904
1690 38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3905	enteredItem := nil.
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3906
1024 28c87a2369f6 show active help on pointer motion. Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	3907	self enableMotionEvents.
798 74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	3908	self becomesActiveMenu.
1573 fd124ee2bce5 shortcutKeys; arrange layout if selection changed ca parents: 1572 diff changeset	3909	super map.
2681 2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	3910	self addDependencies.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3911
1785 efa4cc8ca917 mnemonic behaviour changed ca parents: 1775 diff changeset	3912	loIndices := InitialSelectionQuerySignal query.
1791 bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	3913	loItems := items ? #[].
bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	3914
bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	3915	loItems do:[:anItem\| anItem fetchImages ].
1572 80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	3916
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3917	self isPopUpView ifTrue:[
2681 2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	3918	self doGrab
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3919	] ifFalse:[
2681 2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	3920	super viewBackground:(self backgroundColor).
717 540e638fdebb Avoid pointer and keyboard grabbing if not necessary Stefan Vogel <sv@exept.de> parents: 712 diff changeset	3921	].
1791 bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	3922	loItems do:[:el\| el updateIndicators ].
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3923
1785 efa4cc8ca917 mnemonic behaviour changed ca parents: 1775 diff changeset	3924	loIndices size > 0 ifTrue:[
2681 2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	3925	self redrawX:0 y:0 width:width height:height.
2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	3926	self openMenusFromItemIndices:loIndices.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3927	].
dce33f8bb806 intitial checkin ca parents: diff changeset	3928
1177 cfd7f71639f3 checkin from browser Claus Gittinger <cg@exept.de> parents: 1164 diff changeset	3929	"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	3930	"Modified: / 18.3.1999 / 18:22:18 / stefan"
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3931	!
dce33f8bb806 intitial checkin ca parents: diff changeset	3932
dce33f8bb806 intitial checkin ca parents: diff changeset	3933	realize
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	3934	"realize menu and shadowView"
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3935
2761 611ecd331c14 more xp style Claus Gittinger <cg@exept.de> parents: 2755 diff changeset	3936	\|bgColor\|
611ecd331c14 more xp style Claus Gittinger <cg@exept.de> parents: 2755 diff changeset	3937
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3938	self isPopUpView ifTrue:[
2761 611ecd331c14 more xp style Claus Gittinger <cg@exept.de> parents: 2755 diff changeset	3939	bgColor := styleSheet colorAt:'menu.backgroundColor'.
611ecd331c14 more xp style Claus Gittinger <cg@exept.de> parents: 2755 diff changeset	3940	bgColor notNil ifTrue:[ self viewBackground:bgColor ].
611ecd331c14 more xp style Claus Gittinger <cg@exept.de> parents: 2755 diff changeset	3941
2347 9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	3942	"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	3943	shadowView must be realized before self"
9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	3944	self hiddenOnRealize:true.
9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	3945	super realize.
9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	3946	self resize.
9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	3947	self makeFullyVisible.
2003 732fbaf5864f avoid changing the level after realization (to avoid confusing the shadow) Claus Gittinger <cg@exept.de> parents: 2000 diff changeset	3948	"/ self mustRearrange.
2347 9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	3949	shadowView notNil ifTrue:[
9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	3950	shadowView realize.
9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	3951	].
9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	3952	self raise.
9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	3953	self map.
736 220741d8049b Use #saveUnder. Claus Gittinger <cg@exept.de> parents: 735 diff changeset	3954	] ifFalse:[
2347 9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	3955	super realize.
1767 e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	3956	].
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	3957	self allSubViewsDo:[:aView\| aView realize ].
2347 9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	3958	hideOnRelease := defaultHideOnRelease.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3959	!
dce33f8bb806 intitial checkin ca parents: diff changeset	3960
dce33f8bb806 intitial checkin ca parents: diff changeset	3961	recreate
1832 f6e6640e99a3 comment Claus Gittinger <cg@exept.de> parents: 1829 diff changeset	3962	"this is called after a snapin or a migration.
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	3963	If the image was saved with an active menu, hide the menu"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	3964
1455 5685ec322a5b sizeChanged:... Claus Gittinger <cg@exept.de> parents: 1388 diff changeset	3965	selection := nil.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3966	super recreate.
dce33f8bb806 intitial checkin ca parents: diff changeset	3967	!
dce33f8bb806 intitial checkin ca parents: diff changeset	3968
1130 fb79ef4aeec8 style changes Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	3969	reinitStyle
fb79ef4aeec8 style changes Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	3970	"handle style change while being open (win32 only - for now)"
fb79ef4aeec8 style changes Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	3971
fb79ef4aeec8 style changes Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	3972	super reinitStyle.
fb79ef4aeec8 style changes Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	3973
fb79ef4aeec8 style changes Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	3974	self fetchDeviceResources.
1811 df4f5e5b3396 restart under windows Claus Gittinger <cg@exept.de> parents: 1810 diff changeset	3975	self mustRearrange. "/ care for changed font sizes etc.
df4f5e5b3396 restart under windows Claus Gittinger <cg@exept.de> parents: 1810 diff changeset	3976
df4f5e5b3396 restart under windows Claus Gittinger <cg@exept.de> parents: 1810 diff changeset	3977	self do:[:anItem \|
df4f5e5b3396 restart under windows Claus Gittinger <cg@exept.de> parents: 1810 diff changeset	3978	anItem reinitStyle
df4f5e5b3396 restart under windows Claus Gittinger <cg@exept.de> parents: 1810 diff changeset	3979	].
1130 fb79ef4aeec8 style changes Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	3980
fb79ef4aeec8 style changes Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	3981	"Created: / 10.9.1998 / 21:37:05 / cg"
1811 df4f5e5b3396 restart under windows Claus Gittinger <cg@exept.de> parents: 1810 diff changeset	3982	"Modified: / 17.8.2000 / 18:01:33 / cg"
1130 fb79ef4aeec8 style changes Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	3983	!
fb79ef4aeec8 style changes Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	3984
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3985	unmap
1330 63d2fe5ebd48 comment Claus Gittinger <cg@exept.de> parents: 1313 diff changeset	3986	"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	3987	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	3988
2681 2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	3989	self removeDependencies.
798 74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	3990	self clearLastActiveMenu.
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3991	self doUngrab:(superMenu isNil).
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3992	"/ self isPopUpView ifTrue:[
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3993	"/ self doUngrab:(superMenu isNil)
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3994	"/ ].
3142 4f1c952048c5 focusView handling ca parents: 3133 diff changeset	3995	prevFocusView := nil.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3996	super unmap.
dce33f8bb806 intitial checkin ca parents: diff changeset	3997	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	3998	!
732fbaf5864f avoid changing the level after realization (to avoid confusing the shadow) Claus Gittinger <cg@exept.de> parents: 2000 diff changeset	3999
732fbaf5864f avoid changing the level after realization (to avoid confusing the shadow) Claus Gittinger <cg@exept.de> parents: 2000 diff changeset	4000	updateLevelAndBorder
732fbaf5864f avoid changing the level after realization (to avoid confusing the shadow) Claus Gittinger <cg@exept.de> parents: 2000 diff changeset	4001	"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	4002
732fbaf5864f avoid changing the level after realization (to avoid confusing the shadow) Claus Gittinger <cg@exept.de> parents: 2000 diff changeset	4003	\|bw lvl\|
732fbaf5864f avoid changing the level after realization (to avoid confusing the shadow) Claus Gittinger <cg@exept.de> parents: 2000 diff changeset	4004
732fbaf5864f avoid changing the level after realization (to avoid confusing the shadow) Claus Gittinger <cg@exept.de> parents: 2000 diff changeset	4005	self isPopUpView ifTrue:[
732fbaf5864f avoid changing the level after realization (to avoid confusing the shadow) Claus Gittinger <cg@exept.de> parents: 2000 diff changeset	4006	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	4007	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	4008	] ifFalse:[
732fbaf5864f avoid changing the level after realization (to avoid confusing the shadow) Claus Gittinger <cg@exept.de> parents: 2000 diff changeset	4009	bw := styleSheet is3D ifFalse:[1] ifTrue:[0].
2372 d136f6d4b7c5 bugfix if font is nil ca parents: 2364 diff changeset	4010	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	4011	].
732fbaf5864f avoid changing the level after realization (to avoid confusing the shadow) Claus Gittinger <cg@exept.de> parents: 2000 diff changeset	4012	self borderWidth:bw.
732fbaf5864f avoid changing the level after realization (to avoid confusing the shadow) Claus Gittinger <cg@exept.de> parents: 2000 diff changeset	4013	self level:lvl.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4014	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	4015
1878 1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	4016	!MenuPanel methodsFor:'keyboard control'!
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	4017
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	4018	mnemonicViewNext:aKeyEvent
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	4019	"a mnemonicKey event as forwarded from the keyboardProcessor - if there
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	4020	is the mnemonic-key defined for any menuItem, handle the menuItem and
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4021	return the topMenu otherwise nil."
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4022
2112 c4cd07f21fac processing mnemonic's (search next from current) ca parents: 2111 diff changeset	4023	\|menu uKey lKey list index\|
c4cd07f21fac processing mnemonic's (search next from current) ca parents: 2111 diff changeset	4024
c4cd07f21fac processing mnemonic's (search next from current) ca parents: 2111 diff changeset	4025	superMenu notNil ifTrue:[ ^ superMenu mnemonicViewNext:aKeyEvent ].
1878 1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	4026	shown ifFalse:[^ nil].
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	4027
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	4028	uKey := aKeyEvent rawKey last asUppercase.
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	4029	lKey := uKey asLowercase.
2112 c4cd07f21fac processing mnemonic's (search next from current) ca parents: 2111 diff changeset	4030
c4cd07f21fac processing mnemonic's (search next from current) ca parents: 2111 diff changeset	4031	selection notNil ifTrue:[
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	4032	"first lookup the current grapMenu before starting in the topMenu
975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	4033	"
975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	4034	menu := self detectGrabMenu.
975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	4035
975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	4036	[ menu ~~ self ] whileTrue:[
975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	4037	index := menu selectionIndex.
975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	4038	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	4039	maxDepth:10 from:(index + 1) to:99999
2604 34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	4040	ignoreSubmenuBlock:[:anItem\| anItem ignoreMnemonicKeys ].
2112 c4cd07f21fac processing mnemonic's (search next from current) ca parents: 2111 diff changeset	4041
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	4042	list size ~~ 0 ifTrue:[
975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	4043	"/ has item which responds to the mnemonic
975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	4044	menu processCollectedIndices:list.
975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	4045	^ self
975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	4046	].
975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	4047	menu := menu superMenu.
975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	4048	].
975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	4049	index := self selectionIndex.
975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	4050	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	4051	maxDepth:10 from:(1 + index) to:99999
2604 34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	4052	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	4053
2112 c4cd07f21fac processing mnemonic's (search next from current) ca parents: 2111 diff changeset	4054	] ifFalse:[
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	4055	index := 99999.
975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	4056	list := nil.
2112 c4cd07f21fac processing mnemonic's (search next from current) ca parents: 2111 diff changeset	4057	].
c4cd07f21fac processing mnemonic's (search next from current) ca parents: 2111 diff changeset	4058
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	4059	list isNil ifTrue:[
975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	4060	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	4061	maxDepth:1 from:1 to:index
2604 34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	4062	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	4063
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	4064
975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	4065	list isNil ifTrue:[
975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	4066	"/ must clear existing selection
975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	4067	self selection:nil.
975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	4068	^ nil
975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	4069	]
2112 c4cd07f21fac processing mnemonic's (search next from current) ca parents: 2111 diff changeset	4070	].
c4cd07f21fac processing mnemonic's (search next from current) ca parents: 2111 diff changeset	4071
c4cd07f21fac processing mnemonic's (search next from current) ca parents: 2111 diff changeset	4072	"/ has item which responds to the mnemonic
c4cd07f21fac processing mnemonic's (search next from current) ca parents: 2111 diff changeset	4073	self processCollectedIndices:list.
1889 43516e4588ce give warning messages for unimplemented menu-aspects Claus Gittinger <cg@exept.de> parents: 1878 diff changeset	4074	!
1878 1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	4075
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	4076	openMenusFromItemIndices:anItemIndiceList
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4077	"open all menus derived from sequence of item indices"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4078
1878 1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	4079	\|item\|
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	4080
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	4081	anItemIndiceList size == 0 ifTrue:[
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4082	^ self
1878 1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	4083	].
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	4084	item := self itemAt:(anItemIndiceList removeFirst).
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	4085
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	4086	(item notNil and:[item enabled]) ifTrue:[
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4087	InitialSelectionQuerySignal answer:anItemIndiceList do:[
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4088	self selection:item openMenu:true.
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4089	]
1889 43516e4588ce give warning messages for unimplemented menu-aspects Claus Gittinger <cg@exept.de> parents: 1878 diff changeset	4090	].
43516e4588ce give warning messages for unimplemented menu-aspects Claus Gittinger <cg@exept.de> parents: 1878 diff changeset	4091	!
1878 1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	4092
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	4093	processCollectedIndices:indices
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	4094	\|menu item\|
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	4095
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	4096	indices size == 0 ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	4097	^ self
1878 1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	4098	].
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	4099	menu := self.
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	4100
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	4101	[menu selectionIndex == indices first] whileTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	4102	( (item := menu selection) isNil "/ shouldn't happen
93426020ceed * empty log message * ca parents: 2216 diff changeset	4103	or:[(menu := item submenu) isNil] "/ no more indices; done
93426020ceed * empty log message * ca parents: 2216 diff changeset	4104	) ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	4105	^ true
93426020ceed * empty log message * ca parents: 2216 diff changeset	4106	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	4107	indices removeFirst.
93426020ceed * empty log message * ca parents: 2216 diff changeset	4108
93426020ceed * empty log message * ca parents: 2216 diff changeset	4109	indices isEmpty ifTrue:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	4110	menu selection:nil.
93426020ceed * empty log message * ca parents: 2216 diff changeset	4111	^ self
93426020ceed * empty log message * ca parents: 2216 diff changeset	4112	]
1878 1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	4113	].
1889 43516e4588ce give warning messages for unimplemented menu-aspects Claus Gittinger <cg@exept.de> parents: 1878 diff changeset	4114	menu openMenusFromItemIndices:indices.
43516e4588ce give warning messages for unimplemented menu-aspects Claus Gittinger <cg@exept.de> parents: 1878 diff changeset	4115	!
1878 1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	4116
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	4117	processShortcut:aKeyEvent
2926 0d6dc899b49f ignoreShortcutKeys also blocks individual items Claus Gittinger <cg@exept.de> parents: 2919 diff changeset	4118	"a shortcutKey event as forwarded from the keyboardProcessor.
0d6dc899b49f ignoreShortcutKeys also blocks individual items Claus Gittinger <cg@exept.de> parents: 2919 diff changeset	4119	If there is a shortcut-key defined, process it and return true.
0d6dc899b49f ignoreShortcutKeys also blocks individual items Claus Gittinger <cg@exept.de> parents: 2919 diff changeset	4120	Otherwise return false."
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4121
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	4122	\|menu rKey lKey list item\|
1878 1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	4123
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	4124	superMenu notNil ifTrue:[
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	4125	^ superMenu processShortcut:aKeyEvent
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	4126	].
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	4127	shown ifFalse:[^ false].
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	4128
2604 34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	4129	lKey := aKeyEvent key.
34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	4130
34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	4131	"/ fast check, cursor keys are not supported
34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	4132
34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	4133	( #( CursorDown CursorUp CursorRight CursorLeft
34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	4134	) includes:lKey
34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	4135	) ifTrue:[
34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	4136	^ false.
34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	4137	].
1878 1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	4138	rKey := aKeyEvent rawKey.
2604 34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	4139	item := nil.
1878 1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	4140	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	4141
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	4142	[true] whileTrue:[
2926 0d6dc899b49f ignoreShortcutKeys also blocks individual items Claus Gittinger <cg@exept.de> parents: 2919 diff changeset	4143	list := menu
0d6dc899b49f ignoreShortcutKeys also blocks individual items Claus Gittinger <cg@exept.de> parents: 2919 diff changeset	4144	selectItemIndicesFor:[:el\|
0d6dc899b49f ignoreShortcutKeys also blocks individual items Claus Gittinger <cg@exept.de> parents: 2919 diff changeset	4145	\|skey\|
0d6dc899b49f ignoreShortcutKeys also blocks individual items Claus Gittinger <cg@exept.de> parents: 2919 diff changeset	4146
0d6dc899b49f ignoreShortcutKeys also blocks individual items Claus Gittinger <cg@exept.de> parents: 2919 diff changeset	4147	item := el.
0d6dc899b49f ignoreShortcutKeys also blocks individual items Claus Gittinger <cg@exept.de> parents: 2919 diff changeset	4148	el ignoreShortcutKeys ifTrue:[
0d6dc899b49f ignoreShortcutKeys also blocks individual items Claus Gittinger <cg@exept.de> parents: 2919 diff changeset	4149	false
0d6dc899b49f ignoreShortcutKeys also blocks individual items Claus Gittinger <cg@exept.de> parents: 2919 diff changeset	4150	] ifFalse:[
0d6dc899b49f ignoreShortcutKeys also blocks individual items Claus Gittinger <cg@exept.de> parents: 2919 diff changeset	4151	skey := el shortcutKey.
0d6dc899b49f ignoreShortcutKeys also blocks individual items Claus Gittinger <cg@exept.de> parents: 2919 diff changeset	4152	skey == rKey or:[skey == lKey]
0d6dc899b49f ignoreShortcutKeys also blocks individual items Claus Gittinger <cg@exept.de> parents: 2919 diff changeset	4153	]
0d6dc899b49f ignoreShortcutKeys also blocks individual items Claus Gittinger <cg@exept.de> parents: 2919 diff changeset	4154	]
0d6dc899b49f ignoreShortcutKeys also blocks individual items Claus Gittinger <cg@exept.de> parents: 2919 diff changeset	4155	maxDepth:10 from:1 to:99999
0d6dc899b49f ignoreShortcutKeys also blocks individual items Claus Gittinger <cg@exept.de> parents: 2919 diff changeset	4156	ignoreSubmenuBlock:[:anItem \| anItem ignoreShortcutKeys ].
1878 1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	4157
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	4158	list size ~~ 0 ifTrue:[
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	4159	"/ has item which responds to the shortcut
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	4160	item hasSubmenu ifFalse:[
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	4161	menu accept:item
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	4162	] ifTrue:[
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	4163	menu processCollectedIndices:list.
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	4164	self windowGroup focusView:self.
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	4165	].
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	4166	^ true
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	4167	].
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	4168
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	4169	menu == self ifTrue:[ ^ false ].
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	4170	menu := self.
1889 43516e4588ce give warning messages for unimplemented menu-aspects Claus Gittinger <cg@exept.de> parents: 1878 diff changeset	4171	].
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	4172	^ false "/ never reached
1889 43516e4588ce give warning messages for unimplemented menu-aspects Claus Gittinger <cg@exept.de> parents: 1878 diff changeset	4173	!
1878 1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	4174
2604 34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	4175	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	4176	"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	4177	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	4178	true. If no item is detected, nil is returned.
2604 34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	4179	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	4180	is created and passed through if the block returns false.
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4181	Otherwise the item is not asked for its submenu."
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4182
2112 c4cd07f21fac processing mnemonic's (search next from current) ca parents: 2111 diff changeset	4183	\|start stop\|
c4cd07f21fac processing mnemonic's (search next from current) ca parents: 2111 diff changeset	4184
c4cd07f21fac processing mnemonic's (search next from current) ca parents: 2111 diff changeset	4185	maxDepth <= 0 ifTrue:[^ nil].
c4cd07f21fac processing mnemonic's (search next from current) ca parents: 2111 diff changeset	4186
c4cd07f21fac processing mnemonic's (search next from current) ca parents: 2111 diff changeset	4187	start := aStart max:1.
c4cd07f21fac processing mnemonic's (search next from current) ca parents: 2111 diff changeset	4188	stop := aStop min:(items size).
c4cd07f21fac processing mnemonic's (search next from current) ca parents: 2111 diff changeset	4189
2604 34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	4190	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	4191	item := items at:i.
2604 34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	4192
34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	4193	(aOneArgBlock value:item) ifTrue:[
34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	4194	(item enabled and:[item isVisible]) ifTrue:[
34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	4195	^ 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	4196	]
2604 34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	4197	] ifFalse:[
34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	4198	(item hasSubmenu and:[item hasDelayedMenu not]) ifTrue:[
34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	4199	(item enabled and:[item isVisible]) ifTrue:[
34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	4200	(ignoreSubmenueBlock isNil or:[(ignoreSubmenueBlock value:item) not]) ifTrue:[
34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	4201	menu := item submenu.
34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	4202
34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	4203	(menu notNil and:[menu isEnabled]) ifTrue:[
34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	4204	result := menu selectItemIndicesFor:aOneArgBlock
34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	4205	maxDepth:(maxDepth - 1) from:1 to:99999
34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	4206	ignoreSubmenuBlock:ignoreSubmenueBlock.
34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	4207
34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	4208	result notNil ifTrue:[
34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	4209	result addFirst:i.
3128 9b92638bbd58 * empty log message * Claus Gittinger <cg@exept.de> parents: 3127 diff changeset	4210	^ result
2604 34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	4211	].
34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	4212	].
34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	4213	].
34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	4214	].
34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	4215	].
2603 edb5408fd3e7 prepared to test an item whether the submenu should be created caused by mnemonic or accelorator key ca parents: 2579 diff changeset	4216	].
1878 1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	4217	].
1889 43516e4588ce give warning messages for unimplemented menu-aspects Claus Gittinger <cg@exept.de> parents: 1878 diff changeset	4218	^ nil
3128 9b92638bbd58 * empty log message * Claus Gittinger <cg@exept.de> parents: 3127 diff changeset	4219
9b92638bbd58 * empty log message * Claus Gittinger <cg@exept.de> parents: 3127 diff changeset	4220	"Modified: / 18-10-2006 / 10:30:00 / cg"
1889 43516e4588ce give warning messages for unimplemented menu-aspects Claus Gittinger <cg@exept.de> parents: 1878 diff changeset	4221	! !
1878 1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	4222
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4223	!MenuPanel methodsFor:'misc'!
dce33f8bb806 intitial checkin ca parents: diff changeset	4224
427 82cbad72e197 raiseDeiconified is treated like a raise Claus Gittinger <cg@exept.de> parents: 420 diff changeset	4225	raiseDeiconified
82cbad72e197 raiseDeiconified is treated like a raise Claus Gittinger <cg@exept.de> parents: 420 diff changeset	4226	^ self raise
82cbad72e197 raiseDeiconified is treated like a raise Claus Gittinger <cg@exept.de> parents: 420 diff changeset	4227
82cbad72e197 raiseDeiconified is treated like a raise Claus Gittinger <cg@exept.de> parents: 420 diff changeset	4228	"Created: 21.6.1997 / 13:29:12 / cg"
82cbad72e197 raiseDeiconified is treated like a raise Claus Gittinger <cg@exept.de> parents: 420 diff changeset	4229	!
82cbad72e197 raiseDeiconified is treated like a raise Claus Gittinger <cg@exept.de> parents: 420 diff changeset	4230
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4231	superMenu
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4232	"returns supermenu or nil"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4233
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4234	^ superMenu
dce33f8bb806 intitial checkin ca parents: diff changeset	4235	!
dce33f8bb806 intitial checkin ca parents: diff changeset	4236
dce33f8bb806 intitial checkin ca parents: diff changeset	4237	topMenu
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4238	"returns the topMenu; the one having no superMenu"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4239
1791 bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	4240	\|menu smenu\|
bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	4241
bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	4242	menu := self.
bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	4243
bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	4244	[(smenu := menu superMenu) notNil] whileTrue:[
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4245	menu := smenu
1791 bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	4246	].
bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	4247	^ menu
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4248	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	4249
1825 962390f1b499 category change Claus Gittinger <cg@exept.de> parents: 1824 diff changeset	4250	!MenuPanel methodsFor:'printing & storing'!
798 74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4251
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4252	printString
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4253	"return a printed representation of the menu"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4254
798 74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4255	\|string label\|
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4256
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4257	string := 'Menu:'.
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4258
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4259	self do:[:anItem\|
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4260	label := anItem label ? ''.
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4261	string := string ,' ', label printString.
798 74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4262	].
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4263	^ string
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4264
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4265	"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	4266	! !
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4267
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4268	!MenuPanel methodsFor:'private'!
dce33f8bb806 intitial checkin ca parents: diff changeset	4269
434 9898a2909ef0 add active help for items ca parents: 433 diff changeset	4270	application
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4271	"optimize access to retrive the application"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4272
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	4273	application notNil ifTrue:[^ application ].
434 9898a2909ef0 add active help for items ca parents: 433 diff changeset	4274
9898a2909ef0 add active help for items ca parents: 433 diff changeset	4275	superMenu notNil ifTrue:[
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	4276	application := superMenu application.
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	4277	^ application
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	4278	].
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	4279	application := super application.
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	4280	^ application
1872 b20e27632fd8 application fetch fix Claus Gittinger <cg@exept.de> parents: 1870 diff changeset	4281	!
434 9898a2909ef0 add active help for items ca parents: 433 diff changeset	4282
1572 80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	4283	detectItemForKey:aKey
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	4284	"returns the item assigned to a key, accessCharacter or starts with.
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4285	if no item is detected nil is returned."
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4286
1572 80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	4287	\|cIdx uKey lKey item\|
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	4288
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4289	items isNil ifTrue:[^ nil].
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4290
1572 80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	4291	cIdx := self selectionIndex.
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	4292	uKey := aKey asUppercase.
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	4293	lKey := aKey asLowercase.
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	4294
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4295	items keysAndValuesDo:[:anIndex :anItem\| \|char label\|
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4296	( anIndex ~~ cIdx
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4297	and:[anItem canSelect
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4298	and:[(label := anItem textLabel) notNil
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4299	and:[label size ~~ 0]]]
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4300	) ifTrue:[
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4301	(char := anItem accessCharacter) notNil ifTrue:[
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4302	(char == uKey or:[char == lKey]) ifTrue:[
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4303	^ anItem
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4304	]
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4305	] ifFalse:[
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4306	char := label at:1.
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4307
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4308	(char == uKey or:[char == lKey]) ifTrue:[
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4309	anIndex > cIdx ifTrue:[
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4310	^ anItem
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4311	].
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4312	item isNil ifTrue:[item := anItem]
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4313	]
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4314	]
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4315	]
1572 80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	4316	].
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	4317	^ item
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	4318	!
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	4319
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	4320	menuAdornmentAt:aSymbol
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4321	"returns a value derived from adornment"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4322
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	4323	adornment isNil ifTrue:[^ nil].
975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	4324	^ adornment at:aSymbol ifAbsent:nil
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4325	!
dce33f8bb806 intitial checkin ca parents: diff changeset	4326
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	4327	menuAdornmentAt:aSymbol put:something
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4328	"sets a value for the specific menu"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4329
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	4330	\|oldValue\|
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	4331
653 cf9b6ef11ade bug fix; no automatic rearrange of items ca parents: 650 diff changeset	4332	adornment isNil ifTrue:[
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	4333	something isNil ifTrue:[^ self].
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	4334	adornment := IdentityDictionary new.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	4335	] ifFalse:[
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	4336	oldValue := adornment at:aSymbol ifAbsent:nil.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	4337	oldValue == something ifTrue:[^ self].
653 cf9b6ef11ade bug fix; no automatic rearrange of items ca parents: 650 diff changeset	4338	].
cf9b6ef11ade bug fix; no automatic rearrange of items ca parents: 650 diff changeset	4339	adornment at:aSymbol put:something.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4340	!
dce33f8bb806 intitial checkin ca parents: diff changeset	4341
dce33f8bb806 intitial checkin ca parents: diff changeset	4342	onEachPerform:aSelector withArgList:aList
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4343	"on each item perform selector with an argument derived from aList"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4344
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4345	aList isCollection ifTrue:[
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4346	items size >= aList size ifTrue:[
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4347	aList keysAndValuesDo:[:anIndex :anArg\|
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4348	(items at:anIndex) perform:aSelector with:anArg
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4349	]
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4350	]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4351	] ifFalse:[
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4352	self do:[:anItem\| anItem perform:aSelector with:aList ]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4353	]
dce33f8bb806 intitial checkin ca parents: diff changeset	4354	!
dce33f8bb806 intitial checkin ca parents: diff changeset	4355
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	4356	registerImageOnDevice:anImage
2269 e250e3adfc56 registration of images ca parents: 2255 diff changeset	4357
e250e3adfc56 registration of images ca parents: 2255 diff changeset	4358	anImage isNil ifTrue:[ ^ nil ].
e250e3adfc56 registration of images ca parents: 2255 diff changeset	4359	^ self class image:anImage onDevice:device
e250e3adfc56 registration of images ca parents: 2255 diff changeset	4360
e250e3adfc56 registration of images ca parents: 2255 diff changeset	4361	"/ \|image\|
e250e3adfc56 registration of images ca parents: 2255 diff changeset	4362	"/
e250e3adfc56 registration of images ca parents: 2255 diff changeset	4363	"/ (image := anImage) notNil ifTrue:[
e250e3adfc56 registration of images ca parents: 2255 diff changeset	4364	"/ image device ~~ device ifTrue:[
e250e3adfc56 registration of images ca parents: 2255 diff changeset	4365	"/ image := image copy.
e250e3adfc56 registration of images ca parents: 2255 diff changeset	4366	"/ ].
e250e3adfc56 registration of images ca parents: 2255 diff changeset	4367	"/ image := image onDevice:device.
e250e3adfc56 registration of images ca parents: 2255 diff changeset	4368	"/ image := image clearMaskedPixels.
e250e3adfc56 registration of images ca parents: 2255 diff changeset	4369	"/ ].
e250e3adfc56 registration of images ca parents: 2255 diff changeset	4370	"/ ^ image
2355 cd91ed4dc4c6 * empty log message * Claus Gittinger <cg@exept.de> parents: 2354 diff changeset	4371	!
cd91ed4dc4c6 * empty log message * Claus Gittinger <cg@exept.de> parents: 2354 diff changeset	4372
cd91ed4dc4c6 * empty log message * Claus Gittinger <cg@exept.de> parents: 2354 diff changeset	4373	superMenu:aSuperMenu
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4374	"set my supermenu from which i'am activated"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4375
2355 cd91ed4dc4c6 * empty log message * Claus Gittinger <cg@exept.de> parents: 2354 diff changeset	4376	superMenu := aSuperMenu.
cd91ed4dc4c6 * empty log message * Claus Gittinger <cg@exept.de> parents: 2354 diff changeset	4377
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	4378	superMenu notNil ifTrue:[
2355 cd91ed4dc4c6 * empty log message * Claus Gittinger <cg@exept.de> parents: 2354 diff changeset	4379	styleSheet := superMenu styleSheet.
cd91ed4dc4c6 * empty log message * Claus Gittinger <cg@exept.de> parents: 2354 diff changeset	4380	rightArrow := superMenu rightArrow.
cd91ed4dc4c6 * empty log message * Claus Gittinger <cg@exept.de> parents: 2354 diff changeset	4381	rightArrowShadow := superMenu rightArrowShadow.
cd91ed4dc4c6 * empty log message * Claus Gittinger <cg@exept.de> parents: 2354 diff changeset	4382	].
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4383	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	4384
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	4385	!MenuPanel methodsFor:'private-activation'!
687 23ce9888d76f bug fixes: ca parents: 681 diff changeset	4386
798 74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4387	activeMenu
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4388	"returns the current active menu or self (the top menu)"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4389
687 23ce9888d76f bug fixes: ca parents: 681 diff changeset	4390	^ lastActiveMenu ? self
23ce9888d76f bug fixes: ca parents: 681 diff changeset	4391
798 74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4392	"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	4393	!
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4394
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4395	activeMenu:aMenu
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4396	"set the current active menu"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4397
798 74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4398	lastActiveMenu := aMenu
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4399
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4400	"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	4401	!
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4402
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4403	becomesActiveMenu
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4404	"submenu becomes the active menu"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4405
798 74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4406	mapTime := Time millisecondClockValue.
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4407	self topMenu activeMenu:self.
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4408
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4409	"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	4410	!
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4411
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4412	clearLastActiveMenu
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4413	"reset the current active menu"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4414
798 74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4415	\|top\|
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4416
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4417	top := self topMenu.
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4418
2251 30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	4419	"/ prevFocusView notNil ifTrue:[
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	4420	"/ self windowGroup focusView:prevFocusView.
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	4421	"/ prevFocusView := nil.
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	4422	"/ ].
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	4423	"/
798 74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4424	top activeMenu == self ifTrue:[
2251 30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	4425	top activeMenu:nil
687 23ce9888d76f bug fixes: ca parents: 681 diff changeset	4426	]
23ce9888d76f bug fixes: ca parents: 681 diff changeset	4427
798 74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4428	"Created: / 27.2.1998 / 17:41:17 / cg"
687 23ce9888d76f bug fixes: ca parents: 681 diff changeset	4429	!
23ce9888d76f bug fixes: ca parents: 681 diff changeset	4430
23ce9888d76f bug fixes: ca parents: 681 diff changeset	4431	mapTime
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4432	"returns the time when the menu becomes active"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4433
687 23ce9888d76f bug fixes: ca parents: 681 diff changeset	4434	^ mapTime
798 74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4435
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4436	"Modified: / 27.2.1998 / 17:41:18 / cg"
687 23ce9888d76f bug fixes: ca parents: 681 diff changeset	4437	! !
23ce9888d76f bug fixes: ca parents: 681 diff changeset	4438
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	4439	!MenuPanel methodsFor:'private-scrolling'!
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4440
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4441	hasScrollerAt:aDirection
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4442	"returns true if a visible scroller at a direction exists"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4443
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4444	\|layout\|
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4445
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4446	self hasScrollers ifFalse:[
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4447	^ false
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4448	].
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4449
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4450	aDirection == #PREV ifTrue:[
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4451	layout := items first layout.
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4452
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4453	^ self verticalLayout ifTrue:[ layout top < margin]
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4454	ifFalse:[ layout left < margin]
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4455	].
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4456	layout := items last layout.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4457
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4458	^ self verticalLayout ifTrue:[ layout bottom > (height - margin)]
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4459	ifFalse:[ layout right > (width - margin)]
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4460	!
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4461
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4462	hasScrollers
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4463	"returns true if scrollers are needed"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4464
2018 2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4465	\|maxExtent first last isVert\|
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4466
2729 d28bc8243494 Do not set maxExtent (to the Screen size) in StandartSystemView. Stefan Vogel <sv@exept.de> parents: 2715 diff changeset	4467	(mustRearrange or:[items size <= 1]) ifTrue:[^ false].
2018 2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4468
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4469	isVert := self verticalLayout.
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4470
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4471	superView notNil ifTrue:[
2729 d28bc8243494 Do not set maxExtent (to the Screen size) in StandartSystemView. Stefan Vogel <sv@exept.de> parents: 2715 diff changeset	4472	((first := items first layout) isNil
d28bc8243494 Do not set maxExtent (to the Screen size) in StandartSystemView. Stefan Vogel <sv@exept.de> parents: 2715 diff changeset	4473	or:[(last := items last layout) isNil]
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4474	) ifTrue:[
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4475	^ false
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4476	].
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4477	isVert ifTrue:[
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4478	^ first top < 0 or:[last bottom > height]
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4479	].
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4480	^ first left < 0 or:[last right > width]
2018 2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4481	].
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4482	maxExtent := self maxExtent.
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4483	isVert ifTrue:[
2729 d28bc8243494 Do not set maxExtent (to the Screen size) in StandartSystemView. Stefan Vogel <sv@exept.de> parents: 2715 diff changeset	4484	^ (height >= maxExtent y)
d28bc8243494 Do not set maxExtent (to the Screen size) in StandartSystemView. Stefan Vogel <sv@exept.de> parents: 2715 diff changeset	4485	].
d28bc8243494 Do not set maxExtent (to the Screen size) in StandartSystemView. Stefan Vogel <sv@exept.de> parents: 2715 diff changeset	4486	^ (width >= maxExtent x)
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4487	!
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4488
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4489	indexOfItemAtScroller:aDirection
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4490	"returns the index of the item under the scroller or 0"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4491
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4492	\|bounds min max layout\|
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4493
2860 300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	4494	self hasScrollers ifFalse:[ ^ 0 ].
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4495	bounds := self scrollerBoundsAt:aDirection.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4496
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4497	self verticalLayout ifTrue:[
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4498	min := bounds top.
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4499	max := bounds bottom.
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4500
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4501	items keysAndValuesDo:[:anIndex :anItem\|
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4502	anItem isVisible ifTrue:[
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4503	layout := anItem layout.
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4504
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4505	(layout top < max and:[layout bottom > min]) ifTrue:[
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4506	^ anIndex
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4507	].
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4508	].
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4509	].
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4510	] ifFalse:[
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4511	min := bounds left.
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4512	max := bounds right.
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4513
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4514	items keysAndValuesDo:[:anIndex :anItem\|
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4515	anItem isVisible ifTrue:[
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4516	layout := anItem layout.
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4517
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4518	(layout left < max and:[layout right > min]) ifTrue:[
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4519	^ anIndex
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4520	].
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4521	].
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4522	]
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4523	].
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4524	^ 0
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4525	!
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4526
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4527	makeItemVisible:anItem
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4528	"make an item visible"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4529
2018 2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4530	\|boundsPREV boundsNEXT delta layout index scr0 scr1 windowSz scrSz doScroll
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4531	isVertical boundsMin layoutMin boundsMax layoutMax dltOrg
2042 cc2141b4117f checkin from browser Claus Gittinger <cg@exept.de> parents: 2041 diff changeset	4532	inv1 inv2\|
2018 2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4533
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4534	( anItem notNil
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4535	and:[self hasScrollers
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4536	and:[(layout := anItem layout) notNil]]
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4537	) ifFalse:[
2659 3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4538	^ self
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4539	].
2018 2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4540	index := self indexOfItem:anItem.
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4541	boundsPREV := self scrollerBoundsAt:#PREV.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4542	boundsNEXT := self scrollerBoundsAt:#NEXT.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4543
2018 2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4544	isVertical := self verticalLayout.
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4545
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4546	isVertical ifTrue:[
2659 3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4547	boundsMin := boundsPREV bottom.
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4548	boundsMax := boundsNEXT top.
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4549	layoutMin := layout top.
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4550	layoutMax := layout bottom.
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4551	windowSz := height.
2018 2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4552	] ifFalse:[
2659 3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4553	boundsMin := boundsPREV right.
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4554	boundsMax := boundsNEXT left.
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4555	layoutMin := layout left.
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4556	layoutMax := layout right.
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4557	windowSz := width.
2018 2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4558	].
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4559
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4560
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4561	layoutMin < boundsMin ifTrue:[
2659 3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4562	layoutMin >= 0 ifTrue:[
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4563	^ self
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4564	].
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4565	"/ test whether is first visible item
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4566	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	4567
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4568	index == 0 ifTrue:[ scr0 := margin ]
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4569	ifFalse:[ scr0 := boundsMin ].
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4570
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4571	delta := layoutMin negated + scr0.
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4572	] ifFalse:[
2659 3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4573	layoutMax > boundsMax ifFalse:[
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4574	^ self
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4575	].
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4576	"/ test whether is last visible item
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4577	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	4578
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4579	index == 0 ifTrue:[ scr0 := windowSz - margin ]
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4580	ifFalse:[ scr0 := boundsMax ].
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4581
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4582	delta := scr0 - layoutMax.
2018 2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4583	].
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4584	delta == 0 ifTrue:[ ^ self ].
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4585
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4586	doScroll := false.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4587
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4588	shown ifTrue:[
2659 3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4589	delta abs < (windowSz / 2) ifTrue:[
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4590	doScroll := true.
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4591	self repairDamage
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4592	]
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4593	].
2018 2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4594	isVertical ifTrue:[ dltOrg := 0@delta ] ifFalse:[dltOrg := delta@0].
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4595	items do:[:el\| el moveBy:dltOrg ].
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4596
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4597	doScroll ifFalse:[
2659 3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4598	self invalidate.
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4599	^ self
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4600	].
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4601
2018 2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4602	windowSz := windowSz - margin - margin.
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4603
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4604	scr0 := boundsMin.
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4605	scr1 := scr0 + delta abs.
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4606	scrSz := boundsMax - scr1.
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4607
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4608	delta < 0 ifTrue:[
2659 3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4609	isVertical ifTrue:[
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4610	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	4611	width:windowSz height:scrSz async:false.
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4612
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4613	scr1 := scr0 + scrSz.
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4614	inv2 := (margin @ scr1) extent:(windowSz @ (height - scr1 - margin)).
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4615	"/ 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	4616	] ifFalse:[
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4617	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	4618	width:scrSz height:windowSz async:false.
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4619
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4620	scr1 := scr0 + scrSz.
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4621	inv2 := (scr1 @ margin) extent:((width - scr1 - margin) @ windowSz).
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4622	"/ 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	4623	].
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4624	inv1 := boundsPREV.
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4625	] ifFalse:[
2659 3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4626	isVertical ifTrue:[
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4627	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	4628	width:windowSz height:scrSz async:false.
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4629
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4630	inv2 := (margin @ margin) extent:(windowSz @ (scr1 - margin)).
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4631	"/ 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	4632	] ifFalse:[
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4633	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	4634	width:scrSz height:windowSz async:false.
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4635
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4636	inv2 := (margin @ margin) extent:(scr1 - margin) @ windowSz.
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4637	"/ 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	4638	].
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4639	inv1 := boundsNEXT.
2042 cc2141b4117f checkin from browser Claus Gittinger <cg@exept.de> parents: 2041 diff changeset	4640	].
cc2141b4117f checkin from browser Claus Gittinger <cg@exept.de> parents: 2041 diff changeset	4641	self invalidate:inv1.
cc2141b4117f checkin from browser Claus Gittinger <cg@exept.de> parents: 2041 diff changeset	4642	self invalidate:inv2.
2048 ba472f3f46c7 code cleanup Claus Gittinger <cg@exept.de> parents: 2047 diff changeset	4643
ba472f3f46c7 code cleanup Claus Gittinger <cg@exept.de> parents: 2047 diff changeset	4644	"Modified: / 13.11.2001 / 20:26:42 / cg"
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4645	!
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4646
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	4647	scrollActivity
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	4648	"returns the one and only scrollActivity - data holder
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4649	for a menu and all contained submenus"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4650
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	4651	superMenu notNil ifTrue:[
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4652	^ superMenu scrollActivity
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	4653	].
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	4654	scrollActivity isNil ifTrue:[
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4655	scrollActivity := ScrollActivity new.
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	4656	].
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	4657	^ scrollActivity
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	4658	!
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	4659
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4660	scrollerBoundsAt:aDirection
2860 300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	4661	"returns the bounds of the scroller at a direction"
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4662
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4663	\|y x w h inset\|
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4664
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4665	inset := 0.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4666	x := y := inset.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4667	w := h := 15.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4668
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4669	self verticalLayout ifTrue:[
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4670	aDirection == #NEXT ifTrue:[
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4671	y := height - h - inset.
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4672	].
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4673	w := width - inset - inset.
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4674	] ifFalse:[
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4675	aDirection == #NEXT ifTrue:[
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4676	x := width - w - inset.
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4677	].
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4678	h := height - inset - inset.
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4679	].
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4680	^ Rectangle left:x top:y width:w height:h
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4681	!
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4682
2046 012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	4683	scrollerDirectionAtPoint:aPoint
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4684	"returns the scroller-direction at aPoint, or nil"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4685
2046 012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	4686	self hasScrollers ifTrue:[
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4687	#( PREV NEXT ) do:[:aDirection\| \|bounds\|
2860 300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	4688	bounds := self scrollerBoundsAt:aDirection.
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	4689
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	4690	(bounds containsPoint:aPoint) ifTrue:[
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4691	^ (self hasScrollerAt:aDirection) ifTrue:[aDirection] ifFalse:[nil]
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4692	]
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4693	]
2046 012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	4694	].
012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	4695	^ nil
012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	4696
012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	4697	"Created: / 13.11.2001 / 14:13:16 / cg"
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4698	! !
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4699
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	4700	!MenuPanel methodsFor:'private-searching'!
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4701
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4702	detectGrabMenu
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4703	"returns the menu which is responsible for the grap; the last opened menu"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4704
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4705	\|subMenu\|
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4706
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4707	selection notNil ifTrue:[
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4708	(subMenu := selection visibleSubmenu) notNil ifTrue:[
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4709	^ subMenu detectGrabMenu
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4710	]
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4711	].
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4712	^ self
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4713	!
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4714
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4715	detectMenuAtGrabPoint:aGrabPoint
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4716	"returns the menu which contains the grab-point"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4717
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4718	\|dstMenu dstPoint firstMenu\|
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4719
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4720	dstPoint := self translateGrabPoint:aGrabPoint.
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4721
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4722	((dstPoint x between:0 and:width) and:[dstPoint y between:0 and:height]) ifTrue:[
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4723	firstMenu := self.
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4724	].
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4725
1786 f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	4726	(selection isNil or:[(dstMenu := selection visibleSubmenu) isNil]) ifTrue:[
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4727	^ firstMenu
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4728	].
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4729	dstMenu := dstMenu detectMenuAtGrabPoint:aGrabPoint.
2059 c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	4730	^ dstMenu ? firstMenu
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4731	!
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4732
1767 e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	4733	detectViewAtX:x y:y in:aTopView
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4734	"detect view at x@y"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4735
2020 1f1868eba475 extracted common code to detectViewAt:aPoint. Claus Gittinger <cg@exept.de> parents: 2018 diff changeset	4736	^ aTopView detectViewAt:(x@y).
1f1868eba475 extracted common code to detectViewAt:aPoint. Claus Gittinger <cg@exept.de> parents: 2018 diff changeset	4737
1f1868eba475 extracted common code to detectViewAt:aPoint. Claus Gittinger <cg@exept.de> parents: 2018 diff changeset	4738	"/ 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	4739	"/
1f1868eba475 extracted common code to detectViewAt:aPoint. Claus Gittinger <cg@exept.de> parents: 2018 diff changeset	4740	"/ \|p subViews\|
1f1868eba475 extracted common code to detectViewAt:aPoint. Claus Gittinger <cg@exept.de> parents: 2018 diff changeset	4741	"/
1f1868eba475 extracted common code to detectViewAt:aPoint. Claus Gittinger <cg@exept.de> parents: 2018 diff changeset	4742	"/ (subViews := aTopView subViews) notNil ifTrue:[
1f1868eba475 extracted common code to detectViewAt:aPoint. Claus Gittinger <cg@exept.de> parents: 2018 diff changeset	4743	"/ subViews do:[:v\| \|p\|
1f1868eba475 extracted common code to detectViewAt:aPoint. Claus Gittinger <cg@exept.de> parents: 2018 diff changeset	4744	"/ v shown ifTrue:[
1f1868eba475 extracted common code to detectViewAt:aPoint. Claus Gittinger <cg@exept.de> parents: 2018 diff changeset	4745	"/ ( (x between:(v left) and:(v right))
1f1868eba475 extracted common code to detectViewAt:aPoint. Claus Gittinger <cg@exept.de> parents: 2018 diff changeset	4746	"/ and:[y between:(v top) and:(v bottom)]
1f1868eba475 extracted common code to detectViewAt:aPoint. Claus Gittinger <cg@exept.de> parents: 2018 diff changeset	4747	"/ ) ifTrue:[
1f1868eba475 extracted common code to detectViewAt:aPoint. Claus Gittinger <cg@exept.de> parents: 2018 diff changeset	4748	"/ 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	4749	"/ ^ 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	4750	"/ ]
1f1868eba475 extracted common code to detectViewAt:aPoint. Claus Gittinger <cg@exept.de> parents: 2018 diff changeset	4751	"/ ]
1f1868eba475 extracted common code to detectViewAt:aPoint. Claus Gittinger <cg@exept.de> parents: 2018 diff changeset	4752	"/ ]
1f1868eba475 extracted common code to detectViewAt:aPoint. Claus Gittinger <cg@exept.de> parents: 2018 diff changeset	4753	"/ ].
1f1868eba475 extracted common code to detectViewAt:aPoint. Claus Gittinger <cg@exept.de> parents: 2018 diff changeset	4754	"/ ^ aTopView
1f1868eba475 extracted common code to detectViewAt:aPoint. Claus Gittinger <cg@exept.de> parents: 2018 diff changeset	4755
1f1868eba475 extracted common code to detectViewAt:aPoint. Claus Gittinger <cg@exept.de> parents: 2018 diff changeset	4756	"Modified: / 10.10.2001 / 13:45:56 / cg"
1767 e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	4757	!
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	4758
2347 9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	4759	itemAt:stringOrNumberOrPoint
9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	4760	"returns item assigned to an index, nameKey, textLabel or value if symbol.
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4761	If no item match nil is returned."
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4762
2347 9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	4763	\|idx\|
9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	4764
9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	4765	stringOrNumberOrPoint isPoint ifTrue:[
9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	4766	^ self itemAtPoint:stringOrNumberOrPoint
9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	4767	].
9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	4768	idx := self indexOf:stringOrNumberOrPoint.
9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	4769	(idx > 0 and:[idx <= items size]) ifTrue:[ ^ items at:idx ].
2046 012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	4770	^ nil
2347 9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	4771	!
9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	4772
9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	4773	itemAtPoint:aPoint
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4774	"returns the item at aPoint or nil if none detected"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4775
2347 9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	4776	\|x y\|
9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	4777
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4778	items notNil ifTrue:[
2347 9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	4779	x := aPoint x.
9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	4780	y := aPoint y.
9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	4781	^ items detect:[:el\| el containsPointX:x y:y] ifNone:nil
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4782	].
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4783	^ nil
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4784	!
dce33f8bb806 intitial checkin ca parents: diff changeset	4785
2048 ba472f3f46c7 code cleanup Claus Gittinger <cg@exept.de> parents: 2047 diff changeset	4786	superMenuAtPoint:aPoint
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4787	"returns the superMenu which contains aPoint, or nil if none detected"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4788
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4789	\|grabPoint superMenu\|
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4790
2048 ba472f3f46c7 code cleanup Claus Gittinger <cg@exept.de> parents: 2047 diff changeset	4791	(self containsPoint:aPoint) ifTrue:[
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4792	^ self
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4793	].
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4794
2048 ba472f3f46c7 code cleanup Claus Gittinger <cg@exept.de> parents: 2047 diff changeset	4795	grabPoint := aPoint - (self translateGrabPoint:0).
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4796	superMenu := self.
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4797
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4798	[ (superMenu := superMenu superMenu) notNil ] whileTrue:[
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4799	(superMenu containsPoint:(superMenu translateGrabPoint:grabPoint)) ifTrue:[
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4800	^ superMenu
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4801	]
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4802	].
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4803	^ nil
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4804
2048 ba472f3f46c7 code cleanup Claus Gittinger <cg@exept.de> parents: 2047 diff changeset	4805	"Created: / 13.11.2001 / 20:22:53 / cg"
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4806	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	4807
dce33f8bb806 intitial checkin ca parents: diff changeset	4808	!MenuPanel methodsFor:'queries'!
dce33f8bb806 intitial checkin ca parents: diff changeset	4809
2003 732fbaf5864f avoid changing the level after realization (to avoid confusing the shadow) Claus Gittinger <cg@exept.de> parents: 2000 diff changeset	4810	container:aView
732fbaf5864f avoid changing the level after realization (to avoid confusing the shadow) Claus Gittinger <cg@exept.de> parents: 2000 diff changeset	4811	super container:aView.
732fbaf5864f avoid changing the level after realization (to avoid confusing the shadow) Claus Gittinger <cg@exept.de> parents: 2000 diff changeset	4812	aView notNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	4813	"/ I am no longer a popUpView
93426020ceed * empty log message * ca parents: 2216 diff changeset	4814	self updateLevelAndBorder
2003 732fbaf5864f avoid changing the level after realization (to avoid confusing the shadow) Claus Gittinger <cg@exept.de> parents: 2000 diff changeset	4815	].
732fbaf5864f avoid changing the level after realization (to avoid confusing the shadow) Claus Gittinger <cg@exept.de> parents: 2000 diff changeset	4816	!
732fbaf5864f avoid changing the level after realization (to avoid confusing the shadow) Claus Gittinger <cg@exept.de> parents: 2000 diff changeset	4817
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4818	containsPoint:aPoint
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4819	"returns true if the argument, aPoint is contained by the view"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4820
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4821	^ self containsPointX:(aPoint x) y:(aPoint y)
dce33f8bb806 intitial checkin ca parents: diff changeset	4822	!
dce33f8bb806 intitial checkin ca parents: diff changeset	4823
dce33f8bb806 intitial checkin ca parents: diff changeset	4824	containsPointX:x y:y
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4825	"returns true if point is contained by the view"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4826
708 245b1aa06151 checkin from browser Claus Gittinger <cg@exept.de> parents: 706 diff changeset	4827	^ (x between:0 and:width) and:[y between:0 and:height]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4828	!
dce33f8bb806 intitial checkin ca parents: diff changeset	4829
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	4830	hasGroupDividerAt:anIndex
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4831	"returns true if a divider is defined at an index"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4832
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4833	\|i\|
dce33f8bb806 intitial checkin ca parents: diff changeset	4834
dce33f8bb806 intitial checkin ca parents: diff changeset	4835	groupSizes size ~~ 0 ifTrue:[
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4836	i := 0.
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4837
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4838	groupSizes do:[:t\|
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4839	(i := i + t) == anIndex ifTrue:[
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4840	^ true
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4841	]
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4842	]
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4843	].
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4844	^ false
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4845	!
dce33f8bb806 intitial checkin ca parents: diff changeset	4846
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	4847	hasGroupDividers
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4848	"returns true if any group divider exists"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4849
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4850	^ (items size ~~ 0 and:[groupSizes size ~~ 0])
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4851	!
dce33f8bb806 intitial checkin ca parents: diff changeset	4852
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	4853	isFitPanel
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	4854	"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	4855	be fit to the extent of its superView;
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4856	NOT SUPPORTED"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4857
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4858	^ false
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	4859	!
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	4860
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4861	isPopUpView
dce33f8bb806 intitial checkin ca parents: diff changeset	4862	"return true if view is a popup view; without decoration
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4863	and popUp to top immediately"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4864
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4865	^ superView isNil
dce33f8bb806 intitial checkin ca parents: diff changeset	4866	!
dce33f8bb806 intitial checkin ca parents: diff changeset	4867
dce33f8bb806 intitial checkin ca parents: diff changeset	4868	isVerticalLayout
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4869	"returns true if vertical layout otherwise false( horizontal layout )"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4870
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4871	^ self verticalLayout
416 c05874084d4c implement ca parents: 407 diff changeset	4872	!
c05874084d4c implement ca parents: 407 diff changeset	4873
1793 f76529768dd6 keyPress:... check for wrapped view ca parents: 1791 diff changeset	4874	isViewWrapper
2214 8eefad87cf62 drawing delayed menu indicators... first try not yet finished ca parents: 2199 diff changeset	4875	^ items size == 0 and:[subViews size ~~ 0]
1793 f76529768dd6 keyPress:... check for wrapped view ca parents: 1791 diff changeset	4876	!
f76529768dd6 keyPress:... check for wrapped view ca parents: 1791 diff changeset	4877
416 c05874084d4c implement ca parents: 407 diff changeset	4878	type
428 5cf5fb7ecf39 type ca parents: 427 diff changeset	4879	^ nil.
416 c05874084d4c implement ca parents: 407 diff changeset	4880
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4881	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	4882
dce33f8bb806 intitial checkin ca parents: diff changeset	4883	!MenuPanel methodsFor:'selection'!
dce33f8bb806 intitial checkin ca parents: diff changeset	4884
dce33f8bb806 intitial checkin ca parents: diff changeset	4885	hasSelection
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4886	"returns true if a selection exists"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4887
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4888	^ self selection notNil
dce33f8bb806 intitial checkin ca parents: diff changeset	4889	!
dce33f8bb806 intitial checkin ca parents: diff changeset	4890
2199 61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	4891	openDelayed:anItem
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	4892
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	4893	superMenu notNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	4894	superMenu openDelayed:anItem.
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	4895	^ self
975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	4896	].
975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	4897	openDelayedMenuBlock notNil ifTrue:[
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	4898	Processor removeTimedBlock:openDelayedMenuBlock.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	4899	openDelayedMenuBlock := nil.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	4900	].
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	4901	anItem isNil ifTrue:[
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	4902	openDelayedMenuBlock := nil.
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	4903	^ self
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	4904	].
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	4905	openDelayedMenuBlock := [
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	4906	openDelayedMenuBlock := nil.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	4907	anItem openDelayedSubmenu
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	4908	].
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	4909
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	4910	Processor addTimedBlock:openDelayedMenuBlock afterSeconds:0.5.
2199 61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	4911	!
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	4912
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4913	selection
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4914	"returns current selected item or nil"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4915
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4916	^ selection
dce33f8bb806 intitial checkin ca parents: diff changeset	4917	!
dce33f8bb806 intitial checkin ca parents: diff changeset	4918
dce33f8bb806 intitial checkin ca parents: diff changeset	4919	selection:anItemOrNil
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4920	"change selection to an item or nil
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4921	if the item has a submenu the first item might be selected (style-sheet)"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4922
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4923	\|openMenu openOnSelect submenu item\|
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4924
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4925	selection == anItemOrNil ifTrue:[^ self].
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4926
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4927	(anItemOrNil isNil or:[anItemOrNil hasSubmenu not]) ifTrue:[
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4928	self selection:anItemOrNil openMenu:false.
2347 9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	4929	^ self
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4930	].
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4931
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4932	openMenu := self isPopUpView not.
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4933	openOnSelect := styleSheet at:#'menu.openOnSelect' default:false.
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4934
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4935	openMenu ifFalse:[
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4936	openMenu := openOnSelect.
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4937	].
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4938	self selection:anItemOrNil openMenu:openMenu.
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4939
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4940	openOnSelect ifFalse:[
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4941	"/ select first item in submenu
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4942
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4943	submenu := anItemOrNil currentSubmenu.
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4944
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	4945	submenu notNil ifTrue:[
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4946	item := submenu itemAt:1.
2347 9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	4947	(item notNil and:[item hasSubmenu not]) ifTrue:[
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4948	submenu selection:item openMenu:false
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4949	]
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4950	].
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4951	].
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4952	!
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4953
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4954	selection:anItemOrNil openMenu:openMenu
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4955	"change selection to an item or nil"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4956
2251 30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	4957	\|helpListener oldSelect\|
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4958
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4959	anItemOrNil == selection ifTrue:[
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4960	^ self
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4961	].
2199 61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	4962	self openDelayed:nil.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4963
2251 30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	4964	oldSelect := selection.
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	4965	selection := nil.
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4966
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	4967	anItemOrNil notNil ifTrue:[
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4968	self makeItemVisible:anItemOrNil.
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4969	anItemOrNil canSelect ifTrue:[
2251 30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	4970	selection := anItemOrNil
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4971	] ifFalse:[
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	4972	oldSelect isNil ifTrue:[^ self].
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4973	].
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4974	].
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	4975	oldSelect notNil ifTrue:[
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4976	"/ clear current selection
2251 30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	4977	oldSelect isSelected:false.
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	4978	].
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	4979	selection isNil ifTrue:[^ self].
2251 30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	4980
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	4981	selection == enteredItem ifTrue:[
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4982	enteredItem := nil
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4983	] ifFalse:[
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4984	self pointerEntersItem:nil
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4985	].
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4986	ActiveHelp isActive ifTrue:[
2251 30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	4987	helpListener := ActiveHelp currentHelpListener.
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	4988	helpListener initiateHelpFor:self at:nil now:true.
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4989	].
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4990	shown ifTrue:[
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4991	self rearrangeItems.
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4992
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4993	openMenu ifFalse:[
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4994	selection invalidate.
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4995	]
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4996	].
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4997	openMenu ifTrue:[
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4998	selection isSelected:true.
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4999	].
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5000	!
dce33f8bb806 intitial checkin ca parents: diff changeset	5001
dce33f8bb806 intitial checkin ca parents: diff changeset	5002	selectionIndex
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	5003	"returns index of current selection or 0"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	5004
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5005	\|item\|
dce33f8bb806 intitial checkin ca parents: diff changeset	5006
dce33f8bb806 intitial checkin ca parents: diff changeset	5007	(item := self selection) notNil ifTrue:[
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	5008	^ self findFirst:[:el\| el == item ]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5009	].
dce33f8bb806 intitial checkin ca parents: diff changeset	5010	^ 0
dce33f8bb806 intitial checkin ca parents: diff changeset	5011	!
dce33f8bb806 intitial checkin ca parents: diff changeset	5012
dce33f8bb806 intitial checkin ca parents: diff changeset	5013	selectionIndex:anIndex
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	5014	"set selection at an index"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	5015
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5016	self selection:(self itemAt:anIndex)
dce33f8bb806 intitial checkin ca parents: diff changeset	5017	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	5018
1791 bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	5019	!MenuPanel methodsFor:'translation'!
bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	5020
bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	5021	translateGrabPoint:aGrabPoint
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	5022	"translate the grab point into self"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	5023
1791 bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	5024	superMenu isNil ifTrue:[
2936 723062b99960 * empty log message * Claus Gittinger <cg@exept.de> parents: 2934 diff changeset	5025	"I am the grabView"
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	5026	aGrabPoint isNumber ifTrue:[^ aGrabPoint @ aGrabPoint].
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	5027	^ aGrabPoint
1791 bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	5028	].
bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	5029
bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	5030	relativeGrabOrigin isNil ifTrue:[
2936 723062b99960 * empty log message * Claus Gittinger <cg@exept.de> parents: 2934 diff changeset	5031	relativeGrabOrigin := self topMenu translatePoint:0 to:self.
723062b99960 * empty log message * Claus Gittinger <cg@exept.de> parents: 2934 diff changeset	5032	relativeGrabOrigin isNil ifTrue:[
723062b99960 * empty log message * Claus Gittinger <cg@exept.de> parents: 2934 diff changeset	5033	"I am the grabView"
723062b99960 * empty log message * Claus Gittinger <cg@exept.de> parents: 2934 diff changeset	5034	aGrabPoint isNumber ifTrue:[^ aGrabPoint @ aGrabPoint].
723062b99960 * empty log message * Claus Gittinger <cg@exept.de> parents: 2934 diff changeset	5035	^ aGrabPoint
723062b99960 * empty log message * Claus Gittinger <cg@exept.de> parents: 2934 diff changeset	5036	].
1791 bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	5037	].
bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	5038	^ relativeGrabOrigin + aGrabPoint
bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	5039	!
bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	5040
bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	5041	translateMenuPoint:aPoint toMenu:aMenu
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	5042	"translate a point into another menu its point"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	5043
1791 bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	5044	\|grapPoint\|
bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	5045
bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	5046	aMenu == self ifTrue:[
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	5047	^ aPoint
1791 bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	5048	].
bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	5049	grapPoint := aPoint - (self translateGrabPoint:0).
bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	5050
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	5051	^ aMenu translateGrabPoint:grapPoint
1791 bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	5052	!
bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	5053
2020 1f1868eba475 extracted common code to detectViewAt:aPoint. Claus Gittinger <cg@exept.de> parents: 2018 diff changeset	5054	translatePoint:aPoint to:anotherWindowOrNilForScreen
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	5055	"translate a point in my window to anotherWindowOrNilForScreen (or root window if nil)"
2020 1f1868eba475 extracted common code to detectViewAt:aPoint. Claus Gittinger <cg@exept.de> parents: 2018 diff changeset	5056
1f1868eba475 extracted common code to detectViewAt:aPoint. Claus Gittinger <cg@exept.de> parents: 2018 diff changeset	5057	^ device
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	5058	translatePoint:aPoint asPoint
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	5059	fromView:self
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	5060	toView:anotherWindowOrNilForScreen
2020 1f1868eba475 extracted common code to detectViewAt:aPoint. Claus Gittinger <cg@exept.de> parents: 2018 diff changeset	5061
1f1868eba475 extracted common code to detectViewAt:aPoint. Claus Gittinger <cg@exept.de> parents: 2018 diff changeset	5062	"Modified: / 10.10.2001 / 14:11:47 / cg"
1791 bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	5063	! !
bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	5064
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5065	!MenuPanel::Item class methodsFor:'accessing'!
dce33f8bb806 intitial checkin ca parents: diff changeset	5066
689 aa13913add84 clear lastActiveMenu when closed ca parents: 687 diff changeset	5067	horizontalInset
aa13913add84 clear lastActiveMenu when closed ca parents: 687 diff changeset	5068	^ HorizontalInset
aa13913add84 clear lastActiveMenu when closed ca parents: 687 diff changeset	5069	!
aa13913add84 clear lastActiveMenu when closed ca parents: 687 diff changeset	5070
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5071	labelRightOffset
dce33f8bb806 intitial checkin ca parents: diff changeset	5072	^ LabelRightOffset
dce33f8bb806 intitial checkin ca parents: diff changeset	5073	!
dce33f8bb806 intitial checkin ca parents: diff changeset	5074
689 aa13913add84 clear lastActiveMenu when closed ca parents: 687 diff changeset	5075	verticalInset
aa13913add84 clear lastActiveMenu when closed ca parents: 687 diff changeset	5076	^ VerticalInset
1765 a003f417d6ad fix for vertical spacing Claus Gittinger <cg@exept.de> parents: 1762 diff changeset	5077	!
a003f417d6ad fix for vertical spacing Claus Gittinger <cg@exept.de> parents: 1762 diff changeset	5078
a003f417d6ad fix for vertical spacing Claus Gittinger <cg@exept.de> parents: 1762 diff changeset	5079	verticalPopUpInset
a003f417d6ad fix for vertical spacing Claus Gittinger <cg@exept.de> parents: 1762 diff changeset	5080	^ VerticalPopUpInset
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5081	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	5082
616 a6157b083830 support of different styles ca parents: 608 diff changeset	5083	!MenuPanel::Item class methodsFor:'defaults'!
a6157b083830 support of different styles ca parents: 608 diff changeset	5084
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5085	halfSeparatorSize
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5086	"returns the size of a space-separator"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5087
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5088	^ 5
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5089	!
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5090
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	5091	separatorSize
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5092	"returns the size of a separator"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5093
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	5094	^ 10
616 a6157b083830 support of different styles ca parents: 608 diff changeset	5095	!
a6157b083830 support of different styles ca parents: 608 diff changeset	5096
a6157b083830 support of different styles ca parents: 608 diff changeset	5097	updateStyleCache
2777 56bb352f6b91 * empty log message * Claus Gittinger <cg@exept.de> parents: 2772 diff changeset	5098	"extract values from the styleSheet and cache them in class variables"
56bb352f6b91 * empty log message * Claus Gittinger <cg@exept.de> parents: 2772 diff changeset	5099
1765 a003f417d6ad fix for vertical spacing Claus Gittinger <cg@exept.de> parents: 1762 diff changeset	5100	<resource: #style (#'menuPanel.verticalInset')>
a003f417d6ad fix for vertical spacing Claus Gittinger <cg@exept.de> parents: 1762 diff changeset	5101
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	5102	HorizontalInset := 2.
1765 a003f417d6ad fix for vertical spacing Claus Gittinger <cg@exept.de> parents: 1762 diff changeset	5103	VerticalInset := MenuPanel styleSheet at:#'menuPanel.verticalInset' default:2.
a003f417d6ad fix for vertical spacing Claus Gittinger <cg@exept.de> parents: 1762 diff changeset	5104	VerticalPopUpInset := 2.
727 3ba54333342a button style from style sheet tz parents: 723 diff changeset	5105
3ba54333342a button style from style sheet tz parents: 723 diff changeset	5106	HorizontalButtonInset := 3.
3ba54333342a button style from style sheet tz parents: 723 diff changeset	5107	VerticalButtonInset := 3.
3ba54333342a button style from style sheet tz parents: 723 diff changeset	5108
681 62c7cdaca188 extra default inset values for button behaviour added tz parents: 680 diff changeset	5109	LabelRightOffset := 15.
1765 a003f417d6ad fix for vertical spacing Claus Gittinger <cg@exept.de> parents: 1762 diff changeset	5110
2777 56bb352f6b91 * empty log message * Claus Gittinger <cg@exept.de> parents: 2772 diff changeset	5111	"
56bb352f6b91 * empty log message * Claus Gittinger <cg@exept.de> parents: 2772 diff changeset	5112	self updateStyleCache
56bb352f6b91 * empty log message * Claus Gittinger <cg@exept.de> parents: 2772 diff changeset	5113	"
1124 4a7fec62a572 smaller checkbox. Claus Gittinger <cg@exept.de> parents: 1117 diff changeset	5114	! !
1078 3adf74275ebd support choice for buttons ca parents: 1076 diff changeset	5115
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5116	!MenuPanel::Item class methodsFor:'instance creation'!
dce33f8bb806 intitial checkin ca parents: diff changeset	5117
dce33f8bb806 intitial checkin ca parents: diff changeset	5118	in:aSuperMenu
dce33f8bb806 intitial checkin ca parents: diff changeset	5119	^ self in:aSuperMenu label:nil
dce33f8bb806 intitial checkin ca parents: diff changeset	5120	!
dce33f8bb806 intitial checkin ca parents: diff changeset	5121
dce33f8bb806 intitial checkin ca parents: diff changeset	5122	in:aSuperMenu label:aLabel
dce33f8bb806 intitial checkin ca parents: diff changeset	5123	\|item\|
dce33f8bb806 intitial checkin ca parents: diff changeset	5124
dce33f8bb806 intitial checkin ca parents: diff changeset	5125	item := self new in:aSuperMenu.
dce33f8bb806 intitial checkin ca parents: diff changeset	5126	item label:aLabel.
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5127	^ item
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5128	!
dce33f8bb806 intitial checkin ca parents: diff changeset	5129
dce33f8bb806 intitial checkin ca parents: diff changeset	5130	in:aSuperMenu menuItem:aMenuItem
dce33f8bb806 intitial checkin ca parents: diff changeset	5131	\|item\|
dce33f8bb806 intitial checkin ca parents: diff changeset	5132
dce33f8bb806 intitial checkin ca parents: diff changeset	5133	item := self in:aSuperMenu.
dce33f8bb806 intitial checkin ca parents: diff changeset	5134	item menuItem:aMenuItem.
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5135	^ item.
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5136	!
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5137
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5138	new
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5139	^ self basicNew initialize
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5140	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	5141
1808 e8628b502a49 methodCategory change Claus Gittinger <cg@exept.de> parents: 1806 diff changeset	5142	!MenuPanel::Item methodsFor:'accepting'!
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	5143
420 b6f9fff472ef fixes ca parents: 417 diff changeset	5144	canAccept
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5145	"returns true if item is acceptable"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5146
2199 61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	5147	self enabled ifFalse:[ ^ false].
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	5148	self hasSubmenu ifFalse:[ ^ true ].
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	5149
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	5150	self hasDelayedMenu ifFalse:[^ false ].
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	5151	^ subMenu isNil or:[subMenu shown not]
524 d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	5152	!
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	5153
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	5154	toggleIndication
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5155	"toggle indication or choice"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5156
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5157	\|arg\|
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5158
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5159	indication notNil ifTrue:[
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5160	arg := self indicationValue not.
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5161	self indicationValue:arg.
1074 25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	5162	] ifFalse:[
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5163	choice notNil ifTrue:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5164	choice value:(menuItem choiceValue).
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5165	^ true
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5166	]
524 d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	5167	].
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	5168	^ arg
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	5169	! !
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	5170
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5171	!MenuPanel::Item methodsFor:'accessing'!
dce33f8bb806 intitial checkin ca parents: diff changeset	5172
dce33f8bb806 intitial checkin ca parents: diff changeset	5173	accessCharacter
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5174	"returns my accessCharacter or nil"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5175
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5176	^ accessCharacter
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5177	!
dce33f8bb806 intitial checkin ca parents: diff changeset	5178
dce33f8bb806 intitial checkin ca parents: diff changeset	5179	accessCharacterPosition
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5180	"get the access character position or nil"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5181
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5182	^ menuItem accessCharacterPosition
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5183	!
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5184
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5185	accessCharacterPosition:anIndex
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5186	"set the access character position or nil"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5187
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5188	menuItem accessCharacterPosition:anIndex.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5189	!
dce33f8bb806 intitial checkin ca parents: diff changeset	5190
dce33f8bb806 intitial checkin ca parents: diff changeset	5191	argument
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5192	"gets the argument"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5193
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5194	^ menuItem argument
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5195	!
dce33f8bb806 intitial checkin ca parents: diff changeset	5196
dce33f8bb806 intitial checkin ca parents: diff changeset	5197	argument:anArgument
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5198	"sets the argument"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5199
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5200	menuItem argument:anArgument.
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	5201	!
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	5202
2433 49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5203	displayLabel
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5204	"returns my printable Label"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5205
2433 49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5206	^ displayLabel
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5207	!
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5208
2614 86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5209	displayLabelExtent
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5210	"returns the labels extent"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5211
2614 86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5212	\|prevFont w h\|
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5213
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5214	displayLabelExtent notNil ifTrue:[
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5215	^ displayLabelExtent
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5216	].
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5217
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5218	displayLabel isNil ifTrue:[
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5219	displayLabelExtent := 0@0.
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5220	^ displayLabelExtent
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5221	].
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5222	prevFont := menuPanel setFont:(self font).
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5223
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5224	displayLabel isArray ifTrue:[
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5225	w := h := 0.
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5226
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5227	displayLabel do:[:aSubLabel\|
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5228	aSubLabel notNil ifTrue:[
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5229	w := w max:(aSubLabel widthOn:menuPanel).
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5230	h := h + 1 + (aSubLabel heightOn:menuPanel).
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5231	] ifFalse:[
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5232	h := h + (self spaceBetweenEmptyLines)
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5233	]
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5234	]
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5235	] ifFalse:[
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5236	w := displayLabel widthOn:menuPanel.
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5237	h := displayLabel heightOn:menuPanel.
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5238	].
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5239	"/ care for italic fonts - give a few more pixels at the end
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5240	menuPanel font italic ifTrue:[
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5241	w := w + 2.
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5242	].
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5243	displayLabelExtent := w@h.
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5244
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5245	prevFont notNil ifTrue:[
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5246	menuPanel setFont:prevFont. "/ restore previous font
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5247	].
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5248	^ displayLabelExtent
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5249	!
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5250
1727 a6365337be59 support setting font in MenuPanel and Editor ca parents: 1726 diff changeset	5251	font
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5252	"returns the user configured font or nil (default menu font)"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5253
2373 8dbf026f0bd1 bug fix: specific font used by item ca parents: 2372 diff changeset	5254	\|font\|
8dbf026f0bd1 bug fix: specific font used by item ca parents: 2372 diff changeset	5255
8dbf026f0bd1 bug fix: specific font used by item ca parents: 2372 diff changeset	5256	menuPanel isNil ifTrue:[^ nil].
8dbf026f0bd1 bug fix: specific font used by item ca parents: 2372 diff changeset	5257
8dbf026f0bd1 bug fix: specific font used by item ca parents: 2372 diff changeset	5258	font := menuItem font.
8dbf026f0bd1 bug fix: specific font used by item ca parents: 2372 diff changeset	5259
8dbf026f0bd1 bug fix: specific font used by item ca parents: 2372 diff changeset	5260	font notNil ifTrue:[
8dbf026f0bd1 bug fix: specific font used by item ca parents: 2372 diff changeset	5261	font := font onDevice:(menuPanel device).
8dbf026f0bd1 bug fix: specific font used by item ca parents: 2372 diff changeset	5262	menuItem font:font.
8dbf026f0bd1 bug fix: specific font used by item ca parents: 2372 diff changeset	5263	].
1727 a6365337be59 support setting font in MenuPanel and Editor ca parents: 1726 diff changeset	5264	^ font
a6365337be59 support setting font in MenuPanel and Editor ca parents: 1726 diff changeset	5265	!
a6365337be59 support setting font in MenuPanel and Editor ca parents: 1726 diff changeset	5266
a6365337be59 support setting font in MenuPanel and Editor ca parents: 1726 diff changeset	5267	font:aFont
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5268	"returns the user configured font or nil (default menu font)"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5269
2373 8dbf026f0bd1 bug fix: specific font used by item ca parents: 2372 diff changeset	5270	menuItem font:aFont.
1727 a6365337be59 support setting font in MenuPanel and Editor ca parents: 1726 diff changeset	5271	!
a6365337be59 support setting font in MenuPanel and Editor ca parents: 1726 diff changeset	5272
2604 34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	5273	ignoreMnemonicKeys
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5274	"if true, mnemonic (access character) in the submenus under the item are ignored"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5275
2604 34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	5276	^ menuItem ignoreMnemonicKeys
34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	5277	!
34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	5278
34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	5279	ignoreMnemonicKeys:aBoolean
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5280	"if true, mnemonic (access character) in the submenus under the item are ignored"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5281
2604 34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	5282	menuItem ignoreMnemonicKeys:aBoolean.
34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	5283	!
34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	5284
34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	5285	ignoreShortcutKeys
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5286	"if true, shortcutKeys (accelerators) in the submenus under the item are ignored"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5287
2604 34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	5288	^ menuItem ignoreShortcutKeys
34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	5289	!
34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	5290
34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	5291	ignoreShortcutKeys:aBoolean
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5292	"if true, shortcutKeys (accelerators) in the submenus under the item are ignored"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5293
2604 34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	5294	menuItem ignoreShortcutKeys:aBoolean.
34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	5295	!
34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	5296
2345 8b7b3e384002 fallBack to activeHelpKey and label, if no flyByHelp is Claus Gittinger <cg@exept.de> parents: 2344 diff changeset	5297	itemValue
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5298	"gets the items value"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5299
2360 aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5300	^ menuItem itemValue
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5301	!
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5302
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5303	itemValue:aValue
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5304	"argument could be a value holder, an action or selector"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5305
2360 aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5306	menuItem itemValue:aValue.
2345 8b7b3e384002 fallBack to activeHelpKey and label, if no flyByHelp is Claus Gittinger <cg@exept.de> parents: 2344 diff changeset	5307	!
8b7b3e384002 fallBack to activeHelpKey and label, if no flyByHelp is Claus Gittinger <cg@exept.de> parents: 2344 diff changeset	5308
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5309	label
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5310	"returns the label"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5311
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5312	^ label
dce33f8bb806 intitial checkin ca parents: diff changeset	5313	!
dce33f8bb806 intitial checkin ca parents: diff changeset	5314
dce33f8bb806 intitial checkin ca parents: diff changeset	5315	label:aLabel
399 d083b1bce58d ST-80 compatibility ca parents: 396 diff changeset	5316	"set a new label; if the label changed, a redraw is performed;
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5317	handle characters $& (ST-80 compatibility)"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5318
2614 86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5319	\|size char oldExtent\|
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5320
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5321	oldExtent := displayLabelExtent.
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5322	displayLabelExtent := nil. "/ force a recomputation
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5323	accessCharacter := disabledDisplayLabel := nil.
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5324	label := aLabel value.
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5325	displayLabel := label value ? ''.
2433 49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5326
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5327	displayLabel isString ifTrue:[
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5328	"CHECK FOR SEPARATOR"
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5329
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5330	(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	5331	size := displayLabel size.
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5332
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5333	size == 0 ifTrue:[
2614 86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5334	displayLabel := nil. "blank separator"
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5335	^ self
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5336	].
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5337
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5338	size == 1 ifTrue:[
2433 49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5339	char := displayLabel first.
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5340
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5341	(char == $- or:[char == $=]) ifTrue:[
2614 86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5342	label := displayLabel. "line separator"
2433 49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5343	displayLabel := nil.
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5344	^ self
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5345	]
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5346	]
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5347	]
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5348	] ifFalse:[
2433 49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5349	displayLabel isCollection ifTrue:[
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5350	displayLabel := displayLabel asArray.
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5351	]
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5352	].
2614 86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5353	displayLabel notNil ifTrue:[
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5354	displayLabel isArray ifTrue:[
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5355	displayLabel keysAndValuesDo:[:i :el\|
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5356	el notNil ifTrue:[
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5357	displayLabel at:i put:(self updateAccessCharacterFor:el).
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5358	].
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5359	].
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5360	] ifFalse:[
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5361	displayLabel := self updateAccessCharacterFor:displayLabel.
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5362	].
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5363	].
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5364
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5365	menuPanel shown ifTrue:[
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5366	self fetchImages.
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5367
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5368	oldExtent = self displayLabelExtent ifTrue:[
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5369	self invalidate
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5370	] ifFalse:[
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5371	menuPanel mustRearrange
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5372	]
1978 a53447b8cbe2 set label; reange menu if extent changed otherwise redraw only the item martin parents: 1955 diff changeset	5373	].
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5374	!
dce33f8bb806 intitial checkin ca parents: diff changeset	5375
dce33f8bb806 intitial checkin ca parents: diff changeset	5376	menuPanel
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5377	"returns my menuPanel"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5378
399 d083b1bce58d ST-80 compatibility ca parents: 396 diff changeset	5379	^ menuPanel
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5380	!
dce33f8bb806 intitial checkin ca parents: diff changeset	5381
dce33f8bb806 intitial checkin ca parents: diff changeset	5382	nameKey
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5383	"gets the nameKey"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5384
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5385	^ menuItem nameKey
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5386	!
dce33f8bb806 intitial checkin ca parents: diff changeset	5387
dce33f8bb806 intitial checkin ca parents: diff changeset	5388	nameKey:aNameKey
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5389	"sets the nameKey"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5390
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5391	menuItem nameKey:aNameKey.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5392	!
dce33f8bb806 intitial checkin ca parents: diff changeset	5393
dce33f8bb806 intitial checkin ca parents: diff changeset	5394	rawLabel
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5395	"returns my raw, unprocessed label"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5396
2433 49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5397	^ menuItem rawLabel
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5398	!
dce33f8bb806 intitial checkin ca parents: diff changeset	5399
dce33f8bb806 intitial checkin ca parents: diff changeset	5400	shortcutKey
dce33f8bb806 intitial checkin ca parents: diff changeset	5401	"get the key to press to select the submenu from the keyboard or if
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5402	no submenu exists evaluate the action assigned to the item (accept)."
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5403
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5404	^ menuItem shortcutKey
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5405	!
dce33f8bb806 intitial checkin ca parents: diff changeset	5406
dce33f8bb806 intitial checkin ca parents: diff changeset	5407	shortcutKey:aKey
dce33f8bb806 intitial checkin ca parents: diff changeset	5408	"set the key to press to select the submenu from the keyboard or if
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5409	no submenu exists evaluate the action assigned to the item (accept)."
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5410
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5411	menuItem shortcutKey ~= aKey ifTrue:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5412	menuItem shortcutKey:aKey.
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5413	self invalidate.
1889 43516e4588ce give warning messages for unimplemented menu-aspects Claus Gittinger <cg@exept.de> parents: 1878 diff changeset	5414	].
43516e4588ce give warning messages for unimplemented menu-aspects Claus Gittinger <cg@exept.de> parents: 1878 diff changeset	5415	!
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5416
710 4453e463ff16 add new feature: ca parents: 709 diff changeset	5417	startGroup
3127 9b522d37eca0 new startGroup value: #conditionalRight Claus Gittinger <cg@exept.de> parents: 3126 diff changeset	5418	"start group #left #right #conditionalRight ... or nil
9b522d37eca0 new startGroup value: #conditionalRight Claus Gittinger <cg@exept.de> parents: 3126 diff changeset	5419	at the moment only #right and #conditionalRight are implemented"
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5420
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5421	^ menuItem startGroup
3127 9b522d37eca0 new startGroup value: #conditionalRight Claus Gittinger <cg@exept.de> parents: 3126 diff changeset	5422
9b522d37eca0 new startGroup value: #conditionalRight Claus Gittinger <cg@exept.de> parents: 3126 diff changeset	5423	"Modified: / 16-10-2006 / 13:06:25 / cg"
710 4453e463ff16 add new feature: ca parents: 709 diff changeset	5424	!
4453e463ff16 add new feature: ca parents: 709 diff changeset	5425
4453e463ff16 add new feature: ca parents: 709 diff changeset	5426	startGroup:aSymbol
3127 9b522d37eca0 new startGroup value: #conditionalRight Claus Gittinger <cg@exept.de> parents: 3126 diff changeset	5427	"start group #left #right #conditionalRight ...
9b522d37eca0 new startGroup value: #conditionalRight Claus Gittinger <cg@exept.de> parents: 3126 diff changeset	5428	at the moment only #right and #conditionalRight are implemented"
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5429
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5430	menuItem startGroup:aSymbol.
3127 9b522d37eca0 new startGroup value: #conditionalRight Claus Gittinger <cg@exept.de> parents: 3126 diff changeset	5431
9b522d37eca0 new startGroup value: #conditionalRight Claus Gittinger <cg@exept.de> parents: 3126 diff changeset	5432	"Modified: / 16-10-2006 / 13:06:37 / cg"
710 4453e463ff16 add new feature: ca parents: 709 diff changeset	5433	!
4453e463ff16 add new feature: ca parents: 709 diff changeset	5434
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5435	submenu
3133 dd8417f3373b code cleanup; comments Claus Gittinger <cg@exept.de> parents: 3131 diff changeset	5436	"returns my submenu or creates it if its defined via a selector or channel.
dd8417f3373b code cleanup; comments Claus Gittinger <cg@exept.de> parents: 3131 diff changeset	5437	May return nil, if there is really no menu"
dd8417f3373b code cleanup; comments Claus Gittinger <cg@exept.de> parents: 3131 diff changeset	5438
dd8417f3373b code cleanup; comments Claus Gittinger <cg@exept.de> parents: 3131 diff changeset	5439	subMenu isNil ifTrue:[
dd8417f3373b code cleanup; comments Claus Gittinger <cg@exept.de> parents: 3131 diff changeset	5440	self setupSubmenu
dd8417f3373b code cleanup; comments Claus Gittinger <cg@exept.de> parents: 3131 diff changeset	5441	].
dd8417f3373b code cleanup; comments Claus Gittinger <cg@exept.de> parents: 3131 diff changeset	5442	^ subMenu
dd8417f3373b code cleanup; comments Claus Gittinger <cg@exept.de> parents: 3131 diff changeset	5443
dd8417f3373b code cleanup; comments Claus Gittinger <cg@exept.de> parents: 3131 diff changeset	5444	"Modified: / 07-11-2006 / 11:09:49 / cg"
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5445	!
dce33f8bb806 intitial checkin ca parents: diff changeset	5446
dce33f8bb806 intitial checkin ca parents: diff changeset	5447	submenu:aSubMenu
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5448	"set a new submenu; an existing submenu will be destroyed.
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5449	This might lead to a redraw if 'hasSubmenu' changed"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5450
1795 6afd0e768267 submenuChannel selector: allow upto two arguments, the arg and the menu ca parents: 1793 diff changeset	5451	\|widget\|
1767 e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	5452
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	5453	aSubMenu isNil ifTrue:[
2360 aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5454	subMenu notNil ifTrue:[
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5455	subMenu destroy.
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5456	subMenu := nil.
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5457	].
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5458	^ self
1767 e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	5459	].
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	5460
1795 6afd0e768267 submenuChannel selector: allow upto two arguments, the arg and the menu ca parents: 1793 diff changeset	5461	(aSubMenu isKindOf:Menu) ifTrue:[
2360 aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5462	subMenu := MenuPanel new.
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5463
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5464	menuPanel notNil ifTrue:[
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5465	subMenu receiver:menuPanel receiver.
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5466	].
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5467	subMenu superMenu:menuPanel.
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5468
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5469	menuItem horizontalLayout == true ifTrue:[
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5470	subMenu verticalLayout:false
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5471	].
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5472	subMenu menu:aSubMenu.
1767 e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	5473	] ifFalse:[
2360 aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5474	aSubMenu isView ifFalse:[
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5475	(aSubMenu isKindOf:ApplicationModel) ifFalse:[
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5476	"/ ... mhhhh ....
2364 c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	5477	^ menuItem submenuChannel:aSubMenu
2360 aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5478	].
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5479	widget := SimpleView new.
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5480	widget client:aSubMenu.
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5481	] ifTrue:[
2827 139c1089bcb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 2826 diff changeset	5482	widget := aSubMenu.
139c1089bcb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 2826 diff changeset	5483	subMenu perform:#superMenu: with:menuPanel ifNotUnderstood:[].
2360 aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5484	].
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5485
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5486	(widget isKindOf:MenuPanel) ifTrue:[
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5487	subMenu := widget.
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5488
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5489	menuItem horizontalLayout == true ifTrue:[
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5490	subMenu verticalLayout:false
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5491	].
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5492	] ifFalse:[
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5493	subMenu := MenuPanel new.
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5494	subMenu receiver:menuPanel receiver.
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5495	subMenu addSubView:widget.
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5496	subMenu extent:(widget preferredExtent).
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5497	widget origin:0.0@0.0 corner:1.0@1.0.
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5498	].
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5499	subMenu superMenu:menuPanel.
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5500	].
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	5501	!
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	5502
3133 dd8417f3373b code cleanup; comments Claus Gittinger <cg@exept.de> parents: 3131 diff changeset	5503	submenuOrNil
dd8417f3373b code cleanup; comments Claus Gittinger <cg@exept.de> parents: 3131 diff changeset	5504	"returns my submenu or nil if there is none or its defined via a channel or selector"
dd8417f3373b code cleanup; comments Claus Gittinger <cg@exept.de> parents: 3131 diff changeset	5505
dd8417f3373b code cleanup; comments Claus Gittinger <cg@exept.de> parents: 3131 diff changeset	5506	^ subMenu
dd8417f3373b code cleanup; comments Claus Gittinger <cg@exept.de> parents: 3131 diff changeset	5507
dd8417f3373b code cleanup; comments Claus Gittinger <cg@exept.de> parents: 3131 diff changeset	5508	"Created: / 07-11-2006 / 11:04:47 / cg"
dd8417f3373b code cleanup; comments Claus Gittinger <cg@exept.de> parents: 3131 diff changeset	5509	!
dd8417f3373b code cleanup; comments Claus Gittinger <cg@exept.de> parents: 3131 diff changeset	5510
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	5511	textLabel
2433 49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5512	"returns my textLabel or nil.
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5513	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	5514
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5515	\|txt\|
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5516
2433 49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5517	displayLabel notNil ifTrue:[
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5518	displayLabel isArray ifFalse:[
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5519	^ displayLabel perform:#string ifNotUnderstood:nil
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5520	].
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5521
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5522	displayLabel do:[:el\|
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5523	(txt := el perform:#string ifNotUnderstood:nil) notNil ifTrue:[
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5524	^ txt
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5525	]
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5526	].
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5527	].
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5528	^ nil
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	5529	!
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	5530
1841 5d01716cc37c implement: triggerOnDown ca parents: 1836 diff changeset	5531	triggerOnDown
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5532	"return true if triggering the action if pressed"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5533
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5534	menuItem triggerOnDown ifTrue:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5535	self hasSubmenu ifFalse:[^ true].
1841 5d01716cc37c implement: triggerOnDown ca parents: 1836 diff changeset	5536	].
5d01716cc37c implement: triggerOnDown ca parents: 1836 diff changeset	5537	^ false
5d01716cc37c implement: triggerOnDown ca parents: 1836 diff changeset	5538	!
5d01716cc37c implement: triggerOnDown ca parents: 1836 diff changeset	5539
5d01716cc37c implement: triggerOnDown ca parents: 1836 diff changeset	5540	triggerOnDown:aBool
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5541	"setup to trigger the action if pressed"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5542
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5543	menuItem triggerOnDown:aBool.
1841 5d01716cc37c implement: triggerOnDown ca parents: 1836 diff changeset	5544	!
5d01716cc37c implement: triggerOnDown ca parents: 1836 diff changeset	5545
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	5546	value
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5547	"gets the items value
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5548	Left here for ST80 compatibility - value is a bad name"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5549
2360 aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5550	^ menuItem itemValue
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5551	!
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5552
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5553	value:aValue
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	5554	"could be a value holder, an action or selector
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5555	Left here for ST80 compatibility - value: is a bad name"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5556
2360 aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5557	menuItem itemValue:aValue.
502 dedc1b29b6ac support of arguments ca parents: 498 diff changeset	5558	!
dedc1b29b6ac support of arguments ca parents: 498 diff changeset	5559
dedc1b29b6ac support of arguments ca parents: 498 diff changeset	5560	value:aValue argument:anArgument
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5561	"set the value and an argument"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5562
2360 aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5563	menuItem itemValue:aValue.
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5564	menuItem argument:anArgument.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5565	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	5566
1679 af40842718f6 when accepting, and the application does not respond to that Claus Gittinger <cg@exept.de> parents: 1670 diff changeset	5567	!MenuPanel::Item methodsFor:'accessing-behavior'!
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5568
1074 25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	5569	choice
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5570	"implements a radio group; the field"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5571
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5572	^ choice
1074 25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	5573	!
25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	5574
25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	5575	choice:something
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5576	"set choice indication"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5577
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5578	choice == something ifTrue:[^ self].
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5579
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5580	choice isValueModel ifTrue:[
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5581	choice removeDependent:self
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5582	].
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5583
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5584	(choice := something) notNil ifTrue:[
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5585	choice isSymbol ifTrue:[
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5586	(choice := self aspectAt:choice) isNil ifTrue:[
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5587	choice := something
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5588	]
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5589	].
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5590	choice isValueModel ifTrue:[
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5591	choice addDependent:self
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5592	]
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	5593	].
1074 25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	5594	!
25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	5595
25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	5596	choiceValue
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5597	"implements a radio group; the value writen to the choice if selected"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5598
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5599	^ menuItem choiceValue
1074 25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	5600	!
25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	5601
25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	5602	choiceValue:something
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5603	"implements a radio group; the value writen to the choice if selected"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5604
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5605	menuItem choiceValue ~= something ifTrue:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5606	menuItem choiceValue:something.
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5607	choice notNil ifTrue:[ self invalidate ].
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5608	].
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5609	!
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5610
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5611	enabled
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5612	"returns the enabled state"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5613
524 d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	5614	\|state\|
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	5615
2364 c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	5616	menuPanel enabled ifFalse:[^ false].
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	5617
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	5618	enableChannel isSymbol ifTrue:[
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	5619	state := self aspectAt:enableChannel.
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	5620
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	5621	state isNil ifTrue:[
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	5622	self ifNotInUIBuilderInfoPrintCR:
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	5623	('MenuPanel::Item [info]: no aspect for ', enableChannel, ' (in ' , label printString , ')').
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	5624	^ true
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	5625	].
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	5626
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	5627	state isValueModel ifTrue:[
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	5628	enableChannel := state.
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	5629	enableChannel addDependent:self.
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	5630	state := enableChannel value.
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	5631	] ifFalse:[
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	5632	state := state value
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	5633	]
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	5634	] ifFalse:[
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	5635	state := enableChannel value
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	5636	].
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	5637	^ state ~~ false
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5638	!
dce33f8bb806 intitial checkin ca parents: diff changeset	5639
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	5640	enabled:something
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5641	"change the enabled state; if the state changed, a redraw is performed"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5642
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	5643	\|oldState newState\|
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	5644
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	5645	enableChannel isNil ifTrue:[
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5646	oldState := true
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	5647	] ifFalse:[
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5648	oldState := enableChannel value.
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5649	enableChannel isValueModel ifTrue:[
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5650	enableChannel removeDependent:self
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5651	]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5652	].
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	5653	enableChannel := something.
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	5654
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	5655	enableChannel isNil ifTrue:[
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5656	menuPanel shown ifFalse:[^ self].
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5657	newState := true
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	5658	] ifFalse:[
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5659	enableChannel isValueModel ifTrue:[
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5660	enableChannel addDependent:self
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5661	] ifFalse:[
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5662	enableChannel isSymbol ifTrue:[^ self]
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5663	].
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5664	menuPanel shown ifFalse:[^ self].
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5665	newState := enableChannel value.
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	5666	].
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	5667
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	5668	newState ~~ oldState ifTrue:[
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5669	self invalidate
1690 38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	5670	].
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	5671	!
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	5672
1670 dbc8a05605e0 add new behavior: hideMenuOnActivated ca parents: 1666 diff changeset	5673	hideMenuOnActivated
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5674	"hide the menu when the item was activated; the default is true"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5675
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5676	^ menuItem hideMenuOnActivated
1670 dbc8a05605e0 add new behavior: hideMenuOnActivated ca parents: 1666 diff changeset	5677	!
dbc8a05605e0 add new behavior: hideMenuOnActivated ca parents: 1666 diff changeset	5678
dbc8a05605e0 add new behavior: hideMenuOnActivated ca parents: 1666 diff changeset	5679	hideMenuOnActivated:aBool
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5680	"hide the menu when the item was activated; the default is true"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5681
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5682	menuItem hideMenuOnActivated:aBool.
1670 dbc8a05605e0 add new behavior: hideMenuOnActivated ca parents: 1666 diff changeset	5683	!
dbc8a05605e0 add new behavior: hideMenuOnActivated ca parents: 1666 diff changeset	5684
2216 9cbeda150dae no info for toolbarmenu enable channel penk parents: 2214 diff changeset	5685	ifNotInUIBuilderInfoPrintCR:aMessage
9cbeda150dae no info for toolbarmenu enable channel penk parents: 2214 diff changeset	5686	"/ q&d hack to suppress info-messages in UIBuilder
9cbeda150dae no info for toolbarmenu enable channel penk parents: 2214 diff changeset	5687
9cbeda150dae no info for toolbarmenu enable channel penk parents: 2214 diff changeset	5688	(menuPanel receiver isNil
9cbeda150dae no info for toolbarmenu enable channel penk parents: 2214 diff changeset	5689	and:[ menuPanel application notNil
9cbeda150dae no info for toolbarmenu enable channel penk parents: 2214 diff changeset	5690	and:[ menuPanel application askFor:#isUIPainter]])
9cbeda150dae no info for toolbarmenu enable channel penk parents: 2214 diff changeset	5691	ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	5692	^ self "/ suppressed
2216 9cbeda150dae no info for toolbarmenu enable channel penk parents: 2214 diff changeset	5693	].
9cbeda150dae no info for toolbarmenu enable channel penk parents: 2214 diff changeset	5694	aMessage infoPrintCR
9cbeda150dae no info for toolbarmenu enable channel penk parents: 2214 diff changeset	5695	!
9cbeda150dae no info for toolbarmenu enable channel penk parents: 2214 diff changeset	5696
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	5697	indication
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5698	"get on/off indication"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5699
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5700	^ indication
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	5701	!
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	5702
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	5703	indication:something
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5704	"set on/off indication"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5705
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5706	indication == something ifTrue:[^ self].
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5707
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5708	indication isValueModel ifTrue:[
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5709	indication removeDependent:self
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5710	].
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5711
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5712	(indication := something) notNil ifTrue:[
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5713	indication isValueModel ifTrue:[
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5714	indication addDependent:self
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5715	] ifFalse:[
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5716	"/ to force an update of the value
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5717	self indicationValue
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5718	]
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5719	].
464 a788fdce92e2 add submenuChannel ca parents: 461 diff changeset	5720	!
a788fdce92e2 add submenuChannel ca parents: 461 diff changeset	5721
1767 e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	5722	keepLinkedMenu
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5723	"get the keepLinkedMenu flag"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5724
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5725	^ menuItem keepLinkedMenu
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5726	!
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5727
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5728	keepLinkedMenu:aBool
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5729	"get the keepLinkedMenu flag"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5730
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5731	menuItem keepLinkedMenu:aBool.
1767 e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	5732	!
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	5733
2331 ebd240410703 can now specify if menu action is to be performed by ca parents: 2326 diff changeset	5734	sendToOriginator
ebd240410703 can now specify if menu action is to be performed by ca parents: 2326 diff changeset	5735	"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	5736	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	5737
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5738	^ menuItem sendToOriginator
2331 ebd240410703 can now specify if menu action is to be performed by ca parents: 2326 diff changeset	5739	!
ebd240410703 can now specify if menu action is to be performed by ca parents: 2326 diff changeset	5740
ebd240410703 can now specify if menu action is to be performed by ca parents: 2326 diff changeset	5741	sendToOriginator:aBoolean
ebd240410703 can now specify if menu action is to be performed by ca parents: 2326 diff changeset	5742	"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	5743	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	5744
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5745	menuItem sendToOriginator:aBoolean.
2331 ebd240410703 can now specify if menu action is to be performed by ca parents: 2326 diff changeset	5746	!
ebd240410703 can now specify if menu action is to be performed by ca parents: 2326 diff changeset	5747
464 a788fdce92e2 add submenuChannel ca parents: 461 diff changeset	5748	submenuChannel
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5749	"get the submenu channel"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5750
2364 c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	5751	^ menuItem submenuChannel
464 a788fdce92e2 add submenuChannel ca parents: 461 diff changeset	5752	!
a788fdce92e2 add submenuChannel ca parents: 461 diff changeset	5753
a788fdce92e2 add submenuChannel ca parents: 461 diff changeset	5754	submenuChannel:aSelectorOrNil
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5755	"returns the submenu channel"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5756
2364 c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	5757	menuItem submenuChannel:aSelectorOrNil.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5758	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	5759
1679 af40842718f6 when accepting, and the application does not respond to that Claus Gittinger <cg@exept.de> parents: 1670 diff changeset	5760	!MenuPanel::Item methodsFor:'accessing-dimension'!
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5761
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	5762	moveBy:aPoint
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5763	"move the layouts origin"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5764
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	5765	layout moveBy:aPoint.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	5766	!
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	5767
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	5768	preferredExtent
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5769	"compute my preferred extent excluding the shortCutKey and the menu identifier"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5770
2614 86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5771	\|isVertical icon wIcon isButton labelExtent
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	5772	x "{ Class:SmallInteger }"
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	5773	y "{ Class:SmallInteger }"
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	5774	s "{ Class:SmallInteger }"
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	5775	\|
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	5776	self isVisible ifFalse:[^ 0@0 ].
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	5777
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5778	isButton := menuItem isButton.
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5779
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	5780	isButton ifTrue:[
2326 a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	5781	s := menuPanel maxAbsoluteButtonLevel.
a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	5782	x := s + HorizontalButtonInset.
a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	5783	y := s + VerticalButtonInset.
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	5784	] ifFalse:[
2326 a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	5785	x := HorizontalInset.
a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	5786	y := (menuPanel isPopUpView ifTrue:[VerticalPopUpInset] ifFalse:[VerticalInset]) ? 2.
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	5787	].
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	5788	x := x * 2.
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	5789	y := y * 2.
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	5790
1707 4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	5791	isVertical := menuPanel verticalLayout.
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	5792
2362 7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	5793	self isSeparator ifTrue:[
2326 a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	5794	"SEPARATOR"
a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	5795
a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	5796	s := self class separatorSize.
a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	5797	label = '' ifTrue:[
a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	5798	s := self class halfSeparatorSize.
a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	5799	].
a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	5800
a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	5801	"width of doubleSeparator is 5 !!!!"
a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	5802	isVertical ifFalse:[
a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	5803	x := x max:s.
a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	5804	y := y + 5.
a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	5805	] ifTrue:[
a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	5806	y := y max:s.
a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	5807	x := x + 5.
a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	5808	].
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	5809	] ifFalse:[
2614 86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5810	labelExtent := self displayLabelExtent.
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5811
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5812	x := x + labelExtent x.
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5813	y := y + labelExtent y.
3131 611b833f2ac9 * empty log message * ca parents: 3128 diff changeset	5814	x := x + (menuPanel stringOffsetXfor:self).
2326 a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	5815
a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	5816	isButton ifFalse:[
a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	5817	menuPanel showSeparatingLines ifTrue:[
a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	5818	"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	5819	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	5820	].
a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	5821	].
2344 d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	5822	wIcon := 0.
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	5823	self hasMenuIndicator ifTrue:[
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	5824	icon := MenuPanel menuIndicator.
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	5825	wIcon := MenuPanel menuIndicatorOffset + icon width.
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	5826	] ifFalse:[
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	5827	self hasDelayedMenuIndicator ifTrue:[
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	5828	icon := MenuPanel delayedMenuIndicator.
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	5829	wIcon := MenuPanel delayedMenuIndicatorOffset + icon width.
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	5830	]
2326 a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	5831	].
2344 d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	5832	x := x + wIcon.
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	5833	].
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	5834	^ x@y
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5835	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	5836
1679 af40842718f6 when accepting, and the application does not respond to that Claus Gittinger <cg@exept.de> parents: 1670 diff changeset	5837	!MenuPanel::Item methodsFor:'accessing-help'!
1613 5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	5838
5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	5839	activeHelpKey
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5840	"get the active helpKey; the key to retrieve the helpText from the application"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5841
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5842	^ menuItem activeHelpKey
1613 5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	5843	!
5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	5844
5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	5845	activeHelpKey:aHelpKey
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5846	"set the active helpKey; the key to retrieve the helpText from the application"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5847
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5848	menuItem activeHelpKey:aHelpKey.
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5849	activeHelpText := nil.
1613 5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	5850	!
5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	5851
5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	5852	activeHelpText
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5853	"get the active helpText or nil if not yet resolved"
2433 49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5854
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5855	\|app key\|
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5856
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5857	activeHelpText notNil ifTrue:[^ activeHelpText].
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5858
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5859	((key := self activeHelpKey) notNil
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5860	and:[(app := menuPanel application) notNil]) ifTrue:[
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5861	^ app helpTextForKey:key.
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5862	].
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5863	^ nil
1613 5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	5864	!
5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	5865
5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	5866	activeHelpText:aText
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5867	"set the active helpText"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5868
1613 5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	5869	activeHelpText := aText.
2345 8b7b3e384002 fallBack to activeHelpKey and label, if no flyByHelp is Claus Gittinger <cg@exept.de> parents: 2344 diff changeset	5870	!
8b7b3e384002 fallBack to activeHelpKey and label, if no flyByHelp is Claus Gittinger <cg@exept.de> parents: 2344 diff changeset	5871
8b7b3e384002 fallBack to activeHelpKey and label, if no flyByHelp is Claus Gittinger <cg@exept.de> parents: 2344 diff changeset	5872	flyByHelpText
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5873	"get the flyBy helpText or nil."
2433 49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5874
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5875	\|text key app\|
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5876
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5877	flyByHelpText notNil ifTrue:[^ flyByHelpText].
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5878
2574 366e5807711f separators have no flyByHelp Claus Gittinger <cg@exept.de> parents: 2569 diff changeset	5879	self isSeparator ifTrue:[^ nil].
366e5807711f separators have no flyByHelp Claus Gittinger <cg@exept.de> parents: 2569 diff changeset	5880
2471 e6e52dc428a2 it is not the isButton behavior, martin parents: 2460 diff changeset	5881	"/ its NOT the button-attribute, which controls flyByHelp suppression...
e6e52dc428a2 it is not the isButton behavior, martin parents: 2460 diff changeset	5882	"/ (if you have an argument for that let us know..)
e6e52dc428a2 it is not the isButton behavior, martin parents: 2460 diff changeset	5883	"/ self isButton ifFalse:[^ nil].
e6e52dc428a2 it is not the isButton behavior, martin parents: 2460 diff changeset	5884	(menuPanel isNil or:[menuPanel isPopUpView]) ifTrue:[^ nil].
2433 49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5885
2652 686c0f0acb90 do not show help for items which have a menu (launchers about-item) Claus Gittinger <cg@exept.de> parents: 2617 diff changeset	5886	"/ 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	5887	key := self activeHelpKey.
2895 4e63ee409513 flyByHelpText in Launcher Claus Gittinger <cg@exept.de> parents: 2888 diff changeset	5888	app := menuPanel application.
4e63ee409513 flyByHelpText in Launcher Claus Gittinger <cg@exept.de> parents: 2888 diff changeset	5889
4e63ee409513 flyByHelpText in Launcher Claus Gittinger <cg@exept.de> parents: 2888 diff changeset	5890	"/ special hook for menuItems added by other applications (i.e. via addMenuItem to the launcher)
4e63ee409513 flyByHelpText in Launcher Claus Gittinger <cg@exept.de> parents: 2888 diff changeset	5891	(key isAssociation) ifTrue:[
4e63ee409513 flyByHelpText in Launcher Claus Gittinger <cg@exept.de> parents: 2888 diff changeset	5892	app := key key.
4e63ee409513 flyByHelpText in Launcher Claus Gittinger <cg@exept.de> parents: 2888 diff changeset	5893	key := key value.
4e63ee409513 flyByHelpText in Launcher Claus Gittinger <cg@exept.de> parents: 2888 diff changeset	5894	].
4e63ee409513 flyByHelpText in Launcher Claus Gittinger <cg@exept.de> parents: 2888 diff changeset	5895
4e63ee409513 flyByHelpText in Launcher Claus Gittinger <cg@exept.de> parents: 2888 diff changeset	5896	(key notNil and:[app notNil]) ifTrue:[
2433 49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5897	text := app flyByHelpTextForKey:key.
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5898	].
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5899
2652 686c0f0acb90 do not show help for items which have a menu (launchers about-item) Claus Gittinger <cg@exept.de> parents: 2617 diff changeset	5900	"/ 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	5901	text isNil ifTrue:[
2676 01dc236c3dcd flyByHelp: shown for items with menu IFF there is an activeHelp key ca parents: 2675 diff changeset	5902	self hasSubmenu ifTrue:[
01dc236c3dcd flyByHelp: shown for items with menu IFF there is an activeHelp key ca parents: 2675 diff changeset	5903	^ key
01dc236c3dcd flyByHelp: shown for items with menu IFF there is an activeHelp key ca parents: 2675 diff changeset	5904	].
2652 686c0f0acb90 do not show help for items which have a menu (launchers about-item) Claus Gittinger <cg@exept.de> parents: 2617 diff changeset	5905
2433 49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5906	text := key.
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5907	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	5908	displayLabel isString ifTrue:[
1dc3745fc313 do not show the menus label again as fly by help Claus Gittinger <cg@exept.de> parents: 2545 diff changeset	5909	text := displayLabel string.
1dc3745fc313 do not show the menus label again as fly by help Claus Gittinger <cg@exept.de> parents: 2545 diff changeset	5910	].
1dc3745fc313 do not show the menus label again as fly by help Claus Gittinger <cg@exept.de> parents: 2545 diff changeset	5911	].
1dc3745fc313 do not show the menus label again as fly by help Claus Gittinger <cg@exept.de> parents: 2545 diff changeset	5912	text isNil ifTrue:[
1dc3745fc313 do not show the menus label again as fly by help Claus Gittinger <cg@exept.de> parents: 2545 diff changeset	5913	text := self rawLabel.
2433 49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5914	text isString ifFalse:[
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5915	text := menuItem rawLabel.
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5916	text isString ifFalse:[
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5917	text := nil.
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5918	]
2550 1dc3745fc313 do not show the menus label again as fly by help Claus Gittinger <cg@exept.de> parents: 2545 diff changeset	5919	].
1dc3745fc313 do not show the menus label again as fly by help Claus Gittinger <cg@exept.de> parents: 2545 diff changeset	5920	text notNil ifTrue:[
1dc3745fc313 do not show the menus label again as fly by help Claus Gittinger <cg@exept.de> parents: 2545 diff changeset	5921	(text includes:$&) ifTrue:[
1dc3745fc313 do not show the menus label again as fly by help Claus Gittinger <cg@exept.de> parents: 2545 diff changeset	5922	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	5923	].
1dc3745fc313 do not show the menus label again as fly by help Claus Gittinger <cg@exept.de> parents: 2545 diff changeset	5924	].
1dc3745fc313 do not show the menus label again as fly by help Claus Gittinger <cg@exept.de> parents: 2545 diff changeset	5925	].
1dc3745fc313 do not show the menus label again as fly by help Claus Gittinger <cg@exept.de> parents: 2545 diff changeset	5926	].
1dc3745fc313 do not show the menus label again as fly by help Claus Gittinger <cg@exept.de> parents: 2545 diff changeset	5927
1dc3745fc313 do not show the menus label again as fly by help Claus Gittinger <cg@exept.de> parents: 2545 diff changeset	5928	text = displayLabel ifTrue:[
1dc3745fc313 do not show the menus label again as fly by help Claus Gittinger <cg@exept.de> parents: 2545 diff changeset	5929	"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	5930	(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	5931	^ nil
1dc3745fc313 do not show the menus label again as fly by help Claus Gittinger <cg@exept.de> parents: 2545 diff changeset	5932	].
2433 49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5933	^ text
2345 8b7b3e384002 fallBack to activeHelpKey and label, if no flyByHelp is Claus Gittinger <cg@exept.de> parents: 2344 diff changeset	5934	!
8b7b3e384002 fallBack to activeHelpKey and label, if no flyByHelp is Claus Gittinger <cg@exept.de> parents: 2344 diff changeset	5935
8b7b3e384002 fallBack to activeHelpKey and label, if no flyByHelp is Claus Gittinger <cg@exept.de> parents: 2344 diff changeset	5936	flyByHelpText:aText
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5937	"exlicitly set the flyBy helpText. For example, to dynamically change it."
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5938
2345 8b7b3e384002 fallBack to activeHelpKey and label, if no flyByHelp is Claus Gittinger <cg@exept.de> parents: 2344 diff changeset	5939	flyByHelpText := aText.
1613 5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	5940	! !
5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	5941
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5942	!MenuPanel::Item methodsFor:'accessing-look'!
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5943
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5944	horizontalLayout
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5945	"on default submenus has a vertical layout;
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5946	true, the submenu has a horizontal layout."
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5947
2360 aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5948	^ menuItem horizontalLayout ? false
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5949	!
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5950
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5951	horizontalLayout:aBoolean
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5952	"on default submenus has a vertical layout;
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5953	true, the submenu has a horizontal layout."
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5954
2360 aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5955	menuItem horizontalLayout:aBoolean.
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5956	!
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5957
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5958	isButton
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5959	"returns whether the item looks like a Button"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5960
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5961	^ menuItem isButton
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5962	!
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5963
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5964	isButton:aBool
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5965	"set/clear the item to look like a Button"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5966
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5967	menuItem isButton ~~ aBool ifTrue:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5968	menuItem isButton:aBool.
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5969	self invalidate.
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5970	]
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5971	!
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5972
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5973	layout
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5974	"returns my layout ( Rectangle )"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5975
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5976	^ layout
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5977	!
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5978
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5979	layout:aLayout
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5980	"set a new layout ( Rectangle )"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5981
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5982	layout := aLayout.
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5983	self invalidate.
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5984	!
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5985
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5986	showBusyCursorWhilePerforming
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5987	"get the flag which controls if a busy cursor is to be shown
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5988	while performing the menu action. Defaults to false."
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5989
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5990	^ menuItem showBusyCursorWhilePerforming
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5991	!
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5992
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5993	showBusyCursorWhilePerforming:aBoolean
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5994	"set/clear the flag which controls if a busy cursor is to be shown
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5995	while performing the menu action. Defaults to false."
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5996
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5997	menuItem showBusyCursorWhilePerforming:aBoolean.
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5998	! !
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5999
2504 0ce78a73aacf method category rename Claus Gittinger <cg@exept.de> parents: 2503 diff changeset	6000	!MenuPanel::Item methodsFor:'activation & deactivation'!
1705 201f9ce1b2d2 checkin from browser ca parents: 1704 diff changeset	6001
1786 f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	6002	currentSubmenu
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6003	"returns the current submenu or nil"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6004
1786 f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	6005	^ subMenu
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	6006	!
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	6007
1705 201f9ce1b2d2 checkin from browser ca parents: 1704 diff changeset	6008	hideSubmenu
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6009	"hide submenu"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6010
2199 61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	6011	self hideSubmenu:subMenu.
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	6012	!
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	6013
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	6014	hideSubmenu:aSubmenu
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6015	"hide submenu"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6016
2871 c74f2a6ff335 ugly comments Claus Gittinger <cg@exept.de> parents: 2870 diff changeset	6017	\|id wg\|
1705 201f9ce1b2d2 checkin from browser ca parents: 1704 diff changeset	6018
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	6019	aSubmenu isNil ifTrue:[^ self].
2681 2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	6020	aSubmenu removeDependencies.
2199 61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	6021
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	6022	aSubmenu realized ifFalse:[
2364 c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	6023	id := aSubmenu id.
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	6024	id notNil ifTrue:[ menuPanel device unmapWindow:id ]
2199 61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	6025	] ifTrue:[
2364 c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	6026	aSubmenu hide
2199 61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	6027	].
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	6028
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6029	aSubmenu windowGroup:nil.
2871 c74f2a6ff335 ugly comments Claus Gittinger <cg@exept.de> parents: 2870 diff changeset	6030	(wg := menuPanel windowGroup) notNil ifTrue:[
c74f2a6ff335 ugly comments Claus Gittinger <cg@exept.de> parents: 2870 diff changeset	6031	wg removeView:aSubmenu.
c74f2a6ff335 ugly comments Claus Gittinger <cg@exept.de> parents: 2870 diff changeset	6032	].
2199 61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	6033
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	6034	"/ release menu if derived from channel
2364 c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	6035	(subMenu == aSubmenu and:[menuItem submenuChannel notNil]) ifTrue:[
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	6036	menuItem keepLinkedMenu ifFalse:[
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	6037	subMenu := nil
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	6038	]
2199 61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	6039	].
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	6040	!
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	6041
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	6042	openDelayedSubmenu
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6043	"called to open now my delayed submenu"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6044
3133 dd8417f3373b code cleanup; comments Claus Gittinger <cg@exept.de> parents: 3131 diff changeset	6045	\|subMenuBeforeOpening\|
2199 61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	6046
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	6047	(self isSelected and:[menuPanel shown]) ifFalse:[^ self].
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	6048
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	6049	subMenu notNil ifTrue:[
975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	6050	subMenu realized ifTrue:[
975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	6051	"/ already open
975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	6052	^ self
975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	6053	].
2199 61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	6054	].
3133 dd8417f3373b code cleanup; comments Claus Gittinger <cg@exept.de> parents: 3131 diff changeset	6055	self setupSubmenu.
dd8417f3373b code cleanup; comments Claus Gittinger <cg@exept.de> parents: 3131 diff changeset	6056	subMenu isNil ifTrue:[^ self].
dd8417f3373b code cleanup; comments Claus Gittinger <cg@exept.de> parents: 3131 diff changeset	6057	subMenuBeforeOpening := subMenu.
2199 61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	6058	self openSubmenu.
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	6059
3133 dd8417f3373b code cleanup; comments Claus Gittinger <cg@exept.de> parents: 3131 diff changeset	6060	(subMenuBeforeOpening == subMenu and:[self isSelected]) ifFalse:[
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	6061	"/ closed during building or opening the submenu
3133 dd8417f3373b code cleanup; comments Claus Gittinger <cg@exept.de> parents: 3131 diff changeset	6062	self hideSubmenu:subMenuBeforeOpening.
dd8417f3373b code cleanup; comments Claus Gittinger <cg@exept.de> parents: 3131 diff changeset	6063	].
dd8417f3373b code cleanup; comments Claus Gittinger <cg@exept.de> parents: 3131 diff changeset	6064
dd8417f3373b code cleanup; comments Claus Gittinger <cg@exept.de> parents: 3131 diff changeset	6065	"Modified: / 07-11-2006 / 11:07:57 / cg"
1705 201f9ce1b2d2 checkin from browser ca parents: 1704 diff changeset	6066	!
1701 026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	6067
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	6068	openSubmenu
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	6069	"opens the submenu; make sure, that the submenu and the menPanel
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	6070	is fully visible by shifting it into the visible screen area if
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6071	nescessary."
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6072
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	6073	\|p o device isVertical topMenu windGrp prefExtent
1701 026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	6074	devBot "{ Class:SmallInteger }"
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	6075	devRight "{ Class:SmallInteger }"
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	6076	width "{ Class:SmallInteger }"
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	6077	height "{ Class:SmallInteger }"
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	6078	top "{ Class:SmallInteger }"
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	6079	left "{ Class:SmallInteger }"
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	6080	\|
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	6081
1737 c18896a7cb50 replace shown by realized; when opening a submenue-submenue by shortcut key ca parents: 1735 diff changeset	6082	(subMenu notNil and:[subMenu shown not and:[self isSelected and:[menuPanel realized]]]) ifFalse:[
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	6083	^ self
1701 026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	6084	].
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	6085
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	6086	topMenu := menuPanel topMenu.
1829 bd8b95c5bb89 migration fixes Claus Gittinger <cg@exept.de> parents: 1825 diff changeset	6087	(subMenu device notNil and:[topMenu device ~~ subMenu device]) ifTrue:[
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	6088	subMenu releaseDeviceResources.
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	6089	subMenu setDevice:topMenu device id:nil gcId:nil.
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	6090	subMenu recreate.
1829 bd8b95c5bb89 migration fixes Claus Gittinger <cg@exept.de> parents: 1825 diff changeset	6091	].
bd8b95c5bb89 migration fixes Claus Gittinger <cg@exept.de> parents: 1825 diff changeset	6092
1701 026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	6093	windGrp := topMenu windowGroup.
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	6094
1707 4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6095	subMenu superMenu:menuPanel.
1701 026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	6096	subMenu becomesActiveMenu.
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	6097	subMenu cursor:Cursor hand.
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	6098
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	6099	windGrp notNil ifTrue:[
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	6100	subMenu windowGroup:windGrp.
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	6101	windGrp addTopView:subMenu.
1701 026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	6102	].
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	6103
2111 f3d67f7c0f92 bug fix when opening a menu by mnemonic ca parents: 2100 diff changeset	6104	"Q&D kludge - test whether the layout is nil;
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	6105	if true recompute the layouts
2111 f3d67f7c0f92 bug fix when opening a menu by mnemonic ca parents: 2100 diff changeset	6106	"
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	6107	layout isNil ifTrue:[menuPanel rearrangeItems].
2111 f3d67f7c0f92 bug fix when opening a menu by mnemonic ca parents: 2100 diff changeset	6108
1701 026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	6109	" Q&D kludge - if any visibility attributes are blocks;
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	6110	TODO: only invoke mustRearrange if any are blocks
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	6111	(since I react correctly on valueHolder changes)
1701 026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	6112	"
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	6113	subMenu rearrangeItemsIfItemVisibilityChanged.
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	6114	subMenu fixSize.
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	6115
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	6116	"compute origin of subMenu
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	6117	"
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	6118	isVertical := menuPanel verticalLayout.
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	6119	device := menuPanel device.
1714 b4c05977e9d5 get heigth and width from preferredExtent when open a submenu ca parents: 1710 diff changeset	6120	prefExtent := subMenu preferredExtent.
b4c05977e9d5 get heigth and width from preferredExtent when open a submenu ca parents: 1710 diff changeset	6121	height := prefExtent y.
b4c05977e9d5 get heigth and width from preferredExtent when open a submenu ca parents: 1710 diff changeset	6122	width := prefExtent x.
1701 026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	6123	devBot := device usableHeight.
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	6124	devRight := device usableWidth.
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	6125
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	6126	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	6127
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6128	menuPanel isPopUpView ifTrue:[
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	6129	o := menuPanel origin + p
1707 4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6130	] ifFalse:[
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	6131	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	6132	].
1701 026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	6133	left := o x.
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	6134	top := o y.
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	6135
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	6136	top + height > devBot ifTrue:[
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	6137	top := isVertical ifTrue:[devBot - height]
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	6138	ifFalse:[top - layout height - height + 2]
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	6139	].
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	6140	top := top max:0.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	6141
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	6142	"/ (isVertical not and:[subMenu isVerticalLayout]) ifTrue:[
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	6143	"/ top < menuPanel bottom ifTrue:[
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	6144	"/ left := left + layout width.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	6145	"/ ].
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	6146	"/ left + width > devRight ifTrue:[
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	6147	"/ left := o x - width - 2
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	6148	"/ ].
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	6149	"/ ].
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	6150
1701 026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	6151	left + width > devRight ifTrue:[
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	6152	left := isVertical ifTrue:[left - layout width - width + 2]
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	6153	ifFalse:[devRight - width]
1701 026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	6154	].
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	6155	left := left max:0.
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	6156
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	6157	subMenu origin:(left@top).
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	6158
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	6159	subMenu realized ifFalse:[
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	6160	subMenu realize.
1701 026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	6161	] ifTrue:[
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	6162	topMenu device mapWindow:(subMenu id).
1786 f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	6163	].
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	6164	!
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	6165
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	6166	toggleSubmenuVisibility
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6167	"toggle the visibility of the submenu"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6168
1786 f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	6169	subMenu notNil ifTrue:[
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6170	subMenu shown ifTrue:[^ self hideSubmenu]
1786 f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	6171	] ifFalse:[
3133 dd8417f3373b code cleanup; comments Claus Gittinger <cg@exept.de> parents: 3131 diff changeset	6172	self setupSubmenu.
dd8417f3373b code cleanup; comments Claus Gittinger <cg@exept.de> parents: 3131 diff changeset	6173	subMenu isNil ifTrue:[
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6174	"/ cannot open a submenu
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6175	^ self
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6176	]
1786 f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	6177	].
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	6178	self openSubmenu.
3133 dd8417f3373b code cleanup; comments Claus Gittinger <cg@exept.de> parents: 3131 diff changeset	6179
dd8417f3373b code cleanup; comments Claus Gittinger <cg@exept.de> parents: 3131 diff changeset	6180	"Modified: / 07-11-2006 / 11:06:42 / cg"
1786 f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	6181	!
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	6182
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	6183	visibleSubmenu
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6184	"returns the current visible submenu or nil"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6185
1786 f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	6186	subMenu notNil ifTrue:[
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6187	subMenu shown ifTrue:[^ subMenu].
1786 f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	6188	].
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	6189	^ nil
1701 026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	6190	! !
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	6191
524 d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	6192	!MenuPanel::Item methodsFor:'building'!
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	6193
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	6194	aspectAt:aKey
3092 a1dee282cab7 * empty log message * Claus Gittinger <cg@exept.de> parents: 2972 diff changeset	6195	"returns the value assigned to key or nil"
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6196
524 d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	6197	\|appl value\|
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	6198
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	6199	appl := menuPanel receiver.
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	6200
1219 6a0d677a6fac removed some #isKindOf: calls. Claus Gittinger <cg@exept.de> parents: 1218 diff changeset	6201	(appl isValueModel) ifTrue:[
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6202	^ appl value:aKey
524 d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	6203	].
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	6204
2123 091268558e93 * empty log message * ca parents: 2118 diff changeset	6205	appl isNil ifTrue:[
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6206	appl := menuPanel application.
2123 091268558e93 * empty log message * ca parents: 2118 diff changeset	6207	].
091268558e93 * empty log message * ca parents: 2118 diff changeset	6208	appl isNil ifTrue:[ ^ nil].
091268558e93 * empty log message * ca parents: 2118 diff changeset	6209
091268558e93 * empty log message * ca parents: 2118 diff changeset	6210	MessageNotUnderstood handle:[:ex\|
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6211	ex selector == aKey ifFalse:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6212	ex reject
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6213	].
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6214	self ifNotInUIBuilderInfoPrintCR:
2771 3328da9f3df8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2770 diff changeset	6215	('MenuPanel::Item [info]: application (%1) does not provide aspect: %2'
3328da9f3df8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2770 diff changeset	6216	bindWith:appl classNameWithArticle with:aKey).
2123 091268558e93 * empty log message * ca parents: 2118 diff changeset	6217	] do:[
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6218	aKey numArgs == 1 ifTrue:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6219	value := appl perform:aKey with:(menuItem argument ? self).
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6220	] ifFalse:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6221	(appl respondsTo:#aspectFor:) ifTrue:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6222	value := appl aspectFor:aKey
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6223	] ifFalse:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6224	value := appl perform:aKey
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6225	]
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6226	]
524 d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	6227	].
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	6228	^ value
1029 c9e90585fa89 only ignore messageNotUnderstood for my aspects. Claus Gittinger <cg@exept.de> parents: 1026 diff changeset	6229
3092 a1dee282cab7 * empty log message * Claus Gittinger <cg@exept.de> parents: 2972 diff changeset	6230	"Modified: / 05-10-2006 / 03:10:20 / cg"
524 d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	6231	! !
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	6232
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	6233	!MenuPanel::Item methodsFor:'change & update'!
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	6234
2614 86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	6235	fontChanged
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6236	"called whenever the font changed"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6237
2614 86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	6238	displayLabel notNil ifTrue:[
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	6239	displayLabelExtent := nil.
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	6240
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	6241	subMenu notNil ifTrue:[
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	6242	subMenu font:(menuPanel font).
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	6243	].
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	6244	].
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	6245	!
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	6246
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6247	update:something with:aParameter from:changedObject
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6248
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6249	\|form rect\|
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6250
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6251	(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	6252
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6253	self isSeparator ifFalse:[
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6254	"/ NOT A SEPARATOR
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6255
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6256	menuPanel shown ifTrue:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6257	changedObject == enableChannel ifTrue:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6258	(enableChannel value == false and:[self isSelected]) ifTrue:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6259	^ menuPanel selection:nil.
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6260	].
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6261	^ self invalidate
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6262	].
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6263
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6264	(changedObject == indication or:[changedObject == choice]) ifTrue:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6265	menuItem isButton ifTrue:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6266	self invalidate
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6267	] ifFalse:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6268	"/ invalidate the interactor only
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6269	"/ take any interactor; interactors has the same extent
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6270	form := menuPanel iconIndicationOff.
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6271
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6272	rect := Rectangle left:(layout left + HorizontalInset)
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6273	top:(layout top)
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6274	width:(form width)
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6275	height:(layout height).
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6276
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6277	menuPanel invalidate:rect repairNow:false
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6278	].
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6279	^ self
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6280	].
2855 c7f3481ff14a redraw when a valueHolder changes. Claus Gittinger <cg@exept.de> parents: 2844 diff changeset	6281	self invalidate.
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6282	].
498 b4c341497621 bug fixes: ca parents: 475 diff changeset	6283	].
712 4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	6284
4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	6285	changedObject == isVisible ifTrue:[
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6286	menuPanel mustRearrange.
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6287	menuPanel rearrangeItems.
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6288	^ self.
712 4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	6289	].
4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	6290
498 b4c341497621 bug fixes: ca parents: 475 diff changeset	6291	super update:something with:aParameter from:changedObject
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	6292	!
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	6293
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	6294	updateIndicators
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6295	"update indicators "
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6296
2934 b4ec1cbb3302 * empty log message * Claus Gittinger <cg@exept.de> parents: 2926 diff changeset	6297	indication notNil ifTrue:[
b4ec1cbb3302 * empty log message * Claus Gittinger <cg@exept.de> parents: 2926 diff changeset	6298	(indication isSymbol
b4ec1cbb3302 * empty log message * Claus Gittinger <cg@exept.de> parents: 2926 diff changeset	6299	or:[menuItem hideMenuOnActivated not])
b4ec1cbb3302 * empty log message * Claus Gittinger <cg@exept.de> parents: 2926 diff changeset	6300	ifTrue:[
b4ec1cbb3302 * empty log message * Claus Gittinger <cg@exept.de> parents: 2926 diff changeset	6301	"indication is a selector;
b4ec1cbb3302 * empty log message * Claus Gittinger <cg@exept.de> parents: 2926 diff changeset	6302	otherwise no need to redraw, because
b4ec1cbb3302 * empty log message * Claus Gittinger <cg@exept.de> parents: 2926 diff changeset	6303	a change notification is raised from the model !!!!"
b4ec1cbb3302 * empty log message * Claus Gittinger <cg@exept.de> parents: 2926 diff changeset	6304	self update:nil with:nil from:indication
b4ec1cbb3302 * empty log message * Claus Gittinger <cg@exept.de> parents: 2926 diff changeset	6305	]
1074 25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	6306	]
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	6307	! !
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	6308
388 dce33f8bb806 intitial checkin ca parents: diff changeset	6309	!MenuPanel::Item methodsFor:'converting'!
dce33f8bb806 intitial checkin ca parents: diff changeset	6310
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	6311	asMenuItem
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6312	"convert to a MenuItem"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6313
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6314	^ menuItem
388 dce33f8bb806 intitial checkin ca parents: diff changeset	6315	!
dce33f8bb806 intitial checkin ca parents: diff changeset	6316
2827 139c1089bcb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 2826 diff changeset	6317	menuItem
139c1089bcb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 2826 diff changeset	6318	^ menuItem
139c1089bcb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 2826 diff changeset	6319	!
139c1089bcb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 2826 diff changeset	6320
388 dce33f8bb806 intitial checkin ca parents: diff changeset	6321	menuItem:aMenuItem
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6322	"setup attributes from a MenuItem"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6323
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6324	\|lbl\|
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	6325
388 dce33f8bb806 intitial checkin ca parents: diff changeset	6326	menuPanel disabledRedrawDo:[
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6327	menuItem := aMenuItem.
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6328	menuItem isNil ifTrue:[ menuItem := MenuItem new].
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6329
2433 49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6330	label := displayLabel := activeHelpText := nil.
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6331
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6332	self enabled:(menuItem enabled).
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6333	self indication:(menuItem indication).
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6334	self choice:(menuItem choice).
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6335	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	6336
2855 c7f3481ff14a redraw when a valueHolder changes. Claus Gittinger <cg@exept.de> parents: 2844 diff changeset	6337	"/ we should call the resourceRetriever here instead of labelImage
2326 a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	6338	"/ but ... ??
2855 c7f3481ff14a redraw when a valueHolder changes. Claus Gittinger <cg@exept.de> parents: 2844 diff changeset	6339
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6340	(lbl := menuItem labelImage value) isNil ifTrue:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6341	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	6342	].
a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	6343
2364 c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	6344	self submenu:(menuItem submenu).
2326 a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	6345	self label:lbl.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	6346	]
1033 9badc22e3d03 oops &'s where eliminated twice - leading to double &'s Claus Gittinger <cg@exept.de> parents: 1032 diff changeset	6347
1090 cf3d9f5648da only draw with enteredLevel, if item is enabled Claus Gittinger <cg@exept.de> parents: 1083 diff changeset	6348	"Modified: / 22.8.1998 / 15:34:16 / cg"
388 dce33f8bb806 intitial checkin ca parents: diff changeset	6349	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	6350
2681 2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	6351	!MenuPanel::Item methodsFor:'dependents access'!
2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	6352
2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	6353	addDependencies
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6354	"add all dependencies"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6355
2681 2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	6356	enableChannel isValueModel ifTrue:[enableChannel addDependent:self].
2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	6357	isVisible isValueModel ifTrue:[isVisible addDependent:self].
2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	6358	indication isValueModel ifTrue:[indication addDependent:self].
2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	6359	choice isValueModel ifTrue:[choice addDependent:self].
2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	6360	!
2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	6361
2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	6362	removeDependencies
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6363	"remove all dependencies"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6364
2681 2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	6365	enableChannel isValueModel ifTrue:[enableChannel removeDependent:self].
2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	6366	isVisible isValueModel ifTrue:[isVisible removeDependent:self].
2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	6367	indication isValueModel ifTrue:[indication removeDependent:self].
2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	6368	choice isValueModel ifTrue:[choice removeDependent:self].
2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	6369	! !
2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	6370
388 dce33f8bb806 intitial checkin ca parents: diff changeset	6371	!MenuPanel::Item methodsFor:'drawing'!
dce33f8bb806 intitial checkin ca parents: diff changeset	6372
2768 9c79a348a443 * empty log message * Claus Gittinger <cg@exept.de> parents: 2761 diff changeset	6373	choiceForm
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6374	"returns choice form or nil"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6375
2768 9c79a348a443 * empty log message * Claus Gittinger <cg@exept.de> parents: 2761 diff changeset	6376	\|isOn\|
9c79a348a443 * empty log message * Claus Gittinger <cg@exept.de> parents: 2761 diff changeset	6377
9c79a348a443 * empty log message * Claus Gittinger <cg@exept.de> parents: 2761 diff changeset	6378	choice isNil ifTrue:[^ nil].
9c79a348a443 * empty log message * Claus Gittinger <cg@exept.de> parents: 2761 diff changeset	6379
9c79a348a443 * empty log message * Claus Gittinger <cg@exept.de> parents: 2761 diff changeset	6380	isOn := (choice value = menuItem choiceValue).
9c79a348a443 * empty log message * Claus Gittinger <cg@exept.de> parents: 2761 diff changeset	6381	self enabled ifFalse:[
9c79a348a443 * empty log message * Claus Gittinger <cg@exept.de> parents: 2761 diff changeset	6382	^ isOn ifTrue:[menuPanel iconRadioGroupDisabledOn]
9c79a348a443 * empty log message * Claus Gittinger <cg@exept.de> parents: 2761 diff changeset	6383	ifFalse:[menuPanel iconRadioGroupDisabledOff]
9c79a348a443 * empty log message * Claus Gittinger <cg@exept.de> parents: 2761 diff changeset	6384	].
9c79a348a443 * empty log message * Claus Gittinger <cg@exept.de> parents: 2761 diff changeset	6385	^ isOn ifTrue:[menuPanel iconRadioGroupOn]
9c79a348a443 * empty log message * Claus Gittinger <cg@exept.de> parents: 2761 diff changeset	6386	ifFalse:[menuPanel iconRadioGroupOff]
9c79a348a443 * empty log message * Claus Gittinger <cg@exept.de> parents: 2761 diff changeset	6387	!
9c79a348a443 * empty log message * Claus Gittinger <cg@exept.de> parents: 2761 diff changeset	6388
2485 b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6389	draw
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6390	"redraw this item"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6391
2485 b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6392	\|isSelected ownBgCol paint bgColor
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6393	x "{ Class:SmallInteger }"
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6394	y "{ Class:SmallInteger }"
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6395	w "{ Class:SmallInteger }"
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6396	h "{ Class:SmallInteger }"
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6397	\|
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6398
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6399	self isVisible ifFalse:[^ self].
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6400
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6401	self isSeparator ifTrue:[
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6402	self drawSeparator.
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6403	^ self
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6404	].
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6405	menuItem isButton ifTrue:[
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6406	self drawButton.
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6407	^ self
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6408	].
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6409
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6410	"/ DRAW A LABELED ENTRY; no button, no separator
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6411
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6412	isSelected := self isSelected.
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6413	bgColor := menuPanel backgroundColor.
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6414	paint := isSelected
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6415	ifTrue:[self activeBackgroundColor]
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6416	ifFalse:[
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6417	(self isEnabled and:[ self isEntered ]) ifTrue:[
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6418	menuPanel enteredBackgroundColor
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6419	] ifFalse:[
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6420	bgColor
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6421	]].
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6422
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6423	(ownBgCol := self backgroundColorFromLabel) notNil ifTrue:[
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6424	paint := ownBgCol
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6425	].
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6426
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6427	paint ~= bgColor ifTrue:[
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6428	menuPanel paint:paint.
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6429	menuPanel fillRectangle:layout.
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6430	].
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6431
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6432	menuPanel showSeparatingLines ifTrue:[
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6433	self drawSeparatingLines
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6434	].
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6435
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6436	self drawLabel.
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6437
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6438	(ownBgCol notNil and:[isSelected]) ifTrue:[
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6439	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	6440	ifFalse:[menuPanel paint: menuPanel selectionFrameBrightColor].
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6441
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6442	x := layout left.
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6443	y := layout top.
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6444	w := layout width.
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6445	h := layout height.
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6446
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6447	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	6448	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	6449	].
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6450	menuPanel drawLabelEdgeFor:self selected:isSelected.
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6451	!
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6452
1707 4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6453	drawButton
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6454	"draw as button"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6455
2362 7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6456	\|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	6457	x "{ Class:SmallInteger }"
2143 7b99a7348c97 draw label shifted right-down when pressed penk parents: 2142 diff changeset	6458	y "{ Class:SmallInteger }"
1707 4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6459	\|
2433 49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6460	drawObject := displayLabel.
2362 7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6461	isEnabled := self enabled.
2159 1eac041aeb3d toggle button draw & behavior Claus Gittinger <cg@exept.de> parents: 2145 diff changeset	6462	isSelected := self isSelected.
2362 7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6463
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6464	isSelected ifFalse:[
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6465	"/ test whether button has pressed toggle behaviour
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6466	showSelected := (self isToggle and:[self indicationValue]).
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6467	] ifTrue:[
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6468	showSelected := isSelected
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6469	].
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6470
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6471	showSelected ifTrue:[
1707 4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6472	bg := self activeBackgroundColor.
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6473	fg := self activeForegroundColor.
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6474	] ifFalse:[
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6475	self isEntered ifTrue:[
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6476	bg := self buttonEnteredBackgroundColor
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6477	] ifFalse:[
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6478	bg := self backgroundColor
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6479	].
2059 c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6480	isEnabled ifTrue:[
1707 4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6481	fg := menuPanel foregroundColor
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6482	] ifFalse:[
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6483	fg := menuPanel disabledForegroundColor.
2059 c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6484	etchFg := menuPanel disabledEtchedForegroundColor.
1707 4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6485	drawObject := self disabledRawLabel
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6486	]
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6487	].
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6488
1708 cfaf55b9043d bug fix in background color of button when derives from label(text) ca parents: 1707 diff changeset	6489	(ownBgCol := self backgroundColorFromLabel) notNil ifTrue:[
cfaf55b9043d bug fix in background color of button when derives from label(text) ca parents: 1707 diff changeset	6490	bg := ownBgCol
cfaf55b9043d bug fix in background color of button when derives from label(text) ca parents: 1707 diff changeset	6491	].
cfaf55b9043d bug fix in background color of button when derives from label(text) ca parents: 1707 diff changeset	6492
1707 4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6493	"DRAW BACKGROUND"
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6494	bg ~= menuPanel backgroundColor ifTrue:[
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6495	menuPanel paint:bg.
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6496	menuPanel fillRectangle:layout.
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6497	].
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6498
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6499	x := layout left + menuPanel buttonPassiveLevel + HorizontalButtonInset.
2362 7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6500
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6501	(drawObject isImage and:[menuPanel centerItems]) ifTrue:[
2337 7f384db88273 centerItems attribute Claus Gittinger <cg@exept.de> parents: 2332 diff changeset	6502	x := x + (layout width - menuPanel buttonPassiveLevel - HorizontalButtonInset - 1 - drawObject width // 2).
7f384db88273 centerItems attribute Claus Gittinger <cg@exept.de> parents: 2332 diff changeset	6503	].
1707 4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6504
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6505	isSelected ifFalse:[
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6506	"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	6507
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6508	indication notNil ifTrue:[
1707 4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6509	"button is indicator and set"
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6510	isSelected := self indicationValue
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6511	] ifFalse:[
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6512	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	6513	]
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6514	].
2143 7b99a7348c97 draw label shifted right-down when pressed penk parents: 2142 diff changeset	6515	y := 0.
1707 4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6516
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6517	isSelected ifTrue:[
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6518	level := menuPanel buttonActiveLevel.
2142 ea2a32738005 pressed button label only shifted by one pixel penk parents: 2141 diff changeset	6519	x := x + 1 "level abs".
2143 7b99a7348c97 draw label shifted right-down when pressed penk parents: 2142 diff changeset	6520	y := y + 1 "level abs".
1707 4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6521	] ifFalse:[
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6522	level := self isEntered ifTrue:[menuPanel buttonEnteredLevel]
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	6523	ifFalse:[menuPanel buttonPassiveLevel].
2059 c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6524	].
c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6525
2817 805bb3b2ef28 * empty log message * Claus Gittinger <cg@exept.de> parents: 2793 diff changeset	6526	drawObject notEmptyOrNil ifTrue:[
2362 7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6527	etchFg notNil ifTrue:[
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6528	self drawRawLabel:drawObject atX:x+1 yOffset:y+1 paint:etchFg.
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6529	].
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6530	self drawRawLabel:drawObject atX:x yOffset:y+0 paint:fg.
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6531	].
2344 d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6532	self drawMenuIndicator.
1707 4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6533
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6534	level ~~ 0 ifTrue:[
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6535	menuPanel drawButtonEdgesFor:self level:level
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6536	].
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6537	!
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6538
2344 d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6539	drawLabel
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6540	"draw a labeled entry; no button, no separator."
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6541
2344 d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6542	\|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	6543	isSelected isEnabled form
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6544	h "{ Class:SmallInteger }"
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6545	y "{ Class:SmallInteger }"
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6546	x "{ Class:SmallInteger }"
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6547	t "{ Class:SmallInteger }"
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6548	\|
2433 49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6549	drawObject := displayLabel.
2362 7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6550	isEnabled := self enabled.
2344 d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6551	isSelected := self isSelected.
2362 7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6552
2344 d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6553	isSelected ifTrue:[
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6554	fg := self activeForegroundColor
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6555	] ifFalse:[
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6556	isEnabled ifTrue:[
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6557	self isEntered ifTrue:[
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6558	fg := menuPanel enteredForegroundColor
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6559	] ifFalse:[
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6560	fg := menuPanel foregroundColor
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6561	]
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6562	] ifFalse:[
2362 7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6563	fg := menuPanel disabledForegroundColor.
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6564	etchFg := menuPanel disabledEtchedForegroundColor.
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6565	drawObject := self disabledRawLabel
2344 d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6566	]
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6567	].
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6568
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6569	h := layout height.
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6570	x := layout left + HorizontalInset.
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6571	t := layout top.
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6572
3131 611b833f2ac9 * empty log message * ca parents: 3128 diff changeset	6573	( (form := self indicatorForm) notNil
611b833f2ac9 * empty log message * ca parents: 3128 diff changeset	6574	or:[(form := self choiceForm) notNil]
611b833f2ac9 * empty log message * ca parents: 3128 diff changeset	6575	) ifTrue:[
2344 d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6576	y := t + ((h - form height) // 2).
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6577	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	6578	].
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6579
2817 805bb3b2ef28 * empty log message * Claus Gittinger <cg@exept.de> parents: 2793 diff changeset	6580	drawObject notEmptyOrNil ifTrue:[
3131 611b833f2ac9 * empty log message * ca parents: 3128 diff changeset	6581	x := x + (menuPanel stringOffsetXfor:self).
611b833f2ac9 * empty log message * ca parents: 3128 diff changeset	6582
2362 7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6583	etchFg notNil ifTrue:[
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6584	self drawRawLabel:drawObject atX:x+1 yOffset:1 paint:etchFg.
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6585	].
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6586	self drawRawLabel:drawObject atX:x yOffset:0 paint:fg.
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6587	].
2344 d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6588	self drawMenuIndicator.
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6589
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6590	"/ DRAW SHORTCUT KEY
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6591
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6592	( menuItem shortcutKey notNil
2344 d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6593	and:[(x := menuPanel shortKeyInset) ~~ 0
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6594	and:[(scKey:= self shortcutKeyAsString) notNil]]
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6595	) ifTrue:[
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6596	x := layout left + x.
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6597	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	6598	y := y + menuPanel font ascent.
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6599	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	6600	].
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6601
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6602	"/ DRAW SUBMENU INDICATION
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6603
2362 7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6604	(menuPanel isVerticalLayout and:[self hasSubmenu]) ifFalse:[
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6605	^ self
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6606	].
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6607	arrow := menuPanel rightArrow.
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6608	x := layout right - arrow width - HorizontalInset.
3131 611b833f2ac9 * empty log message * ca parents: 3128 diff changeset	6609	y := t + ((h - arrow height) // 2).
2362 7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6610
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6611	(menuPanel styleSheet is3D not
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6612	or:[(drawObject := menuPanel rightArrowShadow) isNil]) ifTrue:[
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6613	^ menuPanel displayForm:arrow x:x y:y
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6614	].
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6615	cLa := menuPanel shadowColor.
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6616	cLb := menuPanel lightColor.
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6617
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6618	isSelected ifFalse:[
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6619	fg := cLa.
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6620	cLa := cLb.
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6621	cLb := fg
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6622	].
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6623	menuPanel paint:cLa.
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6624	menuPanel displayForm:arrow x:x y:y.
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6625	menuPanel paint:cLb.
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6626	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	6627
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6628	"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	6629	!
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6630
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6631	drawMenuIndicator
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6632	"draw a menu indicator if the item has a menu or delayed menu."
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6633
2220 5ea0ceb20354 delayed submenu indicator Claus Gittinger <cg@exept.de> parents: 2219 diff changeset	6634	\|x y icon bAbsLevel\|
2214 8eefad87cf62 drawing delayed menu indicators... first try not yet finished ca parents: 2199 diff changeset	6635
2344 d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6636	self hasDelayedMenuIndicator ifTrue:[
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6637	icon := MenuPanel delayedMenuIndicator.
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6638	] ifFalse:[
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6639	self hasMenuIndicator ifTrue:[
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6640	icon := MenuPanel menuIndicator.
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6641	] ifFalse:[
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6642	^ self
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6643	]
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6644	].
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6645
2214 8eefad87cf62 drawing delayed menu indicators... first try not yet finished ca parents: 2199 diff changeset	6646	x := layout right - icon width.
2460 9afb27f470a7 checkin from browser Claus Gittinger <cg@exept.de> parents: 2433 diff changeset	6647	false "delayedMenuIndicatorVerticalPosition == #center" ifTrue:[
2220 5ea0ceb20354 delayed submenu indicator Claus Gittinger <cg@exept.de> parents: 2219 diff changeset	6648	y := layout height - icon height // 2 + layout top.
5ea0ceb20354 delayed submenu indicator Claus Gittinger <cg@exept.de> parents: 2219 diff changeset	6649	] ifFalse:[
5ea0ceb20354 delayed submenu indicator Claus Gittinger <cg@exept.de> parents: 2219 diff changeset	6650	y := layout bottom - icon height - 2.
5ea0ceb20354 delayed submenu indicator Claus Gittinger <cg@exept.de> parents: 2219 diff changeset	6651	].
5ea0ceb20354 delayed submenu indicator Claus Gittinger <cg@exept.de> parents: 2219 diff changeset	6652
5ea0ceb20354 delayed submenu indicator Claus Gittinger <cg@exept.de> parents: 2219 diff changeset	6653	bAbsLevel := 0.
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6654	menuItem isButton ifTrue:[
2220 5ea0ceb20354 delayed submenu indicator Claus Gittinger <cg@exept.de> parents: 2219 diff changeset	6655	self isSelected ifTrue:[
5ea0ceb20354 delayed submenu indicator Claus Gittinger <cg@exept.de> parents: 2219 diff changeset	6656	x := x + 1.
5ea0ceb20354 delayed submenu indicator Claus Gittinger <cg@exept.de> parents: 2219 diff changeset	6657	y := y + 1.
5ea0ceb20354 delayed submenu indicator Claus Gittinger <cg@exept.de> parents: 2219 diff changeset	6658	].
5ea0ceb20354 delayed submenu indicator Claus Gittinger <cg@exept.de> parents: 2219 diff changeset	6659	bAbsLevel := menuPanel maxAbsoluteButtonLevel.
5ea0ceb20354 delayed submenu indicator Claus Gittinger <cg@exept.de> parents: 2219 diff changeset	6660	x := x - bAbsLevel.
5ea0ceb20354 delayed submenu indicator Claus Gittinger <cg@exept.de> parents: 2219 diff changeset	6661	y := y - bAbsLevel.
5ea0ceb20354 delayed submenu indicator Claus Gittinger <cg@exept.de> parents: 2219 diff changeset	6662	].
5ea0ceb20354 delayed submenu indicator Claus Gittinger <cg@exept.de> parents: 2219 diff changeset	6663	x := x - 1 "- HorizontalInset".
5ea0ceb20354 delayed submenu indicator Claus Gittinger <cg@exept.de> parents: 2219 diff changeset	6664
5ea0ceb20354 delayed submenu indicator Claus Gittinger <cg@exept.de> parents: 2219 diff changeset	6665	(self isEnabled "and:[self delayedMenuIsEnabled]") ifFalse:[
5ea0ceb20354 delayed submenu indicator Claus Gittinger <cg@exept.de> parents: 2219 diff changeset	6666	icon := menuPanel lightenedImageOnDevice:icon
2214 8eefad87cf62 drawing delayed menu indicators... first try not yet finished ca parents: 2199 diff changeset	6667	].
8eefad87cf62 drawing delayed menu indicators... first try not yet finished ca parents: 2199 diff changeset	6668	icon displayOn:menuPanel x:x y:y.
2220 5ea0ceb20354 delayed submenu indicator Claus Gittinger <cg@exept.de> parents: 2219 diff changeset	6669
2234 29eba50f76eb drawColSep beautified; Claus Gittinger <cg@exept.de> parents: 2232 diff changeset	6670	(false "drawDelayedMenuIndicatorSeparator" and:[ menuPanel buttonPassiveLevel ~~ 0 ])
2761 611ecd331c14 more xp style Claus Gittinger <cg@exept.de> parents: 2755 diff changeset	6671	ifTrue:[
2220 5ea0ceb20354 delayed submenu indicator Claus Gittinger <cg@exept.de> parents: 2219 diff changeset	6672	menuPanel paint:menuPanel buttonShadowColor.
5ea0ceb20354 delayed submenu indicator Claus Gittinger <cg@exept.de> parents: 2219 diff changeset	6673	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	6674	menuPanel paint:menuPanel buttonLightColor.
5ea0ceb20354 delayed submenu indicator Claus Gittinger <cg@exept.de> parents: 2219 diff changeset	6675	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	6676	].
2214 8eefad87cf62 drawing delayed menu indicators... first try not yet finished ca parents: 2199 diff changeset	6677	!
8eefad87cf62 drawing delayed menu indicators... first try not yet finished ca parents: 2199 diff changeset	6678
2059 c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6679	drawRawLabel:aLabel atX:x yOffset:yOffset paint:fg
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6680	"draw a labeled entry; no button, no separator."
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6681
2614 86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	6682	\|mfont labelExtent
1727 a6365337be59 support setting font in MenuPanel and Editor ca parents: 1726 diff changeset	6683	y "{ Class:SmallInteger }"
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6684	y0 "{ Class:SmallInteger }"
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6685	x0 "{ Class:SmallInteger }"
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6686	\|
2059 c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6687
2373 8dbf026f0bd1 bug fix: specific font used by item ca parents: 2372 diff changeset	6688	mfont := menuPanel setFont:(self font).
2485 b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6689	"/ fontAscent := menuPanel font ascent.
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6690	menuPanel paint:fg.
2614 86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	6691	labelExtent := self displayLabelExtent.
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	6692
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	6693	y := layout top + (layout height - labelExtent y // 2) + yOffset.
2337 7f384db88273 centerItems attribute Claus Gittinger <cg@exept.de> parents: 2332 diff changeset	6694	"/ menuPanel centerItems ifTrue:[self halt].
2675 7a090a030736 bugfix when drawing Text with #backgroundColor (see ColorMenu) ca parents: 2659 diff changeset	6695	aLabel isArray ifFalse:[ \|printLabel\|
7a090a030736 bugfix when drawing Text with #backgroundColor (see ColorMenu) ca parents: 2659 diff changeset	6696	aLabel isText ifTrue:[
7a090a030736 bugfix when drawing Text with #backgroundColor (see ColorMenu) ca parents: 2659 diff changeset	6697	"/background of label already drawn
7a090a030736 bugfix when drawing Text with #backgroundColor (see ColorMenu) ca parents: 2659 diff changeset	6698	printLabel := aLabel withoutEmphasis:#backgroundColor.
7a090a030736 bugfix when drawing Text with #backgroundColor (see ColorMenu) ca parents: 2659 diff changeset	6699	] ifFalse:[
7a090a030736 bugfix when drawing Text with #backgroundColor (see ColorMenu) ca parents: 2659 diff changeset	6700	printLabel := aLabel.
7a090a030736 bugfix when drawing Text with #backgroundColor (see ColorMenu) ca parents: 2659 diff changeset	6701	].
7a090a030736 bugfix when drawing Text with #backgroundColor (see ColorMenu) ca parents: 2659 diff changeset	6702	y := y + (printLabel ascentOn:menuPanel).
7a090a030736 bugfix when drawing Text with #backgroundColor (see ColorMenu) ca parents: 2659 diff changeset	6703	printLabel displayOn:menuPanel x:x y:y.
1727 a6365337be59 support setting font in MenuPanel and Editor ca parents: 1726 diff changeset	6704	] ifTrue:[
2337 7f384db88273 centerItems attribute Claus Gittinger <cg@exept.de> parents: 2332 diff changeset	6705	aLabel do:[:el\|
7f384db88273 centerItems attribute Claus Gittinger <cg@exept.de> parents: 2332 diff changeset	6706	el notNil ifTrue:[
2485 b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6707	y0 := y + (el ascentOn:menuPanel).
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6708	"/ el isImageOrForm ifFalse:[
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6709	"/ y0 := y + fontAscent
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6710	"/ ] ifTrue:[
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6711	"/ y0 := y
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6712	"/ ].
2614 86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	6713	x0 := x + (labelExtent x - (el widthOn:menuPanel) // 2).
2337 7f384db88273 centerItems attribute Claus Gittinger <cg@exept.de> parents: 2332 diff changeset	6714	el displayOn:menuPanel x:x0 y:y0.
7f384db88273 centerItems attribute Claus Gittinger <cg@exept.de> parents: 2332 diff changeset	6715	y := y + 1 + (el heightOn:menuPanel)
7f384db88273 centerItems attribute Claus Gittinger <cg@exept.de> parents: 2332 diff changeset	6716	] ifFalse:[
2485 b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6717	y := y + (self spaceBetweenEmptyLines)
2337 7f384db88273 centerItems attribute Claus Gittinger <cg@exept.de> parents: 2332 diff changeset	6718	]
7f384db88273 centerItems attribute Claus Gittinger <cg@exept.de> parents: 2332 diff changeset	6719	].
1727 a6365337be59 support setting font in MenuPanel and Editor ca parents: 1726 diff changeset	6720	].
a6365337be59 support setting font in MenuPanel and Editor ca parents: 1726 diff changeset	6721	menuPanel setFont:mfont
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6722	!
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6723
1707 4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6724	drawSeparatingLines
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6725	"draw separating lines"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6726
2059 c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6727	\|myIndex lfSep rtSep items prevItem nextItem
c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6728	lightColor shadowColor
1707 4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6729	l "{ Class:SmallInteger }"
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6730	t "{ Class:SmallInteger }"
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6731	r "{ Class:SmallInteger }"
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6732	b "{ Class:SmallInteger }"
706 d716edbdbe47 show separators bug cleaned tz parents: 689 diff changeset	6733	\|
2059 c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6734
1707 4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6735	items := menuPanel items.
2059 c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6736	myIndex := items identityIndexOf:self.
c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6737
c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6738	prevItem := items at:(myIndex - 1) ifAbsent:nil.
c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6739	lfSep := prevItem notNil and:[prevItem isButton not].
c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6740
c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6741	nextItem := items at:(myIndex + 1) ifAbsent:nil.
c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6742	rtSep := nextItem notNil and:[nextItem isButton not].
c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6743
c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6744	(lfSep or:[rtSep]) ifFalse:[
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6745	^ self
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	6746	].
2059 c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6747
c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6748	lightColor := menuPanel lightColor.
c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6749	shadowColor := menuPanel shadowColor.
c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6750
c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6751	menuPanel paint:lightColor.
1707 4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6752
608 0d8d910768af use default font derived from style ca parents: 601 diff changeset	6753	l := layout left.
0d8d910768af use default font derived from style ca parents: 601 diff changeset	6754	t := layout top.
0d8d910768af use default font derived from style ca parents: 601 diff changeset	6755	r := layout right.
0d8d910768af use default font derived from style ca parents: 601 diff changeset	6756	b := layout bottom.
1707 4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6757
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6758	menuPanel verticalLayout ifTrue:[
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6759	lfSep ifTrue:[menuPanel displayLineFromX:l y:t-1 toX:r y:t-1].
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6760	rtSep ifTrue:[menuPanel displayLineFromX:l y:b-1 toX:r y:b-1].
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6761
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6762	menuPanel paint:shadowColor.
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6763	lfSep ifTrue:[menuPanel displayLineFromX:l y:t-2 toX:r y:t-2].
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6764	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	6765	] ifFalse:[
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6766	lfSep ifTrue:[menuPanel displayLineFromX:l-1 y:t toX:l-1 y:b].
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6767	rtSep ifTrue:[menuPanel displayLineFromX:r-1 y:t toX:r-1 y:b].
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6768
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6769	menuPanel paint:shadowColor.
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6770	lfSep ifTrue:[menuPanel displayLineFromX:l-2 y:t toX:l-2 y:b].
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6771	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	6772	]
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6773	!
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6774
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6775	drawSeparator
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6776	"draw as separator"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6777
2059 c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6778	\|type lightColor shadowColor isDouble
c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6779	left top
1707 4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6780	x0 "{ Class:SmallInteger }"
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6781	x1 "{ Class:SmallInteger }"
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6782	y0 "{ Class:SmallInteger }"
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6783	y1 "{ Class:SmallInteger }"
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6784	\|
2059 c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6785
1707 4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6786	type := self separatorType.
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6787	(type isNil or:[type == #blankLine]) ifTrue:[
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6788	^ self
1707 4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6789	].
2059 c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6790
c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6791	isDouble := type == #doubleLine.
c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6792
1707 4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6793	lightColor := menuPanel lightColor.
2059 c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6794	shadowColor := menuPanel shadowColor.
c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6795	menuPanel paint:shadowColor.
c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6796
c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6797	left := layout left.
c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6798	top := layout top.
1707 4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6799
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6800	menuPanel verticalLayout ifTrue:[
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6801	x0 := left + HorizontalInset.
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6802	x1 := layout right - HorizontalInset.
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6803	y0 := top - 1 + (layout height // 2).
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6804	isDouble ifTrue:[y0 := y0 - 2].
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6805
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6806	menuPanel displayLineFromX:x0 y:y0 toX:x1 y:y0.
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6807	isDouble ifTrue:[menuPanel displayLineFromX:x0 y:y0+4 toX:x1 y:y0+4].
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6808
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6809	menuPanel paint:lightColor.
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6810	menuPanel displayLineFromX:x0 y:y0+1 toX:x1 y:y0+1.
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6811	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	6812
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6813	] ifFalse:[
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6814	y1 := layout bottom.
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6815	x0 := left - 1 + (layout width // 2).
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6816	y0 := top.
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6817	isDouble ifTrue:[x0 := x0 - 2].
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6818
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6819	menuPanel displayLineFromX:x0 y:y0 toX:x0 y:y1.
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6820	isDouble ifTrue:[menuPanel displayLineFromX:x0+4 y:y0 toX:x0+4 y:y1].
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6821
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6822	menuPanel paint:lightColor.
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6823	menuPanel displayLineFromX:x0+1 y:y0 toX:x0+1 y:y1.
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6824	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	6825	]
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6826	!
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6827
2768 9c79a348a443 * empty log message * Claus Gittinger <cg@exept.de> parents: 2761 diff changeset	6828	indicatorForm
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6829	"returns indication form or nil"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6830
2768 9c79a348a443 * empty log message * Claus Gittinger <cg@exept.de> parents: 2761 diff changeset	6831	\|val\|
9c79a348a443 * empty log message * Claus Gittinger <cg@exept.de> parents: 2761 diff changeset	6832
9c79a348a443 * empty log message * Claus Gittinger <cg@exept.de> parents: 2761 diff changeset	6833	indication isNil ifTrue:[^ nil].
9c79a348a443 * empty log message * Claus Gittinger <cg@exept.de> parents: 2761 diff changeset	6834
9c79a348a443 * empty log message * Claus Gittinger <cg@exept.de> parents: 2761 diff changeset	6835	val := self indicationValue.
9c79a348a443 * empty log message * Claus Gittinger <cg@exept.de> parents: 2761 diff changeset	6836	self enabled ifFalse:[
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6837	^ val == true
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6838	ifTrue:[menuPanel iconIndicationDisabledOn]
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6839	ifFalse:[menuPanel iconIndicationDisabledOff]
2768 9c79a348a443 * empty log message * Claus Gittinger <cg@exept.de> parents: 2761 diff changeset	6840	].
9c79a348a443 * empty log message * Claus Gittinger <cg@exept.de> parents: 2761 diff changeset	6841	^ val == true
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6842	ifTrue:[menuPanel iconIndicationOn]
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6843	ifFalse:[menuPanel iconIndicationOff]
2768 9c79a348a443 * empty log message * Claus Gittinger <cg@exept.de> parents: 2761 diff changeset	6844	!
9c79a348a443 * empty log message * Claus Gittinger <cg@exept.de> parents: 2761 diff changeset	6845
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6846	invalidate
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6847
2362 7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6848	layout isNil ifTrue:[^ self].
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6849
2433 49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6850	(displayLabel notNil and:[menuPanel notNil]) ifTrue:[
2362 7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6851	menuPanel invalidateItem:self repairNow:false
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6852	]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	6853	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	6854
dce33f8bb806 intitial checkin ca parents: diff changeset	6855	!MenuPanel::Item methodsFor:'initialization'!
dce33f8bb806 intitial checkin ca parents: diff changeset	6856
dce33f8bb806 intitial checkin ca parents: diff changeset	6857	destroy
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6858	"destroy submenus, remove dependencies"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6859
616 a6157b083830 support of different styles ca parents: 608 diff changeset	6860	self submenu:nil.
2681 2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	6861	self removeDependencies.
616 a6157b083830 support of different styles ca parents: 608 diff changeset	6862
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	6863	menuPanel := nil.
616 a6157b083830 support of different styles ca parents: 608 diff changeset	6864	!
a6157b083830 support of different styles ca parents: 608 diff changeset	6865
794 5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	6866	in:aPanel
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6867	"create item in a menuPanel"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6868
794 5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	6869	menuPanel := aPanel.
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6870
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6871	menuItem isNil ifTrue:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6872	self halt.
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6873	menuItem := MenuItem new
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6874	].
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6875	!
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6876
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6877	initialize
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6878	menuItem := MenuItem new.
1811 df4f5e5b3396 restart under windows Claus Gittinger <cg@exept.de> parents: 1810 diff changeset	6879	!
df4f5e5b3396 restart under windows Claus Gittinger <cg@exept.de> parents: 1810 diff changeset	6880
df4f5e5b3396 restart under windows Claus Gittinger <cg@exept.de> parents: 1810 diff changeset	6881	reinitStyle
df4f5e5b3396 restart under windows Claus Gittinger <cg@exept.de> parents: 1810 diff changeset	6882
df4f5e5b3396 restart under windows Claus Gittinger <cg@exept.de> parents: 1810 diff changeset	6883	subMenu notNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	6884	subMenu reinitStyle
1811 df4f5e5b3396 restart under windows Claus Gittinger <cg@exept.de> parents: 1810 diff changeset	6885	].
df4f5e5b3396 restart under windows Claus Gittinger <cg@exept.de> parents: 1810 diff changeset	6886
df4f5e5b3396 restart under windows Claus Gittinger <cg@exept.de> parents: 1810 diff changeset	6887	"Created: / 17.8.2000 / 17:57:07 / cg"
df4f5e5b3396 restart under windows Claus Gittinger <cg@exept.de> parents: 1810 diff changeset	6888	"Modified: / 17.8.2000 / 18:00:08 / cg"
794 5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	6889	! !
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	6890
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	6891	!MenuPanel::Item methodsFor:'label basics'!
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	6892
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	6893	disabledRawLabel
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6894	"returns the label used if the item is disabled"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6895
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6896	\|block form image\|
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6897
2433 49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6898	disabledDisplayLabel notNil ifTrue:[^ disabledDisplayLabel].
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6899
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6900	disabledDisplayLabel := displayLabel ? ''.
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6901
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6902	disabledDisplayLabel isString ifTrue:[
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6903	^ disabledDisplayLabel
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6904	].
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6905
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6906	block := [:el\| \|rslt\|
2433 49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6907	(rslt := el) notNil ifTrue:[
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6908	el isImageOrForm ifTrue:[
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6909	el colorMap notNil ifTrue:[
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6910	rslt := menuPanel lightenedImageOnDevice:el
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6911	]
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6912	] ifFalse:[
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6913	(displayLabel isKindOf:LabelAndIcon) ifTrue:[
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6914	((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	6915	form := menuPanel lightenedImageOnDevice:form
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6916	].
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6917	((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	6918	image := menuPanel lightenedImageOnDevice:image
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6919	].
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6920	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	6921	]
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6922	]
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6923	].
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6924	rslt
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6925	].
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6926
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6927	displayLabel isArray ifTrue:[
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6928	disabledDisplayLabel := Array new:(displayLabel size).
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6929
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6930	displayLabel keysAndValuesDo:[:anIndex :aLabel\|
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6931	disabledDisplayLabel at:anIndex put:(block value:aLabel)
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6932	]
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6933	] ifFalse:[
2433 49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6934	disabledDisplayLabel := block value:displayLabel
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6935	].
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6936	^ disabledDisplayLabel
794 5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	6937	!
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	6938
1829 bd8b95c5bb89 migration fixes Claus Gittinger <cg@exept.de> parents: 1825 diff changeset	6939	fetchDeviceResources
2373 8dbf026f0bd1 bug fix: specific font used by item ca parents: 2372 diff changeset	6940
2433 49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6941	disabledDisplayLabel := nil.
1829 bd8b95c5bb89 migration fixes Claus Gittinger <cg@exept.de> parents: 1825 diff changeset	6942	self fetchImages.
bd8b95c5bb89 migration fixes Claus Gittinger <cg@exept.de> parents: 1825 diff changeset	6943	!
bd8b95c5bb89 migration fixes Claus Gittinger <cg@exept.de> parents: 1825 diff changeset	6944
616 a6157b083830 support of different styles ca parents: 608 diff changeset	6945	fetchImages
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6946	"fetch my icon images"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6947
2118 89d02ebc5b65 optimize #labels: and #fetchImages in Item. discard block ca parents: 2113 diff changeset	6948	\|icon\|
89d02ebc5b65 optimize #labels: and #fetchImages in Item. discard block ca parents: 2113 diff changeset	6949
2433 49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6950	(displayLabel isNil or:[displayLabel isString]) ifTrue:[
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6951	^ self
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6952	].
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6953	displayLabel isImageOrForm ifTrue:[
2488 74c81c1e30d7 imageOnDevice -> imageOnMyDevice Claus Gittinger <cg@exept.de> parents: 2485 diff changeset	6954	displayLabel := menuPanel imageOnMyDevice:displayLabel.
2433 49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6955	^ self.
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6956	].
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6957
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6958	(displayLabel isKindOf:LabelAndIcon) ifTrue:[
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6959	(icon := displayLabel image) notNil ifTrue:[
2488 74c81c1e30d7 imageOnDevice -> imageOnMyDevice Claus Gittinger <cg@exept.de> parents: 2485 diff changeset	6960	displayLabel image:(menuPanel imageOnMyDevice:icon)
2433 49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6961	].
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6962	(icon := displayLabel icon) notNil ifTrue:[
2488 74c81c1e30d7 imageOnDevice -> imageOnMyDevice Claus Gittinger <cg@exept.de> parents: 2485 diff changeset	6963	displayLabel icon:(menuPanel imageOnMyDevice:icon)
2433 49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6964	].
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6965	^ self
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6966	].
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6967
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6968	displayLabel isArray ifFalse:[^ self].
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6969
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6970	displayLabel keysAndValuesDo:[:i :el\|
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6971	(el notNil and:[el isString not]) ifTrue:[
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6972	el isImageOrForm ifTrue:[
2488 74c81c1e30d7 imageOnDevice -> imageOnMyDevice Claus Gittinger <cg@exept.de> parents: 2485 diff changeset	6973	displayLabel at:i put:(menuPanel imageOnMyDevice:el).
2433 49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6974	] ifFalse:[
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6975	el class == LabelAndIcon ifTrue:[
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6976	(icon := el image) notNil ifTrue:[
2488 74c81c1e30d7 imageOnDevice -> imageOnMyDevice Claus Gittinger <cg@exept.de> parents: 2485 diff changeset	6977	el image:(menuPanel imageOnMyDevice:icon)
2433 49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6978	].
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6979	(icon := el icon) notNil ifTrue:[
2488 74c81c1e30d7 imageOnDevice -> imageOnMyDevice Claus Gittinger <cg@exept.de> parents: 2485 diff changeset	6980	el icon:(menuPanel imageOnMyDevice:icon)
2433 49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6981	]
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6982	]
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6983	]
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6984	]
1078 3adf74275ebd support choice for buttons ca parents: 1076 diff changeset	6985	].
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6986	!
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6987
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6988	updateAccessCharacterFor:aLabel
2550 1dc3745fc313 do not show the menus label again as fly by help Claus Gittinger <cg@exept.de> parents: 2545 diff changeset	6989	"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	6990
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6991	\|s i rest label pos\|
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6992
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6993	(accessCharacter notNil or:[aLabel isNil]) ifTrue:[
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6994	^ aLabel
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6995	].
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6996
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6997	aLabel isString ifFalse:[
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6998	aLabel class == LabelAndIcon ifTrue:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6999	aLabel string:(self updateAccessCharacterFor:(aLabel string))
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7000	].
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7001	^ aLabel
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	7002	].
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	7003
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	7004	s := aLabel size.
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	7005	i := 1.
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	7006
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	7007	label := aLabel.
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7008	pos := menuItem accessCharacterPosition.
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	7009
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	7010	[((i := label indexOf:$& startingAt:i) ~~ 0 and:[i < s])] whileTrue:[
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7011	rest := label copyFrom:(i+1).
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7012
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7013	i == 1 ifTrue:[label := rest]
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7014	ifFalse:[label := (label copyFrom:1 to:(i-1)), rest].
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7015
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7016	(label at:i) == $& ifTrue:[i := i + 1] ifFalse:[pos := i].
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7017	s := s - 1.
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	7018	].
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	7019
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	7020	(pos isNil or:[(accessCharacter := label at:pos ifAbsent:nil) isNil]) ifTrue:[
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7021	^ label
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	7022	].
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	7023
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	7024	label isText ifFalse:[
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7025	label := Text string:label
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	7026	].
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	7027	label emphasisAt:pos add:#underline.
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7028	^ label
388 dce33f8bb806 intitial checkin ca parents: diff changeset	7029	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	7030
1573 fd124ee2bce5 shortcutKeys; arrange layout if selection changed ca parents: 1572 diff changeset	7031	!MenuPanel::Item methodsFor:'printing & storing'!
fd124ee2bce5 shortcutKeys; arrange layout if selection changed ca parents: 1572 diff changeset	7032
fd124ee2bce5 shortcutKeys; arrange layout if selection changed ca parents: 1572 diff changeset	7033	displayString
1690 38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	7034	^ self class name, '[', label printString, ']'
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	7035
1573 fd124ee2bce5 shortcutKeys; arrange layout if selection changed ca parents: 1572 diff changeset	7036	! !
fd124ee2bce5 shortcutKeys; arrange layout if selection changed ca parents: 1572 diff changeset	7037
388 dce33f8bb806 intitial checkin ca parents: diff changeset	7038	!MenuPanel::Item methodsFor:'private'!
dce33f8bb806 intitial checkin ca parents: diff changeset	7039
650 29dcdf6a5994 button and label translation support added tz parents: 638 diff changeset	7040	activeBackgroundColor
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7041	"returns the active background color derived from menuPanel"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7042
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7043	menuItem isButton ifTrue:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7044	^ menuPanel buttonActiveBackgroundColor
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7045	].
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7046	^ menuPanel activeBackgroundColor
650 29dcdf6a5994 button and label translation support added tz parents: 638 diff changeset	7047	!
29dcdf6a5994 button and label translation support added tz parents: 638 diff changeset	7048
29dcdf6a5994 button and label translation support added tz parents: 638 diff changeset	7049	activeForegroundColor
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7050	"returns the active foreground color derived from menuPanel"
650 29dcdf6a5994 button and label translation support added tz parents: 638 diff changeset	7051
29dcdf6a5994 button and label translation support added tz parents: 638 diff changeset	7052	^menuPanel activeForegroundColor
29dcdf6a5994 button and label translation support added tz parents: 638 diff changeset	7053	!
29dcdf6a5994 button and label translation support added tz parents: 638 diff changeset	7054
727 3ba54333342a button style from style sheet tz parents: 723 diff changeset	7055	backgroundColor
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7056	"returns the background color derived from menuPanel"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7057
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7058	menuItem isButton ifTrue:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7059	^ menuPanel buttonPassiveBackgroundColor
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7060	].
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7061	^ menuPanel backgroundColor
727 3ba54333342a button style from style sheet tz parents: 723 diff changeset	7062	!
3ba54333342a button style from style sheet tz parents: 723 diff changeset	7063
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	7064	backgroundColorFromLabel
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7065	"returns the background color derived from label or nil"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7066
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	7067	\|run\|
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	7068
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	7069	label isText ifFalse:[^ nil ].
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	7070	run := label emphasis.
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	7071	run size == 0 ifTrue:[^ nil ].
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	7072
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	7073	run := run first.
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	7074
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	7075	run size == 0 ifTrue:[
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7076	(run value isColor and:[run key == #backgroundColor]) ifTrue:[
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7077	^ run value
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7078	]
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	7079	] ifFalse:[
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7080	run do:[:r\|
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7081	(r value isColor and:[r key == #backgroundColor]) ifTrue:[
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7082	^ r value
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7083	]
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7084	]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	7085	].
dce33f8bb806 intitial checkin ca parents: diff changeset	7086	^ nil
dce33f8bb806 intitial checkin ca parents: diff changeset	7087	!
dce33f8bb806 intitial checkin ca parents: diff changeset	7088
1081 fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	7089	buttonEnteredBackgroundColor
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	7090	"returns the background color to use when thhe mouse has entered
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7091	derived from menuPanel"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7092
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7093	menuItem isButton ifTrue:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7094	^ menuPanel buttonEnteredBackgroundColor
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7095	].
1081 fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	7096	^ menuPanel backgroundColor
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	7097	!
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	7098
663 b418df6b72d8 retrive submenu: ca parents: 661 diff changeset	7099	findSubMenuIn:aRecv
1051 a448c854fcbb catch messageNotUnderstood for #aspectFor: Claus Gittinger <cg@exept.de> parents: 1048 diff changeset	7100	"ask the receiver for a submenu aspect, sending it
a448c854fcbb catch messageNotUnderstood for #aspectFor: Claus Gittinger <cg@exept.de> parents: 1048 diff changeset	7101	#aspectFor: first; then trying the selector itself.
a448c854fcbb catch messageNotUnderstood for #aspectFor: Claus Gittinger <cg@exept.de> parents: 1048 diff changeset	7102	Ignore the error if that message is not understood
a448c854fcbb catch messageNotUnderstood for #aspectFor: Claus Gittinger <cg@exept.de> parents: 1048 diff changeset	7103	(but not other message-not-understoods)"
a448c854fcbb catch messageNotUnderstood for #aspectFor: Claus Gittinger <cg@exept.de> parents: 1048 diff changeset	7104
2069 7891c7d3af69 use new #perform:withOptionalArgument: Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	7105	\|subm sel numArgs\|
1795 6afd0e768267 submenuChannel selector: allow upto two arguments, the arg and the menu ca parents: 1793 diff changeset	7106
6afd0e768267 submenuChannel selector: allow upto two arguments, the arg and the menu ca parents: 1793 diff changeset	7107	aRecv isNil ifTrue:[^ nil].
6afd0e768267 submenuChannel selector: allow upto two arguments, the arg and the menu ca parents: 1793 diff changeset	7108
2364 c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7109	sel := menuItem submenuChannel.
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7110	sel isString ifFalse:[^ nil].
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7111	sel := sel asSymbol.
2069 7891c7d3af69 use new #perform:withOptionalArgument: Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	7112	numArgs := sel numArgs.
7891c7d3af69 use new #perform:withOptionalArgument: Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	7113
7891c7d3af69 use new #perform:withOptionalArgument: Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	7114	numArgs == 0 ifTrue:[
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7115	MessageNotUnderstood handle:[:ex \|
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7116	\|selector\|
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7117
2737 b0daaddb418b Use MessageNotUnderstood>>#selector Stefan Vogel <sv@exept.de> parents: 2736 diff changeset	7118	((selector := ex selector) == sel
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7119	or:[selector == #aspectFor:]) ifFalse:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7120	ex reject
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7121	].
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7122	] do:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7123	subm := aRecv aspectFor:sel.
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7124	].
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7125	subm notNil ifTrue:[^ subm].
1795 6afd0e768267 submenuChannel selector: allow upto two arguments, the arg and the menu ca parents: 1793 diff changeset	7126	].
6afd0e768267 submenuChannel selector: allow upto two arguments, the arg and the menu ca parents: 1793 diff changeset	7127
2043 133a9674bcdf * empty log message * Claus Gittinger <cg@exept.de> parents: 2042 diff changeset	7128	(Array with:(aRecv) with:(aRecv class))
133a9674bcdf * empty log message * Claus Gittinger <cg@exept.de> parents: 2042 diff changeset	7129	do:[:aPossibleReceiver \|
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7130	MessageNotUnderstood handle:[:ex\|
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7131	ex message selector == sel ifFalse:[ ex reject ]
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7132	] do:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7133	numArgs == 0 ifTrue:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7134	subm := aPossibleReceiver perform:sel
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7135	] ifFalse:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7136	numArgs == 1 ifTrue:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7137	subm := aPossibleReceiver perform:sel with:(menuItem argument ? menuPanel)
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7138	] ifFalse:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7139	subm := aPossibleReceiver perform:sel with:(menuItem argument) with:menuPanel
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7140	]
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7141	]
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7142	].
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7143	subm notNil ifTrue:[^ subm].
1795 6afd0e768267 submenuChannel selector: allow upto two arguments, the arg and the menu ca parents: 1793 diff changeset	7144	].
6afd0e768267 submenuChannel selector: allow upto two arguments, the arg and the menu ca parents: 1793 diff changeset	7145
663 b418df6b72d8 retrive submenu: ca parents: 661 diff changeset	7146	^ subm
2043 133a9674bcdf * empty log message * Claus Gittinger <cg@exept.de> parents: 2042 diff changeset	7147
133a9674bcdf * empty log message * Claus Gittinger <cg@exept.de> parents: 2042 diff changeset	7148	"Modified: / 30.10.2001 / 13:28:25 / cg"
663 b418df6b72d8 retrive submenu: ca parents: 661 diff changeset	7149	!
b418df6b72d8 retrive submenu: ca parents: 661 diff changeset	7150
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	7151	indicationValue
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7152	"returns indication value or nil in case of no indication"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7153
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	7154	\|numArgs sel recv\|
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	7155
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	7156	indication isNil ifTrue:[^ nil]. "no indication specified"
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	7157
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	7158	indication isSymbol ifFalse:[
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7159	^ indication value == true "block or model"
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	7160	].
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	7161
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	7162	(numArgs := indication numArgs) == 2 ifTrue:[
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7163	recv := menuPanel receiver.
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7164
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7165	(recv isValueModel) ifFalse:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7166	(recv notNil or:[(recv := menuPanel application) notNil]) ifTrue:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7167	sel := indication copyFrom:1 to:(indication indexOf:$:).
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7168	sel := sel asSymbol.
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7169
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7170	MessageNotUnderstood handle:[:ex\|
2737 b0daaddb418b Use MessageNotUnderstood>>#selector Stefan Vogel <sv@exept.de> parents: 2736 diff changeset	7171	ex selector == sel ifFalse:[
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7172	ex reject
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7173	].
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7174	] do:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7175	sel := recv perform:sel with:(menuItem argument)
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7176	]
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7177	].
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7178	].
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7179	^ sel value == true
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	7180	].
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	7181
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	7182	numArgs ~~ 0 ifTrue:[
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7183	sel := (indication copyWithoutLast:1) asSymbol
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	7184	] ifFalse:[
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7185	sel := indication
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	7186	].
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	7187	sel := self aspectAt:sel.
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	7188
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	7189	sel isValueModel ifTrue:[
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7190	indication := sel.
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7191	indication addDependent:self.
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	7192	].
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	7193	^ sel value == true
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	7194	!
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	7195
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	7196	indicationValue:aValue
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7197	"set the indication value"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7198
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	7199	\|numArgs recv\|
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	7200
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	7201	indication isNil ifTrue:[^ self]. "no indication specified"
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	7202
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	7203	indication isSymbol ifFalse:[
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7204	indication perform:#value: with:aValue ifNotUnderstood:nil. "block or model"
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7205	^ self
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	7206	].
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	7207
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	7208	(numArgs := indication numArgs) == 0 ifTrue:[ "no arguments to selector; cannot set"
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7209	^ self
1218 6ce43fcb2603 code cleanup Claus Gittinger <cg@exept.de> parents: 1217 diff changeset	7210	].
6ce43fcb2603 code cleanup Claus Gittinger <cg@exept.de> parents: 1217 diff changeset	7211
524 d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	7212	recv := menuPanel receiver.
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	7213	recv isValueModel ifTrue:[^ self].
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	7214
1218 6ce43fcb2603 code cleanup Claus Gittinger <cg@exept.de> parents: 1217 diff changeset	7215	recv isNil ifTrue:[
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7216	recv := menuPanel application.
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7217	recv isNil ifTrue:[^ self].
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	7218	].
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	7219
2069 7891c7d3af69 use new #perform:withOptionalArgument: Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	7220	MessageNotUnderstood handle:[:ex\|
2737 b0daaddb418b Use MessageNotUnderstood>>#selector Stefan Vogel <sv@exept.de> parents: 2736 diff changeset	7221	(ex selector ~~ indication) ifTrue:[
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7222	ex reject
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7223	].
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7224	self ifNotInUIBuilderInfoPrintCR:
2771 3328da9f3df8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2770 diff changeset	7225	('MenuPanel::Item [info]: application (%1) does not respond to: %2'
3328da9f3df8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2770 diff changeset	7226	bindWith:recv classNameWithArticle with:indication).
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	7227	] do:[
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7228	numArgs == 1 ifTrue:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7229	recv perform:indication with:aValue
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7230	] ifFalse:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7231	recv perform:indication with:(menuItem argument ? self) with:aValue
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7232	]
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	7233	].
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	7234	!
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	7235
1081 fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	7236	isEntered
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7237	"returns true if the mouse pointer is over the item"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7238
1081 fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	7239	^ menuPanel enteredItem == self
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	7240
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	7241	"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	7242	!
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	7243
464 a788fdce92e2 add submenuChannel ca parents: 461 diff changeset	7244	separatorType
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7245	"returns type of separator line or nil"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7246
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	7247	\|c lbl\|
388 dce33f8bb806 intitial checkin ca parents: diff changeset	7248
2433 49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	7249	self isSeparator ifFalse:[
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	7250	^ nil
388 dce33f8bb806 intitial checkin ca parents: diff changeset	7251	].
dce33f8bb806 intitial checkin ca parents: diff changeset	7252
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	7253	(lbl := label value) isNil ifTrue:[
2433 49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	7254	^ #singleLine
388 dce33f8bb806 intitial checkin ca parents: diff changeset	7255	].
dce33f8bb806 intitial checkin ca parents: diff changeset	7256
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	7257	lbl size == 1 ifTrue:[
2433 49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	7258	c := lbl first.
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	7259	c == $- ifTrue:[^ #singleLine].
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	7260	c == $= ifTrue:[^ #doubleLine].
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	7261	].
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	7262	^ #blankLine
1130 fb79ef4aeec8 style changes Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	7263	!
fb79ef4aeec8 style changes Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	7264
fb79ef4aeec8 style changes Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	7265	setupSubmenu
2364 c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7266	\|appl master recv submenuHolder submenu submenuEncoding channel\|
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7267
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7268	channel := menuItem submenuChannel value.
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7269	channel isNil ifTrue:[ ^ subMenu ].
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7270
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7271	subMenu notNil ifTrue:[
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7272	menuItem keepLinkedMenu ifTrue:[ ^ subMenu ].
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7273	].
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7274
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7275	channel isSymbol ifFalse:[
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7276	submenuHolder := channel
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7277	] ifTrue:[
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7278	appl := menuPanel application.
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7279	appl isNil ifTrue:[
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7280	appl := menuPanel receiver.
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7281	appl notNil ifTrue:[
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7282	(submenuHolder := self findSubMenuIn:appl) isNil ifTrue:[
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7283	[submenuHolder isNil
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7284	and:[(master := appl perform:#masterApplication ifNotUnderstood:nil) notNil
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7285	and:[master ~~ appl]]] whileTrue:[
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7286	appl := master.
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7287	submenuHolder := self findSubMenuIn:appl.
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7288	].
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7289	]
2232 5784671fb497 when searching for a sumbenus application, do NOT Claus Gittinger <cg@exept.de> parents: 2231 diff changeset	7290	].
2364 c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7291	].
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7292	submenuHolder isNil ifTrue:[
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7293	(submenuHolder := self findSubMenuIn:appl) isNil ifTrue:[
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7294	(recv := menuPanel receiver) ~~ appl ifTrue:[
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7295	appl := recv.
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7296	submenuHolder := self findSubMenuIn:appl
2232 5784671fb497 when searching for a sumbenus application, do NOT Claus Gittinger <cg@exept.de> parents: 2231 diff changeset	7297	]
5784671fb497 when searching for a sumbenus application, do NOT Claus Gittinger <cg@exept.de> parents: 2231 diff changeset	7298	]
2364 c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7299	]
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7300	].
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7301
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7302	(submenu := submenuHolder value) isArray ifTrue:[
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7303	submenuEncoding := submenu.
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7304	submenu := Menu new fromLiteralArrayEncoding:submenuEncoding.
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7305	"/ cg: linked menus also may contain translations ...
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7306	submenu notNil ifTrue:[
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7307	appl notNil ifTrue:[
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7308	submenu findGuiResourcesIn:appl.
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7309	]
2232 5784671fb497 when searching for a sumbenus application, do NOT Claus Gittinger <cg@exept.de> parents: 2231 diff changeset	7310	].
2364 c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7311	].
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7312	"/ appl notNil ifTrue:[submenu application:appl].
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7313	self submenu:submenu.
1130 fb79ef4aeec8 style changes Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	7314	^ subMenu
fb79ef4aeec8 style changes Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	7315
fb79ef4aeec8 style changes Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	7316	"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	7317	!
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	7318
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	7319	spaceBetweenEmptyLines
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	7320	^ 3
388 dce33f8bb806 intitial checkin ca parents: diff changeset	7321	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	7322
dce33f8bb806 intitial checkin ca parents: diff changeset	7323	!MenuPanel::Item methodsFor:'queries'!
dce33f8bb806 intitial checkin ca parents: diff changeset	7324
1217 c6a4c536aa8c care for items which change visibility via Claus Gittinger <cg@exept.de> parents: 1212 diff changeset	7325	canChangeVisibility
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	7326	"return true if I am not always visible; can only be changed by a selector
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7327	otherwise there is a change notification raised if the model changed"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7328
3122 81ab6b6b4ff2 * empty log message * fm parents: 3112 diff changeset	7329	^ isVisible isSymbol or:[isVisible isValueModel]
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	7330	"/ ^ isVisible notNil and:[isVisible ~~ true]
3112 01341303806d * empty log message * Claus Gittinger <cg@exept.de> parents: 3092 diff changeset	7331
01341303806d * empty log message * Claus Gittinger <cg@exept.de> parents: 3092 diff changeset	7332	"Modified: / 11-10-2006 / 21:43:31 / cg"
3122 81ab6b6b4ff2 * empty log message * fm parents: 3112 diff changeset	7333	"Modified: / 12-10-2006 / 09:30:48 / User"
1217 c6a4c536aa8c care for items which change visibility via Claus Gittinger <cg@exept.de> parents: 1212 diff changeset	7334	!
c6a4c536aa8c care for items which change visibility via Claus Gittinger <cg@exept.de> parents: 1212 diff changeset	7335
388 dce33f8bb806 intitial checkin ca parents: diff changeset	7336	canSelect
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	7337	"returns true if item is selectable; no separator, visible and enabled.
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7338	in case of a choice (RadioButton) i have to check for the choiceValue"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7339
2362 7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	7340	self isSeparator ifTrue:[^ false].
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	7341
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	7342	(self isVisible and:[self enabled]) ifTrue:[
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7343	(choice isNil or:[choice value ~= menuItem choiceValue]) ifTrue:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7344	^ true
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7345	].
1078 3adf74275ebd support choice for buttons ca parents: 1076 diff changeset	7346	].
3adf74275ebd support choice for buttons ca parents: 1076 diff changeset	7347	^ false
388 dce33f8bb806 intitial checkin ca parents: diff changeset	7348	!
dce33f8bb806 intitial checkin ca parents: diff changeset	7349
2046 012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	7350	containsPoint:aPoint
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7351	"returns true if aPoint is contained in my layout"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7352
2046 012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	7353	(self isVisible and:[layout notNil]) ifTrue:[
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7354	^ layout containsPoint:aPoint
2046 012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	7355	].
012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	7356	^ false
012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	7357
012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	7358	"Created: / 13.11.2001 / 13:55:31 / cg"
012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	7359	!
012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	7360
388 dce33f8bb806 intitial checkin ca parents: diff changeset	7361	containsPointX:x y:y
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7362	"returns true if point is contained in my layout"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7363
712 4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	7364	(self isVisible and:[layout notNil]) ifTrue:[
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7365	^ layout containsPointX:x y:y
505 562d5661a855 check for valid layout ca parents: 502 diff changeset	7366	].
562d5661a855 check for valid layout ca parents: 502 diff changeset	7367	^ false
388 dce33f8bb806 intitial checkin ca parents: diff changeset	7368	!
dce33f8bb806 intitial checkin ca parents: diff changeset	7369
2199 61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	7370	hasDelayedMenu
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7371	"returns true if a delayed menu exists"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7372
2360 aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	7373	self hasSubmenu ifFalse:[
2326 a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	7374	^ false
2199 61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	7375	].
2360 aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	7376	menuItem itemValue notNil ifTrue:[ ^ true ].
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	7377
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	7378	(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	7379	^ false
2199 61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	7380	].
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	7381	^ true
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	7382	!
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	7383
2214 8eefad87cf62 drawing delayed menu indicators... first try not yet finished ca parents: 2199 diff changeset	7384	hasDelayedMenuIndicator
8eefad87cf62 drawing delayed menu indicators... first try not yet finished ca parents: 2199 diff changeset	7385	"returns true if the item has a delayed menu
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7386	and is in the topMenuPanel (because submenuIndicator is already drawn in popUpViews)"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7387
2214 8eefad87cf62 drawing delayed menu indicators... first try not yet finished ca parents: 2199 diff changeset	7388	menuPanel isPopUpView ifFalse:[
2344 d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	7389	^ self hasDelayedMenu
2214 8eefad87cf62 drawing delayed menu indicators... first try not yet finished ca parents: 2199 diff changeset	7390	].
8eefad87cf62 drawing delayed menu indicators... first try not yet finished ca parents: 2199 diff changeset	7391	^ false
8eefad87cf62 drawing delayed menu indicators... first try not yet finished ca parents: 2199 diff changeset	7392	!
8eefad87cf62 drawing delayed menu indicators... first try not yet finished ca parents: 2199 diff changeset	7393
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	7394	hasIndication
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7395	"returns true if on/off indication exists"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7396
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	7397	^ indication notNil
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	7398	!
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	7399
2344 d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	7400	hasMenuIndicator
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	7401	"returns true if the item has a delayed menu
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7402	and is in the topMenuPanel (because submenuIndicator is already drawn in popUpViews)"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7403
2344 d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	7404	menuPanel isPopUpView ifFalse:[
2360 aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	7405	^ self hasSubmenu and:[menuItem isButton]
2344 d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	7406	].
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	7407	^ false
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	7408	!
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	7409
388 dce33f8bb806 intitial checkin ca parents: diff changeset	7410	hasSubmenu
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7411	"returns true if the item is configured as an subMenu entry"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7412
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7413	^ subMenu notNil or:[ menuItem submenuChannel notNil ]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	7414	!
dce33f8bb806 intitial checkin ca parents: diff changeset	7415
dce33f8bb806 intitial checkin ca parents: diff changeset	7416	isEnabled
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7417	"returns the enabled state"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7418
388 dce33f8bb806 intitial checkin ca parents: diff changeset	7419	^ self enabled
dce33f8bb806 intitial checkin ca parents: diff changeset	7420	!
dce33f8bb806 intitial checkin ca parents: diff changeset	7421
608 0d8d910768af use default font derived from style ca parents: 601 diff changeset	7422	isSeparator
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7423	"returns true if item is a separator"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7424
2433 49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	7425	^ displayLabel isNil
608 0d8d910768af use default font derived from style ca parents: 601 diff changeset	7426	!
0d8d910768af use default font derived from style ca parents: 601 diff changeset	7427
2159 1eac041aeb3d toggle button draw & behavior Claus Gittinger <cg@exept.de> parents: 2145 diff changeset	7428	isToggle
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7429	"returns true if on/off indication exists"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7430
2159 1eac041aeb3d toggle button draw & behavior Claus Gittinger <cg@exept.de> parents: 2145 diff changeset	7431	^ self hasIndication and:[ self isButton ]
1eac041aeb3d toggle button draw & behavior Claus Gittinger <cg@exept.de> parents: 2145 diff changeset	7432	!
1eac041aeb3d toggle button draw & behavior Claus Gittinger <cg@exept.de> parents: 2145 diff changeset	7433
712 4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	7434	isVisible
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7435	"returns the visibility state"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7436
712 4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	7437	\|state\|
4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	7438
4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	7439	isVisible isSymbol ifTrue:[
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7440	state := self aspectAt:isVisible.
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7441
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7442	state isValueModel ifTrue:[
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7443	isVisible := state.
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7444	isVisible addDependent:self.
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7445	state := isVisible.
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7446	]
712 4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	7447	] ifFalse:[
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7448	state := isVisible
1164 e6e9633abf48 kludge fix: invoke mustRearrange to care for block-visibility attributes Claus Gittinger <cg@exept.de> parents: 1156 diff changeset	7449	].
e6e9633abf48 kludge fix: invoke mustRearrange to care for block-visibility attributes Claus Gittinger <cg@exept.de> parents: 1156 diff changeset	7450	^ state value ~~ false
e6e9633abf48 kludge fix: invoke mustRearrange to care for block-visibility attributes Claus Gittinger <cg@exept.de> parents: 1156 diff changeset	7451
e6e9633abf48 kludge fix: invoke mustRearrange to care for block-visibility attributes Claus Gittinger <cg@exept.de> parents: 1156 diff changeset	7452	"Modified: / 5.10.1998 / 12:08:28 / cg"
712 4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	7453	!
4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	7454
4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	7455	isVisible:something
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7456	"change the visibility state; if the state changed, a redraw is performed"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7457
712 4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	7458	\|oldState newState\|
4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	7459
4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	7460	isVisible isNil ifTrue:[
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7461	oldState := true
712 4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	7462	] ifFalse:[
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7463	oldState := isVisible value.
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7464	isVisible isValueModel ifTrue:[
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7465	isVisible removeDependent:self
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7466	]
712 4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	7467	].
4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	7468	isVisible := something.
4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	7469
4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	7470	isVisible isNil ifTrue:[
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7471	newState := true
712 4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	7472	] ifFalse:[
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7473	isVisible isValueModel ifTrue:[
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7474	isVisible addDependent:self
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7475	] ifFalse:[
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7476	isVisible isSymbol ifTrue:[^ self]
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7477	].
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7478	menuPanel shown ifFalse:[^ self].
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7479	newState := isVisible value.
712 4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	7480	].
4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	7481
4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	7482	newState ~~ oldState ifTrue:[
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7483	menuPanel mustRearrange
712 4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	7484	]
1164 e6e9633abf48 kludge fix: invoke mustRearrange to care for block-visibility attributes Claus Gittinger <cg@exept.de> parents: 1156 diff changeset	7485
e6e9633abf48 kludge fix: invoke mustRearrange to care for block-visibility attributes Claus Gittinger <cg@exept.de> parents: 1156 diff changeset	7486	"Modified: / 5.10.1998 / 12:12:04 / cg"
712 4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	7487	!
4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	7488
2433 49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	7489	needsItemSpaceWhenDrawing
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	7490	^ self isSeparator not and:[menuItem isButton not]
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	7491	!
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	7492
388 dce33f8bb806 intitial checkin ca parents: diff changeset	7493	shortcutKeyAsString
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7494	"converts shortcutKey to a text object"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7495
2972 65841fbd0933 shortKey handling moved to device (shared between menu and menuPanel) Claus Gittinger <cg@exept.de> parents: 2936 diff changeset	7496	\|shortcutKey\|
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7497
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7498	shortcutKey := menuItem shortcutKey.
1609 2c8d62894ebe optimize searchinf for shortCutKeys ca parents: 1600 diff changeset	7499
2c8d62894ebe optimize searchinf for shortCutKeys ca parents: 1600 diff changeset	7500	shortcutKey isNil ifTrue:[
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7501	^ nil
1609 2c8d62894ebe optimize searchinf for shortCutKeys ca parents: 1600 diff changeset	7502	].
2c8d62894ebe optimize searchinf for shortCutKeys ca parents: 1600 diff changeset	7503	shortcutKey isCharacter ifTrue:[
2972 65841fbd0933 shortKey handling moved to device (shared between menu and menuPanel) Claus Gittinger <cg@exept.de> parents: 2936 diff changeset	7504	^ shortcutKey asString
65841fbd0933 shortKey handling moved to device (shared between menu and menuPanel) Claus Gittinger <cg@exept.de> parents: 2936 diff changeset	7505	].
65841fbd0933 shortKey handling moved to device (shared between menu and menuPanel) Claus Gittinger <cg@exept.de> parents: 2936 diff changeset	7506	^ menuPanel device shortKeyStringFor:shortcutKey.
65841fbd0933 shortKey handling moved to device (shared between menu and menuPanel) Claus Gittinger <cg@exept.de> parents: 2936 diff changeset	7507
65841fbd0933 shortKey handling moved to device (shared between menu and menuPanel) Claus Gittinger <cg@exept.de> parents: 2936 diff changeset	7508	"Modified: / 08-08-2006 / 15:46:24 / cg"
388 dce33f8bb806 intitial checkin ca parents: diff changeset	7509	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	7510
dce33f8bb806 intitial checkin ca parents: diff changeset	7511	!MenuPanel::Item methodsFor:'selection'!
dce33f8bb806 intitial checkin ca parents: diff changeset	7512
dce33f8bb806 intitial checkin ca parents: diff changeset	7513	isSelected
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7514	"returns true if item is selected"
1998 5059b7c9cd2c * empty log message * Claus Gittinger <cg@exept.de> parents: 1997 diff changeset	7515
5059b7c9cd2c * empty log message * Claus Gittinger <cg@exept.de> parents: 1997 diff changeset	7516	^ menuPanel notNil and:[menuPanel selection == self]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	7517	!
dce33f8bb806 intitial checkin ca parents: diff changeset	7518
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	7519	isSelected:isSelected
1473 1f62652f146e use hasSubmenu insteat of submenu if possible; Claus Gittinger <cg@exept.de> parents: 1472 diff changeset	7520	"change selection to a state. Dependant on the state open or hide an existing
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7521	submenu and perform a redraw"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7522
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	7523	(isSelected and:[menuPanel notNil]) ifFalse:[
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	7524	self invalidate.
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	7525	self hideSubmenu.
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7526	^ self
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	7527	].
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	7528
2199 61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	7529	menuPanel realized ifFalse:[ ^ self ].
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	7530
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7531	(indication isNil or:[menuItem isButton not]) ifTrue:[
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	7532	self invalidate
2199 61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	7533	].
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	7534	self hasSubmenu ifFalse:[ ^ self].
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	7535
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	7536	self hasDelayedMenu ifTrue:[
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	7537	menuPanel openDelayed:self
2199 61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	7538	] ifFalse:[
3133 dd8417f3373b code cleanup; comments Claus Gittinger <cg@exept.de> parents: 3131 diff changeset	7539	self setupSubmenu.
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	7540	subMenu notNil ifTrue:[ self openSubmenu ].
1701 026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	7541	].
3133 dd8417f3373b code cleanup; comments Claus Gittinger <cg@exept.de> parents: 3131 diff changeset	7542
dd8417f3373b code cleanup; comments Claus Gittinger <cg@exept.de> parents: 3131 diff changeset	7543	"Modified: / 07-11-2006 / 11:08:03 / cg"
388 dce33f8bb806 intitial checkin ca parents: diff changeset	7544	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	7545
2692 93566e299318 +actionValue2 werner parents: 2681 diff changeset	7546	!MenuPanel::Item::Adornment methodsFor:'accessing'!
93566e299318 +actionValue2 werner parents: 2681 diff changeset	7547
93566e299318 +actionValue2 werner parents: 2681 diff changeset	7548	argument2
93566e299318 +actionValue2 werner parents: 2681 diff changeset	7549
93566e299318 +actionValue2 werner parents: 2681 diff changeset	7550	^ argument2
93566e299318 +actionValue2 werner parents: 2681 diff changeset	7551	!
93566e299318 +actionValue2 werner parents: 2681 diff changeset	7552
93566e299318 +actionValue2 werner parents: 2681 diff changeset	7553	argument2:anArgumentOrNil
93566e299318 +actionValue2 werner parents: 2681 diff changeset	7554
93566e299318 +actionValue2 werner parents: 2681 diff changeset	7555	argument2 := anArgumentOrNil
93566e299318 +actionValue2 werner parents: 2681 diff changeset	7556	! !
93566e299318 +actionValue2 werner parents: 2681 diff changeset	7557
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	7558	!MenuPanel::ScrollActivity class methodsFor:'default icons'!
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7559
2018 2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	7560	icon
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7561	"This resource specification was automatically generated
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7562	by the ImageEditor of ST/X."
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7563
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7564	"Do not manually edit this!! If it is corrupted,
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7565	the ImageEditor may not be able to read the specification."
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7566
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7567	"
2018 2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	7568	self icon inspect
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	7569	ImageEditor openOnClass:self andSelector:#icon
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7570	"
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7571
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7572	<resource: #image>
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7573
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7574	^Icon
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	7575	constantNamed:#'MenuPanel::Scrolling class icon'
93426020ceed * empty log message * ca parents: 2216 diff changeset	7576	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	7577	! !
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7578
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	7579	!MenuPanel::ScrollActivity class methodsFor:'instance creation'!
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7580
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7581	new
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7582	^ self basicNew initialize
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7583	! !
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7584
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	7585	!MenuPanel::ScrollActivity methodsFor:'accessing'!
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7586
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7587	activeMenu
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7588	"returns the active menu the scrolling is activated on; nil
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7589	is returned if scrolling is deactivated"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7590
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7591	^ activeMenu
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7592	!
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7593
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7594	direction
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7595	"returns the scroll-direction"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7596
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7597	^ direction
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7598	!
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7599
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7600	iconAt:aDirection on:aMenu
2018 2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	7601	\|icon device index\|
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7602
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7603	device := aMenu device.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7604
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7605	aDirection == #PREV ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	7606	aMenu verticalLayout ifTrue:[index := 3] "/ 3 - 1 * 90 180
93426020ceed * empty log message * ca parents: 2216 diff changeset	7607	ifFalse:[index := 2] "/ 2 - 1 * 90 90
2018 2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	7608	] ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	7609	aMenu verticalLayout ifTrue:[index := 1] "/ 1 - 1 * 90 0
93426020ceed * empty log message * ca parents: 2216 diff changeset	7610	ifFalse:[index := 4] "/ 4 - 1 * 90 270
2018 2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	7611	].
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	7612
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	7613	icon := icons at:index.
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	7614
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	7615	(icon isNil or:[icon device ~~ device]) ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	7616	icon := self class icon.
93426020ceed * empty log message * ca parents: 2216 diff changeset	7617	index > 1 ifTrue:[ icon := icon rotated:(index - 1 * 90) ]
93426020ceed * empty log message * ca parents: 2216 diff changeset	7618	ifFalse:[ icon := icon copy ].
93426020ceed * empty log message * ca parents: 2216 diff changeset	7619
93426020ceed * empty log message * ca parents: 2216 diff changeset	7620	icon := icon onDevice:device.
93426020ceed * empty log message * ca parents: 2216 diff changeset	7621	icon clearMaskedPixels.
93426020ceed * empty log message * ca parents: 2216 diff changeset	7622	icons at:index put:icon
2018 2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	7623	].
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	7624	^ icon
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7625	! !
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7626
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	7627	!MenuPanel::ScrollActivity methodsFor:'initialization'!
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7628
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7629	initialize
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7630
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7631	semaLock := RecursionLock new.
2018 2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	7632	icons := Array new:4.
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7633	! !
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7634
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	7635	!MenuPanel::ScrollActivity methodsFor:'queries'!
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7636
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7637	isActive
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7638	"returns true if scrolling is activated"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7639
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7640	^ activeMenu notNil
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7641	! !
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7642
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	7643	!MenuPanel::ScrollActivity methodsFor:'user operations'!
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7644
2047 62de65e3a61b initial delay; autoRepeat delay Claus Gittinger <cg@exept.de> parents: 2046 diff changeset	7645	startIfRequiredAt:aDirection on:aMenu
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7646	"start scrolling; returns true if scrolling is activated"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7647
2860 300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	7648	\|bounds index isScrolledMenu\|
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	7649
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	7650	isScrolledMenu := (aDirection notNil and:[aMenu notNil and:[aMenu hasScrollers]]).
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7651
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7652	semaLock critical:[
2860 300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	7653	self stop.
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	7654
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	7655	isScrolledMenu ifTrue:[
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	7656	bounds := aMenu scrollerBoundsAt:aDirection.
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	7657	activeMenu := aMenu.
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	7658	direction := aDirection.
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	7659	index := aMenu indexOfItemAtScroller:aDirection.
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	7660
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	7661	index ~~ 0 ifTrue:[
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	7662	scrollTask :=
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	7663	[
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	7664	\|item step\|
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	7665
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	7666	[
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	7667	step := (aDirection == #PREV) ifTrue:[-1] ifFalse:[1].
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	7668	( aMenu shown and:[(item := aMenu itemAt:index) notNil] ) ifTrue:[
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	7669	aMenu makeItemVisible:item.
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	7670	index := index + step.
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	7671	].
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	7672
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	7673	Delay waitForSeconds:(ButtonController defaultInitialDelay).
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	7674
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	7675	[ aMenu shown and:[(item := aMenu itemAt:index) notNil] ] whileTrue:[
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	7676	aMenu makeItemVisible:item.
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	7677	Delay waitForSeconds:(ButtonController defaultRepeatDelay).
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	7678	index := index + step.
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	7679	].
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	7680	item := nil.
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	7681	] ensure:[
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	7682	scrollTask := nil.
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	7683
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	7684	item notNil ifTrue:[
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	7685	"/ process was killed
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	7686	aMenu invalidate:bounds
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	7687	]
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	7688	]
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	7689	] forkAt:8.
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	7690	]
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	7691	]
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7692	].
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7693	^ bounds notNil
2047 62de65e3a61b initial delay; autoRepeat delay Claus Gittinger <cg@exept.de> parents: 2046 diff changeset	7694
2048 ba472f3f46c7 code cleanup Claus Gittinger <cg@exept.de> parents: 2047 diff changeset	7695	"Created: ca"
ba472f3f46c7 code cleanup Claus Gittinger <cg@exept.de> parents: 2047 diff changeset	7696
ba472f3f46c7 code cleanup Claus Gittinger <cg@exept.de> parents: 2047 diff changeset	7697	"Modified: / 13.11.2001 / 20:15:52 / cg"
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7698	!
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7699
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7700	stop
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7701	"stop scrolling; returns true if the scrolling was activated otherwise false"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7702
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7703	\|task resp\|
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7704
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7705	activeMenu isNil ifTrue:[
2231 65cec3d10fb1 Change sends to obsolete methods Stefan Vogel <sv@exept.de> parents: 2220 diff changeset	7706	^ false
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7707	].
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7708	semaLock critical:[
2231 65cec3d10fb1 Change sends to obsolete methods Stefan Vogel <sv@exept.de> parents: 2220 diff changeset	7709	resp := activeMenu notNil.
65cec3d10fb1 Change sends to obsolete methods Stefan Vogel <sv@exept.de> parents: 2220 diff changeset	7710
65cec3d10fb1 Change sends to obsolete methods Stefan Vogel <sv@exept.de> parents: 2220 diff changeset	7711	(task := scrollTask) notNil ifTrue:[
65cec3d10fb1 Change sends to obsolete methods Stefan Vogel <sv@exept.de> parents: 2220 diff changeset	7712	scrollTask := nil.
65cec3d10fb1 Change sends to obsolete methods Stefan Vogel <sv@exept.de> parents: 2220 diff changeset	7713
65cec3d10fb1 Change sends to obsolete methods Stefan Vogel <sv@exept.de> parents: 2220 diff changeset	7714	Error handle:[:ex\|
65cec3d10fb1 Change sends to obsolete methods Stefan Vogel <sv@exept.de> parents: 2220 diff changeset	7715	] do:[
65cec3d10fb1 Change sends to obsolete methods Stefan Vogel <sv@exept.de> parents: 2220 diff changeset	7716	task terminateWithAllSubprocessesInGroup.
65cec3d10fb1 Change sends to obsolete methods Stefan Vogel <sv@exept.de> parents: 2220 diff changeset	7717	task waitUntilTerminated.
65cec3d10fb1 Change sends to obsolete methods Stefan Vogel <sv@exept.de> parents: 2220 diff changeset	7718	].
65cec3d10fb1 Change sends to obsolete methods Stefan Vogel <sv@exept.de> parents: 2220 diff changeset	7719	].
65cec3d10fb1 Change sends to obsolete methods Stefan Vogel <sv@exept.de> parents: 2220 diff changeset	7720	activeMenu := direction := nil.
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7721	].
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7722	^ resp
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7723	! !
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	7724
388 dce33f8bb806 intitial checkin ca parents: diff changeset	7725	!MenuPanel class methodsFor:'documentation'!
dce33f8bb806 intitial checkin ca parents: diff changeset	7726
dce33f8bb806 intitial checkin ca parents: diff changeset	7727	version
3143 645efaba917a bugfix: check for notNil windowGroup ca parents: 3142 diff changeset	7728	^ '$Header: /cvs/stx/stx/libwidg2/MenuPanel.st,v 1.438 2006-11-08 15:31:47 ca Exp $'
388 dce33f8bb806 intitial checkin ca parents: diff changeset	7729	! !
2199 61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	7730
388 dce33f8bb806 intitial checkin ca parents: diff changeset	7731	MenuPanel initialize!

author	ca
	Wed, 08 Nov 2006 16:31:47 +0100
changeset 3143	645efaba917a
parent 3142	4f1c952048c5
child 3144	772766a2e99e
permissions	-rw-r--r--