hg/stx-libwidg2: MenuPanel.st@608aa28e7676 (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
3147 b7c2db746f84 conditionalRight fix Claus Gittinger <cg@exept.de> parents: 3144 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
3147 b7c2db746f84 conditionalRight fix Claus Gittinger <cg@exept.de> parents: 3144 diff changeset	15	instanceVariableNames:'adornment shadowView mapTime mustRearrange superMenu
b7c2db746f84 conditionalRight fix Claus Gittinger <cg@exept.de> parents: 3144 diff changeset	16	shortKeyInset selection items groupSizes receiver enabled
b7c2db746f84 conditionalRight fix Claus Gittinger <cg@exept.de> parents: 3144 diff changeset	17	lastActiveMenu enteredItem prevFocusView previousPointerGrab
b7c2db746f84 conditionalRight fix Claus Gittinger <cg@exept.de> parents: 3144 diff changeset	18	previousKeyboardGrab relativeGrabOrigin hasImplicitGrap
b7c2db746f84 conditionalRight fix Claus Gittinger <cg@exept.de> parents: 3144 diff changeset	19	scrollActivity rightArrowShadow rightArrow fgColor verticalLayout
b7c2db746f84 conditionalRight fix Claus Gittinger <cg@exept.de> parents: 3144 diff changeset	20	showSeparatingLines showGroupDivider implicitGrabView
b7c2db746f84 conditionalRight fix Claus Gittinger <cg@exept.de> parents: 3144 diff changeset	21	lastPointerView openDelayedMenuBlock preferredWidth application
b7c2db746f84 conditionalRight fix Claus Gittinger <cg@exept.de> parents: 3144 diff changeset	22	originator centerItems hideOnRelease defaultHideOnRelease
b7c2db746f84 conditionalRight fix Claus Gittinger <cg@exept.de> parents: 3144 diff changeset	23	buttonInsetX buttonInsetY itemSpace activeBackgroundColor
3328 037d6d506879 no access character translation for the combo-list Claus Gittinger <cg@exept.de> parents: 3321 diff changeset	24	stringOffsetX doAccessCharacterTranslation'
3147 b7c2db746f84 conditionalRight fix Claus Gittinger <cg@exept.de> parents: 3144 diff changeset	25	classVariableNames:'InitialSelectionQuerySignal Images LigthenedImages
b7c2db746f84 conditionalRight fix Claus Gittinger <cg@exept.de> parents: 3144 diff changeset	26	DefaultForegroundColor DefaultBackgroundColor IconIndicationOn
b7c2db746f84 conditionalRight fix Claus Gittinger <cg@exept.de> parents: 3144 diff changeset	27	IconIndicationOff IconRadioOn IconRadioOff
b7c2db746f84 conditionalRight fix Claus Gittinger <cg@exept.de> parents: 3144 diff changeset	28	IconDisabledIndicationOn IconDisabledIndicationOff
b7c2db746f84 conditionalRight fix Claus Gittinger <cg@exept.de> parents: 3144 diff changeset	29	IconDisabledRadioOn IconDisabledRadioOff'
b7c2db746f84 conditionalRight fix Claus Gittinger <cg@exept.de> parents: 3144 diff changeset	30	poolDictionaries:''
b7c2db746f84 conditionalRight fix Claus Gittinger <cg@exept.de> parents: 3144 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
3147 b7c2db746f84 conditionalRight fix Claus Gittinger <cg@exept.de> parents: 3144 diff changeset	35	instanceVariableNames:'menuItem layout menuPanel subMenu displayLabel displayLabelExtent
b7c2db746f84 conditionalRight fix Claus Gittinger <cg@exept.de> parents: 3144 diff changeset	36	disabledDisplayLabel enableChannel label activeHelpText
b7c2db746f84 conditionalRight fix Claus Gittinger <cg@exept.de> parents: 3144 diff changeset	37	flyByHelpText isVisible indication choice accessCharacter'
b7c2db746f84 conditionalRight fix Claus Gittinger <cg@exept.de> parents: 3144 diff changeset	38	classVariableNames:'HorizontalInset VerticalInset HorizontalButtonInset
b7c2db746f84 conditionalRight fix Claus Gittinger <cg@exept.de> parents: 3144 diff changeset	39	VerticalButtonInset LabelRightOffset VerticalPopUpInset'
b7c2db746f84 conditionalRight fix Claus Gittinger <cg@exept.de> parents: 3144 diff changeset	40	poolDictionaries:''
b7c2db746f84 conditionalRight fix Claus Gittinger <cg@exept.de> parents: 3144 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
3147 b7c2db746f84 conditionalRight fix Claus Gittinger <cg@exept.de> parents: 3144 diff changeset	45	instanceVariableNames:'indication accessCharacterPosition shortcutKey argument argument2
b7c2db746f84 conditionalRight fix Claus Gittinger <cg@exept.de> parents: 3144 diff changeset	46	choice choiceValue'
b7c2db746f84 conditionalRight fix Claus Gittinger <cg@exept.de> parents: 3144 diff changeset	47	classVariableNames:''
b7c2db746f84 conditionalRight fix Claus Gittinger <cg@exept.de> parents: 3144 diff changeset	48	poolDictionaries:''
b7c2db746f84 conditionalRight fix Claus Gittinger <cg@exept.de> parents: 3144 diff changeset	49	privateIn:MenuPanel::Item
2692 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
3147 b7c2db746f84 conditionalRight fix Claus Gittinger <cg@exept.de> parents: 3144 diff changeset	53	instanceVariableNames:'semaLock activeMenu scrollTask direction icons'
b7c2db746f84 conditionalRight fix Claus Gittinger <cg@exept.de> parents: 3144 diff changeset	54	classVariableNames:''
b7c2db746f84 conditionalRight fix Claus Gittinger <cg@exept.de> parents: 3144 diff changeset	55	poolDictionaries:''
b7c2db746f84 conditionalRight fix Claus Gittinger <cg@exept.de> parents: 3144 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
3147 b7c2db746f84 conditionalRight fix Claus Gittinger <cg@exept.de> parents: 3144 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
3147 b7c2db746f84 conditionalRight fix Claus Gittinger <cg@exept.de> parents: 3144 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.
3147 b7c2db746f84 conditionalRight fix Claus Gittinger <cg@exept.de> parents: 3144 diff changeset	148	[exEnd]
b7c2db746f84 conditionalRight fix Claus Gittinger <cg@exept.de> parents: 3144 diff changeset	149
b7c2db746f84 conditionalRight fix Claus Gittinger <cg@exept.de> parents: 3144 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.
3147 b7c2db746f84 conditionalRight fix Claus Gittinger <cg@exept.de> parents: 3144 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
3147 b7c2db746f84 conditionalRight fix Claus Gittinger <cg@exept.de> parents: 3144 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
3147 b7c2db746f84 conditionalRight fix Claus Gittinger <cg@exept.de> parents: 3144 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
3147 b7c2db746f84 conditionalRight fix Claus Gittinger <cg@exept.de> parents: 3144 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:
3147 b7c2db746f84 conditionalRight fix Claus Gittinger <cg@exept.de> parents: 3144 diff changeset	214	#(#Menu #( #(#MenuItem
b7c2db746f84 conditionalRight fix Claus Gittinger <cg@exept.de> parents: 3144 diff changeset	215	#label: 'File'
b7c2db746f84 conditionalRight fix Claus Gittinger <cg@exept.de> parents: 3144 diff changeset	216	#submenu:
b7c2db746f84 conditionalRight fix Claus Gittinger <cg@exept.de> parents: 3144 diff changeset	217	#(#Menu #(#(#MenuItem #label: 'quit' #value:#quit )
b7c2db746f84 conditionalRight fix Claus Gittinger <cg@exept.de> parents: 3144 diff changeset	218	(#MenuItem
b7c2db746f84 conditionalRight fix Claus Gittinger <cg@exept.de> parents: 3144 diff changeset	219	#label: 'edit'
b7c2db746f84 conditionalRight fix Claus Gittinger <cg@exept.de> parents: 3144 diff changeset	220	#submenu:
b7c2db746f84 conditionalRight fix Claus Gittinger <cg@exept.de> parents: 3144 diff changeset	221	#(#Menu #( #(#MenuItem #label: 'edit' #value:#edit )
b7c2db746f84 conditionalRight fix Claus Gittinger <cg@exept.de> parents: 3144 diff changeset	222	#(#MenuItem #label: 'close' #value:#close)
b7c2db746f84 conditionalRight fix Claus Gittinger <cg@exept.de> parents: 3144 diff changeset	223	)
b7c2db746f84 conditionalRight fix Claus Gittinger <cg@exept.de> parents: 3144 diff changeset	224	nil
b7c2db746f84 conditionalRight fix Claus Gittinger <cg@exept.de> parents: 3144 diff changeset	225	nil
b7c2db746f84 conditionalRight fix Claus Gittinger <cg@exept.de> parents: 3144 diff changeset	226	)
b7c2db746f84 conditionalRight fix Claus Gittinger <cg@exept.de> parents: 3144 diff changeset	227	)
b7c2db746f84 conditionalRight fix Claus Gittinger <cg@exept.de> parents: 3144 diff changeset	228	#(#MenuItem #label: 'help' #value:#help )
b7c2db746f84 conditionalRight fix Claus Gittinger <cg@exept.de> parents: 3144 diff changeset	229	)
b7c2db746f84 conditionalRight fix Claus Gittinger <cg@exept.de> parents: 3144 diff changeset	230	nil
b7c2db746f84 conditionalRight fix Claus Gittinger <cg@exept.de> parents: 3144 diff changeset	231	nil
b7c2db746f84 conditionalRight fix Claus Gittinger <cg@exept.de> parents: 3144 diff changeset	232	)
b7c2db746f84 conditionalRight fix Claus Gittinger <cg@exept.de> parents: 3144 diff changeset	233	)
b7c2db746f84 conditionalRight fix Claus Gittinger <cg@exept.de> parents: 3144 diff changeset	234	#(#MenuItem #label: 'Inspect' #value:#inspectMenu )
b7c2db746f84 conditionalRight fix Claus Gittinger <cg@exept.de> parents: 3144 diff changeset	235	#(#MenuItem #label: 'Bar'
b7c2db746f84 conditionalRight fix Claus Gittinger <cg@exept.de> parents: 3144 diff changeset	236	#submenu:
b7c2db746f84 conditionalRight fix Claus Gittinger <cg@exept.de> parents: 3144 diff changeset	237	#(#Menu #( #(#MenuItem #label: 'bar 1' #value:#bar1 )
b7c2db746f84 conditionalRight fix Claus Gittinger <cg@exept.de> parents: 3144 diff changeset	238	#(#MenuItem #label: 'bar 2' #value:#bar2 )
b7c2db746f84 conditionalRight fix Claus Gittinger <cg@exept.de> parents: 3144 diff changeset	239	)
b7c2db746f84 conditionalRight fix Claus Gittinger <cg@exept.de> parents: 3144 diff changeset	240	nil
b7c2db746f84 conditionalRight fix Claus Gittinger <cg@exept.de> parents: 3144 diff changeset	241	nil
b7c2db746f84 conditionalRight fix Claus Gittinger <cg@exept.de> parents: 3144 diff changeset	242	)
b7c2db746f84 conditionalRight fix Claus Gittinger <cg@exept.de> parents: 3144 diff changeset	243	)
b7c2db746f84 conditionalRight fix Claus Gittinger <cg@exept.de> parents: 3144 diff changeset	244	)
b7c2db746f84 conditionalRight fix Claus Gittinger <cg@exept.de> parents: 3144 diff changeset	245	#( 2 )
b7c2db746f84 conditionalRight fix Claus Gittinger <cg@exept.de> parents: 3144 diff changeset	246	nil
b7c2db746f84 conditionalRight fix Claus Gittinger <cg@exept.de> parents: 3144 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).
3147 b7c2db746f84 conditionalRight fix Claus Gittinger <cg@exept.de> parents: 3144 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:[
3147 b7c2db746f84 conditionalRight fix Claus Gittinger <cg@exept.de> parents: 3144 diff changeset	267	menu := Menu new.
b7c2db746f84 conditionalRight fix Claus Gittinger <cg@exept.de> parents: 3144 diff changeset	268	menu receiver:aReceiver.
b7c2db746f84 conditionalRight fix Claus Gittinger <cg@exept.de> parents: 3144 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:[
3147 b7c2db746f84 conditionalRight fix Claus Gittinger <cg@exept.de> parents: 3144 diff changeset	306	"/ no receiver specified in the menu; thus set the receiver immediately
b7c2db746f84 conditionalRight fix Claus Gittinger <cg@exept.de> parents: 3144 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:[
3147 b7c2db746f84 conditionalRight fix Claus Gittinger <cg@exept.de> parents: 3144 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
3565 8147249b4aa6 better icons Claus Gittinger <cg@exept.de> parents: 3561 diff changeset	465	"/ <resource: #image>
8147249b4aa6 better icons Claus Gittinger <cg@exept.de> parents: 3561 diff changeset	466	"/
8147249b4aa6 better icons Claus Gittinger <cg@exept.de> parents: 3561 diff changeset	467	"/ IconDisabledRadioOff isNil ifTrue:[
8147249b4aa6 better icons Claus Gittinger <cg@exept.de> parents: 3561 diff changeset	468	"/ IconDisabledRadioOff := Icon
8147249b4aa6 better icons Claus Gittinger <cg@exept.de> parents: 3561 diff changeset	469	"/ constantNamed:#'MenuPanel iconRadioGroupDisabledOff'
8147249b4aa6 better icons Claus Gittinger <cg@exept.de> parents: 3561 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]
8147249b4aa6 better icons Claus Gittinger <cg@exept.de> parents: 3561 diff changeset	471	"/ ].
8147249b4aa6 better icons Claus Gittinger <cg@exept.de> parents: 3561 diff changeset	472	"/ ^ IconDisabledRadioOff
8147249b4aa6 better icons Claus Gittinger <cg@exept.de> parents: 3561 diff changeset	473
8147249b4aa6 better icons Claus Gittinger <cg@exept.de> parents: 3561 diff changeset	474	<resource: #programImage>
8147249b4aa6 better icons Claus Gittinger <cg@exept.de> parents: 3561 diff changeset	475	^ RadioButton disabledPassiveForm
1889 43516e4588ce give warning messages for unimplemented menu-aspects Claus Gittinger <cg@exept.de> parents: 1878 diff changeset	476	!
1798 08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	477
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	478	iconRadioGroupDisabledOn
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	479	"This resource specification was automatically generated
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	480	by the ImageEditor of ST/X."
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	"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	483	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	484
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	485	"
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	486	self iconRadioGroupDisabledOn inspect
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	487	ImageEditor openOnClass:self andSelector:#iconRadioGroupDisabledOn
2337 7f384db88273 centerItems attribute Claus Gittinger <cg@exept.de> parents: 2332 diff changeset	488	Icon flushCachedIcons
1798 08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	489	"
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	490
3565 8147249b4aa6 better icons Claus Gittinger <cg@exept.de> parents: 3561 diff changeset	491	"/ <resource: #image>
8147249b4aa6 better icons Claus Gittinger <cg@exept.de> parents: 3561 diff changeset	492	"/
8147249b4aa6 better icons Claus Gittinger <cg@exept.de> parents: 3561 diff changeset	493	"/ IconDisabledRadioOn isNil ifTrue:[
8147249b4aa6 better icons Claus Gittinger <cg@exept.de> parents: 3561 diff changeset	494	"/ IconDisabledRadioOn := Icon
8147249b4aa6 better icons Claus Gittinger <cg@exept.de> parents: 3561 diff changeset	495	"/ constantNamed:#'MenuPanel class iconRadioGroupDisabledOn'
8147249b4aa6 better icons Claus Gittinger <cg@exept.de> parents: 3561 diff changeset	496	"/ 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]
8147249b4aa6 better icons Claus Gittinger <cg@exept.de> parents: 3561 diff changeset	497	"/ ].
8147249b4aa6 better icons Claus Gittinger <cg@exept.de> parents: 3561 diff changeset	498	"/ ^ IconDisabledRadioOn
8147249b4aa6 better icons Claus Gittinger <cg@exept.de> parents: 3561 diff changeset	499
8147249b4aa6 better icons Claus Gittinger <cg@exept.de> parents: 3561 diff changeset	500	<resource: #programImage>
8147249b4aa6 better icons Claus Gittinger <cg@exept.de> parents: 3561 diff changeset	501	^ RadioButton disabledActiveForm
8147249b4aa6 better icons Claus Gittinger <cg@exept.de> parents: 3561 diff changeset	502	!
8147249b4aa6 better icons Claus Gittinger <cg@exept.de> parents: 3561 diff changeset	503
8147249b4aa6 better icons Claus Gittinger <cg@exept.de> parents: 3561 diff changeset	504	iconRadioGroupEnteredOff
8147249b4aa6 better icons Claus Gittinger <cg@exept.de> parents: 3561 diff changeset	505	<resource: #programImage>
8147249b4aa6 better icons Claus Gittinger <cg@exept.de> parents: 3561 diff changeset	506	^ RadioButton enteredPassiveForm
8147249b4aa6 better icons Claus Gittinger <cg@exept.de> parents: 3561 diff changeset	507	!
8147249b4aa6 better icons Claus Gittinger <cg@exept.de> parents: 3561 diff changeset	508
8147249b4aa6 better icons Claus Gittinger <cg@exept.de> parents: 3561 diff changeset	509	iconRadioGroupEnteredOn
8147249b4aa6 better icons Claus Gittinger <cg@exept.de> parents: 3561 diff changeset	510	<resource: #programImage>
8147249b4aa6 better icons Claus Gittinger <cg@exept.de> parents: 3561 diff changeset	511	^ RadioButton enteredActiveForm
1889 43516e4588ce give warning messages for unimplemented menu-aspects Claus Gittinger <cg@exept.de> parents: 1878 diff changeset	512	!
1798 08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	513
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	514	iconRadioGroupOff
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	515	"This resource specification was automatically generated
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	516	by the ImageEditor of ST/X."
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	517
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	518	"Do not manually edit this!! If it is corrupted,
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	519	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	520
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	521	"
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	522	self iconRadioGroupOff inspect
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	523	ImageEditor openOnClass:self andSelector:#iconRadioGroupOff
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	524	"
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	525
3565 8147249b4aa6 better icons Claus Gittinger <cg@exept.de> parents: 3561 diff changeset	526	"/ <resource: #image>
8147249b4aa6 better icons Claus Gittinger <cg@exept.de> parents: 3561 diff changeset	527	"/
8147249b4aa6 better icons Claus Gittinger <cg@exept.de> parents: 3561 diff changeset	528	"/ IconRadioOff isNil ifTrue:[
8147249b4aa6 better icons Claus Gittinger <cg@exept.de> parents: 3561 diff changeset	529	"/ IconRadioOff := Icon
8147249b4aa6 better icons Claus Gittinger <cg@exept.de> parents: 3561 diff changeset	530	"/ constantNamed:#'MenuPanel iconRadioGroupOff'
8147249b4aa6 better icons Claus Gittinger <cg@exept.de> parents: 3561 diff changeset	531	"/ 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]
8147249b4aa6 better icons Claus Gittinger <cg@exept.de> parents: 3561 diff changeset	532	"/ ].
8147249b4aa6 better icons Claus Gittinger <cg@exept.de> parents: 3561 diff changeset	533	"/ ^ IconRadioOff
8147249b4aa6 better icons Claus Gittinger <cg@exept.de> parents: 3561 diff changeset	534
8147249b4aa6 better icons Claus Gittinger <cg@exept.de> parents: 3561 diff changeset	535	<resource: #programImage>
8147249b4aa6 better icons Claus Gittinger <cg@exept.de> parents: 3561 diff changeset	536	^ RadioButton passiveForm
1889 43516e4588ce give warning messages for unimplemented menu-aspects Claus Gittinger <cg@exept.de> parents: 1878 diff changeset	537	!
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	538
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	539	iconRadioGroupOn
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	540	"This resource specification was automatically generated
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	541	by the ImageEditor of ST/X."
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	542
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	543	"Do not manually edit this!! If it is corrupted,
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	544	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	545
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	546	"
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	547	self iconRadioGroupOn inspect
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	548	ImageEditor openOnClass:self andSelector:#iconRadioGroupOn
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	549	"
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	550
3565 8147249b4aa6 better icons Claus Gittinger <cg@exept.de> parents: 3561 diff changeset	551	"/ <resource: #image>
8147249b4aa6 better icons Claus Gittinger <cg@exept.de> parents: 3561 diff changeset	552	"/
8147249b4aa6 better icons Claus Gittinger <cg@exept.de> parents: 3561 diff changeset	553	"/ IconRadioOn isNil ifTrue:[
8147249b4aa6 better icons Claus Gittinger <cg@exept.de> parents: 3561 diff changeset	554	"/ IconRadioOn := Icon
8147249b4aa6 better icons Claus Gittinger <cg@exept.de> parents: 3561 diff changeset	555	"/ constantNamed:#'MenuPanel iconRadioGroupOn'
8147249b4aa6 better icons Claus Gittinger <cg@exept.de> parents: 3561 diff changeset	556	"/ 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]
8147249b4aa6 better icons Claus Gittinger <cg@exept.de> parents: 3561 diff changeset	557	"/ ].
8147249b4aa6 better icons Claus Gittinger <cg@exept.de> parents: 3561 diff changeset	558	"/ ^ IconRadioOn
8147249b4aa6 better icons Claus Gittinger <cg@exept.de> parents: 3561 diff changeset	559
8147249b4aa6 better icons Claus Gittinger <cg@exept.de> parents: 3561 diff changeset	560	<resource: #programImage>
8147249b4aa6 better icons Claus Gittinger <cg@exept.de> parents: 3561 diff changeset	561	^ RadioButton activeForm
2344 d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	562	!
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	563
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	564	menuIndicator
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	565	"This resource specification was automatically generated
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	566	by the ImageEditor of ST/X."
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	567
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	568	"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	569	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	570
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	571	"
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	572	self menuIndicator inspect
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	573	ImageEditor openOnClass:self andSelector:#menuIndicator
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	574	Icon flushCachedIcons
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	575	"
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	576
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	577	<resource: #image>
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	578
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	579	^Icon
3603 c93203750a0b image resource method fixes (key must be name of method) Claus Gittinger <cg@exept.de> parents: 3601 diff changeset	580	constantNamed:#'MenuPanel class menuIndicator'
2344 d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	581	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	582	! !
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	583
616 a6157b083830 support of different styles ca parents: 608 diff changeset	584	!MenuPanel class methodsFor:'defaults'!
450 ac72eb2ed895 initialize fix Claus Gittinger <cg@exept.de> parents: 441 diff changeset	585
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	586	defaultBackgroundColor
2609 b927f450c4c8 * empty log message * ca parents: 2607 diff changeset	587	DefaultBackgroundColor notNil ifTrue:[^ DefaultBackgroundColor].
2372 d136f6d4b7c5 bugfix if font is nil ca parents: 2364 diff changeset	588	^ StyleSheet at:#'pullDownMenu.backgroundColor' default:DefaultViewBackgroundColor.
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	589	!
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	590
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	591	defaultLevel
2372 d136f6d4b7c5 bugfix if font is nil ca parents: 2364 diff changeset	592	^ StyleSheet at:#'pullDownMenu.level' default:1
d136f6d4b7c5 bugfix if font is nil ca parents: 2364 diff changeset	593	"
d136f6d4b7c5 bugfix if font is nil ca parents: 2364 diff changeset	594	self defaultLevel
d136f6d4b7c5 bugfix if font is nil ca parents: 2364 diff changeset	595	"
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	596	!
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	597
2344 d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	598	delayedMenuIndicatorOffset
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	599	"returns an additional offset between the label and the
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	600	delayedMenu indication (i.e. the down-arrow icon)"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	601
2344 d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	602	^ 1 "2"
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	603	!
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	604
3363 33e881abd5b2 accelerator search limited to 2-levels; Claus Gittinger <cg@exept.de> parents: 3360 diff changeset	605	maxShortCutSearchLevel
33e881abd5b2 accelerator search limited to 2-levels; Claus Gittinger <cg@exept.de> parents: 3360 diff changeset	606	"1 means: only search in top items.
33e881abd5b2 accelerator search limited to 2-levels; Claus Gittinger <cg@exept.de> parents: 3360 diff changeset	607	2 means: search one level of menus.
33e881abd5b2 accelerator search limited to 2-levels; Claus Gittinger <cg@exept.de> parents: 3360 diff changeset	608	used to be 10"
33e881abd5b2 accelerator search limited to 2-levels; Claus Gittinger <cg@exept.de> parents: 3360 diff changeset	609
3384 f42018cf8f9f class variable for MaxShortCutSearchLevel fm parents: 3383 diff changeset	610	MaxShortCutSearchLevel isNil ifTrue:[MaxShortCutSearchLevel := 2.].
f42018cf8f9f class variable for MaxShortCutSearchLevel fm parents: 3383 diff changeset	611	^ MaxShortCutSearchLevel
f42018cf8f9f class variable for MaxShortCutSearchLevel fm parents: 3383 diff changeset	612	!
f42018cf8f9f class variable for MaxShortCutSearchLevel fm parents: 3383 diff changeset	613
f42018cf8f9f class variable for MaxShortCutSearchLevel fm parents: 3383 diff changeset	614	maxShortCutSearchLevel: anInteger
f42018cf8f9f class variable for MaxShortCutSearchLevel fm parents: 3383 diff changeset	615	"1 means: only search in top items.
f42018cf8f9f class variable for MaxShortCutSearchLevel fm parents: 3383 diff changeset	616	2 means: search one level of menus."
f42018cf8f9f class variable for MaxShortCutSearchLevel fm parents: 3383 diff changeset	617
f42018cf8f9f class variable for MaxShortCutSearchLevel fm parents: 3383 diff changeset	618	MaxShortCutSearchLevel := anInteger
3363 33e881abd5b2 accelerator search limited to 2-levels; Claus Gittinger <cg@exept.de> parents: 3360 diff changeset	619	!
33e881abd5b2 accelerator search limited to 2-levels; Claus Gittinger <cg@exept.de> parents: 3360 diff changeset	620
2344 d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	621	menuIndicatorOffset
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	622	"returns an additional offset between the label and the
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	623	delayedMenu indication (i.e. the down-arrow icon)"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	624
2344 d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	625	^ 1 "2"
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	626	!
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	627
1786 f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	628	mnemonicIdentifier
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	629	"returns the identifier each mnemonic starts with;
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	630	ex:
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	631	&File mnemonic := Cmdf
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	632	F&ile mnemonic := Cmdi
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	633	....."
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	634
1786 f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	635	^ 'Cmd'
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	636	!
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	637
450 ac72eb2ed895 initialize fix Claus Gittinger <cg@exept.de> parents: 441 diff changeset	638	updateStyleCache
2777 56bb352f6b91 * empty log message * Claus Gittinger <cg@exept.de> parents: 2772 diff changeset	639	"extract values from the styleSheet and cache them in class variables"
657 a8246e896fa3 class initialize routine completed tz parents: 653 diff changeset	640
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	641	<resource: #style (
93426020ceed * empty log message * ca parents: 2216 diff changeset	642	#'selection.disabledForegroundColor'
93426020ceed * empty log message * ca parents: 2216 diff changeset	643	#'pullDownMenu.foregroundColor' #'pullDownMenu.backgroundColor' #'pullDownMenu.level'
93426020ceed * empty log message * ca parents: 2216 diff changeset	644	#'menu.itemHorizontalSpace' #'menu.buttonItemHorizontalSpace' #'menu.buttonItemSpace'
2883 58f2f296254d defaults Claus Gittinger <cg@exept.de> parents: 2877 diff changeset	645	#'menu.itemSpace' #'menu.buttonItemVerticalSpace'
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	646	#'menu.buttonActiveLevel' #'menu.buttonPassiveLevel' #'menu.buttonEnteredLevel'
93426020ceed * empty log message * ca parents: 2216 diff changeset	647	#'menu.hilightLevel' #'menu.enteredLevel'
93426020ceed * empty log message * ca parents: 2216 diff changeset	648	#'menu.groupDividerSize' #'menu.itemMargin'
93426020ceed * empty log message * ca parents: 2216 diff changeset	649	#'menu.disabledEtchedForegroundColor' #'menu.hilightForegroundColor'
93426020ceed * empty log message * ca parents: 2216 diff changeset	650	#'menu.enteredBackgroundColor' #'menu.enteredForegroundColor'
93426020ceed * empty log message * ca parents: 2216 diff changeset	651	#'menu.disabledForegroundColor' #'menu.buttonEnteredBackgroundColor'
93426020ceed * empty log message * ca parents: 2216 diff changeset	652	#'menu.selectionFollowsMouse'
93426020ceed * empty log message * ca parents: 2216 diff changeset	653	#'button.disabledEtchedForegroundColor' #'button.disabledForegroundColor'
93426020ceed * empty log message * ca parents: 2216 diff changeset	654	#'button.activeBackgroundColor' #'button.backgroundColor' #'button.lightColor'
93426020ceed * empty log message * ca parents: 2216 diff changeset	655	#'button.enteredBackgroundColor' #'button.halfLightColor' #'button.halfShadowColor'
93426020ceed * empty log message * ca parents: 2216 diff changeset	656	#'button.activeLevel' #'button.passiveLevel' #'button.edgeStyle'
2752 1d1788de3393 more xp style Claus Gittinger <cg@exept.de> parents: 2737 diff changeset	657	#'menu.iconIndicationOn' #'menu.iconIndicationOff'
2754 e1099c448aa9 more xp style Claus Gittinger <cg@exept.de> parents: 2752 diff changeset	658	#'menu.iconIndicationOn.bitmapFile' #'menu.iconIndication.bitmapOffFile'
e1099c448aa9 more xp style Claus Gittinger <cg@exept.de> parents: 2752 diff changeset	659	#'menu.iconRadioOn' #'menu.iconRadioOff'
e1099c448aa9 more xp style Claus Gittinger <cg@exept.de> parents: 2752 diff changeset	660	#'menu.iconRadioOn.bitmapFile' #'menu.iconRadioOff.bitmapFile'
2755 f8035120da51 * empty log message * Claus Gittinger <cg@exept.de> parents: 2754 diff changeset	661	#'menu.iconDisabledIndicationOn' #'menu.iconDisabledIndicationOff'
f8035120da51 * empty log message * Claus Gittinger <cg@exept.de> parents: 2754 diff changeset	662	#'menu.iconDisabledIndicationOn.bitmapFile' #'menu.iconDisabledIndication.bitmapOffFile'
f8035120da51 * empty log message * Claus Gittinger <cg@exept.de> parents: 2754 diff changeset	663	#'menu.iconDisabledRadioOn' #'menu.iconDisabledRadioOff'
f8035120da51 * empty log message * Claus Gittinger <cg@exept.de> parents: 2754 diff changeset	664	#'menu.iconDisabledRadioOn.bitmapFile' #'menu.iconDisabledRadioOff.bitmapFile'
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	665	)>
93426020ceed * empty log message * ca parents: 2216 diff changeset	666
93426020ceed * empty log message * ca parents: 2216 diff changeset	667	\|styleSheet style var foregroundColor backgroundColor buttonPassiveBackgroundColor
2754 e1099c448aa9 more xp style Claus Gittinger <cg@exept.de> parents: 2752 diff changeset	668	buttonActiveLevel buttonPassiveLevel buttonEnteredLevel getBitmapOrFile\|
2607 5eecd27af4e4 * empty log message * ca parents: 2604 diff changeset	669
2611 9814b5547d63 bugfix: backgroundColor after loading new style ca parents: 2610 diff changeset	670	"clear DefaultBackgroundColor caused by accessing the #defaultBackgroundColor
9814b5547d63 bugfix: backgroundColor after loading new style ca parents: 2610 diff changeset	671	which returns the default cashed DefaultBackgroundColor
9814b5547d63 bugfix: backgroundColor after loading new style ca parents: 2610 diff changeset	672	"
9814b5547d63 bugfix: backgroundColor after loading new style ca parents: 2610 diff changeset	673	DefaultBackgroundColor := nil.
9814b5547d63 bugfix: backgroundColor after loading new style ca parents: 2610 diff changeset	674
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	675	MenuView updateStyleCache.
93426020ceed * empty log message * ca parents: 2216 diff changeset	676	SelectionInListView updateStyleCache.
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	677
2372 d136f6d4b7c5 bugfix if font is nil ca parents: 2364 diff changeset	678	styleSheet := StyleSheet.
d136f6d4b7c5 bugfix if font is nil ca parents: 2364 diff changeset	679	style := styleSheet name.
d136f6d4b7c5 bugfix if font is nil ca parents: 2364 diff changeset	680
2607 5eecd27af4e4 * empty log message * ca parents: 2604 diff changeset	681	DefaultFont := MenuView defaultFont.
2883 58f2f296254d defaults Claus Gittinger <cg@exept.de> parents: 2877 diff changeset	682	foregroundColor := DefaultForegroundColor := styleSheet colorAt:#'pullDownMenu.foregroundColor'
58f2f296254d defaults Claus Gittinger <cg@exept.de> parents: 2877 diff changeset	683	default:[styleSheet
58f2f296254d defaults Claus Gittinger <cg@exept.de> parents: 2877 diff changeset	684	colorAt:#'menu.foregroundColor'
58f2f296254d defaults Claus Gittinger <cg@exept.de> parents: 2877 diff changeset	685	default:Color black].
2609 b927f450c4c8 * empty log message * ca parents: 2607 diff changeset	686	backgroundColor := DefaultBackgroundColor := self defaultBackgroundColor.
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	687
93426020ceed * empty log message * ca parents: 2216 diff changeset	688	var := styleSheet colorAt:#'menu.hilightBackgroundColor'.
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	689	var isNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	690	style == #motif ifTrue:[ var := backgroundColor ]
93426020ceed * empty log message * ca parents: 2216 diff changeset	691	ifFalse:[ var := styleSheet is3D ifFalse:[foregroundColor] ifTrue:[backgroundColor] ]
93426020ceed * empty log message * ca parents: 2216 diff changeset	692	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	693	styleSheet at:#'menuPanel.activeBackgroundColor' put:var.
93426020ceed * empty log message * ca parents: 2216 diff changeset	694
93426020ceed * empty log message * ca parents: 2216 diff changeset	695	var := styleSheet colorAt:#'menu.disabledEtchedForegroundColor'.
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	696	var isNil ifTrue:[ var := styleSheet colorAt:#'button.disabledEtchedForegroundColor' ].
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	697	styleSheet at:#'menuPanel.disabledEtchedFgColor' put:var.
93426020ceed * empty log message * ca parents: 2216 diff changeset	698
93426020ceed * empty log message * ca parents: 2216 diff changeset	699	var := styleSheet colorAt:#'menu.disabledForegroundColor'.
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	700	var isNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	701	var := styleSheet colorAt:#'selection.disabledForegroundColor'.
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	702	var isNil ifTrue:[ var := styleSheet colorAt:#'button.disabledForegroundColor' default:Color darkGray ]
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	703	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	704	styleSheet at:#'menuPanel.disabledForegroundColor' put:var.
93426020ceed * empty log message * ca parents: 2216 diff changeset	705
93426020ceed * empty log message * ca parents: 2216 diff changeset	706	var := styleSheet colorAt:#'menu.hilightForegroundColor'.
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	707	var isNil ifTrue:[ var := styleSheet is3D ifTrue:[foregroundColor] ifFalse:[backgroundColor] ].
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	708	styleSheet at:#'menuPanel.activeForegroundColor' put:var.
93426020ceed * empty log message * ca parents: 2216 diff changeset	709
93426020ceed * empty log message * ca parents: 2216 diff changeset	710
93426020ceed * empty log message * ca parents: 2216 diff changeset	711	buttonActiveLevel := styleSheet at:#'menu.buttonActiveLevel' default:(styleSheet is3D ifTrue:[-2] ifFalse:[0]).
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	712	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	713	styleSheet at:#'menuPanel.buttonActiveLevel' put:buttonActiveLevel.
93426020ceed * empty log message * ca parents: 2216 diff changeset	714
93426020ceed * empty log message * ca parents: 2216 diff changeset	715	buttonPassiveLevel := styleSheet at:#'menu.buttonPassiveLevel'.
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	716	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	717	styleSheet at:#'menuPanel.buttonPassiveLevel' put:buttonPassiveLevel.
93426020ceed * empty log message * ca parents: 2216 diff changeset	718
93426020ceed * empty log message * ca parents: 2216 diff changeset	719	buttonEnteredLevel := styleSheet at:#'menu.buttonEnteredLevel' default:buttonPassiveLevel.
93426020ceed * empty log message * ca parents: 2216 diff changeset	720	styleSheet at:#'menuPanel.buttonEnteredLevel' put:buttonEnteredLevel.
93426020ceed * empty log message * ca parents: 2216 diff changeset	721
93426020ceed * empty log message * ca parents: 2216 diff changeset	722	var := (buttonActiveLevel abs max:(buttonPassiveLevel abs)) max:(buttonEnteredLevel abs).
93426020ceed * empty log message * ca parents: 2216 diff changeset	723	styleSheet at:#'menuPanel.maxAbsoluteButtonLevel' put:var.
93426020ceed * empty log message * ca parents: 2216 diff changeset	724
93426020ceed * empty log message * ca parents: 2216 diff changeset	725	buttonPassiveBackgroundColor := styleSheet at:#'button.backgroundColor'.
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	726	buttonPassiveBackgroundColor isNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	727	buttonPassiveBackgroundColor := (styleSheet at:'viewBackground') ? backgroundColor
93426020ceed * empty log message * ca parents: 2216 diff changeset	728	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	729	styleSheet at:#'menuPanel.buttonPassiveBackgroundColor' put:buttonPassiveBackgroundColor.
93426020ceed * empty log message * ca parents: 2216 diff changeset	730
93426020ceed * empty log message * ca parents: 2216 diff changeset	731	var := styleSheet at:#'button.lightColor'.
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	732	var isNil ifTrue:[ var := (buttonPassiveBackgroundColor averageColorIn:(0@0 corner:7@7)) lightened ].
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	733	styleSheet at:#'menuPanel.buttonLightColor' put:var.
93426020ceed * empty log message * ca parents: 2216 diff changeset	734
93426020ceed * empty log message * ca parents: 2216 diff changeset	735	var := styleSheet at:#'button.shadowColor'.
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	736	var isNil ifTrue:[ var := (buttonPassiveBackgroundColor averageColorIn:(0@0 corner:7@7)) darkened ].
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	737	styleSheet at:#'menuPanel.buttonShadowColor' put:var.
93426020ceed * empty log message * ca parents: 2216 diff changeset	738
93426020ceed * empty log message * ca parents: 2216 diff changeset	739	var := styleSheet colorAt:#'menu.buttonEnteredBackgroundColor'.
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	740	var isNil ifTrue:[ var := styleSheet colorAt:#'button.enteredBackgroundColor' default:buttonPassiveBackgroundColor ].
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	741	styleSheet at:#'menuPanel.buttonEnteredBackgroundColor' put:var.
93426020ceed * empty log message * ca parents: 2216 diff changeset	742
93426020ceed * empty log message * ca parents: 2216 diff changeset	743	Item updateStyleCache.
2607 5eecd27af4e4 * empty log message * ca parents: 2604 diff changeset	744
2754 e1099c448aa9 more xp style Claus Gittinger <cg@exept.de> parents: 2752 diff changeset	745	getBitmapOrFile := [:key :fileKey \|
e1099c448aa9 more xp style Claus Gittinger <cg@exept.de> parents: 2752 diff changeset	746	\|var\|
e1099c448aa9 more xp style Claus Gittinger <cg@exept.de> parents: 2752 diff changeset	747
e1099c448aa9 more xp style Claus Gittinger <cg@exept.de> parents: 2752 diff changeset	748	var := styleSheet at:key ifAbsent:nil.
e1099c448aa9 more xp style Claus Gittinger <cg@exept.de> parents: 2752 diff changeset	749	var isNil ifTrue:[
e1099c448aa9 more xp style Claus Gittinger <cg@exept.de> parents: 2752 diff changeset	750	var := styleSheet at:fileKey ifAbsent:nil.
2752 1d1788de3393 more xp style Claus Gittinger <cg@exept.de> parents: 2737 diff changeset	751	var notNil ifTrue:[
2754 e1099c448aa9 more xp style Claus Gittinger <cg@exept.de> parents: 2752 diff changeset	752	var := Smalltalk imageFromFileNamed:var forClass:self.
2752 1d1788de3393 more xp style Claus Gittinger <cg@exept.de> parents: 2737 diff changeset	753	].
1d1788de3393 more xp style Claus Gittinger <cg@exept.de> parents: 2737 diff changeset	754	].
2754 e1099c448aa9 more xp style Claus Gittinger <cg@exept.de> parents: 2752 diff changeset	755	var
e1099c448aa9 more xp style Claus Gittinger <cg@exept.de> parents: 2752 diff changeset	756	].
e1099c448aa9 more xp style Claus Gittinger <cg@exept.de> parents: 2752 diff changeset	757
2883 58f2f296254d defaults Claus Gittinger <cg@exept.de> parents: 2877 diff changeset	758	IconIndicationOn := getBitmapOrFile value:#'menu.iconIndicationOn' value:#'menu.iconIndicationOn.bitmapFile'.
58f2f296254d defaults Claus Gittinger <cg@exept.de> parents: 2877 diff changeset	759	IconIndicationOff := getBitmapOrFile value:#'menu.iconIndicationOff' value:#'menu.iconIndicationOff.bitmapFile'.
58f2f296254d defaults Claus Gittinger <cg@exept.de> parents: 2877 diff changeset	760	IconDisabledIndicationOn := getBitmapOrFile value:#'menu.iconDisabledIndicationOn' value:#'menu.iconDisabledIndicationOn.bitmapFile'.
58f2f296254d defaults Claus Gittinger <cg@exept.de> parents: 2877 diff changeset	761	IconDisabledIndicationOff := getBitmapOrFile value:#'menu.iconDisabledIndicationOff' value:#'menu.iconDisabledIndicationOff.bitmapFile'.
58f2f296254d defaults Claus Gittinger <cg@exept.de> parents: 2877 diff changeset	762
58f2f296254d defaults Claus Gittinger <cg@exept.de> parents: 2877 diff changeset	763	IconRadioOn := getBitmapOrFile value:#'menu.iconRadioOn' value:#'menu.iconRadioOn.bitmapFile'.
58f2f296254d defaults Claus Gittinger <cg@exept.de> parents: 2877 diff changeset	764	IconRadioOff := getBitmapOrFile value:#'menu.iconRadioOff' value:#'menu.iconRadioOff.bitmapFile'.
58f2f296254d defaults Claus Gittinger <cg@exept.de> parents: 2877 diff changeset	765	IconDisabledRadioOn := getBitmapOrFile value:#'menu.iconDisabledRadioOn' value:#'menu.iconDisabledRadioOn.bitmapFile'.
58f2f296254d defaults Claus Gittinger <cg@exept.de> parents: 2877 diff changeset	766	IconDisabledRadioOff := getBitmapOrFile value:#'menu.iconDisabledRadioOff' value:#'menu.iconDisabledRadioOff.bitmapFile'.
2752 1d1788de3393 more xp style Claus Gittinger <cg@exept.de> parents: 2737 diff changeset	767
2607 5eecd27af4e4 * empty log message * ca parents: 2604 diff changeset	768	"
5eecd27af4e4 * empty log message * ca parents: 2604 diff changeset	769	self updateStyleCache
5eecd27af4e4 * empty log message * ca parents: 2604 diff changeset	770	"
388 dce33f8bb806 intitial checkin ca parents: diff changeset	771	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	772
794 5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	773	!MenuPanel class methodsFor:'image registration'!
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	774
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	775	image:anImage onDevice:aDevice
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	776	"
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	777	Images := nil
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	778	"
2269 e250e3adfc56 registration of images ca parents: 2255 diff changeset	779	\|deviceImages\|
794 5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	780
1156 6fa33dc93509 fix to avoid repeated image>>onDevice Claus Gittinger <cg@exept.de> parents: 1151 diff changeset	781	anImage device == aDevice ifTrue:[
2269 e250e3adfc56 registration of images ca parents: 2255 diff changeset	782	^ anImage
1853 399e2eac3b99 Use WeakIdentityDictionaries to cache images per Workstation. Stefan Vogel <sv@exept.de> parents: 1841 diff changeset	783	].
399e2eac3b99 Use WeakIdentityDictionaries to cache images per Workstation. Stefan Vogel <sv@exept.de> parents: 1841 diff changeset	784
399e2eac3b99 Use WeakIdentityDictionaries to cache images per Workstation. Stefan Vogel <sv@exept.de> parents: 1841 diff changeset	785	Images isNil ifTrue:[ Images := WeakIdentityDictionary new ].
794 5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	786
1097 8a2f6c5ad1a9 * empty log message * Claus Gittinger <cg@exept.de> parents: 1096 diff changeset	787	(deviceImages := Images at:aDevice ifAbsent:nil) isNil ifTrue:[
2269 e250e3adfc56 registration of images ca parents: 2255 diff changeset	788	Images at:aDevice put:(deviceImages := Dictionary new)
e250e3adfc56 registration of images ca parents: 2255 diff changeset	789	].
e250e3adfc56 registration of images ca parents: 2255 diff changeset	790
e250e3adfc56 registration of images ca parents: 2255 diff changeset	791	^ deviceImages at:anImage ifAbsentPut:[ \|image\|
e250e3adfc56 registration of images ca parents: 2255 diff changeset	792	image := anImage copy onDevice:aDevice.
e250e3adfc56 registration of images ca parents: 2255 diff changeset	793	image clearMaskedPixels.
e250e3adfc56 registration of images ca parents: 2255 diff changeset	794	deviceImages at:anImage put:image.
e250e3adfc56 registration of images ca parents: 2255 diff changeset	795	image
e250e3adfc56 registration of images ca parents: 2255 diff changeset	796	].
794 5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	797	!
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	798
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	799	lightenedImage:anImage onDevice:aDevice
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	800	"
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	801	LigthenedImages := nil
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	802	"
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	803	\|deviceImages image colorMap\|
794 5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	804
1853 399e2eac3b99 Use WeakIdentityDictionaries to cache images per Workstation. Stefan Vogel <sv@exept.de> parents: 1841 diff changeset	805	LigthenedImages isNil ifTrue:[ LigthenedImages := WeakIdentityDictionary new ].
794 5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	806
1097 8a2f6c5ad1a9 * empty log message * Claus Gittinger <cg@exept.de> parents: 1096 diff changeset	807	(deviceImages := LigthenedImages at:aDevice ifAbsent:nil) isNil ifTrue:[
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	808	LigthenedImages at:aDevice put:(deviceImages := Dictionary new)
1097 8a2f6c5ad1a9 * empty log message * Claus Gittinger <cg@exept.de> parents: 1096 diff changeset	809	].
8a2f6c5ad1a9 * empty log message * Claus Gittinger <cg@exept.de> parents: 1096 diff changeset	810
8a2f6c5ad1a9 * empty log message * Claus Gittinger <cg@exept.de> parents: 1096 diff changeset	811	(image := deviceImages at:anImage ifAbsent:nil) notNil ifTrue:[
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	812	^ image
975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	813	].
975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	814
975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	815	colorMap := anImage perform:#colorMap ifNotUnderstood:nil.
975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	816
975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	817	colorMap notNil ifTrue:[
975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	818	image := anImage copy lightened onDevice:aDevice.
975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	819	image clearMaskedPixels.
794 5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	820	] ifFalse:[
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	821	image := self image:anImage onDevice:aDevice
794 5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	822	].
1097 8a2f6c5ad1a9 * empty log message * Claus Gittinger <cg@exept.de> parents: 1096 diff changeset	823	deviceImages at:anImage put:image.
794 5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	824	^ image
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	825	! !
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	826
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	827	!MenuPanel class methodsFor:'private'!
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	828
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	829	subMenu:aSubMenu
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	830	"create a submenu; can be redifined in derived classes"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	831
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	832	^ (self new) menu:aSubMenu.
1063 08b7ca464437 dont show accelerators for horizontal layouts Claus Gittinger <cg@exept.de> parents: 1054 diff changeset	833
08b7ca464437 dont show accelerators for horizontal layouts Claus Gittinger <cg@exept.de> parents: 1054 diff changeset	834	"Modified: / 8.8.1998 / 02:13:11 / cg"
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	835	! !
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	836
1808 e8628b502a49 methodCategory change Claus Gittinger <cg@exept.de> parents: 1806 diff changeset	837	!MenuPanel methodsFor:'accepting'!
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	838
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	839	accept
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	840	"accept current selected item"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	841
1670 dbc8a05605e0 add new behavior: hideMenuOnActivated ca parents: 1666 diff changeset	842	^ self acceptItem:(self selection) inMenu:self
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	843	!
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	844
1836 89a1b938c09e fixed returned value from non-performing menu Claus Gittinger <cg@exept.de> parents: 1832 diff changeset	845	accept:anItem
2326 a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	846	"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	847
3142 4f1c952048c5 focusView handling ca parents: 3133 diff changeset	848	\|item tgState itemIdx recv panel masterGroup winGrp acceptAction focusView\|
1630 01dc20096011 grabbing cleaned up; ca parents: 1613 diff changeset	849
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	850	self superMenu notNil ifTrue:[
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	851	^ self topMenu accept:anItem
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	852	].
3142 4f1c952048c5 focusView handling ca parents: 3133 diff changeset	853	prevFocusView ~~ self ifTrue:[
4f1c952048c5 focusView handling ca parents: 3133 diff changeset	854	focusView := prevFocusView.
4f1c952048c5 focusView handling ca parents: 3133 diff changeset	855	].
4f1c952048c5 focusView handling ca parents: 3133 diff changeset	856	prevFocusView := nil.
4f1c952048c5 focusView handling ca parents: 3133 diff changeset	857
2199 61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	858	self openDelayed:nil.
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	859	self scrollActivity stop.
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	860	self selection:nil.
420 b6f9fff472ef fixes ca parents: 417 diff changeset	861
b6f9fff472ef fixes ca parents: 417 diff changeset	862	(anItem notNil and:[anItem canAccept]) ifTrue:[
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	863	tgState := anItem toggleIndication.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	864	panel := anItem menuPanel.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	865	itemIdx := panel findFirst:[:el\| el == anItem ].
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	866	item := anItem.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	867	recv := panel receiver.
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	868	].
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	869	self doUngrab:true.
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	870
510 8f77b9382066 bug fix with redraw ca parents: 505 diff changeset	871	self isPopUpView ifFalse:[
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	872	self do:[:el\| el updateIndicators].
3143 645efaba917a bugfix: check for notNil windowGroup ca parents: 3142 diff changeset	873	(winGrp := self windowGroup) notNil ifTrue:[
3142 4f1c952048c5 focusView handling ca parents: 3133 diff changeset	874	winGrp processExposeEvents.
4f1c952048c5 focusView handling ca parents: 3133 diff changeset	875	].
524 d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	876	] ifTrue:[
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	877	self unmap.
2712 8a5f94b10261 late expose event bug fixed ca parents: 2696 diff changeset	878	self device sync. "/ round trip - all expose events are now received
3143 645efaba917a bugfix: check for notNil windowGroup ca parents: 3142 diff changeset	879
645efaba917a bugfix: check for notNil windowGroup ca parents: 3142 diff changeset	880	(winGrp := self windowGroup) notNil ifTrue:[
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	881	"/ give expose event a chance to arrive
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	882	[shown and:[realized]] whileTrue:[
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	883	winGrp processExposeEventsFor:self
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	884	].
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	885	masterGroup := winGrp previousGroup.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	886	].
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	887	"/ cg: disabled-not needed - try PopUpList with destroy...
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	888	"/ self destroy.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	889	masterGroup notNil ifTrue:[masterGroup processExposeEvents].
524 d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	890	].
1710 bb9bb814e7c4 showBusy code moved Claus Gittinger <cg@exept.de> parents: 1709 diff changeset	891
3144 772766a2e99e * empty log message * Claus Gittinger <cg@exept.de> parents: 3143 diff changeset	892	acceptAction := [
772766a2e99e * empty log message * Claus Gittinger <cg@exept.de> parents: 3143 diff changeset	893	\|winGrp\|
772766a2e99e * empty log message * Claus Gittinger <cg@exept.de> parents: 3143 diff changeset	894
3189 a2e61ce4a7cb focus handling ca parents: 3187 diff changeset	895	(focusView notNil and:[(winGrp := self windowGroup) notNil]) ifTrue:[
a2e61ce4a7cb focus handling ca parents: 3187 diff changeset	896	winGrp focusView:focusView.
3142 4f1c952048c5 focusView handling ca parents: 3133 diff changeset	897	].
3187 f97f27a9d496 focus handling ca parents: 3158 diff changeset	898	self accept:item index:itemIdx toggle:tgState receiver:recv.
2826 7294e112f2c2 * empty log message * Claus Gittinger <cg@exept.de> parents: 2817 diff changeset	899	].
2050 ef5517d7a2d0 do not destroy myself after accepting (for PopUpList) Claus Gittinger <cg@exept.de> parents: 2048 diff changeset	900
1710 bb9bb814e7c4 showBusy code moved Claus Gittinger <cg@exept.de> parents: 1709 diff changeset	901	(item notNil
bb9bb814e7c4 showBusy code moved Claus Gittinger <cg@exept.de> parents: 1709 diff changeset	902	and:[item showBusyCursorWhilePerforming
bb9bb814e7c4 showBusy code moved Claus Gittinger <cg@exept.de> parents: 1709 diff changeset	903	and:[(winGrp := (masterGroup ? (self windowGroup))) notNil]])
bb9bb814e7c4 showBusy code moved Claus Gittinger <cg@exept.de> parents: 1709 diff changeset	904	ifTrue:[
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	905	winGrp withWaitCursorDo:acceptAction
3144 772766a2e99e * empty log message * Claus Gittinger <cg@exept.de> parents: 3143 diff changeset	906	] ifFalse:[
772766a2e99e * empty log message * Claus Gittinger <cg@exept.de> parents: 3143 diff changeset	907	acceptAction value
772766a2e99e * empty log message * Claus Gittinger <cg@exept.de> parents: 3143 diff changeset	908	].
524 d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	909
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	910	self isPopUpView ifTrue:[
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	911	self menuAdornmentAt:#item put:item.
524 d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	912	].
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	913	^ item.
524 d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	914
3144 772766a2e99e * empty log message * Claus Gittinger <cg@exept.de> parents: 3143 diff changeset	915	"Modified: / 08-11-2006 / 17:14:06 / cg"
524 d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	916	!
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	917
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	918	accept:anItem index:anIndex toggle:aState receiver:aReceiver
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	919	"accept an item"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	920
3558 979876192524 variable renamed Claus Gittinger <cg@exept.de> parents: 3486 diff changeset	921	\|selectorOrBlock argument numArgs isValueModel rec args arg2
1697 345d3664e10c added 'showBusyCursorWhileActive' attribute Claus Gittinger <cg@exept.de> parents: 1695 diff changeset	922	app master fallBack\|
524 d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	923
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	924	anItem isNil ifTrue:[
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	925	self menuAdornmentAt:#hasPerformed put:true.
3735 0c0b4a5e0312 * empty log message * Claus Gittinger <cg@exept.de> parents: 3732 diff changeset	926	^ nil
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	927	].
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	928
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	929	isValueModel := aReceiver isValueModel.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	930
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	931	self menuAdornmentAt:#hasPerformed put:isValueModel.
524 d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	932
3558 979876192524 variable renamed Claus Gittinger <cg@exept.de> parents: 3486 diff changeset	933	(selectorOrBlock := anItem value) isNil ifTrue:[
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	934	^ anIndex
524 d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	935	].
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	936
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	937	(argument := anItem argument) isNil ifTrue:[
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	938	argument := aState ? anItem
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	939	].
524 d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	940
3558 979876192524 variable renamed Claus Gittinger <cg@exept.de> parents: 3486 diff changeset	941	selectorOrBlock isSymbol ifFalse:[
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	942	"/ a valueHolder or block
3558 979876192524 variable renamed Claus Gittinger <cg@exept.de> parents: 3486 diff changeset	943	(selectorOrBlock respondsTo:#valueWithArguments:) ifFalse:[
979876192524 variable renamed Claus Gittinger <cg@exept.de> parents: 3486 diff changeset	944	^ selectorOrBlock
979876192524 variable renamed Claus Gittinger <cg@exept.de> parents: 3486 diff changeset	945	].
979876192524 variable renamed Claus Gittinger <cg@exept.de> parents: 3486 diff changeset	946
979876192524 variable renamed Claus Gittinger <cg@exept.de> parents: 3486 diff changeset	947	numArgs := selectorOrBlock perform:#numArgs ifNotUnderstood:0.
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	948
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	949	numArgs == 0 ifTrue:[
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	950	args := nil
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	951	] ifFalse:[
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	952	numArgs == 1 ifTrue:[
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	953	args := Array with:argument
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	954	] ifFalse:[
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	955	args := Array with:argument with:self
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
3558 979876192524 variable renamed Claus Gittinger <cg@exept.de> parents: 3486 diff changeset	959	selectorOrBlock valueWithArguments:args.
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	960
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	961	self menuAdornmentAt:#hasPerformed put:true.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	962	^ anIndex
524 d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	963	].
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	964
2331 ebd240410703 can now specify if menu action is to be performed by ca parents: 2326 diff changeset	965	anItem sendToOriginator ifTrue:[
2473 6ace3a7234b0 care for nil originator Claus Gittinger <cg@exept.de> parents: 2471 diff changeset	966	rec := self originator.
6ace3a7234b0 care for nil originator Claus Gittinger <cg@exept.de> parents: 2471 diff changeset	967	rec isNil ifTrue:[
2844 e813c02733ea * empty log message * Claus Gittinger <cg@exept.de> parents: 2833 diff changeset	968	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	969	].
2331 ebd240410703 can now specify if menu action is to be performed by ca parents: 2326 diff changeset	970	] ifFalse:[
ebd240410703 can now specify if menu action is to be performed by ca parents: 2326 diff changeset	971	rec := aReceiver
ebd240410703 can now specify if menu action is to be performed by ca parents: 2326 diff changeset	972	].
ebd240410703 can now specify if menu action is to be performed by ca parents: 2326 diff changeset	973
ebd240410703 can now specify if menu action is to be performed by ca parents: 2326 diff changeset	974	rec isNil ifTrue:[
3558 979876192524 variable renamed Claus Gittinger <cg@exept.de> parents: 3486 diff changeset	975	^ selectorOrBlock
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	976	].
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	977
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	978	isValueModel ifTrue:[
3558 979876192524 variable renamed Claus Gittinger <cg@exept.de> parents: 3486 diff changeset	979	rec value:selectorOrBlock
465 67a0f3dd503a in case of performing a selector '0' is returned ca parents: 464 diff changeset	980	] ifFalse:[
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	981	arg2 := self.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	982
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	983	"/ support for ST80 style applications
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	984	"/ (expecting the message to go to the application
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	985	"/ if not understood by the view)
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	986	"/ These expect the controller to be passed as argument.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	987	"/ sigh.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	988
2331 ebd240410703 can now specify if menu action is to be performed by ca parents: 2326 diff changeset	989	(rec isView
3558 979876192524 variable renamed Claus Gittinger <cg@exept.de> parents: 3486 diff changeset	990	and:[(rec respondsTo:selectorOrBlock) not
2331 ebd240410703 can now specify if menu action is to be performed by ca parents: 2326 diff changeset	991	and:[(app := rec application) ~~ rec
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	992	and:[app notNil]]]) ifTrue:[
2331 ebd240410703 can now specify if menu action is to be performed by ca parents: 2326 diff changeset	993	arg2 := rec controller. "/ the Views controller
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	994	rec := app.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	995	].
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	996
3558 979876192524 variable renamed Claus Gittinger <cg@exept.de> parents: 3486 diff changeset	997	(numArgs := selectorOrBlock numArgs) == 0 ifTrue:[
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	998	args := nil
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	999	] ifFalse:[
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1000	numArgs == 1 ifTrue:[
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1001	args := Array with:argument
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1002	] ifFalse:[
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1003	args := Array with:argument with:arg2
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1004	]
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1005	].
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1006
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1007	fallBack :=
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1008	[
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1009	"/ mhmh - the receiver did not respond to that message;
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1010	"/ if there is a master-application, try that one
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1011	"/ (recursive)
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1012	master := rec perform:#masterApplication ifNotUnderstood:nil.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1013	master notNil ifTrue:[
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1014	rec := master.
3558 979876192524 variable renamed Claus Gittinger <cg@exept.de> parents: 3486 diff changeset	1015	rec perform:selectorOrBlock withArguments:args ifNotUnderstood:fallBack
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1016	] ifFalse:[
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1017	self
3558 979876192524 variable renamed Claus Gittinger <cg@exept.de> parents: 3486 diff changeset	1018	error:'unimplemented (or error in) menu message: ' , selectorOrBlock
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1019	mayProceed:true
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1020	].
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1021	].
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1022
3558 979876192524 variable renamed Claus Gittinger <cg@exept.de> parents: 3486 diff changeset	1023	rec perform:selectorOrBlock withArguments:args ifNotUnderstood:fallBack.
420 b6f9fff472ef fixes ca parents: 417 diff changeset	1024	].
524 d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	1025	self menuAdornmentAt:#hasPerformed put:true.
3558 979876192524 variable renamed Claus Gittinger <cg@exept.de> parents: 3486 diff changeset	1026	^ selectorOrBlock
1679 af40842718f6 when accepting, and the application does not respond to that Claus Gittinger <cg@exept.de> parents: 1670 diff changeset	1027
1719 ba7ebb56e6fd recursively try masterApps when performing Claus Gittinger <cg@exept.de> parents: 1715 diff changeset	1028	"Modified: / 19.2.2000 / 11:08:22 / cg"
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	1029	!
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	1030
1670 dbc8a05605e0 add new behavior: hideMenuOnActivated ca parents: 1666 diff changeset	1031	acceptItem:anItem inMenu:aMenu
2199 61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	1032	\|tgState topMenu\|
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	1033
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	1034	topMenu := self topMenu.
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	1035	topMenu openDelayed:nil.
1670 dbc8a05605e0 add new behavior: hideMenuOnActivated ca parents: 1666 diff changeset	1036
1841 5d01716cc37c implement: triggerOnDown ca parents: 1836 diff changeset	1037	(anItem isNil or:[anItem hideMenuOnActivated]) ifTrue:[
2934 b4ec1cbb3302 * empty log message * Claus Gittinger <cg@exept.de> parents: 2926 diff changeset	1038	topMenu accept:anItem
1670 dbc8a05605e0 add new behavior: hideMenuOnActivated ca parents: 1666 diff changeset	1039	] ifFalse:[
2934 b4ec1cbb3302 * empty log message * Claus Gittinger <cg@exept.de> parents: 2926 diff changeset	1040	anItem canAccept ifTrue:[
b4ec1cbb3302 * empty log message * Claus Gittinger <cg@exept.de> parents: 2926 diff changeset	1041	tgState := anItem toggleIndication.
b4ec1cbb3302 * empty log message * Claus Gittinger <cg@exept.de> parents: 2926 diff changeset	1042
b4ec1cbb3302 * empty log message * Claus Gittinger <cg@exept.de> parents: 2926 diff changeset	1043	self accept:anItem
b4ec1cbb3302 * empty log message * Claus Gittinger <cg@exept.de> parents: 2926 diff changeset	1044	index:(aMenu selectionIndex)
b4ec1cbb3302 * empty log message * Claus Gittinger <cg@exept.de> parents: 2926 diff changeset	1045	toggle:tgState
b4ec1cbb3302 * empty log message * Claus Gittinger <cg@exept.de> parents: 2926 diff changeset	1046	receiver:(aMenu receiver).
b4ec1cbb3302 * empty log message * Claus Gittinger <cg@exept.de> parents: 2926 diff changeset	1047
b4ec1cbb3302 * empty log message * Claus Gittinger <cg@exept.de> parents: 2926 diff changeset	1048	aMenu do:[:el\| el updateIndicators].
b4ec1cbb3302 * empty log message * Claus Gittinger <cg@exept.de> parents: 2926 diff changeset	1049	anItem hideMenuOnActivated ifFalse:[
b4ec1cbb3302 * empty log message * Claus Gittinger <cg@exept.de> parents: 2926 diff changeset	1050	aMenu invalidate
b4ec1cbb3302 * empty log message * Claus Gittinger <cg@exept.de> parents: 2926 diff changeset	1051	].
b4ec1cbb3302 * empty log message * Claus Gittinger <cg@exept.de> parents: 2926 diff changeset	1052	]
1670 dbc8a05605e0 add new behavior: hideMenuOnActivated ca parents: 1666 diff changeset	1053	]
dbc8a05605e0 add new behavior: hideMenuOnActivated ca parents: 1666 diff changeset	1054	!
dbc8a05605e0 add new behavior: hideMenuOnActivated ca parents: 1666 diff changeset	1055
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	1056	lastItemAccepted
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1057	"returns last item selected or nil"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1058
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1059	^ self topMenu menuAdornmentAt:#item
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	1060	!
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	1061
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	1062	lastValueAccepted
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1063	"returns last value accepted or nil"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1064
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1065	^ self lastItemAccepted value
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	1066	! !
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	1067
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1068	!MenuPanel methodsFor:'accessing'!
dce33f8bb806 intitial checkin ca parents: diff changeset	1069
dce33f8bb806 intitial checkin ca parents: diff changeset	1070	accessCharacterPositionAt:stringOrNumber
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1071	"get the access character position for a textLabel"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1072
2059 c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	1073	^ self itemAt:stringOrNumber do:[:el\| el accessCharacterPosition ]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1074	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1075
dce33f8bb806 intitial checkin ca parents: diff changeset	1076	accessCharacterPositionAt:stringOrNumber put:anIndexOrNil
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1077	"get the access character position for a textLabel"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1078
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1079	self itemAt:stringOrNumber do:[:el\| el accessCharacterPosition:anIndexOrNil ]
dce33f8bb806 intitial checkin ca parents: diff changeset	1080	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1081
dce33f8bb806 intitial checkin ca parents: diff changeset	1082	accessCharacterPositions
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1083	"returns a collection of accessCharacterPositions or nil"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1084
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1085	^ self collect:[:anItem\| anItem accessCharacterPosition ]
dce33f8bb806 intitial checkin ca parents: diff changeset	1086	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1087
dce33f8bb806 intitial checkin ca parents: diff changeset	1088	accessCharacterPositions:something
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1089	"define accessCharacterPositions for each item"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1090
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1091	self onEachPerform:#accessCharacterPosition: withArgList:something
dce33f8bb806 intitial checkin ca parents: diff changeset	1092	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1093
dce33f8bb806 intitial checkin ca parents: diff changeset	1094	args
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1095	"returns a collection of arguments or nil"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1096
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1097	^ self collect:[:anItem\| anItem argument ]
dce33f8bb806 intitial checkin ca parents: diff changeset	1098	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1099
dce33f8bb806 intitial checkin ca parents: diff changeset	1100	args:something
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1101	"define arguments for each item"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1102
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1103	self onEachPerform:#argument: withArgList:something
dce33f8bb806 intitial checkin ca parents: diff changeset	1104	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1105
dce33f8bb806 intitial checkin ca parents: diff changeset	1106	argsAt:stringOrNumber
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1107	"gets the argument of an item or nil"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1108
2059 c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	1109	^ self itemAt:stringOrNumber do:[:el\| el argument ]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1110	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1111
dce33f8bb806 intitial checkin ca parents: diff changeset	1112	argsAt:stringOrNumber put:anArgument
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1113	"sets the argument of an item"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1114
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1115	self itemAt:stringOrNumber do:[:el\| el argument:anArgument ]
dce33f8bb806 intitial checkin ca parents: diff changeset	1116	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1117
3332 321b83142fc3 changed #doAccessCharacterTranslation Claus Gittinger <cg@exept.de> parents: 3328 diff changeset	1118	doAccessCharacterTranslation
321b83142fc3 changed #doAccessCharacterTranslation Claus Gittinger <cg@exept.de> parents: 3328 diff changeset	1119	"true if &-chars in a label are to be treated as accessCharacter indicators.
321b83142fc3 changed #doAccessCharacterTranslation Claus Gittinger <cg@exept.de> parents: 3328 diff changeset	1120	Can be set to false to leave labels unchanged"
321b83142fc3 changed #doAccessCharacterTranslation Claus Gittinger <cg@exept.de> parents: 3328 diff changeset	1121
321b83142fc3 changed #doAccessCharacterTranslation Claus Gittinger <cg@exept.de> parents: 3328 diff changeset	1122	^ doAccessCharacterTranslation ? true
321b83142fc3 changed #doAccessCharacterTranslation Claus Gittinger <cg@exept.de> parents: 3328 diff changeset	1123	!
321b83142fc3 changed #doAccessCharacterTranslation Claus Gittinger <cg@exept.de> parents: 3328 diff changeset	1124
3328 037d6d506879 no access character translation for the combo-list Claus Gittinger <cg@exept.de> parents: 3321 diff changeset	1125	doAccessCharacterTranslation:aBoolean
037d6d506879 no access character translation for the combo-list Claus Gittinger <cg@exept.de> parents: 3321 diff changeset	1126	"true if &-chars in a label are to be treated as accessCharacter indicators.
037d6d506879 no access character translation for the combo-list Claus Gittinger <cg@exept.de> parents: 3321 diff changeset	1127	Can be set to false to leave labels unchanged"
037d6d506879 no access character translation for the combo-list Claus Gittinger <cg@exept.de> parents: 3321 diff changeset	1128
037d6d506879 no access character translation for the combo-list Claus Gittinger <cg@exept.de> parents: 3321 diff changeset	1129	doAccessCharacterTranslation := aBoolean
037d6d506879 no access character translation for the combo-list Claus Gittinger <cg@exept.de> parents: 3321 diff changeset	1130	!
037d6d506879 no access character translation for the combo-list Claus Gittinger <cg@exept.de> parents: 3321 diff changeset	1131
1081 fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1132	enteredItem
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1133	"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	1134	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	1135
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1136	^ enteredItem
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1137
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1138	"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	1139	!
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1140
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1141	groupSizes
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1142	"gets collection of group sizes"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1143
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1144	^ groupSizes
dce33f8bb806 intitial checkin ca parents: diff changeset	1145	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1146
dce33f8bb806 intitial checkin ca parents: diff changeset	1147	groupSizes:aGroupSizes
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1148	"sets collection of group sizes"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1149
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1150	aGroupSizes = groupSizes ifFalse:[
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1151	groupSizes := aGroupSizes copy.
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1152	self mustRearrange.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1153	].
dce33f8bb806 intitial checkin ca parents: diff changeset	1154	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1155
2731 7382424af8d9 Don't carsh when typing SPACE in PopUpList Stefan Vogel <sv@exept.de> parents: 2729 diff changeset	1156	hideOnRelease
7382424af8d9 Don't carsh when typing SPACE in PopUpList Stefan Vogel <sv@exept.de> parents: 2729 diff changeset	1157	^ hideOnRelease
7382424af8d9 Don't carsh when typing SPACE in PopUpList Stefan Vogel <sv@exept.de> parents: 2729 diff changeset	1158	!
7382424af8d9 Don't carsh when typing SPACE in PopUpList Stefan Vogel <sv@exept.de> parents: 2729 diff changeset	1159
3725 d26ee7a0a8ac oops AEG stuff removed Claus Gittinger <cg@exept.de> parents: 3695 diff changeset	1160	hideOnRelease:aBoolean
d26ee7a0a8ac oops AEG stuff removed Claus Gittinger <cg@exept.de> parents: 3695 diff changeset	1161	hideOnRelease := aBoolean
d26ee7a0a8ac oops AEG stuff removed Claus Gittinger <cg@exept.de> parents: 3695 diff changeset	1162	!
d26ee7a0a8ac oops AEG stuff removed Claus Gittinger <cg@exept.de> parents: 3695 diff changeset	1163
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1164	labelAt:stringOrNumber
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1165	"gets the label of an item or nil"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1166
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1167	^ self itemAt:stringOrNumber do:[:el\| el label ]
dce33f8bb806 intitial checkin ca parents: diff changeset	1168	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1169
dce33f8bb806 intitial checkin ca parents: diff changeset	1170	labelAt:stringOrNumber put:aLabel
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1171	"sets the label of an item"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1172
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1173	self itemAt:stringOrNumber do:[:el\| el label:aLabel ]
dce33f8bb806 intitial checkin ca parents: diff changeset	1174	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1175
dce33f8bb806 intitial checkin ca parents: diff changeset	1176	labels
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1177	"returns a collection of labels's or nil"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1178
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1179	^ self collect:[:anItem\| anItem label ]
dce33f8bb806 intitial checkin ca parents: diff changeset	1180	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1181
dce33f8bb806 intitial checkin ca parents: diff changeset	1182	labels:labels
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1183	"define labels for each item"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1184
2118 89d02ebc5b65 optimize #labels: and #fetchImages in Item. discard block ca parents: 2113 diff changeset	1185	\|size\|
89d02ebc5b65 optimize #labels: and #fetchImages in Item. discard block ca parents: 2113 diff changeset	1186
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1187	self disabledRedrawDo:[
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1188	self removeAll.
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1189	size := labels size.
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1190
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1191	size > 0 ifTrue:[
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1192	items := OrderedCollection new:size.
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1193	labels do:[:aLabel\| items add:(Item in:self label:aLabel) ]
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1194	]
2118 89d02ebc5b65 optimize #labels: and #fetchImages in Item. discard block ca parents: 2113 diff changeset	1195	].
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1196	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1197
1999 56a97236e72d * empty log message * Claus Gittinger <cg@exept.de> parents: 1998 diff changeset	1198	menuPerformer:anObject
56a97236e72d * empty log message * Claus Gittinger <cg@exept.de> parents: 1998 diff changeset	1199	"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	1200	from all submenus no specific receiver is defined )."
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1201
1999 56a97236e72d * empty log message * Claus Gittinger <cg@exept.de> parents: 1998 diff changeset	1202	^ self receiver:anObject
56a97236e72d * empty log message * Claus Gittinger <cg@exept.de> parents: 1998 diff changeset	1203	!
56a97236e72d * empty log message * Claus Gittinger <cg@exept.de> parents: 1998 diff changeset	1204
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1205	nameKeyAt:stringOrNumber
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1206	"gets the nameKey of an item or nil"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1207
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1208	^ self itemAt:stringOrNumber do:[:el\| el nameKey ]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1209	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1210
dce33f8bb806 intitial checkin ca parents: diff changeset	1211	nameKeyAt:stringOrNumber put:aNameKey
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1212	"sets the nameKey of an item"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1213
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1214	self itemAt:stringOrNumber do:[:el\| el nameKey:aNameKey ]
dce33f8bb806 intitial checkin ca parents: diff changeset	1215	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1216
dce33f8bb806 intitial checkin ca parents: diff changeset	1217	nameKeys
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1218	"returns a collection of nameKeyss or nil"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1219
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1220	^ self collect:[:anItem\| anItem nameKey ]
dce33f8bb806 intitial checkin ca parents: diff changeset	1221	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1222
dce33f8bb806 intitial checkin ca parents: diff changeset	1223	nameKeys:something
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1224	"define nameKeys for each item"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1225
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1226	self onEachPerform:#nameKey: withArgList:something
dce33f8bb806 intitial checkin ca parents: diff changeset	1227	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1228
dce33f8bb806 intitial checkin ca parents: diff changeset	1229	numberOfItems
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1230	"gets number of items"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1231
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1232	^ items size
dce33f8bb806 intitial checkin ca parents: diff changeset	1233	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1234
2331 ebd240410703 can now specify if menu action is to be performed by ca parents: 2326 diff changeset	1235	originator
ebd240410703 can now specify if menu action is to be performed by ca parents: 2326 diff changeset	1236	originator notNil ifTrue:[^ originator].
ebd240410703 can now specify if menu action is to be performed by ca parents: 2326 diff changeset	1237	superMenu notNil ifTrue:[
ebd240410703 can now specify if menu action is to be performed by ca parents: 2326 diff changeset	1238	^ superMenu originator
ebd240410703 can now specify if menu action is to be performed by ca parents: 2326 diff changeset	1239	].
ebd240410703 can now specify if menu action is to be performed by ca parents: 2326 diff changeset	1240	^ nil
ebd240410703 can now specify if menu action is to be performed by ca parents: 2326 diff changeset	1241	!
ebd240410703 can now specify if menu action is to be performed by ca parents: 2326 diff changeset	1242
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1243	receiver
dce33f8bb806 intitial checkin ca parents: diff changeset	1244	"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	1245	from all submenus no specific receiver is defined )."
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1246
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	1247	(receiver isNil and:[superMenu notNil]) ifTrue:[
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1248	^ superMenu receiver
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1249	].
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	1250	^ receiver
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1251	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1252
dce33f8bb806 intitial checkin ca parents: diff changeset	1253	receiver:anObject
dce33f8bb806 intitial checkin ca parents: diff changeset	1254	"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	1255	from all submenus no specific receiver is defined )."
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1256
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	1257	receiver := anObject
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1258	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1259
dce33f8bb806 intitial checkin ca parents: diff changeset	1260	shortcutKeyAt:stringOrNumber
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1261	"gets the shortCutKey of an item or nil"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1262
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1263	^ self itemAt:stringOrNumber do:[:el\| el shortcutKey ]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1264	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1265
dce33f8bb806 intitial checkin ca parents: diff changeset	1266	shortcutKeyAt:stringOrNumber put:aKey
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1267	"sets the shortCutKey of an item"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1268
1889 43516e4588ce give warning messages for unimplemented menu-aspects Claus Gittinger <cg@exept.de> parents: 1878 diff changeset	1269	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	1270	!
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1271
dce33f8bb806 intitial checkin ca parents: diff changeset	1272	shortcutKeys
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1273	"returns a collection of shortcutKeys or nil"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1274
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1275	^ self collect:[:anItem\| anItem shortcutKey ]
dce33f8bb806 intitial checkin ca parents: diff changeset	1276	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1277
dce33f8bb806 intitial checkin ca parents: diff changeset	1278	shortcutKeys:something
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1279	"define shortcutKeys for each item"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1280
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1281	self onEachPerform:#shortcutKey: withArgList:something
dce33f8bb806 intitial checkin ca parents: diff changeset	1282	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1283
dce33f8bb806 intitial checkin ca parents: diff changeset	1284	valueAt:stringOrNumber
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1285	"gets value of an item; a block, valueHolder, ..."
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1286
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1287	^ self itemAt:stringOrNumber do:[:el\| el value ]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1288	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1289
dce33f8bb806 intitial checkin ca parents: diff changeset	1290	valueAt:stringOrNumber put:someThing
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1291	"sets value of an item; a block, valueHolder, ..."
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1292
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1293	self itemAt:stringOrNumber do:[:el\| el value:someThing ]
dce33f8bb806 intitial checkin ca parents: diff changeset	1294	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1295
dce33f8bb806 intitial checkin ca parents: diff changeset	1296	values:something
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1297	"define values for each item"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1298
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1299	self onEachPerform:#value: withArgList:something
dce33f8bb806 intitial checkin ca parents: diff changeset	1300	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	1301
1679 af40842718f6 when accepting, and the application does not respond to that Claus Gittinger <cg@exept.de> parents: 1670 diff changeset	1302	!MenuPanel methodsFor:'accessing-behavior'!
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1303
dce33f8bb806 intitial checkin ca parents: diff changeset	1304	disableAll
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1305	"disable all items; not the menu in case of enabled"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1306
498 b4c341497621 bug fixes: ca parents: 475 diff changeset	1307	self do:[:anItem\| anItem enabled:false]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1308	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1309
dce33f8bb806 intitial checkin ca parents: diff changeset	1310	disableAll:collectionOfIndicesOrNames
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1311	"disable an collection of items"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1312
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1313	collectionOfIndicesOrNames do:[:entry\| self enabledAt:entry put:false ].
dce33f8bb806 intitial checkin ca parents: diff changeset	1314	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1315
dce33f8bb806 intitial checkin ca parents: diff changeset	1316	enableAll
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1317	"enable all items; not the menu in case of disabled"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1318
498 b4c341497621 bug fixes: ca parents: 475 diff changeset	1319	self do:[:anItem\| anItem enabled:true]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1320	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1321
dce33f8bb806 intitial checkin ca parents: diff changeset	1322	enableAll:collectionOfIndicesOrNames
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1323	"enable an collection of items"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1324
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1325	collectionOfIndicesOrNames do:[:entry\| self enabledAt:entry put:true ].
dce33f8bb806 intitial checkin ca parents: diff changeset	1326	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1327
dce33f8bb806 intitial checkin ca parents: diff changeset	1328	enabled
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1329	"returns enabled state"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1330
498 b4c341497621 bug fixes: ca parents: 475 diff changeset	1331	^ enabled
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1332	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1333
dce33f8bb806 intitial checkin ca parents: diff changeset	1334	enabled:aState
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1335	"change enabled state of menu"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1336
545 d01d14358b07 * empty log message * Claus Gittinger <cg@exept.de> parents: 524 diff changeset	1337	\|state\|
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	state := aState ? true.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1340
1690 38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	1341	enabled ~~ state ifTrue:[
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1342	enabled := state.
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1343	self invalidate.
498 b4c341497621 bug fixes: ca parents: 475 diff changeset	1344	].
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1345	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1346
dce33f8bb806 intitial checkin ca parents: diff changeset	1347	enabledAt:stringOrNumber
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1348	"gets the enabled state of an item or false"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1349
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1350	^ self itemAt:stringOrNumber do:[:el\| el enabled ] ifAbsent:false
dce33f8bb806 intitial checkin ca parents: diff changeset	1351	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1352
dce33f8bb806 intitial checkin ca parents: diff changeset	1353	enabledAt:stringOrNumber put:aState
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1354	"sets the enabled state of an item"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1355
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1356	self itemAt:stringOrNumber do:[:el\| el enabled:aState ]
dce33f8bb806 intitial checkin ca parents: diff changeset	1357	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1358
3725 d26ee7a0a8ac oops AEG stuff removed Claus Gittinger <cg@exept.de> parents: 3695 diff changeset	1359	exclusivePointer:aBoolean
d26ee7a0a8ac oops AEG stuff removed Claus Gittinger <cg@exept.de> parents: 3695 diff changeset	1360	"Do nothing here. Compatibility with PopUpListController"
d26ee7a0a8ac oops AEG stuff removed Claus Gittinger <cg@exept.de> parents: 3695 diff changeset	1361
d26ee7a0a8ac oops AEG stuff removed Claus Gittinger <cg@exept.de> parents: 3695 diff changeset	1362	^ self
d26ee7a0a8ac oops AEG stuff removed Claus Gittinger <cg@exept.de> parents: 3695 diff changeset	1363	!
d26ee7a0a8ac oops AEG stuff removed Claus Gittinger <cg@exept.de> parents: 3695 diff changeset	1364
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1365	isEnabled:stringOrNumber
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1366	"gets the enabled state of an item or false"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1367
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1368	^ self enabledAt:stringOrNumber
dce33f8bb806 intitial checkin ca parents: diff changeset	1369	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	1370
1679 af40842718f6 when accepting, and the application does not respond to that Claus Gittinger <cg@exept.de> parents: 1670 diff changeset	1371	!MenuPanel methodsFor:'accessing-channels'!
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	1372
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	1373	enableChannel:aValueHolder
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1374	"set my enableChannel"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1375
498 b4c341497621 bug fixes: ca parents: 475 diff changeset	1376	enableChannel notNil ifTrue:[
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1377	enableChannel removeDependent:self
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	1378	].
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	1379
498 b4c341497621 bug fixes: ca parents: 475 diff changeset	1380	(enableChannel := aValueHolder) notNil ifTrue:[
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1381	enableChannel addDependent:self.
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	1382	].
498 b4c341497621 bug fixes: ca parents: 475 diff changeset	1383	self enabled:(enableChannel value).
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	1384	!
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	1385
3222 828febe4d844 use decodeFromLiteralArray Claus Gittinger <cg@exept.de> parents: 3206 diff changeset	1386	menuChannel
828febe4d844 use decodeFromLiteralArray Claus Gittinger <cg@exept.de> parents: 3206 diff changeset	1387	^ self menuHolder
828febe4d844 use decodeFromLiteralArray Claus Gittinger <cg@exept.de> parents: 3206 diff changeset	1388
828febe4d844 use decodeFromLiteralArray Claus Gittinger <cg@exept.de> parents: 3206 diff changeset	1389	"Created: / 27-03-2007 / 08:38:31 / cg"
828febe4d844 use decodeFromLiteralArray Claus Gittinger <cg@exept.de> parents: 3206 diff changeset	1390	!
828febe4d844 use decodeFromLiteralArray Claus Gittinger <cg@exept.de> parents: 3206 diff changeset	1391
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	1392	menuHolder:aValueHolder
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1393	"set my menuHolder"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1394
498 b4c341497621 bug fixes: ca parents: 475 diff changeset	1395	menuHolder notNil ifTrue:[
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1396	menuHolder removeDependent:self
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	1397	].
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	1398
498 b4c341497621 bug fixes: ca parents: 475 diff changeset	1399	(menuHolder := aValueHolder) notNil ifTrue:[
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1400	menuHolder addDependent:self.
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	1401	].
498 b4c341497621 bug fixes: ca parents: 475 diff changeset	1402	self menu:(menuHolder value)
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	1403	! !
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	1404
1679 af40842718f6 when accepting, and the application does not respond to that Claus Gittinger <cg@exept.de> parents: 1670 diff changeset	1405	!MenuPanel methodsFor:'accessing-color & font'!
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1406
616 a6157b083830 support of different styles ca parents: 608 diff changeset	1407	activeBackgroundColor
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1408	"get the background drawing color used to highlight selection"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1409
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1410	^ styleSheet colorAt:#'menuPanel.activeBackgroundColor'
616 a6157b083830 support of different styles ca parents: 608 diff changeset	1411	!
a6157b083830 support of different styles ca parents: 608 diff changeset	1412
a6157b083830 support of different styles ca parents: 608 diff changeset	1413	activeForegroundColor
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1414	"get the foreground color used to highlight selections"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1415
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1416	^ styleSheet colorAt:#'menuPanel.activeForegroundColor'
616 a6157b083830 support of different styles ca parents: 608 diff changeset	1417	!
a6157b083830 support of different styles ca parents: 608 diff changeset	1418
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1419	backgroundColor
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1420	"return the background color"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1421
502 dedc1b29b6ac support of arguments ca parents: 498 diff changeset	1422	^ super viewBackground
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1423	!
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1424
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1425	backgroundColor:aColor
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1426	"set the background drawing color. You should not use this method;
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1427	instead, leave the value as defined in the styleSheet."
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1428
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1429	self backgroundColor ~~ aColor ifTrue:[
2659 3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	1430	super viewBackground:aColor.
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	1431	self invalidate "/ RepairNow:true
616 a6157b083830 support of different styles ca parents: 608 diff changeset	1432	]
a6157b083830 support of different styles ca parents: 608 diff changeset	1433
911 6b1ad8b039c5 no, repairNow should not be needed here Claus Gittinger <cg@exept.de> parents: 910 diff changeset	1434	"Modified: / 6.6.1998 / 19:50:06 / cg"
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1435	!
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1436
727 3ba54333342a button style from style sheet tz parents: 723 diff changeset	1437	buttonActiveBackgroundColor
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1438	"get the background drawing color used to highlight button selection"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1439
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1440	^ styleSheet colorAt:#'button.activeBackgroundColor'
93426020ceed * empty log message * ca parents: 2216 diff changeset	1441	default:(self viewBackground)
727 3ba54333342a button style from style sheet tz parents: 723 diff changeset	1442	!
3ba54333342a button style from style sheet tz parents: 723 diff changeset	1443
3441 b19a4c77490e flyby help fixed Claus Gittinger <cg@exept.de> parents: 3431 diff changeset	1444	buttonActiveForegroundColor
b19a4c77490e flyby help fixed Claus Gittinger <cg@exept.de> parents: 3431 diff changeset	1445	"get the foreground drawing color used to highlight button selection"
b19a4c77490e flyby help fixed Claus Gittinger <cg@exept.de> parents: 3431 diff changeset	1446
b19a4c77490e flyby help fixed Claus Gittinger <cg@exept.de> parents: 3431 diff changeset	1447	^ styleSheet colorAt:#'button.activeForegroundColor'
b19a4c77490e flyby help fixed Claus Gittinger <cg@exept.de> parents: 3431 diff changeset	1448	default:(self foregroundColor)
b19a4c77490e flyby help fixed Claus Gittinger <cg@exept.de> parents: 3431 diff changeset	1449	!
b19a4c77490e flyby help fixed Claus Gittinger <cg@exept.de> parents: 3431 diff changeset	1450
730 9e45051a4fbd better button draw routine + style sheet support tz parents: 729 diff changeset	1451	buttonEdgeStyle
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1452	"get the button edge style"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1453
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1454	^ styleSheet at:#'button.edgeStyle'
730 9e45051a4fbd better button draw routine + style sheet support tz parents: 729 diff changeset	1455	!
9e45051a4fbd better button draw routine + style sheet support tz parents: 729 diff changeset	1456
1081 fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1457	buttonEnteredBackgroundColor
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1458	"get the background drawing color used to highlight entered button items"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1459
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1460	^ styleSheet colorAt:#'menuPanel.buttonEnteredBackgroundColor'
1081 fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1461	!
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1462
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1463	buttonEnteredLevel
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1464	"get the 3D-level used to highlight entered button items"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1465
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1466	^ styleSheet at:#'menuPanel.buttonEnteredLevel'
1081 fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1467	!
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1468
730 9e45051a4fbd better button draw routine + style sheet support tz parents: 729 diff changeset	1469	buttonHalfLightColor
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1470	"get the background drawing color used to half light button frame"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1471
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1472	^ styleSheet colorAt:#'button.halfLightColor'
730 9e45051a4fbd better button draw routine + style sheet support tz parents: 729 diff changeset	1473	!
9e45051a4fbd better button draw routine + style sheet support tz parents: 729 diff changeset	1474
9e45051a4fbd better button draw routine + style sheet support tz parents: 729 diff changeset	1475	buttonHalfShadowColor
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1476	"get the background drawing color used to half shadow button frame"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1477
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1478	^ styleSheet colorAt:#'button.halfShadowColor'
727 3ba54333342a button style from style sheet tz parents: 723 diff changeset	1479	!
3ba54333342a button style from style sheet tz parents: 723 diff changeset	1480
3ba54333342a button style from style sheet tz parents: 723 diff changeset	1481	buttonLightColor
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1482	"get the background drawing color used to light button frame"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1483
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1484	^ styleSheet colorAt:#'menuPanel.buttonLightColor'
727 3ba54333342a button style from style sheet tz parents: 723 diff changeset	1485	!
3ba54333342a button style from style sheet tz parents: 723 diff changeset	1486
3ba54333342a button style from style sheet tz parents: 723 diff changeset	1487	buttonPassiveBackgroundColor
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1488	"get the background drawing color used for button"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1489
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1490	^ styleSheet colorAt:#'menuPanel.buttonPassiveBackgroundColor'
727 3ba54333342a button style from style sheet tz parents: 723 diff changeset	1491	!
3ba54333342a button style from style sheet tz parents: 723 diff changeset	1492
3ba54333342a button style from style sheet tz parents: 723 diff changeset	1493	buttonShadowColor
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1494	"get the background drawing color used to shadow button frame"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1495
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1496	^ styleSheet colorAt:#'menuPanel.buttonShadowColor'
2059 c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	1497	!
c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	1498
c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	1499	disabledEtchedForegroundColor
c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	1500	"return the color used for etching disabled items.
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1501	If nil, no 3D effect is drawn."
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1502
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1503	^ styleSheet colorAt:#'menuPanel.disabledEtchedFgColor'
727 3ba54333342a button style from style sheet tz parents: 723 diff changeset	1504	!
3ba54333342a button style from style sheet tz parents: 723 diff changeset	1505
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1506	disabledForegroundColor
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1507	"return the foreground color used by disabled items"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1508
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1509	^ styleSheet colorAt:#'menuPanel.disabledForegroundColor'
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1510	!
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1511
2170 e76171113581 enteredFG / enteredBG Claus Gittinger <cg@exept.de> parents: 2166 diff changeset	1512	enteredBackgroundColor
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1513	"return the background color for entered items"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1514
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1515	^ styleSheet colorAt:#'menu.enteredBackgroundColor'
93426020ceed * empty log message * ca parents: 2216 diff changeset	1516	default:(self backgroundColor)
2170 e76171113581 enteredFG / enteredBG Claus Gittinger <cg@exept.de> parents: 2166 diff changeset	1517	!
e76171113581 enteredFG / enteredBG Claus Gittinger <cg@exept.de> parents: 2166 diff changeset	1518
e76171113581 enteredFG / enteredBG Claus Gittinger <cg@exept.de> parents: 2166 diff changeset	1519	enteredForegroundColor
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1520	"return the foreground color for entered items"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1521
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1522	^ styleSheet colorAt:#'menu.enteredForegroundColor' default:fgColor
2170 e76171113581 enteredFG / enteredBG Claus Gittinger <cg@exept.de> parents: 2166 diff changeset	1523	!
e76171113581 enteredFG / enteredBG Claus Gittinger <cg@exept.de> parents: 2166 diff changeset	1524
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1525	font:aFont
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1526	"set the font"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1527
2614 86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	1528	(aFont isNil or:[aFont = font]) ifTrue:[ ^ self ].
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	1529
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	1530	super font:aFont.
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	1531	self do:[:anItem\| anItem fontChanged ].
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	1532
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	1533	(shown and:[superMenu notNil]) ifTrue:[
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	1534	self extent:(self preferredExtent)
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	1535	].
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	1536	self mustRearrange.
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1537	!
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1538
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1539	foregroundColor
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1540	"return the passive foreground color"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1541
2059 c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	1542	^ fgColor
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1543	!
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1544
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1545	foregroundColor:aColor
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1546	"set the foregroundColor drawing color. You should not use this method;
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1547	instead leave the value as defined in the styleSheet."
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1548
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1549	aColor ~= fgColor ifTrue:[
1478 38f08dec8e34 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	1550	fgColor := aColor onDevice:device.
2659 3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	1551	self invalidate
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1552	].
580 249f6cfc5bb2 checkin from browser Claus Gittinger <cg@exept.de> parents: 571 diff changeset	1553	!
249f6cfc5bb2 checkin from browser Claus Gittinger <cg@exept.de> parents: 571 diff changeset	1554
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1555	maxAbsoluteButtonLevel
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1556	"returns the maximum absolute button level; used to compute the preferred
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1557	extent of a button"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1558
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1559	^ styleSheet at:#'menuPanel.maxAbsoluteButtonLevel'
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1560	!
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1561
730 9e45051a4fbd better button draw routine + style sheet support tz parents: 729 diff changeset	1562	selectionFrameBrightColor
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1563	"get the selection frame bright color"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1564
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1565	^ Color white
730 9e45051a4fbd better button draw routine + style sheet support tz parents: 729 diff changeset	1566	!
9e45051a4fbd better button draw routine + style sheet support tz parents: 729 diff changeset	1567
9e45051a4fbd better button draw routine + style sheet support tz parents: 729 diff changeset	1568	selectionFrameDarkColor
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1569	"get the selection frame dark color"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1570
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1571	^ Color black
730 9e45051a4fbd better button draw routine + style sheet support tz parents: 729 diff changeset	1572	!
9e45051a4fbd better button draw routine + style sheet support tz parents: 729 diff changeset	1573
1727 a6365337be59 support setting font in MenuPanel and Editor ca parents: 1726 diff changeset	1574	setFont:aFont
2485 b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	1575	"set the font if the argument is nonNil;
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	1576	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	1577
1727 a6365337be59 support setting font in MenuPanel and Editor ca parents: 1726 diff changeset	1578	\|currentFont\|
a6365337be59 support setting font in MenuPanel and Editor ca parents: 1726 diff changeset	1579
a6365337be59 support setting font in MenuPanel and Editor ca parents: 1726 diff changeset	1580	(aFont notNil and:[aFont ~= font]) ifTrue:[
2485 b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	1581	currentFont := font.
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	1582	super font:aFont.
1727 a6365337be59 support setting font in MenuPanel and Editor ca parents: 1726 diff changeset	1583	].
a6365337be59 support setting font in MenuPanel and Editor ca parents: 1726 diff changeset	1584	^ currentFont
2761 611ecd331c14 more xp style Claus Gittinger <cg@exept.de> parents: 2755 diff changeset	1585	!
611ecd331c14 more xp style Claus Gittinger <cg@exept.de> parents: 2755 diff changeset	1586
611ecd331c14 more xp style Claus Gittinger <cg@exept.de> parents: 2755 diff changeset	1587	viewBackground:aColor
611ecd331c14 more xp style Claus Gittinger <cg@exept.de> parents: 2755 diff changeset	1588	super viewBackground:aColor
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1589	! !
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1590
1679 af40842718f6 when accepting, and the application does not respond to that Claus Gittinger <cg@exept.de> parents: 1670 diff changeset	1591	!MenuPanel methodsFor:'accessing-dimensions'!
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1592
dce33f8bb806 intitial checkin ca parents: diff changeset	1593	height
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1594	"default height"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1595
3334 50374a42b3d9 use accessors for hiddenOnrealize and explicitExtent Claus Gittinger <cg@exept.de> parents: 3332 diff changeset	1596	(self hasExplicitExtent not) ifTrue:[
3421 de7368c2dd11 added preferredWidth & preferredHeight Claus Gittinger <cg@exept.de> parents: 3415 diff changeset	1597	^ self preferredHeight
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1598	].
dce33f8bb806 intitial checkin ca parents: diff changeset	1599	^ super height
dce33f8bb806 intitial checkin ca parents: diff changeset	1600	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1601
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	1602	maxExtent
2729 d28bc8243494 Do not set maxExtent (to the Screen size) in StandartSystemView. Stefan Vogel <sv@exept.de> parents: 2715 diff changeset	1603
d28bc8243494 Do not set maxExtent (to the Screen size) in StandartSystemView. Stefan Vogel <sv@exept.de> parents: 2715 diff changeset	1604	device notNil ifTrue:[
d28bc8243494 Do not set maxExtent (to the Screen size) in StandartSystemView. Stefan Vogel <sv@exept.de> parents: 2715 diff changeset	1605	^ device usableExtent - 2.
d28bc8243494 Do not set maxExtent (to the Screen size) in StandartSystemView. Stefan Vogel <sv@exept.de> parents: 2715 diff changeset	1606	].
d28bc8243494 Do not set maxExtent (to the Screen size) in StandartSystemView. Stefan Vogel <sv@exept.de> parents: 2715 diff changeset	1607	superMenu notNil ifTrue:[
d28bc8243494 Do not set maxExtent (to the Screen size) in StandartSystemView. Stefan Vogel <sv@exept.de> parents: 2715 diff changeset	1608	^ superMenu maxExtent
d28bc8243494 Do not set maxExtent (to the Screen size) in StandartSystemView. Stefan Vogel <sv@exept.de> parents: 2715 diff changeset	1609	].
d28bc8243494 Do not set maxExtent (to the Screen size) in StandartSystemView. Stefan Vogel <sv@exept.de> parents: 2715 diff changeset	1610	"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	1611	self error:'don''t know maxExtent'.
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	1612	!
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	1613
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1614	preferredExtent
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1615	"compute and returns my preferred extent"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1616
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1617	\|maxExtent usedExtent\|
2024 1214769c0441 + #preferredWidth: Claus Gittinger <cg@exept.de> parents: 2020 diff changeset	1618
3580 e9fe446dc779 changed #preferredExtent - use explicitExtent instvar Stefan Vogel <sv@exept.de> parents: 3565 diff changeset	1619	"/ If I have an explicit preferredExtent..
e9fe446dc779 changed #preferredExtent - use explicitExtent instvar Stefan Vogel <sv@exept.de> parents: 3565 diff changeset	1620	explicitExtent notNil ifTrue:[
e9fe446dc779 changed #preferredExtent - use explicitExtent instvar Stefan Vogel <sv@exept.de> parents: 3565 diff changeset	1621	^ explicitExtent
e9fe446dc779 changed #preferredExtent - use explicitExtent instvar Stefan Vogel <sv@exept.de> parents: 3565 diff changeset	1622	].
e9fe446dc779 changed #preferredExtent - use explicitExtent instvar Stefan Vogel <sv@exept.de> parents: 3565 diff changeset	1623
e9fe446dc779 changed #preferredExtent - use explicitExtent instvar Stefan Vogel <sv@exept.de> parents: 3565 diff changeset	1624	"/ If I have a cached preferredExtent value..
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	1625	preferredExtent notNil ifTrue:[
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1626	^ preferredExtent
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	1627	].
2024 1214769c0441 + #preferredWidth: Claus Gittinger <cg@exept.de> parents: 2020 diff changeset	1628	usedExtent := self preferredExtentOfItems.
1214769c0441 + #preferredWidth: Claus Gittinger <cg@exept.de> parents: 2020 diff changeset	1629
1214769c0441 + #preferredWidth: Claus Gittinger <cg@exept.de> parents: 2020 diff changeset	1630	superView isNil ifTrue:[
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1631	"/ is standalone
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	1632	preferredWidth notNil ifTrue:[
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1633	usedExtent x < preferredWidth ifTrue:[
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1634	usedExtent := preferredWidth @ usedExtent y.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1635	]
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1636	]
2024 1214769c0441 + #preferredWidth: Claus Gittinger <cg@exept.de> parents: 2020 diff changeset	1637	].
1214769c0441 + #preferredWidth: Claus Gittinger <cg@exept.de> parents: 2020 diff changeset	1638
2729 d28bc8243494 Do not set maxExtent (to the Screen size) in StandartSystemView. Stefan Vogel <sv@exept.de> parents: 2715 diff changeset	1639	maxExtent := self maxExtent.
d28bc8243494 Do not set maxExtent (to the Screen size) in StandartSystemView. Stefan Vogel <sv@exept.de> parents: 2715 diff changeset	1640	maxExtent notNil ifTrue:[
d28bc8243494 Do not set maxExtent (to the Screen size) in StandartSystemView. Stefan Vogel <sv@exept.de> parents: 2715 diff changeset	1641	usedExtent := usedExtent min:maxExtent.
d28bc8243494 Do not set maxExtent (to the Screen size) in StandartSystemView. Stefan Vogel <sv@exept.de> parents: 2715 diff changeset	1642	].
d28bc8243494 Do not set maxExtent (to the Screen size) in StandartSystemView. Stefan Vogel <sv@exept.de> parents: 2715 diff changeset	1643	^ usedExtent
2024 1214769c0441 + #preferredWidth: Claus Gittinger <cg@exept.de> parents: 2020 diff changeset	1644
1214769c0441 + #preferredWidth: Claus Gittinger <cg@exept.de> parents: 2020 diff changeset	1645	"Modified: / 10.10.2001 / 14:57:25 / cg"
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	1646	!
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	1647
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	1648	preferredExtentOfItems
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	1649	"compute and returns my preferred extent including all items
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1650	!!!!!! changes have influence on method #rearrangeItems !!!!!!"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1651
1707 4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	1652	\|hasMenu shCtKey extent showAcc sck
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1653	x "{ Class:SmallInteger }"
93426020ceed * empty log message * ca parents: 2216 diff changeset	1654	y "{ Class:SmallInteger }"
93426020ceed * empty log message * ca parents: 2216 diff changeset	1655	size "{ Class:SmallInteger }"
2883 58f2f296254d defaults Claus Gittinger <cg@exept.de> parents: 2877 diff changeset	1656	buttonInsetX2 "{ Class:SmallInteger }"
58f2f296254d defaults Claus Gittinger <cg@exept.de> parents: 2877 diff changeset	1657	buttonInsetY2 "{ Class:SmallInteger }"
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1658	labelInsetX "{ Class:SmallInteger }"
93426020ceed * empty log message * ca parents: 2216 diff changeset	1659	labelInsetY "{ Class:SmallInteger }"
93426020ceed * empty log message * ca parents: 2216 diff changeset	1660	itemMargin "{ Class:SmallInteger }"
93426020ceed * empty log message * ca parents: 2216 diff changeset	1661	groupDividerSize "{ Class:SmallInteger }"
1690 38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	1662	\|
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1663
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1664	(size := items size) == 0 ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1665	self isViewWrapper ifTrue:[ ^ subViews first extent ].
2433 49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	1666	^ 32 @ 32
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1667	].
3131 611b833f2ac9 * empty log message * ca parents: 3128 diff changeset	1668	stringOffsetX := nil.
2883 58f2f296254d defaults Claus Gittinger <cg@exept.de> parents: 2877 diff changeset	1669	buttonInsetX2 := 2 * buttonInsetX.
58f2f296254d defaults Claus Gittinger <cg@exept.de> parents: 2877 diff changeset	1670	buttonInsetY2 := 2 * buttonInsetY.
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1671
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1672	self isPopUpView ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1673	labelInsetX := labelInsetY := 2 * (self enteredLevel abs).
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1674	] ifTrue:[
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	1675	labelInsetX := labelInsetY := 0.
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1676	].
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1677
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1678	x := 0.
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1679	y := 0.
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1680	groupDividerSize := self groupDividerSize.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1681
dce33f8bb806 intitial checkin ca parents: diff changeset	1682	self verticalLayout ifFalse:[
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1683	items keysAndValuesDo:[:key :el\| \|eX eY\|
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1684	extent := el preferredExtent.
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1685
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1686	"/ check for visibility (extent x ~~ 0)
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1687	(eX := extent x) ~~ 0 ifTrue:[
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1688	eY := extent y.
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1689
1472 fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	1690	el isButton ifTrue:[
2883 58f2f296254d defaults Claus Gittinger <cg@exept.de> parents: 2877 diff changeset	1691	eX := eX + buttonInsetX2.
58f2f296254d defaults Claus Gittinger <cg@exept.de> parents: 2877 diff changeset	1692	eY := eY + buttonInsetY2.
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1693	] ifFalse:[
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	1694	eX := eX + labelInsetX.
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	1695	eY := eY + labelInsetY.
1472 fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	1696	].
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1697	key ~~ size ifTrue:[
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1698	(self hasGroupDividerAt:key) ifTrue:[
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1699	x := x + groupDividerSize
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1700	] ifFalse:[
2433 49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	1701	el needsItemSpaceWhenDrawing ifTrue:[
1723 f633725a0ace use itemSpace only for horizontal menus and between labeled items ca parents: 1719 diff changeset	1702	x := x + itemSpace
f633725a0ace use itemSpace only for horizontal menus and between labeled items ca parents: 1719 diff changeset	1703	]
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1704	]
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1705	].
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1706	x := eX + x.
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1707	y := eY max:y.
1472 fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	1708	]
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1709	]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1710	] ifTrue:[
1472 fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	1711	hasMenu := false.
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	1712	shCtKey := 0.
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1713	showAcc := MenuView showAcceleratorKeys == true.
1472 fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	1714	y := x.
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	1715	x := 0.
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1716	itemMargin := 2 * self itemMargin.
1472 fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	1717
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1718	items keysAndValuesDo:[:key :el\| \|eX eY\|
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1719	extent := el preferredExtent.
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1720
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1721	"/ check for visibility (extent x ~~ 0)
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1722	(eX := extent x) ~~ 0 ifTrue:[
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1723	eY := extent y.
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1724
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1725	el isButton ifTrue:[
2883 58f2f296254d defaults Claus Gittinger <cg@exept.de> parents: 2877 diff changeset	1726	eX := eX + buttonInsetX2.
58f2f296254d defaults Claus Gittinger <cg@exept.de> parents: 2877 diff changeset	1727	eY := eY + buttonInsetY2.
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1728	] ifFalse:[
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	1729	eX := eX + labelInsetX.
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	1730	eY := eY + labelInsetY.
1472 fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	1731	].
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1732	hasMenu ifFalse:[
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1733	hasMenu := el hasSubmenu
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1734	].
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1735	(showAcc and:[(sck := el shortcutKeyAsString) notNil]) ifTrue:[
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1736	shCtKey := shCtKey max:(sck widthOn:self)
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1737	].
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1738	key ~~ size ifTrue:[
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1739	(self hasGroupDividerAt:key) ifTrue:[
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1740	y := y + groupDividerSize
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1741	]
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1742	].
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1743	y := eY + y.
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1744	x := eX max:x.
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1745	].
1472 fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	1746	].
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1747	x := x + itemMargin.
1472 fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	1748
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	1749	(hasMenu or:[shCtKey ~~ 0]) ifTrue:[
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	1750	shortKeyInset := x + Item labelRightOffset.
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	1751	x := shortKeyInset + shCtKey + self subMenuIndicationWidth.
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	1752
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	1753	(shCtKey ~~ 0 and:[hasMenu]) ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1754	x := x + self shortcutKeyOffset.
1472 fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	1755	]
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	1756	].
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1757	"/ to have a small inset
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1758	y := y + 1.
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1759	"/ x := x + 1.
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1760	].
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1761	x := x + margin + margin.
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1762	y := y + margin + margin.
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1763
2433 49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	1764	^ x @ y
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1765	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1766
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1767	preferredWidth:aWidthOrNil
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1768	"used for example by combo box to setup the preferred width for the popup menu.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1769	If nil (default), the width is computed from the contained items.
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1770	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	1771
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1772	preferredWidth := aWidthOrNil.
2024 1214769c0441 + #preferredWidth: Claus Gittinger <cg@exept.de> parents: 2020 diff changeset	1773	!
1214769c0441 + #preferredWidth: Claus Gittinger <cg@exept.de> parents: 2020 diff changeset	1774
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1775	shortKeyInset
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1776	"left inset of shortcutKey"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1777
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1778	^ shortKeyInset
616 a6157b083830 support of different styles ca parents: 608 diff changeset	1779	!
a6157b083830 support of different styles ca parents: 608 diff changeset	1780
3131 611b833f2ac9 * empty log message * ca parents: 3128 diff changeset	1781	stringOffsetXfor:anItem
611b833f2ac9 * empty log message * ca parents: 3128 diff changeset	1782	"return the x offset for a MenuItem where to draw the text
611b833f2ac9 * empty log message * ca parents: 3128 diff changeset	1783	"
611b833f2ac9 * empty log message * ca parents: 3128 diff changeset	1784	\|label w\|
611b833f2ac9 * empty log message * ca parents: 3128 diff changeset	1785
611b833f2ac9 * empty log message * ca parents: 3128 diff changeset	1786	anItem isButton ifTrue:[ ^ 0 ].
611b833f2ac9 * empty log message * ca parents: 3128 diff changeset	1787
611b833f2ac9 * empty log message * ca parents: 3128 diff changeset	1788	stringOffsetX isNil ifTrue:[
611b833f2ac9 * empty log message * ca parents: 3128 diff changeset	1789	stringOffsetX := 0.
611b833f2ac9 * empty log message * ca parents: 3128 diff changeset	1790
611b833f2ac9 * empty log message * ca parents: 3128 diff changeset	1791	(self isPopUpView and:[self verticalLayout]) ifTrue:[
611b833f2ac9 * empty log message * ca parents: 3128 diff changeset	1792	self do:[:el\|
611b833f2ac9 * empty log message * ca parents: 3128 diff changeset	1793	el isVisible ifTrue:[
611b833f2ac9 * empty log message * ca parents: 3128 diff changeset	1794	( (label := el indicatorForm) notNil
611b833f2ac9 * empty log message * ca parents: 3128 diff changeset	1795	or:[(label := el choiceForm) notNil]
611b833f2ac9 * empty log message * ca parents: 3128 diff changeset	1796	) ifTrue:[
611b833f2ac9 * empty log message * ca parents: 3128 diff changeset	1797	stringOffsetX := stringOffsetX max:(label width + 2).
611b833f2ac9 * empty log message * ca parents: 3128 diff changeset	1798	] ifFalse:[
611b833f2ac9 * empty log message * ca parents: 3128 diff changeset	1799	label := el displayLabel.
611b833f2ac9 * empty log message * ca parents: 3128 diff changeset	1800	label class == LabelAndIcon ifTrue:[
611b833f2ac9 * empty log message * ca parents: 3128 diff changeset	1801	stringOffsetX := stringOffsetX max:(label xOfString).
611b833f2ac9 * empty log message * ca parents: 3128 diff changeset	1802	].
611b833f2ac9 * empty log message * ca parents: 3128 diff changeset	1803	].
611b833f2ac9 * empty log message * ca parents: 3128 diff changeset	1804	].
611b833f2ac9 * empty log message * ca parents: 3128 diff changeset	1805	].
611b833f2ac9 * empty log message * ca parents: 3128 diff changeset	1806	].
611b833f2ac9 * empty log message * ca parents: 3128 diff changeset	1807	].
611b833f2ac9 * empty log message * ca parents: 3128 diff changeset	1808	w := 0.
611b833f2ac9 * empty log message * ca parents: 3128 diff changeset	1809
611b833f2ac9 * empty log message * ca parents: 3128 diff changeset	1810	( (label := anItem indicatorForm) notNil
611b833f2ac9 * empty log message * ca parents: 3128 diff changeset	1811	or:[(label := anItem choiceForm) notNil]
611b833f2ac9 * empty log message * ca parents: 3128 diff changeset	1812	) ifTrue:[
611b833f2ac9 * empty log message * ca parents: 3128 diff changeset	1813	w := label width + 2.
611b833f2ac9 * empty log message * ca parents: 3128 diff changeset	1814	].
611b833f2ac9 * empty log message * ca parents: 3128 diff changeset	1815	stringOffsetX == 0 ifTrue:[
611b833f2ac9 * empty log message * ca parents: 3128 diff changeset	1816	^ w
611b833f2ac9 * empty log message * ca parents: 3128 diff changeset	1817	].
611b833f2ac9 * empty log message * ca parents: 3128 diff changeset	1818	w == 0 ifTrue:[
611b833f2ac9 * empty log message * ca parents: 3128 diff changeset	1819	label := anItem displayLabel.
611b833f2ac9 * empty log message * ca parents: 3128 diff changeset	1820
611b833f2ac9 * empty log message * ca parents: 3128 diff changeset	1821	label class == LabelAndIcon ifTrue:[
611b833f2ac9 * empty log message * ca parents: 3128 diff changeset	1822	^ stringOffsetX - label xOfString
611b833f2ac9 * empty log message * ca parents: 3128 diff changeset	1823	].
611b833f2ac9 * empty log message * ca parents: 3128 diff changeset	1824	].
611b833f2ac9 * empty log message * ca parents: 3128 diff changeset	1825	^ stringOffsetX.
611b833f2ac9 * empty log message * ca parents: 3128 diff changeset	1826	!
611b833f2ac9 * empty log message * ca parents: 3128 diff changeset	1827
616 a6157b083830 support of different styles ca parents: 608 diff changeset	1828	subMenuIndicationWidth
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1829	^ self rightArrow width
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1830	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	1831
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	1832	!MenuPanel methodsFor:'accessing-interactors'!
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	1833
1798 08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	1834	iconIndicationDisabledOff
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1835	^ self registerImageOnDevice:(self class iconIndicationDisabledOff)
1798 08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	1836	!
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	1837
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	1838	iconIndicationDisabledOn
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1839	^ self registerImageOnDevice:(self class iconIndicationDisabledOn)
1798 08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	1840	!
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	1841
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	1842	iconIndicationOff
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1843	^ self registerImageOnDevice:(self class iconIndicationOff)
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	1844	!
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	1845
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	1846	iconIndicationOn
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1847	^ self registerImageOnDevice:(self class iconIndicationOn)
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	1848	!
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	1849
1798 08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	1850	iconRadioGroupDisabledOff
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1851	^ self registerImageOnDevice:(self class iconRadioGroupDisabledOff)
1798 08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	1852	!
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	1853
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	1854	iconRadioGroupDisabledOn
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1855	^ self registerImageOnDevice:(self class iconRadioGroupDisabledOn)
1798 08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	1856	!
08ae92e6fdf3 extra disabled icons for checkBoxes and radioButtons Claus Gittinger <cg@exept.de> parents: 1797 diff changeset	1857
3565 8147249b4aa6 better icons Claus Gittinger <cg@exept.de> parents: 3561 diff changeset	1858	iconRadioGroupEnteredOff
8147249b4aa6 better icons Claus Gittinger <cg@exept.de> parents: 3561 diff changeset	1859	^ self registerImageOnDevice:(self class iconRadioGroupEnteredOff)
8147249b4aa6 better icons Claus Gittinger <cg@exept.de> parents: 3561 diff changeset	1860	!
8147249b4aa6 better icons Claus Gittinger <cg@exept.de> parents: 3561 diff changeset	1861
8147249b4aa6 better icons Claus Gittinger <cg@exept.de> parents: 3561 diff changeset	1862	iconRadioGroupEnteredOn
8147249b4aa6 better icons Claus Gittinger <cg@exept.de> parents: 3561 diff changeset	1863	^ self registerImageOnDevice:(self class iconRadioGroupEnteredOn)
8147249b4aa6 better icons Claus Gittinger <cg@exept.de> parents: 3561 diff changeset	1864	!
8147249b4aa6 better icons Claus Gittinger <cg@exept.de> parents: 3561 diff changeset	1865
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	1866	iconRadioGroupOff
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1867	^ self registerImageOnDevice:(self class iconRadioGroupOff)
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	1868	!
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	1869
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	1870	iconRadioGroupOn
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1871	^ self registerImageOnDevice:(self class iconRadioGroupOn)
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	1872	! !
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	1873
1679 af40842718f6 when accepting, and the application does not respond to that Claus Gittinger <cg@exept.de> parents: 1670 diff changeset	1874	!MenuPanel methodsFor:'accessing-items'!
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1875
dce33f8bb806 intitial checkin ca parents: diff changeset	1876	itemAt:stringOrNumber do:aOneArgBlock
2505 56607624d05a Fix pidgin spelling: 'does not exists' and 'not exists' Stefan Vogel <sv@exept.de> parents: 2504 diff changeset	1877	"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	1878	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	1879
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1880	^ self itemAt:stringOrNumber do:aOneArgBlock ifAbsent:nil
dce33f8bb806 intitial checkin ca parents: diff changeset	1881	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1882
dce33f8bb806 intitial checkin ca parents: diff changeset	1883	itemAt:stringOrNumber do:aOneArgBlock ifAbsent:exceptionBlock
dce33f8bb806 intitial checkin ca parents: diff changeset	1884	"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	1885	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	1886
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1887	\|item\|
dce33f8bb806 intitial checkin ca parents: diff changeset	1888
dce33f8bb806 intitial checkin ca parents: diff changeset	1889	item := self itemAt:stringOrNumber.
dce33f8bb806 intitial checkin ca parents: diff changeset	1890	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	1891	^ exceptionBlock value
706 d716edbdbe47 show separators bug cleaned tz parents: 689 diff changeset	1892	!
d716edbdbe47 show separators bug cleaned tz parents: 689 diff changeset	1893
d716edbdbe47 show separators bug cleaned tz parents: 689 diff changeset	1894	itemAtIndex:anIndex
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1895	"returns item at an index or nil"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1896
706 d716edbdbe47 show separators bug cleaned tz parents: 689 diff changeset	1897	^ 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	1898	!
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	1899
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	1900	items
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1901	"returns list of items or nil"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1902
1707 4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	1903	^ items
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1904	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	1905
1679 af40842718f6 when accepting, and the application does not respond to that Claus Gittinger <cg@exept.de> parents: 1670 diff changeset	1906	!MenuPanel methodsFor:'accessing-look'!
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1907
727 3ba54333342a button style from style sheet tz parents: 723 diff changeset	1908	buttonActiveLevel
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1909	"get the buttons active level"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1910
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1911	^ styleSheet at:#'menuPanel.buttonActiveLevel'
727 3ba54333342a button style from style sheet tz parents: 723 diff changeset	1912	!
3ba54333342a button style from style sheet tz parents: 723 diff changeset	1913
3ba54333342a button style from style sheet tz parents: 723 diff changeset	1914	buttonPassiveLevel
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1915	"get the buttons passive level"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1916
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1917	^ styleSheet at:#'menuPanel.buttonPassiveLevel'
727 3ba54333342a button style from style sheet tz parents: 723 diff changeset	1918	!
3ba54333342a button style from style sheet tz parents: 723 diff changeset	1919
2337 7f384db88273 centerItems attribute Claus Gittinger <cg@exept.de> parents: 2332 diff changeset	1920	centerItems
7f384db88273 centerItems attribute Claus Gittinger <cg@exept.de> parents: 2332 diff changeset	1921	^ centerItems ? false
7f384db88273 centerItems attribute Claus Gittinger <cg@exept.de> parents: 2332 diff changeset	1922	!
7f384db88273 centerItems attribute Claus Gittinger <cg@exept.de> parents: 2332 diff changeset	1923
7f384db88273 centerItems attribute Claus Gittinger <cg@exept.de> parents: 2332 diff changeset	1924	centerItems:aBoolean
7f384db88273 centerItems attribute Claus Gittinger <cg@exept.de> parents: 2332 diff changeset	1925	centerItems := aBoolean
7f384db88273 centerItems attribute Claus Gittinger <cg@exept.de> parents: 2332 diff changeset	1926	!
7f384db88273 centerItems attribute Claus Gittinger <cg@exept.de> parents: 2332 diff changeset	1927
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1928	fitFirstPanel
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1929	"gets true if the first panel in the menu hierarchy must be fit
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1930	to the extent of its superView
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1931
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1932	NOT SUPPORTED"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1933
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1934	^ false
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1935	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1936
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1937	fitFirstPanel:aState
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1938	"sets true if the first panel in the menu hierarchy must be fit
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1939	to the extent of its superView
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	1940
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1941	NOT SUPPORTED"
616 a6157b083830 support of different styles ca parents: 608 diff changeset	1942	!
a6157b083830 support of different styles ca parents: 608 diff changeset	1943
1093 7cb44303b016 margin fixes Claus Gittinger <cg@exept.de> parents: 1090 diff changeset	1944	level:anInt
2003 732fbaf5864f avoid changing the level after realization (to avoid confusing the shadow) Claus Gittinger <cg@exept.de> parents: 2000 diff changeset	1945	anInt ~~ level ifTrue:[
3147 b7c2db746f84 conditionalRight fix Claus Gittinger <cg@exept.de> parents: 3144 diff changeset	1946	super level:anInt.
b7c2db746f84 conditionalRight fix Claus Gittinger <cg@exept.de> parents: 3144 diff changeset	1947	self mustRearrange
2003 732fbaf5864f avoid changing the level after realization (to avoid confusing the shadow) Claus Gittinger <cg@exept.de> parents: 2000 diff changeset	1948	]
2052 61367c7a47aa * empty log message * Claus Gittinger <cg@exept.de> parents: 2051 diff changeset	1949
61367c7a47aa * empty log message * Claus Gittinger <cg@exept.de> parents: 2051 diff changeset	1950	"Modified: / 15.11.2001 / 17:42:07 / cg"
1093 7cb44303b016 margin fixes Claus Gittinger <cg@exept.de> parents: 1090 diff changeset	1951	!
7cb44303b016 margin fixes Claus Gittinger <cg@exept.de> parents: 1090 diff changeset	1952
616 a6157b083830 support of different styles ca parents: 608 diff changeset	1953	rightArrow
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	1954	rightArrow isNil ifTrue:[
975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	1955	device isNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	1956	^ SelectionInListView rightArrowFormOn:Display
93426020ceed * empty log message * ca parents: 2216 diff changeset	1957	].
93426020ceed * empty log message * ca parents: 2216 diff changeset	1958	rightArrow := SelectionInListView rightArrowFormOn:device
93426020ceed * empty log message * ca parents: 2216 diff changeset	1959	].
616 a6157b083830 support of different styles ca parents: 608 diff changeset	1960	^ rightArrow
a6157b083830 support of different styles ca parents: 608 diff changeset	1961	!
a6157b083830 support of different styles ca parents: 608 diff changeset	1962
a6157b083830 support of different styles ca parents: 608 diff changeset	1963	rightArrowShadow
a6157b083830 support of different styles ca parents: 608 diff changeset	1964	^ rightArrowShadow
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1965	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1966
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1967	showGroupDivider
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1968	"get the enabled flag for showing groupDiveders"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1969
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1970	^ showGroupDivider
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1971	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1972
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1973	showGroupDivider:aState
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1974	"set the enabled flag for showing groupDiveders"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1975
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1976	showGroupDivider ~~ aState ifTrue:[
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1977	showGroupDivider := aState.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1978	self mustRearrange.
653 cf9b6ef11ade bug fix; no automatic rearrange of items ca parents: 650 diff changeset	1979	]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1980	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1981
dce33f8bb806 intitial checkin ca parents: diff changeset	1982	showSeparatingLines
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1983	"gets true if drawing of separating lines is enabled."
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1984
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1985	^ showSeparatingLines
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1986	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1987
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1988	showSeparatingLines:aState
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1989	"turn on/off drawing of separating lines."
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1990
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1991	aState ~~ showSeparatingLines ifTrue:[
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1992	showSeparatingLines := aState.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1993	self mustRearrange
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	1994	].
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1995	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1996
dce33f8bb806 intitial checkin ca parents: diff changeset	1997	verticalLayout
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1998	"get the layout: vertical( true ) or horizontal( false )"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	1999
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	2000	verticalLayout notNil ifTrue:[ ^ verticalLayout ].
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	2001
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	2002	superMenu notNil ifTrue:[ verticalLayout := true ]
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	2003	ifFalse:[ verticalLayout := self isPopUpView ].
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	2004	^ verticalLayout
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2005	!
dce33f8bb806 intitial checkin ca parents: diff changeset	2006
dce33f8bb806 intitial checkin ca parents: diff changeset	2007	verticalLayout:aState
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2008	"set the layout: vertical( true ) or horizontal( false )"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2009
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	2010	aState ~~ verticalLayout ifTrue:[
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	2011	verticalLayout isNil ifTrue:[
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	2012	verticalLayout := aState
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	2013	] ifFalse:[
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	2014	verticalLayout := aState.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	2015	self mustRearrange.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	2016	].
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	2017	].
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2018	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	2019
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	2020	!MenuPanel methodsFor:'accessing-style'!
93426020ceed * empty log message * ca parents: 2216 diff changeset	2021
93426020ceed * empty log message * ca parents: 2216 diff changeset	2022	buttonInsetX
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2023	"returns the verical button space"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2024
2883 58f2f296254d defaults Claus Gittinger <cg@exept.de> parents: 2877 diff changeset	2025	^ buttonInsetX
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	2026	!
93426020ceed * empty log message * ca parents: 2216 diff changeset	2027
93426020ceed * empty log message * ca parents: 2216 diff changeset	2028	buttonInsetY
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2029	"returns the verical button space"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2030
2883 58f2f296254d defaults Claus Gittinger <cg@exept.de> parents: 2877 diff changeset	2031	^ buttonInsetY
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	2032	!
93426020ceed * empty log message * ca parents: 2216 diff changeset	2033
3411 a7a58a10cdcd extra menu-indicator click behavior Claus Gittinger <cg@exept.de> parents: 3403 diff changeset	2034	drawMenuIndicatorSeparatorLine
a7a58a10cdcd extra menu-indicator click behavior Claus Gittinger <cg@exept.de> parents: 3403 diff changeset	2035	^ true.
a7a58a10cdcd extra menu-indicator click behavior Claus Gittinger <cg@exept.de> parents: 3403 diff changeset	2036	^ styleSheet at:#'menu.drawMenuIndicatorSeparatorLine' default:false
a7a58a10cdcd extra menu-indicator click behavior Claus Gittinger <cg@exept.de> parents: 3403 diff changeset	2037	!
a7a58a10cdcd extra menu-indicator click behavior Claus Gittinger <cg@exept.de> parents: 3403 diff changeset	2038
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	2039	enteredLevel
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2040	"returns the enter-level for an unselected item moved through"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2041
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	2042	^ styleSheet at:#'menu.enteredLevel' default:0
93426020ceed * empty log message * ca parents: 2216 diff changeset	2043	!
93426020ceed * empty log message * ca parents: 2216 diff changeset	2044
93426020ceed * empty log message * ca parents: 2216 diff changeset	2045	groupDividerSize
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2046	"returns the width of a group divider"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2047
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	2048	^ styleSheet at:#'menu.groupDividerSize' default:6
93426020ceed * empty log message * ca parents: 2216 diff changeset	2049	!
93426020ceed * empty log message * ca parents: 2216 diff changeset	2050
93426020ceed * empty log message * ca parents: 2216 diff changeset	2051	itemMargin
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2052	"returns the margin of an item"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2053
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	2054	^ styleSheet at:#'menu.itemMargin' default:0
93426020ceed * empty log message * ca parents: 2216 diff changeset	2055	!
93426020ceed * empty log message * ca parents: 2216 diff changeset	2056
93426020ceed * empty log message * ca parents: 2216 diff changeset	2057	itemSpace
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2058	"returns the additional space for an item in a (vertical) panel"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2059
2883 58f2f296254d defaults Claus Gittinger <cg@exept.de> parents: 2877 diff changeset	2060	^ itemSpace
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	2061	!
93426020ceed * empty log message * ca parents: 2216 diff changeset	2062
3411 a7a58a10cdcd extra menu-indicator click behavior Claus Gittinger <cg@exept.de> parents: 3403 diff changeset	2063	menuIndicatorVerticalPosition
a7a58a10cdcd extra menu-indicator click behavior Claus Gittinger <cg@exept.de> parents: 3403 diff changeset	2064	"#center, #top or #bottom"
a7a58a10cdcd extra menu-indicator click behavior Claus Gittinger <cg@exept.de> parents: 3403 diff changeset	2065
a7a58a10cdcd extra menu-indicator click behavior Claus Gittinger <cg@exept.de> parents: 3403 diff changeset	2066	^ #center
a7a58a10cdcd extra menu-indicator click behavior Claus Gittinger <cg@exept.de> parents: 3403 diff changeset	2067	"/ ^ styleSheet at:#'menu.menuIndicatorVerticalPosition' default:#bottom
a7a58a10cdcd extra menu-indicator click behavior Claus Gittinger <cg@exept.de> parents: 3403 diff changeset	2068	!
a7a58a10cdcd extra menu-indicator click behavior Claus Gittinger <cg@exept.de> parents: 3403 diff changeset	2069
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	2070	selectionFollowsMouse
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2071	"returns true if the selection follows the mouse"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2072
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	2073	^ styleSheet at:#'menu.selectionFollowsMouse' default:false
93426020ceed * empty log message * ca parents: 2216 diff changeset	2074	!
93426020ceed * empty log message * ca parents: 2216 diff changeset	2075
93426020ceed * empty log message * ca parents: 2216 diff changeset	2076	shortcutKeyOffset
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2077	"returns the offset for a shortcutKey"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2078
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	2079	^ 5
93426020ceed * empty log message * ca parents: 2216 diff changeset	2080	! !
93426020ceed * empty log message * ca parents: 2216 diff changeset	2081
1679 af40842718f6 when accepting, and the application does not respond to that Claus Gittinger <cg@exept.de> parents: 1670 diff changeset	2082	!MenuPanel methodsFor:'accessing-submenu'!
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2083
dce33f8bb806 intitial checkin ca parents: diff changeset	2084	subMenuAt:stringOrNumber
3192 a64a9c9143c4 shortcuts... processing ca parents: 3189 diff changeset	2085	"gets the current submenu of an item; if the submenu is nil, the
a64a9c9143c4 shortcuts... processing ca parents: 3189 diff changeset	2086	submenu is generated if specified otherwise nil is returned."
a64a9c9143c4 shortcuts... processing ca parents: 3189 diff changeset	2087
a64a9c9143c4 shortcuts... processing ca parents: 3189 diff changeset	2088	\|submenu\|
a64a9c9143c4 shortcuts... processing ca parents: 3189 diff changeset	2089
a64a9c9143c4 shortcuts... processing ca parents: 3189 diff changeset	2090
a64a9c9143c4 shortcuts... processing ca parents: 3189 diff changeset	2091	self itemAt:stringOrNumber do:[:anItem\|
a64a9c9143c4 shortcuts... processing ca parents: 3189 diff changeset	2092	submenu := anItem currentSubmenu.
a64a9c9143c4 shortcuts... processing ca parents: 3189 diff changeset	2093	submenu isNil ifTrue:[
a64a9c9143c4 shortcuts... processing ca parents: 3189 diff changeset	2094	submenu := anItem setupSubmenu
a64a9c9143c4 shortcuts... processing ca parents: 3189 diff changeset	2095	].
a64a9c9143c4 shortcuts... processing ca parents: 3189 diff changeset	2096	].
a64a9c9143c4 shortcuts... processing ca parents: 3189 diff changeset	2097	^ submenu
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2098	!
dce33f8bb806 intitial checkin ca parents: diff changeset	2099
dce33f8bb806 intitial checkin ca parents: diff changeset	2100	subMenuAt:stringOrNumber put:aSubMenu
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2101	"sets the submenu of an item"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2102
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2103	self itemAt:stringOrNumber do:[:el\| el submenu:aSubMenu ]
dce33f8bb806 intitial checkin ca parents: diff changeset	2104	!
dce33f8bb806 intitial checkin ca parents: diff changeset	2105
dce33f8bb806 intitial checkin ca parents: diff changeset	2106	subMenuShown
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2107	"return the currently visible submenu - or nil if there is none"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2108
3192 a64a9c9143c4 shortcuts... processing ca parents: 3189 diff changeset	2109	\|item submenu\|
a64a9c9143c4 shortcuts... processing ca parents: 3189 diff changeset	2110
a64a9c9143c4 shortcuts... processing ca parents: 3189 diff changeset	2111	item := self selection.
a64a9c9143c4 shortcuts... processing ca parents: 3189 diff changeset	2112
a64a9c9143c4 shortcuts... processing ca parents: 3189 diff changeset	2113	item notNil ifTrue:[
a64a9c9143c4 shortcuts... processing ca parents: 3189 diff changeset	2114	submenu := item currentSubmenu.
a64a9c9143c4 shortcuts... processing ca parents: 3189 diff changeset	2115
a64a9c9143c4 shortcuts... processing ca parents: 3189 diff changeset	2116	(submenu notNil and:[submenu shown]) ifTrue:[
a64a9c9143c4 shortcuts... processing ca parents: 3189 diff changeset	2117	^ submenu
a64a9c9143c4 shortcuts... processing ca parents: 3189 diff changeset	2118	].
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2119	].
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2120	^ nil
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2121	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	2122
2504 0ce78a73aacf method category rename Claus Gittinger <cg@exept.de> parents: 2503 diff changeset	2123	!MenuPanel methodsFor:'activation & deactivation'!
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2124
1795 6afd0e768267 submenuChannel selector: allow upto two arguments, the arg and the menu ca parents: 1793 diff changeset	2125	closeMenus
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2126	"close all menus without accepting"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2127
1795 6afd0e768267 submenuChannel selector: allow upto two arguments, the arg and the menu ca parents: 1793 diff changeset	2128	self topMenu accept:nil.
6afd0e768267 submenuChannel selector: allow upto two arguments, the arg and the menu ca parents: 1793 diff changeset	2129	!
6afd0e768267 submenuChannel selector: allow upto two arguments, the arg and the menu ca parents: 1793 diff changeset	2130
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2131	hide
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2132	"hide the view, leave its modal event loop"
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2133
2407 d8cdc13f677b checkin from browser penk parents: 2374 diff changeset	2134	"/ TODO: replace with LeaveSignal raise.
d8cdc13f677b checkin from browser penk parents: 2374 diff changeset	2135
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2136	self selection:nil.
dce33f8bb806 intitial checkin ca parents: diff changeset	2137	self unmap.
dce33f8bb806 intitial checkin ca parents: diff changeset	2138	!
dce33f8bb806 intitial checkin ca parents: diff changeset	2139
dce33f8bb806 intitial checkin ca parents: diff changeset	2140	show
1836 89a1b938c09e fixed returned value from non-performing menu Claus Gittinger <cg@exept.de> parents: 1832 diff changeset	2141	"realize the view at its last position;
89a1b938c09e fixed returned value from non-performing menu Claus Gittinger <cg@exept.de> parents: 1832 diff changeset	2142	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	2143	(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	2144	to some performer)"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2145
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2146	^ self showAt:(self origin) resizing:true
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2147	!
dce33f8bb806 intitial checkin ca parents: diff changeset	2148
dce33f8bb806 intitial checkin ca parents: diff changeset	2149	showAt:aPoint
1836 89a1b938c09e fixed returned value from non-performing menu Claus Gittinger <cg@exept.de> parents: 1832 diff changeset	2150	"realize the view at aPoint.
89a1b938c09e fixed returned value from non-performing menu Claus Gittinger <cg@exept.de> parents: 1832 diff changeset	2151	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	2152	(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	2153	to some performer)"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2154
3754 d59a0ea2fd7d code cleanup Claus Gittinger <cg@exept.de> parents: 3735 diff changeset	2155	^ self showAt:aPoint resizing:true
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2156	!
dce33f8bb806 intitial checkin ca parents: diff changeset	2157
dce33f8bb806 intitial checkin ca parents: diff changeset	2158	showAt:aPoint resizing:aBoolean
984 87d36803b9d8 oops - menu items fired twice. Claus Gittinger <cg@exept.de> parents: 971 diff changeset	2159	"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	2160	or if I have already performed.
87d36803b9d8 oops - menu items fired twice. Claus Gittinger <cg@exept.de> parents: 971 diff changeset	2161	Return the items value, otherwise.
87d36803b9d8 oops - menu items fired twice. Claus Gittinger <cg@exept.de> parents: 971 diff changeset	2162	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	2163	menu (i.e. the view or controller), which will perform the action
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2164	if a non-nil is returned."
1836 89a1b938c09e fixed returned value from non-performing menu Claus Gittinger <cg@exept.de> parents: 1832 diff changeset	2165
1331 aae37cbfb30a fixed style handling to avoid bad resizing when popup-level/bw Claus Gittinger <cg@exept.de> parents: 1330 diff changeset	2166	self rearrangeItemsIfItemVisibilityChanged.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2167
dce33f8bb806 intitial checkin ca parents: diff changeset	2168	aBoolean ifTrue:[
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2169	self fixSize.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2170	].
dce33f8bb806 intitial checkin ca parents: diff changeset	2171	self origin:aPoint.
1459 53f83c83b354 checkin from browser Claus Gittinger <cg@exept.de> parents: 1455 diff changeset	2172	"/ self makeFullyVisible. -- done in realize
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2173	self openModal:[true]. "realize "
dce33f8bb806 intitial checkin ca parents: diff changeset	2174
984 87d36803b9d8 oops - menu items fired twice. Claus Gittinger <cg@exept.de> parents: 971 diff changeset	2175	"/ if I have already performed,
87d36803b9d8 oops - menu items fired twice. Claus Gittinger <cg@exept.de> parents: 971 diff changeset	2176	"/ return nil - to avoid items triggering twice.
87d36803b9d8 oops - menu items fired twice. Claus Gittinger <cg@exept.de> parents: 971 diff changeset	2177
87d36803b9d8 oops - menu items fired twice. Claus Gittinger <cg@exept.de> parents: 971 diff changeset	2178	(self topMenu menuAdornmentAt:#hasPerformed) == true ifTrue:[
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2179	^ nil
984 87d36803b9d8 oops - menu items fired twice. Claus Gittinger <cg@exept.de> parents: 971 diff changeset	2180	].
1836 89a1b938c09e fixed returned value from non-performing menu Claus Gittinger <cg@exept.de> parents: 1832 diff changeset	2181
984 87d36803b9d8 oops - menu items fired twice. Claus Gittinger <cg@exept.de> parents: 971 diff changeset	2182	^ self lastValueAccepted
87d36803b9d8 oops - menu items fired twice. Claus Gittinger <cg@exept.de> parents: 971 diff changeset	2183
1137 7df0b776e47a fixes for 2D styles (borderWidth) Claus Gittinger <cg@exept.de> parents: 1130 diff changeset	2184	"Modified: / 15.9.1998 / 12:50:23 / cg"
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2185	!
dce33f8bb806 intitial checkin ca parents: diff changeset	2186
dce33f8bb806 intitial checkin ca parents: diff changeset	2187	showAtPointer
1836 89a1b938c09e fixed returned value from non-performing menu Claus Gittinger <cg@exept.de> parents: 1832 diff changeset	2188	"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	2189	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	2190	(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	2191	to some performer)"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2192
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2193	^ self showAt:(device pointerPosition) resizing:true
dce33f8bb806 intitial checkin ca parents: diff changeset	2194	!
dce33f8bb806 intitial checkin ca parents: diff changeset	2195
dce33f8bb806 intitial checkin ca parents: diff changeset	2196	showCenteredIn:aView
dce33f8bb806 intitial checkin ca parents: diff changeset	2197	"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	2198	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	2199	(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	2200	to some performer)"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2201
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2202	\|top\|
dce33f8bb806 intitial checkin ca parents: diff changeset	2203
dce33f8bb806 intitial checkin ca parents: diff changeset	2204	top := aView topView.
dce33f8bb806 intitial checkin ca parents: diff changeset	2205	top raise.
1137 7df0b776e47a fixes for 2D styles (borderWidth) Claus Gittinger <cg@exept.de> parents: 1130 diff changeset	2206	^ 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	2207
7df0b776e47a fixes for 2D styles (borderWidth) Claus Gittinger <cg@exept.de> parents: 1130 diff changeset	2208	"Modified: / 15.9.1998 / 12:45:50 / cg"
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2209	!
dce33f8bb806 intitial checkin ca parents: diff changeset	2210
dce33f8bb806 intitial checkin ca parents: diff changeset	2211	startUp
dce33f8bb806 intitial checkin ca parents: diff changeset	2212	"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	2213	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	2214	(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	2215	to some performer)"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2216
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2217	^ self showAtPointer
897 6bbc8c15ac0a added #startUpAt: (MenuView compatibility) Claus Gittinger <cg@exept.de> parents: 890 diff changeset	2218	!
6bbc8c15ac0a added #startUpAt: (MenuView compatibility) Claus Gittinger <cg@exept.de> parents: 890 diff changeset	2219
6bbc8c15ac0a added #startUpAt: (MenuView compatibility) Claus Gittinger <cg@exept.de> parents: 890 diff changeset	2220	startUpAt:aPoint
6bbc8c15ac0a added #startUpAt: (MenuView compatibility) Claus Gittinger <cg@exept.de> parents: 890 diff changeset	2221	"realize the menu at aPoint
1836 89a1b938c09e fixed returned value from non-performing menu Claus Gittinger <cg@exept.de> parents: 1832 diff changeset	2222	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	2223	(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	2224	to some performer)"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2225
897 6bbc8c15ac0a added #startUpAt: (MenuView compatibility) Claus Gittinger <cg@exept.de> parents: 890 diff changeset	2226	^ self showAt:aPoint
6bbc8c15ac0a added #startUpAt: (MenuView compatibility) Claus Gittinger <cg@exept.de> parents: 890 diff changeset	2227
6bbc8c15ac0a added #startUpAt: (MenuView compatibility) Claus Gittinger <cg@exept.de> parents: 890 diff changeset	2228	"Created: / 21.5.1998 / 14:15:57 / cg"
1750 f9e5700bd99a compatibility stuff Claus Gittinger <cg@exept.de> parents: 1737 diff changeset	2229	!
f9e5700bd99a compatibility stuff Claus Gittinger <cg@exept.de> parents: 1737 diff changeset	2230
2332 7e98cc0c92b7 can now specify if menu action is to be performed by ca parents: 2331 diff changeset	2231	startUpFor:originatingWidget
7e98cc0c92b7 can now specify if menu action is to be performed by ca parents: 2331 diff changeset	2232	"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	2233	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	2234	(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	2235	to some performer)"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2236
2332 7e98cc0c92b7 can now specify if menu action is to be performed by ca parents: 2331 diff changeset	2237	originator := originatingWidget.
7e98cc0c92b7 can now specify if menu action is to be performed by ca parents: 2331 diff changeset	2238	^ self startUp
7e98cc0c92b7 can now specify if menu action is to be performed by ca parents: 2331 diff changeset	2239	!
7e98cc0c92b7 can now specify if menu action is to be performed by ca parents: 2331 diff changeset	2240
1750 f9e5700bd99a compatibility stuff Claus Gittinger <cg@exept.de> parents: 1737 diff changeset	2241	startUpOrNil
f9e5700bd99a compatibility stuff Claus Gittinger <cg@exept.de> parents: 1737 diff changeset	2242	"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	2243	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	2244	(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	2245	to some performer)"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2246
1750 f9e5700bd99a compatibility stuff Claus Gittinger <cg@exept.de> parents: 1737 diff changeset	2247	^ self showAtPointer
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2248	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	2249
dce33f8bb806 intitial checkin ca parents: diff changeset	2250	!MenuPanel methodsFor:'adding & removing'!
dce33f8bb806 intitial checkin ca parents: diff changeset	2251
dce33f8bb806 intitial checkin ca parents: diff changeset	2252	createAtIndex:anIndexOrNil
1800 600f247a2846 comment Claus Gittinger <cg@exept.de> parents: 1799 diff changeset	2253	"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	2254	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	2255	otherwise the new created item is returned."
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2256
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2257	\|max item\|
dce33f8bb806 intitial checkin ca parents: diff changeset	2258
dce33f8bb806 intitial checkin ca parents: diff changeset	2259	max := (items size) + 1.
dce33f8bb806 intitial checkin ca parents: diff changeset	2260
dce33f8bb806 intitial checkin ca parents: diff changeset	2261	anIndexOrNil notNil ifTrue:[
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2262	(anIndexOrNil < 1 or:[anIndexOrNil > max]) ifTrue:[
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2263	^ nil
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2264	]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2265	].
dce33f8bb806 intitial checkin ca parents: diff changeset	2266	items isNil ifTrue:[
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2267	items := OrderedCollection new
1151 199863d6a463 items: convert Array to OrderedCollection Claus Gittinger <cg@exept.de> parents: 1137 diff changeset	2268	] ifFalse:[
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2269	items := items asOrderedCollection
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2270	].
dce33f8bb806 intitial checkin ca parents: diff changeset	2271	item := Item in:self.
dce33f8bb806 intitial checkin ca parents: diff changeset	2272
dce33f8bb806 intitial checkin ca parents: diff changeset	2273	(anIndexOrNil isNil or:[anIndexOrNil == max]) ifTrue:[
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2274	items add:item
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2275	] ifFalse:[
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2276	items add:item beforeIndex:anIndexOrNil
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2277	].
dce33f8bb806 intitial checkin ca parents: diff changeset	2278	^ item
dce33f8bb806 intitial checkin ca parents: diff changeset	2279	!
dce33f8bb806 intitial checkin ca parents: diff changeset	2280
dce33f8bb806 intitial checkin ca parents: diff changeset	2281	remove:stringOrNumber
dce33f8bb806 intitial checkin ca parents: diff changeset	2282	"remove the first item which is assigned to stringOrNumber;
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2283	if found, remove and return it"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2284
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2285	\|item\|
dce33f8bb806 intitial checkin ca parents: diff changeset	2286
dce33f8bb806 intitial checkin ca parents: diff changeset	2287	(item := self itemAt:stringOrNumber) notNil ifTrue:[
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2288	items remove:item.
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2289	item destroy.
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2290	items isEmpty ifTrue:[items := nil].
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2291	self mustRearrange.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2292	].
dce33f8bb806 intitial checkin ca parents: diff changeset	2293	^ item
dce33f8bb806 intitial checkin ca parents: diff changeset	2294	!
dce33f8bb806 intitial checkin ca parents: diff changeset	2295
dce33f8bb806 intitial checkin ca parents: diff changeset	2296	removeAll
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2297	"remove all items and submenus"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2298
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2299	self disabledRedrawDo:[
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2300	self selection:nil.
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2301	groupSizes := nil.
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2302	items notNil ifTrue:[
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2303	items copy do:[:el\| el destroy ].
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2304	].
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2305	items := nil
2050 ef5517d7a2d0 do not destroy myself after accepting (for PopUpList) Claus Gittinger <cg@exept.de> parents: 2048 diff changeset	2306	].
ef5517d7a2d0 do not destroy myself after accepting (for PopUpList) Claus Gittinger <cg@exept.de> parents: 2048 diff changeset	2307
ef5517d7a2d0 do not destroy myself after accepting (for PopUpList) Claus Gittinger <cg@exept.de> parents: 2048 diff changeset	2308	"Modified: / 15.11.2001 / 17:02:51 / cg"
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2309	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	2310
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2311	!MenuPanel methodsFor:'change & update'!
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2312
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2313	update:something with:aParameter from:changedObject
498 b4c341497621 bug fixes: ca parents: 475 diff changeset	2314
b4c341497621 bug fixes: ca parents: 475 diff changeset	2315	changedObject == menuHolder ifTrue:[^ self menu:(menuHolder value)].
b4c341497621 bug fixes: ca parents: 475 diff changeset	2316	changedObject == enableChannel ifTrue:[^ self enabled:(enableChannel value)].
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2317
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2318	super update:something with:aParameter from:changedObject
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2319	! !
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2320
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2321	!MenuPanel methodsFor:'converting'!
dce33f8bb806 intitial checkin ca parents: diff changeset	2322
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2323	asMenu
3222 828febe4d844 use decodeFromLiteralArray Claus Gittinger <cg@exept.de> parents: 3206 diff changeset	2324	"convert contents to a menu"
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2325
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2326	\|menu\|
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2327
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2328	menu := Menu new.
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2329	menu groupSizes:groupSizes.
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2330	self do:[:anItem\| menu addItem:(anItem asMenuItem) ].
2059 c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	2331	^ menu
3222 828febe4d844 use decodeFromLiteralArray Claus Gittinger <cg@exept.de> parents: 3206 diff changeset	2332
828febe4d844 use decodeFromLiteralArray Claus Gittinger <cg@exept.de> parents: 3206 diff changeset	2333	"Modified: / 27-03-2007 / 08:39:48 / cg"
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2334	!
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2335
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2336	fromSpec:aMenuSpec
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2337	"build from spec"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2338
3222 828febe4d844 use decodeFromLiteralArray Claus Gittinger <cg@exept.de> parents: 3206 diff changeset	2339	self menu:(Menu decodeFromLiteralArray:aMenuSpec)
828febe4d844 use decodeFromLiteralArray Claus Gittinger <cg@exept.de> parents: 3206 diff changeset	2340
828febe4d844 use decodeFromLiteralArray Claus Gittinger <cg@exept.de> parents: 3206 diff changeset	2341	"Modified: / 27-03-2007 / 08:42:43 / cg"
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2342	!
dce33f8bb806 intitial checkin ca parents: diff changeset	2343
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2344	menu:aMenu
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2345	"convert to Menu"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2346
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2347	self disabledRedrawDo:[
2232 5784671fb497 when searching for a sumbenus application, do NOT Claus Gittinger <cg@exept.de> parents: 2231 diff changeset	2348	\|menu newItems menuReceiver\|
5784671fb497 when searching for a sumbenus application, do NOT Claus Gittinger <cg@exept.de> parents: 2231 diff changeset	2349
5784671fb497 when searching for a sumbenus application, do NOT Claus Gittinger <cg@exept.de> parents: 2231 diff changeset	2350	self removeAll.
5784671fb497 when searching for a sumbenus application, do NOT Claus Gittinger <cg@exept.de> parents: 2231 diff changeset	2351
5784671fb497 when searching for a sumbenus application, do NOT Claus Gittinger <cg@exept.de> parents: 2231 diff changeset	2352	(menu := aMenu) notNil ifTrue:[
5784671fb497 when searching for a sumbenus application, do NOT Claus Gittinger <cg@exept.de> parents: 2231 diff changeset	2353	(aMenu isCollection) ifTrue:[
3222 828febe4d844 use decodeFromLiteralArray Claus Gittinger <cg@exept.de> parents: 3206 diff changeset	2354	menu := Menu decodeFromLiteralArray:aMenu.
2232 5784671fb497 when searching for a sumbenus application, do NOT Claus Gittinger <cg@exept.de> parents: 2231 diff changeset	2355	] ifFalse:[
5784671fb497 when searching for a sumbenus application, do NOT Claus Gittinger <cg@exept.de> parents: 2231 diff changeset	2356	menuReceiver := menu receiver.
5784671fb497 when searching for a sumbenus application, do NOT Claus Gittinger <cg@exept.de> parents: 2231 diff changeset	2357	menuReceiver notNil ifTrue:[
2793 2c524ca057f6 * empty log message * penk parents: 2777 diff changeset	2358	self receiver:menuReceiver.
2232 5784671fb497 when searching for a sumbenus application, do NOT Claus Gittinger <cg@exept.de> parents: 2231 diff changeset	2359	]
5784671fb497 when searching for a sumbenus application, do NOT Claus Gittinger <cg@exept.de> parents: 2231 diff changeset	2360	].
3612 de447ee933e9 * empty log message * Claus Gittinger <cg@exept.de> parents: 3603 diff changeset	2361	(newItems := menu menuItems) notEmptyOrNil ifTrue:[
2232 5784671fb497 when searching for a sumbenus application, do NOT Claus Gittinger <cg@exept.de> parents: 2231 diff changeset	2362	items := newItems collect:[:ni \|
5784671fb497 when searching for a sumbenus application, do NOT Claus Gittinger <cg@exept.de> parents: 2231 diff changeset	2363	\|i\|
5784671fb497 when searching for a sumbenus application, do NOT Claus Gittinger <cg@exept.de> parents: 2231 diff changeset	2364
5784671fb497 when searching for a sumbenus application, do NOT Claus Gittinger <cg@exept.de> parents: 2231 diff changeset	2365	i:= Item in:self.
5784671fb497 when searching for a sumbenus application, do NOT Claus Gittinger <cg@exept.de> parents: 2231 diff changeset	2366	i menuItem:ni.
5784671fb497 when searching for a sumbenus application, do NOT Claus Gittinger <cg@exept.de> parents: 2231 diff changeset	2367	i.
5784671fb497 when searching for a sumbenus application, do NOT Claus Gittinger <cg@exept.de> parents: 2231 diff changeset	2368	].
5784671fb497 when searching for a sumbenus application, do NOT Claus Gittinger <cg@exept.de> parents: 2231 diff changeset	2369	].
5784671fb497 when searching for a sumbenus application, do NOT Claus Gittinger <cg@exept.de> parents: 2231 diff changeset	2370	self groupSizes:(menu groupSizes).
5784671fb497 when searching for a sumbenus application, do NOT Claus Gittinger <cg@exept.de> parents: 2231 diff changeset	2371	]
1063 08b7ca464437 dont show accelerators for horizontal layouts Claus Gittinger <cg@exept.de> parents: 1054 diff changeset	2372	]
08b7ca464437 dont show accelerators for horizontal layouts Claus Gittinger <cg@exept.de> parents: 1054 diff changeset	2373
3222 828febe4d844 use decodeFromLiteralArray Claus Gittinger <cg@exept.de> parents: 3206 diff changeset	2374	"Modified: / 27-03-2007 / 08:42:28 / cg"
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2375	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	2376
2681 2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	2377	!MenuPanel methodsFor:'dependents access'!
2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	2378
2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	2379	addDependencies
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2380	"add all dependencies"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2381
2681 2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	2382	self do:[:anItem\| anItem addDependencies ].
2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	2383
2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	2384	menuHolder notNil ifTrue:[menuHolder addDependent:self].
2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	2385	enableChannel notNil ifTrue:[enableChannel addDependent:self].
2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	2386	!
2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	2387
2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	2388	removeDependencies
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2389	"remove all dependencies"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2390
2681 2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	2391	self do:[:anItem\| anItem removeDependencies ].
2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	2392
2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	2393	menuHolder notNil ifTrue:[menuHolder removeDependent:self].
2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	2394	enableChannel notNil ifTrue:[enableChannel removeDependent:self].
2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	2395	! !
2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	2396
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2397	!MenuPanel methodsFor:'drawing'!
dce33f8bb806 intitial checkin ca parents: diff changeset	2398
dce33f8bb806 intitial checkin ca parents: diff changeset	2399	disabledRedrawDo:aBlock
dce33f8bb806 intitial checkin ca parents: diff changeset	2400	"evaluate a block without redrawing within the block; after processing
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2401	of the block a redraw might be performed"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2402
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2403	\|state\|
dce33f8bb806 intitial checkin ca parents: diff changeset	2404
dce33f8bb806 intitial checkin ca parents: diff changeset	2405	state := mustRearrange.
dce33f8bb806 intitial checkin ca parents: diff changeset	2406	mustRearrange := true.
dce33f8bb806 intitial checkin ca parents: diff changeset	2407	aBlock value.
dce33f8bb806 intitial checkin ca parents: diff changeset	2408	mustRearrange := state.
dce33f8bb806 intitial checkin ca parents: diff changeset	2409	self mustRearrange
dce33f8bb806 intitial checkin ca parents: diff changeset	2410	!
dce33f8bb806 intitial checkin ca parents: diff changeset	2411
1690 38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2412	drawButtonEdgesFor:anItem level:aLevel
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2413	\|layout\|
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2414
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2415	aLevel ~~ 0 ifTrue:[
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2416	layout := anItem layout.
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2417
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2418	styleSheet is3D ifFalse:[
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2419	self displayRectangle:layout.
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2420	] ifTrue:[
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2421	self drawEdgesForX:(layout left)
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2422	y:(layout top)
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2423	width:(layout width)
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2424	height:(layout height)
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2425	level:aLevel
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	2426	shadow:(self buttonShadowColor)
93426020ceed * empty log message * ca parents: 2216 diff changeset	2427	light:(self buttonLightColor)
93426020ceed * empty log message * ca parents: 2216 diff changeset	2428	halfShadow:(self buttonHalfShadowColor)
93426020ceed * empty log message * ca parents: 2216 diff changeset	2429	halfLight:(self buttonHalfLightColor)
93426020ceed * empty log message * ca parents: 2216 diff changeset	2430	style:(self buttonEdgeStyle)
1690 38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2431	]
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2432	]
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2433	!
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2434
3187 f97f27a9d496 focus handling ca parents: 3158 diff changeset	2435	drawFocusForItem:anItem
f97f27a9d496 focus handling ca parents: 3158 diff changeset	2436	\|lytItem\|
f97f27a9d496 focus handling ca parents: 3158 diff changeset	2437
f97f27a9d496 focus handling ca parents: 3158 diff changeset	2438	lytItem := anItem layout.
f97f27a9d496 focus handling ca parents: 3158 diff changeset	2439	self paint:(Color black).
f97f27a9d496 focus handling ca parents: 3158 diff changeset	2440
f97f27a9d496 focus handling ca parents: 3158 diff changeset	2441	self displayDottedRectangleX:(lytItem left)
f97f27a9d496 focus handling ca parents: 3158 diff changeset	2442	y:(lytItem top)
f97f27a9d496 focus handling ca parents: 3158 diff changeset	2443	width:(lytItem width)
f97f27a9d496 focus handling ca parents: 3158 diff changeset	2444	height:(lytItem height).
f97f27a9d496 focus handling ca parents: 3158 diff changeset	2445	!
f97f27a9d496 focus handling ca parents: 3158 diff changeset	2446
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2447	drawItemsX:x y:y width:w height:h
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2448	"redraw items and groups in a damage"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2449
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2450	\|isVertical item layout prevClip
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2451	x1 "{ Class:SmallInteger }"
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2452	x2 "{ Class:SmallInteger }"
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2453	y1 "{ Class:SmallInteger }"
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2454	y2 "{ Class:SmallInteger }"
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2455	start "{ Class:SmallInteger }"
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2456	stop "{ Class:SmallInteger }"
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2457	size "{ Class:SmallInteger }"
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2458	groupDivInset "{ Class:SmallInteger }"
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2459	\|
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2460
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2461	size := items size.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2462	isVertical := self verticalLayout.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2463
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2464	isVertical ifTrue:[
2064 0e0d1fe431fb checkin from browser Claus Gittinger <cg@exept.de> parents: 2063 diff changeset	2465	start := items findFirst:[:el\| \|l\| l := el layout. l notNil and:[l bottom > y]].
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2466	start == 0 ifTrue:[ ^ self ].
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2467	y1 := y + h.
2064 0e0d1fe431fb checkin from browser Claus Gittinger <cg@exept.de> parents: 2063 diff changeset	2468	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	2469	startingAt:(start + 1).
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2470	] ifFalse:[
2064 0e0d1fe431fb checkin from browser Claus Gittinger <cg@exept.de> parents: 2063 diff changeset	2471	start := items findFirst:[:el\| \|l\| l := el layout. l notNil and:[l right > x ]].
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2472	start == 0 ifTrue:[ ^ self ].
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2473	x1 := x + w.
2064 0e0d1fe431fb checkin from browser Claus Gittinger <cg@exept.de> parents: 2063 diff changeset	2474	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	2475	startingAt:(start + 1).
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2476	].
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2477	stop == 0 ifTrue:[stop := size] ifFalse:[stop := stop - 1].
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2478
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	2479	(groupSizes size ~~ 0 and:[showGroupDivider]) ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	2480	groupDivInset := self groupDividerSize // 2.
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2481
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2482	groupDivInset ~~ 0 ifTrue:[
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2483	(start ~~ 1 and:[self hasGroupDividerAt:(start-1)]) ifTrue:[
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2484	start := start - 1
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2485	]
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2486	].
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2487	] ifFalse:[
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2488	groupDivInset := 0
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2489	].
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2490
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2491	prevClip := clipRect.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2492	self clippingRectangle:(Rectangle left:x top:y width:w height:h).
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2493
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2494	start to:stop do:[:i\|
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2495	item := items at:i.
2485 b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	2496	item draw.
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2497
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2498	(groupDivInset ~~ 0 and:[i ~~ size and:[self hasGroupDividerAt:i]]) ifTrue:[
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2499	layout := item layout.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2500
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2501	isVertical ifTrue:[
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2502	x1 := layout left.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2503	x2 := layout right.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2504	y1 := layout bottom + groupDivInset.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2505	y2 := y1.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2506	] ifFalse:[
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2507	y1 := layout top.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2508	y2 := layout bottom.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2509	x1 := layout right + groupDivInset.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2510	x2 := x1.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2511	].
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2512	self paint:shadowColor.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2513	self displayLineFromX:x1 y:y1 toX:x2 y:y2.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2514	self paint:lightColor.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2515
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2516	isVertical ifTrue:[y1 := y1 + 1. y2 := y1 ]
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2517	ifFalse:[x1 := x1 + 1. x2 := x1 ].
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2518
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2519	self displayLineFromX:x1 y:y1 toX:x2 y:y2
3187 f97f27a9d496 focus handling ca parents: 3158 diff changeset	2520	].
f97f27a9d496 focus handling ca parents: 3158 diff changeset	2521	selection == item ifTrue:[
f97f27a9d496 focus handling ca parents: 3158 diff changeset	2522	self focusComesByTab ifTrue:[
f97f27a9d496 focus handling ca parents: 3158 diff changeset	2523	self drawFocusForItem:item.
f97f27a9d496 focus handling ca parents: 3158 diff changeset	2524	].
f97f27a9d496 focus handling ca parents: 3158 diff changeset	2525	].
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2526	].
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2527	self clippingRectangle:prevClip.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2528	!
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2529
1690 38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2530	drawLabelEdgeFor:anItem selected:isSelected
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2531	\|level layout\|
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2532
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2533	isSelected ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	2534	level := styleSheet at:#'menu.hilightLevel' default:0.
1690 38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2535	] ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	2536	anItem == enteredItem ifTrue:[ level := self enteredLevel ]
93426020ceed * empty log message * ca parents: 2216 diff changeset	2537	ifFalse:[ level := 0 ]
1690 38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2538	].
1081 fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	2539
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	2540	level ~~ 0 ifTrue:[
1690 38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2541	layout := anItem layout.
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2542
1691 8e1a9d7a298e bugfix in drawLableEdge... ca parents: 1690 diff changeset	2543	self drawEdgesForX:(layout left)
8e1a9d7a298e bugfix in drawLableEdge... ca parents: 1690 diff changeset	2544	y:(layout top)
8e1a9d7a298e bugfix in drawLableEdge... ca parents: 1690 diff changeset	2545	width:(layout width)
8e1a9d7a298e bugfix in drawLableEdge... ca parents: 1690 diff changeset	2546	height:(layout height)
1690 38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2547	level:level
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2548	].
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2549	!
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2550
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2551	drawScrollerAt:aDirection bounds:bounds
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2552	"draw a scroller"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2553
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2554	\|scrolling icon level x y w h\|
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2555
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2556	x := bounds left.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2557	y := bounds top.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2558	w := bounds width.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2559	h := bounds height.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2560
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	2561	scrolling := self scrollActivity.
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2562
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2563	(scrolling activeMenu == self and:[scrolling direction == aDirection]) ifTrue:[
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2564	level := -2
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2565	] ifFalse:[
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2566	level := 1
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2567	].
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2568
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2569	level ~~ 0 ifTrue:[
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2570	self drawEdgesForX:x y:y width:w height:h level:level.
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2571	].
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2572	icon := scrolling iconAt:aDirection on:self.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2573
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2574	icon displayOn:self x:(x + (w - icon width // 2))
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2575	y:(y + (h - icon height // 2)).
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2576	!
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2577
1690 38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2578	invalidateItem:anItem repairNow:aBool
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2579	"an item changed; invalidate the items layout"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2580
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2581	\|layout\|
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2582
1690 38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	2583	(mustRearrange not and:[shown]) ifTrue:[
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2584	layout := anItem layout.
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2585
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2586	(layout bottom > margin and:[layout top < (height - margin)]) ifTrue:[
3411 a7a58a10cdcd extra menu-indicator click behavior Claus Gittinger <cg@exept.de> parents: 3403 diff changeset	2587	self invalidate:(layout "insetBy:-1") repairNow:aBool
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2588	]
1728 fc0bd6482feb kludge redraw bug fix Claus Gittinger <cg@exept.de> parents: 1727 diff changeset	2589	].
fc0bd6482feb kludge redraw bug fix Claus Gittinger <cg@exept.de> parents: 1727 diff changeset	2590
fc0bd6482feb kludge redraw bug fix Claus Gittinger <cg@exept.de> parents: 1727 diff changeset	2591	"Modified: / 29.2.2000 / 11:28:59 / cg"
746 bd252bbe276f better drawing routine for button behavior tz parents: 739 diff changeset	2592	!
bd252bbe276f better drawing routine for button behavior tz parents: 739 diff changeset	2593
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2594	mustRearrange
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2595	"force rearrange (i.e. set the rearrange flag)"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2596
2080 f37673e44158 Fix rearrangeItem stuff Stefan Vogel <sv@exept.de> parents: 2079 diff changeset	2597	mustRearrange ifFalse:[
2659 3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	2598	mustRearrange := true.
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	2599	self invalidate "/ RepairNow:true
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2600	]
590 3177528b5f95 checkin from browser Claus Gittinger <cg@exept.de> parents: 587 diff changeset	2601
911 6b1ad8b039c5 no, repairNow should not be needed here Claus Gittinger <cg@exept.de> parents: 910 diff changeset	2602	"Modified: / 6.6.1998 / 19:51:07 / cg"
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2603	!
dce33f8bb806 intitial checkin ca parents: diff changeset	2604
710 4453e463ff16 add new feature: ca parents: 709 diff changeset	2605	rearrangeGroups
3126 8dca3b01f1db new startGroup value: #conditionalRight Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	2606	"implements the groupIdentifier #right/#conditionalRight in a horizontal menu"
8dca3b01f1db new startGroup value: #conditionalRight Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	2607
8dca3b01f1db new startGroup value: #conditionalRight Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	2608	<resource: #style (#'menuPanel.ignoreConditionalStartGroupRight')>
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2609
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2610	\|layout point
710 4453e463ff16 add new feature: ca parents: 709 diff changeset	2611	dltX "{ Class:SmallInteger }"
4453e463ff16 add new feature: ca parents: 709 diff changeset	2612	start "{ Class:SmallInteger }"
4453e463ff16 add new feature: ca parents: 709 diff changeset	2613	\|
4453e463ff16 add new feature: ca parents: 709 diff changeset	2614
4453e463ff16 add new feature: ca parents: 709 diff changeset	2615	(self isPopUpView or:[self verticalLayout]) ifTrue:[
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2616	^ self
710 4453e463ff16 add new feature: ca parents: 709 diff changeset	2617	].
4453e463ff16 add new feature: ca parents: 709 diff changeset	2618
4453e463ff16 add new feature: ca parents: 709 diff changeset	2619	layout := items last layout.
3246 c9e0e6fe80a4 changed #rearrangeGroups Claus Gittinger <cg@exept.de> parents: 3242 diff changeset	2620	layout notNil ifTrue:[
c9e0e6fe80a4 changed #rearrangeGroups Claus Gittinger <cg@exept.de> parents: 3242 diff changeset	2621	(dltX := width - margin - layout right) <= 0 ifTrue:[
c9e0e6fe80a4 changed #rearrangeGroups Claus Gittinger <cg@exept.de> parents: 3242 diff changeset	2622	^ self "/ no free space
c9e0e6fe80a4 changed #rearrangeGroups Claus Gittinger <cg@exept.de> parents: 3242 diff changeset	2623	].
710 4453e463ff16 add new feature: ca parents: 709 diff changeset	2624	].
3125 25a0bdbe879a startGroup-right is ignorable via styleSheet Claus Gittinger <cg@exept.de> parents: 3122 diff changeset	2625
3127 9b522d37eca0 new startGroup value: #conditionalRight Claus Gittinger <cg@exept.de> parents: 3126 diff changeset	2626	"/ The behavior of #conditionalRight is controlled by the styleSheet.
9b522d37eca0 new startGroup value: #conditionalRight Claus Gittinger <cg@exept.de> parents: 3126 diff changeset	2627	"/ If menuPanel.ignoreConditionalStartGroupRight is true, it is ignored.
9b522d37eca0 new startGroup value: #conditionalRight Claus Gittinger <cg@exept.de> parents: 3126 diff changeset	2628	"/ otherwise, it is treated like #right.
9b522d37eca0 new startGroup value: #conditionalRight Claus Gittinger <cg@exept.de> parents: 3126 diff changeset	2629	"/ 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	2630	"/ non-right under win32 (as is used woth the help-menus).
3148 6b74db598eae conditionalRight revisited Claus Gittinger <cg@exept.de> parents: 3147 diff changeset	2631	(StyleSheet at:#'menuPanel.ignoreConditionalStartGroupRight' ifAbsent:false) ifTrue:[
6b74db598eae conditionalRight revisited Claus Gittinger <cg@exept.de> parents: 3147 diff changeset	2632	start := items findFirst:[:anItem\| anItem startGroup == #right ].
6b74db598eae conditionalRight revisited Claus Gittinger <cg@exept.de> parents: 3147 diff changeset	2633	] ifFalse:[
6b74db598eae conditionalRight revisited Claus Gittinger <cg@exept.de> parents: 3147 diff changeset	2634	start := items findFirst:[:anItem\| anItem startGroup == #right or:[ anItem startGroup == #conditionalRight ] ].
3126 8dca3b01f1db new startGroup value: #conditionalRight Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	2635	].
710 4453e463ff16 add new feature: ca parents: 709 diff changeset	2636	start == 0 ifTrue:[
3125 25a0bdbe879a startGroup-right is ignorable via styleSheet Claus Gittinger <cg@exept.de> parents: 3122 diff changeset	2637	^ self "/ no right-group item detected
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2638	].
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2639	point := dltX @ 0.
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2640
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2641	"/ move items layout to right
710 4453e463ff16 add new feature: ca parents: 709 diff changeset	2642	items from:start do:[:anItem\|
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2643	anItem isVisible ifTrue:[
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2644	anItem layout moveBy:point.
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2645	]
710 4453e463ff16 add new feature: ca parents: 709 diff changeset	2646	].
3411 a7a58a10cdcd extra menu-indicator click behavior Claus Gittinger <cg@exept.de> parents: 3403 diff changeset	2647	self updateEnteredItem.
3125 25a0bdbe879a startGroup-right is ignorable via styleSheet Claus Gittinger <cg@exept.de> parents: 3122 diff changeset	2648
3246 c9e0e6fe80a4 changed #rearrangeGroups Claus Gittinger <cg@exept.de> parents: 3242 diff changeset	2649	"Modified: / 10-10-2007 / 00:29:34 / cg"
710 4453e463ff16 add new feature: ca parents: 709 diff changeset	2650	!
4453e463ff16 add new feature: ca parents: 709 diff changeset	2651
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2652	rearrangeItems
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2653	"recompute the layout of each item
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2654	!!!!!! changes have influence on method #preferredExtentOfItems !!!!!!"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2655
1791 bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	2656	\|isVertical extent isPopUpMenu
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	2657	x "{ Class:SmallInteger }"
93426020ceed * empty log message * ca parents: 2216 diff changeset	2658	y "{ Class:SmallInteger }"
93426020ceed * empty log message * ca parents: 2216 diff changeset	2659	x0 "{ Class:SmallInteger }"
93426020ceed * empty log message * ca parents: 2216 diff changeset	2660	y0 "{ Class:SmallInteger }"
93426020ceed * empty log message * ca parents: 2216 diff changeset	2661	x1 "{ Class:SmallInteger }"
93426020ceed * empty log message * ca parents: 2216 diff changeset	2662	y1 "{ Class:SmallInteger }"
93426020ceed * empty log message * ca parents: 2216 diff changeset	2663	size "{ Class:SmallInteger }"
93426020ceed * empty log message * ca parents: 2216 diff changeset	2664	insetX "{ Class:SmallInteger }"
93426020ceed * empty log message * ca parents: 2216 diff changeset	2665	insetY "{ Class:SmallInteger }"
93426020ceed * empty log message * ca parents: 2216 diff changeset	2666	labelInsetX "{ Class:SmallInteger }"
93426020ceed * empty log message * ca parents: 2216 diff changeset	2667	labelInsetY "{ Class:SmallInteger }"
93426020ceed * empty log message * ca parents: 2216 diff changeset	2668	itemMargin "{ Class:SmallInteger }"
93426020ceed * empty log message * ca parents: 2216 diff changeset	2669	groupDividerSize "{ Class:SmallInteger }"
710 4453e463ff16 add new feature: ca parents: 709 diff changeset	2670	\|
3411 a7a58a10cdcd extra menu-indicator click behavior Claus Gittinger <cg@exept.de> parents: 3403 diff changeset	2671
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2672	(mustRearrange and:[(size := items size) ~~ 0]) ifFalse:[
1478 38f08dec8e34 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	2673	mustRearrange := false.
2433 49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	2674	^ self
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2675	].
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	2676
2080 f37673e44158 Fix rearrangeItem stuff Stefan Vogel <sv@exept.de> parents: 2079 diff changeset	2677	"/ DON'T SET THIS!!
f37673e44158 Fix rearrangeItem stuff Stefan Vogel <sv@exept.de> parents: 2079 diff changeset	2678	"/ item layout: below of first item -> item invalidate
f37673e44158 Fix rearrangeItem stuff Stefan Vogel <sv@exept.de> parents: 2079 diff changeset	2679	"/ -> menuPanel invalidateItem:repairDamage:
f37673e44158 Fix rearrangeItem stuff Stefan Vogel <sv@exept.de> parents: 2079 diff changeset	2680	"/ -> invalidate:rapairDamage:
f37673e44158 Fix rearrangeItem stuff Stefan Vogel <sv@exept.de> parents: 2079 diff changeset	2681	"/ -> redrawX:y:width:height:
f37673e44158 Fix rearrangeItem stuff Stefan Vogel <sv@exept.de> parents: 2079 diff changeset	2682	"/ tries to get uninitialized layout from second item.
f37673e44158 Fix rearrangeItem stuff Stefan Vogel <sv@exept.de> parents: 2079 diff changeset	2683	"/ This happens in a modal debugger!!
f37673e44158 Fix rearrangeItem stuff Stefan Vogel <sv@exept.de> parents: 2079 diff changeset	2684	"/ mustRearrange := false.
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	2685	isVertical := self verticalLayout.
93426020ceed * empty log message * ca parents: 2216 diff changeset	2686	groupDividerSize := self groupDividerSize.
93426020ceed * empty log message * ca parents: 2216 diff changeset	2687	isPopUpMenu := self isPopUpView.
1791 bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	2688
bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	2689	isPopUpMenu ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	2690	labelInsetX := labelInsetY := self enteredLevel abs.
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2691	] ifTrue:[
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	2692	labelInsetX := labelInsetY := 0
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2693	].
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2694
3334 50374a42b3d9 use accessors for hiddenOnrealize and explicitExtent Claus Gittinger <cg@exept.de> parents: 3332 diff changeset	2695	(isPopUpMenu or:[self hasExplicitExtent not]) ifTrue:[
50374a42b3d9 use accessors for hiddenOnrealize and explicitExtent Claus Gittinger <cg@exept.de> parents: 3332 diff changeset	2696	\|saveExtent maxExtent extentToSet\|
50374a42b3d9 use accessors for hiddenOnrealize and explicitExtent Claus Gittinger <cg@exept.de> parents: 3332 diff changeset	2697
2729 d28bc8243494 Do not set maxExtent (to the Screen size) in StandartSystemView. Stefan Vogel <sv@exept.de> parents: 2715 diff changeset	2698	extent := self preferredExtent.
d28bc8243494 Do not set maxExtent (to the Screen size) in StandartSystemView. Stefan Vogel <sv@exept.de> parents: 2715 diff changeset	2699
d28bc8243494 Do not set maxExtent (to the Screen size) in StandartSystemView. Stefan Vogel <sv@exept.de> parents: 2715 diff changeset	2700	isPopUpMenu ifTrue:[
d28bc8243494 Do not set maxExtent (to the Screen size) in StandartSystemView. Stefan Vogel <sv@exept.de> parents: 2715 diff changeset	2701	maxExtent := self maxExtent.
d28bc8243494 Do not set maxExtent (to the Screen size) in StandartSystemView. Stefan Vogel <sv@exept.de> parents: 2715 diff changeset	2702	maxExtent notNil ifTrue:[
d28bc8243494 Do not set maxExtent (to the Screen size) in StandartSystemView. Stefan Vogel <sv@exept.de> parents: 2715 diff changeset	2703	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	2704	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	2705	].
d28bc8243494 Do not set maxExtent (to the Screen size) in StandartSystemView. Stefan Vogel <sv@exept.de> parents: 2715 diff changeset	2706	] ifFalse:[
d28bc8243494 Do not set maxExtent (to the Screen size) in StandartSystemView. Stefan Vogel <sv@exept.de> parents: 2715 diff changeset	2707	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	2708	].
2729 d28bc8243494 Do not set maxExtent (to the Screen size) in StandartSystemView. Stefan Vogel <sv@exept.de> parents: 2715 diff changeset	2709	self extent:extentToSet.
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2710	] ifFalse:[
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2711	extent := self computeExtent
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2712	].
1082 382324ddce3f support and additional buttonSpacing (for normal and win95 styles) Claus Gittinger <cg@exept.de> parents: 1081 diff changeset	2713
1093 7cb44303b016 margin fixes Claus Gittinger <cg@exept.de> parents: 1090 diff changeset	2714	x := y := margin.
7cb44303b016 margin fixes Claus Gittinger <cg@exept.de> parents: 1090 diff changeset	2715
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2716	isVertical ifFalse:[
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2717	y0 := margin.
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2718	y1 := extent y - margin.
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2719
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2720	items keysAndValuesDo:[:anIndex :el\|
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2721	el isVisible ifFalse:[
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2722	el layout:(Rectangle left:x top:y0 right:x bottom:y1)
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2723	] ifTrue:[
1478 38f08dec8e34 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	2724	el isButton ifTrue:[
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	2725	insetX := buttonInsetX.
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	2726	insetY := buttonInsetY.
2062 31ba9af25394 checkin from browser Claus Gittinger <cg@exept.de> parents: 2061 diff changeset	2727	] ifFalse:[
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	2728	insetX := labelInsetX.
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	2729	insetY := labelInsetY.
1478 38f08dec8e34 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	2730	].
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	2731	x0 := x + insetX.
3421 de7368c2dd11 added preferredWidth & preferredHeight Claus Gittinger <cg@exept.de> parents: 3415 diff changeset	2732	x1 := x0 + (el preferredWidth).
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	2733	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	2734	x := x1 + insetX.
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2735
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2736	size ~~ anIndex ifTrue:[
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2737	(self hasGroupDividerAt:anIndex) ifTrue:[
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2738	x := x + groupDividerSize
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2739	] ifFalse:[
2433 49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	2740	el needsItemSpaceWhenDrawing ifTrue:[
1723 f633725a0ace use itemSpace only for horizontal menus and between labeled items ca parents: 1719 diff changeset	2741	x := x + itemSpace
f633725a0ace use itemSpace only for horizontal menus and between labeled items ca parents: 1719 diff changeset	2742	]
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2743	]
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2744	]
1478 38f08dec8e34 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	2745	].
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2746	].
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2747	] ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	2748	itemMargin := self itemMargin.
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2749	x0 := margin.
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	2750	x1 := extent x - margin - itemMargin. "/ -1
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2751
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2752	items keysAndValuesDo:[:anIndex :el\|
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2753	el isVisible ifFalse:[
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2754	el layout:(Rectangle left:x0 top:y right:x1 bottom:y)
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2755	] ifTrue:[
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2756	el isButton ifTrue:[
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	2757	insetX := buttonInsetX.
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	2758	insetY := buttonInsetY.
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2759	] ifFalse:[
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	2760	insetX := labelInsetX.
aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	2761	insetY := labelInsetY.
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2762	].
2145 aa6c81509521 prep to separate vertical from horizontal space penk parents: 2143 diff changeset	2763	y0 := y + insetY.
3421 de7368c2dd11 added preferredWidth & preferredHeight Claus Gittinger <cg@exept.de> parents: 3415 diff changeset	2764	y1 := y0 + el preferredHeight.
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	2765	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	2766	y := y1 + insetY.
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2767
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2768	size ~~ anIndex ifTrue:[
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2769	(self hasGroupDividerAt:anIndex) ifTrue:[
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2770	y := y + groupDividerSize
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2771	]
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2772	]
1478 38f08dec8e34 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	2773	]
38f08dec8e34 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	2774	]
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2775	].
710 4453e463ff16 add new feature: ca parents: 709 diff changeset	2776	self rearrangeGroups.
2048 ba472f3f46c7 code cleanup Claus Gittinger <cg@exept.de> parents: 2047 diff changeset	2777	selection notNil ifTrue:[self makeItemVisible:selection].
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2778	mustRearrange := false.
2048 ba472f3f46c7 code cleanup Claus Gittinger <cg@exept.de> parents: 2047 diff changeset	2779
ba472f3f46c7 code cleanup Claus Gittinger <cg@exept.de> parents: 2047 diff changeset	2780	"Modified: / 13.11.2001 / 20:17:21 / cg"
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2781	!
dce33f8bb806 intitial checkin ca parents: diff changeset	2782
1217 c6a4c536aa8c care for items which change visibility via Claus Gittinger <cg@exept.de> parents: 1212 diff changeset	2783	rearrangeItemsIfItemVisibilityChanged
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2784	"check for items which can change its visibility;
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2785	if at least one item exists, rearrange all items"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2786
1464 3070de4c8b88 checkin from browser Claus Gittinger <cg@exept.de> parents: 1459 diff changeset	2787	items isNil ifTrue:[^ self].
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2788
1217 c6a4c536aa8c care for items which change visibility via Claus Gittinger <cg@exept.de> parents: 1212 diff changeset	2789	items do:[:item \|
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2790	item canChangeVisibility ifTrue:[
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2791	mustRearrange := true.
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2792	self rearrangeItems.
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2793	^ self
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2794	].
1217 c6a4c536aa8c care for items which change visibility via Claus Gittinger <cg@exept.de> parents: 1212 diff changeset	2795	]
c6a4c536aa8c care for items which change visibility via Claus Gittinger <cg@exept.de> parents: 1212 diff changeset	2796	!
c6a4c536aa8c care for items which change visibility via Claus Gittinger <cg@exept.de> parents: 1212 diff changeset	2797
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2798	redrawX:x y:y width:w height:h
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2799	"redraw a damage"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2800
3242 4d8c5bde0f98 Show scroll buttons, if menu is larger than screen (needed for PopupListm ComboBox, ...) Stefan Vogel <sv@exept.de> parents: 3233 diff changeset	2801	\|y0 y1 x0 x1 prvBound mustDraw nxtBound\|
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2802
710 4453e463ff16 add new feature: ca parents: 709 diff changeset	2803	(shown and:[w ~~ 0]) ifFalse:[^ self].
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2804
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2805	mustRearrange ifTrue:[
3334 50374a42b3d9 use accessors for hiddenOnrealize and explicitExtent Claus Gittinger <cg@exept.de> parents: 3332 diff changeset	2806	self isPopUpView ifFalse:[ self explicitExtent:true].
1387 ad7a920fdf61 less flicker by using a clipRect in redraw Claus Gittinger <cg@exept.de> parents: 1382 diff changeset	2807	self rearrangeItems.
2569 bfe9e33b545e not ifTrue -> ifFalse Claus Gittinger <cg@exept.de> parents: 2550 diff changeset	2808	self invalidate.
bfe9e33b545e not ifTrue -> ifFalse Claus Gittinger <cg@exept.de> parents: 2550 diff changeset	2809	^ self
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2810	].
2888 095d9fb3e846 * empty log message * Claus Gittinger <cg@exept.de> parents: 2884 diff changeset	2811	"/ self paint:(self viewBackground).
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2812	self clearRectangleX:x y:y width:w height:h.
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2813
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2814	items size == 0 ifTrue:[
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2815	^ self
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2816	].
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2817	y0 := y.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2818	y1 := y + h.
2018 2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	2819	x0 := x.
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	2820	x1 := x + w.
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2821
3242 4d8c5bde0f98 Show scroll buttons, if menu is larger than screen (needed for PopupListm ComboBox, ...) Stefan Vogel <sv@exept.de> parents: 3233 diff changeset	2822	"Draw the scroll handles - especially for Popup-Lists"
4d8c5bde0f98 Show scroll buttons, if menu is larger than screen (needed for PopupListm ComboBox, ...) Stefan Vogel <sv@exept.de> parents: 3233 diff changeset	2823
4d8c5bde0f98 Show scroll buttons, if menu is larger than screen (needed for PopupListm ComboBox, ...) Stefan Vogel <sv@exept.de> parents: 3233 diff changeset	2824	self hasScrollers ifTrue:[
4d8c5bde0f98 Show scroll buttons, if menu is larger than screen (needed for PopupListm ComboBox, ...) Stefan Vogel <sv@exept.de> parents: 3233 diff changeset	2825	(self hasScrollerAt:#PREV) ifTrue:[
4d8c5bde0f98 Show scroll buttons, if menu is larger than screen (needed for PopupListm ComboBox, ...) Stefan Vogel <sv@exept.de> parents: 3233 diff changeset	2826	prvBound := self scrollerBoundsAt:#PREV.
4d8c5bde0f98 Show scroll buttons, if menu is larger than screen (needed for PopupListm ComboBox, ...) Stefan Vogel <sv@exept.de> parents: 3233 diff changeset	2827
4d8c5bde0f98 Show scroll buttons, if menu is larger than screen (needed for PopupListm ComboBox, ...) Stefan Vogel <sv@exept.de> parents: 3233 diff changeset	2828	self verticalLayout ifTrue:[
4d8c5bde0f98 Show scroll buttons, if menu is larger than screen (needed for PopupListm ComboBox, ...) Stefan Vogel <sv@exept.de> parents: 3233 diff changeset	2829	(mustDraw := (prvBound bottom > y)) ifTrue:[
4d8c5bde0f98 Show scroll buttons, if menu is larger than screen (needed for PopupListm ComboBox, ...) Stefan Vogel <sv@exept.de> parents: 3233 diff changeset	2830	y0 := prvBound bottom.
2018 2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	2831	].
3242 4d8c5bde0f98 Show scroll buttons, if menu is larger than screen (needed for PopupListm ComboBox, ...) Stefan Vogel <sv@exept.de> parents: 3233 diff changeset	2832	] ifFalse:[
4d8c5bde0f98 Show scroll buttons, if menu is larger than screen (needed for PopupListm ComboBox, ...) Stefan Vogel <sv@exept.de> parents: 3233 diff changeset	2833	(mustDraw := (prvBound right > x)) ifTrue:[
4d8c5bde0f98 Show scroll buttons, if menu is larger than screen (needed for PopupListm ComboBox, ...) Stefan Vogel <sv@exept.de> parents: 3233 diff changeset	2834	x0 := prvBound right.
2018 2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	2835	].
2052 61367c7a47aa * empty log message * Claus Gittinger <cg@exept.de> parents: 2051 diff changeset	2836	].
3242 4d8c5bde0f98 Show scroll buttons, if menu is larger than screen (needed for PopupListm ComboBox, ...) Stefan Vogel <sv@exept.de> parents: 3233 diff changeset	2837	mustDraw ifTrue:[
4d8c5bde0f98 Show scroll buttons, if menu is larger than screen (needed for PopupListm ComboBox, ...) Stefan Vogel <sv@exept.de> parents: 3233 diff changeset	2838	self drawScrollerAt:#PREV bounds:prvBound.
2052 61367c7a47aa * empty log message * Claus Gittinger <cg@exept.de> parents: 2051 diff changeset	2839	].
1387 ad7a920fdf61 less flicker by using a clipRect in redraw Claus Gittinger <cg@exept.de> parents: 1382 diff changeset	2840	].
3242 4d8c5bde0f98 Show scroll buttons, if menu is larger than screen (needed for PopupListm ComboBox, ...) Stefan Vogel <sv@exept.de> parents: 3233 diff changeset	2841
4d8c5bde0f98 Show scroll buttons, if menu is larger than screen (needed for PopupListm ComboBox, ...) Stefan Vogel <sv@exept.de> parents: 3233 diff changeset	2842	(self hasScrollerAt:#NEXT) ifTrue:[
4d8c5bde0f98 Show scroll buttons, if menu is larger than screen (needed for PopupListm ComboBox, ...) Stefan Vogel <sv@exept.de> parents: 3233 diff changeset	2843	nxtBound := self scrollerBoundsAt:#NEXT.
4d8c5bde0f98 Show scroll buttons, if menu is larger than screen (needed for PopupListm ComboBox, ...) Stefan Vogel <sv@exept.de> parents: 3233 diff changeset	2844
4d8c5bde0f98 Show scroll buttons, if menu is larger than screen (needed for PopupListm ComboBox, ...) Stefan Vogel <sv@exept.de> parents: 3233 diff changeset	2845	self verticalLayout ifTrue:[
4d8c5bde0f98 Show scroll buttons, if menu is larger than screen (needed for PopupListm ComboBox, ...) Stefan Vogel <sv@exept.de> parents: 3233 diff changeset	2846	(mustDraw := (nxtBound top < y1)) ifTrue:[
4d8c5bde0f98 Show scroll buttons, if menu is larger than screen (needed for PopupListm ComboBox, ...) Stefan Vogel <sv@exept.de> parents: 3233 diff changeset	2847	y1 := nxtBound top.
4d8c5bde0f98 Show scroll buttons, if menu is larger than screen (needed for PopupListm ComboBox, ...) Stefan Vogel <sv@exept.de> parents: 3233 diff changeset	2848	]
4d8c5bde0f98 Show scroll buttons, if menu is larger than screen (needed for PopupListm ComboBox, ...) Stefan Vogel <sv@exept.de> parents: 3233 diff changeset	2849	] ifFalse:[
4d8c5bde0f98 Show scroll buttons, if menu is larger than screen (needed for PopupListm ComboBox, ...) Stefan Vogel <sv@exept.de> parents: 3233 diff changeset	2850	(mustDraw := (nxtBound left < x1)) ifTrue:[
4d8c5bde0f98 Show scroll buttons, if menu is larger than screen (needed for PopupListm ComboBox, ...) Stefan Vogel <sv@exept.de> parents: 3233 diff changeset	2851	x1 := nxtBound left.
4d8c5bde0f98 Show scroll buttons, if menu is larger than screen (needed for PopupListm ComboBox, ...) Stefan Vogel <sv@exept.de> parents: 3233 diff changeset	2852	]
4d8c5bde0f98 Show scroll buttons, if menu is larger than screen (needed for PopupListm ComboBox, ...) Stefan Vogel <sv@exept.de> parents: 3233 diff changeset	2853	].
4d8c5bde0f98 Show scroll buttons, if menu is larger than screen (needed for PopupListm ComboBox, ...) Stefan Vogel <sv@exept.de> parents: 3233 diff changeset	2854	mustDraw ifTrue:[
4d8c5bde0f98 Show scroll buttons, if menu is larger than screen (needed for PopupListm ComboBox, ...) Stefan Vogel <sv@exept.de> parents: 3233 diff changeset	2855	self drawScrollerAt:#NEXT bounds:nxtBound.
4d8c5bde0f98 Show scroll buttons, if menu is larger than screen (needed for PopupListm ComboBox, ...) Stefan Vogel <sv@exept.de> parents: 3233 diff changeset	2856	].
4d8c5bde0f98 Show scroll buttons, if menu is larger than screen (needed for PopupListm ComboBox, ...) Stefan Vogel <sv@exept.de> parents: 3233 diff changeset	2857	].
4d8c5bde0f98 Show scroll buttons, if menu is larger than screen (needed for PopupListm ComboBox, ...) Stefan Vogel <sv@exept.de> parents: 3233 diff changeset	2858	].
4d8c5bde0f98 Show scroll buttons, if menu is larger than screen (needed for PopupListm ComboBox, ...) Stefan Vogel <sv@exept.de> parents: 3233 diff changeset	2859	self menuAdornmentAt:#lastDrawnScrollerNextBounds put:nxtBound.
4d8c5bde0f98 Show scroll buttons, if menu is larger than screen (needed for PopupListm ComboBox, ...) Stefan Vogel <sv@exept.de> parents: 3233 diff changeset	2860
2018 2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	2861	(y1 > y0 and:[x1 > x0]) ifTrue:[
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	2862	self drawItemsX:x0 y:y0 width:(x1 - x0) height:(y1 - y0)
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2863	].
2052 61367c7a47aa * empty log message * Claus Gittinger <cg@exept.de> parents: 2051 diff changeset	2864
61367c7a47aa * empty log message * Claus Gittinger <cg@exept.de> parents: 2051 diff changeset	2865	"Modified: / 15.11.2001 / 20:57:32 / cg"
3411 a7a58a10cdcd extra menu-indicator click behavior Claus Gittinger <cg@exept.de> parents: 3403 diff changeset	2866	!
a7a58a10cdcd extra menu-indicator click behavior Claus Gittinger <cg@exept.de> parents: 3403 diff changeset	2867
a7a58a10cdcd extra menu-indicator click behavior Claus Gittinger <cg@exept.de> parents: 3403 diff changeset	2868	updateEnteredItem
a7a58a10cdcd extra menu-indicator click behavior Claus Gittinger <cg@exept.de> parents: 3403 diff changeset	2869	\|mousePoint\|
a7a58a10cdcd extra menu-indicator click behavior Claus Gittinger <cg@exept.de> parents: 3403 diff changeset	2870
a7a58a10cdcd extra menu-indicator click behavior Claus Gittinger <cg@exept.de> parents: 3403 diff changeset	2871	mousePoint := device translatePoint:(device pointerPosition)
a7a58a10cdcd extra menu-indicator click behavior Claus Gittinger <cg@exept.de> parents: 3403 diff changeset	2872	fromView:nil
a7a58a10cdcd extra menu-indicator click behavior Claus Gittinger <cg@exept.de> parents: 3403 diff changeset	2873	toView:self.
a7a58a10cdcd extra menu-indicator click behavior Claus Gittinger <cg@exept.de> parents: 3403 diff changeset	2874
a7a58a10cdcd extra menu-indicator click behavior Claus Gittinger <cg@exept.de> parents: 3403 diff changeset	2875	(self containsPoint:mousePoint) ifTrue:[
a7a58a10cdcd extra menu-indicator click behavior Claus Gittinger <cg@exept.de> parents: 3403 diff changeset	2876	enteredItem := self itemAtPoint:mousePoint
a7a58a10cdcd extra menu-indicator click behavior Claus Gittinger <cg@exept.de> parents: 3403 diff changeset	2877	].
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2878	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	2879
dce33f8bb806 intitial checkin ca parents: diff changeset	2880	!MenuPanel methodsFor:'enumerting & searching'!
dce33f8bb806 intitial checkin ca parents: diff changeset	2881
dce33f8bb806 intitial checkin ca parents: diff changeset	2882	collect:aOneArgBlock
dce33f8bb806 intitial checkin ca parents: diff changeset	2883	"evaluate the argument, aOneArgBlock for every item in the menuPanel
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2884	and return a collection of the results"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2885
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2886	items notNil ifTrue:[^ items collect:aOneArgBlock ].
2059 c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	2887	^ nil
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2888	!
dce33f8bb806 intitial checkin ca parents: diff changeset	2889
dce33f8bb806 intitial checkin ca parents: diff changeset	2890	do:aOneArgBlock
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2891	"evaluate the argument, aOneArgBlock for every item in the menuPanel."
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2892
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2893	items notNil ifTrue:[ items do:aOneArgBlock ].
dce33f8bb806 intitial checkin ca parents: diff changeset	2894	!
dce33f8bb806 intitial checkin ca parents: diff changeset	2895
dce33f8bb806 intitial checkin ca parents: diff changeset	2896	findFirst:aOneArgBlock
3206 48a66f672af3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3203 diff changeset	2897	"find the index of the first item, for which evaluation of the argument, aOneArgBlock
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2898	returns true; return its index or 0 if none detected."
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2899
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2900	items notNil ifTrue:[ ^ items findFirst:aOneArgBlock ].
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2901	^ 0
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2902	!
dce33f8bb806 intitial checkin ca parents: diff changeset	2903
dce33f8bb806 intitial checkin ca parents: diff changeset	2904	findLast:aOneArgBlock
dce33f8bb806 intitial checkin ca parents: diff changeset	2905	"find the last item, for which evaluation of the argument, aOneArgBlock
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2906	returns true; return its index or 0 if none detected."
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2907
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2908	items notNil ifTrue:[ ^ items findLast:aOneArgBlock ].
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2909	^ 0
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2910	!
dce33f8bb806 intitial checkin ca parents: diff changeset	2911
3187 f97f27a9d496 focus handling ca parents: 3158 diff changeset	2912	firstItemSelectable
f97f27a9d496 focus handling ca parents: 3158 diff changeset	2913	"returns the first item which is selectable or nil
f97f27a9d496 focus handling ca parents: 3158 diff changeset	2914	"
f97f27a9d496 focus handling ca parents: 3158 diff changeset	2915	items size > 0 ifTrue:[
f97f27a9d496 focus handling ca parents: 3158 diff changeset	2916	^ items detect:[:anItem\| anItem canSelect ] ifNone:nil
f97f27a9d496 focus handling ca parents: 3158 diff changeset	2917	].
f97f27a9d496 focus handling ca parents: 3158 diff changeset	2918	^ nil
f97f27a9d496 focus handling ca parents: 3158 diff changeset	2919	!
f97f27a9d496 focus handling ca parents: 3158 diff changeset	2920
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2921	indexOf:something
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2922	"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	2923	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	2924
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2925	\|i v\|
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2926
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2927	something isNumber ifTrue:[ ^ something ].
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2928	something isNil ifTrue:[ ^ 0 ].
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2929
1218 6ce43fcb2603 code cleanup Claus Gittinger <cg@exept.de> parents: 1217 diff changeset	2930	i := self findFirst:[:el \| (el nameKey = something) or: [el = something]].
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2931
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2932	i ~~ 0 ifTrue:[
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2933	^ i
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2934	].
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2935
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2936	something isSymbol ifTrue:[
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2937	i := self findFirst:[:el\|
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2938	v := el value.
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2939	v isSymbol and:[v == something]
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2940	].
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2941	i ~~ 0 ifTrue:[
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2942	^ i
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2943	]
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2944	].
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2945
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2946	(something respondsTo:#string) ifTrue:[
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2947	v := something string.
1218 6ce43fcb2603 code cleanup Claus Gittinger <cg@exept.de> parents: 1217 diff changeset	2948	^ self findFirst:[:el \| el textLabel = v].
6ce43fcb2603 code cleanup Claus Gittinger <cg@exept.de> parents: 1217 diff changeset	2949	].
6ce43fcb2603 code cleanup Claus Gittinger <cg@exept.de> parents: 1217 diff changeset	2950	^ 0
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2951	!
dce33f8bb806 intitial checkin ca parents: diff changeset	2952
706 d716edbdbe47 show separators bug cleaned tz parents: 689 diff changeset	2953	indexOfItem:anItem
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2954	"returns the index of the item or 0"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2955
706 d716edbdbe47 show separators bug cleaned tz parents: 689 diff changeset	2956	^ items notNil ifTrue:[items identityIndexOf:anItem] ifFalse:[0]
d716edbdbe47 show separators bug cleaned tz parents: 689 diff changeset	2957	!
d716edbdbe47 show separators bug cleaned tz parents: 689 diff changeset	2958
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2959	keysAndValuesDo:aTwoArgBlock
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2960	"evaluate the argument, aTwoArgBlock for every item in the menuPanel."
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2961
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2962	items notNil ifTrue:[ items keysAndValuesDo:aTwoArgBlock ].
dce33f8bb806 intitial checkin ca parents: diff changeset	2963	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	2964
dce33f8bb806 intitial checkin ca parents: diff changeset	2965	!MenuPanel methodsFor:'event handling'!
dce33f8bb806 intitial checkin ca parents: diff changeset	2966
dce33f8bb806 intitial checkin ca parents: diff changeset	2967	buttonMotion:state x:x y:y
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2968	"open or close the corresponding submenu"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	2969
2046 012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	2970	\|menue motionPoint translatedPoint sensor\|
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2971
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	2972	self scrollActivity isActive ifTrue:[
2347 9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	2973	^ self
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2974	].
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	2975
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2976	sensor := self sensor.
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2977	(sensor isNil or:[sensor hasButtonMotionEventFor:nil]) ifTrue:[
2347 9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	2978	^ self
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2979	].
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2980	menue := self detectGrabMenu.
1841 5d01716cc37c implement: triggerOnDown ca parents: 1836 diff changeset	2981
2046 012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	2982	motionPoint := x@y.
012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	2983	translatedPoint := menue translateGrabPoint:motionPoint.
2048 ba472f3f46c7 code cleanup Claus Gittinger <cg@exept.de> parents: 2047 diff changeset	2984	menue handleButtonMotion:state atPoint:translatedPoint.
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2985
3780 14184c505e24 changed: Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	2986	"/ hideOnRelease := true.
2347 9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	2987
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2988	(self isPopUpView or:[sensor anyButtonPressed]) ifTrue:[
2347 9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	2989	^ self
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2990	].
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	2991
3826 608aa28e7676 changed: #buttonMotion:x:y: Claus Gittinger <cg@exept.de> parents: 3823 diff changeset	2992	hideOnRelease ifTrue:[
608aa28e7676 changed: #buttonMotion:x:y: Claus Gittinger <cg@exept.de> parents: 3823 diff changeset	2993	sensor anyButtonPressed ifFalse:[^ self]
608aa28e7676 changed: #buttonMotion:x:y: Claus Gittinger <cg@exept.de> parents: 3823 diff changeset	2994	] ifFalse:[
608aa28e7676 changed: #buttonMotion:x:y: Claus Gittinger <cg@exept.de> parents: 3823 diff changeset	2995	sensor anyButtonPressed ifTrue:[^ self]
608aa28e7676 changed: #buttonMotion:x:y: Claus Gittinger <cg@exept.de> parents: 3823 diff changeset	2996	].
608aa28e7676 changed: #buttonMotion:x:y: Claus Gittinger <cg@exept.de> parents: 3823 diff changeset	2997
1786 f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	2998	(selection notNil and:[selection visibleSubmenu isNil]) ifTrue:[
3321 2f495adadca5 * empty log message * Claus Gittinger <cg@exept.de> parents: 3301 diff changeset	2999	"/ selection on grabView without a submenu (Button ...); check whether moving out
2347 9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	3000	(self containsPoint:motionPoint) ifFalse:[
9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	3001	^ self accept:nil
9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	3002	]
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3003	].
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3004
2048 ba472f3f46c7 code cleanup Claus Gittinger <cg@exept.de> parents: 2047 diff changeset	3005	"Modified: / 13.11.2001 / 20:21:49 / cg"
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3006	!
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3007
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3008	buttonPress:button x:x y:y
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	3009	"any button pressed; open or close the corresponding submenus"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	3010
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	3011	\|menu point\|
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	3012
2347 9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	3013	hideOnRelease := true.
9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	3014
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	3015	self scrollActivity stop.
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	3016	point := x@y.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	3017	menu := self detectMenuAtGrabPoint:point.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	3018
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	3019	menu isNil ifTrue:[
3203 97d6c1d7b7d7 get timeStamp from buttonPress and buttonRelease event ca parents: 3192 diff changeset	3020	self accept:nil
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	3021	] ifFalse:[
2347 9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	3022	point := menu translateGrabPoint:point.
3383 81b34d7be9b4 right-click delayed menu Claus Gittinger <cg@exept.de> parents: 3363 diff changeset	3023	menu handleButtonPress:button atPoint:point.
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	3024	]
2046 012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	3025
012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	3026	"Modified: / 13.11.2001 / 14:12:32 / cg"
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3027	!
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3028
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3029	buttonRelease:button x:x y:y
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	3030	"button release action; accept selection and close all views"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	3031
2679 302ab06d7110 * empty log message * Claus Gittinger <cg@exept.de> parents: 2676 diff changeset	3032	\|topMenu dstMenu item srcPoint dstPoint subm hideMenuAndPerformAction
3203 97d6c1d7b7d7 get timeStamp from buttonPress and buttonRelease event ca parents: 3192 diff changeset	3033	releaseTime menuMapTime\|
2199 61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	3034
3780 14184c505e24 changed: Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	3035	hideOnRelease ifFalse:[
14184c505e24 changed: Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	3036	^ self
14184c505e24 changed: Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	3037	].
14184c505e24 changed: Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	3038
2199 61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	3039	topMenu := self topMenu.
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	3040	topMenu openDelayed:nil.
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3041
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	3042	self scrollActivity stop ifTrue:[
2255 e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	3043	^ self
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	3044	].
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	3045
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3046	dstMenu := topMenu activeMenu.
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3047
2679 302ab06d7110 * empty log message * Claus Gittinger <cg@exept.de> parents: 2676 diff changeset	3048	hideMenuAndPerformAction := dstMenu selection notNil or:[dstMenu isPopUpView not].
302ab06d7110 * empty log message * Claus Gittinger <cg@exept.de> parents: 2676 diff changeset	3049
302ab06d7110 * empty log message * Claus Gittinger <cg@exept.de> parents: 2676 diff changeset	3050	hideMenuAndPerformAction ifFalse:[
302ab06d7110 * empty log message * Claus Gittinger <cg@exept.de> parents: 2676 diff changeset	3051	hideOnRelease ifTrue:[
3203 97d6c1d7b7d7 get timeStamp from buttonPress and buttonRelease event ca parents: 3192 diff changeset	3052	releaseTime := windowGroup lastEvent timeStamp.
97d6c1d7b7d7 get timeStamp from buttonPress and buttonRelease event ca parents: 3192 diff changeset	3053	menuMapTime := dstMenu mapTime ? releaseTime.
97d6c1d7b7d7 get timeStamp from buttonPress and buttonRelease event ca parents: 3192 diff changeset	3054
97d6c1d7b7d7 get timeStamp from buttonPress and buttonRelease event ca parents: 3192 diff changeset	3055	hideMenuAndPerformAction := (releaseTime millisecondDeltaFrom:menuMapTime)
3411 a7a58a10cdcd extra menu-indicator click behavior Claus Gittinger <cg@exept.de> parents: 3403 diff changeset	3056	> (PopUpMenu maxClickTimeToStayOpen).
a7a58a10cdcd extra menu-indicator click behavior Claus Gittinger <cg@exept.de> parents: 3403 diff changeset	3057	].
a7a58a10cdcd extra menu-indicator click behavior Claus Gittinger <cg@exept.de> parents: 3403 diff changeset	3058	].
2679 302ab06d7110 * empty log message * Claus Gittinger <cg@exept.de> parents: 2676 diff changeset	3059	hideMenuAndPerformAction ifTrue:[
2255 e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	3060	srcPoint := x@y.
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3061
2255 e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	3062	( (dstMenu := self detectMenuAtGrabPoint:srcPoint) notNil
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	3063	and:[(item := dstMenu selection) notNil]
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	3064	) ifTrue:[
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	3065	item visibleSubmenu notNil ifTrue:[
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	3066	dstMenu selection:nil.
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	3067	(selection isNil and:[self isPopUpView not]) ifTrue:[
3411 a7a58a10cdcd extra menu-indicator click behavior Claus Gittinger <cg@exept.de> parents: 3403 diff changeset	3068	self accept:nil.
2255 e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	3069	].
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	3070	^ self
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	3071	].
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	3072	subm := item currentSubmenu.
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	3073
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	3074	subm notNil ifTrue:[
2255 e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	3075	subm shown ifTrue:[^ self].
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	3076	"/ test whether any action is assigned to the menu
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	3077	"/ if not ignorre accept
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	3078	item hasDelayedMenu ifFalse:[^ self].
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	3079	"/ handle action defined for the delayed menu
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	3080	].
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	3081	dstPoint := dstMenu translateGrabPoint:srcPoint.
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	3082
2347 9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	3083	(dstMenu itemAtPoint:dstPoint) == dstMenu selection ifFalse:[
2255 e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	3084	item := nil
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	3085	].
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	3086	topMenu acceptItem:item inMenu:dstMenu.
2347 9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	3087	^ self
2255 e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	3088	].
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	3089
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	3090	(selection notNil and:[dstMenu == self]) ifTrue:[
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	3091	selection visibleSubmenu notNil ifTrue:[
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	3092	^ self
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	3093	]
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	self accept:nil.
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3096	].
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3097	!
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3098
2860 300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	3099	handleSizeChanged:how
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	3100	"used to handle the scrollers and groups in a none popUpView
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	3101	"
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	3102	\|layouts damage isVertical scrollBound\|
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	3103
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	3104	(mustRearrange or:[items size == 0 or:[self isPopUpView]]) ifTrue:[
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	3105	^ self
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	3106	].
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	3107	mustRearrange := true.
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	3108
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	3109	shown ifFalse:[
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	3110	^ self
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	3111	].
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	3112	layouts := OrderedCollection new.
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	3113
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	3114	items do:[:el\| \|layout\|
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	3115	(layout := el layout) isNil ifTrue:[
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	3116	self invalidate.
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	3117	^ self.
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	3118	].
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	3119	layouts add:layout.
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	3120	].
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	3121	isVertical := self verticalLayout.
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	3122	scrollBound := self scrollerBoundsAt:#NEXT.
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	3123
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	3124	self rearrangeItems.
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	3125
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	3126	items keysAndValuesDo:[:i :el\| \|newLyt oldLyt\|
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	3127	damage isNil ifTrue:[
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	3128	newLyt := el layout.
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	3129	oldLyt := layouts at:i ifAbsent:newLyt.
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	3130
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	3131	newLyt ~= oldLyt ifTrue:[ \|x y start\|
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	3132	start := 0.
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	3133
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	3134	i > 1 ifTrue:[
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	3135	isVertical ifTrue:[
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	3136	x := 0.
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	3137	y := start := (oldLyt top min:(newLyt top)) min:(height - scrollBound height).
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	3138	] ifFalse:[
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	3139	y := 0.
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	3140	x := start := (oldLyt left min:(newLyt left)) min:(width - scrollBound width).
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	3141	].
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	3142	].
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	3143	start <= 20 ifTrue:[
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	3144	self invalidate.
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	3145	^ self
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	3146	].
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	3147	damage := Rectangle left:x top:y extent:(self extent).
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	3148	].
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	3149	].
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	3150	].
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	3151	damage isNil ifTrue:[
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	3152	damage := scrollBound.
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	3153	].
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	3154	scrollBound := self menuAdornmentAt:#lastDrawnScrollerNextBounds.
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	3155
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	3156	scrollBound notNil ifTrue:[
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	3157	damage := damage merge:scrollBound
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	3158	].
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	3159	self invalidate:damage.
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	3160	!
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	3161
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3162	keyPress:key x:x y:y
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	3163	"any key is pressed"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	3164
2869 3e24a0b78c17 comment Claus Gittinger <cg@exept.de> parents: 2860 diff changeset	3165	<resource: #keyboard (#Escape
3e24a0b78c17 comment Claus Gittinger <cg@exept.de> parents: 2860 diff changeset	3166	#Tab #FocusNext #FocusPrevious
3e24a0b78c17 comment Claus Gittinger <cg@exept.de> parents: 2860 diff changeset	3167	#CursorLeft #CursorRight )>
3e24a0b78c17 comment Claus Gittinger <cg@exept.de> parents: 2860 diff changeset	3168
3e24a0b78c17 comment Claus Gittinger <cg@exept.de> parents: 2860 diff changeset	3169	\|menu menusSuperMenu sensor\|
2251 30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3170
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3171	sensor := self sensor.
3158 fe0c2cb46fcb focus handling ca parents: 3148 diff changeset	3172
fe0c2cb46fcb focus handling ca parents: 3148 diff changeset	3173	"/ sensor anyButtonPressed ifTrue:[
fe0c2cb46fcb focus handling ca parents: 3148 diff changeset	3174	"/ ^ self "/ ignored while any button is pressed
fe0c2cb46fcb focus handling ca parents: 3148 diff changeset	3175	"/ ].
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3176
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	3177	self scrollActivity isActive ifTrue:[
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	3178	key ~~ #Escape ifTrue:[
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	3179	^ self
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	3180	].
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	3181	self scrollActivity stop
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	3182	].
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	3183
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3184	(key == #Tab
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3185	or:[key == #FocusNext
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3186	or:[key == #FocusPrevious]]) ifTrue:[
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3187	self accept:nil.
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	3188	^ super keyPress:key x:x y:y
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3189	].
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3190
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3191	menu := self detectGrabMenu.
2869 3e24a0b78c17 comment Claus Gittinger <cg@exept.de> parents: 2860 diff changeset	3192	menusSuperMenu := menu superMenu.
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3193
3394 90e7bc4402b5 Alt-key alone catches focus and selects first item Claus Gittinger <cg@exept.de> parents: 3384 diff changeset	3194	(key == #Escape) ifTrue:[
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3195	"/ must hide the active menu
2869 3e24a0b78c17 comment Claus Gittinger <cg@exept.de> parents: 2860 diff changeset	3196	(menusSuperMenu notNil and:[menusSuperMenu ~~ self]) ifTrue:[
1703 e127eff742bb bugfix: request focus ca parents: 1701 diff changeset	3197	"/ hide active menu but keep the grab
2869 3e24a0b78c17 comment Claus Gittinger <cg@exept.de> parents: 2860 diff changeset	3198	menusSuperMenu selection:nil
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3199	] ifFalse:[
1703 e127eff742bb bugfix: request focus ca parents: 1701 diff changeset	3200	"/ hide active menu and ungrab
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3201	self accept:nil
2251 30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3202	].
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3203	^ self
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3204	].
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3205
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3206	menu isViewWrapper ifFalse:[
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3207	sensor compressKeyPressEventsWithKey:key.
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3208	menu handleKeyPress:key.
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	3209	^ self
2251 30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3210	].
2869 3e24a0b78c17 comment Claus Gittinger <cg@exept.de> parents: 2860 diff changeset	3211	menusSuperMenu == self ifFalse:[^ self].
2251 30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3212
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3213	"/ allow cursor movement
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3214	(key == #CursorLeft or:[key == #CursorRight]) ifTrue:[
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3215	(self containsPoint:x@y) ifTrue:[
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3216	self handleKeyPress:key.
1786 f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3217	]
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3218	].
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3219	!
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3220
3415 8cfa8d86bbc8 Mousewheel support Stefan Vogel <sv@exept.de> parents: 3414 diff changeset	3221	mouseWheelMotion:buttonState x:x y:y amount:amount deltaTime:dTime
8cfa8d86bbc8 Mousewheel support Stefan Vogel <sv@exept.de> parents: 3414 diff changeset	3222	"mousewheel action"
8cfa8d86bbc8 Mousewheel support Stefan Vogel <sv@exept.de> parents: 3414 diff changeset	3223
8cfa8d86bbc8 Mousewheel support Stefan Vogel <sv@exept.de> parents: 3414 diff changeset	3224	\|menu\|
8cfa8d86bbc8 Mousewheel support Stefan Vogel <sv@exept.de> parents: 3414 diff changeset	3225
8cfa8d86bbc8 Mousewheel support Stefan Vogel <sv@exept.de> parents: 3414 diff changeset	3226	menu := self detectGrabMenu.
8cfa8d86bbc8 Mousewheel support Stefan Vogel <sv@exept.de> parents: 3414 diff changeset	3227	menu isViewWrapper ifTrue:[
8cfa8d86bbc8 Mousewheel support Stefan Vogel <sv@exept.de> parents: 3414 diff changeset	3228	menu superMenu ~~ self ifTrue:[
8cfa8d86bbc8 Mousewheel support Stefan Vogel <sv@exept.de> parents: 3414 diff changeset	3229	^ self.
8cfa8d86bbc8 Mousewheel support Stefan Vogel <sv@exept.de> parents: 3414 diff changeset	3230	].
8cfa8d86bbc8 Mousewheel support Stefan Vogel <sv@exept.de> parents: 3414 diff changeset	3231	menu := self.
8cfa8d86bbc8 Mousewheel support Stefan Vogel <sv@exept.de> parents: 3414 diff changeset	3232	].
8cfa8d86bbc8 Mousewheel support Stefan Vogel <sv@exept.de> parents: 3414 diff changeset	3233	amount > 0 ifTrue:[
8cfa8d86bbc8 Mousewheel support Stefan Vogel <sv@exept.de> parents: 3414 diff changeset	3234	menu handleCursorKey:#CursorUp.
8cfa8d86bbc8 Mousewheel support Stefan Vogel <sv@exept.de> parents: 3414 diff changeset	3235	] ifFalse:[
8cfa8d86bbc8 Mousewheel support Stefan Vogel <sv@exept.de> parents: 3414 diff changeset	3236	menu handleCursorKey:#CursorDown.
8cfa8d86bbc8 Mousewheel support Stefan Vogel <sv@exept.de> parents: 3414 diff changeset	3237	].
8cfa8d86bbc8 Mousewheel support Stefan Vogel <sv@exept.de> parents: 3414 diff changeset	3238	!
8cfa8d86bbc8 Mousewheel support Stefan Vogel <sv@exept.de> parents: 3414 diff changeset	3239
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3240	pointerLeave:state
2255 e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	3241	\|sensor\|
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	3242
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	3243	self scrollActivity isActive ifTrue:[^ self].
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	3244
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3245	self detectGrabMenu handlePointerLeave:state.
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3246
2255 e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	3247	(selection isNil or:[self isPopUpView]) ifTrue:[
2251 30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3248	^ self
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3249	].
2255 e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	3250
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	3251	selection visibleSubmenu notNil ifTrue:[^ self].
2255 e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	3252
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	3253	windowGroup focusView ~~ self ifTrue:[
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	3254	self accept:nil
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	3255	] ifFalse:[
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	3256	selection isButton ifTrue:[
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	3257	sensor := self sensor.
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	3258
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	3259	sensor isNil ifTrue:[
2251 30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3260	self accept:nil
2255 e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	3261	] ifFalse:[
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	3262	"/ I'have the focus; if no button pressed, than keep the selection
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	3263	sensor anyButtonPressed ifTrue:[
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	3264	self selection:nil
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	3265	]
e8bf6618da02 #pointerLeave: depends on selection, focusView, mouseButton... ca parents: 2253 diff changeset	3266	].
2251 30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3267	]
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3268	].
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3269	!
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3270
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3271	sizeChanged:how
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	3272	"redraw #right groups"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	3273
2860 300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	3274	"/ self isPopUpView ifFalse:[
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	3275	"/ mustRearrange := true.
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	3276	"/ self invalidate
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	3277	"/ ].
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	3278	"/ ^ super sizeChanged:how.
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	3279
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	3280	self handleSizeChanged:how.
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	3281	super sizeChanged:how.
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3282	! !
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3283
2503 4f34d55dae21 method category rename Claus Gittinger <cg@exept.de> parents: 2488 diff changeset	3284	!MenuPanel methodsFor:'event handling-processing'!
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3285
1767 e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	3286	clearImplicitGrab
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	3287	implicitGrabView := lastPointerView := nil.
1767 e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	3288	!
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	3289
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	3290	dispatchEvent:ev withFocusOn:focusView delegate:doDelegate
2482 13acaaf02528 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 2481 diff changeset	3291	"dispatch and handle an event"
13acaaf02528 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 2481 diff changeset	3292
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	3293	\|view x y p syntheticEvent menu\|
1767 e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	3294
2658 04f9fdd74b8e event handling Claus Gittinger <cg@exept.de> parents: 2652 diff changeset	3295	ev isDamage ifTrue:[
04f9fdd74b8e event handling Claus Gittinger <cg@exept.de> parents: 2652 diff changeset	3296	^ super dispatchEvent:ev withFocusOn:focusView delegate:false.
04f9fdd74b8e event handling Claus Gittinger <cg@exept.de> parents: 2652 diff changeset	3297	].
04f9fdd74b8e event handling Claus Gittinger <cg@exept.de> parents: 2652 diff changeset	3298
3142 4f1c952048c5 focusView handling ca parents: 3133 diff changeset	3299	(superMenu isNil and:[ev isButtonPressEvent]) ifTrue:[
4f1c952048c5 focusView handling ca parents: 3133 diff changeset	3300	focusView ~~ self ifTrue:[prevFocusView := focusView].
4f1c952048c5 focusView handling ca parents: 3133 diff changeset	3301	].
4f1c952048c5 focusView handling ca parents: 3133 diff changeset	3302
1767 e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	3303	"/ situation: we get a buttonPress, set implicitGrab (for scrollbars etc.)
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	3304	"/ but never get the buttonRelease, since someone else (a popUp) grabbed the
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	3305	"/ pointer in the meantime, and has eaten the release event ... (double-sigh)
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	3306	implicitGrabView notNil ifTrue:[
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	3307	self sensor leftButtonPressed ifFalse:[
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	3308	self clearImplicitGrab.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	3309	].
1767 e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	3310	].
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	3311
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	3312	((x := ev x) isNil or:[(y := ev y) isNil]) ifTrue:[
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	3313	^ super dispatchEvent:ev withFocusOn:focusView delegate:false.
1767 e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	3314	].
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	3315
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	3316	implicitGrabView notNil ifTrue:[
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	3317	ev isButtonEvent ifTrue:[
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	3318	p := device translatePoint:(x@y) fromView:self toView:implicitGrabView.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	3319	ev view:implicitGrabView.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	3320	ev arguments at:2 put:p x.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	3321	ev arguments at:3 put:p y.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	3322	implicitGrabView dispatchEvent:ev withFocusOn:focusView delegate:false.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	3323
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	3324	ev isButtonReleaseEvent ifTrue:[
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	3325	self clearImplicitGrab.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	3326	].
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	3327	^ self
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	3328	]
1767 e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	3329	].
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	3330	menu := self detectMenuAtGrabPoint:(x@y).
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	3331
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	3332	(menu isNil or:[menu isViewWrapper not]) ifTrue:[
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	3333	self clearImplicitGrab.
3415 8cfa8d86bbc8 Mousewheel support Stefan Vogel <sv@exept.de> parents: 3414 diff changeset	3334	^ super dispatchEvent:ev withFocusOn:focusView delegate:false
1767 e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	3335	].
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	3336
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	3337	p := menu translateGrabPoint:(x@y).
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	3338	view := self detectViewAtX:(p x) y:(p y) in:menu.
3630 1daf110f3011 recursion avoidance Claus Gittinger <cg@exept.de> parents: 3612 diff changeset	3339	view == self ifTrue:[^self]. "MB:changed - recursion"
1daf110f3011 recursion avoidance Claus Gittinger <cg@exept.de> parents: 3612 diff changeset	3340
2020 1f1868eba475 extracted common code to detectViewAt:aPoint. Claus Gittinger <cg@exept.de> parents: 2018 diff changeset	3341	p := device translatePoint:(x@y) fromView:self toView:view.
1767 e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	3342
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	3343	ev isButtonPressEvent ifTrue:[
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	3344	(view wantsFocusWithButtonPress) ifTrue:[
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	3345	view requestFocus.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	3346	].
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	3347	view ~~ self ifTrue:[ "/ can this ever be self ?
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	3348	implicitGrabView := view.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	3349	]
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	3350	].
1767 e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	3351
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	3352	ev isButtonMotionEvent ifTrue:[
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	3353	lastPointerView ~~ view ifTrue:[
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	3354	"/ must generate enter/leave ... (sigh)
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	3355	lastPointerView notNil ifTrue:[
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	3356	"/ XXX: should be fixed
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	3357	syntheticEvent := WindowEvent pointerLeave:0 view:lastPointerView.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	3358	lastPointerView dispatchEvent:syntheticEvent withFocusOn:nil delegate:false.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	3359	].
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	3360	view notNil ifTrue:[
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	3361	syntheticEvent := WindowEvent pointerEnter:0 x:x y:y view:view.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	3362	view dispatchEvent:syntheticEvent withFocusOn:nil delegate:false.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	3363	].
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	3364	lastPointerView := view.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	3365	].
1767 e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	3366	].
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	3367
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	3368	ev view:view.
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	3369	ev x:p x.
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	3370	ev y:p y.
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	3371	view dispatchEvent:ev withFocusOn:focusView delegate:false.
2020 1f1868eba475 extracted common code to detectViewAt:aPoint. Claus Gittinger <cg@exept.de> parents: 2018 diff changeset	3372
1f1868eba475 extracted common code to detectViewAt:aPoint. Claus Gittinger <cg@exept.de> parents: 2018 diff changeset	3373	"Modified: / 10.10.2001 / 13:54:47 / cg"
1767 e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	3374	!
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	3375
2048 ba472f3f46c7 code cleanup Claus Gittinger <cg@exept.de> parents: 2047 diff changeset	3376	handleButtonMotion:state atPoint:motionPoint
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	3377	"open or close the corresponding submenus"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	3378
3242 4d8c5bde0f98 Show scroll buttons, if menu is larger than screen (needed for PopupListm ComboBox, ...) Stefan Vogel <sv@exept.de> parents: 3233 diff changeset	3379	\|menu item translatedPoint containsPoint direction\|
2251 30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3380
3411 a7a58a10cdcd extra menu-indicator click behavior Claus Gittinger <cg@exept.de> parents: 3403 diff changeset	3381	containsPoint := self containsPoint:motionPoint.
a7a58a10cdcd extra menu-indicator click behavior Claus Gittinger <cg@exept.de> parents: 3403 diff changeset	3382	containsPoint ifTrue:[
a7a58a10cdcd extra menu-indicator click behavior Claus Gittinger <cg@exept.de> parents: 3403 diff changeset	3383	item := self itemAtPoint:motionPoint
a7a58a10cdcd extra menu-indicator click behavior Claus Gittinger <cg@exept.de> parents: 3403 diff changeset	3384	].
2251 30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3385
3242 4d8c5bde0f98 Show scroll buttons, if menu is larger than screen (needed for PopupListm ComboBox, ...) Stefan Vogel <sv@exept.de> parents: 3233 diff changeset	3386	"no aotoscroll, if the mouse pointer is inside the scroll button"
4d8c5bde0f98 Show scroll buttons, if menu is larger than screen (needed for PopupListm ComboBox, ...) Stefan Vogel <sv@exept.de> parents: 3233 diff changeset	3387	direction := self scrollerDirectionAtPoint:motionPoint.
4d8c5bde0f98 Show scroll buttons, if menu is larger than screen (needed for PopupListm ComboBox, ...) Stefan Vogel <sv@exept.de> parents: 3233 diff changeset	3388	direction notNil ifTrue:[
4d8c5bde0f98 Show scroll buttons, if menu is larger than screen (needed for PopupListm ComboBox, ...) Stefan Vogel <sv@exept.de> parents: 3233 diff changeset	3389	self pointerEntersItem:nil.
3295 53616022ca5f activate scroller if button is pressed and moved over scroller ca parents: 3246 diff changeset	3390
53616022ca5f activate scroller if button is pressed and moved over scroller ca parents: 3246 diff changeset	3391	self sensor anyButtonPressed ifTrue:[
53616022ca5f activate scroller if button is pressed and moved over scroller ca parents: 3246 diff changeset	3392	self scrollActivity startIfRequiredAt:direction on:self comesViaButtonPress:false.
53616022ca5f activate scroller if button is pressed and moved over scroller ca parents: 3246 diff changeset	3393	].
3242 4d8c5bde0f98 Show scroll buttons, if menu is larger than screen (needed for PopupListm ComboBox, ...) Stefan Vogel <sv@exept.de> parents: 3233 diff changeset	3394	^ self
4d8c5bde0f98 Show scroll buttons, if menu is larger than screen (needed for PopupListm ComboBox, ...) Stefan Vogel <sv@exept.de> parents: 3233 diff changeset	3395	].
4d8c5bde0f98 Show scroll buttons, if menu is larger than screen (needed for PopupListm ComboBox, ...) Stefan Vogel <sv@exept.de> parents: 3233 diff changeset	3396
2251 30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3397	self pointerEntersItem:item.
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3398
1910 119f91172b70 * empty log message * Claus Gittinger <cg@exept.de> parents: 1902 diff changeset	3399	(state == 0 or:[self sensor anyButtonPressed not]) ifTrue:[
3187 f97f27a9d496 focus handling ca parents: 3158 diff changeset	3400	( self selectionFollowsMouse
f97f27a9d496 focus handling ca parents: 3158 diff changeset	3401	and:[self topMenu focusComesByTab not]
f97f27a9d496 focus handling ca parents: 3158 diff changeset	3402	) ifTrue:[
f97f27a9d496 focus handling ca parents: 3158 diff changeset	3403	self isPopUpView ifTrue:[
f97f27a9d496 focus handling ca parents: 3158 diff changeset	3404	item isNil ifTrue:[
f97f27a9d496 focus handling ca parents: 3158 diff changeset	3405	superMenu notNil ifTrue:[
f97f27a9d496 focus handling ca parents: 3158 diff changeset	3406	translatedPoint := self translateMenuPoint:motionPoint toMenu:superMenu.
f97f27a9d496 focus handling ca parents: 3158 diff changeset	3407	superMenu handleButtonMotion:state atPoint:translatedPoint.
f97f27a9d496 focus handling ca parents: 3158 diff changeset	3408	]
f97f27a9d496 focus handling ca parents: 3158 diff changeset	3409	] ifFalse:[
f97f27a9d496 focus handling ca parents: 3158 diff changeset	3410	self selection:item openMenu:false.
f97f27a9d496 focus handling ca parents: 3158 diff changeset	3411	self openDelayed:item afterSeconds:0.1.
f97f27a9d496 focus handling ca parents: 3158 diff changeset	3412	].
f97f27a9d496 focus handling ca parents: 3158 diff changeset	3413	] ifFalse:[ "/ processing in the toolbar
f97f27a9d496 focus handling ca parents: 3158 diff changeset	3414	(item notNil and:[self hasSelection and:[item canSelect]]) ifTrue:[
f97f27a9d496 focus handling ca parents: 3158 diff changeset	3415	self selection:item openMenu:true.
f97f27a9d496 focus handling ca parents: 3158 diff changeset	3416	].
f97f27a9d496 focus handling ca parents: 3158 diff changeset	3417	].
f97f27a9d496 focus handling ca parents: 3158 diff changeset	3418	].
2048 ba472f3f46c7 code cleanup Claus Gittinger <cg@exept.de> parents: 2047 diff changeset	3419	^ self
ba472f3f46c7 code cleanup Claus Gittinger <cg@exept.de> parents: 2047 diff changeset	3420	].
ba472f3f46c7 code cleanup Claus Gittinger <cg@exept.de> parents: 2047 diff changeset	3421
2251 30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3422	containsPoint ifTrue:[
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3423	self selection:item openMenu:true.
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	3424	^ self
2251 30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3425	].
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3426
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3427	menu := self superMenuAtPoint:motionPoint.
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3428
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	3429	menu notNil ifTrue:[
2046 012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	3430	translatedPoint := self translateMenuPoint:motionPoint toMenu:menu.
2251 30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3431	menu handleButtonMotion:state atPoint:translatedPoint.
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	3432	^ self
2251 30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3433	].
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3434	self isPopUpView ifTrue:[
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3435	self selection:nil
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3436	].
2046 012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	3437	!
012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	3438
3383 81b34d7be9b4 right-click delayed menu Claus Gittinger <cg@exept.de> parents: 3363 diff changeset	3439	handleButtonPress:button atPoint:aPoint
2482 13acaaf02528 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 2481 diff changeset	3440	"a button pressed; open or close the corresponding submenus"
13acaaf02528 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 2481 diff changeset	3441
3411 a7a58a10cdcd extra menu-indicator click behavior Claus Gittinger <cg@exept.de> parents: 3403 diff changeset	3442	\|item scrollerDirectionOrNil wasSelected\|
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	3443
2046 012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	3444	item := self itemAtPoint:aPoint.
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	3445	item isNil ifTrue:[
2251 30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3446	self selection:nil openMenu:false.
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	3447	^ self
2251 30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3448	].
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3449
3411 a7a58a10cdcd extra menu-indicator click behavior Claus Gittinger <cg@exept.de> parents: 3403 diff changeset	3450	"/ is a scroller-button present and hit ?
a7a58a10cdcd extra menu-indicator click behavior Claus Gittinger <cg@exept.de> parents: 3403 diff changeset	3451	scrollerDirectionOrNil := self scrollerDirectionAtPoint:aPoint.
a7a58a10cdcd extra menu-indicator click behavior Claus Gittinger <cg@exept.de> parents: 3403 diff changeset	3452	scrollerDirectionOrNil notNil ifTrue:[
a7a58a10cdcd extra menu-indicator click behavior Claus Gittinger <cg@exept.de> parents: 3403 diff changeset	3453	(self scrollActivity startIfRequiredAt:scrollerDirectionOrNil on:self comesViaButtonPress:true) ifTrue:[
2251 30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3454	self pointerEntersItem:nil.
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3455	^ self
2238 68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3456	]
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	3457	].
2251 30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3458
3411 a7a58a10cdcd extra menu-indicator click behavior Claus Gittinger <cg@exept.de> parents: 3403 diff changeset	3459	"/ right button always immediately pulls the delayedMenu
3383 81b34d7be9b4 right-click delayed menu Claus Gittinger <cg@exept.de> parents: 3363 diff changeset	3460	button == 2 ifTrue:[
81b34d7be9b4 right-click delayed menu Claus Gittinger <cg@exept.de> parents: 3363 diff changeset	3461	item hasDelayedMenu ifTrue:[
81b34d7be9b4 right-click delayed menu Claus Gittinger <cg@exept.de> parents: 3363 diff changeset	3462	self selection:item openMenu:false.
81b34d7be9b4 right-click delayed menu Claus Gittinger <cg@exept.de> parents: 3363 diff changeset	3463	self openDelayed:item afterSeconds:0.
81b34d7be9b4 right-click delayed menu Claus Gittinger <cg@exept.de> parents: 3363 diff changeset	3464	^ self.
81b34d7be9b4 right-click delayed menu Claus Gittinger <cg@exept.de> parents: 3363 diff changeset	3465	].
81b34d7be9b4 right-click delayed menu Claus Gittinger <cg@exept.de> parents: 3363 diff changeset	3466	].
81b34d7be9b4 right-click delayed menu Claus Gittinger <cg@exept.de> parents: 3363 diff changeset	3467
2251 30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3468	wasSelected := (selection == item).
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3469	wasSelected ifFalse:[
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3470	self selection:item openMenu:true
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3471	].
3411 a7a58a10cdcd extra menu-indicator click behavior Claus Gittinger <cg@exept.de> parents: 3403 diff changeset	3472	item hasDelayedMenu ifTrue:[
a7a58a10cdcd extra menu-indicator click behavior Claus Gittinger <cg@exept.de> parents: 3403 diff changeset	3473	"/ clicked on the arrow icon ?
a7a58a10cdcd extra menu-indicator click behavior Claus Gittinger <cg@exept.de> parents: 3403 diff changeset	3474	(item menuIndicatorContains:aPoint) ifTrue:[
a7a58a10cdcd extra menu-indicator click behavior Claus Gittinger <cg@exept.de> parents: 3403 diff changeset	3475	self selection:item openMenu:false.
a7a58a10cdcd extra menu-indicator click behavior Claus Gittinger <cg@exept.de> parents: 3403 diff changeset	3476	self openDelayed:item afterSeconds:0.
a7a58a10cdcd extra menu-indicator click behavior Claus Gittinger <cg@exept.de> parents: 3403 diff changeset	3477	^ self.
a7a58a10cdcd extra menu-indicator click behavior Claus Gittinger <cg@exept.de> parents: 3403 diff changeset	3478	].
a7a58a10cdcd extra menu-indicator click behavior Claus Gittinger <cg@exept.de> parents: 3403 diff changeset	3479	^ self
a7a58a10cdcd extra menu-indicator click behavior Claus Gittinger <cg@exept.de> parents: 3403 diff changeset	3480	].
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	3481
2238 68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3482	(item isToggle or:[item triggerOnDown]) ifFalse:[
2251 30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3483	(wasSelected and:[item hasSubmenu and:[item visibleSubmenu isNil]]) ifTrue:[
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3484	item toggleSubmenuVisibility
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3485	].
2238 68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3486	^ self
68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3487	].
68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3488	(item canAccept and:[item == self selection]) ifFalse:[
68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3489	^ self
68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3490	].
68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3491	self invalidateItem:item repairNow:true.
68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3492	self acceptItem:item inMenu:self.
68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3493
3233 50bec260bddc bugfix - waiting for anyButtonPressede not ca parents: 3224 diff changeset	3494	[ (device notNil and:[device anyButtonPressed]) ] whileTrue:[
50bec260bddc bugfix - waiting for anyButtonPressede not ca parents: 3224 diff changeset	3495	"/ using device - sensor is not updated sometimes
50bec260bddc bugfix - waiting for anyButtonPressede not ca parents: 3224 diff changeset	3496	Delay waitForSeconds:0.1.
50bec260bddc bugfix - waiting for anyButtonPressede not ca parents: 3224 diff changeset	3497	].
50bec260bddc bugfix - waiting for anyButtonPressede not ca parents: 3224 diff changeset	3498	self sensor flushUserEvents.
2238 68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3499	self selection:nil.
2046 012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	3500
012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	3501	"Created: / 13.11.2001 / 14:12:04 / cg"
2047 62de65e3a61b initial delay; autoRepeat delay Claus Gittinger <cg@exept.de> parents: 2046 diff changeset	3502	"Modified: / 13.11.2001 / 19:50:52 / cg"
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	3503	!
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	3504
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3505	handleCursorKey:aKey
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	3506	"handle a cursor key"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	3507
1786 f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3508	\|next menu item isVrt backKey p1 p2
2354 1bd2ac73b73c cursorUp/Down behavior Claus Gittinger <cg@exept.de> parents: 2347 diff changeset	3509	idx0 "{ Class:SmallInteger }"
687 23ce9888d76f bug fixes: ca parents: 681 diff changeset	3510	idx "{ Class:SmallInteger }"
1705 201f9ce1b2d2 checkin from browser ca parents: 1704 diff changeset	3511	size "{ Class:SmallInteger }"
687 23ce9888d76f bug fixes: ca parents: 681 diff changeset	3512	\|
1786 f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3513	(size := items size) == 0 ifTrue:[
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3514	superMenu notNil ifTrue:[superMenu handleCursorKey:aKey].
2354 1bd2ac73b73c cursorUp/Down behavior Claus Gittinger <cg@exept.de> parents: 2347 diff changeset	3515	^ self
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3516	].
1786 f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3517
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3518	isVrt := self verticalLayout.
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3519
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3520	( (isVrt and:[aKey == #CursorUp or:[aKey == #CursorDown]])
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3521	or:[(isVrt not and:[aKey == #CursorRight or:[aKey == #CursorLeft]])]
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3522	) ifTrue:[
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3523	selection isNil ifTrue:[
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3524	(superMenu notNil and:[superMenu verticalLayout == isVrt]) ifTrue:[
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3525	^ superMenu handleCursorKey:aKey
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3526	].
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	3527	idx := 0.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	3528
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	3529	isVrt ifTrue:[
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	3530	"/ used because of vertical scrolling
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	3531	idx := items findFirst:[:el\| el layout top > 0 ].
2354 1bd2ac73b73c cursorUp/Down behavior Claus Gittinger <cg@exept.de> parents: 2347 diff changeset	3532	idx ~~ 0 ifTrue:[idx := idx - 1 ]
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	3533	].
1786 f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3534	] ifFalse:[
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	3535	idx := self indexOf:selection.
1786 f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3536	].
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3537	next := aKey == #CursorRight or:[aKey == #CursorDown].
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3538
2354 1bd2ac73b73c cursorUp/Down behavior Claus Gittinger <cg@exept.de> parents: 2347 diff changeset	3539	idx0 := idx.
1bd2ac73b73c cursorUp/Down behavior Claus Gittinger <cg@exept.de> parents: 2347 diff changeset	3540	size timesRepeat:[
1bd2ac73b73c cursorUp/Down behavior Claus Gittinger <cg@exept.de> parents: 2347 diff changeset	3541	\|el\|
1bd2ac73b73c cursorUp/Down behavior Claus Gittinger <cg@exept.de> parents: 2347 diff changeset	3542
1bd2ac73b73c cursorUp/Down behavior Claus Gittinger <cg@exept.de> parents: 2347 diff changeset	3543	next ifTrue:[idx := idx + 1] ifFalse:[idx := idx - 1].
1bd2ac73b73c cursorUp/Down behavior Claus Gittinger <cg@exept.de> parents: 2347 diff changeset	3544
1bd2ac73b73c cursorUp/Down behavior Claus Gittinger <cg@exept.de> parents: 2347 diff changeset	3545	idx > size ifTrue:[
1bd2ac73b73c cursorUp/Down behavior Claus Gittinger <cg@exept.de> parents: 2347 diff changeset	3546	idx := 0 "1"
1bd2ac73b73c cursorUp/Down behavior Claus Gittinger <cg@exept.de> parents: 2347 diff changeset	3547	] ifFalse:[
1bd2ac73b73c cursorUp/Down behavior Claus Gittinger <cg@exept.de> parents: 2347 diff changeset	3548	idx < 0 ifTrue:[
1bd2ac73b73c cursorUp/Down behavior Claus Gittinger <cg@exept.de> parents: 2347 diff changeset	3549	idx := size
1bd2ac73b73c cursorUp/Down behavior Claus Gittinger <cg@exept.de> parents: 2347 diff changeset	3550	]
1bd2ac73b73c cursorUp/Down behavior Claus Gittinger <cg@exept.de> parents: 2347 diff changeset	3551	].
1bd2ac73b73c cursorUp/Down behavior Claus Gittinger <cg@exept.de> parents: 2347 diff changeset	3552
1bd2ac73b73c cursorUp/Down behavior Claus Gittinger <cg@exept.de> parents: 2347 diff changeset	3553	idx == 0 ifTrue:[
1bd2ac73b73c cursorUp/Down behavior Claus Gittinger <cg@exept.de> parents: 2347 diff changeset	3554	self selection:nil.
1bd2ac73b73c cursorUp/Down behavior Claus Gittinger <cg@exept.de> parents: 2347 diff changeset	3555	^ self
1bd2ac73b73c cursorUp/Down behavior Claus Gittinger <cg@exept.de> parents: 2347 diff changeset	3556	] ifFalse:[
1bd2ac73b73c cursorUp/Down behavior Claus Gittinger <cg@exept.de> parents: 2347 diff changeset	3557	(el := items at:idx ifAbsent:nil) notNil ifTrue:[
1bd2ac73b73c cursorUp/Down behavior Claus Gittinger <cg@exept.de> parents: 2347 diff changeset	3558	el canSelect ifTrue:[
1bd2ac73b73c cursorUp/Down behavior Claus Gittinger <cg@exept.de> parents: 2347 diff changeset	3559	el hasDelayedMenu ifTrue:[
1bd2ac73b73c cursorUp/Down behavior Claus Gittinger <cg@exept.de> parents: 2347 diff changeset	3560	"/ do not open menu
1bd2ac73b73c cursorUp/Down behavior Claus Gittinger <cg@exept.de> parents: 2347 diff changeset	3561	self selection:el openMenu:false
1bd2ac73b73c cursorUp/Down behavior Claus Gittinger <cg@exept.de> parents: 2347 diff changeset	3562	] ifFalse:[
1bd2ac73b73c cursorUp/Down behavior Claus Gittinger <cg@exept.de> parents: 2347 diff changeset	3563	"/ open comes from style-sheet
1bd2ac73b73c cursorUp/Down behavior Claus Gittinger <cg@exept.de> parents: 2347 diff changeset	3564	self selection:el.
1bd2ac73b73c cursorUp/Down behavior Claus Gittinger <cg@exept.de> parents: 2347 diff changeset	3565	].
1bd2ac73b73c cursorUp/Down behavior Claus Gittinger <cg@exept.de> parents: 2347 diff changeset	3566	^ self
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	3567	].
2354 1bd2ac73b73c cursorUp/Down behavior Claus Gittinger <cg@exept.de> parents: 2347 diff changeset	3568	]
1bd2ac73b73c cursorUp/Down behavior Claus Gittinger <cg@exept.de> parents: 2347 diff changeset	3569	].
1bd2ac73b73c cursorUp/Down behavior Claus Gittinger <cg@exept.de> parents: 2347 diff changeset	3570	idx == idx0 ifTrue:[
1bd2ac73b73c cursorUp/Down behavior Claus Gittinger <cg@exept.de> parents: 2347 diff changeset	3571	^ self
1bd2ac73b73c cursorUp/Down behavior Claus Gittinger <cg@exept.de> parents: 2347 diff changeset	3572	].
1786 f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3573	].
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3574	^ self
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3575	].
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3576
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3577	superMenu notNil ifTrue:[
1791 bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	3578	p1 := self translateGrabPoint:0.
bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	3579	p2 := superMenu translateGrabPoint:0.
1786 f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3580	].
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3581
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3582	isVrt ifTrue:[
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3583	(superMenu notNil and:[p1 x > p2 x]) ifTrue:[
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3584	backKey := #CursorRight
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3585	] ifFalse:[
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3586	backKey := #CursorLeft.
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3587	]
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3588	] ifFalse:[
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3589	(superMenu notNil and:[p1 y > p2 y]) ifTrue:[
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3590	backKey := #CursorDown
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3591	] ifFalse:[
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3592	backKey := #CursorUp.
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3593	]
1786 f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3594	].
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3595
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3596	aKey == backKey ifTrue:[
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3597	superMenu isNil ifTrue:[
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3598	self accept:nil
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3599	] ifFalse:[
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3600	superMenu verticalLayout ~~ isVrt ifTrue:[
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3601	superMenu handleCursorKey:aKey
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3602	] ifFalse:[
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3603	superMenu selection hideSubmenu
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3604	]
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3605	].
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3606	^ self
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3607	].
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3608
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3609	selection isNil ifTrue:[
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3610	superMenu isNil ifTrue:[^ self accept:nil].
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3611
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3612	superMenu verticalLayout ~~ isVrt ifTrue:[
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3613	superMenu handleCursorKey:aKey
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3614	] ifFalse:[
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3615	(item := items findFirst:[:el\| el canSelect]) notNil ifTrue:[
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	3616	self selectionIndex:item
1786 f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3617	]
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3618	].
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3619	^ self
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3620	].
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3621
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3622	selection hasSubmenu ifTrue:[
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3623	(menu := selection visibleSubmenu) isNil ifTrue:[
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3624	selection toggleSubmenuVisibility
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3625	] ifFalse:[
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3626	menu selectionIndex:1
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3627	]
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3628	] ifFalse:[
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3629	superMenu notNil ifTrue:[
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3630	superMenu verticalLayout ~~ isVrt ifTrue:[
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3631	superMenu handleCursorKey:aKey
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3632	]
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3633	] ifFalse:[
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3634	self accept:nil
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3635	]
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3636	].
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3637	!
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3638
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3639	handleKeyPress:key
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	3640	"any key is pressed"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	3641
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	3642	\|item inMenu\|
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3643
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3644	(key == #Return or:[key == Character space]) ifTrue:[
3754 d59a0ea2fd7d code cleanup Claus Gittinger <cg@exept.de> parents: 3735 diff changeset	3645	self handleReturnPressed.
d59a0ea2fd7d code cleanup Claus Gittinger <cg@exept.de> parents: 3735 diff changeset	3646	^ true.
d59a0ea2fd7d code cleanup Claus Gittinger <cg@exept.de> parents: 3735 diff changeset	3647	].
d59a0ea2fd7d code cleanup Claus Gittinger <cg@exept.de> parents: 3735 diff changeset	3648	key isCharacter ifTrue:[
1862 ffbe4c06defd handleKeyPress: search character-key in wrapped menu ca parents: 1853 diff changeset	3649	"/ selection notNil ifTrue:[
ffbe4c06defd handleKeyPress: search character-key in wrapped menu ca parents: 1853 diff changeset	3650	"/ inMenu := self
ffbe4c06defd handleKeyPress: search character-key in wrapped menu ca parents: 1853 diff changeset	3651	"/ ] ifFalse:[
ffbe4c06defd handleKeyPress: search character-key in wrapped menu ca parents: 1853 diff changeset	3652	"/ (inMenu := superMenu) isNil ifTrue:[^ self].
ffbe4c06defd handleKeyPress: search character-key in wrapped menu ca parents: 1853 diff changeset	3653	"/ ].
3754 d59a0ea2fd7d code cleanup Claus Gittinger <cg@exept.de> parents: 3735 diff changeset	3654	inMenu := self.
d59a0ea2fd7d code cleanup Claus Gittinger <cg@exept.de> parents: 3735 diff changeset	3655
d59a0ea2fd7d code cleanup Claus Gittinger <cg@exept.de> parents: 3735 diff changeset	3656	(item := inMenu detectItemForKey:key) notNil ifTrue:[
d59a0ea2fd7d code cleanup Claus Gittinger <cg@exept.de> parents: 3735 diff changeset	3657	inMenu selection:item
d59a0ea2fd7d code cleanup Claus Gittinger <cg@exept.de> parents: 3735 diff changeset	3658	].
d59a0ea2fd7d code cleanup Claus Gittinger <cg@exept.de> parents: 3735 diff changeset	3659	^ true
d59a0ea2fd7d code cleanup Claus Gittinger <cg@exept.de> parents: 3735 diff changeset	3660	].
d59a0ea2fd7d code cleanup Claus Gittinger <cg@exept.de> parents: 3735 diff changeset	3661	(key == #CursorDown
d59a0ea2fd7d code cleanup Claus Gittinger <cg@exept.de> parents: 3735 diff changeset	3662	or:[key == #CursorUp
d59a0ea2fd7d code cleanup Claus Gittinger <cg@exept.de> parents: 3735 diff changeset	3663	or:[key == #CursorLeft
d59a0ea2fd7d code cleanup Claus Gittinger <cg@exept.de> parents: 3735 diff changeset	3664	or:[key == #CursorRight]]])
d59a0ea2fd7d code cleanup Claus Gittinger <cg@exept.de> parents: 3735 diff changeset	3665	ifTrue:[
d59a0ea2fd7d code cleanup Claus Gittinger <cg@exept.de> parents: 3735 diff changeset	3666	self handleCursorKey:key.
d59a0ea2fd7d code cleanup Claus Gittinger <cg@exept.de> parents: 3735 diff changeset	3667	^ true
d59a0ea2fd7d code cleanup Claus Gittinger <cg@exept.de> parents: 3735 diff changeset	3668	].
d59a0ea2fd7d code cleanup Claus Gittinger <cg@exept.de> parents: 3735 diff changeset	3669	^ false.
1889 43516e4588ce give warning messages for unimplemented menu-aspects Claus Gittinger <cg@exept.de> parents: 1878 diff changeset	3670	!
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3671
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3672	handlePointerLeave:state
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3673	self pointerEntersItem:nil.
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3674	super pointerLeave:state
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3675	!
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3676
1786 f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3677	handleReturnPressed
2482 13acaaf02528 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 2481 diff changeset	3678	"any key is pressed"
13acaaf02528 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 2481 diff changeset	3679
2238 68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3680	\|sensor subm item\|
68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3681
68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3682	(item := selection) isNil ifTrue:[
68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3683	superMenu notNil ifTrue:[
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	3684	item := superMenu selection.
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	3685
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	3686	item value notNil ifTrue:[
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	3687	"/ is a delayed menu
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	3688	self accept:item
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	3689	] ifFalse:[
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	3690	item toggleSubmenuVisibility
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	3691	]
2238 68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3692	] ifFalse:[
68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3693	self accept
68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3694	].
68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3695	^ self
1841 5d01716cc37c implement: triggerOnDown ca parents: 1836 diff changeset	3696	].
5d01716cc37c implement: triggerOnDown ca parents: 1836 diff changeset	3697	selection hasSubmenu ifTrue:[
2238 68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3698	selection hasDelayedMenu ifFalse:[
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	3699	selection toggleSubmenuVisibility.
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	3700	^ self
2238 68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3701	].
68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3702	subm := selection currentSubmenu.
68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3703
68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3704	(subm notNil and:[subm shown]) ifTrue:[
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	3705	selection toggleSubmenuVisibility.
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	3706	^ self
2238 68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3707	].
68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3708	self openDelayed:nil
1841 5d01716cc37c implement: triggerOnDown ca parents: 1836 diff changeset	3709	].
5d01716cc37c implement: triggerOnDown ca parents: 1836 diff changeset	3710	self accept.
5d01716cc37c implement: triggerOnDown ca parents: 1836 diff changeset	3711
2238 68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3712	" test for toggle "
68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3713	item isToggle ifTrue:[
68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3714	self selection:item.
68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3715	] ifFalse:[
68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3716	(selection notNil and:[selection triggerOnDown]) ifFalse:[
68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3717	^ self
68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3718	]
68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3719	].
1841 5d01716cc37c implement: triggerOnDown ca parents: 1836 diff changeset	3720
5d01716cc37c implement: triggerOnDown ca parents: 1836 diff changeset	3721	(sensor := self sensor) isNil ifTrue:[
2238 68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3722	^ self
1841 5d01716cc37c implement: triggerOnDown ca parents: 1836 diff changeset	3723	].
5d01716cc37c implement: triggerOnDown ca parents: 1836 diff changeset	3724
2482 13acaaf02528 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 2481 diff changeset	3725	[
13acaaf02528 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 2481 diff changeset	3726	sensor flushKeyboardFor:nil.
2238 68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3727	Delay waitForSeconds:0.1.
68ecae98bcd2 bug fix for toggles (buttun motion ...) ca parents: 2235 diff changeset	3728	sensor hasKeyPressEventFor:nil.
1841 5d01716cc37c implement: triggerOnDown ca parents: 1836 diff changeset	3729	] whileTrue.
1786 f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3730	!
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	3731
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3732	pointerEntersItem:anItemOrNil
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3733	"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	3734	redraw the new item highlighted."
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	3735
1690 38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3736	\|oldItem newItem\|
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3737
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3738	( anItemOrNil notNil
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3739	and:[anItemOrNil canSelect
1690 38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3740	and:[selection isNil
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3741	and:[self isPopUpView not]]]) ifTrue:[
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3742	anItemOrNil isButton ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	3743	( self buttonEnteredBackgroundColor ~= self buttonPassiveBackgroundColor
93426020ceed * empty log message * ca parents: 2216 diff changeset	3744	or:[self buttonEnteredLevel ~= self buttonPassiveLevel]
1690 38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3745	) ifTrue:[
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3746	newItem := anItemOrNil
1690 38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3747	]
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3748	] ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	3749	(self enteredLevel ~~ 0
93426020ceed * empty log message * ca parents: 2216 diff changeset	3750	or:[self enteredBackgroundColor ~= self backgroundColor]
93426020ceed * empty log message * ca parents: 2216 diff changeset	3751	) ifTrue:[
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3752	newItem := anItemOrNil
1690 38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3753	]
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3754	]
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3755	].
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3756
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3757	newItem ~~ enteredItem ifTrue:[
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3758	oldItem := enteredItem.
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3759	enteredItem := newItem.
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3760
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3761	oldItem notNil ifTrue:[
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3762	self invalidateItem:oldItem repairNow:(enteredItem isNil).
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3763	].
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3764
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3765	enteredItem notNil ifTrue:[
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3766	self invalidateItem:enteredItem repairNow:true.
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3767	].
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3768	].
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3769	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	3770
2251 30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3771	!MenuPanel methodsFor:'focus handling'!
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3772
3187 f97f27a9d496 focus handling ca parents: 3158 diff changeset	3773	canTab
f97f27a9d496 focus handling ca parents: 3158 diff changeset	3774	"depends whether I'am a toolbar and selectable items exists
f97f27a9d496 focus handling ca parents: 3158 diff changeset	3775	"
f97f27a9d496 focus handling ca parents: 3158 diff changeset	3776	\|selectableItem\|
f97f27a9d496 focus handling ca parents: 3158 diff changeset	3777
f97f27a9d496 focus handling ca parents: 3158 diff changeset	3778	(super canTab and:[self isPopUpView not]) ifTrue:[
f97f27a9d496 focus handling ca parents: 3158 diff changeset	3779	selectableItem := self firstItemSelectable.
f97f27a9d496 focus handling ca parents: 3158 diff changeset	3780	^ selectableItem notNil
f97f27a9d496 focus handling ca parents: 3158 diff changeset	3781	].
f97f27a9d496 focus handling ca parents: 3158 diff changeset	3782	^ false
f97f27a9d496 focus handling ca parents: 3158 diff changeset	3783	!
f97f27a9d496 focus handling ca parents: 3158 diff changeset	3784
f97f27a9d496 focus handling ca parents: 3158 diff changeset	3785	focusComesByTab
f97f27a9d496 focus handling ca parents: 3158 diff changeset	3786	"returns true if focus comes by tab and should be drawn
f97f27a9d496 focus handling ca parents: 3158 diff changeset	3787	"
f97f27a9d496 focus handling ca parents: 3158 diff changeset	3788	\|focusComesByTab\|
f97f27a9d496 focus handling ca parents: 3158 diff changeset	3789
f97f27a9d496 focus handling ca parents: 3158 diff changeset	3790	focusComesByTab := self menuAdornmentAt:#focusComesByTab.
f97f27a9d496 focus handling ca parents: 3158 diff changeset	3791
f97f27a9d496 focus handling ca parents: 3158 diff changeset	3792	focusComesByTab == true ifTrue:[
f97f27a9d496 focus handling ca parents: 3158 diff changeset	3793	(shown and:[self hasFocus]) ifTrue:[
f97f27a9d496 focus handling ca parents: 3158 diff changeset	3794	^ true
f97f27a9d496 focus handling ca parents: 3158 diff changeset	3795	].
f97f27a9d496 focus handling ca parents: 3158 diff changeset	3796	self menuAdornmentAt:#focusComesByTab put:false.
f97f27a9d496 focus handling ca parents: 3158 diff changeset	3797	].
f97f27a9d496 focus handling ca parents: 3158 diff changeset	3798	^ false
f97f27a9d496 focus handling ca parents: 3158 diff changeset	3799	!
f97f27a9d496 focus handling ca parents: 3158 diff changeset	3800
f97f27a9d496 focus handling ca parents: 3158 diff changeset	3801	focusComesByTab:aBoolean
f97f27a9d496 focus handling ca parents: 3158 diff changeset	3802	"only handled for toolBars"
f97f27a9d496 focus handling ca parents: 3158 diff changeset	3803
f97f27a9d496 focus handling ca parents: 3158 diff changeset	3804	\|selectableItem\|
f97f27a9d496 focus handling ca parents: 3158 diff changeset	3805
f97f27a9d496 focus handling ca parents: 3158 diff changeset	3806	(self supportsFocusOnTab and:[self isPopUpView not]) ifTrue:[
f97f27a9d496 focus handling ca parents: 3158 diff changeset	3807	self menuAdornmentAt:#focusComesByTab put:aBoolean.
f97f27a9d496 focus handling ca parents: 3158 diff changeset	3808
f97f27a9d496 focus handling ca parents: 3158 diff changeset	3809	self hasSelection ifTrue:[
f97f27a9d496 focus handling ca parents: 3158 diff changeset	3810	^ self
f97f27a9d496 focus handling ca parents: 3158 diff changeset	3811	].
f97f27a9d496 focus handling ca parents: 3158 diff changeset	3812
f97f27a9d496 focus handling ca parents: 3158 diff changeset	3813	aBoolean ifTrue:[
f97f27a9d496 focus handling ca parents: 3158 diff changeset	3814	selectableItem := self firstItemSelectable.
f97f27a9d496 focus handling ca parents: 3158 diff changeset	3815	].
f97f27a9d496 focus handling ca parents: 3158 diff changeset	3816	self selection:selectableItem openMenu:false.
f97f27a9d496 focus handling ca parents: 3158 diff changeset	3817	].
f97f27a9d496 focus handling ca parents: 3158 diff changeset	3818	!
f97f27a9d496 focus handling ca parents: 3158 diff changeset	3819
2251 30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3820	hasKeyboardFocus:aBoolean
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	3821	"notification from the windowGroup that I got/lost the keyboard focus."
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	3822
2251 30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3823	\|focusView\|
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3824
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3825	self isPopUpView ifTrue:[
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3826	"/ not visible for popup menus
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3827	^ super hasKeyboardFocus:aBoolean
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3828	].
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3829
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3830	(aBoolean not and:[selection notNil]) ifTrue:[
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3831	hasImplicitGrap ~~ true ifTrue:[
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3832	focusView := windowGroup focusView.
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3833
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3834	focusView == self ifFalse:[
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3835	self selection:nil.
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3836	]
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3837	]
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3838	].
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3839	super hasKeyboardFocus:aBoolean.
3142 4f1c952048c5 focusView handling ca parents: 3133 diff changeset	3840	!
4f1c952048c5 focusView handling ca parents: 3133 diff changeset	3841
3187 f97f27a9d496 focus handling ca parents: 3158 diff changeset	3842	showFocus:focusComesByTab
f97f27a9d496 focus handling ca parents: 3158 diff changeset	3843	self focusComesByTab:focusComesByTab.
f97f27a9d496 focus handling ca parents: 3158 diff changeset	3844	super showFocus:focusComesByTab.
f97f27a9d496 focus handling ca parents: 3158 diff changeset	3845	!
f97f27a9d496 focus handling ca parents: 3158 diff changeset	3846
f97f27a9d496 focus handling ca parents: 3158 diff changeset	3847	showNoFocus:focusByTab
f97f27a9d496 focus handling ca parents: 3158 diff changeset	3848	self focusComesByTab:false.
f97f27a9d496 focus handling ca parents: 3158 diff changeset	3849	super showNoFocus:focusByTab.
f97f27a9d496 focus handling ca parents: 3158 diff changeset	3850	!
f97f27a9d496 focus handling ca parents: 3158 diff changeset	3851
f97f27a9d496 focus handling ca parents: 3158 diff changeset	3852	supportsFocusOnTab
f97f27a9d496 focus handling ca parents: 3158 diff changeset	3853	"returns true if focus is supported
f97f27a9d496 focus handling ca parents: 3158 diff changeset	3854	"
f97f27a9d496 focus handling ca parents: 3158 diff changeset	3855	^ (styleSheet at:#'focusHighlightStyle') == #win95
3158 fe0c2cb46fcb focus handling ca parents: 3148 diff changeset	3856	!
fe0c2cb46fcb focus handling ca parents: 3148 diff changeset	3857
fe0c2cb46fcb focus handling ca parents: 3148 diff changeset	3858	wantsFocusWithButtonPress
3187 f97f27a9d496 focus handling ca parents: 3158 diff changeset	3859	"needs only the focus if I'am a toolbar; all events are delegated
f97f27a9d496 focus handling ca parents: 3158 diff changeset	3860	to my subMenus"
f97f27a9d496 focus handling ca parents: 3158 diff changeset	3861
f97f27a9d496 focus handling ca parents: 3158 diff changeset	3862	^ self isPopUpView not
2251 30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3863	! !
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	3864
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3865	!MenuPanel methodsFor:'grabbing'!
dce33f8bb806 intitial checkin ca parents: diff changeset	3866
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3867	doGrab
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3868	relativeGrabOrigin := nil.
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3869
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3870	superMenu notNil ifTrue:[
3158 fe0c2cb46fcb focus handling ca parents: 3148 diff changeset	3871	superMenu doGrab
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3872	] ifFalse:[
3158 fe0c2cb46fcb focus handling ca parents: 3148 diff changeset	3873	hasImplicitGrap ~~ true ifTrue:[
fe0c2cb46fcb focus handling ca parents: 3148 diff changeset	3874	self grabMouseAndKeyboard.
fe0c2cb46fcb focus handling ca parents: 3148 diff changeset	3875	hasImplicitGrap := true
fe0c2cb46fcb focus handling ca parents: 3148 diff changeset	3876	]
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3877	]
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3878	!
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3879
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3880	doUngrab:forceDo
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3881
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3882	relativeGrabOrigin := nil.
1767 e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	3883	self clearImplicitGrab.
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3884
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3885	superMenu notNil ifTrue:[
3158 fe0c2cb46fcb focus handling ca parents: 3148 diff changeset	3886	forceDo ifTrue:[
fe0c2cb46fcb focus handling ca parents: 3148 diff changeset	3887	superMenu doUngrab:true
fe0c2cb46fcb focus handling ca parents: 3148 diff changeset	3888	].
fe0c2cb46fcb focus handling ca parents: 3148 diff changeset	3889	^ self
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3890	].
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3891
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3892	hasImplicitGrap ~~ true ifTrue:[
3158 fe0c2cb46fcb focus handling ca parents: 3148 diff changeset	3893	^ self
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3894	].
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3895
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3896	forceDo ifFalse:[
3158 fe0c2cb46fcb focus handling ca parents: 3148 diff changeset	3897	(selection notNil or:[prevFocusView == self]) ifTrue:[
fe0c2cb46fcb focus handling ca parents: 3148 diff changeset	3898	^ self
fe0c2cb46fcb focus handling ca parents: 3148 diff changeset	3899	].
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3900	].
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3901	self ungrabMouseAndKeyboard.
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3902	self selection:nil.
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3903	hasImplicitGrap := nil.
1703 e127eff742bb bugfix: request focus ca parents: 1701 diff changeset	3904	prevFocusView := nil.
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3905	!
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3906
1630 01dc20096011 grabbing cleaned up; ca parents: 1613 diff changeset	3907	grabKeyboard
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	3908	"grap the keyboard; keep previous grab"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	3909
1630 01dc20096011 grabbing cleaned up; ca parents: 1613 diff changeset	3910	previousKeyboardGrab := device activeKeyboardGrab.
2713 9e417aa397c0 * empty log message * ca parents: 2712 diff changeset	3911	^ super grabKeyboard
1630 01dc20096011 grabbing cleaned up; ca parents: 1613 diff changeset	3912	!
01dc20096011 grabbing cleaned up; ca parents: 1613 diff changeset	3913
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3914	grabMouseAndKeyboard
2482 13acaaf02528 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 2481 diff changeset	3915	"get exclusive access to pointer and keyboard"
13acaaf02528 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 2481 diff changeset	3916
3754 d59a0ea2fd7d code cleanup Claus Gittinger <cg@exept.de> parents: 3735 diff changeset	3917	\|winGroup sensor activeGrab\|
3142 4f1c952048c5 focusView handling ca parents: 3133 diff changeset	3918
4f1c952048c5 focusView handling ca parents: 3133 diff changeset	3919	winGroup := self windowGroup.
4f1c952048c5 focusView handling ca parents: 3133 diff changeset	3920
4f1c952048c5 focusView handling ca parents: 3133 diff changeset	3921	(realized and:[winGroup notNil]) ifTrue:[
4f1c952048c5 focusView handling ca parents: 3133 diff changeset	3922	prevFocusView isNil ifTrue:[
4f1c952048c5 focusView handling ca parents: 3133 diff changeset	3923	prevFocusView := winGroup focusView.
4f1c952048c5 focusView handling ca parents: 3133 diff changeset	3924	].
2482 13acaaf02528 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 2481 diff changeset	3925	sensor := self sensor.
3754 d59a0ea2fd7d code cleanup Claus Gittinger <cg@exept.de> parents: 3735 diff changeset	3926
2482 13acaaf02528 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 2481 diff changeset	3927	device activePointerGrab ~~ self ifTrue:[
13acaaf02528 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 2481 diff changeset	3928	sensor flushMotionEventsFor:nil.
13acaaf02528 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 2481 diff changeset	3929
13acaaf02528 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 2481 diff changeset	3930	(self grabPointer) ifFalse:[
13acaaf02528 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 2481 diff changeset	3931	Delay waitForSeconds:0.1.
13acaaf02528 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 2481 diff changeset	3932	(self grabPointer) ifFalse:[
13acaaf02528 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 2481 diff changeset	3933	"give up"
13acaaf02528 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 2481 diff changeset	3934	'MenuPanel [warning]: could not grab pointer' errorPrintCR.
13acaaf02528 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 2481 diff changeset	3935	self unmap
13acaaf02528 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 2481 diff changeset	3936	]
13acaaf02528 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 2481 diff changeset	3937	]
13acaaf02528 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 2481 diff changeset	3938	].
13acaaf02528 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 2481 diff changeset	3939
3754 d59a0ea2fd7d code cleanup Claus Gittinger <cg@exept.de> parents: 3735 diff changeset	3940	(activeGrab := device activeKeyboardGrab) ~~ self ifTrue:[
2482 13acaaf02528 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 2481 diff changeset	3941	device sync.
3754 d59a0ea2fd7d code cleanup Claus Gittinger <cg@exept.de> parents: 3735 diff changeset	3942	"/ cg: mhmh - should we flush for all or for the activeGrab only ?
d59a0ea2fd7d code cleanup Claus Gittinger <cg@exept.de> parents: 3735 diff changeset	3943	"/ activeGrab notNil ifTrue:[
d59a0ea2fd7d code cleanup Claus Gittinger <cg@exept.de> parents: 3735 diff changeset	3944	"/ sensor flushKeyboardFor:activeGrab.
d59a0ea2fd7d code cleanup Claus Gittinger <cg@exept.de> parents: 3735 diff changeset	3945	"/ ].
2482 13acaaf02528 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 2481 diff changeset	3946	sensor flushKeyboardFor:nil.
13acaaf02528 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 2481 diff changeset	3947	self grabKeyboard.
13acaaf02528 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 2481 diff changeset	3948	]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3949	]
dce33f8bb806 intitial checkin ca parents: diff changeset	3950
3158 fe0c2cb46fcb focus handling ca parents: 3148 diff changeset	3951
717 540e638fdebb Avoid pointer and keyboard grabbing if not necessary Stefan Vogel <sv@exept.de> parents: 712 diff changeset	3952	"Modified: / 2.2.1998 / 23:43:59 / stefan"
1254 38b8bcfabbd7 checkin from browser Claus Gittinger <cg@exept.de> parents: 1253 diff changeset	3953	"Modified: / 15.3.1999 / 12:01:38 / cg"
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3954	!
dce33f8bb806 intitial checkin ca parents: diff changeset	3955
1630 01dc20096011 grabbing cleaned up; ca parents: 1613 diff changeset	3956	grabPointerWithCursor:aCursorOrNil
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	3957	"grap the pointer; keep previous grab"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	3958
1630 01dc20096011 grabbing cleaned up; ca parents: 1613 diff changeset	3959	previousPointerGrab := device activePointerGrab.
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	3960	hasImplicitGrap := true.
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	3961	^ super grabPointerWithCursor:aCursorOrNil
1630 01dc20096011 grabbing cleaned up; ca parents: 1613 diff changeset	3962	!
01dc20096011 grabbing cleaned up; ca parents: 1613 diff changeset	3963
01dc20096011 grabbing cleaned up; ca parents: 1613 diff changeset	3964	ungrabKeyboard
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	3965	"ungrap the keyboard; restore previous grab"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	3966
1630 01dc20096011 grabbing cleaned up; ca parents: 1613 diff changeset	3967	super ungrabKeyboard.
1690 38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3968
2579 114e5cf689a2 care for previous-grab-window still being visible james parents: 2574 diff changeset	3969	(previousKeyboardGrab notNil
114e5cf689a2 care for previous-grab-window still being visible james parents: 2574 diff changeset	3970	and:[ previousKeyboardGrab realized ]) ifTrue:[
114e5cf689a2 care for previous-grab-window still being visible james parents: 2574 diff changeset	3971	device grabKeyboardInView:previousKeyboardGrab.
114e5cf689a2 care for previous-grab-window still being visible james parents: 2574 diff changeset	3972	].
1630 01dc20096011 grabbing cleaned up; ca parents: 1613 diff changeset	3973	!
01dc20096011 grabbing cleaned up; ca parents: 1613 diff changeset	3974
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3975	ungrabMouseAndKeyboard
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	3976	"ungrab resources (mouse and keyboard)"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	3977
1630 01dc20096011 grabbing cleaned up; ca parents: 1613 diff changeset	3978	self ungrabPointer.
01dc20096011 grabbing cleaned up; ca parents: 1613 diff changeset	3979	self ungrabKeyboard.
01dc20096011 grabbing cleaned up; ca parents: 1613 diff changeset	3980	!
01dc20096011 grabbing cleaned up; ca parents: 1613 diff changeset	3981
01dc20096011 grabbing cleaned up; ca parents: 1613 diff changeset	3982	ungrabPointer
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	3983	"ungrap the pointer; restore previous grab"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	3984
1630 01dc20096011 grabbing cleaned up; ca parents: 1613 diff changeset	3985	super ungrabPointer.
1690 38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	3986
2579 114e5cf689a2 care for previous-grab-window still being visible james parents: 2574 diff changeset	3987	(previousPointerGrab notNil
114e5cf689a2 care for previous-grab-window still being visible james parents: 2574 diff changeset	3988	and:[ previousPointerGrab realized ]) ifTrue:[
114e5cf689a2 care for previous-grab-window still being visible james parents: 2574 diff changeset	3989	device grabPointerInView:previousPointerGrab.
1630 01dc20096011 grabbing cleaned up; ca parents: 1613 diff changeset	3990	].
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3991	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	3992
1251 eb5b4cdbacde fixed helpText display; Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	3993	!MenuPanel methodsFor:'help'!
eb5b4cdbacde fixed helpText display; Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	3994
3441 b19a4c77490e flyby help fixed Claus Gittinger <cg@exept.de> parents: 3431 diff changeset	3995	flyByHelpSpec
b19a4c77490e flyby help fixed Claus Gittinger <cg@exept.de> parents: 3431 diff changeset	3996	"allows subclasses to provide texts"
b19a4c77490e flyby help fixed Claus Gittinger <cg@exept.de> parents: 3431 diff changeset	3997
b19a4c77490e flyby help fixed Claus Gittinger <cg@exept.de> parents: 3431 diff changeset	3998	^ IdentityDictionary new
b19a4c77490e flyby help fixed Claus Gittinger <cg@exept.de> parents: 3431 diff changeset	3999	!
b19a4c77490e flyby help fixed Claus Gittinger <cg@exept.de> parents: 3431 diff changeset	4000
3695 3d24467f66cc fixed flyByHelp for the scroll-buttons Claus Gittinger <cg@exept.de> parents: 3630 diff changeset	4001	flyByHelpTextAt:aPoint
2058 f0a23f80454e flyByHelp Claus Gittinger <cg@exept.de> parents: 2052 diff changeset	4002	"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	4003	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	4004
3695 3d24467f66cc fixed flyByHelp for the scroll-buttons Claus Gittinger <cg@exept.de> parents: 3630 diff changeset	4005	\|scrollerDirectionOrNil\|
3d24467f66cc fixed flyByHelp for the scroll-buttons Claus Gittinger <cg@exept.de> parents: 3630 diff changeset	4006
3d24467f66cc fixed flyByHelp for the scroll-buttons Claus Gittinger <cg@exept.de> parents: 3630 diff changeset	4007	"/ is a scroller-button present and hit ?
3d24467f66cc fixed flyByHelp for the scroll-buttons Claus Gittinger <cg@exept.de> parents: 3630 diff changeset	4008	scrollerDirectionOrNil := self scrollerDirectionAtPoint:aPoint.
3d24467f66cc fixed flyByHelp for the scroll-buttons Claus Gittinger <cg@exept.de> parents: 3630 diff changeset	4009	scrollerDirectionOrNil notNil ifTrue:[
3d24467f66cc fixed flyByHelp for the scroll-buttons Claus Gittinger <cg@exept.de> parents: 3630 diff changeset	4010	^ 'Scroll Menu Items'
3d24467f66cc fixed flyByHelp for the scroll-buttons Claus Gittinger <cg@exept.de> parents: 3630 diff changeset	4011	].
3d24467f66cc fixed flyByHelp for the scroll-buttons Claus Gittinger <cg@exept.de> parents: 3630 diff changeset	4012
3d24467f66cc fixed flyByHelp for the scroll-buttons Claus Gittinger <cg@exept.de> parents: 3630 diff changeset	4013	self withMenuAndItemAt:aPoint do:[:menu :item \| ^ menu flyByHelpTextForItem:item].
2550 1dc3745fc313 do not show the menus label again as fly by help Claus Gittinger <cg@exept.de> parents: 2545 diff changeset	4014	^ nil
2058 f0a23f80454e flyByHelp Claus Gittinger <cg@exept.de> parents: 2052 diff changeset	4015	!
f0a23f80454e flyByHelp Claus Gittinger <cg@exept.de> parents: 2052 diff changeset	4016
f0a23f80454e flyByHelp Claus Gittinger <cg@exept.de> parents: 2052 diff changeset	4017	flyByHelpTextForItem:anItem
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4018	"returns the helpText for an item (empty if none)"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4019
2063 8bff9e49f1e9 * empty log message * Claus Gittinger <cg@exept.de> parents: 2062 diff changeset	4020	anItem isNil ifTrue:[^ nil].
2433 49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	4021	^ anItem flyByHelpText.
2058 f0a23f80454e flyByHelp Claus Gittinger <cg@exept.de> parents: 2052 diff changeset	4022	!
f0a23f80454e flyByHelp Claus Gittinger <cg@exept.de> parents: 2052 diff changeset	4023
3402 5941cc1ff429 flybyhelp - give menuPanel achance to provide a text Claus Gittinger <cg@exept.de> parents: 3394 diff changeset	4024	flyByHelpTextForKey:aKey
5941cc1ff429 flybyhelp - give menuPanel achance to provide a text Claus Gittinger <cg@exept.de> parents: 3394 diff changeset	4025	\|app text\|
5941cc1ff429 flybyhelp - give menuPanel achance to provide a text Claus Gittinger <cg@exept.de> parents: 3394 diff changeset	4026
5941cc1ff429 flybyhelp - give menuPanel achance to provide a text Claus Gittinger <cg@exept.de> parents: 3394 diff changeset	4027	app := self application.
3441 b19a4c77490e flyby help fixed Claus Gittinger <cg@exept.de> parents: 3431 diff changeset	4028	app notNil ifTrue:[
b19a4c77490e flyby help fixed Claus Gittinger <cg@exept.de> parents: 3431 diff changeset	4029	text := self application flyByHelpTextForKey:aKey.
b19a4c77490e flyby help fixed Claus Gittinger <cg@exept.de> parents: 3431 diff changeset	4030	text notNil ifTrue:[^ text].
b19a4c77490e flyby help fixed Claus Gittinger <cg@exept.de> parents: 3431 diff changeset	4031	].
b19a4c77490e flyby help fixed Claus Gittinger <cg@exept.de> parents: 3431 diff changeset	4032	^ self flyByHelpSpec at:aKey ifAbsent:nil
3402 5941cc1ff429 flybyhelp - give menuPanel achance to provide a text Claus Gittinger <cg@exept.de> parents: 3394 diff changeset	4033	!
5941cc1ff429 flybyhelp - give menuPanel achance to provide a text Claus Gittinger <cg@exept.de> parents: 3394 diff changeset	4034
1251 eb5b4cdbacde fixed helpText display; Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	4035	helpText
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4036	"return the helpText for the currently selected item (empty if none)"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4037
1613 5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	4038	^ self helpTextForItem:selection
1251 eb5b4cdbacde fixed helpText display; Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	4039	!
eb5b4cdbacde fixed helpText display; Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	4040
3695 3d24467f66cc fixed flyByHelp for the scroll-buttons Claus Gittinger <cg@exept.de> parents: 3630 diff changeset	4041	helpTextAt:aPoint
1252 6db6906da49b debug print Claus Gittinger <cg@exept.de> parents: 1251 diff changeset	4042	"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	4043	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	4044
3695 3d24467f66cc fixed flyByHelp for the scroll-buttons Claus Gittinger <cg@exept.de> parents: 3630 diff changeset	4045	\|scrollerDirectionOrNil\|
3d24467f66cc fixed flyByHelp for the scroll-buttons Claus Gittinger <cg@exept.de> parents: 3630 diff changeset	4046
3d24467f66cc fixed flyByHelp for the scroll-buttons Claus Gittinger <cg@exept.de> parents: 3630 diff changeset	4047	"/ is a scroller-button present and hit ?
3d24467f66cc fixed flyByHelp for the scroll-buttons Claus Gittinger <cg@exept.de> parents: 3630 diff changeset	4048	scrollerDirectionOrNil := self scrollerDirectionAtPoint:aPoint.
3d24467f66cc fixed flyByHelp for the scroll-buttons Claus Gittinger <cg@exept.de> parents: 3630 diff changeset	4049	scrollerDirectionOrNil notNil ifTrue:[
3d24467f66cc fixed flyByHelp for the scroll-buttons Claus Gittinger <cg@exept.de> parents: 3630 diff changeset	4050	^ 'Scroll Menu Items'
3d24467f66cc fixed flyByHelp for the scroll-buttons Claus Gittinger <cg@exept.de> parents: 3630 diff changeset	4051	].
3d24467f66cc fixed flyByHelp for the scroll-buttons Claus Gittinger <cg@exept.de> parents: 3630 diff changeset	4052
3d24467f66cc fixed flyByHelp for the scroll-buttons Claus Gittinger <cg@exept.de> parents: 3630 diff changeset	4053	self withMenuAndItemAt:aPoint 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	4054	^ nil
1613 5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	4055	!
5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	4056
5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	4057	helpTextForItem:anItem
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4058	"returns the helpText for an item (empty if none)"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4059
2884 6e060df8f158 fix: MUST return nil, if there is no help text (not empty string !) Claus Gittinger <cg@exept.de> parents: 2883 diff changeset	4060	anItem isNil ifTrue:[^ nil].
2433 49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	4061	^ anItem activeHelpText.
2550 1dc3745fc313 do not show the menus label again as fly by help Claus Gittinger <cg@exept.de> parents: 2545 diff changeset	4062	!
1dc3745fc313 do not show the menus label again as fly by help Claus Gittinger <cg@exept.de> parents: 2545 diff changeset	4063
1dc3745fc313 do not show the menus label again as fly by help Claus Gittinger <cg@exept.de> parents: 2545 diff changeset	4064	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	4065	\|dstMenu dstPoint item\|
1dc3745fc313 do not show the menus label again as fly by help Claus Gittinger <cg@exept.de> parents: 2545 diff changeset	4066
1dc3745fc313 do not show the menus label again as fly by help Claus Gittinger <cg@exept.de> parents: 2545 diff changeset	4067	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	4068	dstMenu notNil ifTrue:[
1dc3745fc313 do not show the menus label again as fly by help Claus Gittinger <cg@exept.de> parents: 2545 diff changeset	4069	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	4070	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	4071	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	4072	]
1251 eb5b4cdbacde fixed helpText display; Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	4073	! !
eb5b4cdbacde fixed helpText display; Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	4074
794 5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	4075	!MenuPanel methodsFor:'image registration'!
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	4076
2488 74c81c1e30d7 imageOnDevice -> imageOnMyDevice Claus Gittinger <cg@exept.de> parents: 2485 diff changeset	4077	imageOnMyDevice:anImage
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4078	"returns image registered on device"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4079
2770 d46f94ddabef * empty log message * Claus Gittinger <cg@exept.de> parents: 2768 diff changeset	4080	^ self class image:anImage value onDevice:device
794 5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	4081	!
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	4082
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	4083	lightenedImageOnDevice:anImage
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4084	"returns lightened image registered on device"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4085
794 5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	4086	^ self class lightenedImage:anImage onDevice:device
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	4087	! !
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	4088
1688 271829d6a2e4 category changes Claus Gittinger <cg@exept.de> parents: 1679 diff changeset	4089	!MenuPanel methodsFor:'initialization & release'!
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4090
767 ffa2a09a1039 added #addToCurrentProject in order to avoid restart errors tz parents: 746 diff changeset	4091	addToCurrentProject
ffa2a09a1039 added #addToCurrentProject in order to avoid restart errors tz parents: 746 diff changeset	4092	"ignored here"
ffa2a09a1039 added #addToCurrentProject in order to avoid restart errors tz parents: 746 diff changeset	4093	!
ffa2a09a1039 added #addToCurrentProject in order to avoid restart errors tz parents: 746 diff changeset	4094
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4095	create
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4096	"create the shadow view for a none contained submenu"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4097
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4098	super create.
dce33f8bb806 intitial checkin ca parents: diff changeset	4099
dce33f8bb806 intitial checkin ca parents: diff changeset	4100	self isPopUpView ifTrue:[
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4101	(PopUpView shadowsOnDevice:device) ifTrue:[
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4102	shadowView isNil ifTrue:[
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4103	shadowView := (ShadowView onDevice:device) for:self
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4104	] ifFalse:[
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4105	self saveUnder:true.
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4106	].
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4107	]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4108	] ifFalse:[
3334 50374a42b3d9 use accessors for hiddenOnrealize and explicitExtent Claus Gittinger <cg@exept.de> parents: 3332 diff changeset	4109	self hasExplicitExtent ifTrue:[
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4110	(self width) == (superView width) ifTrue:[
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4111	self verticalLayout:false
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4112	]
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4113	]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4114	]
1024 28c87a2369f6 show active help on pointer motion. Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	4115
28c87a2369f6 show active help on pointer motion. Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	4116	"Modified: / 28.7.1998 / 02:11:44 / cg"
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4117	!
dce33f8bb806 intitial checkin ca parents: diff changeset	4118
dce33f8bb806 intitial checkin ca parents: diff changeset	4119	destroy
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4120	"destroy items and shadowView; remove dependencies"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4121
798 74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4122	self clearLastActiveMenu.
2051 d958c12cc08e * empty log message * Claus Gittinger <cg@exept.de> parents: 2050 diff changeset	4123	items notNil ifTrue:[items copy do:[:el\|el destroy]].
2681 2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	4124	items := nil.
2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	4125	self removeDependencies.
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	4126
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4127	super destroy.
3142 4f1c952048c5 focusView handling ca parents: 3133 diff changeset	4128	prevFocusView := superMenu := nil.
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	4129	shadowView notNil ifTrue:[shadowView destroy].
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	4130
2051 d958c12cc08e * empty log message * Claus Gittinger <cg@exept.de> parents: 2050 diff changeset	4131	"Modified: / 15.11.2001 / 17:08:45 / cg"
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	4132	!
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	4133
616 a6157b083830 support of different styles ca parents: 608 diff changeset	4134	fetchDeviceResources
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4135	"fetch device colors, to avoid reallocation at redraw time"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4136
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	4137	\|style\|
93426020ceed * empty log message * ca parents: 2216 diff changeset	4138
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	4139	superMenu notNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	4140	styleSheet := superMenu styleSheet
93426020ceed * empty log message * ca parents: 2216 diff changeset	4141	].
616 a6157b083830 support of different styles ca parents: 608 diff changeset	4142
a6157b083830 support of different styles ca parents: 608 diff changeset	4143	super fetchDeviceResources.
a6157b083830 support of different styles ca parents: 608 diff changeset	4144
1081 fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	4145	"/ 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	4146	"/ (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	4147
616 a6157b083830 support of different styles ca parents: 608 diff changeset	4148	superMenu isNil ifTrue:[
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	4149	rightArrow isNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	4150	rightArrow := SelectionInListView rightArrowFormOn:device.
2059 c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	4151	].
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	4152	fgColor := fgColor onDevice:device.
93426020ceed * empty log message * ca parents: 2216 diff changeset	4153	style := styleSheet name.
93426020ceed * empty log message * ca parents: 2216 diff changeset	4154
2761 611ecd331c14 more xp style Claus Gittinger <cg@exept.de> parents: 2755 diff changeset	4155	(style ~~ #os2 and:[style ~~ #win95 and:[style ~~ #winXP]]) ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	4156	rightArrowShadow := SelectionInListView rightArrowShadowFormOn:device
93426020ceed * empty log message * ca parents: 2216 diff changeset	4157	] ifFalse:[
93426020ceed * empty log message * ca parents: 2216 diff changeset	4158	rightArrowShadow := nil
93426020ceed * empty log message * ca parents: 2216 diff changeset	4159	].
616 a6157b083830 support of different styles ca parents: 608 diff changeset	4160	] ifFalse:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	4161	rightArrow := superMenu rightArrow.
93426020ceed * empty log message * ca parents: 2216 diff changeset	4162	rightArrowShadow := superMenu rightArrowShadow.
93426020ceed * empty log message * ca parents: 2216 diff changeset	4163
93426020ceed * empty log message * ca parents: 2216 diff changeset	4164	self foregroundColor:(superMenu foregroundColor).
2614 86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	4165	self font:(superMenu font).
2761 611ecd331c14 more xp style Claus Gittinger <cg@exept.de> parents: 2755 diff changeset	4166	"/ self viewBackground:(superMenu viewBackground).
1137 7df0b776e47a fixes for 2D styles (borderWidth) Claus Gittinger <cg@exept.de> parents: 1130 diff changeset	4167	].
7df0b776e47a fixes for 2D styles (borderWidth) Claus Gittinger <cg@exept.de> parents: 1130 diff changeset	4168
1829 bd8b95c5bb89 migration fixes Claus Gittinger <cg@exept.de> parents: 1825 diff changeset	4169	items notNil ifTrue:[
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	4170	items do:[:eachItem\| eachItem fetchDeviceResources ]
1829 bd8b95c5bb89 migration fixes Claus Gittinger <cg@exept.de> parents: 1825 diff changeset	4171	].
bd8b95c5bb89 migration fixes Claus Gittinger <cg@exept.de> parents: 1825 diff changeset	4172
1137 7df0b776e47a fixes for 2D styles (borderWidth) Claus Gittinger <cg@exept.de> parents: 1130 diff changeset	4173	"Modified: / 15.9.1998 / 12:51:29 / cg"
616 a6157b083830 support of different styles ca parents: 608 diff changeset	4174	!
a6157b083830 support of different styles ca parents: 608 diff changeset	4175
580 249f6cfc5bb2 checkin from browser Claus Gittinger <cg@exept.de> parents: 571 diff changeset	4176	initStyle
249f6cfc5bb2 checkin from browser Claus Gittinger <cg@exept.de> parents: 571 diff changeset	4177	"initialize style specific stuff"
249f6cfc5bb2 checkin from browser Claus Gittinger <cg@exept.de> parents: 571 diff changeset	4178
2919 0c83b23cb6c6 resource directive Claus Gittinger <cg@exept.de> parents: 2895 diff changeset	4179	<resource: #style (#'menu.buttonItemHorizontalSpace' #'menu.buttonItemSpace'
0c83b23cb6c6 resource directive Claus Gittinger <cg@exept.de> parents: 2895 diff changeset	4180	#'menu.buttonItemVerticalSpace' #'menu.itemSpace'
0c83b23cb6c6 resource directive Claus Gittinger <cg@exept.de> parents: 2895 diff changeset	4181	#'menu.itemHorizontalSpace'
0c83b23cb6c6 resource directive Claus Gittinger <cg@exept.de> parents: 2895 diff changeset	4182	#'popup.hideOnRelease'
0c83b23cb6c6 resource directive Claus Gittinger <cg@exept.de> parents: 2895 diff changeset	4183	)>
2609 b927f450c4c8 * empty log message * ca parents: 2607 diff changeset	4184	\|fn\|
b927f450c4c8 * empty log message * ca parents: 2607 diff changeset	4185
580 249f6cfc5bb2 checkin from browser Claus Gittinger <cg@exept.de> parents: 571 diff changeset	4186	super initStyle.
616 a6157b083830 support of different styles ca parents: 608 diff changeset	4187
2883 58f2f296254d defaults Claus Gittinger <cg@exept.de> parents: 2877 diff changeset	4188	buttonInsetX := styleSheet at:#'menu.buttonItemHorizontalSpace'.
58f2f296254d defaults Claus Gittinger <cg@exept.de> parents: 2877 diff changeset	4189	buttonInsetX isNil ifTrue:[ buttonInsetX := styleSheet at:#'menu.buttonItemSpace' default:0 ].
58f2f296254d defaults Claus Gittinger <cg@exept.de> parents: 2877 diff changeset	4190	buttonInsetX := buttonInsetX abs.
58f2f296254d defaults Claus Gittinger <cg@exept.de> parents: 2877 diff changeset	4191
58f2f296254d defaults Claus Gittinger <cg@exept.de> parents: 2877 diff changeset	4192	buttonInsetY := styleSheet at:#'menu.buttonItemVerticalSpace'.
58f2f296254d defaults Claus Gittinger <cg@exept.de> parents: 2877 diff changeset	4193	buttonInsetY isNil ifTrue:[ buttonInsetY := styleSheet at:#'menu.buttonItemSpace' default:0 ].
58f2f296254d defaults Claus Gittinger <cg@exept.de> parents: 2877 diff changeset	4194	buttonInsetY := buttonInsetY abs.
58f2f296254d defaults Claus Gittinger <cg@exept.de> parents: 2877 diff changeset	4195
58f2f296254d defaults Claus Gittinger <cg@exept.de> parents: 2877 diff changeset	4196	itemSpace := styleSheet at:#'menu.itemHorizontalSpace'.
58f2f296254d defaults Claus Gittinger <cg@exept.de> parents: 2877 diff changeset	4197	itemSpace isNil ifTrue:[ itemSpace := styleSheet at:#'menu.itemSpace' default:[ font widthOf:' '] ].
58f2f296254d defaults Claus Gittinger <cg@exept.de> parents: 2877 diff changeset	4198
58f2f296254d defaults Claus Gittinger <cg@exept.de> parents: 2877 diff changeset	4199
2609 b927f450c4c8 * empty log message * ca parents: 2607 diff changeset	4200	fgColor := DefaultForegroundColor ? Color black.
b927f450c4c8 * empty log message * ca parents: 2607 diff changeset	4201	DefaultBackgroundColor notNil ifTrue:[ viewBackground := DefaultBackgroundColor ].
b927f450c4c8 * empty log message * ca parents: 2607 diff changeset	4202	fn := self class defaultFont.
2610 a30fc1fb35d7 * empty log message * ca parents: 2609 diff changeset	4203	fn notNil ifTrue:[ self font:fn ].
1923 530426a3d692 support #level: ca parents: 1922 diff changeset	4204
2347 9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	4205	defaultHideOnRelease := styleSheet at:#'popup.hideOnRelease' default:true.
9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	4206
2003 732fbaf5864f avoid changing the level after realization (to avoid confusing the shadow) Claus Gittinger <cg@exept.de> parents: 2000 diff changeset	4207	self updateLevelAndBorder.
580 249f6cfc5bb2 checkin from browser Claus Gittinger <cg@exept.de> parents: 571 diff changeset	4208	!
249f6cfc5bb2 checkin from browser Claus Gittinger <cg@exept.de> parents: 571 diff changeset	4209
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4210	initialize
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4211	"set default configuration"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4212
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4213	super initialize.
616 a6157b083830 support of different styles ca parents: 608 diff changeset	4214
2877 6f7df547445b * empty log message * Claus Gittinger <cg@exept.de> parents: 2871 diff changeset	4215	self enableMotionEvents. "/ for flyByHelp
498 b4c341497621 bug fixes: ca parents: 475 diff changeset	4216	enabled := true.
1877 3b415fa4710f only access originChanged, extentChanged and cornerChanged Claus Gittinger <cg@exept.de> parents: 1874 diff changeset	4217	self extentChangedFlag:false.
3b415fa4710f only access originChanged, extentChanged and cornerChanged Claus Gittinger <cg@exept.de> parents: 1874 diff changeset	4218	self originChangedFlag:false.
3334 50374a42b3d9 use accessors for hiddenOnrealize and explicitExtent Claus Gittinger <cg@exept.de> parents: 3332 diff changeset	4219	"/ explicitExtent := nil.
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	4220	shortKeyInset := 0.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	4221	mustRearrange := false.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	4222	showSeparatingLines := false.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	4223	showGroupDivider := true.
3780 14184c505e24 changed: Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4224	hideOnRelease := defaultHideOnRelease.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4225	!
dce33f8bb806 intitial checkin ca parents: diff changeset	4226
1573 fd124ee2bce5 shortcutKeys; arrange layout if selection changed ca parents: 1572 diff changeset	4227	map
717 540e638fdebb Avoid pointer and keyboard grabbing if not necessary Stefan Vogel <sv@exept.de> parents: 712 diff changeset	4228	"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	4229	If the grab fails, try again and unmap myself if that fails too."
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4230
1791 bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	4231	\|loIndices loItems\|
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4232
1690 38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	4233	enteredItem := nil.
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	4234
1024 28c87a2369f6 show active help on pointer motion. Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	4235	self enableMotionEvents.
798 74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4236	self becomesActiveMenu.
1573 fd124ee2bce5 shortcutKeys; arrange layout if selection changed ca parents: 1572 diff changeset	4237	super map.
2681 2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	4238	self addDependencies.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4239
1785 efa4cc8ca917 mnemonic behaviour changed ca parents: 1775 diff changeset	4240	loIndices := InitialSelectionQuerySignal query.
1791 bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	4241	loItems := items ? #[].
bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	4242
bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	4243	loItems do:[:anItem\| anItem fetchImages ].
1572 80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	4244
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4245	self isPopUpView ifTrue:[
2681 2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	4246	self doGrab
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	4247	] ifFalse:[
2681 2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	4248	super viewBackground:(self backgroundColor).
717 540e638fdebb Avoid pointer and keyboard grabbing if not necessary Stefan Vogel <sv@exept.de> parents: 712 diff changeset	4249	].
1791 bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	4250	loItems do:[:el\| el updateIndicators ].
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4251
1785 efa4cc8ca917 mnemonic behaviour changed ca parents: 1775 diff changeset	4252	loIndices size > 0 ifTrue:[
2681 2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	4253	self redrawX:0 y:0 width:width height:height.
2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	4254	self openMenusFromItemIndices:loIndices.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4255	].
dce33f8bb806 intitial checkin ca parents: diff changeset	4256
1177 cfd7f71639f3 checkin from browser Claus Gittinger <cg@exept.de> parents: 1164 diff changeset	4257	"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	4258	"Modified: / 18.3.1999 / 18:22:18 / stefan"
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4259	!
dce33f8bb806 intitial checkin ca parents: diff changeset	4260
dce33f8bb806 intitial checkin ca parents: diff changeset	4261	realize
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4262	"realize menu and shadowView"
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	4263
2761 611ecd331c14 more xp style Claus Gittinger <cg@exept.de> parents: 2755 diff changeset	4264	\|bgColor\|
611ecd331c14 more xp style Claus Gittinger <cg@exept.de> parents: 2755 diff changeset	4265
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4266	self isPopUpView ifTrue:[
2761 611ecd331c14 more xp style Claus Gittinger <cg@exept.de> parents: 2755 diff changeset	4267	bgColor := styleSheet colorAt:'menu.backgroundColor'.
611ecd331c14 more xp style Claus Gittinger <cg@exept.de> parents: 2755 diff changeset	4268	bgColor notNil ifTrue:[ self viewBackground:bgColor ].
611ecd331c14 more xp style Claus Gittinger <cg@exept.de> parents: 2755 diff changeset	4269
2347 9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	4270	"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	4271	shadowView must be realized before self"
9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	4272	self hiddenOnRealize:true.
9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	4273	super realize.
9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	4274	self resize.
9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	4275	self makeFullyVisible.
2003 732fbaf5864f avoid changing the level after realization (to avoid confusing the shadow) Claus Gittinger <cg@exept.de> parents: 2000 diff changeset	4276	"/ self mustRearrange.
2347 9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	4277	shadowView notNil ifTrue:[
9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	4278	shadowView realize.
9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	4279	].
9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	4280	self raise.
9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	4281	self map.
736 220741d8049b Use #saveUnder. Claus Gittinger <cg@exept.de> parents: 735 diff changeset	4282	] ifFalse:[
2347 9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	4283	super realize.
1767 e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	4284	].
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	4285	self allSubViewsDo:[:aView\| aView realize ].
3780 14184c505e24 changed: Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4286	"/ hideOnRelease := defaultHideOnRelease.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4287	!
dce33f8bb806 intitial checkin ca parents: diff changeset	4288
dce33f8bb806 intitial checkin ca parents: diff changeset	4289	recreate
1832 f6e6640e99a3 comment Claus Gittinger <cg@exept.de> parents: 1829 diff changeset	4290	"this is called after a snapin or a migration.
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4291	If the image was saved with an active menu, hide the menu"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4292
1455 5685ec322a5b sizeChanged:... Claus Gittinger <cg@exept.de> parents: 1388 diff changeset	4293	selection := nil.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4294	super recreate.
dce33f8bb806 intitial checkin ca parents: diff changeset	4295	!
dce33f8bb806 intitial checkin ca parents: diff changeset	4296
1130 fb79ef4aeec8 style changes Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	4297	reinitStyle
fb79ef4aeec8 style changes Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	4298	"handle style change while being open (win32 only - for now)"
fb79ef4aeec8 style changes Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	4299
fb79ef4aeec8 style changes Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	4300	super reinitStyle.
fb79ef4aeec8 style changes Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	4301
fb79ef4aeec8 style changes Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	4302	self fetchDeviceResources.
1811 df4f5e5b3396 restart under windows Claus Gittinger <cg@exept.de> parents: 1810 diff changeset	4303	self mustRearrange. "/ care for changed font sizes etc.
df4f5e5b3396 restart under windows Claus Gittinger <cg@exept.de> parents: 1810 diff changeset	4304
df4f5e5b3396 restart under windows Claus Gittinger <cg@exept.de> parents: 1810 diff changeset	4305	self do:[:anItem \|
df4f5e5b3396 restart under windows Claus Gittinger <cg@exept.de> parents: 1810 diff changeset	4306	anItem reinitStyle
df4f5e5b3396 restart under windows Claus Gittinger <cg@exept.de> parents: 1810 diff changeset	4307	].
1130 fb79ef4aeec8 style changes Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	4308
fb79ef4aeec8 style changes Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	4309	"Created: / 10.9.1998 / 21:37:05 / cg"
1811 df4f5e5b3396 restart under windows Claus Gittinger <cg@exept.de> parents: 1810 diff changeset	4310	"Modified: / 17.8.2000 / 18:01:33 / cg"
1130 fb79ef4aeec8 style changes Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	4311	!
fb79ef4aeec8 style changes Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	4312
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4313	unmap
1330 63d2fe5ebd48 comment Claus Gittinger <cg@exept.de> parents: 1313 diff changeset	4314	"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	4315	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	4316
3203 97d6c1d7b7d7 get timeStamp from buttonPress and buttonRelease event ca parents: 3192 diff changeset	4317	mapTime := nil.
97d6c1d7b7d7 get timeStamp from buttonPress and buttonRelease event ca parents: 3192 diff changeset	4318
2681 2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	4319	self removeDependencies.
798 74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4320	self clearLastActiveMenu.
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4321	self doUngrab:(superMenu isNil).
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4322	"/ self isPopUpView ifTrue:[
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4323	"/ self doUngrab:(superMenu isNil)
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4324	"/ ].
3142 4f1c952048c5 focusView handling ca parents: 3133 diff changeset	4325	prevFocusView := nil.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4326	super unmap.
dce33f8bb806 intitial checkin ca parents: diff changeset	4327	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	4328	!
732fbaf5864f avoid changing the level after realization (to avoid confusing the shadow) Claus Gittinger <cg@exept.de> parents: 2000 diff changeset	4329
732fbaf5864f avoid changing the level after realization (to avoid confusing the shadow) Claus Gittinger <cg@exept.de> parents: 2000 diff changeset	4330	updateLevelAndBorder
3820 8767ab1e2a24 borderColor from styleSheet Claus Gittinger <cg@exept.de> parents: 3780 diff changeset	4331	"update level & border"
8767ab1e2a24 borderColor from styleSheet Claus Gittinger <cg@exept.de> parents: 3780 diff changeset	4332
8767ab1e2a24 borderColor from styleSheet Claus Gittinger <cg@exept.de> parents: 3780 diff changeset	4333	<resource: #style (#'popup.borderWidth'
8767ab1e2a24 borderColor from styleSheet Claus Gittinger <cg@exept.de> parents: 3780 diff changeset	4334	#'popup.borderColor'
8767ab1e2a24 borderColor from styleSheet Claus Gittinger <cg@exept.de> parents: 3780 diff changeset	4335	#'popup.level'
8767ab1e2a24 borderColor from styleSheet Claus Gittinger <cg@exept.de> parents: 3780 diff changeset	4336	#'pullDownMenu.level'
8767ab1e2a24 borderColor from styleSheet Claus Gittinger <cg@exept.de> parents: 3780 diff changeset	4337	)>
8767ab1e2a24 borderColor from styleSheet Claus Gittinger <cg@exept.de> parents: 3780 diff changeset	4338
8767ab1e2a24 borderColor from styleSheet Claus Gittinger <cg@exept.de> parents: 3780 diff changeset	4339	\|bw bc lvl\|
2003 732fbaf5864f avoid changing the level after realization (to avoid confusing the shadow) Claus Gittinger <cg@exept.de> parents: 2000 diff changeset	4340
732fbaf5864f avoid changing the level after realization (to avoid confusing the shadow) Claus Gittinger <cg@exept.de> parents: 2000 diff changeset	4341	self isPopUpView ifTrue:[
732fbaf5864f avoid changing the level after realization (to avoid confusing the shadow) Claus Gittinger <cg@exept.de> parents: 2000 diff changeset	4342	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	4343	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	4344	] ifFalse:[
732fbaf5864f avoid changing the level after realization (to avoid confusing the shadow) Claus Gittinger <cg@exept.de> parents: 2000 diff changeset	4345	bw := styleSheet is3D ifFalse:[1] ifTrue:[0].
2372 d136f6d4b7c5 bugfix if font is nil ca parents: 2364 diff changeset	4346	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	4347	].
3823 81781fb283b5 changed: #updateLevelAndBorder Claus Gittinger <cg@exept.de> parents: 3820 diff changeset	4348	bw ~~ 0 ifTrue:[
81781fb283b5 changed: #updateLevelAndBorder Claus Gittinger <cg@exept.de> parents: 3820 diff changeset	4349	bc := styleSheet at:#'popup.borderColor' default:Color black.
81781fb283b5 changed: #updateLevelAndBorder Claus Gittinger <cg@exept.de> parents: 3820 diff changeset	4350	self borderColor:bc
81781fb283b5 changed: #updateLevelAndBorder Claus Gittinger <cg@exept.de> parents: 3820 diff changeset	4351	].
2003 732fbaf5864f avoid changing the level after realization (to avoid confusing the shadow) Claus Gittinger <cg@exept.de> parents: 2000 diff changeset	4352	self borderWidth:bw.
732fbaf5864f avoid changing the level after realization (to avoid confusing the shadow) Claus Gittinger <cg@exept.de> parents: 2000 diff changeset	4353	self level:lvl.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4354	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	4355
1878 1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	4356	!MenuPanel methodsFor:'keyboard control'!
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	4357
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	4358	mnemonicViewNext:aKeyEvent
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	4359	"a mnemonicKey event as forwarded from the keyboardProcessor - if there
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	4360	is the mnemonic-key defined for any menuItem, handle the menuItem and
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4361	return the topMenu otherwise nil."
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4362
3363 33e881abd5b2 accelerator search limited to 2-levels; Claus Gittinger <cg@exept.de> parents: 3360 diff changeset	4363	\|menu uKey lKey list index accessCharacterMatchQuery maxShortCutSearchLevel\|
2112 c4cd07f21fac processing mnemonic's (search next from current) ca parents: 2111 diff changeset	4364
c4cd07f21fac processing mnemonic's (search next from current) ca parents: 2111 diff changeset	4365	superMenu notNil ifTrue:[ ^ superMenu mnemonicViewNext:aKeyEvent ].
1878 1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	4366	shown ifFalse:[^ nil].
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	4367
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	4368	uKey := aKeyEvent rawKey last asUppercase.
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	4369	lKey := uKey asLowercase.
2112 c4cd07f21fac processing mnemonic's (search next from current) ca parents: 2111 diff changeset	4370
3363 33e881abd5b2 accelerator search limited to 2-levels; Claus Gittinger <cg@exept.de> parents: 3360 diff changeset	4371	accessCharacterMatchQuery := [:el\|
33e881abd5b2 accelerator search limited to 2-levels; Claus Gittinger <cg@exept.de> parents: 3360 diff changeset	4372	\|k\|
33e881abd5b2 accelerator search limited to 2-levels; Claus Gittinger <cg@exept.de> parents: 3360 diff changeset	4373	k := el accessCharacter.
33e881abd5b2 accelerator search limited to 2-levels; Claus Gittinger <cg@exept.de> parents: 3360 diff changeset	4374	k == uKey or:[k == lKey]
33e881abd5b2 accelerator search limited to 2-levels; Claus Gittinger <cg@exept.de> parents: 3360 diff changeset	4375	].
33e881abd5b2 accelerator search limited to 2-levels; Claus Gittinger <cg@exept.de> parents: 3360 diff changeset	4376	maxShortCutSearchLevel := self class maxShortCutSearchLevel.
33e881abd5b2 accelerator search limited to 2-levels; Claus Gittinger <cg@exept.de> parents: 3360 diff changeset	4377
2112 c4cd07f21fac processing mnemonic's (search next from current) ca parents: 2111 diff changeset	4378	selection notNil ifTrue:[
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	4379	"first lookup the current grapMenu before starting in the topMenu
975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	4380	"
975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	4381	menu := self detectGrabMenu.
975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	4382
975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	4383	[ menu ~~ self ] whileTrue:[
975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	4384	index := menu selectionIndex.
3363 33e881abd5b2 accelerator search limited to 2-levels; Claus Gittinger <cg@exept.de> parents: 3360 diff changeset	4385	list := menu
33e881abd5b2 accelerator search limited to 2-levels; Claus Gittinger <cg@exept.de> parents: 3360 diff changeset	4386	selectItemIndicesFor:accessCharacterMatchQuery
33e881abd5b2 accelerator search limited to 2-levels; Claus Gittinger <cg@exept.de> parents: 3360 diff changeset	4387	maxDepth:maxShortCutSearchLevel from:(index + 1) to:99999
33e881abd5b2 accelerator search limited to 2-levels; Claus Gittinger <cg@exept.de> parents: 3360 diff changeset	4388	ignoreSubmenuBlock:[:anItem\| anItem ignoreMnemonicKeys ].
2112 c4cd07f21fac processing mnemonic's (search next from current) ca parents: 2111 diff changeset	4389
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	4390	list size ~~ 0 ifTrue:[
975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	4391	"/ has item which responds to the mnemonic
975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	4392	menu processCollectedIndices:list.
975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	4393	^ self
975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	4394	].
975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	4395	menu := menu superMenu.
975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	4396	].
975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	4397	index := self selectionIndex.
3363 33e881abd5b2 accelerator search limited to 2-levels; Claus Gittinger <cg@exept.de> parents: 3360 diff changeset	4398	list := self
33e881abd5b2 accelerator search limited to 2-levels; Claus Gittinger <cg@exept.de> parents: 3360 diff changeset	4399	selectItemIndicesFor:accessCharacterMatchQuery
33e881abd5b2 accelerator search limited to 2-levels; Claus Gittinger <cg@exept.de> parents: 3360 diff changeset	4400	maxDepth:maxShortCutSearchLevel from:(1 + index) to:99999
33e881abd5b2 accelerator search limited to 2-levels; Claus Gittinger <cg@exept.de> parents: 3360 diff changeset	4401	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	4402
2112 c4cd07f21fac processing mnemonic's (search next from current) ca parents: 2111 diff changeset	4403	] ifFalse:[
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	4404	index := 99999.
975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	4405	list := nil.
2112 c4cd07f21fac processing mnemonic's (search next from current) ca parents: 2111 diff changeset	4406	].
c4cd07f21fac processing mnemonic's (search next from current) ca parents: 2111 diff changeset	4407
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	4408	list isNil ifTrue:[
3363 33e881abd5b2 accelerator search limited to 2-levels; Claus Gittinger <cg@exept.de> parents: 3360 diff changeset	4409	list := self
33e881abd5b2 accelerator search limited to 2-levels; Claus Gittinger <cg@exept.de> parents: 3360 diff changeset	4410	selectItemIndicesFor:accessCharacterMatchQuery
33e881abd5b2 accelerator search limited to 2-levels; Claus Gittinger <cg@exept.de> parents: 3360 diff changeset	4411	maxDepth:maxShortCutSearchLevel from:1 to:index
33e881abd5b2 accelerator search limited to 2-levels; Claus Gittinger <cg@exept.de> parents: 3360 diff changeset	4412	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	4413
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	4414
975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	4415	list isNil ifTrue:[
975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	4416	"/ must clear existing selection
975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	4417	self selection:nil.
975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	4418	^ nil
975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	4419	]
2112 c4cd07f21fac processing mnemonic's (search next from current) ca parents: 2111 diff changeset	4420	].
c4cd07f21fac processing mnemonic's (search next from current) ca parents: 2111 diff changeset	4421
c4cd07f21fac processing mnemonic's (search next from current) ca parents: 2111 diff changeset	4422	"/ has item which responds to the mnemonic
c4cd07f21fac processing mnemonic's (search next from current) ca parents: 2111 diff changeset	4423	self processCollectedIndices:list.
1889 43516e4588ce give warning messages for unimplemented menu-aspects Claus Gittinger <cg@exept.de> parents: 1878 diff changeset	4424	!
1878 1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	4425
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	4426	openMenusFromItemIndices:anItemIndiceList
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4427	"open all menus derived from sequence of item indices"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4428
1878 1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	4429	\|item\|
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	4430
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	4431	anItemIndiceList size == 0 ifTrue:[
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4432	^ self
1878 1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	4433	].
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	4434	item := self itemAt:(anItemIndiceList removeFirst).
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	4435
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	4436	(item notNil and:[item enabled]) ifTrue:[
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4437	InitialSelectionQuerySignal answer:anItemIndiceList do:[
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4438	self selection:item openMenu:true.
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	4439	]
1889 43516e4588ce give warning messages for unimplemented menu-aspects Claus Gittinger <cg@exept.de> parents: 1878 diff changeset	4440	].
43516e4588ce give warning messages for unimplemented menu-aspects Claus Gittinger <cg@exept.de> parents: 1878 diff changeset	4441	!
1878 1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	4442
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	4443	processCollectedIndices:indices
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	4444	\|menu item\|
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	4445
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	4446	indices size == 0 ifTrue:[
3192 a64a9c9143c4 shortcuts... processing ca parents: 3189 diff changeset	4447	^ self
1878 1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	4448	].
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	4449	menu := self.
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	4450
3192 a64a9c9143c4 shortcuts... processing ca parents: 3189 diff changeset	4451	"/ first lookup in current open submenus
1878 1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	4452	[menu selectionIndex == indices first] whileTrue:[
3192 a64a9c9143c4 shortcuts... processing ca parents: 3189 diff changeset	4453	( (item := menu selection) isNil
a64a9c9143c4 shortcuts... processing ca parents: 3189 diff changeset	4454	or:[(menu := item currentSubmenu) isNil]
a64a9c9143c4 shortcuts... processing ca parents: 3189 diff changeset	4455	) ifTrue:[ "/ selected but no submenu open - not handled
a64a9c9143c4 shortcuts... processing ca parents: 3189 diff changeset	4456	^ self
a64a9c9143c4 shortcuts... processing ca parents: 3189 diff changeset	4457	].
a64a9c9143c4 shortcuts... processing ca parents: 3189 diff changeset	4458	indices removeFirst.
a64a9c9143c4 shortcuts... processing ca parents: 3189 diff changeset	4459
a64a9c9143c4 shortcuts... processing ca parents: 3189 diff changeset	4460	indices isEmpty ifTrue:[
a64a9c9143c4 shortcuts... processing ca parents: 3189 diff changeset	4461	menu selection:nil.
a64a9c9143c4 shortcuts... processing ca parents: 3189 diff changeset	4462	^ self
a64a9c9143c4 shortcuts... processing ca parents: 3189 diff changeset	4463	]
1878 1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	4464	].
1889 43516e4588ce give warning messages for unimplemented menu-aspects Claus Gittinger <cg@exept.de> parents: 1878 diff changeset	4465	menu openMenusFromItemIndices:indices.
43516e4588ce give warning messages for unimplemented menu-aspects Claus Gittinger <cg@exept.de> parents: 1878 diff changeset	4466	!
1878 1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	4467
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	4468	processShortcut:aKeyEvent
2926 0d6dc899b49f ignoreShortcutKeys also blocks individual items Claus Gittinger <cg@exept.de> parents: 2919 diff changeset	4469	"a shortcutKey event as forwarded from the keyboardProcessor.
0d6dc899b49f ignoreShortcutKeys also blocks individual items Claus Gittinger <cg@exept.de> parents: 2919 diff changeset	4470	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	4471	Otherwise return false."
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4472
3431 ee7ea52cc2ad code refactored Claus Gittinger <cg@exept.de> parents: 3421 diff changeset	4473	\|menu rawKey logicalKey list item selectableItem\|
1878 1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	4474
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	4475	superMenu notNil ifTrue:[
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	4476	^ superMenu processShortcut:aKeyEvent
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	4477	].
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	4478	shown ifFalse:[^ false].
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	4479
3431 ee7ea52cc2ad code refactored Claus Gittinger <cg@exept.de> parents: 3421 diff changeset	4480	logicalKey := aKeyEvent key.
2604 34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	4481
34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	4482	"/ fast check, cursor keys are not supported
34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	4483
3192 a64a9c9143c4 shortcuts... processing ca parents: 3189 diff changeset	4484	( #( CursorDown CursorUp CursorRight CursorLeft Return Escape
3431 ee7ea52cc2ad code refactored Claus Gittinger <cg@exept.de> parents: 3421 diff changeset	4485	) includes:logicalKey
2604 34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	4486	) ifTrue:[
34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	4487	^ false.
34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	4488	].
3431 ee7ea52cc2ad code refactored Claus Gittinger <cg@exept.de> parents: 3421 diff changeset	4489	rawKey := aKeyEvent rawKey.
2604 34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	4490	item := nil.
3328 037d6d506879 no access character translation for the combo-list Claus Gittinger <cg@exept.de> parents: 3321 diff changeset	4491	menu := self detectGrabMenu. "/ first lookup the current grabMenu before starting in the topMenu
1878 1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	4492
3394 90e7bc4402b5 Alt-key alone catches focus and selects first item Claus Gittinger <cg@exept.de> parents: 3384 diff changeset	4493	"/ special for Cmd-only event (i.e. ALT-only)
90e7bc4402b5 Alt-key alone catches focus and selects first item Claus Gittinger <cg@exept.de> parents: 3384 diff changeset	4494	aKeyEvent isKeyReleaseEvent ifTrue:[
90e7bc4402b5 Alt-key alone catches focus and selects first item Claus Gittinger <cg@exept.de> parents: 3384 diff changeset	4495	selection isNil ifTrue:[
90e7bc4402b5 Alt-key alone catches focus and selects first item Claus Gittinger <cg@exept.de> parents: 3384 diff changeset	4496	prevFocusView := self windowGroup focusView.
90e7bc4402b5 Alt-key alone catches focus and selects first item Claus Gittinger <cg@exept.de> parents: 3384 diff changeset	4497	self requestFocus. "/ self windowGroup focusView:self.
90e7bc4402b5 Alt-key alone catches focus and selects first item Claus Gittinger <cg@exept.de> parents: 3384 diff changeset	4498	selectableItem := self firstItemSelectable.
90e7bc4402b5 Alt-key alone catches focus and selects first item Claus Gittinger <cg@exept.de> parents: 3384 diff changeset	4499	self selection:selectableItem openMenu:false.
90e7bc4402b5 Alt-key alone catches focus and selects first item Claus Gittinger <cg@exept.de> parents: 3384 diff changeset	4500	] ifFalse:[
90e7bc4402b5 Alt-key alone catches focus and selects first item Claus Gittinger <cg@exept.de> parents: 3384 diff changeset	4501	prevFocusView requestFocus.
90e7bc4402b5 Alt-key alone catches focus and selects first item Claus Gittinger <cg@exept.de> parents: 3384 diff changeset	4502	self selection:nil.
90e7bc4402b5 Alt-key alone catches focus and selects first item Claus Gittinger <cg@exept.de> parents: 3384 diff changeset	4503	].
90e7bc4402b5 Alt-key alone catches focus and selects first item Claus Gittinger <cg@exept.de> parents: 3384 diff changeset	4504	^ true
90e7bc4402b5 Alt-key alone catches focus and selects first item Claus Gittinger <cg@exept.de> parents: 3384 diff changeset	4505	].
90e7bc4402b5 Alt-key alone catches focus and selects first item Claus Gittinger <cg@exept.de> parents: 3384 diff changeset	4506
1878 1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	4507	[true] whileTrue:[
2926 0d6dc899b49f ignoreShortcutKeys also blocks individual items Claus Gittinger <cg@exept.de> parents: 2919 diff changeset	4508	list := menu
0d6dc899b49f ignoreShortcutKeys also blocks individual items Claus Gittinger <cg@exept.de> parents: 2919 diff changeset	4509	selectItemIndicesFor:[:el\|
0d6dc899b49f ignoreShortcutKeys also blocks individual items Claus Gittinger <cg@exept.de> parents: 2919 diff changeset	4510	\|skey\|
0d6dc899b49f ignoreShortcutKeys also blocks individual items Claus Gittinger <cg@exept.de> parents: 2919 diff changeset	4511
0d6dc899b49f ignoreShortcutKeys also blocks individual items Claus Gittinger <cg@exept.de> parents: 2919 diff changeset	4512	item := el.
0d6dc899b49f ignoreShortcutKeys also blocks individual items Claus Gittinger <cg@exept.de> parents: 2919 diff changeset	4513	el ignoreShortcutKeys ifTrue:[
0d6dc899b49f ignoreShortcutKeys also blocks individual items Claus Gittinger <cg@exept.de> parents: 2919 diff changeset	4514	false
0d6dc899b49f ignoreShortcutKeys also blocks individual items Claus Gittinger <cg@exept.de> parents: 2919 diff changeset	4515	] ifFalse:[
0d6dc899b49f ignoreShortcutKeys also blocks individual items Claus Gittinger <cg@exept.de> parents: 2919 diff changeset	4516	skey := el shortcutKey.
3431 ee7ea52cc2ad code refactored Claus Gittinger <cg@exept.de> parents: 3421 diff changeset	4517	skey == rawKey or:[skey == logicalKey]
2926 0d6dc899b49f ignoreShortcutKeys also blocks individual items Claus Gittinger <cg@exept.de> parents: 2919 diff changeset	4518	]
0d6dc899b49f ignoreShortcutKeys also blocks individual items Claus Gittinger <cg@exept.de> parents: 2919 diff changeset	4519	]
3363 33e881abd5b2 accelerator search limited to 2-levels; Claus Gittinger <cg@exept.de> parents: 3360 diff changeset	4520	maxDepth:(self class maxShortCutSearchLevel) from:1 to:99999
2926 0d6dc899b49f ignoreShortcutKeys also blocks individual items Claus Gittinger <cg@exept.de> parents: 2919 diff changeset	4521	ignoreSubmenuBlock:[:anItem \| anItem ignoreShortcutKeys ].
1878 1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	4522
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	4523	list size ~~ 0 ifTrue:[
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	4524	"/ has item which responds to the shortcut
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	4525	item hasSubmenu ifFalse:[
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	4526	menu accept:item
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	4527	] ifTrue:[
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	4528	menu processCollectedIndices:list.
3394 90e7bc4402b5 Alt-key alone catches focus and selects first item Claus Gittinger <cg@exept.de> parents: 3384 diff changeset	4529	self requestFocus. "/ self windowGroup focusView:self.
1878 1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	4530	].
3394 90e7bc4402b5 Alt-key alone catches focus and selects first item Claus Gittinger <cg@exept.de> parents: 3384 diff changeset	4531	^ true
1878 1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	4532	].
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	4533
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	4534	menu == self ifTrue:[ ^ false ].
1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	4535	menu := self.
1889 43516e4588ce give warning messages for unimplemented menu-aspects Claus Gittinger <cg@exept.de> parents: 1878 diff changeset	4536	].
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	4537	^ false "/ never reached
1889 43516e4588ce give warning messages for unimplemented menu-aspects Claus Gittinger <cg@exept.de> parents: 1878 diff changeset	4538	!
1878 1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	4539
2604 34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	4540	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	4541	"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	4542	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	4543	true. If no item is detected, nil is returned.
2604 34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	4544	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	4545	is created and passed through if the block returns false.
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4546	Otherwise the item is not asked for its submenu."
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4547
2112 c4cd07f21fac processing mnemonic's (search next from current) ca parents: 2111 diff changeset	4548	\|start stop\|
c4cd07f21fac processing mnemonic's (search next from current) ca parents: 2111 diff changeset	4549
c4cd07f21fac processing mnemonic's (search next from current) ca parents: 2111 diff changeset	4550	maxDepth <= 0 ifTrue:[^ nil].
c4cd07f21fac processing mnemonic's (search next from current) ca parents: 2111 diff changeset	4551
c4cd07f21fac processing mnemonic's (search next from current) ca parents: 2111 diff changeset	4552	start := aStart max:1.
c4cd07f21fac processing mnemonic's (search next from current) ca parents: 2111 diff changeset	4553	stop := aStop min:(items size).
c4cd07f21fac processing mnemonic's (search next from current) ca parents: 2111 diff changeset	4554
3431 ee7ea52cc2ad code refactored Claus Gittinger <cg@exept.de> parents: 3421 diff changeset	4555	start to:stop do:[:i\|
ee7ea52cc2ad code refactored Claus Gittinger <cg@exept.de> parents: 3421 diff changeset	4556	\|item menu result\|
ee7ea52cc2ad code refactored Claus Gittinger <cg@exept.de> parents: 3421 diff changeset	4557
2603 edb5408fd3e7 prepared to test an item whether the submenu should be created caused by mnemonic or accelorator key ca parents: 2579 diff changeset	4558	item := items at:i.
3363 33e881abd5b2 accelerator search limited to 2-levels; Claus Gittinger <cg@exept.de> parents: 3360 diff changeset	4559	(item enabled and:[item isVisible]) ifTrue:[
33e881abd5b2 accelerator search limited to 2-levels; Claus Gittinger <cg@exept.de> parents: 3360 diff changeset	4560	(aOneArgBlock value:item) ifTrue:[
2604 34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	4561	^ OrderedCollection with:i
3363 33e881abd5b2 accelerator search limited to 2-levels; Claus Gittinger <cg@exept.de> parents: 3360 diff changeset	4562	].
33e881abd5b2 accelerator search limited to 2-levels; Claus Gittinger <cg@exept.de> parents: 3360 diff changeset	4563
33e881abd5b2 accelerator search limited to 2-levels; Claus Gittinger <cg@exept.de> parents: 3360 diff changeset	4564	maxDepth > 1 ifTrue:[
33e881abd5b2 accelerator search limited to 2-levels; Claus Gittinger <cg@exept.de> parents: 3360 diff changeset	4565	(item hasSubmenu and:[item hasDelayedMenu not]) ifTrue:[
2604 34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	4566	(ignoreSubmenueBlock isNil or:[(ignoreSubmenueBlock value:item) not]) ifTrue:[
3192 a64a9c9143c4 shortcuts... processing ca parents: 3189 diff changeset	4567	menu := item setupSubmenu.
2604 34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	4568
34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	4569	(menu notNil and:[menu isEnabled]) ifTrue:[
3363 33e881abd5b2 accelerator search limited to 2-levels; Claus Gittinger <cg@exept.de> parents: 3360 diff changeset	4570	result := menu
33e881abd5b2 accelerator search limited to 2-levels; Claus Gittinger <cg@exept.de> parents: 3360 diff changeset	4571	selectItemIndicesFor:aOneArgBlock
33e881abd5b2 accelerator search limited to 2-levels; Claus Gittinger <cg@exept.de> parents: 3360 diff changeset	4572	maxDepth:(maxDepth - 1) from:1 to:99999
33e881abd5b2 accelerator search limited to 2-levels; Claus Gittinger <cg@exept.de> parents: 3360 diff changeset	4573	ignoreSubmenuBlock:ignoreSubmenueBlock.
2604 34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	4574
34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	4575	result notNil ifTrue:[
34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	4576	result addFirst:i.
3128 9b92638bbd58 * empty log message * Claus Gittinger <cg@exept.de> parents: 3127 diff changeset	4577	^ result
2604 34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	4578	].
34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	4579	].
34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	4580	].
34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	4581	].
34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	4582	].
2603 edb5408fd3e7 prepared to test an item whether the submenu should be created caused by mnemonic or accelorator key ca parents: 2579 diff changeset	4583	].
1878 1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	4584	].
1889 43516e4588ce give warning messages for unimplemented menu-aspects Claus Gittinger <cg@exept.de> parents: 1878 diff changeset	4585	^ nil
3128 9b92638bbd58 * empty log message * Claus Gittinger <cg@exept.de> parents: 3127 diff changeset	4586
9b92638bbd58 * empty log message * Claus Gittinger <cg@exept.de> parents: 3127 diff changeset	4587	"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	4588	! !
1878 1afc5cdf3002 mnemonic-key and shortcut-key support; ca parents: 1877 diff changeset	4589
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4590	!MenuPanel methodsFor:'misc'!
dce33f8bb806 intitial checkin ca parents: diff changeset	4591
427 82cbad72e197 raiseDeiconified is treated like a raise Claus Gittinger <cg@exept.de> parents: 420 diff changeset	4592	raiseDeiconified
82cbad72e197 raiseDeiconified is treated like a raise Claus Gittinger <cg@exept.de> parents: 420 diff changeset	4593	^ self raise
82cbad72e197 raiseDeiconified is treated like a raise Claus Gittinger <cg@exept.de> parents: 420 diff changeset	4594
82cbad72e197 raiseDeiconified is treated like a raise Claus Gittinger <cg@exept.de> parents: 420 diff changeset	4595	"Created: 21.6.1997 / 13:29:12 / cg"
82cbad72e197 raiseDeiconified is treated like a raise Claus Gittinger <cg@exept.de> parents: 420 diff changeset	4596	!
82cbad72e197 raiseDeiconified is treated like a raise Claus Gittinger <cg@exept.de> parents: 420 diff changeset	4597
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4598	superMenu
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4599	"returns supermenu or nil"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4600
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4601	^ superMenu
dce33f8bb806 intitial checkin ca parents: diff changeset	4602	!
dce33f8bb806 intitial checkin ca parents: diff changeset	4603
dce33f8bb806 intitial checkin ca parents: diff changeset	4604	topMenu
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4605	"returns the topMenu; the one having no superMenu"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4606
1791 bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	4607	\|menu smenu\|
bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	4608
bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	4609	menu := self.
bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	4610
bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	4611	[(smenu := menu superMenu) notNil] whileTrue:[
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4612	menu := smenu
1791 bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	4613	].
bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	4614	^ menu
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4615	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	4616
1825 962390f1b499 category change Claus Gittinger <cg@exept.de> parents: 1824 diff changeset	4617	!MenuPanel methodsFor:'printing & storing'!
798 74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4618
3360 f329bc4a2254 Define #printOn: for each method defining #printString Stefan Vogel <sv@exept.de> parents: 3334 diff changeset	4619	printOn:aStream
f329bc4a2254 Define #printOn: for each method defining #printString Stefan Vogel <sv@exept.de> parents: 3334 diff changeset	4620	\|label\|
f329bc4a2254 Define #printOn: for each method defining #printString Stefan Vogel <sv@exept.de> parents: 3334 diff changeset	4621
f329bc4a2254 Define #printOn: for each method defining #printString Stefan Vogel <sv@exept.de> parents: 3334 diff changeset	4622	aStream nextPutAll:'Menu:'.
f329bc4a2254 Define #printOn: for each method defining #printString Stefan Vogel <sv@exept.de> parents: 3334 diff changeset	4623
f329bc4a2254 Define #printOn: for each method defining #printString Stefan Vogel <sv@exept.de> parents: 3334 diff changeset	4624	self do:[:eachItem\|
f329bc4a2254 Define #printOn: for each method defining #printString Stefan Vogel <sv@exept.de> parents: 3334 diff changeset	4625	label := eachItem label.
f329bc4a2254 Define #printOn: for each method defining #printString Stefan Vogel <sv@exept.de> parents: 3334 diff changeset	4626	label notEmptyOrNil ifTrue:[
f329bc4a2254 Define #printOn: for each method defining #printString Stefan Vogel <sv@exept.de> parents: 3334 diff changeset	4627	aStream nextPutAll:' '.
f329bc4a2254 Define #printOn: for each method defining #printString Stefan Vogel <sv@exept.de> parents: 3334 diff changeset	4628	label printOn:aStream.
f329bc4a2254 Define #printOn: for each method defining #printString Stefan Vogel <sv@exept.de> parents: 3334 diff changeset	4629	].
f329bc4a2254 Define #printOn: for each method defining #printString Stefan Vogel <sv@exept.de> parents: 3334 diff changeset	4630	].
798 74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4631	! !
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4632
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4633	!MenuPanel methodsFor:'private'!
dce33f8bb806 intitial checkin ca parents: diff changeset	4634
434 9898a2909ef0 add active help for items ca parents: 433 diff changeset	4635	application
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4636	"optimize access to retrive the application"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4637
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	4638	application notNil ifTrue:[^ application ].
434 9898a2909ef0 add active help for items ca parents: 433 diff changeset	4639
9898a2909ef0 add active help for items ca parents: 433 diff changeset	4640	superMenu notNil ifTrue:[
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	4641	application := superMenu application.
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	4642	^ application
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	4643	].
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	4644	application := super application.
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	4645	^ application
1872 b20e27632fd8 application fetch fix Claus Gittinger <cg@exept.de> parents: 1870 diff changeset	4646	!
434 9898a2909ef0 add active help for items ca parents: 433 diff changeset	4647
3725 d26ee7a0a8ac oops AEG stuff removed Claus Gittinger <cg@exept.de> parents: 3695 diff changeset	4648	detectItem:aBlock
d26ee7a0a8ac oops AEG stuff removed Claus Gittinger <cg@exept.de> parents: 3695 diff changeset	4649	"returns the item for which aBlock returns true."
d26ee7a0a8ac oops AEG stuff removed Claus Gittinger <cg@exept.de> parents: 3695 diff changeset	4650
d26ee7a0a8ac oops AEG stuff removed Claus Gittinger <cg@exept.de> parents: 3695 diff changeset	4651	items notNil ifTrue:[
d26ee7a0a8ac oops AEG stuff removed Claus Gittinger <cg@exept.de> parents: 3695 diff changeset	4652	items keysAndValuesDo:[:anIndex :anItem\|
d26ee7a0a8ac oops AEG stuff removed Claus Gittinger <cg@exept.de> parents: 3695 diff changeset	4653	(aBlock value:anItem) ifTrue:[^ anItem].
d26ee7a0a8ac oops AEG stuff removed Claus Gittinger <cg@exept.de> parents: 3695 diff changeset	4654	].
d26ee7a0a8ac oops AEG stuff removed Claus Gittinger <cg@exept.de> parents: 3695 diff changeset	4655	].
d26ee7a0a8ac oops AEG stuff removed Claus Gittinger <cg@exept.de> parents: 3695 diff changeset	4656	^ nil
d26ee7a0a8ac oops AEG stuff removed Claus Gittinger <cg@exept.de> parents: 3695 diff changeset	4657	!
d26ee7a0a8ac oops AEG stuff removed Claus Gittinger <cg@exept.de> parents: 3695 diff changeset	4658
1572 80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	4659	detectItemForKey:aKey
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	4660	"returns the item assigned to a key, accessCharacter or starts with.
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4661	if no item is detected nil is returned."
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4662
1572 80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	4663	\|cIdx uKey lKey item\|
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	4664
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4665	items isNil ifTrue:[^ nil].
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	4666
1572 80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	4667	cIdx := self selectionIndex.
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	4668	uKey := aKey asUppercase.
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	4669	lKey := aKey asLowercase.
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	4670
3725 d26ee7a0a8ac oops AEG stuff removed Claus Gittinger <cg@exept.de> parents: 3695 diff changeset	4671	items keysAndValuesDo:[:anIndex :anItem\|
d26ee7a0a8ac oops AEG stuff removed Claus Gittinger <cg@exept.de> parents: 3695 diff changeset	4672	\|char label\|
d26ee7a0a8ac oops AEG stuff removed Claus Gittinger <cg@exept.de> parents: 3695 diff changeset	4673
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4674	( anIndex ~~ cIdx
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4675	and:[anItem canSelect
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4676	and:[(label := anItem textLabel) notNil
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4677	and:[label size ~~ 0]]]
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4678	) ifTrue:[
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4679	(char := anItem accessCharacter) notNil ifTrue:[
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4680	(char == uKey or:[char == lKey]) ifTrue:[
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4681	^ anItem
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4682	]
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4683	] ifFalse:[
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4684	char := label at:1.
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4685
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4686	(char == uKey or:[char == lKey]) ifTrue:[
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4687	anIndex > cIdx ifTrue:[
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4688	^ anItem
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4689	].
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4690	item isNil ifTrue:[item := anItem]
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4691	]
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4692	]
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4693	]
1572 80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	4694	].
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	4695	^ item
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	4696	!
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	4697
3725 d26ee7a0a8ac oops AEG stuff removed Claus Gittinger <cg@exept.de> parents: 3695 diff changeset	4698	detectItemForLabel:aLabel
d26ee7a0a8ac oops AEG stuff removed Claus Gittinger <cg@exept.de> parents: 3695 diff changeset	4699	^ self detectItem:[:anItem \| anItem label = aLabel].
d26ee7a0a8ac oops AEG stuff removed Claus Gittinger <cg@exept.de> parents: 3695 diff changeset	4700	!
d26ee7a0a8ac oops AEG stuff removed Claus Gittinger <cg@exept.de> parents: 3695 diff changeset	4701
d26ee7a0a8ac oops AEG stuff removed Claus Gittinger <cg@exept.de> parents: 3695 diff changeset	4702	detectItemForNameKey:aKey
d26ee7a0a8ac oops AEG stuff removed Claus Gittinger <cg@exept.de> parents: 3695 diff changeset	4703	^ self detectItem:[:anItem \| anItem nameKey == aKey].
d26ee7a0a8ac oops AEG stuff removed Claus Gittinger <cg@exept.de> parents: 3695 diff changeset	4704	!
d26ee7a0a8ac oops AEG stuff removed Claus Gittinger <cg@exept.de> parents: 3695 diff changeset	4705
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	4706	menuAdornmentAt:aSymbol
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4707	"returns a value derived from adornment"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4708
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	4709	adornment isNil ifTrue:[^ nil].
975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	4710	^ adornment at:aSymbol ifAbsent:nil
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4711	!
dce33f8bb806 intitial checkin ca parents: diff changeset	4712
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	4713	menuAdornmentAt:aSymbol put:something
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4714	"sets a value for the specific menu"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4715
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	4716	\|oldValue\|
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	4717
653 cf9b6ef11ade bug fix; no automatic rearrange of items ca parents: 650 diff changeset	4718	adornment isNil ifTrue:[
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	4719	something isNil ifTrue:[^ self].
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	4720	adornment := IdentityDictionary new.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	4721	] ifFalse:[
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	4722	oldValue := adornment at:aSymbol ifAbsent:nil.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	4723	oldValue == something ifTrue:[^ self].
653 cf9b6ef11ade bug fix; no automatic rearrange of items ca parents: 650 diff changeset	4724	].
cf9b6ef11ade bug fix; no automatic rearrange of items ca parents: 650 diff changeset	4725	adornment at:aSymbol put:something.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4726	!
dce33f8bb806 intitial checkin ca parents: diff changeset	4727
dce33f8bb806 intitial checkin ca parents: diff changeset	4728	onEachPerform:aSelector withArgList:aList
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4729	"on each item perform selector with an argument derived from aList"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4730
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4731	aList isCollection ifTrue:[
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4732	items size >= aList size ifTrue:[
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4733	aList keysAndValuesDo:[:anIndex :anArg\|
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4734	(items at:anIndex) perform:aSelector with:anArg
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4735	]
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4736	]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4737	] ifFalse:[
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4738	self do:[:anItem\| anItem perform:aSelector with:aList ]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4739	]
dce33f8bb806 intitial checkin ca parents: diff changeset	4740	!
dce33f8bb806 intitial checkin ca parents: diff changeset	4741
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	4742	registerImageOnDevice:anImage
2269 e250e3adfc56 registration of images ca parents: 2255 diff changeset	4743
e250e3adfc56 registration of images ca parents: 2255 diff changeset	4744	anImage isNil ifTrue:[ ^ nil ].
e250e3adfc56 registration of images ca parents: 2255 diff changeset	4745	^ self class image:anImage onDevice:device
e250e3adfc56 registration of images ca parents: 2255 diff changeset	4746
e250e3adfc56 registration of images ca parents: 2255 diff changeset	4747	"/ \|image\|
e250e3adfc56 registration of images ca parents: 2255 diff changeset	4748	"/
e250e3adfc56 registration of images ca parents: 2255 diff changeset	4749	"/ (image := anImage) notNil ifTrue:[
e250e3adfc56 registration of images ca parents: 2255 diff changeset	4750	"/ image device ~~ device ifTrue:[
e250e3adfc56 registration of images ca parents: 2255 diff changeset	4751	"/ image := image copy.
e250e3adfc56 registration of images ca parents: 2255 diff changeset	4752	"/ ].
e250e3adfc56 registration of images ca parents: 2255 diff changeset	4753	"/ image := image onDevice:device.
e250e3adfc56 registration of images ca parents: 2255 diff changeset	4754	"/ image := image clearMaskedPixels.
e250e3adfc56 registration of images ca parents: 2255 diff changeset	4755	"/ ].
e250e3adfc56 registration of images ca parents: 2255 diff changeset	4756	"/ ^ image
2355 cd91ed4dc4c6 * empty log message * Claus Gittinger <cg@exept.de> parents: 2354 diff changeset	4757	!
cd91ed4dc4c6 * empty log message * Claus Gittinger <cg@exept.de> parents: 2354 diff changeset	4758
cd91ed4dc4c6 * empty log message * Claus Gittinger <cg@exept.de> parents: 2354 diff changeset	4759	superMenu:aSuperMenu
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4760	"set my supermenu from which i'am activated"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4761
2355 cd91ed4dc4c6 * empty log message * Claus Gittinger <cg@exept.de> parents: 2354 diff changeset	4762	superMenu := aSuperMenu.
cd91ed4dc4c6 * empty log message * Claus Gittinger <cg@exept.de> parents: 2354 diff changeset	4763
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	4764	superMenu notNil ifTrue:[
2355 cd91ed4dc4c6 * empty log message * Claus Gittinger <cg@exept.de> parents: 2354 diff changeset	4765	styleSheet := superMenu styleSheet.
cd91ed4dc4c6 * empty log message * Claus Gittinger <cg@exept.de> parents: 2354 diff changeset	4766	rightArrow := superMenu rightArrow.
cd91ed4dc4c6 * empty log message * Claus Gittinger <cg@exept.de> parents: 2354 diff changeset	4767	rightArrowShadow := superMenu rightArrowShadow.
cd91ed4dc4c6 * empty log message * Claus Gittinger <cg@exept.de> parents: 2354 diff changeset	4768	].
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4769	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	4770
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	4771	!MenuPanel methodsFor:'private-activation'!
687 23ce9888d76f bug fixes: ca parents: 681 diff changeset	4772
798 74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4773	activeMenu
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4774	"returns the current active menu or self (the top menu)"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4775
687 23ce9888d76f bug fixes: ca parents: 681 diff changeset	4776	^ lastActiveMenu ? self
23ce9888d76f bug fixes: ca parents: 681 diff changeset	4777
798 74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4778	"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	4779	!
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4780
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4781	activeMenu:aMenu
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4782	"set the current active menu"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4783
798 74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4784	lastActiveMenu := aMenu
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4785
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4786	"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	4787	!
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4788
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4789	becomesActiveMenu
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4790	"submenu becomes the active menu"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4791
3224 96aba140912d bugfix for mapTime ca parents: 3222 diff changeset	4792	mapTime isNil ifTrue:[
96aba140912d bugfix for mapTime ca parents: 3222 diff changeset	4793	"/ set the mapTime if not yet done
96aba140912d bugfix for mapTime ca parents: 3222 diff changeset	4794	mapTime := AbsoluteTime now.
96aba140912d bugfix for mapTime ca parents: 3222 diff changeset	4795	].
798 74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4796	self topMenu activeMenu:self.
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4797
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4798	"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	4799	!
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4800
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4801	clearLastActiveMenu
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4802	"reset the current active menu"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4803
798 74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4804	\|top\|
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4805
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4806	top := self topMenu.
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4807
2251 30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	4808	"/ prevFocusView notNil ifTrue:[
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	4809	"/ self windowGroup focusView:prevFocusView.
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	4810	"/ prevFocusView := nil.
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	4811	"/ ].
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	4812	"/
798 74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4813	top activeMenu == self ifTrue:[
2251 30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	4814	top activeMenu:nil
687 23ce9888d76f bug fixes: ca parents: 681 diff changeset	4815	]
23ce9888d76f bug fixes: ca parents: 681 diff changeset	4816
798 74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4817	"Created: / 27.2.1998 / 17:41:17 / cg"
687 23ce9888d76f bug fixes: ca parents: 681 diff changeset	4818	!
23ce9888d76f bug fixes: ca parents: 681 diff changeset	4819
23ce9888d76f bug fixes: ca parents: 681 diff changeset	4820	mapTime
3203 97d6c1d7b7d7 get timeStamp from buttonPress and buttonRelease event ca parents: 3192 diff changeset	4821	"get the time the menu was activated or nil"
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4822
687 23ce9888d76f bug fixes: ca parents: 681 diff changeset	4823	^ mapTime
798 74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4824
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	4825	"Modified: / 27.2.1998 / 17:41:18 / cg"
3203 97d6c1d7b7d7 get timeStamp from buttonPress and buttonRelease event ca parents: 3192 diff changeset	4826	!
97d6c1d7b7d7 get timeStamp from buttonPress and buttonRelease event ca parents: 3192 diff changeset	4827
97d6c1d7b7d7 get timeStamp from buttonPress and buttonRelease event ca parents: 3192 diff changeset	4828	mapTime:aTimestamp
97d6c1d7b7d7 get timeStamp from buttonPress and buttonRelease event ca parents: 3192 diff changeset	4829	"set the time the menu was activated"
97d6c1d7b7d7 get timeStamp from buttonPress and buttonRelease event ca parents: 3192 diff changeset	4830
97d6c1d7b7d7 get timeStamp from buttonPress and buttonRelease event ca parents: 3192 diff changeset	4831	mapTime := aTimestamp.
97d6c1d7b7d7 get timeStamp from buttonPress and buttonRelease event ca parents: 3192 diff changeset	4832
97d6c1d7b7d7 get timeStamp from buttonPress and buttonRelease event ca parents: 3192 diff changeset	4833	"Modified: / 27.2.1998 / 17:41:18 / cg"
687 23ce9888d76f bug fixes: ca parents: 681 diff changeset	4834	! !
23ce9888d76f bug fixes: ca parents: 681 diff changeset	4835
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	4836	!MenuPanel methodsFor:'private-scrolling'!
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4837
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4838	hasScrollerAt:aDirection
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4839	"returns true if a visible scroller at a direction exists"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4840
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4841	\|layout\|
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4842
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4843	self hasScrollers ifFalse:[
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4844	^ false
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4845	].
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4846
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4847	aDirection == #PREV ifTrue:[
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4848	layout := items first layout.
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4849
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4850	^ self verticalLayout ifTrue:[ layout top < margin]
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4851	ifFalse:[ layout left < margin]
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4852	].
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4853	layout := items last layout.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4854
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4855	^ self verticalLayout ifTrue:[ layout bottom > (height - margin)]
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4856	ifFalse:[ layout right > (width - margin)]
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4857	!
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4858
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4859	hasScrollers
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4860	"returns true if scrollers are needed"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4861
2018 2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4862	\|maxExtent first last isVert\|
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4863
2729 d28bc8243494 Do not set maxExtent (to the Screen size) in StandartSystemView. Stefan Vogel <sv@exept.de> parents: 2715 diff changeset	4864	(mustRearrange or:[items size <= 1]) ifTrue:[^ false].
2018 2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4865
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4866	isVert := self verticalLayout.
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4867
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4868	superView notNil ifTrue:[
2729 d28bc8243494 Do not set maxExtent (to the Screen size) in StandartSystemView. Stefan Vogel <sv@exept.de> parents: 2715 diff changeset	4869	((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	4870	or:[(last := items last layout) isNil]
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4871	) ifTrue:[
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4872	^ false
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4873	].
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4874	isVert ifTrue:[
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4875	^ first top < 0 or:[last bottom > height]
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4876	].
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4877	^ first left < 0 or:[last right > width]
2018 2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4878	].
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4879	maxExtent := self maxExtent.
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4880	isVert ifTrue:[
2729 d28bc8243494 Do not set maxExtent (to the Screen size) in StandartSystemView. Stefan Vogel <sv@exept.de> parents: 2715 diff changeset	4881	^ (height >= maxExtent y)
d28bc8243494 Do not set maxExtent (to the Screen size) in StandartSystemView. Stefan Vogel <sv@exept.de> parents: 2715 diff changeset	4882	].
d28bc8243494 Do not set maxExtent (to the Screen size) in StandartSystemView. Stefan Vogel <sv@exept.de> parents: 2715 diff changeset	4883	^ (width >= maxExtent x)
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4884	!
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4885
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4886	indexOfItemAtScroller:aDirection
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4887	"returns the index of the item under the scroller or 0"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4888
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4889	\|bounds min max layout\|
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4890
2860 300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	4891	self hasScrollers ifFalse:[ ^ 0 ].
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4892	bounds := self scrollerBoundsAt:aDirection.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4893
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4894	self verticalLayout ifTrue:[
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4895	min := bounds top.
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4896	max := bounds bottom.
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4897
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4898	items keysAndValuesDo:[:anIndex :anItem\|
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4899	anItem isVisible ifTrue:[
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4900	layout := anItem layout.
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4901
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4902	(layout top < max and:[layout bottom > min]) ifTrue:[
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4903	^ anIndex
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4904	].
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4905	].
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4906	].
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4907	] ifFalse:[
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4908	min := bounds left.
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4909	max := bounds right.
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4910
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4911	items keysAndValuesDo:[:anIndex :anItem\|
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4912	anItem isVisible ifTrue:[
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4913	layout := anItem layout.
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4914
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4915	(layout left < max and:[layout right > min]) ifTrue:[
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4916	^ anIndex
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4917	].
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4918	].
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4919	]
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4920	].
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4921	^ 0
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4922	!
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4923
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4924	makeItemVisible:anItem
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4925	"make an item visible"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	4926
2018 2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4927	\|boundsPREV boundsNEXT delta layout index scr0 scr1 windowSz scrSz doScroll
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4928	isVertical boundsMin layoutMin boundsMax layoutMax dltOrg
2042 cc2141b4117f checkin from browser Claus Gittinger <cg@exept.de> parents: 2041 diff changeset	4929	inv1 inv2\|
2018 2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4930
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4931	( anItem notNil
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4932	and:[self hasScrollers
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4933	and:[(layout := anItem layout) notNil]]
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4934	) ifFalse:[
2659 3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4935	^ self
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4936	].
2018 2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4937	index := self indexOfItem:anItem.
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4938	boundsPREV := self scrollerBoundsAt:#PREV.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4939	boundsNEXT := self scrollerBoundsAt:#NEXT.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4940
2018 2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4941	isVertical := self verticalLayout.
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4942
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4943	isVertical ifTrue:[
2659 3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4944	boundsMin := boundsPREV bottom.
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4945	boundsMax := boundsNEXT top.
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4946	layoutMin := layout top.
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4947	layoutMax := layout bottom.
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4948	windowSz := height.
2018 2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4949	] ifFalse:[
2659 3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4950	boundsMin := boundsPREV right.
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4951	boundsMax := boundsNEXT left.
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4952	layoutMin := layout left.
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4953	layoutMax := layout right.
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4954	windowSz := width.
2018 2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4955	].
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4956
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4957
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4958	layoutMin < boundsMin ifTrue:[
2659 3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4959	layoutMin >= 0 ifTrue:[
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4960	^ self
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4961	].
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4962	"/ test whether is first visible item
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4963	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	4964
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4965	index == 0 ifTrue:[ scr0 := margin ]
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4966	ifFalse:[ scr0 := boundsMin ].
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4967
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4968	delta := layoutMin negated + scr0.
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4969	] ifFalse:[
2659 3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4970	layoutMax > boundsMax ifFalse:[
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4971	^ self
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4972	].
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4973	"/ test whether is last visible item
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4974	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	4975
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4976	index == 0 ifTrue:[ scr0 := windowSz - margin ]
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4977	ifFalse:[ scr0 := boundsMax ].
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4978
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4979	delta := scr0 - layoutMax.
2018 2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4980	].
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4981	delta == 0 ifTrue:[ ^ self ].
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4982
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4983	doScroll := false.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4984
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4985	shown ifTrue:[
2659 3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4986	delta abs < (windowSz / 2) ifTrue:[
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4987	doScroll := true.
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4988	self repairDamage
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4989	]
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4990	].
2018 2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4991	isVertical ifTrue:[ dltOrg := 0@delta ] ifFalse:[dltOrg := delta@0].
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4992	items do:[:el\| el moveBy:dltOrg ].
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4993
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4994	doScroll ifFalse:[
2659 3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4995	self invalidate.
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	4996	^ self
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4997	].
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	4998
2018 2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	4999	windowSz := windowSz - margin - margin.
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	5000
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	5001	scr0 := boundsMin.
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	5002	scr1 := scr0 + delta abs.
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	5003	scrSz := boundsMax - scr1.
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	5004
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	5005	delta < 0 ifTrue:[
2659 3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	5006	isVertical ifTrue:[
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	5007	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	5008	width:windowSz height:scrSz async:false.
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	5009
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	5010	scr1 := scr0 + scrSz.
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	5011	inv2 := (margin @ scr1) extent:(windowSz @ (height - scr1 - margin)).
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	5012	"/ 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	5013	] ifFalse:[
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	5014	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	5015	width:scrSz height:windowSz async:false.
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	5016
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	5017	scr1 := scr0 + scrSz.
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	5018	inv2 := (scr1 @ margin) extent:((width - scr1 - margin) @ windowSz).
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	5019	"/ 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	5020	].
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	5021	inv1 := boundsPREV.
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	5022	] ifFalse:[
2659 3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	5023	isVertical ifTrue:[
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	5024	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	5025	width:windowSz height:scrSz async:false.
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	5026
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	5027	inv2 := (margin @ margin) extent:(windowSz @ (scr1 - margin)).
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	5028	"/ 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	5029	] ifFalse:[
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	5030	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	5031	width:scrSz height:windowSz async:false.
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	5032
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	5033	inv2 := (margin @ margin) extent:(scr1 - margin) @ windowSz.
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	5034	"/ 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	5035	].
3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	5036	inv1 := boundsNEXT.
2042 cc2141b4117f checkin from browser Claus Gittinger <cg@exept.de> parents: 2041 diff changeset	5037	].
cc2141b4117f checkin from browser Claus Gittinger <cg@exept.de> parents: 2041 diff changeset	5038	self invalidate:inv1.
cc2141b4117f checkin from browser Claus Gittinger <cg@exept.de> parents: 2041 diff changeset	5039	self invalidate:inv2.
2048 ba472f3f46c7 code cleanup Claus Gittinger <cg@exept.de> parents: 2047 diff changeset	5040
ba472f3f46c7 code cleanup Claus Gittinger <cg@exept.de> parents: 2047 diff changeset	5041	"Modified: / 13.11.2001 / 20:26:42 / cg"
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	5042	!
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	5043
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5044	scrollActivity
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5045	"returns the one and only scrollActivity - data holder
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	5046	for a menu and all contained submenus"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	5047
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5048	superMenu notNil ifTrue:[
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	5049	^ superMenu scrollActivity
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5050	].
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5051	scrollActivity isNil ifTrue:[
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	5052	scrollActivity := ScrollActivity new.
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5053	].
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5054	^ scrollActivity
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5055	!
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5056
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	5057	scrollerBoundsAt:aDirection
2860 300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	5058	"returns the bounds of the scroller at a direction"
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	5059
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	5060	\|y x w h inset\|
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	5061
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	5062	inset := 0.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	5063	x := y := inset.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	5064	w := h := 15.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	5065
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	5066	self verticalLayout ifTrue:[
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	5067	aDirection == #NEXT ifTrue:[
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	5068	y := height - h - inset.
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	5069	].
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	5070	w := width - inset - inset.
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	5071	] ifFalse:[
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	5072	aDirection == #NEXT ifTrue:[
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	5073	x := width - w - inset.
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	5074	].
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	5075	h := height - inset - inset.
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	5076	].
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	5077	^ Rectangle left:x top:y width:w height:h
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	5078	!
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	5079
2046 012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	5080	scrollerDirectionAtPoint:aPoint
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	5081	"returns the scroller-direction at aPoint, or nil"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	5082
2046 012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	5083	self hasScrollers ifTrue:[
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	5084	#( PREV NEXT ) do:[:aDirection\| \|bounds\|
2860 300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	5085	bounds := self scrollerBoundsAt:aDirection.
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	5086
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	5087	(bounds containsPoint:aPoint) ifTrue:[
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	5088	^ (self hasScrollerAt:aDirection) ifTrue:[aDirection] ifFalse:[nil]
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	5089	]
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	5090	]
2046 012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	5091	].
012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	5092	^ nil
012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	5093
012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	5094	"Created: / 13.11.2001 / 14:13:16 / cg"
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	5095	! !
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	5096
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5097	!MenuPanel methodsFor:'private-searching'!
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5098
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	5099	detectGrabMenu
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	5100	"returns the menu which is responsible for the grap; the last opened menu"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	5101
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	5102	\|subMenu\|
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	5103
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	5104	selection notNil ifTrue:[
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	5105	(subMenu := selection visibleSubmenu) notNil ifTrue:[
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	5106	^ subMenu detectGrabMenu
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	5107	]
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	5108	].
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	5109	^ self
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	5110	!
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	5111
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	5112	detectMenuAtGrabPoint:aGrabPoint
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	5113	"returns the menu which contains the grab-point"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	5114
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	5115	\|dstMenu dstPoint firstMenu\|
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	5116
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	5117	dstPoint := self translateGrabPoint:aGrabPoint.
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	5118
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	5119	((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	5120	firstMenu := self.
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	5121	].
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	5122
1786 f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	5123	(selection isNil or:[(dstMenu := selection visibleSubmenu) isNil]) ifTrue:[
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	5124	^ firstMenu
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	5125	].
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	5126	dstMenu := dstMenu detectMenuAtGrabPoint:aGrabPoint.
2059 c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	5127	^ dstMenu ? firstMenu
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	5128	!
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	5129
1767 e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	5130	detectViewAtX:x y:y in:aTopView
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	5131	"detect view at x@y"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	5132
2020 1f1868eba475 extracted common code to detectViewAt:aPoint. Claus Gittinger <cg@exept.de> parents: 2018 diff changeset	5133	^ aTopView detectViewAt:(x@y).
1f1868eba475 extracted common code to detectViewAt:aPoint. Claus Gittinger <cg@exept.de> parents: 2018 diff changeset	5134
1f1868eba475 extracted common code to detectViewAt:aPoint. Claus Gittinger <cg@exept.de> parents: 2018 diff changeset	5135	"/ 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	5136	"/
1f1868eba475 extracted common code to detectViewAt:aPoint. Claus Gittinger <cg@exept.de> parents: 2018 diff changeset	5137	"/ \|p subViews\|
1f1868eba475 extracted common code to detectViewAt:aPoint. Claus Gittinger <cg@exept.de> parents: 2018 diff changeset	5138	"/
1f1868eba475 extracted common code to detectViewAt:aPoint. Claus Gittinger <cg@exept.de> parents: 2018 diff changeset	5139	"/ (subViews := aTopView subViews) notNil ifTrue:[
1f1868eba475 extracted common code to detectViewAt:aPoint. Claus Gittinger <cg@exept.de> parents: 2018 diff changeset	5140	"/ subViews do:[:v\| \|p\|
1f1868eba475 extracted common code to detectViewAt:aPoint. Claus Gittinger <cg@exept.de> parents: 2018 diff changeset	5141	"/ v shown ifTrue:[
1f1868eba475 extracted common code to detectViewAt:aPoint. Claus Gittinger <cg@exept.de> parents: 2018 diff changeset	5142	"/ ( (x between:(v left) and:(v right))
1f1868eba475 extracted common code to detectViewAt:aPoint. Claus Gittinger <cg@exept.de> parents: 2018 diff changeset	5143	"/ and:[y between:(v top) and:(v bottom)]
1f1868eba475 extracted common code to detectViewAt:aPoint. Claus Gittinger <cg@exept.de> parents: 2018 diff changeset	5144	"/ ) ifTrue:[
1f1868eba475 extracted common code to detectViewAt:aPoint. Claus Gittinger <cg@exept.de> parents: 2018 diff changeset	5145	"/ 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	5146	"/ ^ 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	5147	"/ ]
1f1868eba475 extracted common code to detectViewAt:aPoint. Claus Gittinger <cg@exept.de> parents: 2018 diff changeset	5148	"/ ]
1f1868eba475 extracted common code to detectViewAt:aPoint. Claus Gittinger <cg@exept.de> parents: 2018 diff changeset	5149	"/ ]
1f1868eba475 extracted common code to detectViewAt:aPoint. Claus Gittinger <cg@exept.de> parents: 2018 diff changeset	5150	"/ ].
1f1868eba475 extracted common code to detectViewAt:aPoint. Claus Gittinger <cg@exept.de> parents: 2018 diff changeset	5151	"/ ^ aTopView
1f1868eba475 extracted common code to detectViewAt:aPoint. Claus Gittinger <cg@exept.de> parents: 2018 diff changeset	5152
1f1868eba475 extracted common code to detectViewAt:aPoint. Claus Gittinger <cg@exept.de> parents: 2018 diff changeset	5153	"Modified: / 10.10.2001 / 13:45:56 / cg"
1767 e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	5154	!
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	5155
2347 9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	5156	itemAt:stringOrNumberOrPoint
9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	5157	"returns item assigned to an index, nameKey, textLabel or value if symbol.
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	5158	If no item match nil is returned."
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	5159
2347 9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	5160	\|idx\|
9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	5161
9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	5162	stringOrNumberOrPoint isPoint ifTrue:[
9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	5163	^ self itemAtPoint:stringOrNumberOrPoint
9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	5164	].
9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	5165	idx := self indexOf:stringOrNumberOrPoint.
9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	5166	(idx > 0 and:[idx <= items size]) ifTrue:[ ^ items at:idx ].
2046 012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	5167	^ nil
2347 9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	5168	!
9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	5169
9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	5170	itemAtPoint:aPoint
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	5171	"returns the item at aPoint or nil if none detected"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	5172
2347 9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	5173	\|x y\|
9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	5174
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	5175	items notNil ifTrue:[
2347 9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	5176	x := aPoint x.
9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	5177	y := aPoint y.
9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	5178	^ items detect:[:el\| el containsPointX:x y:y] ifNone:nil
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	5179	].
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	5180	^ nil
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5181	!
dce33f8bb806 intitial checkin ca parents: diff changeset	5182
2048 ba472f3f46c7 code cleanup Claus Gittinger <cg@exept.de> parents: 2047 diff changeset	5183	superMenuAtPoint:aPoint
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	5184	"returns the superMenu which contains aPoint, or nil if none detected"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	5185
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	5186	\|grabPoint superMenu\|
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	5187
2048 ba472f3f46c7 code cleanup Claus Gittinger <cg@exept.de> parents: 2047 diff changeset	5188	(self containsPoint:aPoint) ifTrue:[
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	5189	^ self
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	5190	].
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	5191
2048 ba472f3f46c7 code cleanup Claus Gittinger <cg@exept.de> parents: 2047 diff changeset	5192	grabPoint := aPoint - (self translateGrabPoint:0).
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	5193	superMenu := self.
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	5194
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	5195	[ (superMenu := superMenu superMenu) notNil ] whileTrue:[
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	5196	(superMenu containsPoint:(superMenu translateGrabPoint:grabPoint)) ifTrue:[
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	5197	^ superMenu
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	5198	]
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	5199	].
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	5200	^ nil
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	5201
2048 ba472f3f46c7 code cleanup Claus Gittinger <cg@exept.de> parents: 2047 diff changeset	5202	"Created: / 13.11.2001 / 20:22:53 / cg"
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5203	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	5204
dce33f8bb806 intitial checkin ca parents: diff changeset	5205	!MenuPanel methodsFor:'queries'!
dce33f8bb806 intitial checkin ca parents: diff changeset	5206
2003 732fbaf5864f avoid changing the level after realization (to avoid confusing the shadow) Claus Gittinger <cg@exept.de> parents: 2000 diff changeset	5207	container:aView
732fbaf5864f avoid changing the level after realization (to avoid confusing the shadow) Claus Gittinger <cg@exept.de> parents: 2000 diff changeset	5208	super container:aView.
732fbaf5864f avoid changing the level after realization (to avoid confusing the shadow) Claus Gittinger <cg@exept.de> parents: 2000 diff changeset	5209	aView notNil ifTrue:[
3147 b7c2db746f84 conditionalRight fix Claus Gittinger <cg@exept.de> parents: 3144 diff changeset	5210	"/ I am no longer a popUpView
b7c2db746f84 conditionalRight fix Claus Gittinger <cg@exept.de> parents: 3144 diff changeset	5211	self updateLevelAndBorder
2003 732fbaf5864f avoid changing the level after realization (to avoid confusing the shadow) Claus Gittinger <cg@exept.de> parents: 2000 diff changeset	5212	].
732fbaf5864f avoid changing the level after realization (to avoid confusing the shadow) Claus Gittinger <cg@exept.de> parents: 2000 diff changeset	5213	!
732fbaf5864f avoid changing the level after realization (to avoid confusing the shadow) Claus Gittinger <cg@exept.de> parents: 2000 diff changeset	5214
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5215	containsPoint:aPoint
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	5216	"returns true if the argument, aPoint is contained by the view"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	5217
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5218	^ self containsPointX:(aPoint x) y:(aPoint y)
dce33f8bb806 intitial checkin ca parents: diff changeset	5219	!
dce33f8bb806 intitial checkin ca parents: diff changeset	5220
dce33f8bb806 intitial checkin ca parents: diff changeset	5221	containsPointX:x y:y
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	5222	"returns true if point is contained by the view"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	5223
708 245b1aa06151 checkin from browser Claus Gittinger <cg@exept.de> parents: 706 diff changeset	5224	^ (x between:0 and:width) and:[y between:0 and:height]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5225	!
dce33f8bb806 intitial checkin ca parents: diff changeset	5226
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	5227	hasGroupDividerAt:anIndex
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	5228	"returns true if a divider is defined at an index"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	5229
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5230	\|i\|
dce33f8bb806 intitial checkin ca parents: diff changeset	5231
dce33f8bb806 intitial checkin ca parents: diff changeset	5232	groupSizes size ~~ 0 ifTrue:[
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	5233	i := 0.
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	5234
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	5235	groupSizes do:[:t\|
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	5236	(i := i + t) == anIndex ifTrue:[
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	5237	^ true
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	5238	]
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	5239	]
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	5240	].
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	5241	^ false
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5242	!
dce33f8bb806 intitial checkin ca parents: diff changeset	5243
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	5244	hasGroupDividers
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	5245	"returns true if any group divider exists"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	5246
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	5247	^ (items size ~~ 0 and:[groupSizes size ~~ 0])
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5248	!
dce33f8bb806 intitial checkin ca parents: diff changeset	5249
3457 6f19c84f9ff8 Sonce MenuPanel is used as a TopView - without inheriting from TopView - Stefan Vogel <sv@exept.de> parents: 3454 diff changeset	5250	isActive
6f19c84f9ff8 Sonce MenuPanel is used as a TopView - without inheriting from TopView - Stefan Vogel <sv@exept.de> parents: 3454 diff changeset	5251	"true, if I have the focus (w.r.t the windowing system);
6f19c84f9ff8 Sonce MenuPanel is used as a TopView - without inheriting from TopView - Stefan Vogel <sv@exept.de> parents: 3454 diff changeset	5252	i.e. if one of my subViews actually has the real focus.
6f19c84f9ff8 Sonce MenuPanel is used as a TopView - without inheriting from TopView - Stefan Vogel <sv@exept.de> parents: 3454 diff changeset	5253	With click-to-focus behavior, this is obviously the current application.
6f19c84f9ff8 Sonce MenuPanel is used as a TopView - without inheriting from TopView - Stefan Vogel <sv@exept.de> parents: 3454 diff changeset	5254	Use this query with caution, for example, to suppress tooltips for inactive apps.
6f19c84f9ff8 Sonce MenuPanel is used as a TopView - without inheriting from TopView - Stefan Vogel <sv@exept.de> parents: 3454 diff changeset	5255
6f19c84f9ff8 Sonce MenuPanel is used as a TopView - without inheriting from TopView - Stefan Vogel <sv@exept.de> parents: 3454 diff changeset	5256	This should be only in TowView, but apparently MenuPanel is used as a TopView"
6f19c84f9ff8 Sonce MenuPanel is used as a TopView - without inheriting from TopView - Stefan Vogel <sv@exept.de> parents: 3454 diff changeset	5257
6f19c84f9ff8 Sonce MenuPanel is used as a TopView - without inheriting from TopView - Stefan Vogel <sv@exept.de> parents: 3454 diff changeset	5258	^ windowGroup notNil and:[windowGroup anyViewHasFocus]
6f19c84f9ff8 Sonce MenuPanel is used as a TopView - without inheriting from TopView - Stefan Vogel <sv@exept.de> parents: 3454 diff changeset	5259	!
6f19c84f9ff8 Sonce MenuPanel is used as a TopView - without inheriting from TopView - Stefan Vogel <sv@exept.de> parents: 3454 diff changeset	5260
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	5261	isFitPanel
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	5262	"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	5263	be fit to the extent of its superView;
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	5264	NOT SUPPORTED"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	5265
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	5266	^ false
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	5267	!
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	5268
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5269	isPopUpView
dce33f8bb806 intitial checkin ca parents: diff changeset	5270	"return true if view is a popup view; without decoration
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	5271	and popUp to top immediately"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	5272
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5273	^ superView isNil
dce33f8bb806 intitial checkin ca parents: diff changeset	5274	!
dce33f8bb806 intitial checkin ca parents: diff changeset	5275
dce33f8bb806 intitial checkin ca parents: diff changeset	5276	isVerticalLayout
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	5277	"returns true if vertical layout otherwise false( horizontal layout )"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	5278
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	5279	^ self verticalLayout
416 c05874084d4c implement ca parents: 407 diff changeset	5280	!
c05874084d4c implement ca parents: 407 diff changeset	5281
1793 f76529768dd6 keyPress:... check for wrapped view ca parents: 1791 diff changeset	5282	isViewWrapper
2214 8eefad87cf62 drawing delayed menu indicators... first try not yet finished ca parents: 2199 diff changeset	5283	^ items size == 0 and:[subViews size ~~ 0]
1793 f76529768dd6 keyPress:... check for wrapped view ca parents: 1791 diff changeset	5284	!
f76529768dd6 keyPress:... check for wrapped view ca parents: 1791 diff changeset	5285
416 c05874084d4c implement ca parents: 407 diff changeset	5286	type
428 5cf5fb7ecf39 type ca parents: 427 diff changeset	5287	^ nil.
416 c05874084d4c implement ca parents: 407 diff changeset	5288
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5289	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	5290
dce33f8bb806 intitial checkin ca parents: diff changeset	5291	!MenuPanel methodsFor:'selection'!
dce33f8bb806 intitial checkin ca parents: diff changeset	5292
dce33f8bb806 intitial checkin ca parents: diff changeset	5293	hasSelection
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	5294	"returns true if a selection exists"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	5295
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5296	^ self selection notNil
dce33f8bb806 intitial checkin ca parents: diff changeset	5297	!
dce33f8bb806 intitial checkin ca parents: diff changeset	5298
2199 61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	5299	openDelayed:anItem
3187 f97f27a9d496 focus handling ca parents: 3158 diff changeset	5300	self openDelayed:anItem afterSeconds:0.5.
f97f27a9d496 focus handling ca parents: 3158 diff changeset	5301	!
f97f27a9d496 focus handling ca parents: 3158 diff changeset	5302
f97f27a9d496 focus handling ca parents: 3158 diff changeset	5303	openDelayed:anItem afterSeconds:seconds
2199 61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	5304
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	5305	superMenu notNil ifTrue:[
3187 f97f27a9d496 focus handling ca parents: 3158 diff changeset	5306	superMenu openDelayed:anItem afterSeconds:seconds.
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	5307	^ self
975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	5308	].
975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	5309	openDelayedMenuBlock notNil ifTrue:[
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	5310	Processor removeTimedBlock:openDelayedMenuBlock.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	5311	openDelayedMenuBlock := nil.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	5312	].
3187 f97f27a9d496 focus handling ca parents: 3158 diff changeset	5313	(anItem notNil and:[anItem hasSubmenu]) ifFalse:[
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	5314	openDelayedMenuBlock := nil.
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	5315	^ self
2253 2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	5316	].
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	5317	openDelayedMenuBlock := [
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	5318	openDelayedMenuBlock := nil.
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	5319	anItem openDelayedSubmenu
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	5320	].
2f6fa29b1f99 starting removing #menuAdornmentAt: ca parents: 2251 diff changeset	5321
3187 f97f27a9d496 focus handling ca parents: 3158 diff changeset	5322	Processor addTimedBlock:openDelayedMenuBlock afterSeconds:seconds.
2199 61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	5323	!
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	5324
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5325	selection
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	5326	"returns current selected item or nil"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	5327
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5328	^ selection
dce33f8bb806 intitial checkin ca parents: diff changeset	5329	!
dce33f8bb806 intitial checkin ca parents: diff changeset	5330
dce33f8bb806 intitial checkin ca parents: diff changeset	5331	selection:anItemOrNil
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	5332	"change selection to an item or nil
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	5333	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	5334
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	5335	\|openMenu openOnSelect submenu item\|
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	5336
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	5337	selection == anItemOrNil ifTrue:[^ self].
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	5338
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	5339	(anItemOrNil isNil or:[anItemOrNil hasSubmenu not]) ifTrue:[
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	5340	self selection:anItemOrNil openMenu:false.
2347 9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	5341	^ self
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	5342	].
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	5343
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	5344	openMenu := self isPopUpView not.
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	5345	openOnSelect := styleSheet at:#'menu.openOnSelect' default:false.
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	5346
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	5347	openMenu ifFalse:[
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	5348	openMenu := openOnSelect.
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	5349	].
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	5350	self selection:anItemOrNil openMenu:openMenu.
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	5351
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	5352	openOnSelect ifFalse:[
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	5353	"/ select first item in submenu
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	5354
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	5355	submenu := anItemOrNil currentSubmenu.
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	5356
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	5357	submenu notNil ifTrue:[
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	5358	item := submenu itemAt:1.
2347 9c22beda83cd hideOnRelease now from styleSheet; Claus Gittinger <cg@exept.de> parents: 2345 diff changeset	5359	(item notNil and:[item hasSubmenu not]) ifTrue:[
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	5360	submenu selection:item openMenu:false
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	5361	]
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	5362	].
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	5363	].
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	5364	!
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	5365
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	5366	selection:anItemOrNil openMenu:openMenu
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	5367	"change selection to an item or nil"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	5368
2251 30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	5369	\|helpListener oldSelect\|
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	5370
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	5371	anItemOrNil == selection ifTrue:[
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	5372	^ self
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	5373	].
2199 61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	5374	self openDelayed:nil.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5375
2251 30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	5376	oldSelect := selection.
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	5377	selection := nil.
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	5378
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	5379	anItemOrNil notNil ifTrue:[
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	5380	self makeItemVisible:anItemOrNil.
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	5381	anItemOrNil canSelect ifTrue:[
2251 30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	5382	selection := anItemOrNil
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	5383	] ifFalse:[
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	5384	oldSelect isNil ifTrue:[^ self].
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	5385	].
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	5386	].
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	5387	oldSelect notNil ifTrue:[
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	5388	"/ clear current selection
2251 30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	5389	oldSelect isSelected:false.
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	5390	].
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	5391	selection isNil ifTrue:[^ self].
2251 30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	5392
3411 a7a58a10cdcd extra menu-indicator click behavior Claus Gittinger <cg@exept.de> parents: 3403 diff changeset	5393	"/ selection == enteredItem ifTrue:[
a7a58a10cdcd extra menu-indicator click behavior Claus Gittinger <cg@exept.de> parents: 3403 diff changeset	5394	"/ enteredItem := nil
a7a58a10cdcd extra menu-indicator click behavior Claus Gittinger <cg@exept.de> parents: 3403 diff changeset	5395	"/ ] ifFalse:[
a7a58a10cdcd extra menu-indicator click behavior Claus Gittinger <cg@exept.de> parents: 3403 diff changeset	5396	"/ self pointerEntersItem:nil
a7a58a10cdcd extra menu-indicator click behavior Claus Gittinger <cg@exept.de> parents: 3403 diff changeset	5397	"/ ].
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	5398	ActiveHelp isActive ifTrue:[
2251 30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	5399	helpListener := ActiveHelp currentHelpListener.
30490c3f2173 bug fixes with focus handling ca parents: 2249 diff changeset	5400	helpListener initiateHelpFor:self at:nil now:true.
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	5401	].
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	5402	shown ifTrue:[
3411 a7a58a10cdcd extra menu-indicator click behavior Claus Gittinger <cg@exept.de> parents: 3403 diff changeset	5403	"/ self rearrangeItems.
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	5404
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	5405	openMenu ifFalse:[
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	5406	selection invalidate.
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	5407	]
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	5408	].
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	5409	openMenu ifTrue:[
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	5410	selection isSelected:true.
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	5411	].
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5412	!
dce33f8bb806 intitial checkin ca parents: diff changeset	5413
dce33f8bb806 intitial checkin ca parents: diff changeset	5414	selectionIndex
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	5415	"returns index of current selection or 0"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	5416
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5417	\|item\|
dce33f8bb806 intitial checkin ca parents: diff changeset	5418
dce33f8bb806 intitial checkin ca parents: diff changeset	5419	(item := self selection) notNil ifTrue:[
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	5420	^ self findFirst:[:el\| el == item ]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5421	].
dce33f8bb806 intitial checkin ca parents: diff changeset	5422	^ 0
dce33f8bb806 intitial checkin ca parents: diff changeset	5423	!
dce33f8bb806 intitial checkin ca parents: diff changeset	5424
dce33f8bb806 intitial checkin ca parents: diff changeset	5425	selectionIndex:anIndex
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	5426	"set selection at an index"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	5427
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5428	self selection:(self itemAt:anIndex)
dce33f8bb806 intitial checkin ca parents: diff changeset	5429	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	5430
1791 bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	5431	!MenuPanel methodsFor:'translation'!
bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	5432
bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	5433	translateGrabPoint:aGrabPoint
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	5434	"translate the grab point into self"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	5435
1791 bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	5436	superMenu isNil ifTrue:[
2936 723062b99960 * empty log message * Claus Gittinger <cg@exept.de> parents: 2934 diff changeset	5437	"I am the grabView"
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	5438	aGrabPoint isNumber ifTrue:[^ aGrabPoint @ aGrabPoint].
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	5439	^ aGrabPoint
1791 bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	5440	].
bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	5441
bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	5442	relativeGrabOrigin isNil ifTrue:[
2936 723062b99960 * empty log message * Claus Gittinger <cg@exept.de> parents: 2934 diff changeset	5443	relativeGrabOrigin := self topMenu translatePoint:0 to:self.
723062b99960 * empty log message * Claus Gittinger <cg@exept.de> parents: 2934 diff changeset	5444	relativeGrabOrigin isNil ifTrue:[
723062b99960 * empty log message * Claus Gittinger <cg@exept.de> parents: 2934 diff changeset	5445	"I am the grabView"
723062b99960 * empty log message * Claus Gittinger <cg@exept.de> parents: 2934 diff changeset	5446	aGrabPoint isNumber ifTrue:[^ aGrabPoint @ aGrabPoint].
723062b99960 * empty log message * Claus Gittinger <cg@exept.de> parents: 2934 diff changeset	5447	^ aGrabPoint
723062b99960 * empty log message * Claus Gittinger <cg@exept.de> parents: 2934 diff changeset	5448	].
1791 bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	5449	].
bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	5450	^ relativeGrabOrigin + aGrabPoint
bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	5451	!
bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	5452
bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	5453	translateMenuPoint:aPoint toMenu:aMenu
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	5454	"translate a point into another menu its point"
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	5455
1791 bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	5456	\|grapPoint\|
bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	5457
bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	5458	aMenu == self ifTrue:[
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	5459	^ aPoint
1791 bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	5460	].
bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	5461	grapPoint := aPoint - (self translateGrabPoint:0).
bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	5462
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	5463	^ aMenu translateGrabPoint:grapPoint
1791 bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	5464	!
bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	5465
2020 1f1868eba475 extracted common code to detectViewAt:aPoint. Claus Gittinger <cg@exept.de> parents: 2018 diff changeset	5466	translatePoint:aPoint to:anotherWindowOrNilForScreen
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	5467	"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	5468
1f1868eba475 extracted common code to detectViewAt:aPoint. Claus Gittinger <cg@exept.de> parents: 2018 diff changeset	5469	^ device
2715 11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	5470	translatePoint:aPoint asPoint
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	5471	fromView:self
11d4f65d42d2 categories Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	5472	toView:anotherWindowOrNilForScreen
2020 1f1868eba475 extracted common code to detectViewAt:aPoint. Claus Gittinger <cg@exept.de> parents: 2018 diff changeset	5473
1f1868eba475 extracted common code to detectViewAt:aPoint. Claus Gittinger <cg@exept.de> parents: 2018 diff changeset	5474	"Modified: / 10.10.2001 / 14:11:47 / cg"
1791 bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	5475	! !
bd26612c387a optimization: no longer use #translatePoint:from:to: ca parents: 1790 diff changeset	5476
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5477	!MenuPanel::Item class methodsFor:'accessing'!
dce33f8bb806 intitial checkin ca parents: diff changeset	5478
689 aa13913add84 clear lastActiveMenu when closed ca parents: 687 diff changeset	5479	horizontalInset
aa13913add84 clear lastActiveMenu when closed ca parents: 687 diff changeset	5480	^ HorizontalInset
aa13913add84 clear lastActiveMenu when closed ca parents: 687 diff changeset	5481	!
aa13913add84 clear lastActiveMenu when closed ca parents: 687 diff changeset	5482
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5483	labelRightOffset
dce33f8bb806 intitial checkin ca parents: diff changeset	5484	^ LabelRightOffset
dce33f8bb806 intitial checkin ca parents: diff changeset	5485	!
dce33f8bb806 intitial checkin ca parents: diff changeset	5486
689 aa13913add84 clear lastActiveMenu when closed ca parents: 687 diff changeset	5487	verticalInset
aa13913add84 clear lastActiveMenu when closed ca parents: 687 diff changeset	5488	^ VerticalInset
1765 a003f417d6ad fix for vertical spacing Claus Gittinger <cg@exept.de> parents: 1762 diff changeset	5489	!
a003f417d6ad fix for vertical spacing Claus Gittinger <cg@exept.de> parents: 1762 diff changeset	5490
a003f417d6ad fix for vertical spacing Claus Gittinger <cg@exept.de> parents: 1762 diff changeset	5491	verticalPopUpInset
a003f417d6ad fix for vertical spacing Claus Gittinger <cg@exept.de> parents: 1762 diff changeset	5492	^ VerticalPopUpInset
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5493	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	5494
616 a6157b083830 support of different styles ca parents: 608 diff changeset	5495	!MenuPanel::Item class methodsFor:'defaults'!
a6157b083830 support of different styles ca parents: 608 diff changeset	5496
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5497	halfSeparatorSize
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5498	"returns the size of a space-separator"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5499
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5500	^ 5
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5501	!
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	5502
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	5503	separatorSize
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5504	"returns the size of a separator"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5505
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	5506	^ 10
616 a6157b083830 support of different styles ca parents: 608 diff changeset	5507	!
a6157b083830 support of different styles ca parents: 608 diff changeset	5508
a6157b083830 support of different styles ca parents: 608 diff changeset	5509	updateStyleCache
2777 56bb352f6b91 * empty log message * Claus Gittinger <cg@exept.de> parents: 2772 diff changeset	5510	"extract values from the styleSheet and cache them in class variables"
56bb352f6b91 * empty log message * Claus Gittinger <cg@exept.de> parents: 2772 diff changeset	5511
1765 a003f417d6ad fix for vertical spacing Claus Gittinger <cg@exept.de> parents: 1762 diff changeset	5512	<resource: #style (#'menuPanel.verticalInset')>
a003f417d6ad fix for vertical spacing Claus Gittinger <cg@exept.de> parents: 1762 diff changeset	5513
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	5514	HorizontalInset := 2.
1765 a003f417d6ad fix for vertical spacing Claus Gittinger <cg@exept.de> parents: 1762 diff changeset	5515	VerticalInset := MenuPanel styleSheet at:#'menuPanel.verticalInset' default:2.
a003f417d6ad fix for vertical spacing Claus Gittinger <cg@exept.de> parents: 1762 diff changeset	5516	VerticalPopUpInset := 2.
727 3ba54333342a button style from style sheet tz parents: 723 diff changeset	5517
3ba54333342a button style from style sheet tz parents: 723 diff changeset	5518	HorizontalButtonInset := 3.
3ba54333342a button style from style sheet tz parents: 723 diff changeset	5519	VerticalButtonInset := 3.
3ba54333342a button style from style sheet tz parents: 723 diff changeset	5520
681 62c7cdaca188 extra default inset values for button behaviour added tz parents: 680 diff changeset	5521	LabelRightOffset := 15.
1765 a003f417d6ad fix for vertical spacing Claus Gittinger <cg@exept.de> parents: 1762 diff changeset	5522
2777 56bb352f6b91 * empty log message * Claus Gittinger <cg@exept.de> parents: 2772 diff changeset	5523	"
56bb352f6b91 * empty log message * Claus Gittinger <cg@exept.de> parents: 2772 diff changeset	5524	self updateStyleCache
56bb352f6b91 * empty log message * Claus Gittinger <cg@exept.de> parents: 2772 diff changeset	5525	"
1124 4a7fec62a572 smaller checkbox. Claus Gittinger <cg@exept.de> parents: 1117 diff changeset	5526	! !
1078 3adf74275ebd support choice for buttons ca parents: 1076 diff changeset	5527
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5528	!MenuPanel::Item class methodsFor:'instance creation'!
dce33f8bb806 intitial checkin ca parents: diff changeset	5529
dce33f8bb806 intitial checkin ca parents: diff changeset	5530	in:aSuperMenu
dce33f8bb806 intitial checkin ca parents: diff changeset	5531	^ self in:aSuperMenu label:nil
dce33f8bb806 intitial checkin ca parents: diff changeset	5532	!
dce33f8bb806 intitial checkin ca parents: diff changeset	5533
dce33f8bb806 intitial checkin ca parents: diff changeset	5534	in:aSuperMenu label:aLabel
dce33f8bb806 intitial checkin ca parents: diff changeset	5535	\|item\|
dce33f8bb806 intitial checkin ca parents: diff changeset	5536
dce33f8bb806 intitial checkin ca parents: diff changeset	5537	item := self new in:aSuperMenu.
dce33f8bb806 intitial checkin ca parents: diff changeset	5538	item label:aLabel.
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5539	^ item
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5540	!
dce33f8bb806 intitial checkin ca parents: diff changeset	5541
dce33f8bb806 intitial checkin ca parents: diff changeset	5542	in:aSuperMenu menuItem:aMenuItem
dce33f8bb806 intitial checkin ca parents: diff changeset	5543	\|item\|
dce33f8bb806 intitial checkin ca parents: diff changeset	5544
dce33f8bb806 intitial checkin ca parents: diff changeset	5545	item := self in:aSuperMenu.
dce33f8bb806 intitial checkin ca parents: diff changeset	5546	item menuItem:aMenuItem.
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5547	^ item.
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5548	!
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5549
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5550	new
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5551	^ self basicNew initialize
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5552	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	5553
1808 e8628b502a49 methodCategory change Claus Gittinger <cg@exept.de> parents: 1806 diff changeset	5554	!MenuPanel::Item methodsFor:'accepting'!
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	5555
420 b6f9fff472ef fixes ca parents: 417 diff changeset	5556	canAccept
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5557	"returns true if item is acceptable"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5558
2199 61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	5559	self enabled ifFalse:[ ^ false].
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	5560	self hasSubmenu ifFalse:[ ^ true ].
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	5561
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	5562	self hasDelayedMenu ifFalse:[^ false ].
3558 979876192524 variable renamed Claus Gittinger <cg@exept.de> parents: 3486 diff changeset	5563	^ subMenu isNil or:[subMenu shown not]
524 d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	5564	!
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	5565
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	5566	toggleIndication
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5567	"toggle indication or choice"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5568
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5569	\|arg\|
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5570
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5571	indication notNil ifTrue:[
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5572	arg := self indicationValue not.
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5573	self indicationValue:arg.
1074 25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	5574	] ifFalse:[
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5575	choice notNil ifTrue:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5576	choice value:(menuItem choiceValue).
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5577	^ true
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5578	]
524 d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	5579	].
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	5580	^ arg
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	5581	! !
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	5582
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5583	!MenuPanel::Item methodsFor:'accessing'!
dce33f8bb806 intitial checkin ca parents: diff changeset	5584
dce33f8bb806 intitial checkin ca parents: diff changeset	5585	accessCharacter
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5586	"returns my accessCharacter or nil"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5587
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5588	^ accessCharacter
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5589	!
dce33f8bb806 intitial checkin ca parents: diff changeset	5590
dce33f8bb806 intitial checkin ca parents: diff changeset	5591	accessCharacterPosition
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5592	"get the access character position or nil"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5593
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5594	^ menuItem accessCharacterPosition
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5595	!
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5596
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5597	accessCharacterPosition:anIndex
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5598	"set the access character position or nil"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5599
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5600	menuItem accessCharacterPosition:anIndex.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5601	!
dce33f8bb806 intitial checkin ca parents: diff changeset	5602
dce33f8bb806 intitial checkin ca parents: diff changeset	5603	argument
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5604	"gets the argument"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5605
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5606	^ menuItem argument
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5607	!
dce33f8bb806 intitial checkin ca parents: diff changeset	5608
dce33f8bb806 intitial checkin ca parents: diff changeset	5609	argument:anArgument
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5610	"sets the argument"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5611
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5612	menuItem argument:anArgument.
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	5613	!
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	5614
2433 49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5615	displayLabel
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5616	"returns my printable Label"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5617
2433 49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5618	^ displayLabel
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5619	!
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5620
2614 86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5621	displayLabelExtent
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5622	"returns the labels extent"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5623
2614 86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5624	\|prevFont w h\|
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5625
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5626	displayLabelExtent notNil ifTrue:[
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5627	^ displayLabelExtent
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5628	].
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5629
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5630	displayLabel isNil ifTrue:[
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5631	displayLabelExtent := 0@0.
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5632	^ displayLabelExtent
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5633	].
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5634	prevFont := menuPanel setFont:(self font).
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5635
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5636	displayLabel isArray ifTrue:[
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5637	w := h := 0.
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5638
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5639	displayLabel do:[:aSubLabel\|
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5640	aSubLabel notNil ifTrue:[
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5641	w := w max:(aSubLabel widthOn:menuPanel).
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5642	h := h + 1 + (aSubLabel heightOn:menuPanel).
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5643	] ifFalse:[
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5644	h := h + (self spaceBetweenEmptyLines)
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5645	]
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5646	]
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5647	] ifFalse:[
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5648	w := displayLabel widthOn:menuPanel.
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5649	h := displayLabel heightOn:menuPanel.
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5650	].
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5651	"/ care for italic fonts - give a few more pixels at the end
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5652	menuPanel font italic ifTrue:[
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5653	w := w + 2.
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5654	].
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5655	displayLabelExtent := w@h.
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5656
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5657	prevFont notNil ifTrue:[
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5658	menuPanel setFont:prevFont. "/ restore previous font
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5659	].
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5660	^ displayLabelExtent
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5661	!
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5662
1727 a6365337be59 support setting font in MenuPanel and Editor ca parents: 1726 diff changeset	5663	font
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5664	"returns the user configured font or nil (default menu font)"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5665
2373 8dbf026f0bd1 bug fix: specific font used by item ca parents: 2372 diff changeset	5666	\|font\|
8dbf026f0bd1 bug fix: specific font used by item ca parents: 2372 diff changeset	5667
8dbf026f0bd1 bug fix: specific font used by item ca parents: 2372 diff changeset	5668	menuPanel isNil ifTrue:[^ nil].
8dbf026f0bd1 bug fix: specific font used by item ca parents: 2372 diff changeset	5669
8dbf026f0bd1 bug fix: specific font used by item ca parents: 2372 diff changeset	5670	font := menuItem font.
8dbf026f0bd1 bug fix: specific font used by item ca parents: 2372 diff changeset	5671
8dbf026f0bd1 bug fix: specific font used by item ca parents: 2372 diff changeset	5672	font notNil ifTrue:[
8dbf026f0bd1 bug fix: specific font used by item ca parents: 2372 diff changeset	5673	font := font onDevice:(menuPanel device).
8dbf026f0bd1 bug fix: specific font used by item ca parents: 2372 diff changeset	5674	menuItem font:font.
8dbf026f0bd1 bug fix: specific font used by item ca parents: 2372 diff changeset	5675	].
1727 a6365337be59 support setting font in MenuPanel and Editor ca parents: 1726 diff changeset	5676	^ font
a6365337be59 support setting font in MenuPanel and Editor ca parents: 1726 diff changeset	5677	!
a6365337be59 support setting font in MenuPanel and Editor ca parents: 1726 diff changeset	5678
a6365337be59 support setting font in MenuPanel and Editor ca parents: 1726 diff changeset	5679	font:aFont
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5680	"returns the user configured font or nil (default menu font)"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5681
2373 8dbf026f0bd1 bug fix: specific font used by item ca parents: 2372 diff changeset	5682	menuItem font:aFont.
1727 a6365337be59 support setting font in MenuPanel and Editor ca parents: 1726 diff changeset	5683	!
a6365337be59 support setting font in MenuPanel and Editor ca parents: 1726 diff changeset	5684
2604 34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	5685	ignoreMnemonicKeys
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5686	"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	5687
2604 34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	5688	^ menuItem ignoreMnemonicKeys
34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	5689	!
34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	5690
34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	5691	ignoreMnemonicKeys:aBoolean
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5692	"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	5693
2604 34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	5694	menuItem ignoreMnemonicKeys:aBoolean.
34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	5695	!
34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	5696
34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	5697	ignoreShortcutKeys
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5698	"if true, shortcutKeys (accelerators) in the submenus under the item are ignored"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5699
2604 34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	5700	^ menuItem ignoreShortcutKeys
34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	5701	!
34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	5702
34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	5703	ignoreShortcutKeys:aBoolean
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5704	"if true, shortcutKeys (accelerators) in the submenus under the item are ignored"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5705
2604 34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	5706	menuItem ignoreShortcutKeys:aBoolean.
34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	5707	!
34401b14b068 support of ignoreMnemonicKeys and ignoreShortcutKeys during processing ca parents: 2603 diff changeset	5708
2345 8b7b3e384002 fallBack to activeHelpKey and label, if no flyByHelp is Claus Gittinger <cg@exept.de> parents: 2344 diff changeset	5709	itemValue
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5710	"gets the items value"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5711
2360 aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5712	^ menuItem itemValue
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5713	!
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5714
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5715	itemValue:aValue
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5716	"argument could be a value holder, an action or selector"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5717
2360 aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5718	menuItem itemValue:aValue.
2345 8b7b3e384002 fallBack to activeHelpKey and label, if no flyByHelp is Claus Gittinger <cg@exept.de> parents: 2344 diff changeset	5719	!
8b7b3e384002 fallBack to activeHelpKey and label, if no flyByHelp is Claus Gittinger <cg@exept.de> parents: 2344 diff changeset	5720
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5721	label
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5722	"returns the label"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5723
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5724	^ label
dce33f8bb806 intitial checkin ca parents: diff changeset	5725	!
dce33f8bb806 intitial checkin ca parents: diff changeset	5726
dce33f8bb806 intitial checkin ca parents: diff changeset	5727	label:aLabel
399 d083b1bce58d ST-80 compatibility ca parents: 396 diff changeset	5728	"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	5729	handle characters $& (ST-80 compatibility)"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5730
2614 86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5731	\|size char oldExtent\|
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5732
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5733	oldExtent := displayLabelExtent.
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5734	displayLabelExtent := nil. "/ force a recomputation
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5735	accessCharacter := disabledDisplayLabel := nil.
3454 baefcb629718 Remove string specific acent handling instead of the generic #ascentOn: approach. Stefan Vogel <sv@exept.de> parents: 3447 diff changeset	5736
baefcb629718 Remove string specific acent handling instead of the generic #ascentOn: approach. Stefan Vogel <sv@exept.de> parents: 3447 diff changeset	5737	"Stefan: Why do we use #value two times??"
2614 86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5738	label := aLabel value.
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5739	displayLabel := label value ? ''.
2433 49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5740
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5741	displayLabel isString ifTrue:[
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5742	"CHECK FOR SEPARATOR"
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5743
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5744	(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	5745	size := displayLabel size.
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5746
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5747	size == 0 ifTrue:[
2614 86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5748	displayLabel := nil. "blank separator"
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5749	^ self
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5750	].
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5751
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5752	size == 1 ifTrue:[
2433 49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5753	char := displayLabel first.
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5754
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5755	(char == $- or:[char == $=]) ifTrue:[
2614 86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5756	label := displayLabel. "line separator"
2433 49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5757	displayLabel := nil.
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5758	^ self
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5759	]
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5760	]
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5761	]
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5762	] ifFalse:[
2433 49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5763	displayLabel isCollection ifTrue:[
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5764	displayLabel := displayLabel asArray.
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5765	]
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5766	].
3328 037d6d506879 no access character translation for the combo-list Claus Gittinger <cg@exept.de> parents: 3321 diff changeset	5767	menuPanel doAccessCharacterTranslation ifTrue:[
037d6d506879 no access character translation for the combo-list Claus Gittinger <cg@exept.de> parents: 3321 diff changeset	5768	displayLabel notNil ifTrue:[
037d6d506879 no access character translation for the combo-list Claus Gittinger <cg@exept.de> parents: 3321 diff changeset	5769	displayLabel isArray ifTrue:[
037d6d506879 no access character translation for the combo-list Claus Gittinger <cg@exept.de> parents: 3321 diff changeset	5770	displayLabel keysAndValuesDo:[:i :el\|
037d6d506879 no access character translation for the combo-list Claus Gittinger <cg@exept.de> parents: 3321 diff changeset	5771	el notNil ifTrue:[
037d6d506879 no access character translation for the combo-list Claus Gittinger <cg@exept.de> parents: 3321 diff changeset	5772	displayLabel at:i put:(self updateAccessCharacterFor:el).
037d6d506879 no access character translation for the combo-list Claus Gittinger <cg@exept.de> parents: 3321 diff changeset	5773	].
2614 86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5774	].
3328 037d6d506879 no access character translation for the combo-list Claus Gittinger <cg@exept.de> parents: 3321 diff changeset	5775	] ifFalse:[
037d6d506879 no access character translation for the combo-list Claus Gittinger <cg@exept.de> parents: 3321 diff changeset	5776	displayLabel := self updateAccessCharacterFor:displayLabel.
2614 86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5777	].
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5778	].
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5779	].
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5780
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5781	menuPanel shown ifTrue:[
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5782	self fetchImages.
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5783
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5784	oldExtent = self displayLabelExtent ifTrue:[
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5785	self invalidate
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5786	] ifFalse:[
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	5787	menuPanel mustRearrange
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5788	]
1978 a53447b8cbe2 set label; reange menu if extent changed otherwise redraw only the item martin parents: 1955 diff changeset	5789	].
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5790	!
dce33f8bb806 intitial checkin ca parents: diff changeset	5791
dce33f8bb806 intitial checkin ca parents: diff changeset	5792	menuPanel
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5793	"returns my menuPanel"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5794
399 d083b1bce58d ST-80 compatibility ca parents: 396 diff changeset	5795	^ menuPanel
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5796	!
dce33f8bb806 intitial checkin ca parents: diff changeset	5797
dce33f8bb806 intitial checkin ca parents: diff changeset	5798	nameKey
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5799	"gets the nameKey"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5800
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5801	^ menuItem nameKey
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5802	!
dce33f8bb806 intitial checkin ca parents: diff changeset	5803
dce33f8bb806 intitial checkin ca parents: diff changeset	5804	nameKey:aNameKey
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5805	"sets the nameKey"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5806
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5807	menuItem nameKey:aNameKey.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5808	!
dce33f8bb806 intitial checkin ca parents: diff changeset	5809
dce33f8bb806 intitial checkin ca parents: diff changeset	5810	rawLabel
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5811	"returns my raw, unprocessed label"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5812
2433 49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5813	^ menuItem rawLabel
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5814	!
dce33f8bb806 intitial checkin ca parents: diff changeset	5815
dce33f8bb806 intitial checkin ca parents: diff changeset	5816	shortcutKey
dce33f8bb806 intitial checkin ca parents: diff changeset	5817	"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	5818	no submenu exists evaluate the action assigned to the item (accept)."
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5819
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5820	^ menuItem shortcutKey
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5821	!
dce33f8bb806 intitial checkin ca parents: diff changeset	5822
dce33f8bb806 intitial checkin ca parents: diff changeset	5823	shortcutKey:aKey
dce33f8bb806 intitial checkin ca parents: diff changeset	5824	"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	5825	no submenu exists evaluate the action assigned to the item (accept)."
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5826
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5827	menuItem shortcutKey ~= aKey ifTrue:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5828	menuItem shortcutKey:aKey.
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5829	self invalidate.
1889 43516e4588ce give warning messages for unimplemented menu-aspects Claus Gittinger <cg@exept.de> parents: 1878 diff changeset	5830	].
43516e4588ce give warning messages for unimplemented menu-aspects Claus Gittinger <cg@exept.de> parents: 1878 diff changeset	5831	!
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5832
710 4453e463ff16 add new feature: ca parents: 709 diff changeset	5833	startGroup
3127 9b522d37eca0 new startGroup value: #conditionalRight Claus Gittinger <cg@exept.de> parents: 3126 diff changeset	5834	"start group #left #right #conditionalRight ... or nil
9b522d37eca0 new startGroup value: #conditionalRight Claus Gittinger <cg@exept.de> parents: 3126 diff changeset	5835	at the moment only #right and #conditionalRight are implemented"
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5836
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5837	^ menuItem startGroup
3127 9b522d37eca0 new startGroup value: #conditionalRight Claus Gittinger <cg@exept.de> parents: 3126 diff changeset	5838
9b522d37eca0 new startGroup value: #conditionalRight Claus Gittinger <cg@exept.de> parents: 3126 diff changeset	5839	"Modified: / 16-10-2006 / 13:06:25 / cg"
710 4453e463ff16 add new feature: ca parents: 709 diff changeset	5840	!
4453e463ff16 add new feature: ca parents: 709 diff changeset	5841
4453e463ff16 add new feature: ca parents: 709 diff changeset	5842	startGroup:aSymbol
3127 9b522d37eca0 new startGroup value: #conditionalRight Claus Gittinger <cg@exept.de> parents: 3126 diff changeset	5843	"start group #left #right #conditionalRight ...
9b522d37eca0 new startGroup value: #conditionalRight Claus Gittinger <cg@exept.de> parents: 3126 diff changeset	5844	at the moment only #right and #conditionalRight are implemented"
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5845
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5846	menuItem startGroup:aSymbol.
3127 9b522d37eca0 new startGroup value: #conditionalRight Claus Gittinger <cg@exept.de> parents: 3126 diff changeset	5847
9b522d37eca0 new startGroup value: #conditionalRight Claus Gittinger <cg@exept.de> parents: 3126 diff changeset	5848	"Modified: / 16-10-2006 / 13:06:37 / cg"
710 4453e463ff16 add new feature: ca parents: 709 diff changeset	5849	!
4453e463ff16 add new feature: ca parents: 709 diff changeset	5850
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5851	submenu
3133 dd8417f3373b code cleanup; comments Claus Gittinger <cg@exept.de> parents: 3131 diff changeset	5852	"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	5853	May return nil, if there is really no menu"
dd8417f3373b code cleanup; comments Claus Gittinger <cg@exept.de> parents: 3131 diff changeset	5854
dd8417f3373b code cleanup; comments Claus Gittinger <cg@exept.de> parents: 3131 diff changeset	5855	subMenu isNil ifTrue:[
dd8417f3373b code cleanup; comments Claus Gittinger <cg@exept.de> parents: 3131 diff changeset	5856	self setupSubmenu
dd8417f3373b code cleanup; comments Claus Gittinger <cg@exept.de> parents: 3131 diff changeset	5857	].
dd8417f3373b code cleanup; comments Claus Gittinger <cg@exept.de> parents: 3131 diff changeset	5858	^ subMenu
dd8417f3373b code cleanup; comments Claus Gittinger <cg@exept.de> parents: 3131 diff changeset	5859
dd8417f3373b code cleanup; comments Claus Gittinger <cg@exept.de> parents: 3131 diff changeset	5860	"Modified: / 07-11-2006 / 11:09:49 / cg"
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5861	!
dce33f8bb806 intitial checkin ca parents: diff changeset	5862
dce33f8bb806 intitial checkin ca parents: diff changeset	5863	submenu:aSubMenu
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5864	"set a new submenu; an existing submenu will be destroyed.
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5865	This might lead to a redraw if 'hasSubmenu' changed"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5866
1795 6afd0e768267 submenuChannel selector: allow upto two arguments, the arg and the menu ca parents: 1793 diff changeset	5867	\|widget\|
1767 e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	5868
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	5869	aSubMenu isNil ifTrue:[
2360 aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5870	subMenu notNil ifTrue:[
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5871	subMenu destroy.
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5872	subMenu := nil.
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5873	].
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5874	^ self
1767 e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	5875	].
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	5876
1795 6afd0e768267 submenuChannel selector: allow upto two arguments, the arg and the menu ca parents: 1793 diff changeset	5877	(aSubMenu isKindOf:Menu) ifTrue:[
2360 aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5878	subMenu := MenuPanel new.
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5879
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5880	menuPanel notNil ifTrue:[
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5881	subMenu receiver:menuPanel receiver.
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5882	].
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5883	subMenu superMenu:menuPanel.
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5884
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5885	menuItem horizontalLayout == true ifTrue:[
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5886	subMenu verticalLayout:false
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5887	].
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5888	subMenu menu:aSubMenu.
1767 e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	5889	] ifFalse:[
2360 aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5890	aSubMenu isView ifFalse:[
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5891	(aSubMenu isKindOf:ApplicationModel) ifFalse:[
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5892	"/ ... mhhhh ....
2364 c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	5893	^ menuItem submenuChannel:aSubMenu
2360 aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5894	].
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5895	widget := SimpleView new.
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5896	widget client:aSubMenu.
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5897	] ifTrue:[
2827 139c1089bcb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 2826 diff changeset	5898	widget := aSubMenu.
139c1089bcb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 2826 diff changeset	5899	subMenu perform:#superMenu: with:menuPanel ifNotUnderstood:[].
2360 aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5900	].
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5901
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5902	(widget isKindOf:MenuPanel) ifTrue:[
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5903	subMenu := widget.
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5904
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5905	menuItem horizontalLayout == true ifTrue:[
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5906	subMenu verticalLayout:false
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5907	].
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5908	] ifFalse:[
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5909	subMenu := MenuPanel new.
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5910	subMenu receiver:menuPanel receiver.
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5911	subMenu addSubView:widget.
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5912	subMenu extent:(widget preferredExtent).
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5913	widget origin:0.0@0.0 corner:1.0@1.0.
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5914	].
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5915	subMenu superMenu:menuPanel.
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5916	].
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	5917	!
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	5918
3133 dd8417f3373b code cleanup; comments Claus Gittinger <cg@exept.de> parents: 3131 diff changeset	5919	submenuOrNil
dd8417f3373b code cleanup; comments Claus Gittinger <cg@exept.de> parents: 3131 diff changeset	5920	"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	5921
dd8417f3373b code cleanup; comments Claus Gittinger <cg@exept.de> parents: 3131 diff changeset	5922	^ subMenu
dd8417f3373b code cleanup; comments Claus Gittinger <cg@exept.de> parents: 3131 diff changeset	5923
dd8417f3373b code cleanup; comments Claus Gittinger <cg@exept.de> parents: 3131 diff changeset	5924	"Created: / 07-11-2006 / 11:04:47 / cg"
dd8417f3373b code cleanup; comments Claus Gittinger <cg@exept.de> parents: 3131 diff changeset	5925	!
dd8417f3373b code cleanup; comments Claus Gittinger <cg@exept.de> parents: 3131 diff changeset	5926
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	5927	textLabel
2433 49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5928	"returns my textLabel or nil.
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5929	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	5930
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5931	\|txt\|
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5932
2433 49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5933	displayLabel notNil ifTrue:[
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5934	displayLabel isArray ifFalse:[
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5935	^ displayLabel perform:#string ifNotUnderstood:nil
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5936	].
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5937
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5938	displayLabel do:[:el\|
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5939	(txt := el perform:#string ifNotUnderstood:nil) notNil ifTrue:[
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5940	^ txt
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5941	]
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	5942	].
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5943	].
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5944	^ nil
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	5945	!
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	5946
1841 5d01716cc37c implement: triggerOnDown ca parents: 1836 diff changeset	5947	triggerOnDown
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5948	"return true if triggering the action if pressed"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5949
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5950	menuItem triggerOnDown ifTrue:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5951	self hasSubmenu ifFalse:[^ true].
1841 5d01716cc37c implement: triggerOnDown ca parents: 1836 diff changeset	5952	].
5d01716cc37c implement: triggerOnDown ca parents: 1836 diff changeset	5953	^ false
5d01716cc37c implement: triggerOnDown ca parents: 1836 diff changeset	5954	!
5d01716cc37c implement: triggerOnDown ca parents: 1836 diff changeset	5955
5d01716cc37c implement: triggerOnDown ca parents: 1836 diff changeset	5956	triggerOnDown:aBool
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5957	"setup to trigger the action if pressed"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5958
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	5959	menuItem triggerOnDown:aBool.
1841 5d01716cc37c implement: triggerOnDown ca parents: 1836 diff changeset	5960	!
5d01716cc37c implement: triggerOnDown ca parents: 1836 diff changeset	5961
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	5962	value
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5963	"gets the items value
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5964	Left here for ST80 compatibility - value is a bad name"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5965
2360 aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5966	^ menuItem itemValue
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5967	!
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5968
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5969	value:aValue
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	5970	"could be a value holder, an action or selector
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5971	Left here for ST80 compatibility - value: is a bad name"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5972
2360 aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5973	menuItem itemValue:aValue.
502 dedc1b29b6ac support of arguments ca parents: 498 diff changeset	5974	!
dedc1b29b6ac support of arguments ca parents: 498 diff changeset	5975
dedc1b29b6ac support of arguments ca parents: 498 diff changeset	5976	value:aValue argument:anArgument
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5977	"set the value and an argument"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5978
2360 aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5979	menuItem itemValue:aValue.
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	5980	menuItem argument:anArgument.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5981	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	5982
1679 af40842718f6 when accepting, and the application does not respond to that Claus Gittinger <cg@exept.de> parents: 1670 diff changeset	5983	!MenuPanel::Item methodsFor:'accessing-behavior'!
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5984
1074 25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	5985	choice
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5986	"implements a radio group; the field"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5987
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5988	^ choice
1074 25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	5989	!
25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	5990
25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	5991	choice:something
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5992	"set choice indication"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5993
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5994	choice == something ifTrue:[^ self].
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5995
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5996	choice isValueModel ifTrue:[
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	5997	choice removeDependent:self
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5998	].
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	5999
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6000	(choice := something) notNil ifTrue:[
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6001	choice isSymbol ifTrue:[
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6002	(choice := self aspectAt:choice) isNil ifTrue:[
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6003	choice := something
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6004	]
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6005	].
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6006	choice isValueModel ifTrue:[
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6007	choice addDependent:self
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6008	]
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	6009	].
1074 25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	6010	!
25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	6011
25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	6012	choiceValue
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6013	"implements a radio group; the value writen to the choice if selected"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6014
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6015	^ menuItem choiceValue
1074 25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	6016	!
25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	6017
25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	6018	choiceValue:something
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6019	"implements a radio group; the value writen to the choice if selected"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6020
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6021	menuItem choiceValue ~= something ifTrue:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6022	menuItem choiceValue:something.
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6023	choice notNil ifTrue:[ self invalidate ].
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6024	].
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	6025	!
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	6026
388 dce33f8bb806 intitial checkin ca parents: diff changeset	6027	enabled
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6028	"returns the enabled state"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6029
524 d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	6030	\|state\|
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	6031
2364 c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	6032	menuPanel enabled ifFalse:[^ false].
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	6033
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	6034	enableChannel isSymbol ifTrue:[
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	6035	state := self aspectAt:enableChannel.
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	6036
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	6037	state isNil ifTrue:[
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	6038	self ifNotInUIBuilderInfoPrintCR:
3414 b0fb84e3e809 more info about missing channel Claus Gittinger <cg@exept.de> parents: 3411 diff changeset	6039	('MenuPanel::Item [info]: no aspect for %1 (in %2)'
b0fb84e3e809 more info about missing channel Claus Gittinger <cg@exept.de> parents: 3411 diff changeset	6040	bindWith:enableChannel
b0fb84e3e809 more info about missing channel Claus Gittinger <cg@exept.de> parents: 3411 diff changeset	6041	with:label).
2364 c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	6042	^ true
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	6043	].
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	6044
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	6045	state isValueModel ifTrue:[
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	6046	enableChannel := state.
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	6047	enableChannel addDependent:self.
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	6048	state := enableChannel value.
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	6049	] ifFalse:[
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	6050	state := state value
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	6051	]
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	6052	] ifFalse:[
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	6053	state := enableChannel value
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	6054	].
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	6055	^ state ~~ false
388 dce33f8bb806 intitial checkin ca parents: diff changeset	6056	!
dce33f8bb806 intitial checkin ca parents: diff changeset	6057
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	6058	enabled:something
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6059	"change the enabled state; if the state changed, a redraw is performed"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6060
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	6061	\|oldState newState\|
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	6062
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	6063	enableChannel isNil ifTrue:[
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6064	oldState := true
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	6065	] ifFalse:[
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6066	oldState := enableChannel value.
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6067	enableChannel isValueModel ifTrue:[
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6068	enableChannel removeDependent:self
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6069	]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	6070	].
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	6071	enableChannel := something.
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	6072
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	6073	enableChannel isNil ifTrue:[
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6074	menuPanel shown ifFalse:[^ self].
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6075	newState := true
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	6076	] ifFalse:[
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6077	enableChannel isValueModel ifTrue:[
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6078	enableChannel addDependent:self
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6079	] ifFalse:[
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6080	enableChannel isSymbol ifTrue:[^ self]
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6081	].
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6082	menuPanel shown ifFalse:[^ self].
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6083	newState := enableChannel value.
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	6084	].
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	6085
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	6086	newState ~~ oldState ifTrue:[
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6087	self invalidate
1690 38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	6088	].
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	6089	!
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	6090
1670 dbc8a05605e0 add new behavior: hideMenuOnActivated ca parents: 1666 diff changeset	6091	hideMenuOnActivated
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6092	"hide the menu when the item was activated; the default is true"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6093
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6094	^ menuItem hideMenuOnActivated
1670 dbc8a05605e0 add new behavior: hideMenuOnActivated ca parents: 1666 diff changeset	6095	!
dbc8a05605e0 add new behavior: hideMenuOnActivated ca parents: 1666 diff changeset	6096
dbc8a05605e0 add new behavior: hideMenuOnActivated ca parents: 1666 diff changeset	6097	hideMenuOnActivated:aBool
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6098	"hide the menu when the item was activated; the default is true"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6099
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6100	menuItem hideMenuOnActivated:aBool.
1670 dbc8a05605e0 add new behavior: hideMenuOnActivated ca parents: 1666 diff changeset	6101	!
dbc8a05605e0 add new behavior: hideMenuOnActivated ca parents: 1666 diff changeset	6102
2216 9cbeda150dae no info for toolbarmenu enable channel penk parents: 2214 diff changeset	6103	ifNotInUIBuilderInfoPrintCR:aMessage
9cbeda150dae no info for toolbarmenu enable channel penk parents: 2214 diff changeset	6104	"/ q&d hack to suppress info-messages in UIBuilder
9cbeda150dae no info for toolbarmenu enable channel penk parents: 2214 diff changeset	6105
3732 1f08b49d9426 * empty log message * Claus Gittinger <cg@exept.de> parents: 3725 diff changeset	6106	\|app\|
1f08b49d9426 * empty log message * Claus Gittinger <cg@exept.de> parents: 3725 diff changeset	6107
1f08b49d9426 * empty log message * Claus Gittinger <cg@exept.de> parents: 3725 diff changeset	6108	app := menuPanel application.
1f08b49d9426 * empty log message * Claus Gittinger <cg@exept.de> parents: 3725 diff changeset	6109
2216 9cbeda150dae no info for toolbarmenu enable channel penk parents: 2214 diff changeset	6110	(menuPanel receiver isNil
3732 1f08b49d9426 * empty log message * Claus Gittinger <cg@exept.de> parents: 3725 diff changeset	6111	and:[ app notNil
1f08b49d9426 * empty log message * Claus Gittinger <cg@exept.de> parents: 3725 diff changeset	6112	and:[ app askFor:#isUIPainter]])
2216 9cbeda150dae no info for toolbarmenu enable channel penk parents: 2214 diff changeset	6113	ifTrue:[
3414 b0fb84e3e809 more info about missing channel Claus Gittinger <cg@exept.de> parents: 3411 diff changeset	6114	^ self "/ suppressed
b0fb84e3e809 more info about missing channel Claus Gittinger <cg@exept.de> parents: 3411 diff changeset	6115	].
b0fb84e3e809 more info about missing channel Claus Gittinger <cg@exept.de> parents: 3411 diff changeset	6116	aMessage infoPrint.
3732 1f08b49d9426 * empty log message * Claus Gittinger <cg@exept.de> parents: 3725 diff changeset	6117	app notNil ifTrue:[
1f08b49d9426 * empty log message * Claus Gittinger <cg@exept.de> parents: 3725 diff changeset	6118	app infoPrint
3414 b0fb84e3e809 more info about missing channel Claus Gittinger <cg@exept.de> parents: 3411 diff changeset	6119	].
3444 b7d2f3fe5055 avoid ultra-long lines in Transcript Claus Gittinger <cg@exept.de> parents: 3441 diff changeset	6120	'' infoPrintCR.
2216 9cbeda150dae no info for toolbarmenu enable channel penk parents: 2214 diff changeset	6121	!
9cbeda150dae no info for toolbarmenu enable channel penk parents: 2214 diff changeset	6122
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	6123	indication
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6124	"get on/off indication"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6125
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6126	^ indication
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	6127	!
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	6128
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	6129	indication:something
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6130	"set on/off indication"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6131
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6132	indication == something ifTrue:[^ self].
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6133
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6134	indication isValueModel ifTrue:[
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6135	indication removeDependent:self
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6136	].
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6137
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6138	(indication := something) notNil ifTrue:[
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6139	indication isValueModel ifTrue:[
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6140	indication addDependent:self
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6141	] ifFalse:[
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6142	"/ to force an update of the value
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6143	self indicationValue
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6144	]
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6145	].
464 a788fdce92e2 add submenuChannel ca parents: 461 diff changeset	6146	!
a788fdce92e2 add submenuChannel ca parents: 461 diff changeset	6147
1767 e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	6148	keepLinkedMenu
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6149	"get the keepLinkedMenu flag"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6150
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6151	^ menuItem keepLinkedMenu
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6152	!
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6153
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6154	keepLinkedMenu:aBool
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6155	"get the keepLinkedMenu flag"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6156
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6157	menuItem keepLinkedMenu:aBool.
1767 e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	6158	!
e6325bfd4fad allow views in subMenus ca parents: 1766 diff changeset	6159
2331 ebd240410703 can now specify if menu action is to be performed by ca parents: 2326 diff changeset	6160	sendToOriginator
ebd240410703 can now specify if menu action is to be performed by ca parents: 2326 diff changeset	6161	"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	6162	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	6163
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6164	^ menuItem sendToOriginator
2331 ebd240410703 can now specify if menu action is to be performed by ca parents: 2326 diff changeset	6165	!
ebd240410703 can now specify if menu action is to be performed by ca parents: 2326 diff changeset	6166
ebd240410703 can now specify if menu action is to be performed by ca parents: 2326 diff changeset	6167	sendToOriginator:aBoolean
ebd240410703 can now specify if menu action is to be performed by ca parents: 2326 diff changeset	6168	"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	6169	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	6170
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6171	menuItem sendToOriginator:aBoolean.
2331 ebd240410703 can now specify if menu action is to be performed by ca parents: 2326 diff changeset	6172	!
ebd240410703 can now specify if menu action is to be performed by ca parents: 2326 diff changeset	6173
464 a788fdce92e2 add submenuChannel ca parents: 461 diff changeset	6174	submenuChannel
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6175	"get the submenu channel"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6176
2364 c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	6177	^ menuItem submenuChannel
464 a788fdce92e2 add submenuChannel ca parents: 461 diff changeset	6178	!
a788fdce92e2 add submenuChannel ca parents: 461 diff changeset	6179
a788fdce92e2 add submenuChannel ca parents: 461 diff changeset	6180	submenuChannel:aSelectorOrNil
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6181	"returns the submenu channel"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6182
2364 c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	6183	menuItem submenuChannel:aSelectorOrNil.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	6184	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	6185
1679 af40842718f6 when accepting, and the application does not respond to that Claus Gittinger <cg@exept.de> parents: 1670 diff changeset	6186	!MenuPanel::Item methodsFor:'accessing-dimension'!
388 dce33f8bb806 intitial checkin ca parents: diff changeset	6187
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	6188	moveBy:aPoint
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6189	"move the layouts origin"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6190
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	6191	layout moveBy:aPoint.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	6192	!
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	6193
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	6194	preferredExtent
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6195	"compute my preferred extent excluding the shortCutKey and the menu identifier"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6196
2614 86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	6197	\|isVertical icon wIcon isButton labelExtent
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	6198	x "{ Class:SmallInteger }"
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	6199	y "{ Class:SmallInteger }"
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	6200	s "{ Class:SmallInteger }"
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	6201	\|
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	6202	self isVisible ifFalse:[^ 0@0 ].
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	6203
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6204	isButton := menuItem isButton.
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6205
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	6206	isButton ifTrue:[
2326 a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	6207	s := menuPanel maxAbsoluteButtonLevel.
a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	6208	x := s + HorizontalButtonInset.
a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	6209	y := s + VerticalButtonInset.
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	6210	] ifFalse:[
2326 a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	6211	x := HorizontalInset.
a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	6212	y := (menuPanel isPopUpView ifTrue:[VerticalPopUpInset] ifFalse:[VerticalInset]) ? 2.
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	6213	].
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	6214	x := x * 2.
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	6215	y := y * 2.
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	6216
1707 4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6217	isVertical := menuPanel verticalLayout.
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6218
2362 7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6219	self isSeparator ifTrue:[
2326 a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	6220	"SEPARATOR"
a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	6221
a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	6222	s := self class separatorSize.
a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	6223	label = '' ifTrue:[
a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	6224	s := self class halfSeparatorSize.
a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	6225	].
a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	6226
a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	6227	"width of doubleSeparator is 5 !!!!"
a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	6228	isVertical ifFalse:[
a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	6229	x := x max:s.
a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	6230	y := y + 5.
a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	6231	] ifTrue:[
a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	6232	y := y max:s.
a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	6233	x := x + 5.
a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	6234	].
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	6235	] ifFalse:[
2614 86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	6236	labelExtent := self displayLabelExtent.
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	6237
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	6238	x := x + labelExtent x.
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	6239	y := y + labelExtent y.
3131 611b833f2ac9 * empty log message * ca parents: 3128 diff changeset	6240	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	6241
a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	6242	isButton ifFalse:[
a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	6243	menuPanel showSeparatingLines ifTrue:[
a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	6244	"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	6245	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	6246	].
a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	6247	].
2344 d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6248	wIcon := 0.
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6249	self hasMenuIndicator ifTrue:[
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6250	icon := MenuPanel menuIndicator.
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6251	wIcon := MenuPanel menuIndicatorOffset + icon width.
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6252	] ifFalse:[
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6253	self hasDelayedMenuIndicator ifTrue:[
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6254	icon := MenuPanel delayedMenuIndicator.
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6255	wIcon := MenuPanel delayedMenuIndicatorOffset + icon width.
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6256	]
2326 a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	6257	].
2344 d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6258	x := x + wIcon.
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	6259	].
d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	6260	^ x@y
3421 de7368c2dd11 added preferredWidth & preferredHeight Claus Gittinger <cg@exept.de> parents: 3415 diff changeset	6261	!
de7368c2dd11 added preferredWidth & preferredHeight Claus Gittinger <cg@exept.de> parents: 3415 diff changeset	6262
de7368c2dd11 added preferredWidth & preferredHeight Claus Gittinger <cg@exept.de> parents: 3415 diff changeset	6263	preferredHeight
de7368c2dd11 added preferredWidth & preferredHeight Claus Gittinger <cg@exept.de> parents: 3415 diff changeset	6264	^ self preferredExtent y
de7368c2dd11 added preferredWidth & preferredHeight Claus Gittinger <cg@exept.de> parents: 3415 diff changeset	6265	!
de7368c2dd11 added preferredWidth & preferredHeight Claus Gittinger <cg@exept.de> parents: 3415 diff changeset	6266
de7368c2dd11 added preferredWidth & preferredHeight Claus Gittinger <cg@exept.de> parents: 3415 diff changeset	6267	preferredWidth
de7368c2dd11 added preferredWidth & preferredHeight Claus Gittinger <cg@exept.de> parents: 3415 diff changeset	6268	^ self preferredExtent x
388 dce33f8bb806 intitial checkin ca parents: diff changeset	6269	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	6270
1679 af40842718f6 when accepting, and the application does not respond to that Claus Gittinger <cg@exept.de> parents: 1670 diff changeset	6271	!MenuPanel::Item methodsFor:'accessing-help'!
1613 5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	6272
5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	6273	activeHelpKey
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6274	"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	6275
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6276	^ menuItem activeHelpKey
1613 5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	6277	!
5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	6278
5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	6279	activeHelpKey:aHelpKey
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6280	"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	6281
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6282	menuItem activeHelpKey:aHelpKey.
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6283	activeHelpText := nil.
1613 5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	6284	!
5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	6285
5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	6286	activeHelpText
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6287	"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	6288
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6289	\|app key\|
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6290
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6291	activeHelpText notNil ifTrue:[^ activeHelpText].
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6292
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6293	((key := self activeHelpKey) notNil
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6294	and:[(app := menuPanel application) notNil]) ifTrue:[
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6295	^ app helpTextForKey:key.
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6296	].
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6297	^ nil
1613 5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	6298	!
5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	6299
5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	6300	activeHelpText:aText
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6301	"set the active helpText"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6302
1613 5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	6303	activeHelpText := aText.
2345 8b7b3e384002 fallBack to activeHelpKey and label, if no flyByHelp is Claus Gittinger <cg@exept.de> parents: 2344 diff changeset	6304	!
8b7b3e384002 fallBack to activeHelpKey and label, if no flyByHelp is Claus Gittinger <cg@exept.de> parents: 2344 diff changeset	6305
8b7b3e384002 fallBack to activeHelpKey and label, if no flyByHelp is Claus Gittinger <cg@exept.de> parents: 2344 diff changeset	6306	flyByHelpText
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6307	"get the flyBy helpText or nil."
2433 49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6308
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6309	\|text key app\|
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6310
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6311	flyByHelpText notNil ifTrue:[^ flyByHelpText].
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6312
2574 366e5807711f separators have no flyByHelp Claus Gittinger <cg@exept.de> parents: 2569 diff changeset	6313	self isSeparator ifTrue:[^ nil].
366e5807711f separators have no flyByHelp Claus Gittinger <cg@exept.de> parents: 2569 diff changeset	6314
2471 e6e52dc428a2 it is not the isButton behavior, martin parents: 2460 diff changeset	6315	"/ its NOT the button-attribute, which controls flyByHelp suppression...
e6e52dc428a2 it is not the isButton behavior, martin parents: 2460 diff changeset	6316	"/ (if you have an argument for that let us know..)
e6e52dc428a2 it is not the isButton behavior, martin parents: 2460 diff changeset	6317	"/ self isButton ifFalse:[^ nil].
e6e52dc428a2 it is not the isButton behavior, martin parents: 2460 diff changeset	6318	(menuPanel isNil or:[menuPanel isPopUpView]) ifTrue:[^ nil].
2433 49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6319
2652 686c0f0acb90 do not show help for items which have a menu (launchers about-item) Claus Gittinger <cg@exept.de> parents: 2617 diff changeset	6320	"/ 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	6321	key := self activeHelpKey.
2895 4e63ee409513 flyByHelpText in Launcher Claus Gittinger <cg@exept.de> parents: 2888 diff changeset	6322	app := menuPanel application.
4e63ee409513 flyByHelpText in Launcher Claus Gittinger <cg@exept.de> parents: 2888 diff changeset	6323
4e63ee409513 flyByHelpText in Launcher Claus Gittinger <cg@exept.de> parents: 2888 diff changeset	6324	"/ 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	6325	(key isAssociation) ifTrue:[
4e63ee409513 flyByHelpText in Launcher Claus Gittinger <cg@exept.de> parents: 2888 diff changeset	6326	app := key key.
4e63ee409513 flyByHelpText in Launcher Claus Gittinger <cg@exept.de> parents: 2888 diff changeset	6327	key := key value.
4e63ee409513 flyByHelpText in Launcher Claus Gittinger <cg@exept.de> parents: 2888 diff changeset	6328	].
4e63ee409513 flyByHelpText in Launcher Claus Gittinger <cg@exept.de> parents: 2888 diff changeset	6329
3402 5941cc1ff429 flybyhelp - give menuPanel achance to provide a text Claus Gittinger <cg@exept.de> parents: 3394 diff changeset	6330	key notNil ifTrue:[
5941cc1ff429 flybyhelp - give menuPanel achance to provide a text Claus Gittinger <cg@exept.de> parents: 3394 diff changeset	6331	app notNil ifTrue:[
5941cc1ff429 flybyhelp - give menuPanel achance to provide a text Claus Gittinger <cg@exept.de> parents: 3394 diff changeset	6332	text := app flyByHelpTextForKey:key.
5941cc1ff429 flybyhelp - give menuPanel achance to provide a text Claus Gittinger <cg@exept.de> parents: 3394 diff changeset	6333	].
5941cc1ff429 flybyhelp - give menuPanel achance to provide a text Claus Gittinger <cg@exept.de> parents: 3394 diff changeset	6334	text isNil ifTrue:[
5941cc1ff429 flybyhelp - give menuPanel achance to provide a text Claus Gittinger <cg@exept.de> parents: 3394 diff changeset	6335	text := menuPanel flyByHelpTextForKey:key.
5941cc1ff429 flybyhelp - give menuPanel achance to provide a text Claus Gittinger <cg@exept.de> parents: 3394 diff changeset	6336	].
2433 49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6337	].
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6338
2652 686c0f0acb90 do not show help for items which have a menu (launchers about-item) Claus Gittinger <cg@exept.de> parents: 2617 diff changeset	6339	"/ 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	6340	text isNil ifTrue:[
2676 01dc236c3dcd flyByHelp: shown for items with menu IFF there is an activeHelp key ca parents: 2675 diff changeset	6341	self hasSubmenu ifTrue:[
01dc236c3dcd flyByHelp: shown for items with menu IFF there is an activeHelp key ca parents: 2675 diff changeset	6342	^ key
01dc236c3dcd flyByHelp: shown for items with menu IFF there is an activeHelp key ca parents: 2675 diff changeset	6343	].
2652 686c0f0acb90 do not show help for items which have a menu (launchers about-item) Claus Gittinger <cg@exept.de> parents: 2617 diff changeset	6344
2433 49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6345	text := key.
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6346	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	6347	displayLabel isString ifTrue:[
1dc3745fc313 do not show the menus label again as fly by help Claus Gittinger <cg@exept.de> parents: 2545 diff changeset	6348	text := displayLabel string.
1dc3745fc313 do not show the menus label again as fly by help Claus Gittinger <cg@exept.de> parents: 2545 diff changeset	6349	].
1dc3745fc313 do not show the menus label again as fly by help Claus Gittinger <cg@exept.de> parents: 2545 diff changeset	6350	].
1dc3745fc313 do not show the menus label again as fly by help Claus Gittinger <cg@exept.de> parents: 2545 diff changeset	6351	text isNil ifTrue:[
1dc3745fc313 do not show the menus label again as fly by help Claus Gittinger <cg@exept.de> parents: 2545 diff changeset	6352	text := self rawLabel.
2433 49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6353	text isString ifFalse:[
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6354	text := menuItem rawLabel.
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6355	text isString ifFalse:[
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6356	text := nil.
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6357	]
2550 1dc3745fc313 do not show the menus label again as fly by help Claus Gittinger <cg@exept.de> parents: 2545 diff changeset	6358	].
1dc3745fc313 do not show the menus label again as fly by help Claus Gittinger <cg@exept.de> parents: 2545 diff changeset	6359	text notNil ifTrue:[
1dc3745fc313 do not show the menus label again as fly by help Claus Gittinger <cg@exept.de> parents: 2545 diff changeset	6360	(text includes:$&) ifTrue:[
1dc3745fc313 do not show the menus label again as fly by help Claus Gittinger <cg@exept.de> parents: 2545 diff changeset	6361	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	6362	].
1dc3745fc313 do not show the menus label again as fly by help Claus Gittinger <cg@exept.de> parents: 2545 diff changeset	6363	].
1dc3745fc313 do not show the menus label again as fly by help Claus Gittinger <cg@exept.de> parents: 2545 diff changeset	6364	].
1dc3745fc313 do not show the menus label again as fly by help Claus Gittinger <cg@exept.de> parents: 2545 diff changeset	6365	].
1dc3745fc313 do not show the menus label again as fly by help Claus Gittinger <cg@exept.de> parents: 2545 diff changeset	6366
3402 5941cc1ff429 flybyhelp - give menuPanel achance to provide a text Claus Gittinger <cg@exept.de> parents: 3394 diff changeset	6367	(text isString and:[text isBlank]) ifTrue:[ text := nil ].
2550 1dc3745fc313 do not show the menus label again as fly by help Claus Gittinger <cg@exept.de> parents: 2545 diff changeset	6368	text = displayLabel ifTrue:[
1dc3745fc313 do not show the menus label again as fly by help Claus Gittinger <cg@exept.de> parents: 2545 diff changeset	6369	"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	6370	(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	6371	^ nil
1dc3745fc313 do not show the menus label again as fly by help Claus Gittinger <cg@exept.de> parents: 2545 diff changeset	6372	].
2433 49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6373	^ text
2345 8b7b3e384002 fallBack to activeHelpKey and label, if no flyByHelp is Claus Gittinger <cg@exept.de> parents: 2344 diff changeset	6374	!
8b7b3e384002 fallBack to activeHelpKey and label, if no flyByHelp is Claus Gittinger <cg@exept.de> parents: 2344 diff changeset	6375
8b7b3e384002 fallBack to activeHelpKey and label, if no flyByHelp is Claus Gittinger <cg@exept.de> parents: 2344 diff changeset	6376	flyByHelpText:aText
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6377	"exlicitly set the flyBy helpText. For example, to dynamically change it."
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6378
2345 8b7b3e384002 fallBack to activeHelpKey and label, if no flyByHelp is Claus Gittinger <cg@exept.de> parents: 2344 diff changeset	6379	flyByHelpText := aText.
1613 5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	6380	! !
5e23d6be5918 optimize accessing helpText ca parents: 1612 diff changeset	6381
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	6382	!MenuPanel::Item methodsFor:'accessing-look'!
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	6383
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	6384	horizontalLayout
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	6385	"on default submenus has a vertical layout;
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6386	true, the submenu has a horizontal layout."
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6387
2360 aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	6388	^ menuItem horizontalLayout ? false
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	6389	!
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	6390
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	6391	horizontalLayout:aBoolean
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	6392	"on default submenus has a vertical layout;
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6393	true, the submenu has a horizontal layout."
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6394
2360 aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	6395	menuItem horizontalLayout:aBoolean.
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	6396	!
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	6397
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	6398	isButton
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6399	"returns whether the item looks like a Button"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6400
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6401	^ menuItem isButton
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6402	!
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6403
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6404	isButton:aBool
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6405	"set/clear the item to look like a Button"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6406
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6407	menuItem isButton ~~ aBool ifTrue:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6408	menuItem isButton:aBool.
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6409	self invalidate.
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	6410	]
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	6411	!
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	6412
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	6413	layout
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6414	"returns my layout ( Rectangle )"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6415
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	6416	^ layout
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	6417	!
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	6418
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	6419	layout:aLayout
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6420	"set a new layout ( Rectangle )"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6421
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	6422	layout := aLayout.
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	6423	self invalidate.
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	6424	!
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	6425
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	6426	showBusyCursorWhilePerforming
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	6427	"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	6428	while performing the menu action. Defaults to false."
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6429
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6430	^ menuItem showBusyCursorWhilePerforming
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	6431	!
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	6432
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	6433	showBusyCursorWhilePerforming:aBoolean
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	6434	"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	6435	while performing the menu action. Defaults to false."
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6436
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6437	menuItem showBusyCursorWhilePerforming:aBoolean.
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	6438	! !
0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	6439
2504 0ce78a73aacf method category rename Claus Gittinger <cg@exept.de> parents: 2503 diff changeset	6440	!MenuPanel::Item methodsFor:'activation & deactivation'!
1705 201f9ce1b2d2 checkin from browser ca parents: 1704 diff changeset	6441
1786 f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	6442	currentSubmenu
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6443	"returns the current submenu or nil"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6444
1786 f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	6445	^ subMenu
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	6446	!
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	6447
1705 201f9ce1b2d2 checkin from browser ca parents: 1704 diff changeset	6448	hideSubmenu
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6449	"hide submenu"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6450
2199 61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	6451	self hideSubmenu:subMenu.
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	6452	!
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	6453
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	6454	hideSubmenu:aSubmenu
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6455	"hide submenu"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6456
2871 c74f2a6ff335 ugly comments Claus Gittinger <cg@exept.de> parents: 2870 diff changeset	6457	\|id wg\|
1705 201f9ce1b2d2 checkin from browser ca parents: 1704 diff changeset	6458
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	6459	aSubmenu isNil ifTrue:[^ self].
2681 2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	6460	aSubmenu removeDependencies.
2199 61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	6461
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	6462	aSubmenu realized ifFalse:[
2364 c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	6463	id := aSubmenu id.
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	6464	id notNil ifTrue:[ menuPanel device unmapWindow:id ]
2199 61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	6465	] ifTrue:[
2364 c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	6466	aSubmenu hide
2199 61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	6467	].
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	6468
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6469	aSubmenu windowGroup:nil.
2871 c74f2a6ff335 ugly comments Claus Gittinger <cg@exept.de> parents: 2870 diff changeset	6470	(wg := menuPanel windowGroup) notNil ifTrue:[
c74f2a6ff335 ugly comments Claus Gittinger <cg@exept.de> parents: 2870 diff changeset	6471	wg removeView:aSubmenu.
c74f2a6ff335 ugly comments Claus Gittinger <cg@exept.de> parents: 2870 diff changeset	6472	].
2199 61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	6473
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	6474	"/ release menu if derived from channel
2364 c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	6475	(subMenu == aSubmenu and:[menuItem submenuChannel notNil]) ifTrue:[
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	6476	menuItem keepLinkedMenu ifFalse:[
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	6477	subMenu := nil
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	6478	]
2199 61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	6479	].
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	6480	!
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	6481
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	6482	openDelayedSubmenu
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6483	"called to open now my delayed submenu"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6484
3133 dd8417f3373b code cleanup; comments Claus Gittinger <cg@exept.de> parents: 3131 diff changeset	6485	\|subMenuBeforeOpening\|
2199 61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	6486
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	6487	(self isSelected and:[menuPanel shown]) ifFalse:[^ self].
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	6488
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	6489	subMenu notNil ifTrue:[
975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	6490	subMenu realized ifTrue:[
975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	6491	"/ already open
975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	6492	^ self
975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	6493	].
2199 61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	6494	].
3133 dd8417f3373b code cleanup; comments Claus Gittinger <cg@exept.de> parents: 3131 diff changeset	6495	self setupSubmenu.
dd8417f3373b code cleanup; comments Claus Gittinger <cg@exept.de> parents: 3131 diff changeset	6496	subMenu isNil ifTrue:[^ self].
dd8417f3373b code cleanup; comments Claus Gittinger <cg@exept.de> parents: 3131 diff changeset	6497	subMenuBeforeOpening := subMenu.
2199 61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	6498	self openSubmenu.
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	6499
3133 dd8417f3373b code cleanup; comments Claus Gittinger <cg@exept.de> parents: 3131 diff changeset	6500	(subMenuBeforeOpening == subMenu and:[self isSelected]) ifFalse:[
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	6501	"/ closed during building or opening the submenu
3133 dd8417f3373b code cleanup; comments Claus Gittinger <cg@exept.de> parents: 3131 diff changeset	6502	self hideSubmenu:subMenuBeforeOpening.
dd8417f3373b code cleanup; comments Claus Gittinger <cg@exept.de> parents: 3131 diff changeset	6503	].
dd8417f3373b code cleanup; comments Claus Gittinger <cg@exept.de> parents: 3131 diff changeset	6504
dd8417f3373b code cleanup; comments Claus Gittinger <cg@exept.de> parents: 3131 diff changeset	6505	"Modified: / 07-11-2006 / 11:07:57 / cg"
1705 201f9ce1b2d2 checkin from browser ca parents: 1704 diff changeset	6506	!
1701 026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	6507
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	6508	openSubmenu
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	6509	"opens the submenu; make sure, that the submenu and the menPanel
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	6510	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	6511	nescessary."
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6512
3203 97d6c1d7b7d7 get timeStamp from buttonPress and buttonRelease event ca parents: 3192 diff changeset	6513	\|p o device isVertical topMenu windGrp prefExtent lastEvent
1701 026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	6514	devBot "{ Class:SmallInteger }"
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	6515	devRight "{ Class:SmallInteger }"
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	6516	width "{ Class:SmallInteger }"
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	6517	height "{ Class:SmallInteger }"
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	6518	top "{ Class:SmallInteger }"
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	6519	left "{ Class:SmallInteger }"
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	6520	\|
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	6521
1737 c18896a7cb50 replace shown by realized; when opening a submenue-submenue by shortcut key ca parents: 1735 diff changeset	6522	(subMenu notNil and:[subMenu shown not and:[self isSelected and:[menuPanel realized]]]) ifFalse:[
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	6523	^ self
1701 026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	6524	].
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	6525
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	6526	topMenu := menuPanel topMenu.
1829 bd8b95c5bb89 migration fixes Claus Gittinger <cg@exept.de> parents: 1825 diff changeset	6527	(subMenu device notNil and:[topMenu device ~~ subMenu device]) ifTrue:[
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	6528	subMenu releaseDeviceResources.
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	6529	subMenu setDevice:topMenu device id:nil gcId:nil.
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	6530	subMenu recreate.
1829 bd8b95c5bb89 migration fixes Claus Gittinger <cg@exept.de> parents: 1825 diff changeset	6531	].
bd8b95c5bb89 migration fixes Claus Gittinger <cg@exept.de> parents: 1825 diff changeset	6532
1701 026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	6533	windGrp := topMenu windowGroup.
3203 97d6c1d7b7d7 get timeStamp from buttonPress and buttonRelease event ca parents: 3192 diff changeset	6534	windGrp notNil ifTrue:[
97d6c1d7b7d7 get timeStamp from buttonPress and buttonRelease event ca parents: 3192 diff changeset	6535	lastEvent := windGrp lastEvent.
97d6c1d7b7d7 get timeStamp from buttonPress and buttonRelease event ca parents: 3192 diff changeset	6536
97d6c1d7b7d7 get timeStamp from buttonPress and buttonRelease event ca parents: 3192 diff changeset	6537	(lastEvent notNil and:[lastEvent isButtonPressEvent]) ifTrue:[
97d6c1d7b7d7 get timeStamp from buttonPress and buttonRelease event ca parents: 3192 diff changeset	6538	subMenu mapTime:(lastEvent timeStamp).
97d6c1d7b7d7 get timeStamp from buttonPress and buttonRelease event ca parents: 3192 diff changeset	6539	].
97d6c1d7b7d7 get timeStamp from buttonPress and buttonRelease event ca parents: 3192 diff changeset	6540	].
1707 4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6541	subMenu superMenu:menuPanel.
1701 026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	6542	subMenu becomesActiveMenu.
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	6543	subMenu cursor:Cursor hand.
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	6544
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	6545	windGrp notNil ifTrue:[
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	6546	subMenu windowGroup:windGrp.
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	6547	windGrp addTopView:subMenu.
1701 026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	6548	].
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	6549
2111 f3d67f7c0f92 bug fix when opening a menu by mnemonic ca parents: 2100 diff changeset	6550	"Q&D kludge - test whether the layout is nil;
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	6551	if true recompute the layouts
2111 f3d67f7c0f92 bug fix when opening a menu by mnemonic ca parents: 2100 diff changeset	6552	"
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	6553	layout isNil ifTrue:[menuPanel rearrangeItems].
2111 f3d67f7c0f92 bug fix when opening a menu by mnemonic ca parents: 2100 diff changeset	6554
1701 026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	6555	" Q&D kludge - if any visibility attributes are blocks;
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	6556	TODO: only invoke mustRearrange if any are blocks
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	6557	(since I react correctly on valueHolder changes)
1701 026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	6558	"
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	6559	subMenu rearrangeItemsIfItemVisibilityChanged.
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	6560	subMenu fixSize.
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	6561
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	6562	"compute origin of subMenu
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	6563	"
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	6564	isVertical := menuPanel verticalLayout.
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	6565	device := menuPanel device.
1714 b4c05977e9d5 get heigth and width from preferredExtent when open a submenu ca parents: 1710 diff changeset	6566	prefExtent := subMenu preferredExtent.
b4c05977e9d5 get heigth and width from preferredExtent when open a submenu ca parents: 1710 diff changeset	6567	height := prefExtent y.
b4c05977e9d5 get heigth and width from preferredExtent when open a submenu ca parents: 1710 diff changeset	6568	width := prefExtent x.
1701 026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	6569	devBot := device usableHeight.
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	6570	devRight := device usableWidth.
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	6571
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	6572	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	6573
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6574	menuPanel isPopUpView ifTrue:[
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	6575	o := menuPanel origin + p
1707 4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6576	] ifFalse:[
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	6577	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	6578	].
1701 026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	6579	left := o x.
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	6580	top := o y.
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	6581
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	6582	top + height > devBot ifTrue:[
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	6583	top := isVertical ifTrue:[devBot - height]
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	6584	ifFalse:[top - layout height - height + 2]
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	6585	].
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	6586	top := top max:0.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	6587
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	6588	"/ (isVertical not and:[subMenu isVerticalLayout]) ifTrue:[
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	6589	"/ top < menuPanel bottom ifTrue:[
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	6590	"/ left := left + layout width.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	6591	"/ ].
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	6592	"/ left + width > devRight ifTrue:[
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	6593	"/ left := o x - width - 2
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	6594	"/ ].
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	6595	"/ ].
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	6596
1701 026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	6597	left + width > devRight ifTrue:[
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	6598	left := isVertical ifTrue:[left - layout width - width + 2]
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	6599	ifFalse:[devRight - width]
1701 026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	6600	].
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	6601	left := left max:0.
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	6602
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	6603	subMenu origin:(left@top).
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	6604
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	6605	subMenu realized ifFalse:[
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	6606	subMenu realize.
1701 026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	6607	] ifTrue:[
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	6608	topMenu device mapWindow:(subMenu id).
1786 f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	6609	].
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	6610	!
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	6611
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	6612	toggleSubmenuVisibility
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6613	"toggle the visibility of the submenu"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6614
1786 f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	6615	subMenu notNil ifTrue:[
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6616	subMenu shown ifTrue:[^ self hideSubmenu]
1786 f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	6617	] ifFalse:[
3133 dd8417f3373b code cleanup; comments Claus Gittinger <cg@exept.de> parents: 3131 diff changeset	6618	self setupSubmenu.
dd8417f3373b code cleanup; comments Claus Gittinger <cg@exept.de> parents: 3131 diff changeset	6619	subMenu isNil ifTrue:[
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6620	"/ cannot open a submenu
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6621	^ self
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6622	]
1786 f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	6623	].
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	6624	self openSubmenu.
3133 dd8417f3373b code cleanup; comments Claus Gittinger <cg@exept.de> parents: 3131 diff changeset	6625
dd8417f3373b code cleanup; comments Claus Gittinger <cg@exept.de> parents: 3131 diff changeset	6626	"Modified: / 07-11-2006 / 11:06:42 / cg"
1786 f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	6627	!
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	6628
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	6629	visibleSubmenu
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6630	"returns the current visible submenu or nil"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6631
1786 f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	6632	subMenu notNil ifTrue:[
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6633	subMenu shown ifTrue:[^ subMenu].
1786 f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	6634	].
f27f48940f48 change behaviour of cursor/key control and menu actication ca parents: 1785 diff changeset	6635	^ nil
1701 026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	6636	! !
026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	6637
524 d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	6638	!MenuPanel::Item methodsFor:'building'!
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	6639
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	6640	aspectAt:aKey
3092 a1dee282cab7 * empty log message * Claus Gittinger <cg@exept.de> parents: 2972 diff changeset	6641	"returns the value assigned to key or nil"
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6642
524 d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	6643	\|appl value\|
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	6644
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	6645	appl := menuPanel receiver.
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	6646
1219 6a0d677a6fac removed some #isKindOf: calls. Claus Gittinger <cg@exept.de> parents: 1218 diff changeset	6647	(appl isValueModel) ifTrue:[
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6648	^ appl value:aKey
524 d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	6649	].
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	6650
2123 091268558e93 * empty log message * ca parents: 2118 diff changeset	6651	appl isNil ifTrue:[
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6652	appl := menuPanel application.
2123 091268558e93 * empty log message * ca parents: 2118 diff changeset	6653	].
091268558e93 * empty log message * ca parents: 2118 diff changeset	6654	appl isNil ifTrue:[ ^ nil].
091268558e93 * empty log message * ca parents: 2118 diff changeset	6655
091268558e93 * empty log message * ca parents: 2118 diff changeset	6656	MessageNotUnderstood handle:[:ex\|
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6657	ex selector == aKey ifFalse:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6658	ex reject
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6659	].
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6660	self ifNotInUIBuilderInfoPrintCR:
2771 3328da9f3df8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2770 diff changeset	6661	('MenuPanel::Item [info]: application (%1) does not provide aspect: %2'
3328da9f3df8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2770 diff changeset	6662	bindWith:appl classNameWithArticle with:aKey).
2123 091268558e93 * empty log message * ca parents: 2118 diff changeset	6663	] do:[
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6664	aKey numArgs == 1 ifTrue:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6665	value := appl perform:aKey with:(menuItem argument ? self).
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6666	] ifFalse:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6667	(appl respondsTo:#aspectFor:) ifTrue:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6668	value := appl aspectFor:aKey
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6669	] ifFalse:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6670	value := appl perform:aKey
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6671	]
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6672	]
524 d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	6673	].
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	6674	^ value
1029 c9e90585fa89 only ignore messageNotUnderstood for my aspects. Claus Gittinger <cg@exept.de> parents: 1026 diff changeset	6675
3092 a1dee282cab7 * empty log message * Claus Gittinger <cg@exept.de> parents: 2972 diff changeset	6676	"Modified: / 05-10-2006 / 03:10:20 / cg"
524 d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	6677	! !
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	6678
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	6679	!MenuPanel::Item methodsFor:'change & update'!
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	6680
2614 86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	6681	fontChanged
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6682	"called whenever the font changed"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6683
2614 86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	6684	displayLabel notNil ifTrue:[
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	6685	displayLabelExtent := nil.
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	6686
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	6687	subMenu notNil ifTrue:[
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	6688	subMenu font:(menuPanel font).
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	6689	].
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	6690	].
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	6691	!
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	6692
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6693	update:something with:aParameter from:changedObject
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6694
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6695	\|form rect\|
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6696
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6697	(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	6698
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6699	self isSeparator ifFalse:[
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6700	"/ NOT A SEPARATOR
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6701
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6702	menuPanel shown ifTrue:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6703	changedObject == enableChannel ifTrue:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6704	(enableChannel value == false and:[self isSelected]) ifTrue:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6705	^ menuPanel selection:nil.
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6706	].
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6707	^ self invalidate
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6708	].
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6709
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6710	(changedObject == indication or:[changedObject == choice]) ifTrue:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6711	menuItem isButton ifTrue:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6712	self invalidate
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6713	] ifFalse:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6714	"/ invalidate the interactor only
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6715	"/ take any interactor; interactors has the same extent
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6716	form := menuPanel iconIndicationOff.
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6717
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6718	rect := Rectangle left:(layout left + HorizontalInset)
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6719	top:(layout top)
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6720	width:(form width)
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6721	height:(layout height).
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6722
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6723	menuPanel invalidate:rect repairNow:false
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6724	].
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6725	^ self
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6726	].
2855 c7f3481ff14a redraw when a valueHolder changes. Claus Gittinger <cg@exept.de> parents: 2844 diff changeset	6727	self invalidate.
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6728	].
498 b4c341497621 bug fixes: ca parents: 475 diff changeset	6729	].
712 4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	6730
4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	6731	changedObject == isVisible ifTrue:[
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6732	menuPanel mustRearrange.
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6733	menuPanel rearrangeItems.
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6734	^ self.
712 4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	6735	].
4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	6736
498 b4c341497621 bug fixes: ca parents: 475 diff changeset	6737	super update:something with:aParameter from:changedObject
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	6738	!
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	6739
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	6740	updateIndicators
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6741	"update indicators "
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6742
2934 b4ec1cbb3302 * empty log message * Claus Gittinger <cg@exept.de> parents: 2926 diff changeset	6743	indication notNil ifTrue:[
b4ec1cbb3302 * empty log message * Claus Gittinger <cg@exept.de> parents: 2926 diff changeset	6744	(indication isSymbol
b4ec1cbb3302 * empty log message * Claus Gittinger <cg@exept.de> parents: 2926 diff changeset	6745	or:[menuItem hideMenuOnActivated not])
b4ec1cbb3302 * empty log message * Claus Gittinger <cg@exept.de> parents: 2926 diff changeset	6746	ifTrue:[
b4ec1cbb3302 * empty log message * Claus Gittinger <cg@exept.de> parents: 2926 diff changeset	6747	"indication is a selector;
b4ec1cbb3302 * empty log message * Claus Gittinger <cg@exept.de> parents: 2926 diff changeset	6748	otherwise no need to redraw, because
b4ec1cbb3302 * empty log message * Claus Gittinger <cg@exept.de> parents: 2926 diff changeset	6749	a change notification is raised from the model !!!!"
b4ec1cbb3302 * empty log message * Claus Gittinger <cg@exept.de> parents: 2926 diff changeset	6750	self update:nil with:nil from:indication
b4ec1cbb3302 * empty log message * Claus Gittinger <cg@exept.de> parents: 2926 diff changeset	6751	]
1074 25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	6752	]
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	6753	! !
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	6754
388 dce33f8bb806 intitial checkin ca parents: diff changeset	6755	!MenuPanel::Item methodsFor:'converting'!
dce33f8bb806 intitial checkin ca parents: diff changeset	6756
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	6757	asMenuItem
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6758	"convert to a MenuItem"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6759
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6760	^ menuItem
388 dce33f8bb806 intitial checkin ca parents: diff changeset	6761	!
dce33f8bb806 intitial checkin ca parents: diff changeset	6762
2827 139c1089bcb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 2826 diff changeset	6763	menuItem
139c1089bcb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 2826 diff changeset	6764	^ menuItem
139c1089bcb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 2826 diff changeset	6765	!
139c1089bcb6 * empty log message * Claus Gittinger <cg@exept.de> parents: 2826 diff changeset	6766
388 dce33f8bb806 intitial checkin ca parents: diff changeset	6767	menuItem:aMenuItem
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6768	"setup attributes from a MenuItem"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6769
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6770	\|lbl\|
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	6771
388 dce33f8bb806 intitial checkin ca parents: diff changeset	6772	menuPanel disabledRedrawDo:[
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6773	menuItem := aMenuItem.
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6774	menuItem isNil ifTrue:[ menuItem := MenuItem new].
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6775
2433 49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6776	label := displayLabel := activeHelpText := nil.
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6777
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6778	self enabled:(menuItem enabled).
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6779	self indication:(menuItem indication).
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6780	self choice:(menuItem choice).
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6781	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	6782
2855 c7f3481ff14a redraw when a valueHolder changes. Claus Gittinger <cg@exept.de> parents: 2844 diff changeset	6783	"/ 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	6784	"/ but ... ??
2855 c7f3481ff14a redraw when a valueHolder changes. Claus Gittinger <cg@exept.de> parents: 2844 diff changeset	6785
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6786	(lbl := menuItem labelImage value) isNil ifTrue:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6787	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	6788	].
a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	6789
2364 c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	6790	self submenu:(menuItem submenu).
2326 a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	6791	self label:lbl.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	6792	]
1033 9badc22e3d03 oops &'s where eliminated twice - leading to double &'s Claus Gittinger <cg@exept.de> parents: 1032 diff changeset	6793
1090 cf3d9f5648da only draw with enteredLevel, if item is enabled Claus Gittinger <cg@exept.de> parents: 1083 diff changeset	6794	"Modified: / 22.8.1998 / 15:34:16 / cg"
388 dce33f8bb806 intitial checkin ca parents: diff changeset	6795	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	6796
2681 2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	6797	!MenuPanel::Item methodsFor:'dependents access'!
2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	6798
2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	6799	addDependencies
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6800	"add all dependencies"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6801
2681 2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	6802	enableChannel isValueModel ifTrue:[enableChannel addDependent:self].
2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	6803	isVisible isValueModel ifTrue:[isVisible addDependent:self].
2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	6804	indication isValueModel ifTrue:[indication addDependent:self].
2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	6805	choice isValueModel ifTrue:[choice addDependent:self].
2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	6806	!
2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	6807
2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	6808	removeDependencies
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6809	"remove all dependencies"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6810
2681 2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	6811	enableChannel isValueModel ifTrue:[enableChannel removeDependent:self].
2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	6812	isVisible isValueModel ifTrue:[isVisible removeDependent:self].
2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	6813	indication isValueModel ifTrue:[indication removeDependent:self].
2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	6814	choice isValueModel ifTrue:[choice removeDependent:self].
2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	6815	! !
2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	6816
388 dce33f8bb806 intitial checkin ca parents: diff changeset	6817	!MenuPanel::Item methodsFor:'drawing'!
dce33f8bb806 intitial checkin ca parents: diff changeset	6818
2768 9c79a348a443 * empty log message * Claus Gittinger <cg@exept.de> parents: 2761 diff changeset	6819	choiceForm
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6820	"returns choice form or nil"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6821
2768 9c79a348a443 * empty log message * Claus Gittinger <cg@exept.de> parents: 2761 diff changeset	6822	\|isOn\|
9c79a348a443 * empty log message * Claus Gittinger <cg@exept.de> parents: 2761 diff changeset	6823
9c79a348a443 * empty log message * Claus Gittinger <cg@exept.de> parents: 2761 diff changeset	6824	choice isNil ifTrue:[^ nil].
9c79a348a443 * empty log message * Claus Gittinger <cg@exept.de> parents: 2761 diff changeset	6825
9c79a348a443 * empty log message * Claus Gittinger <cg@exept.de> parents: 2761 diff changeset	6826	isOn := (choice value = menuItem choiceValue).
9c79a348a443 * empty log message * Claus Gittinger <cg@exept.de> parents: 2761 diff changeset	6827	self enabled ifFalse:[
9c79a348a443 * empty log message * Claus Gittinger <cg@exept.de> parents: 2761 diff changeset	6828	^ isOn ifTrue:[menuPanel iconRadioGroupDisabledOn]
9c79a348a443 * empty log message * Claus Gittinger <cg@exept.de> parents: 2761 diff changeset	6829	ifFalse:[menuPanel iconRadioGroupDisabledOff]
9c79a348a443 * empty log message * Claus Gittinger <cg@exept.de> parents: 2761 diff changeset	6830	].
3565 8147249b4aa6 better icons Claus Gittinger <cg@exept.de> parents: 3561 diff changeset	6831	self isSelected ifTrue:[
8147249b4aa6 better icons Claus Gittinger <cg@exept.de> parents: 3561 diff changeset	6832	^ isOn == true
8147249b4aa6 better icons Claus Gittinger <cg@exept.de> parents: 3561 diff changeset	6833	ifTrue:[menuPanel iconRadioGroupEnteredOn]
8147249b4aa6 better icons Claus Gittinger <cg@exept.de> parents: 3561 diff changeset	6834	ifFalse:[menuPanel iconRadioGroupEnteredOff]
8147249b4aa6 better icons Claus Gittinger <cg@exept.de> parents: 3561 diff changeset	6835	].
2768 9c79a348a443 * empty log message * Claus Gittinger <cg@exept.de> parents: 2761 diff changeset	6836	^ isOn ifTrue:[menuPanel iconRadioGroupOn]
9c79a348a443 * empty log message * Claus Gittinger <cg@exept.de> parents: 2761 diff changeset	6837	ifFalse:[menuPanel iconRadioGroupOff]
9c79a348a443 * empty log message * Claus Gittinger <cg@exept.de> parents: 2761 diff changeset	6838	!
9c79a348a443 * empty log message * Claus Gittinger <cg@exept.de> parents: 2761 diff changeset	6839
2485 b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6840	draw
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6841	"redraw this item"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6842
2485 b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6843	\|isSelected ownBgCol paint bgColor
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6844	x "{ Class:SmallInteger }"
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6845	y "{ Class:SmallInteger }"
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6846	w "{ Class:SmallInteger }"
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6847	h "{ Class:SmallInteger }"
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6848	\|
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6849
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6850	self isVisible ifFalse:[^ self].
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6851
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6852	self isSeparator ifTrue:[
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6853	self drawSeparator.
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6854	^ self
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6855	].
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6856	menuItem isButton ifTrue:[
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6857	self drawButton.
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6858	^ self
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6859	].
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6860
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6861	"/ DRAW A LABELED ENTRY; no button, no separator
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6862
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6863	isSelected := self isSelected.
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6864	bgColor := menuPanel backgroundColor.
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6865	paint := isSelected
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6866	ifTrue:[self activeBackgroundColor]
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6867	ifFalse:[
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6868	(self isEnabled and:[ self isEntered ]) ifTrue:[
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6869	menuPanel enteredBackgroundColor
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6870	] ifFalse:[
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6871	bgColor
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6872	]].
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6873
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6874	(ownBgCol := self backgroundColorFromLabel) notNil ifTrue:[
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6875	paint := ownBgCol
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6876	].
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6877
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6878	paint ~= bgColor ifTrue:[
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6879	menuPanel paint:paint.
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6880	menuPanel fillRectangle:layout.
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6881	].
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6882
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6883	menuPanel showSeparatingLines ifTrue:[
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6884	self drawSeparatingLines
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6885	].
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6886
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6887	self drawLabel.
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6888
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6889	(ownBgCol notNil and:[isSelected]) ifTrue:[
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6890	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	6891	ifFalse:[menuPanel paint: menuPanel selectionFrameBrightColor].
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6892
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6893	x := layout left.
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6894	y := layout top.
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6895	w := layout width.
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6896	h := layout height.
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6897
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6898	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	6899	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	6900	].
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6901	menuPanel drawLabelEdgeFor:self selected:isSelected.
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6902	!
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	6903
1707 4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6904	drawButton
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6905	"draw as button"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6906
2362 7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6907	\|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	6908	x "{ Class:SmallInteger }"
2143 7b99a7348c97 draw label shifted right-down when pressed penk parents: 2142 diff changeset	6909	y "{ Class:SmallInteger }"
1707 4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6910	\|
2433 49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	6911	drawObject := displayLabel.
2362 7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6912	isEnabled := self enabled.
2159 1eac041aeb3d toggle button draw & behavior Claus Gittinger <cg@exept.de> parents: 2145 diff changeset	6913	isSelected := self isSelected.
2362 7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6914
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6915	isSelected ifFalse:[
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6916	"/ test whether button has pressed toggle behaviour
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6917	showSelected := (self isToggle and:[self indicationValue]).
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6918	] ifTrue:[
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6919	showSelected := isSelected
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6920	].
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6921
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6922	showSelected ifTrue:[
1707 4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6923	bg := self activeBackgroundColor.
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6924	fg := self activeForegroundColor.
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6925	] ifFalse:[
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6926	self isEntered ifTrue:[
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6927	bg := self buttonEnteredBackgroundColor
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6928	] ifFalse:[
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6929	bg := self backgroundColor
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6930	].
2059 c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6931	isEnabled ifTrue:[
1707 4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6932	fg := menuPanel foregroundColor
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6933	] ifFalse:[
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6934	fg := menuPanel disabledForegroundColor.
2059 c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6935	etchFg := menuPanel disabledEtchedForegroundColor.
1707 4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6936	drawObject := self disabledRawLabel
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6937	]
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6938	].
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6939
1708 cfaf55b9043d bug fix in background color of button when derives from label(text) ca parents: 1707 diff changeset	6940	(ownBgCol := self backgroundColorFromLabel) notNil ifTrue:[
cfaf55b9043d bug fix in background color of button when derives from label(text) ca parents: 1707 diff changeset	6941	bg := ownBgCol
cfaf55b9043d bug fix in background color of button when derives from label(text) ca parents: 1707 diff changeset	6942	].
cfaf55b9043d bug fix in background color of button when derives from label(text) ca parents: 1707 diff changeset	6943
1707 4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6944	"DRAW BACKGROUND"
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6945	bg ~= menuPanel backgroundColor ifTrue:[
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6946	menuPanel paint:bg.
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6947	menuPanel fillRectangle:layout.
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6948	].
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6949
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6950	x := layout left + menuPanel buttonPassiveLevel + HorizontalButtonInset.
2362 7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6951
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6952	(drawObject isImage and:[menuPanel centerItems]) ifTrue:[
2337 7f384db88273 centerItems attribute Claus Gittinger <cg@exept.de> parents: 2332 diff changeset	6953	x := x + (layout width - menuPanel buttonPassiveLevel - HorizontalButtonInset - 1 - drawObject width // 2).
7f384db88273 centerItems attribute Claus Gittinger <cg@exept.de> parents: 2332 diff changeset	6954	].
1707 4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6955
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6956	isSelected ifFalse:[
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6957	"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	6958
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6959	indication notNil ifTrue:[
1707 4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6960	"button is indicator and set"
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6961	isSelected := self indicationValue
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	6962	] ifFalse:[
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	6963	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	6964	]
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6965	].
2143 7b99a7348c97 draw label shifted right-down when pressed penk parents: 2142 diff changeset	6966	y := 0.
1707 4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6967
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6968	isSelected ifTrue:[
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6969	level := menuPanel buttonActiveLevel.
2142 ea2a32738005 pressed button label only shifted by one pixel penk parents: 2141 diff changeset	6970	x := x + 1 "level abs".
2143 7b99a7348c97 draw label shifted right-down when pressed penk parents: 2142 diff changeset	6971	y := y + 1 "level abs".
1707 4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6972	] ifFalse:[
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6973	level := self isEntered ifTrue:[menuPanel buttonEnteredLevel]
2219 93426020ceed * empty log message * ca parents: 2216 diff changeset	6974	ifFalse:[menuPanel buttonPassiveLevel].
2059 c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6975	].
c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	6976
2817 805bb3b2ef28 * empty log message * Claus Gittinger <cg@exept.de> parents: 2793 diff changeset	6977	drawObject notEmptyOrNil ifTrue:[
2362 7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6978	etchFg notNil ifTrue:[
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6979	self drawRawLabel:drawObject atX:x+1 yOffset:y+1 paint:etchFg.
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6980	].
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6981	self drawRawLabel:drawObject atX:x yOffset:y+0 paint:fg.
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	6982	].
2344 d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6983	self drawMenuIndicator.
1707 4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6984
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6985	level ~~ 0 ifTrue:[
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6986	menuPanel drawButtonEdgesFor:self level:level
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6987	].
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6988	!
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	6989
2344 d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6990	drawLabel
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6991	"draw a labeled entry; no button, no separator."
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	6992
2344 d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6993	\|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	6994	isSelected isEnabled form
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6995	h "{ Class:SmallInteger }"
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6996	y "{ Class:SmallInteger }"
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6997	x "{ Class:SmallInteger }"
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6998	t "{ Class:SmallInteger }"
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	6999	\|
2433 49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	7000	drawObject := displayLabel.
2362 7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	7001	isEnabled := self enabled.
2344 d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	7002	isSelected := self isSelected.
2362 7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	7003
2344 d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	7004	isSelected ifTrue:[
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	7005	fg := self activeForegroundColor
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	7006	] ifFalse:[
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	7007	isEnabled ifTrue:[
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	7008	self isEntered ifTrue:[
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	7009	fg := menuPanel enteredForegroundColor
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	7010	] ifFalse:[
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	7011	fg := menuPanel foregroundColor
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	7012	]
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	7013	] ifFalse:[
2362 7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	7014	fg := menuPanel disabledForegroundColor.
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	7015	etchFg := menuPanel disabledEtchedForegroundColor.
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	7016	drawObject := self disabledRawLabel
2344 d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	7017	]
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	7018	].
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	7019
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	7020	h := layout height.
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	7021	x := layout left + HorizontalInset.
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	7022	t := layout top.
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	7023
3131 611b833f2ac9 * empty log message * ca parents: 3128 diff changeset	7024	( (form := self indicatorForm) notNil
611b833f2ac9 * empty log message * ca parents: 3128 diff changeset	7025	or:[(form := self choiceForm) notNil]
611b833f2ac9 * empty log message * ca parents: 3128 diff changeset	7026	) ifTrue:[
2344 d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	7027	y := t + ((h - form height) // 2).
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	7028	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	7029	].
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	7030
2817 805bb3b2ef28 * empty log message * Claus Gittinger <cg@exept.de> parents: 2793 diff changeset	7031	drawObject notEmptyOrNil ifTrue:[
3131 611b833f2ac9 * empty log message * ca parents: 3128 diff changeset	7032	x := x + (menuPanel stringOffsetXfor:self).
611b833f2ac9 * empty log message * ca parents: 3128 diff changeset	7033
2362 7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	7034	etchFg notNil ifTrue:[
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	7035	self drawRawLabel:drawObject atX:x+1 yOffset:1 paint:etchFg.
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	7036	].
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	7037	self drawRawLabel:drawObject atX:x yOffset:0 paint:fg.
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	7038	].
2344 d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	7039	self drawMenuIndicator.
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	7040
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	7041	"/ DRAW SHORTCUT KEY
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7042	( menuItem shortcutKey notNil
2344 d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	7043	and:[(x := menuPanel shortKeyInset) ~~ 0
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	7044	and:[(scKey:= self shortcutKeyAsString) notNil]]
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	7045	) ifTrue:[
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	7046	x := layout left + x.
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	7047	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	7048	y := y + menuPanel font ascent.
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	7049	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	7050	].
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	7051
3403 e7e2d3ba54b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 3402 diff changeset	7052	"/ DRAW SUBMENU INDICATION (if a vertical menu with submenu)
e7e2d3ba54b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 3402 diff changeset	7053	(menuPanel isVerticalLayout and:[self hasSubmenu]) ifTrue:[
e7e2d3ba54b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 3402 diff changeset	7054	arrow := menuPanel rightArrow.
e7e2d3ba54b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 3402 diff changeset	7055	x := layout right - arrow width - HorizontalInset.
e7e2d3ba54b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 3402 diff changeset	7056	y := t + ((h - arrow height) // 2).
e7e2d3ba54b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 3402 diff changeset	7057
e7e2d3ba54b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 3402 diff changeset	7058	(menuPanel styleSheet is3D not
e7e2d3ba54b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 3402 diff changeset	7059	or:[(drawObject := menuPanel rightArrowShadow) isNil]) ifTrue:[
e7e2d3ba54b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 3402 diff changeset	7060	menuPanel displayForm:arrow x:x y:y.
e7e2d3ba54b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 3402 diff changeset	7061	] ifFalse:[
e7e2d3ba54b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 3402 diff changeset	7062	cLa := menuPanel shadowColor.
e7e2d3ba54b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 3402 diff changeset	7063	cLb := menuPanel lightColor.
e7e2d3ba54b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 3402 diff changeset	7064
e7e2d3ba54b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 3402 diff changeset	7065	isSelected ifFalse:[
e7e2d3ba54b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 3402 diff changeset	7066	fg := cLa.
e7e2d3ba54b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 3402 diff changeset	7067	cLa := cLb.
e7e2d3ba54b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 3402 diff changeset	7068	cLb := fg
e7e2d3ba54b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 3402 diff changeset	7069	].
e7e2d3ba54b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 3402 diff changeset	7070	menuPanel paint:cLa.
e7e2d3ba54b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 3402 diff changeset	7071	menuPanel displayForm:arrow x:x y:y.
e7e2d3ba54b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 3402 diff changeset	7072	menuPanel paint:cLb.
e7e2d3ba54b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 3402 diff changeset	7073	menuPanel displayForm:drawObject x:x y:y.
e7e2d3ba54b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 3402 diff changeset	7074	].
e7e2d3ba54b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 3402 diff changeset	7075	].
2344 d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	7076
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	7077	"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	7078	!
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	7079
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	7080	drawMenuIndicator
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7081	"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	7082
3411 a7a58a10cdcd extra menu-indicator click behavior Claus Gittinger <cg@exept.de> parents: 3403 diff changeset	7083	\|x y icon bAbsLevel verticalPosition\|
a7a58a10cdcd extra menu-indicator click behavior Claus Gittinger <cg@exept.de> parents: 3403 diff changeset	7084
a7a58a10cdcd extra menu-indicator click behavior Claus Gittinger <cg@exept.de> parents: 3403 diff changeset	7085	icon := self menuIndicatorIcon.
a7a58a10cdcd extra menu-indicator click behavior Claus Gittinger <cg@exept.de> parents: 3403 diff changeset	7086	icon isNil ifTrue:[
a7a58a10cdcd extra menu-indicator click behavior Claus Gittinger <cg@exept.de> parents: 3403 diff changeset	7087	^ self
2344 d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	7088	].
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	7089
2214 8eefad87cf62 drawing delayed menu indicators... first try not yet finished ca parents: 2199 diff changeset	7090	x := layout right - icon width.
3411 a7a58a10cdcd extra menu-indicator click behavior Claus Gittinger <cg@exept.de> parents: 3403 diff changeset	7091	verticalPosition := menuPanel menuIndicatorVerticalPosition.
a7a58a10cdcd extra menu-indicator click behavior Claus Gittinger <cg@exept.de> parents: 3403 diff changeset	7092	verticalPosition == #center ifTrue:[
a7a58a10cdcd extra menu-indicator click behavior Claus Gittinger <cg@exept.de> parents: 3403 diff changeset	7093	y := (layout height - icon height) // 2 + layout top.
2220 5ea0ceb20354 delayed submenu indicator Claus Gittinger <cg@exept.de> parents: 2219 diff changeset	7094	] ifFalse:[
3411 a7a58a10cdcd extra menu-indicator click behavior Claus Gittinger <cg@exept.de> parents: 3403 diff changeset	7095	verticalPosition == #top ifTrue:[
a7a58a10cdcd extra menu-indicator click behavior Claus Gittinger <cg@exept.de> parents: 3403 diff changeset	7096	y := layout top + 2.
a7a58a10cdcd extra menu-indicator click behavior Claus Gittinger <cg@exept.de> parents: 3403 diff changeset	7097	] ifFalse:[
a7a58a10cdcd extra menu-indicator click behavior Claus Gittinger <cg@exept.de> parents: 3403 diff changeset	7098	y := layout bottom - icon height - 2.
a7a58a10cdcd extra menu-indicator click behavior Claus Gittinger <cg@exept.de> parents: 3403 diff changeset	7099	]
2220 5ea0ceb20354 delayed submenu indicator Claus Gittinger <cg@exept.de> parents: 2219 diff changeset	7100	].
5ea0ceb20354 delayed submenu indicator Claus Gittinger <cg@exept.de> parents: 2219 diff changeset	7101
5ea0ceb20354 delayed submenu indicator Claus Gittinger <cg@exept.de> parents: 2219 diff changeset	7102	bAbsLevel := 0.
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7103	menuItem isButton ifTrue:[
2220 5ea0ceb20354 delayed submenu indicator Claus Gittinger <cg@exept.de> parents: 2219 diff changeset	7104	self isSelected ifTrue:[
5ea0ceb20354 delayed submenu indicator Claus Gittinger <cg@exept.de> parents: 2219 diff changeset	7105	x := x + 1.
5ea0ceb20354 delayed submenu indicator Claus Gittinger <cg@exept.de> parents: 2219 diff changeset	7106	y := y + 1.
5ea0ceb20354 delayed submenu indicator Claus Gittinger <cg@exept.de> parents: 2219 diff changeset	7107	].
5ea0ceb20354 delayed submenu indicator Claus Gittinger <cg@exept.de> parents: 2219 diff changeset	7108	bAbsLevel := menuPanel maxAbsoluteButtonLevel.
5ea0ceb20354 delayed submenu indicator Claus Gittinger <cg@exept.de> parents: 2219 diff changeset	7109	x := x - bAbsLevel.
5ea0ceb20354 delayed submenu indicator Claus Gittinger <cg@exept.de> parents: 2219 diff changeset	7110	y := y - bAbsLevel.
5ea0ceb20354 delayed submenu indicator Claus Gittinger <cg@exept.de> parents: 2219 diff changeset	7111	].
5ea0ceb20354 delayed submenu indicator Claus Gittinger <cg@exept.de> parents: 2219 diff changeset	7112	x := x - 1 "- HorizontalInset".
5ea0ceb20354 delayed submenu indicator Claus Gittinger <cg@exept.de> parents: 2219 diff changeset	7113
5ea0ceb20354 delayed submenu indicator Claus Gittinger <cg@exept.de> parents: 2219 diff changeset	7114	(self isEnabled "and:[self delayedMenuIsEnabled]") ifFalse:[
5ea0ceb20354 delayed submenu indicator Claus Gittinger <cg@exept.de> parents: 2219 diff changeset	7115	icon := menuPanel lightenedImageOnDevice:icon
2214 8eefad87cf62 drawing delayed menu indicators... first try not yet finished ca parents: 2199 diff changeset	7116	].
8eefad87cf62 drawing delayed menu indicators... first try not yet finished ca parents: 2199 diff changeset	7117	icon displayOn:menuPanel x:x y:y.
2220 5ea0ceb20354 delayed submenu indicator Claus Gittinger <cg@exept.de> parents: 2219 diff changeset	7118
3411 a7a58a10cdcd extra menu-indicator click behavior Claus Gittinger <cg@exept.de> parents: 3403 diff changeset	7119	(menuPanel drawMenuIndicatorSeparatorLine
a7a58a10cdcd extra menu-indicator click behavior Claus Gittinger <cg@exept.de> parents: 3403 diff changeset	7120	and:[ self isEntered
a7a58a10cdcd extra menu-indicator click behavior Claus Gittinger <cg@exept.de> parents: 3403 diff changeset	7121	and:[ menuPanel buttonEnteredLevel ~~ 0] ])
2761 611ecd331c14 more xp style Claus Gittinger <cg@exept.de> parents: 2755 diff changeset	7122	ifTrue:[
2220 5ea0ceb20354 delayed submenu indicator Claus Gittinger <cg@exept.de> parents: 2219 diff changeset	7123	menuPanel paint:menuPanel buttonShadowColor.
5ea0ceb20354 delayed submenu indicator Claus Gittinger <cg@exept.de> parents: 2219 diff changeset	7124	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	7125	menuPanel paint:menuPanel buttonLightColor.
5ea0ceb20354 delayed submenu indicator Claus Gittinger <cg@exept.de> parents: 2219 diff changeset	7126	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	7127	].
2214 8eefad87cf62 drawing delayed menu indicators... first try not yet finished ca parents: 2199 diff changeset	7128	!
8eefad87cf62 drawing delayed menu indicators... first try not yet finished ca parents: 2199 diff changeset	7129
2059 c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	7130	drawRawLabel:aLabel atX:x yOffset:yOffset paint:fg
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7131	"draw a labeled entry; no button, no separator."
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7132
3486 c54b6691e60e variable naming Stefan Vogel <sv@exept.de> parents: 3457 diff changeset	7133	\|oldFont labelExtent
1727 a6365337be59 support setting font in MenuPanel and Editor ca parents: 1726 diff changeset	7134	y "{ Class:SmallInteger }"
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	7135	y0 "{ Class:SmallInteger }"
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	7136	x0 "{ Class:SmallInteger }"
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	7137	\|
2059 c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	7138
3486 c54b6691e60e variable naming Stefan Vogel <sv@exept.de> parents: 3457 diff changeset	7139	oldFont := menuPanel setFont:(self font).
2485 b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	7140	"/ fontAscent := menuPanel font ascent.
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	7141	menuPanel paint:fg.
2614 86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	7142	labelExtent := self displayLabelExtent.
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	7143
86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	7144	y := layout top + (layout height - labelExtent y // 2) + yOffset.
2337 7f384db88273 centerItems attribute Claus Gittinger <cg@exept.de> parents: 2332 diff changeset	7145	"/ menuPanel centerItems ifTrue:[self halt].
3454 baefcb629718 Remove string specific acent handling instead of the generic #ascentOn: approach. Stefan Vogel <sv@exept.de> parents: 3447 diff changeset	7146	aLabel isArray ifFalse:[
baefcb629718 Remove string specific acent handling instead of the generic #ascentOn: approach. Stefan Vogel <sv@exept.de> parents: 3447 diff changeset	7147	\|printLabel\|
baefcb629718 Remove string specific acent handling instead of the generic #ascentOn: approach. Stefan Vogel <sv@exept.de> parents: 3447 diff changeset	7148
2675 7a090a030736 bugfix when drawing Text with #backgroundColor (see ColorMenu) ca parents: 2659 diff changeset	7149	aLabel isText ifTrue:[
3454 baefcb629718 Remove string specific acent handling instead of the generic #ascentOn: approach. Stefan Vogel <sv@exept.de> parents: 3447 diff changeset	7150	"/ background of label has already been drawn
2675 7a090a030736 bugfix when drawing Text with #backgroundColor (see ColorMenu) ca parents: 2659 diff changeset	7151	printLabel := aLabel withoutEmphasis:#backgroundColor.
7a090a030736 bugfix when drawing Text with #backgroundColor (see ColorMenu) ca parents: 2659 diff changeset	7152	] ifFalse:[
7a090a030736 bugfix when drawing Text with #backgroundColor (see ColorMenu) ca parents: 2659 diff changeset	7153	printLabel := aLabel.
7a090a030736 bugfix when drawing Text with #backgroundColor (see ColorMenu) ca parents: 2659 diff changeset	7154	].
3454 baefcb629718 Remove string specific acent handling instead of the generic #ascentOn: approach. Stefan Vogel <sv@exept.de> parents: 3447 diff changeset	7155	y := y + (printLabel ascentOn:menuPanel).
2675 7a090a030736 bugfix when drawing Text with #backgroundColor (see ColorMenu) ca parents: 2659 diff changeset	7156	printLabel displayOn:menuPanel x:x y:y.
1727 a6365337be59 support setting font in MenuPanel and Editor ca parents: 1726 diff changeset	7157	] ifTrue:[
2337 7f384db88273 centerItems attribute Claus Gittinger <cg@exept.de> parents: 2332 diff changeset	7158	aLabel do:[:el\|
7f384db88273 centerItems attribute Claus Gittinger <cg@exept.de> parents: 2332 diff changeset	7159	el notNil ifTrue:[
2485 b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	7160	y0 := y + (el ascentOn:menuPanel).
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	7161	"/ el isImageOrForm ifFalse:[
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	7162	"/ y0 := y + fontAscent
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	7163	"/ ] ifTrue:[
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	7164	"/ y0 := y
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	7165	"/ ].
2614 86086fc6a99c bugfix: adapt extents if font changed ca parents: 2611 diff changeset	7166	x0 := x + (labelExtent x - (el widthOn:menuPanel) // 2).
2337 7f384db88273 centerItems attribute Claus Gittinger <cg@exept.de> parents: 2332 diff changeset	7167	el displayOn:menuPanel x:x0 y:y0.
7f384db88273 centerItems attribute Claus Gittinger <cg@exept.de> parents: 2332 diff changeset	7168	y := y + 1 + (el heightOn:menuPanel)
7f384db88273 centerItems attribute Claus Gittinger <cg@exept.de> parents: 2332 diff changeset	7169	] ifFalse:[
2485 b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	7170	y := y + (self spaceBetweenEmptyLines)
2337 7f384db88273 centerItems attribute Claus Gittinger <cg@exept.de> parents: 2332 diff changeset	7171	]
7f384db88273 centerItems attribute Claus Gittinger <cg@exept.de> parents: 2332 diff changeset	7172	].
1727 a6365337be59 support setting font in MenuPanel and Editor ca parents: 1726 diff changeset	7173	].
3486 c54b6691e60e variable naming Stefan Vogel <sv@exept.de> parents: 3457 diff changeset	7174	menuPanel setFont:oldFont
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	7175	!
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	7176
1707 4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	7177	drawSeparatingLines
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7178	"draw separating lines"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7179
2059 c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	7180	\|myIndex lfSep rtSep items prevItem nextItem
c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	7181	lightColor shadowColor
1707 4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	7182	l "{ Class:SmallInteger }"
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	7183	t "{ Class:SmallInteger }"
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	7184	r "{ Class:SmallInteger }"
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	7185	b "{ Class:SmallInteger }"
706 d716edbdbe47 show separators bug cleaned tz parents: 689 diff changeset	7186	\|
2059 c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	7187
1707 4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	7188	items := menuPanel items.
2059 c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	7189	myIndex := items identityIndexOf:self.
c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	7190
c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	7191	prevItem := items at:(myIndex - 1) ifAbsent:nil.
c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	7192	lfSep := prevItem notNil and:[prevItem isButton not].
c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	7193
c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	7194	nextItem := items at:(myIndex + 1) ifAbsent:nil.
c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	7195	rtSep := nextItem notNil and:[nextItem isButton not].
c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	7196
c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	7197	(lfSep or:[rtSep]) ifFalse:[
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7198	^ self
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	7199	].
2059 c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	7200
c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	7201	lightColor := menuPanel lightColor.
c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	7202	shadowColor := menuPanel shadowColor.
c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	7203
c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	7204	menuPanel paint:lightColor.
1707 4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	7205
608 0d8d910768af use default font derived from style ca parents: 601 diff changeset	7206	l := layout left.
0d8d910768af use default font derived from style ca parents: 601 diff changeset	7207	t := layout top.
0d8d910768af use default font derived from style ca parents: 601 diff changeset	7208	r := layout right.
0d8d910768af use default font derived from style ca parents: 601 diff changeset	7209	b := layout bottom.
1707 4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	7210
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	7211	menuPanel verticalLayout ifTrue:[
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7212	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	7213	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	7214
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7215	menuPanel paint:shadowColor.
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7216	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	7217	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	7218	] ifFalse:[
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7219	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	7220	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	7221
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7222	menuPanel paint:shadowColor.
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7223	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	7224	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	7225	]
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	7226	!
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	7227
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	7228	drawSeparator
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7229	"draw as separator"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7230
2059 c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	7231	\|type lightColor shadowColor isDouble
c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	7232	left top
1707 4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	7233	x0 "{ Class:SmallInteger }"
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	7234	x1 "{ Class:SmallInteger }"
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	7235	y0 "{ Class:SmallInteger }"
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	7236	y1 "{ Class:SmallInteger }"
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	7237	\|
2059 c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	7238
1707 4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	7239	type := self separatorType.
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	7240	(type isNil or:[type == #blankLine]) ifTrue:[
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7241	^ self
1707 4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	7242	].
2059 c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	7243
c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	7244	isDouble := type == #doubleLine.
c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	7245
1707 4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	7246	lightColor := menuPanel lightColor.
2059 c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	7247	shadowColor := menuPanel shadowColor.
c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	7248	menuPanel paint:shadowColor.
c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	7249
c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	7250	left := layout left.
c760cfb7d689 code cleanup; Claus Gittinger <cg@exept.de> parents: 2058 diff changeset	7251	top := layout top.
1707 4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	7252
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	7253	menuPanel verticalLayout ifTrue:[
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7254	x0 := left + HorizontalInset.
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7255	x1 := layout right - HorizontalInset.
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7256	y0 := top - 1 + (layout height // 2).
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7257	isDouble ifTrue:[y0 := y0 - 2].
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7258
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7259	menuPanel displayLineFromX:x0 y:y0 toX:x1 y:y0.
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7260	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	7261
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7262	menuPanel paint:lightColor.
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7263	menuPanel displayLineFromX:x0 y:y0+1 toX:x1 y:y0+1.
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7264	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	7265
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	7266	] ifFalse:[
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7267	y1 := layout bottom.
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7268	x0 := left - 1 + (layout width // 2).
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7269	y0 := top.
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7270	isDouble ifTrue:[x0 := x0 - 2].
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7271
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7272	menuPanel displayLineFromX:x0 y:y0 toX:x0 y:y1.
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7273	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	7274
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7275	menuPanel paint:lightColor.
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7276	menuPanel displayLineFromX:x0+1 y:y0 toX:x0+1 y:y1.
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7277	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	7278	]
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	7279	!
4354f516e937 add some comment to methods; split draw routines for buttons labels .. ca parents: 1705 diff changeset	7280
2768 9c79a348a443 * empty log message * Claus Gittinger <cg@exept.de> parents: 2761 diff changeset	7281	indicatorForm
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7282	"returns indication form or nil"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7283
3565 8147249b4aa6 better icons Claus Gittinger <cg@exept.de> parents: 3561 diff changeset	7284	\|isOn\|
2768 9c79a348a443 * empty log message * Claus Gittinger <cg@exept.de> parents: 2761 diff changeset	7285
9c79a348a443 * empty log message * Claus Gittinger <cg@exept.de> parents: 2761 diff changeset	7286	indication isNil ifTrue:[^ nil].
9c79a348a443 * empty log message * Claus Gittinger <cg@exept.de> parents: 2761 diff changeset	7287
3565 8147249b4aa6 better icons Claus Gittinger <cg@exept.de> parents: 3561 diff changeset	7288	isOn := self indicationValue.
2768 9c79a348a443 * empty log message * Claus Gittinger <cg@exept.de> parents: 2761 diff changeset	7289	self enabled ifFalse:[
3565 8147249b4aa6 better icons Claus Gittinger <cg@exept.de> parents: 3561 diff changeset	7290	^ isOn == true
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7291	ifTrue:[menuPanel iconIndicationDisabledOn]
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7292	ifFalse:[menuPanel iconIndicationDisabledOff]
2768 9c79a348a443 * empty log message * Claus Gittinger <cg@exept.de> parents: 2761 diff changeset	7293	].
3565 8147249b4aa6 better icons Claus Gittinger <cg@exept.de> parents: 3561 diff changeset	7294	"/ self isSelected ifTrue:[
8147249b4aa6 better icons Claus Gittinger <cg@exept.de> parents: 3561 diff changeset	7295	"/ ^ isOn == true
8147249b4aa6 better icons Claus Gittinger <cg@exept.de> parents: 3561 diff changeset	7296	"/ ifTrue:[menuPanel iconIndicationEnteredOn]
8147249b4aa6 better icons Claus Gittinger <cg@exept.de> parents: 3561 diff changeset	7297	"/ ifFalse:[menuPanel iconIndicationEnteredOff]
8147249b4aa6 better icons Claus Gittinger <cg@exept.de> parents: 3561 diff changeset	7298	"/ ].
8147249b4aa6 better icons Claus Gittinger <cg@exept.de> parents: 3561 diff changeset	7299
8147249b4aa6 better icons Claus Gittinger <cg@exept.de> parents: 3561 diff changeset	7300	^ isOn == true
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7301	ifTrue:[menuPanel iconIndicationOn]
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7302	ifFalse:[menuPanel iconIndicationOff]
2768 9c79a348a443 * empty log message * Claus Gittinger <cg@exept.de> parents: 2761 diff changeset	7303	!
9c79a348a443 * empty log message * Claus Gittinger <cg@exept.de> parents: 2761 diff changeset	7304
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	7305	invalidate
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	7306
2362 7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	7307	layout isNil ifTrue:[^ self].
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	7308
2433 49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	7309	(displayLabel notNil and:[menuPanel notNil]) ifTrue:[
2362 7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	7310	menuPanel invalidateItem:self repairNow:false
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	7311	]
3411 a7a58a10cdcd extra menu-indicator click behavior Claus Gittinger <cg@exept.de> parents: 3403 diff changeset	7312	!
a7a58a10cdcd extra menu-indicator click behavior Claus Gittinger <cg@exept.de> parents: 3403 diff changeset	7313
a7a58a10cdcd extra menu-indicator click behavior Claus Gittinger <cg@exept.de> parents: 3403 diff changeset	7314	menuIndicatorIcon
a7a58a10cdcd extra menu-indicator click behavior Claus Gittinger <cg@exept.de> parents: 3403 diff changeset	7315	"return a menu indicator icon used if the item has a menu or delayed menu."
a7a58a10cdcd extra menu-indicator click behavior Claus Gittinger <cg@exept.de> parents: 3403 diff changeset	7316
a7a58a10cdcd extra menu-indicator click behavior Claus Gittinger <cg@exept.de> parents: 3403 diff changeset	7317	self hasDelayedMenuIndicator ifTrue:[
a7a58a10cdcd extra menu-indicator click behavior Claus Gittinger <cg@exept.de> parents: 3403 diff changeset	7318	^ MenuPanel delayedMenuIndicator.
a7a58a10cdcd extra menu-indicator click behavior Claus Gittinger <cg@exept.de> parents: 3403 diff changeset	7319	].
a7a58a10cdcd extra menu-indicator click behavior Claus Gittinger <cg@exept.de> parents: 3403 diff changeset	7320	self hasMenuIndicator ifTrue:[
a7a58a10cdcd extra menu-indicator click behavior Claus Gittinger <cg@exept.de> parents: 3403 diff changeset	7321	^ MenuPanel menuIndicator.
a7a58a10cdcd extra menu-indicator click behavior Claus Gittinger <cg@exept.de> parents: 3403 diff changeset	7322	].
a7a58a10cdcd extra menu-indicator click behavior Claus Gittinger <cg@exept.de> parents: 3403 diff changeset	7323	^ nil
388 dce33f8bb806 intitial checkin ca parents: diff changeset	7324	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	7325
dce33f8bb806 intitial checkin ca parents: diff changeset	7326	!MenuPanel::Item methodsFor:'initialization'!
dce33f8bb806 intitial checkin ca parents: diff changeset	7327
dce33f8bb806 intitial checkin ca parents: diff changeset	7328	destroy
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7329	"destroy submenus, remove dependencies"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7330
616 a6157b083830 support of different styles ca parents: 608 diff changeset	7331	self submenu:nil.
2681 2d928e2d12af removeDependents on hide; ca parents: 2679 diff changeset	7332	self removeDependencies.
616 a6157b083830 support of different styles ca parents: 608 diff changeset	7333
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	7334	menuPanel := nil.
616 a6157b083830 support of different styles ca parents: 608 diff changeset	7335	!
a6157b083830 support of different styles ca parents: 608 diff changeset	7336
794 5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	7337	in:aPanel
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7338	"create item in a menuPanel"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7339
794 5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	7340	menuPanel := aPanel.
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7341
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7342	menuItem isNil ifTrue:[
3561 c1db3c0aab04 halt removed Claus Gittinger <cg@exept.de> parents: 3558 diff changeset	7343	self breakPoint:#ca.
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7344	menuItem := MenuItem new
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7345	].
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7346	!
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7347
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7348	initialize
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7349	menuItem := MenuItem new.
1811 df4f5e5b3396 restart under windows Claus Gittinger <cg@exept.de> parents: 1810 diff changeset	7350	!
df4f5e5b3396 restart under windows Claus Gittinger <cg@exept.de> parents: 1810 diff changeset	7351
df4f5e5b3396 restart under windows Claus Gittinger <cg@exept.de> parents: 1810 diff changeset	7352	reinitStyle
df4f5e5b3396 restart under windows Claus Gittinger <cg@exept.de> parents: 1810 diff changeset	7353
df4f5e5b3396 restart under windows Claus Gittinger <cg@exept.de> parents: 1810 diff changeset	7354	subMenu notNil ifTrue:[
3147 b7c2db746f84 conditionalRight fix Claus Gittinger <cg@exept.de> parents: 3144 diff changeset	7355	subMenu reinitStyle
1811 df4f5e5b3396 restart under windows Claus Gittinger <cg@exept.de> parents: 1810 diff changeset	7356	].
df4f5e5b3396 restart under windows Claus Gittinger <cg@exept.de> parents: 1810 diff changeset	7357
df4f5e5b3396 restart under windows Claus Gittinger <cg@exept.de> parents: 1810 diff changeset	7358	"Created: / 17.8.2000 / 17:57:07 / cg"
df4f5e5b3396 restart under windows Claus Gittinger <cg@exept.de> parents: 1810 diff changeset	7359	"Modified: / 17.8.2000 / 18:00:08 / cg"
794 5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	7360	! !
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	7361
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	7362	!MenuPanel::Item methodsFor:'label basics'!
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	7363
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	7364	disabledRawLabel
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7365	"returns the label used if the item is disabled"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7366
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	7367	\|block form image\|
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	7368
2433 49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	7369	disabledDisplayLabel notNil ifTrue:[^ disabledDisplayLabel].
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	7370
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	7371	disabledDisplayLabel := displayLabel ? ''.
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	7372
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	7373	disabledDisplayLabel isString ifTrue:[
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	7374	^ disabledDisplayLabel
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	7375	].
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	7376
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	7377	block := [:el\| \|rslt\|
2433 49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	7378	(rslt := el) notNil ifTrue:[
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	7379	el isImageOrForm ifTrue:[
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	7380	el colorMap notNil ifTrue:[
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	7381	rslt := menuPanel lightenedImageOnDevice:el
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	7382	]
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	7383	] ifFalse:[
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	7384	(displayLabel isKindOf:LabelAndIcon) ifTrue:[
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	7385	((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	7386	form := menuPanel lightenedImageOnDevice:form
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	7387	].
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	7388	((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	7389	image := menuPanel lightenedImageOnDevice:image
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	7390	].
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	7391	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	7392	]
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	7393	]
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	7394	].
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	7395	rslt
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	7396	].
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	7397
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	7398	displayLabel isArray ifTrue:[
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	7399	disabledDisplayLabel := Array new:(displayLabel size).
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	7400
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	7401	displayLabel keysAndValuesDo:[:anIndex :aLabel\|
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	7402	disabledDisplayLabel at:anIndex put:(block value:aLabel)
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	7403	]
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	7404	] ifFalse:[
2433 49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	7405	disabledDisplayLabel := block value:displayLabel
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	7406	].
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	7407	^ disabledDisplayLabel
794 5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	7408	!
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	7409
1829 bd8b95c5bb89 migration fixes Claus Gittinger <cg@exept.de> parents: 1825 diff changeset	7410	fetchDeviceResources
2373 8dbf026f0bd1 bug fix: specific font used by item ca parents: 2372 diff changeset	7411
2433 49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	7412	disabledDisplayLabel := nil.
1829 bd8b95c5bb89 migration fixes Claus Gittinger <cg@exept.de> parents: 1825 diff changeset	7413	self fetchImages.
bd8b95c5bb89 migration fixes Claus Gittinger <cg@exept.de> parents: 1825 diff changeset	7414	!
bd8b95c5bb89 migration fixes Claus Gittinger <cg@exept.de> parents: 1825 diff changeset	7415
616 a6157b083830 support of different styles ca parents: 608 diff changeset	7416	fetchImages
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7417	"fetch my icon images"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7418
2118 89d02ebc5b65 optimize #labels: and #fetchImages in Item. discard block ca parents: 2113 diff changeset	7419	\|icon\|
89d02ebc5b65 optimize #labels: and #fetchImages in Item. discard block ca parents: 2113 diff changeset	7420
2433 49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	7421	(displayLabel isNil or:[displayLabel isString]) ifTrue:[
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	7422	^ self
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	7423	].
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	7424	displayLabel isImageOrForm ifTrue:[
2488 74c81c1e30d7 imageOnDevice -> imageOnMyDevice Claus Gittinger <cg@exept.de> parents: 2485 diff changeset	7425	displayLabel := menuPanel imageOnMyDevice:displayLabel.
2433 49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	7426	^ self.
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	7427	].
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	7428
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	7429	(displayLabel isKindOf:LabelAndIcon) ifTrue:[
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	7430	(icon := displayLabel image) notNil ifTrue:[
2488 74c81c1e30d7 imageOnDevice -> imageOnMyDevice Claus Gittinger <cg@exept.de> parents: 2485 diff changeset	7431	displayLabel image:(menuPanel imageOnMyDevice:icon)
2433 49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	7432	].
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	7433	(icon := displayLabel icon) notNil ifTrue:[
2488 74c81c1e30d7 imageOnDevice -> imageOnMyDevice Claus Gittinger <cg@exept.de> parents: 2485 diff changeset	7434	displayLabel icon:(menuPanel imageOnMyDevice:icon)
2433 49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	7435	].
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	7436	^ self
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	7437	].
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	7438
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	7439	displayLabel isArray ifFalse:[^ self].
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	7440
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	7441	displayLabel keysAndValuesDo:[:i :el\|
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	7442	(el notNil and:[el isString not]) ifTrue:[
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	7443	el isImageOrForm ifTrue:[
2488 74c81c1e30d7 imageOnDevice -> imageOnMyDevice Claus Gittinger <cg@exept.de> parents: 2485 diff changeset	7444	displayLabel at:i put:(menuPanel imageOnMyDevice:el).
2433 49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	7445	] ifFalse:[
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	7446	el class == LabelAndIcon ifTrue:[
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	7447	(icon := el image) notNil ifTrue:[
2488 74c81c1e30d7 imageOnDevice -> imageOnMyDevice Claus Gittinger <cg@exept.de> parents: 2485 diff changeset	7448	el image:(menuPanel imageOnMyDevice:icon)
2433 49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	7449	].
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	7450	(icon := el icon) notNil ifTrue:[
2488 74c81c1e30d7 imageOnDevice -> imageOnMyDevice Claus Gittinger <cg@exept.de> parents: 2485 diff changeset	7451	el icon:(menuPanel imageOnMyDevice:icon)
2433 49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	7452	]
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	7453	]
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	7454	]
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	7455	]
1078 3adf74275ebd support choice for buttons ca parents: 1076 diff changeset	7456	].
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	7457	!
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	7458
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	7459	updateAccessCharacterFor:aLabel
2550 1dc3745fc313 do not show the menus label again as fly by help Claus Gittinger <cg@exept.de> parents: 2545 diff changeset	7460	"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	7461
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	7462	\|s i rest label pos\|
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	7463
3192 a64a9c9143c4 shortcuts... processing ca parents: 3189 diff changeset	7464	accessCharacter notNil ifTrue:[^ aLabel].
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	7465
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	7466	aLabel isString ifFalse:[
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7467	aLabel class == LabelAndIcon ifTrue:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7468	aLabel string:(self updateAccessCharacterFor:(aLabel string))
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7469	].
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7470	^ aLabel
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	7471	].
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	7472	s := aLabel size.
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	7473	i := 1.
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	7474
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	7475	label := aLabel.
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7476	pos := menuItem accessCharacterPosition.
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	7477
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	7478	[((i := label indexOf:$& startingAt:i) ~~ 0 and:[i < s])] whileTrue:[
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7479	rest := label copyFrom:(i+1).
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7480
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7481	i == 1 ifTrue:[label := rest]
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7482	ifFalse:[label := (label copyFrom:1 to:(i-1)), rest].
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7483
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7484	(label at:i) == $& ifTrue:[i := i + 1] ifFalse:[pos := i].
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7485	s := s - 1.
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	7486	].
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	7487
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	7488	(pos isNil or:[(accessCharacter := label at:pos ifAbsent:nil) isNil]) ifTrue:[
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7489	^ label
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	7490	].
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	7491
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	7492	label isText ifFalse:[
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7493	label := Text string:label
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	7494	].
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	7495	label emphasisAt:pos add:#underline.
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7496	^ label
388 dce33f8bb806 intitial checkin ca parents: diff changeset	7497	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	7498
1573 fd124ee2bce5 shortcutKeys; arrange layout if selection changed ca parents: 1572 diff changeset	7499	!MenuPanel::Item methodsFor:'printing & storing'!
fd124ee2bce5 shortcutKeys; arrange layout if selection changed ca parents: 1572 diff changeset	7500
fd124ee2bce5 shortcutKeys; arrange layout if selection changed ca parents: 1572 diff changeset	7501	displayString
1690 38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	7502	^ self class name, '[', label printString, ']'
38b23fb1a931 add DefaultEnteredLevel and DefaultSelectionFollowsMouse ca parents: 1688 diff changeset	7503
1573 fd124ee2bce5 shortcutKeys; arrange layout if selection changed ca parents: 1572 diff changeset	7504	! !
fd124ee2bce5 shortcutKeys; arrange layout if selection changed ca parents: 1572 diff changeset	7505
388 dce33f8bb806 intitial checkin ca parents: diff changeset	7506	!MenuPanel::Item methodsFor:'private'!
dce33f8bb806 intitial checkin ca parents: diff changeset	7507
650 29dcdf6a5994 button and label translation support added tz parents: 638 diff changeset	7508	activeBackgroundColor
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7509	"returns the active background color derived from menuPanel"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7510
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7511	menuItem isButton ifTrue:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7512	^ menuPanel buttonActiveBackgroundColor
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7513	].
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7514	^ menuPanel activeBackgroundColor
650 29dcdf6a5994 button and label translation support added tz parents: 638 diff changeset	7515	!
29dcdf6a5994 button and label translation support added tz parents: 638 diff changeset	7516
29dcdf6a5994 button and label translation support added tz parents: 638 diff changeset	7517	activeForegroundColor
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7518	"returns the active foreground color derived from menuPanel"
650 29dcdf6a5994 button and label translation support added tz parents: 638 diff changeset	7519
3441 b19a4c77490e flyby help fixed Claus Gittinger <cg@exept.de> parents: 3431 diff changeset	7520	menuItem isButton ifTrue:[
b19a4c77490e flyby help fixed Claus Gittinger <cg@exept.de> parents: 3431 diff changeset	7521	^ menuPanel buttonActiveForegroundColor
b19a4c77490e flyby help fixed Claus Gittinger <cg@exept.de> parents: 3431 diff changeset	7522	].
650 29dcdf6a5994 button and label translation support added tz parents: 638 diff changeset	7523	^menuPanel activeForegroundColor
29dcdf6a5994 button and label translation support added tz parents: 638 diff changeset	7524	!
29dcdf6a5994 button and label translation support added tz parents: 638 diff changeset	7525
727 3ba54333342a button style from style sheet tz parents: 723 diff changeset	7526	backgroundColor
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7527	"returns the background color derived from menuPanel"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7528
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7529	menuItem isButton ifTrue:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7530	^ menuPanel buttonPassiveBackgroundColor
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7531	].
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7532	^ menuPanel backgroundColor
727 3ba54333342a button style from style sheet tz parents: 723 diff changeset	7533	!
3ba54333342a button style from style sheet tz parents: 723 diff changeset	7534
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	7535	backgroundColorFromLabel
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7536	"returns the background color derived from label or nil"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7537
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	7538	\|run\|
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	7539
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	7540	label isText ifFalse:[^ nil ].
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	7541	run := label emphasis.
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	7542	run size == 0 ifTrue:[^ nil ].
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	7543
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	7544	run := run first.
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	7545
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	7546	run size == 0 ifTrue:[
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7547	(run value isColor and:[run key == #backgroundColor]) ifTrue:[
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7548	^ run value
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7549	]
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	7550	] ifFalse:[
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7551	run do:[:r\|
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7552	(r value isColor and:[r key == #backgroundColor]) ifTrue:[
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7553	^ r value
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7554	]
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7555	]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	7556	].
dce33f8bb806 intitial checkin ca parents: diff changeset	7557	^ nil
dce33f8bb806 intitial checkin ca parents: diff changeset	7558	!
dce33f8bb806 intitial checkin ca parents: diff changeset	7559
1081 fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	7560	buttonEnteredBackgroundColor
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	7561	"returns the background color to use when thhe mouse has entered
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7562	derived from menuPanel"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7563
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7564	menuItem isButton ifTrue:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7565	^ menuPanel buttonEnteredBackgroundColor
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7566	].
1081 fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	7567	^ menuPanel backgroundColor
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	7568	!
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	7569
663 b418df6b72d8 retrive submenu: ca parents: 661 diff changeset	7570	findSubMenuIn:aRecv
1051 a448c854fcbb catch messageNotUnderstood for #aspectFor: Claus Gittinger <cg@exept.de> parents: 1048 diff changeset	7571	"ask the receiver for a submenu aspect, sending it
a448c854fcbb catch messageNotUnderstood for #aspectFor: Claus Gittinger <cg@exept.de> parents: 1048 diff changeset	7572	#aspectFor: first; then trying the selector itself.
a448c854fcbb catch messageNotUnderstood for #aspectFor: Claus Gittinger <cg@exept.de> parents: 1048 diff changeset	7573	Ignore the error if that message is not understood
a448c854fcbb catch messageNotUnderstood for #aspectFor: Claus Gittinger <cg@exept.de> parents: 1048 diff changeset	7574	(but not other message-not-understoods)"
a448c854fcbb catch messageNotUnderstood for #aspectFor: Claus Gittinger <cg@exept.de> parents: 1048 diff changeset	7575
2069 7891c7d3af69 use new #perform:withOptionalArgument: Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	7576	\|subm sel numArgs\|
1795 6afd0e768267 submenuChannel selector: allow upto two arguments, the arg and the menu ca parents: 1793 diff changeset	7577
6afd0e768267 submenuChannel selector: allow upto two arguments, the arg and the menu ca parents: 1793 diff changeset	7578	aRecv isNil ifTrue:[^ nil].
6afd0e768267 submenuChannel selector: allow upto two arguments, the arg and the menu ca parents: 1793 diff changeset	7579
2364 c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7580	sel := menuItem submenuChannel.
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7581	sel isString ifFalse:[^ nil].
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7582	sel := sel asSymbol.
2069 7891c7d3af69 use new #perform:withOptionalArgument: Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	7583	numArgs := sel numArgs.
7891c7d3af69 use new #perform:withOptionalArgument: Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	7584
7891c7d3af69 use new #perform:withOptionalArgument: Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	7585	numArgs == 0 ifTrue:[
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7586	MessageNotUnderstood handle:[:ex \|
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7587	\|selector\|
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7588
2737 b0daaddb418b Use MessageNotUnderstood>>#selector Stefan Vogel <sv@exept.de> parents: 2736 diff changeset	7589	((selector := ex selector) == sel
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7590	or:[selector == #aspectFor:]) ifFalse:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7591	ex reject
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7592	].
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7593	] do:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7594	subm := aRecv aspectFor:sel.
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7595	].
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7596	subm notNil ifTrue:[^ subm].
1795 6afd0e768267 submenuChannel selector: allow upto two arguments, the arg and the menu ca parents: 1793 diff changeset	7597	].
6afd0e768267 submenuChannel selector: allow upto two arguments, the arg and the menu ca parents: 1793 diff changeset	7598
2043 133a9674bcdf * empty log message * Claus Gittinger <cg@exept.de> parents: 2042 diff changeset	7599	(Array with:(aRecv) with:(aRecv class))
133a9674bcdf * empty log message * Claus Gittinger <cg@exept.de> parents: 2042 diff changeset	7600	do:[:aPossibleReceiver \|
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7601	MessageNotUnderstood handle:[:ex\|
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7602	ex message selector == sel ifFalse:[ ex reject ]
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7603	] do:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7604	numArgs == 0 ifTrue:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7605	subm := aPossibleReceiver perform:sel
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7606	] ifFalse:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7607	numArgs == 1 ifTrue:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7608	subm := aPossibleReceiver perform:sel with:(menuItem argument ? menuPanel)
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7609	] ifFalse:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7610	subm := aPossibleReceiver perform:sel with:(menuItem argument) with:menuPanel
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7611	]
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7612	]
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7613	].
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7614	subm notNil ifTrue:[^ subm].
1795 6afd0e768267 submenuChannel selector: allow upto two arguments, the arg and the menu ca parents: 1793 diff changeset	7615	].
6afd0e768267 submenuChannel selector: allow upto two arguments, the arg and the menu ca parents: 1793 diff changeset	7616
663 b418df6b72d8 retrive submenu: ca parents: 661 diff changeset	7617	^ subm
2043 133a9674bcdf * empty log message * Claus Gittinger <cg@exept.de> parents: 2042 diff changeset	7618
133a9674bcdf * empty log message * Claus Gittinger <cg@exept.de> parents: 2042 diff changeset	7619	"Modified: / 30.10.2001 / 13:28:25 / cg"
663 b418df6b72d8 retrive submenu: ca parents: 661 diff changeset	7620	!
b418df6b72d8 retrive submenu: ca parents: 661 diff changeset	7621
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	7622	indicationValue
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7623	"returns indication value or nil in case of no indication"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7624
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	7625	\|numArgs sel recv\|
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	7626
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	7627	indication isNil ifTrue:[^ nil]. "no indication specified"
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	7628
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	7629	indication isSymbol ifFalse:[
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7630	^ indication value == true "block or model"
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	7631	].
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	7632
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	7633	(numArgs := indication numArgs) == 2 ifTrue:[
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7634	recv := menuPanel receiver.
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7635
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7636	(recv isValueModel) ifFalse:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7637	(recv notNil or:[(recv := menuPanel application) notNil]) ifTrue:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7638	sel := indication copyFrom:1 to:(indication indexOf:$:).
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7639	sel := sel asSymbol.
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7640
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7641	MessageNotUnderstood handle:[:ex\|
2737 b0daaddb418b Use MessageNotUnderstood>>#selector Stefan Vogel <sv@exept.de> parents: 2736 diff changeset	7642	ex selector == sel ifFalse:[
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7643	ex reject
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7644	].
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7645	] do:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7646	sel := recv perform:sel with:(menuItem argument)
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7647	]
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7648	].
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7649	].
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7650	^ sel value == true
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	7651	].
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	7652
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	7653	numArgs ~~ 0 ifTrue:[
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7654	sel := (indication copyWithoutLast:1) asSymbol
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	7655	] ifFalse:[
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7656	sel := indication
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	7657	].
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	7658	sel := self aspectAt:sel.
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	7659
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	7660	sel isValueModel ifTrue:[
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7661	indication := sel.
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7662	indication addDependent:self.
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	7663	].
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	7664	^ sel value == true
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	7665	!
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	7666
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	7667	indicationValue:aValue
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7668	"set the indication value"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7669
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	7670	\|numArgs recv\|
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	7671
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	7672	indication isNil ifTrue:[^ self]. "no indication specified"
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	7673
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	7674	indication isSymbol ifFalse:[
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7675	indication perform:#value: with:aValue ifNotUnderstood:nil. "block or model"
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7676	^ self
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	7677	].
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	7678
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	7679	(numArgs := indication numArgs) == 0 ifTrue:[ "no arguments to selector; cannot set"
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7680	^ self
1218 6ce43fcb2603 code cleanup Claus Gittinger <cg@exept.de> parents: 1217 diff changeset	7681	].
6ce43fcb2603 code cleanup Claus Gittinger <cg@exept.de> parents: 1217 diff changeset	7682
524 d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	7683	recv := menuPanel receiver.
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	7684	recv isValueModel ifTrue:[^ self].
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	7685
1218 6ce43fcb2603 code cleanup Claus Gittinger <cg@exept.de> parents: 1217 diff changeset	7686	recv isNil ifTrue:[
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7687	recv := menuPanel application.
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7688	recv isNil ifTrue:[^ self].
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	7689	].
a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	7690
2069 7891c7d3af69 use new #perform:withOptionalArgument: Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	7691	MessageNotUnderstood handle:[:ex\|
2737 b0daaddb418b Use MessageNotUnderstood>>#selector Stefan Vogel <sv@exept.de> parents: 2736 diff changeset	7692	(ex selector ~~ indication) ifTrue:[
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7693	ex reject
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7694	].
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7695	self ifNotInUIBuilderInfoPrintCR:
2771 3328da9f3df8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2770 diff changeset	7696	('MenuPanel::Item [info]: application (%1) does not respond to: %2'
3328da9f3df8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2770 diff changeset	7697	bindWith:recv classNameWithArticle with:indication).
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	7698	] do:[
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7699	numArgs == 1 ifTrue:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7700	recv perform:indication with:aValue
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7701	] ifFalse:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7702	recv perform:indication with:(menuItem argument ? self) with:aValue
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7703	]
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	7704	].
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	7705	!
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	7706
1081 fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	7707	isEntered
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7708	"returns true if the mouse pointer is over the item"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7709
1081 fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	7710	^ menuPanel enteredItem == self
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	7711
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	7712	"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	7713	!
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	7714
464 a788fdce92e2 add submenuChannel ca parents: 461 diff changeset	7715	separatorType
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7716	"returns type of separator line or nil"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7717
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	7718	\|c lbl\|
388 dce33f8bb806 intitial checkin ca parents: diff changeset	7719
2433 49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	7720	self isSeparator ifFalse:[
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	7721	^ nil
388 dce33f8bb806 intitial checkin ca parents: diff changeset	7722	].
dce33f8bb806 intitial checkin ca parents: diff changeset	7723
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	7724	(lbl := label value) isNil ifTrue:[
2433 49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	7725	^ #singleLine
388 dce33f8bb806 intitial checkin ca parents: diff changeset	7726	].
dce33f8bb806 intitial checkin ca parents: diff changeset	7727
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	7728	lbl size == 1 ifTrue:[
2433 49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	7729	c := lbl first.
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	7730	c == $- ifTrue:[^ #singleLine].
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	7731	c == $= ifTrue:[^ #doubleLine].
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	7732	].
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	7733	^ #blankLine
1130 fb79ef4aeec8 style changes Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	7734	!
fb79ef4aeec8 style changes Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	7735
fb79ef4aeec8 style changes Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	7736	setupSubmenu
2364 c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7737	\|appl master recv submenuHolder submenu submenuEncoding channel\|
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7738
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7739	channel := menuItem submenuChannel value.
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7740	channel isNil ifTrue:[ ^ subMenu ].
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7741
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7742	subMenu notNil ifTrue:[
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7743	menuItem keepLinkedMenu ifTrue:[ ^ subMenu ].
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7744	].
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7745
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7746	channel isSymbol ifFalse:[
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7747	submenuHolder := channel
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7748	] ifTrue:[
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7749	appl := menuPanel application.
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7750	appl isNil ifTrue:[
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7751	appl := menuPanel receiver.
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7752	appl notNil ifTrue:[
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7753	(submenuHolder := self findSubMenuIn:appl) isNil ifTrue:[
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7754	[submenuHolder isNil
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7755	and:[(master := appl perform:#masterApplication ifNotUnderstood:nil) notNil
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7756	and:[master ~~ appl]]] whileTrue:[
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7757	appl := master.
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7758	submenuHolder := self findSubMenuIn:appl.
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7759	].
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7760	]
2232 5784671fb497 when searching for a sumbenus application, do NOT Claus Gittinger <cg@exept.de> parents: 2231 diff changeset	7761	].
2364 c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7762	].
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7763	submenuHolder isNil ifTrue:[
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7764	(submenuHolder := self findSubMenuIn:appl) isNil ifTrue:[
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7765	(recv := menuPanel receiver) ~~ appl ifTrue:[
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7766	appl := recv.
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7767	submenuHolder := self findSubMenuIn:appl
2232 5784671fb497 when searching for a sumbenus application, do NOT Claus Gittinger <cg@exept.de> parents: 2231 diff changeset	7768	]
5784671fb497 when searching for a sumbenus application, do NOT Claus Gittinger <cg@exept.de> parents: 2231 diff changeset	7769	]
2364 c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7770	]
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7771	].
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7772
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7773	(submenu := submenuHolder value) isArray ifTrue:[
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7774	submenuEncoding := submenu.
3222 828febe4d844 use decodeFromLiteralArray Claus Gittinger <cg@exept.de> parents: 3206 diff changeset	7775	submenu := Menu decodeFromLiteralArray:submenuEncoding.
2364 c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7776	"/ cg: linked menus also may contain translations ...
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7777	submenu notNil ifTrue:[
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7778	appl notNil ifTrue:[
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7779	submenu findGuiResourcesIn:appl.
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7780	]
2232 5784671fb497 when searching for a sumbenus application, do NOT Claus Gittinger <cg@exept.de> parents: 2231 diff changeset	7781	].
2364 c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7782	].
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7783	"/ appl notNil ifTrue:[submenu application:appl].
c72f35819bda remove attribute submenuChannel - derives from menuItem ca parents: 2362 diff changeset	7784	self submenu:submenu.
1130 fb79ef4aeec8 style changes Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	7785	^ subMenu
fb79ef4aeec8 style changes Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	7786
3222 828febe4d844 use decodeFromLiteralArray Claus Gittinger <cg@exept.de> parents: 3206 diff changeset	7787	"Modified: / 27-03-2007 / 08:43:25 / cg"
2485 b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	7788	!
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	7789
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	7790	spaceBetweenEmptyLines
b3d92f4a5f7b correct use of ascentOn: for display Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	7791	^ 3
388 dce33f8bb806 intitial checkin ca parents: diff changeset	7792	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	7793
dce33f8bb806 intitial checkin ca parents: diff changeset	7794	!MenuPanel::Item methodsFor:'queries'!
dce33f8bb806 intitial checkin ca parents: diff changeset	7795
1217 c6a4c536aa8c care for items which change visibility via Claus Gittinger <cg@exept.de> parents: 1212 diff changeset	7796	canChangeVisibility
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	7797	"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	7798	otherwise there is a change notification raised if the model changed"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7799
3122 81ab6b6b4ff2 * empty log message * fm parents: 3112 diff changeset	7800	^ isVisible isSymbol or:[isVisible isValueModel]
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	7801	"/ ^ isVisible notNil and:[isVisible ~~ true]
3112 01341303806d * empty log message * Claus Gittinger <cg@exept.de> parents: 3092 diff changeset	7802
01341303806d * empty log message * Claus Gittinger <cg@exept.de> parents: 3092 diff changeset	7803	"Modified: / 11-10-2006 / 21:43:31 / cg"
3122 81ab6b6b4ff2 * empty log message * fm parents: 3112 diff changeset	7804	"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	7805	!
c6a4c536aa8c care for items which change visibility via Claus Gittinger <cg@exept.de> parents: 1212 diff changeset	7806
388 dce33f8bb806 intitial checkin ca parents: diff changeset	7807	canSelect
1699 d7b522c4b332 grabing and recomputation of items ca parents: 1698 diff changeset	7808	"returns true if item is selectable; no separator, visible and enabled.
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7809	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	7810
2362 7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	7811	self isSeparator ifTrue:[^ false].
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	7812
7a0f2e986289 rawLabel visa isSeparator ca parents: 2360 diff changeset	7813	(self isVisible and:[self enabled]) ifTrue:[
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7814	(choice isNil or:[choice value ~= menuItem choiceValue]) ifTrue:[
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7815	^ true
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7816	].
1078 3adf74275ebd support choice for buttons ca parents: 1076 diff changeset	7817	].
3adf74275ebd support choice for buttons ca parents: 1076 diff changeset	7818	^ false
388 dce33f8bb806 intitial checkin ca parents: diff changeset	7819	!
dce33f8bb806 intitial checkin ca parents: diff changeset	7820
2046 012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	7821	containsPoint:aPoint
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7822	"returns true if aPoint is contained in my layout"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7823
2046 012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	7824	(self isVisible and:[layout notNil]) ifTrue:[
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7825	^ layout containsPoint:aPoint
2046 012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	7826	].
012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	7827	^ false
012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	7828
012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	7829	"Created: / 13.11.2001 / 13:55:31 / cg"
012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	7830	!
012798480de6 code cleanup Claus Gittinger <cg@exept.de> parents: 2043 diff changeset	7831
388 dce33f8bb806 intitial checkin ca parents: diff changeset	7832	containsPointX:x y:y
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7833	"returns true if point is contained in my layout"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7834
712 4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	7835	(self isVisible and:[layout notNil]) ifTrue:[
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7836	^ layout containsPointX:x y:y
505 562d5661a855 check for valid layout ca parents: 502 diff changeset	7837	].
562d5661a855 check for valid layout ca parents: 502 diff changeset	7838	^ false
388 dce33f8bb806 intitial checkin ca parents: diff changeset	7839	!
dce33f8bb806 intitial checkin ca parents: diff changeset	7840
2199 61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	7841	hasDelayedMenu
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7842	"returns true if a delayed menu exists"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7843
2360 aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	7844	self hasSubmenu ifFalse:[
2326 a8447d6449eb show submenu indicator (for button) even for normal menus Claus Gittinger <cg@exept.de> parents: 2269 diff changeset	7845	^ false
2199 61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	7846	].
2360 aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	7847	menuItem itemValue notNil ifTrue:[ ^ true ].
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	7848
aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	7849	(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	7850	^ false
2199 61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	7851	].
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	7852	^ true
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	7853	!
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	7854
2214 8eefad87cf62 drawing delayed menu indicators... first try not yet finished ca parents: 2199 diff changeset	7855	hasDelayedMenuIndicator
8eefad87cf62 drawing delayed menu indicators... first try not yet finished ca parents: 2199 diff changeset	7856	"returns true if the item has a delayed menu
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7857	and is in the topMenuPanel (because submenuIndicator is already drawn in popUpViews)"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7858
2214 8eefad87cf62 drawing delayed menu indicators... first try not yet finished ca parents: 2199 diff changeset	7859	menuPanel isPopUpView ifFalse:[
2344 d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	7860	^ self hasDelayedMenu
2214 8eefad87cf62 drawing delayed menu indicators... first try not yet finished ca parents: 2199 diff changeset	7861	].
8eefad87cf62 drawing delayed menu indicators... first try not yet finished ca parents: 2199 diff changeset	7862	^ false
8eefad87cf62 drawing delayed menu indicators... first try not yet finished ca parents: 2199 diff changeset	7863	!
8eefad87cf62 drawing delayed menu indicators... first try not yet finished ca parents: 2199 diff changeset	7864
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	7865	hasIndication
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7866	"returns true if on/off indication exists"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7867
1726 a4733a8b51e1 support labeled arrays; printing vertical (font not yet supported) ca parents: 1723 diff changeset	7868	^ indication notNil
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	7869	!
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	7870
2344 d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	7871	hasMenuIndicator
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	7872	"returns true if the item has a delayed menu
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7873	and is in the topMenuPanel (because submenuIndicator is already drawn in popUpViews)"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7874
2344 d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	7875	menuPanel isPopUpView ifFalse:[
2360 aa745970fcb9 * empty log message * ca parents: 2359 diff changeset	7876	^ self hasSubmenu and:[menuItem isButton]
2344 d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	7877	].
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	7878	^ false
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	7879	!
d8a5d00c004e different icons for delayed and non-delayed menus Claus Gittinger <cg@exept.de> parents: 2342 diff changeset	7880
388 dce33f8bb806 intitial checkin ca parents: diff changeset	7881	hasSubmenu
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7882	"returns true if the item is configured as an subMenu entry"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7883
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7884	^ subMenu notNil or:[ menuItem submenuChannel notNil ]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	7885	!
dce33f8bb806 intitial checkin ca parents: diff changeset	7886
dce33f8bb806 intitial checkin ca parents: diff changeset	7887	isEnabled
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7888	"returns the enabled state"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7889
388 dce33f8bb806 intitial checkin ca parents: diff changeset	7890	^ self enabled
dce33f8bb806 intitial checkin ca parents: diff changeset	7891	!
dce33f8bb806 intitial checkin ca parents: diff changeset	7892
608 0d8d910768af use default font derived from style ca parents: 601 diff changeset	7893	isSeparator
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7894	"returns true if item is a separator"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7895
2433 49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	7896	^ displayLabel isNil
608 0d8d910768af use default font derived from style ca parents: 601 diff changeset	7897	!
0d8d910768af use default font derived from style ca parents: 601 diff changeset	7898
2159 1eac041aeb3d toggle button draw & behavior Claus Gittinger <cg@exept.de> parents: 2145 diff changeset	7899	isToggle
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7900	"returns true if on/off indication exists"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7901
2159 1eac041aeb3d toggle button draw & behavior Claus Gittinger <cg@exept.de> parents: 2145 diff changeset	7902	^ self hasIndication and:[ self isButton ]
1eac041aeb3d toggle button draw & behavior Claus Gittinger <cg@exept.de> parents: 2145 diff changeset	7903	!
1eac041aeb3d toggle button draw & behavior Claus Gittinger <cg@exept.de> parents: 2145 diff changeset	7904
712 4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	7905	isVisible
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7906	"returns the visibility state"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7907
712 4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	7908	\|state\|
4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	7909
4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	7910	isVisible isSymbol ifTrue:[
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7911	state := self aspectAt:isVisible.
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7912
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7913	state isValueModel ifTrue:[
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7914	isVisible := state.
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7915	isVisible addDependent:self.
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7916	state := isVisible.
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7917	]
712 4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	7918	] ifFalse:[
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7919	state := isVisible
1164 e6e9633abf48 kludge fix: invoke mustRearrange to care for block-visibility attributes Claus Gittinger <cg@exept.de> parents: 1156 diff changeset	7920	].
e6e9633abf48 kludge fix: invoke mustRearrange to care for block-visibility attributes Claus Gittinger <cg@exept.de> parents: 1156 diff changeset	7921	^ state value ~~ false
e6e9633abf48 kludge fix: invoke mustRearrange to care for block-visibility attributes Claus Gittinger <cg@exept.de> parents: 1156 diff changeset	7922
e6e9633abf48 kludge fix: invoke mustRearrange to care for block-visibility attributes Claus Gittinger <cg@exept.de> parents: 1156 diff changeset	7923	"Modified: / 5.10.1998 / 12:08:28 / cg"
712 4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	7924	!
4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	7925
4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	7926	isVisible:something
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7927	"change the visibility state; if the state changed, a redraw is performed"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7928
712 4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	7929	\|oldState newState\|
4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	7930
4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	7931	isVisible isNil ifTrue:[
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7932	oldState := true
712 4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	7933	] ifFalse:[
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7934	oldState := isVisible value.
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7935	isVisible isValueModel ifTrue:[
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7936	isVisible removeDependent:self
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7937	]
712 4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	7938	].
4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	7939	isVisible := something.
4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	7940
4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	7941	isVisible isNil ifTrue:[
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7942	newState := true
712 4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	7943	] ifFalse:[
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7944	isVisible isValueModel ifTrue:[
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7945	isVisible addDependent:self
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7946	] ifFalse:[
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7947	isVisible isSymbol ifTrue:[^ self]
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7948	].
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7949	menuPanel shown ifFalse:[^ self].
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7950	newState := isVisible value.
712 4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	7951	].
4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	7952
4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	7953	newState ~~ oldState ifTrue:[
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7954	menuPanel mustRearrange
712 4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	7955	]
1164 e6e9633abf48 kludge fix: invoke mustRearrange to care for block-visibility attributes Claus Gittinger <cg@exept.de> parents: 1156 diff changeset	7956
e6e9633abf48 kludge fix: invoke mustRearrange to care for block-visibility attributes Claus Gittinger <cg@exept.de> parents: 1156 diff changeset	7957	"Modified: / 5.10.1998 / 12:12:04 / cg"
712 4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	7958	!
4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	7959
3411 a7a58a10cdcd extra menu-indicator click behavior Claus Gittinger <cg@exept.de> parents: 3403 diff changeset	7960	menuIndicatorContains:aPoint
a7a58a10cdcd extra menu-indicator click behavior Claus Gittinger <cg@exept.de> parents: 3403 diff changeset	7961	"returns true if the items delayed menu is hit by a button-press"
a7a58a10cdcd extra menu-indicator click behavior Claus Gittinger <cg@exept.de> parents: 3403 diff changeset	7962
a7a58a10cdcd extra menu-indicator click behavior Claus Gittinger <cg@exept.de> parents: 3403 diff changeset	7963	\|icon xSep\|
a7a58a10cdcd extra menu-indicator click behavior Claus Gittinger <cg@exept.de> parents: 3403 diff changeset	7964
a7a58a10cdcd extra menu-indicator click behavior Claus Gittinger <cg@exept.de> parents: 3403 diff changeset	7965	(self isVisible and:[layout notNil]) ifTrue:[
a7a58a10cdcd extra menu-indicator click behavior Claus Gittinger <cg@exept.de> parents: 3403 diff changeset	7966	(layout containsPoint:aPoint) ifTrue:[
a7a58a10cdcd extra menu-indicator click behavior Claus Gittinger <cg@exept.de> parents: 3403 diff changeset	7967	icon := self menuIndicatorIcon.
a7a58a10cdcd extra menu-indicator click behavior Claus Gittinger <cg@exept.de> parents: 3403 diff changeset	7968	icon notNil ifTrue:[
a7a58a10cdcd extra menu-indicator click behavior Claus Gittinger <cg@exept.de> parents: 3403 diff changeset	7969	xSep := layout right - icon width.
a7a58a10cdcd extra menu-indicator click behavior Claus Gittinger <cg@exept.de> parents: 3403 diff changeset	7970	^ aPoint x >= xSep
a7a58a10cdcd extra menu-indicator click behavior Claus Gittinger <cg@exept.de> parents: 3403 diff changeset	7971	]
a7a58a10cdcd extra menu-indicator click behavior Claus Gittinger <cg@exept.de> parents: 3403 diff changeset	7972	]
a7a58a10cdcd extra menu-indicator click behavior Claus Gittinger <cg@exept.de> parents: 3403 diff changeset	7973	].
a7a58a10cdcd extra menu-indicator click behavior Claus Gittinger <cg@exept.de> parents: 3403 diff changeset	7974	^ false
a7a58a10cdcd extra menu-indicator click behavior Claus Gittinger <cg@exept.de> parents: 3403 diff changeset	7975	!
a7a58a10cdcd extra menu-indicator click behavior Claus Gittinger <cg@exept.de> parents: 3403 diff changeset	7976
2433 49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	7977	needsItemSpaceWhenDrawing
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	7978	^ self isSeparator not and:[menuItem isButton not]
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	7979	!
49341ed11830 rawLabel/label/textLabel confusion cleaned up Claus Gittinger <cg@exept.de> parents: 2407 diff changeset	7980
388 dce33f8bb806 intitial checkin ca parents: diff changeset	7981	shortcutKeyAsString
3601 e6e26baefa03 comment Claus Gittinger <cg@exept.de> parents: 3580 diff changeset	7982	"converts shortcutKey to a text object for the menu-label-hint.
e6e26baefa03 comment Claus Gittinger <cg@exept.de> parents: 3580 diff changeset	7983	returns nil, if the key has no assignment."
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	7984
2972 65841fbd0933 shortKey handling moved to device (shared between menu and menuPanel) Claus Gittinger <cg@exept.de> parents: 2936 diff changeset	7985	\|shortcutKey\|
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7986
de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7987	shortcutKey := menuItem shortcutKey.
1609 2c8d62894ebe optimize searchinf for shortCutKeys ca parents: 1600 diff changeset	7988
2c8d62894ebe optimize searchinf for shortCutKeys ca parents: 1600 diff changeset	7989	shortcutKey isNil ifTrue:[
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	7990	^ nil
1609 2c8d62894ebe optimize searchinf for shortCutKeys ca parents: 1600 diff changeset	7991	].
2c8d62894ebe optimize searchinf for shortCutKeys ca parents: 1600 diff changeset	7992	shortcutKey isCharacter ifTrue:[
3301 bb7fab3e1d7a * empty log message * fm parents: 3295 diff changeset	7993	shortcutKey == Character space ifFalse:[
bb7fab3e1d7a * empty log message * fm parents: 3295 diff changeset	7994	^ 'Space'
bb7fab3e1d7a * empty log message * fm parents: 3295 diff changeset	7995	].
2972 65841fbd0933 shortKey handling moved to device (shared between menu and menuPanel) Claus Gittinger <cg@exept.de> parents: 2936 diff changeset	7996	^ shortcutKey asString
65841fbd0933 shortKey handling moved to device (shared between menu and menuPanel) Claus Gittinger <cg@exept.de> parents: 2936 diff changeset	7997	].
65841fbd0933 shortKey handling moved to device (shared between menu and menuPanel) Claus Gittinger <cg@exept.de> parents: 2936 diff changeset	7998	^ menuPanel device shortKeyStringFor:shortcutKey.
65841fbd0933 shortKey handling moved to device (shared between menu and menuPanel) Claus Gittinger <cg@exept.de> parents: 2936 diff changeset	7999
65841fbd0933 shortKey handling moved to device (shared between menu and menuPanel) Claus Gittinger <cg@exept.de> parents: 2936 diff changeset	8000	"Modified: / 08-08-2006 / 15:46:24 / cg"
388 dce33f8bb806 intitial checkin ca parents: diff changeset	8001	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	8002
dce33f8bb806 intitial checkin ca parents: diff changeset	8003	!MenuPanel::Item methodsFor:'selection'!
dce33f8bb806 intitial checkin ca parents: diff changeset	8004
dce33f8bb806 intitial checkin ca parents: diff changeset	8005	isSelected
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	8006	"returns true if item is selected"
1998 5059b7c9cd2c * empty log message * Claus Gittinger <cg@exept.de> parents: 1997 diff changeset	8007
5059b7c9cd2c * empty log message * Claus Gittinger <cg@exept.de> parents: 1997 diff changeset	8008	^ menuPanel notNil and:[menuPanel selection == self]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	8009	!
dce33f8bb806 intitial checkin ca parents: diff changeset	8010
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	8011	isSelected:isSelected
1473 1f62652f146e use hasSubmenu insteat of submenu if possible; Claus Gittinger <cg@exept.de> parents: 1472 diff changeset	8012	"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	8013	submenu and perform a redraw"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	8014
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	8015	(isSelected and:[menuPanel notNil]) ifFalse:[
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	8016	self invalidate.
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	8017	self hideSubmenu.
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	8018	^ self
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	8019	].
cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	8020
2199 61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	8021	menuPanel realized ifFalse:[ ^ self ].
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	8022
2359 de4236cc8e7b * empty log message * ca parents: 2355 diff changeset	8023	(indication isNil or:[menuItem isButton not]) ifTrue:[
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	8024	self invalidate
2199 61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	8025	].
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	8026	self hasSubmenu ifFalse:[ ^ self].
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	8027
61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	8028	self hasDelayedMenu ifTrue:[
2249 cb1073891ea8 add: #selection:openMenu: ca parents: 2238 diff changeset	8029	menuPanel openDelayed:self
2199 61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	8030	] ifFalse:[
3133 dd8417f3373b code cleanup; comments Claus Gittinger <cg@exept.de> parents: 3131 diff changeset	8031	self setupSubmenu.
2374 975fa3542e82 replace ifNil and ifNotNil ca parents: 2373 diff changeset	8032	subMenu notNil ifTrue:[ self openSubmenu ].
1701 026ece539435 prepare delayed open of submenus ca parents: 1699 diff changeset	8033	].
3133 dd8417f3373b code cleanup; comments Claus Gittinger <cg@exept.de> parents: 3131 diff changeset	8034
dd8417f3373b code cleanup; comments Claus Gittinger <cg@exept.de> parents: 3131 diff changeset	8035	"Modified: / 07-11-2006 / 11:08:03 / cg"
388 dce33f8bb806 intitial checkin ca parents: diff changeset	8036	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	8037
2692 93566e299318 +actionValue2 werner parents: 2681 diff changeset	8038	!MenuPanel::Item::Adornment methodsFor:'accessing'!
93566e299318 +actionValue2 werner parents: 2681 diff changeset	8039
93566e299318 +actionValue2 werner parents: 2681 diff changeset	8040	argument2
93566e299318 +actionValue2 werner parents: 2681 diff changeset	8041
93566e299318 +actionValue2 werner parents: 2681 diff changeset	8042	^ argument2
93566e299318 +actionValue2 werner parents: 2681 diff changeset	8043	!
93566e299318 +actionValue2 werner parents: 2681 diff changeset	8044
93566e299318 +actionValue2 werner parents: 2681 diff changeset	8045	argument2:anArgumentOrNil
93566e299318 +actionValue2 werner parents: 2681 diff changeset	8046
93566e299318 +actionValue2 werner parents: 2681 diff changeset	8047	argument2 := anArgumentOrNil
93566e299318 +actionValue2 werner parents: 2681 diff changeset	8048	! !
93566e299318 +actionValue2 werner parents: 2681 diff changeset	8049
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	8050	!MenuPanel::ScrollActivity class methodsFor:'default icons'!
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	8051
2018 2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	8052	icon
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	8053	"This resource specification was automatically generated
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	8054	by the ImageEditor of ST/X."
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	8055
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	8056	"Do not manually edit this!! If it is corrupted,
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	8057	the ImageEditor may not be able to read the specification."
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	8058
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	8059	"
2018 2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	8060	self icon inspect
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	8061	ImageEditor openOnClass:self andSelector:#icon
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	8062	"
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	8063
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	8064	<resource: #image>
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	8065
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	8066	^Icon
3603 c93203750a0b image resource method fixes (key must be name of method) Claus Gittinger <cg@exept.de> parents: 3601 diff changeset	8067	constantNamed:#'MenuPanel::ScrollActivity class icon'
c93203750a0b image resource method fixes (key must be name of method) Claus Gittinger <cg@exept.de> parents: 3601 diff changeset	8068	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	8069	! !
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	8070
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	8071	!MenuPanel::ScrollActivity class methodsFor:'instance creation'!
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	8072
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	8073	new
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	8074	^ self basicNew initialize
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	8075	! !
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	8076
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	8077	!MenuPanel::ScrollActivity methodsFor:'accessing'!
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	8078
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	8079	activeMenu
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	8080	"returns the active menu the scrolling is activated on; nil
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	8081	is returned if scrolling is deactivated"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	8082
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	8083	^ activeMenu
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	8084	!
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	8085
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	8086	direction
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	8087	"returns the scroll-direction"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	8088
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	8089	^ direction
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	8090	!
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	8091
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	8092	iconAt:aDirection on:aMenu
2018 2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	8093	\|icon device index\|
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	8094
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	8095	device := aMenu device.
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	8096
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	8097	aDirection == #PREV ifTrue:[
3147 b7c2db746f84 conditionalRight fix Claus Gittinger <cg@exept.de> parents: 3144 diff changeset	8098	aMenu verticalLayout ifTrue:[index := 3] "/ 3 - 1 * 90 180
b7c2db746f84 conditionalRight fix Claus Gittinger <cg@exept.de> parents: 3144 diff changeset	8099	ifFalse:[index := 2] "/ 2 - 1 * 90 90
2018 2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	8100	] ifFalse:[
3147 b7c2db746f84 conditionalRight fix Claus Gittinger <cg@exept.de> parents: 3144 diff changeset	8101	aMenu verticalLayout ifTrue:[index := 1] "/ 1 - 1 * 90 0
b7c2db746f84 conditionalRight fix Claus Gittinger <cg@exept.de> parents: 3144 diff changeset	8102	ifFalse:[index := 4] "/ 4 - 1 * 90 270
2018 2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	8103	].
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	8104
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	8105	icon := icons at:index.
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	8106
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	8107	(icon isNil or:[icon device ~~ device]) ifTrue:[
3147 b7c2db746f84 conditionalRight fix Claus Gittinger <cg@exept.de> parents: 3144 diff changeset	8108	icon := self class icon.
b7c2db746f84 conditionalRight fix Claus Gittinger <cg@exept.de> parents: 3144 diff changeset	8109	index > 1 ifTrue:[ icon := icon rotated:(index - 1 * 90) ]
b7c2db746f84 conditionalRight fix Claus Gittinger <cg@exept.de> parents: 3144 diff changeset	8110	ifFalse:[ icon := icon copy ].
b7c2db746f84 conditionalRight fix Claus Gittinger <cg@exept.de> parents: 3144 diff changeset	8111
b7c2db746f84 conditionalRight fix Claus Gittinger <cg@exept.de> parents: 3144 diff changeset	8112	icon := icon onDevice:device.
b7c2db746f84 conditionalRight fix Claus Gittinger <cg@exept.de> parents: 3144 diff changeset	8113	icon clearMaskedPixels.
b7c2db746f84 conditionalRight fix Claus Gittinger <cg@exept.de> parents: 3144 diff changeset	8114	icons at:index put:icon
2018 2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	8115	].
2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	8116	^ icon
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	8117	! !
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	8118
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	8119	!MenuPanel::ScrollActivity methodsFor:'initialization'!
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	8120
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	8121	initialize
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	8122
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	8123	semaLock := RecursionLock new.
2018 2130a45b7dfe checkin from browser ca parents: 2016 diff changeset	8124	icons := Array new:4.
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	8125	! !
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	8126
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	8127	!MenuPanel::ScrollActivity methodsFor:'queries'!
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	8128
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	8129	isActive
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	8130	"returns true if scrolling is activated"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	8131
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	8132	^ activeMenu notNil
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	8133	! !
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	8134
2137 0aaeeab0811d renamed Scrolling to ScrollActivity. Claus Gittinger <cg@exept.de> parents: 2133 diff changeset	8135	!MenuPanel::ScrollActivity methodsFor:'user operations'!
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	8136
3295 53616022ca5f activate scroller if button is pressed and moved over scroller ca parents: 3246 diff changeset	8137	startIfRequiredAt:aDirection on:aMenu comesViaButtonPress:comesViaButtonPress
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	8138	"start scrolling; returns true if scrolling is activated"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	8139
3295 53616022ca5f activate scroller if button is pressed and moved over scroller ca parents: 3246 diff changeset	8140	\|bounds index isScrolledMenu boundsOnRoot\|
2860 300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	8141
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	8142	isScrolledMenu := (aDirection notNil and:[aMenu notNil and:[aMenu hasScrollers]]).
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	8143
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	8144	semaLock critical:[
2860 300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	8145	self stop.
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	8146
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	8147	isScrolledMenu ifTrue:[
3295 53616022ca5f activate scroller if button is pressed and moved over scroller ca parents: 3246 diff changeset	8148	bounds := aMenu scrollerBoundsAt:aDirection.
53616022ca5f activate scroller if button is pressed and moved over scroller ca parents: 3246 diff changeset	8149
53616022ca5f activate scroller if button is pressed and moved over scroller ca parents: 3246 diff changeset	8150	comesViaButtonPress ifFalse:[
53616022ca5f activate scroller if button is pressed and moved over scroller ca parents: 3246 diff changeset	8151	boundsOnRoot := Rectangle origin:(aMenu device translatePointToRoot:(bounds origin) fromView:aMenu)
53616022ca5f activate scroller if button is pressed and moved over scroller ca parents: 3246 diff changeset	8152	extent:(bounds extent).
53616022ca5f activate scroller if button is pressed and moved over scroller ca parents: 3246 diff changeset	8153	].
53616022ca5f activate scroller if button is pressed and moved over scroller ca parents: 3246 diff changeset	8154
2860 300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	8155	activeMenu := aMenu.
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	8156	direction := aDirection.
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	8157	index := aMenu indexOfItemAtScroller:aDirection.
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	8158
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	8159	index ~~ 0 ifTrue:[
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	8160	scrollTask :=
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	8161	[
3295 53616022ca5f activate scroller if button is pressed and moved over scroller ca parents: 3246 diff changeset	8162	\|item step continue\|
2860 300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	8163
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	8164	[
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	8165	step := (aDirection == #PREV) ifTrue:[-1] ifFalse:[1].
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	8166	( aMenu shown and:[(item := aMenu itemAt:index) notNil] ) ifTrue:[
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	8167	aMenu makeItemVisible:item.
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	8168	index := index + step.
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	8169	].
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	8170
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	8171	Delay waitForSeconds:(ButtonController defaultInitialDelay).
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	8172
3295 53616022ca5f activate scroller if button is pressed and moved over scroller ca parents: 3246 diff changeset	8173	[
53616022ca5f activate scroller if button is pressed and moved over scroller ca parents: 3246 diff changeset	8174	continue := (aMenu shown and:[(item := aMenu itemAt:index) notNil]).
53616022ca5f activate scroller if button is pressed and moved over scroller ca parents: 3246 diff changeset	8175
53616022ca5f activate scroller if button is pressed and moved over scroller ca parents: 3246 diff changeset	8176	boundsOnRoot notNil ifTrue:[
53616022ca5f activate scroller if button is pressed and moved over scroller ca parents: 3246 diff changeset	8177	continue ifTrue:[
53616022ca5f activate scroller if button is pressed and moved over scroller ca parents: 3246 diff changeset	8178	continue := boundsOnRoot containsPoint:aMenu sensor mousePoint.
53616022ca5f activate scroller if button is pressed and moved over scroller ca parents: 3246 diff changeset	8179	] ifFalse:[
53616022ca5f activate scroller if button is pressed and moved over scroller ca parents: 3246 diff changeset	8180	boundsOnRoot := nil.
53616022ca5f activate scroller if button is pressed and moved over scroller ca parents: 3246 diff changeset	8181	]
53616022ca5f activate scroller if button is pressed and moved over scroller ca parents: 3246 diff changeset	8182	].
53616022ca5f activate scroller if button is pressed and moved over scroller ca parents: 3246 diff changeset	8183	continue
53616022ca5f activate scroller if button is pressed and moved over scroller ca parents: 3246 diff changeset	8184	] whileTrue:[
2860 300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	8185	aMenu makeItemVisible:item.
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	8186	Delay waitForSeconds:(ButtonController defaultRepeatDelay).
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	8187	index := index + step.
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	8188	].
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	8189	item := nil.
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	8190	] ensure:[
3295 53616022ca5f activate scroller if button is pressed and moved over scroller ca parents: 3246 diff changeset	8191	activeMenu := direction := scrollTask := nil.
2860 300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	8192
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	8193	item notNil ifTrue:[
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	8194	"/ process was killed
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	8195	aMenu invalidate:bounds
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	8196	]
3295 53616022ca5f activate scroller if button is pressed and moved over scroller ca parents: 3246 diff changeset	8197	].
53616022ca5f activate scroller if button is pressed and moved over scroller ca parents: 3246 diff changeset	8198	boundsOnRoot notNil ifTrue:[ aMenu invalidate:bounds ].
2860 300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	8199	] forkAt:8.
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	8200	]
300aa94bb73e A2989: redraw optimieren ca parents: 2855 diff changeset	8201	]
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	8202	].
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	8203	^ bounds notNil
2047 62de65e3a61b initial delay; autoRepeat delay Claus Gittinger <cg@exept.de> parents: 2046 diff changeset	8204
2048 ba472f3f46c7 code cleanup Claus Gittinger <cg@exept.de> parents: 2047 diff changeset	8205	"Created: ca"
ba472f3f46c7 code cleanup Claus Gittinger <cg@exept.de> parents: 2047 diff changeset	8206
ba472f3f46c7 code cleanup Claus Gittinger <cg@exept.de> parents: 2047 diff changeset	8207	"Modified: / 13.11.2001 / 20:15:52 / cg"
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	8208	!
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	8209
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	8210	stop
2870 0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	8211	"stop scrolling; returns true if the scrolling was activated otherwise false"
0a92cf0052f5 ugly comments Claus Gittinger <cg@exept.de> parents: 2869 diff changeset	8212
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	8213	\|task resp\|
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	8214
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	8215	activeMenu isNil ifTrue:[
2231 65cec3d10fb1 Change sends to obsolete methods Stefan Vogel <sv@exept.de> parents: 2220 diff changeset	8216	^ false
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	8217	].
3295 53616022ca5f activate scroller if button is pressed and moved over scroller ca parents: 3246 diff changeset	8218
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	8219	semaLock critical:[
2231 65cec3d10fb1 Change sends to obsolete methods Stefan Vogel <sv@exept.de> parents: 2220 diff changeset	8220	resp := activeMenu notNil.
65cec3d10fb1 Change sends to obsolete methods Stefan Vogel <sv@exept.de> parents: 2220 diff changeset	8221
65cec3d10fb1 Change sends to obsolete methods Stefan Vogel <sv@exept.de> parents: 2220 diff changeset	8222	(task := scrollTask) notNil ifTrue:[
65cec3d10fb1 Change sends to obsolete methods Stefan Vogel <sv@exept.de> parents: 2220 diff changeset	8223	scrollTask := nil.
65cec3d10fb1 Change sends to obsolete methods Stefan Vogel <sv@exept.de> parents: 2220 diff changeset	8224
65cec3d10fb1 Change sends to obsolete methods Stefan Vogel <sv@exept.de> parents: 2220 diff changeset	8225	Error handle:[:ex\|
65cec3d10fb1 Change sends to obsolete methods Stefan Vogel <sv@exept.de> parents: 2220 diff changeset	8226	] do:[
65cec3d10fb1 Change sends to obsolete methods Stefan Vogel <sv@exept.de> parents: 2220 diff changeset	8227	task terminateWithAllSubprocessesInGroup.
65cec3d10fb1 Change sends to obsolete methods Stefan Vogel <sv@exept.de> parents: 2220 diff changeset	8228	task waitUntilTerminated.
65cec3d10fb1 Change sends to obsolete methods Stefan Vogel <sv@exept.de> parents: 2220 diff changeset	8229	].
65cec3d10fb1 Change sends to obsolete methods Stefan Vogel <sv@exept.de> parents: 2220 diff changeset	8230	].
65cec3d10fb1 Change sends to obsolete methods Stefan Vogel <sv@exept.de> parents: 2220 diff changeset	8231	activeMenu := direction := nil.
2016 f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	8232	].
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	8233	^ resp
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	8234	! !
f1ba765d4fa7 add scrolling - first ca parents: 2012 diff changeset	8235
388 dce33f8bb806 intitial checkin ca parents: diff changeset	8236	!MenuPanel class methodsFor:'documentation'!
dce33f8bb806 intitial checkin ca parents: diff changeset	8237
dce33f8bb806 intitial checkin ca parents: diff changeset	8238	version
3826 608aa28e7676 changed: #buttonMotion:x:y: Claus Gittinger <cg@exept.de> parents: 3823 diff changeset	8239	^ '$Header: /cvs/stx/stx/libwidg2/MenuPanel.st,v 1.493 2009-10-24 22:06:53 cg Exp $'
3780 14184c505e24 changed: Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	8240	!
14184c505e24 changed: Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	8241
14184c505e24 changed: Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	8242	version_CVS
3826 608aa28e7676 changed: #buttonMotion:x:y: Claus Gittinger <cg@exept.de> parents: 3823 diff changeset	8243	^ '$Header: /cvs/stx/stx/libwidg2/MenuPanel.st,v 1.493 2009-10-24 22:06:53 cg Exp $'
388 dce33f8bb806 intitial checkin ca parents: diff changeset	8244	! !
2199 61ef4fe363e7 * empty log message * ca parents: 2187 diff changeset	8245
388 dce33f8bb806 intitial checkin ca parents: diff changeset	8246	MenuPanel initialize!

author	Claus Gittinger <cg@exept.de>
	Sun, 25 Oct 2009 00:06:53 +0200
changeset 3826	608aa28e7676
parent 3823	81781fb283b5
child 3830	84c0ce168c71
permissions	-rw-r--r--