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

388 dce33f8bb806 intitial checkin ca parents: diff changeset	1	"
dce33f8bb806 intitial checkin ca parents: diff changeset	2	COPYRIGHT (c) 1997 by eXept Software AG
1117 3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	3	All Rights Reserved
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4
dce33f8bb806 intitial checkin ca parents: diff changeset	5	This software is furnished under a license and may be used
dce33f8bb806 intitial checkin ca parents: diff changeset	6	only in accordance with the terms of that license and with the
dce33f8bb806 intitial checkin ca parents: diff changeset	7	inclusion of the above copyright notice. This software may not
dce33f8bb806 intitial checkin ca parents: diff changeset	8	be provided or otherwise made available to, or used by, any
dce33f8bb806 intitial checkin ca parents: diff changeset	9	other person. No title to or ownership of the software is
dce33f8bb806 intitial checkin ca parents: diff changeset	10	hereby transferred.
dce33f8bb806 intitial checkin ca parents: diff changeset	11	"
dce33f8bb806 intitial checkin ca parents: diff changeset	12
dce33f8bb806 intitial checkin ca parents: diff changeset	13
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	14	SimpleView subclass:#MenuPanel
689 aa13913add84 clear lastActiveMenu when closed ca parents: 687 diff changeset	15	instanceVariableNames:'adornment shadowView mapTime mustRearrange superMenu
aa13913add84 clear lastActiveMenu when closed ca parents: 687 diff changeset	16	shortKeyInset selection items groupSizes receiver enableChannel
aa13913add84 clear lastActiveMenu when closed ca parents: 687 diff changeset	17	menuHolder enabled onLevel offLevel fgColor activeFgColor
aa13913add84 clear lastActiveMenu when closed ca parents: 687 diff changeset	18	lastActiveMenu activeBgColor disabledFgColor groupDividerSize
727 3ba54333342a button style from style sheet tz parents: 723 diff changeset	19	itemSpace fitFirstPanel rightArrow rightArrowShadow
730 9e45051a4fbd better button draw routine + style sheet support tz parents: 729 diff changeset	20	selectionFrameBrightColor selectionFrameDarkColor
9e45051a4fbd better button draw routine + style sheet support tz parents: 729 diff changeset	21	buttonLightColor buttonShadowColor buttonHalfLightColor
1081 fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	22	buttonHalfShadowColor lastButtonSelected enteredItem
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	23	buttonEnteredBgColor'
689 aa13913add84 clear lastActiveMenu when closed ca parents: 687 diff changeset	24	classVariableNames:'InitialSelectionQuerySignal DefaultAdornment
aa13913add84 clear lastActiveMenu when closed ca parents: 687 diff changeset	25	DefaultGroupDividerSize DefaultHilightLevel DefaultLevel
1082 382324ddce3f support and additional buttonSpacing (for normal and win95 styles) Claus Gittinger <cg@exept.de> parents: 1081 diff changeset	26	DefaultItemSpace DefaultButtonItemSpace DefaultForegroundColor
382324ddce3f support and additional buttonSpacing (for normal and win95 styles) Claus Gittinger <cg@exept.de> parents: 1081 diff changeset	27	DefaultBackgroundColor DefaultHilightForegroundColor
382324ddce3f support and additional buttonSpacing (for normal and win95 styles) Claus Gittinger <cg@exept.de> parents: 1081 diff changeset	28	DefaultHilightBackgroundColor DefaultDisabledForegroundColor
382324ddce3f support and additional buttonSpacing (for normal and win95 styles) Claus Gittinger <cg@exept.de> parents: 1081 diff changeset	29	DefaultFitFirstPanel RightArrowForm RightArrowShadowForm
382324ddce3f support and additional buttonSpacing (for normal and win95 styles) Claus Gittinger <cg@exept.de> parents: 1081 diff changeset	30	SelectionFrameBrightColor SelectionFrameDarkColor
382324ddce3f support and additional buttonSpacing (for normal and win95 styles) Claus Gittinger <cg@exept.de> parents: 1081 diff changeset	31	ButtonActiveLevel ButtonPassiveLevel ButtonActiveBackgroundColor
382324ddce3f support and additional buttonSpacing (for normal and win95 styles) Claus Gittinger <cg@exept.de> parents: 1081 diff changeset	32	ButtonPassiveBackgroundColor ButtonLightColor ButtonShadowColor
382324ddce3f support and additional buttonSpacing (for normal and win95 styles) Claus Gittinger <cg@exept.de> parents: 1081 diff changeset	33	ButtonHalfLightColor ButtonHalfShadowColor ButtonEdgeStyle Images
382324ddce3f support and additional buttonSpacing (for normal and win95 styles) Claus Gittinger <cg@exept.de> parents: 1081 diff changeset	34	LigthenedImages ButtonEnteredBackgroundColor ButtonEnteredLevel'
689 aa13913add84 clear lastActiveMenu when closed ca parents: 687 diff changeset	35	poolDictionaries:''
aa13913add84 clear lastActiveMenu when closed ca parents: 687 diff changeset	36	category:'Views-Menus'
388 dce33f8bb806 intitial checkin ca parents: diff changeset	37	!
dce33f8bb806 intitial checkin ca parents: diff changeset	38
dce33f8bb806 intitial checkin ca parents: diff changeset	39	Object subclass:#Item
729 18395718ec8e lighten the icon & image of a disabled LabelAndIcon if the ca parents: 728 diff changeset	40	instanceVariableNames:'layout menuPanel subMenu adornment rawLabel disabledRawLabel
18395718ec8e lighten the icon & image of a disabled LabelAndIcon if the ca parents: 728 diff changeset	41	enableChannel nameKey accessCharacterPosition value label
794 5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	42	rawImage activeHelpKey submenuChannel startGroup isButton
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	43	isVisible'
689 aa13913add84 clear lastActiveMenu when closed ca parents: 687 diff changeset	44	classVariableNames:'HorizontalInset VerticalInset HorizontalButtonInset
aa13913add84 clear lastActiveMenu when closed ca parents: 687 diff changeset	45	VerticalButtonInset LabelRightOffset ShortcutKeyOffset
1063 08b7ca464437 dont show accelerators for horizontal layouts Claus Gittinger <cg@exept.de> parents: 1054 diff changeset	46	IndicatorOn IndicatorOff'
689 aa13913add84 clear lastActiveMenu when closed ca parents: 687 diff changeset	47	poolDictionaries:''
aa13913add84 clear lastActiveMenu when closed ca parents: 687 diff changeset	48	privateIn:MenuPanel
388 dce33f8bb806 intitial checkin ca parents: diff changeset	49	!
dce33f8bb806 intitial checkin ca parents: diff changeset	50
dce33f8bb806 intitial checkin ca parents: diff changeset	51	Object subclass:#Adornment
1074 25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	52	instanceVariableNames:'indication accessCharacterPosition shortcutKey argument choice
25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	53	choiceValue'
689 aa13913add84 clear lastActiveMenu when closed ca parents: 687 diff changeset	54	classVariableNames:''
aa13913add84 clear lastActiveMenu when closed ca parents: 687 diff changeset	55	poolDictionaries:''
aa13913add84 clear lastActiveMenu when closed ca parents: 687 diff changeset	56	privateIn:MenuPanel::Item
388 dce33f8bb806 intitial checkin ca parents: diff changeset	57	!
dce33f8bb806 intitial checkin ca parents: diff changeset	58
dce33f8bb806 intitial checkin ca parents: diff changeset	59	!MenuPanel class methodsFor:'documentation'!
dce33f8bb806 intitial checkin ca parents: diff changeset	60
dce33f8bb806 intitial checkin ca parents: diff changeset	61	copyright
dce33f8bb806 intitial checkin ca parents: diff changeset	62	"
dce33f8bb806 intitial checkin ca parents: diff changeset	63	COPYRIGHT (c) 1997 by eXept Software AG
1117 3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	64	All Rights Reserved
388 dce33f8bb806 intitial checkin ca parents: diff changeset	65
dce33f8bb806 intitial checkin ca parents: diff changeset	66	This software is furnished under a license and may be used
dce33f8bb806 intitial checkin ca parents: diff changeset	67	only in accordance with the terms of that license and with the
dce33f8bb806 intitial checkin ca parents: diff changeset	68	inclusion of the above copyright notice. This software may not
dce33f8bb806 intitial checkin ca parents: diff changeset	69	be provided or otherwise made available to, or used by, any
dce33f8bb806 intitial checkin ca parents: diff changeset	70	other person. No title to or ownership of the software is
dce33f8bb806 intitial checkin ca parents: diff changeset	71	hereby transferred.
dce33f8bb806 intitial checkin ca parents: diff changeset	72	"
dce33f8bb806 intitial checkin ca parents: diff changeset	73
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
dce33f8bb806 intitial checkin ca parents: diff changeset	80	not yet finished MenuPanel class - this will eventually replace
dce33f8bb806 intitial checkin ca parents: diff changeset	81	most of the MenuView and PopUpMenu stuff.
dce33f8bb806 intitial checkin ca parents: diff changeset	82	(and hopefully be ST-80 compatible ...)
dce33f8bb806 intitial checkin ca parents: diff changeset	83
502 dedc1b29b6ac support of arguments ca parents: 498 diff changeset	84	To create a menu, there exists a MenuEditor which will generate
dedc1b29b6ac support of arguments ca parents: 498 diff changeset	85	a menu specification.
dedc1b29b6ac support of arguments ca parents: 498 diff changeset	86
dedc1b29b6ac support of arguments ca parents: 498 diff changeset	87
388 dce33f8bb806 intitial checkin ca parents: diff changeset	88	[author:]
1117 3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	89	Claus Atzkern
388 dce33f8bb806 intitial checkin ca parents: diff changeset	90
dce33f8bb806 intitial checkin ca parents: diff changeset	91	[see also:]
1117 3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	92	Menu
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	93	MenuItem
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	94	MenuEditor
388 dce33f8bb806 intitial checkin ca parents: diff changeset	95	"
dce33f8bb806 intitial checkin ca parents: diff changeset	96
dce33f8bb806 intitial checkin ca parents: diff changeset	97	!
dce33f8bb806 intitial checkin ca parents: diff changeset	98
dce33f8bb806 intitial checkin ca parents: diff changeset	99	examples
dce33f8bb806 intitial checkin ca parents: diff changeset	100
dce33f8bb806 intitial checkin ca parents: diff changeset	101	"
dce33f8bb806 intitial checkin ca parents: diff changeset	102	start as PullDownMenu
1117 3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	103	[exBegin]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	104	\|top subView mview desc s1 s2 s3 img lbs labels\|
dce33f8bb806 intitial checkin ca parents: diff changeset	105
dce33f8bb806 intitial checkin ca parents: diff changeset	106	top := StandardSystemView new.
dce33f8bb806 intitial checkin ca parents: diff changeset	107
436 c03d6faa41a6 process events befor accept ca parents: 434 diff changeset	108	mview := MenuPanel in:top.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	109
502 dedc1b29b6ac support of arguments ca parents: 498 diff changeset	110	labels := #( 'foo' 'bar' 'baz' 'test' 'claus' ).
388 dce33f8bb806 intitial checkin ca parents: diff changeset	111	mview level:2.
dce33f8bb806 intitial checkin ca parents: diff changeset	112	mview verticalLayout:false.
dce33f8bb806 intitial checkin ca parents: diff changeset	113	img := Image fromFile:'bitmaps/SBrowser.xbm'.
502 dedc1b29b6ac support of arguments ca parents: 498 diff changeset	114	lbs := Array with:'foo' with:'bar' with:img with:'baz' with:'test' with:'ludwig'.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	115	mview labels:lbs.
dce33f8bb806 intitial checkin ca parents: diff changeset	116	mview shortcutKeyAt:2 put:#Cut.
dce33f8bb806 intitial checkin ca parents: diff changeset	117	mview accessCharacterPositionAt:1 put:1.
dce33f8bb806 intitial checkin ca parents: diff changeset	118	mview accessCharacterPositionAt:2 put:2.
dce33f8bb806 intitial checkin ca parents: diff changeset	119
dce33f8bb806 intitial checkin ca parents: diff changeset	120	mview enabledAt:5 put:false.
dce33f8bb806 intitial checkin ca parents: diff changeset	121	mview groupSizes:#( 2 2 ).
436 c03d6faa41a6 process events befor accept ca parents: 434 diff changeset	122	s1 := MenuPanel labels:labels.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	123	s1 accessCharacterPositionAt:1 put:1.
dce33f8bb806 intitial checkin ca parents: diff changeset	124	s1 accessCharacterPositionAt:2 put:2.
dce33f8bb806 intitial checkin ca parents: diff changeset	125	s1 groupSizes:#( 2 2 ).
436 c03d6faa41a6 process events befor accept ca parents: 434 diff changeset	126	s2 := MenuPanel labels:#( '1' nil '2' '-' '3' '=' '4' ' ' '5' ).
c03d6faa41a6 process events befor accept ca parents: 434 diff changeset	127	s3 := MenuPanel labels:lbs.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	128
dce33f8bb806 intitial checkin ca parents: diff changeset	129	s1 subMenuAt:2 put:s2.
436 c03d6faa41a6 process events befor accept ca parents: 434 diff changeset	130	s1 subMenuAt:3 put:(MenuPanel labels:lbs).
388 dce33f8bb806 intitial checkin ca parents: diff changeset	131	s2 subMenuAt:3 put:s3.
436 c03d6faa41a6 process events befor accept ca parents: 434 diff changeset	132	s3 subMenuAt:3 put:(MenuPanel labels:labels).
388 dce33f8bb806 intitial checkin ca parents: diff changeset	133	s3 shortcutKeyAt:3 put:$q.
dce33f8bb806 intitial checkin ca parents: diff changeset	134
dce33f8bb806 intitial checkin ca parents: diff changeset	135	mview subMenuAt:1 put:s1.
436 c03d6faa41a6 process events befor accept ca parents: 434 diff changeset	136	mview subMenuAt:4 put:(MenuPanel labels:lbs).
388 dce33f8bb806 intitial checkin ca parents: diff changeset	137	(mview subMenuAt:4) shortcutKeyAt:3 put:#Copy.
dce33f8bb806 intitial checkin ca parents: diff changeset	138	s1 shortcutKeyAt:1 put:#Copy.
dce33f8bb806 intitial checkin ca parents: diff changeset	139	s1 shortcutKeyAt:3 put:#Paste.
dce33f8bb806 intitial checkin ca parents: diff changeset	140
436 c03d6faa41a6 process events befor accept ca parents: 434 diff changeset	141	mview subMenuAt:2 put:(MenuPanel labels:labels).
616 a6157b083830 support of different styles ca parents: 608 diff changeset	142	top extent:(mview preferredExtent).
388 dce33f8bb806 intitial checkin ca parents: diff changeset	143	top open.
1117 3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	144	[exEnd]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	145
dce33f8bb806 intitial checkin ca parents: diff changeset	146
dce33f8bb806 intitial checkin ca parents: diff changeset	147	start as PopUpMenu
1117 3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	148	[exBegin]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	149	\|subView mview desc s1 s2 s3 img lbs labels\|
dce33f8bb806 intitial checkin ca parents: diff changeset	150
436 c03d6faa41a6 process events befor accept ca parents: 434 diff changeset	151	mview := MenuPanel new.
502 dedc1b29b6ac support of arguments ca parents: 498 diff changeset	152	labels := #( 'foo' 'bar' 'baz' ).
388 dce33f8bb806 intitial checkin ca parents: diff changeset	153	mview level:2.
dce33f8bb806 intitial checkin ca parents: diff changeset	154
dce33f8bb806 intitial checkin ca parents: diff changeset	155	img := Image fromFile:'bitmaps/SBrowser.xbm'.
502 dedc1b29b6ac support of arguments ca parents: 498 diff changeset	156	lbs := Array with:'foo' with:'bar' with:img with:'baz' with:'test'.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	157	mview labels:lbs.
dce33f8bb806 intitial checkin ca parents: diff changeset	158
436 c03d6faa41a6 process events befor accept ca parents: 434 diff changeset	159	s1 := MenuPanel labels:labels.
c03d6faa41a6 process events befor accept ca parents: 434 diff changeset	160	s2 := MenuPanel labels:#( '1' nil '2' '-' '3' '=' '4' ' ' '5' ).
c03d6faa41a6 process events befor accept ca parents: 434 diff changeset	161	s3 := MenuPanel labels:lbs.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	162	s1 subMenuAt:2 put:s2.
436 c03d6faa41a6 process events befor accept ca parents: 434 diff changeset	163	s1 subMenuAt:3 put:(MenuPanel labels:lbs).
388 dce33f8bb806 intitial checkin ca parents: diff changeset	164	s2 subMenuAt:3 put:s3.
436 c03d6faa41a6 process events befor accept ca parents: 434 diff changeset	165	s3 subMenuAt:3 put:(MenuPanel labels:labels).
388 dce33f8bb806 intitial checkin ca parents: diff changeset	166	s3 shortcutKeyAt:3 put:$q.
dce33f8bb806 intitial checkin ca parents: diff changeset	167
dce33f8bb806 intitial checkin ca parents: diff changeset	168	mview subMenuAt:1 put:s1.
436 c03d6faa41a6 process events befor accept ca parents: 434 diff changeset	169	mview subMenuAt:4 put:(MenuPanel labels:lbs).
388 dce33f8bb806 intitial checkin ca parents: diff changeset	170	(mview subMenuAt:4) shortcutKeyAt:3 put:#Copy.
dce33f8bb806 intitial checkin ca parents: diff changeset	171	s1 shortcutKeyAt:1 put:#Copy.
dce33f8bb806 intitial checkin ca parents: diff changeset	172	s1 shortcutKeyAt:3 put:#Paste.
dce33f8bb806 intitial checkin ca parents: diff changeset	173
436 c03d6faa41a6 process events befor accept ca parents: 434 diff changeset	174	mview subMenuAt:2 put:(MenuPanel labels:labels).
388 dce33f8bb806 intitial checkin ca parents: diff changeset	175	mview startUp
1117 3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	176	[exEnd]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	177
dce33f8bb806 intitial checkin ca parents: diff changeset	178
dce33f8bb806 intitial checkin ca parents: diff changeset	179	start from menu spec
1117 3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	180	[exBegin]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	181	\|menu\|
dce33f8bb806 intitial checkin ca parents: diff changeset	182
436 c03d6faa41a6 process events befor accept ca parents: 434 diff changeset	183	menu := MenuPanel menu:
1117 3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	184	#(#Menu #( #(#MenuItem
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	185	#label: 'File'
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	186	#submenu:
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	187	#(#Menu #(#(#MenuItem #label: 'quit' #value:#quit )
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	188	(#MenuItem
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	189	#label: 'edit'
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	190	#submenu:
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	191	#(#Menu #( #(#MenuItem #label: 'edit' #value:#edit )
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	192	#(#MenuItem #label: 'close' #value:#close)
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	193	)
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	194	nil
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	195	nil
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	196	)
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	197	)
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	198	#(#MenuItem #label: 'help' #value:#help )
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	199	)
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	200	nil
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	201	nil
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	202	)
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	203	)
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	204	#(#MenuItem #label: 'Inspect' #value:#inspectMenu )
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	205	#(#MenuItem #label: 'Bar'
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	206	#submenu:
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	207	#(#Menu #( #(#MenuItem #label: 'bar 1' #value:#bar1 )
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	208	#(#MenuItem #label: 'bar 2' #value:#bar2 )
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	209	)
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	210	nil
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	211	nil
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	212	)
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	213	)
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	214	)
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	215	#( 2 )
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	216	nil
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	217	) decodeAsLiteralArray.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	218
dce33f8bb806 intitial checkin ca parents: diff changeset	219	menu verticalLayout:false.
dce33f8bb806 intitial checkin ca parents: diff changeset	220	Transcript showCR:(menu startUp).
1117 3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	221	[exEnd]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	222
dce33f8bb806 intitial checkin ca parents: diff changeset	223	"
dce33f8bb806 intitial checkin ca parents: diff changeset	224
dce33f8bb806 intitial checkin ca parents: diff changeset	225	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	226
dce33f8bb806 intitial checkin ca parents: diff changeset	227	!MenuPanel class methodsFor:'instance creation'!
dce33f8bb806 intitial checkin ca parents: diff changeset	228
dce33f8bb806 intitial checkin ca parents: diff changeset	229	fromSpec:aSpec
dce33f8bb806 intitial checkin ca parents: diff changeset	230	^ self fromSpec:aSpec receiver:nil
dce33f8bb806 intitial checkin ca parents: diff changeset	231	!
dce33f8bb806 intitial checkin ca parents: diff changeset	232
dce33f8bb806 intitial checkin ca parents: diff changeset	233	fromSpec:aSpec receiver:aReceiver
dce33f8bb806 intitial checkin ca parents: diff changeset	234	\|menu\|
dce33f8bb806 intitial checkin ca parents: diff changeset	235
dce33f8bb806 intitial checkin ca parents: diff changeset	236	aSpec notNil ifTrue:[
1117 3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	237	menu := Menu new.
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	238	menu fromLiteralArrayEncoding:aSpec.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	239	].
dce33f8bb806 intitial checkin ca parents: diff changeset	240	^ self menu:menu receiver:aReceiver
dce33f8bb806 intitial checkin ca parents: diff changeset	241	!
dce33f8bb806 intitial checkin ca parents: diff changeset	242
dce33f8bb806 intitial checkin ca parents: diff changeset	243	labels:labels
dce33f8bb806 intitial checkin ca parents: diff changeset	244	^ self labels:labels nameKeys:nil receiver:nil
dce33f8bb806 intitial checkin ca parents: diff changeset	245	!
dce33f8bb806 intitial checkin ca parents: diff changeset	246
dce33f8bb806 intitial checkin ca parents: diff changeset	247	labels:labels nameKeys:nameKeys
dce33f8bb806 intitial checkin ca parents: diff changeset	248	^ self labels:labels nameKeys:nameKeys receiver:nil
dce33f8bb806 intitial checkin ca parents: diff changeset	249	!
dce33f8bb806 intitial checkin ca parents: diff changeset	250
dce33f8bb806 intitial checkin ca parents: diff changeset	251	labels:labels nameKeys:nameKeys receiver:aReceiver
dce33f8bb806 intitial checkin ca parents: diff changeset	252	\|mview\|
dce33f8bb806 intitial checkin ca parents: diff changeset	253
dce33f8bb806 intitial checkin ca parents: diff changeset	254	mview := self menu:nil receiver:aReceiver.
dce33f8bb806 intitial checkin ca parents: diff changeset	255	mview labels:labels.
dce33f8bb806 intitial checkin ca parents: diff changeset	256	mview nameKeys:nameKeys.
dce33f8bb806 intitial checkin ca parents: diff changeset	257	^ mview
dce33f8bb806 intitial checkin ca parents: diff changeset	258
dce33f8bb806 intitial checkin ca parents: diff changeset	259	!
dce33f8bb806 intitial checkin ca parents: diff changeset	260
502 dedc1b29b6ac support of arguments ca parents: 498 diff changeset	261	labels:labels receiver:aReceiver
dedc1b29b6ac support of arguments ca parents: 498 diff changeset	262	^ self labels:labels nameKeys:nil receiver:aReceiver
dedc1b29b6ac support of arguments ca parents: 498 diff changeset	263	!
dedc1b29b6ac support of arguments ca parents: 498 diff changeset	264
388 dce33f8bb806 intitial checkin ca parents: diff changeset	265	menu:aMenu
dce33f8bb806 intitial checkin ca parents: diff changeset	266	^ self menu:aMenu receiver:nil
dce33f8bb806 intitial checkin ca parents: diff changeset	267	!
dce33f8bb806 intitial checkin ca parents: diff changeset	268
dce33f8bb806 intitial checkin ca parents: diff changeset	269	menu:aMenu receiver:aReceiver
dce33f8bb806 intitial checkin ca parents: diff changeset	270	\|mview\|
dce33f8bb806 intitial checkin ca parents: diff changeset	271
dce33f8bb806 intitial checkin ca parents: diff changeset	272	mview := self new.
dce33f8bb806 intitial checkin ca parents: diff changeset	273	mview menu:aMenu.
dce33f8bb806 intitial checkin ca parents: diff changeset	274
dce33f8bb806 intitial checkin ca parents: diff changeset	275	"/ a menu itself may contain a receiver
dce33f8bb806 intitial checkin ca parents: diff changeset	276	"/ thus we do not overwrite the receiver
dce33f8bb806 intitial checkin ca parents: diff changeset	277
dce33f8bb806 intitial checkin ca parents: diff changeset	278	aReceiver notNil ifTrue:[
1117 3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	279	mview receiver:aReceiver
388 dce33f8bb806 intitial checkin ca parents: diff changeset	280	].
dce33f8bb806 intitial checkin ca parents: diff changeset	281	^ mview
dce33f8bb806 intitial checkin ca parents: diff changeset	282
dce33f8bb806 intitial checkin ca parents: diff changeset	283	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	284
dce33f8bb806 intitial checkin ca parents: diff changeset	285	!MenuPanel class methodsFor:'class initialization'!
dce33f8bb806 intitial checkin ca parents: diff changeset	286
dce33f8bb806 intitial checkin ca parents: diff changeset	287	initialize
657 a8246e896fa3 class initialize routine completed tz parents: 653 diff changeset	288	"
a8246e896fa3 class initialize routine completed tz parents: 653 diff changeset	289	DefaultAdornment := nil.
a8246e896fa3 class initialize routine completed tz parents: 653 diff changeset	290	self initialize
a8246e896fa3 class initialize routine completed tz parents: 653 diff changeset	291	"
a8246e896fa3 class initialize routine completed tz parents: 653 diff changeset	292
388 dce33f8bb806 intitial checkin ca parents: diff changeset	293	InitialSelectionQuerySignal isNil ifTrue:[
1117 3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	294	InitialSelectionQuerySignal := QuerySignal new.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	295	].
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	296
388 dce33f8bb806 intitial checkin ca parents: diff changeset	297	DefaultAdornment isNil ifTrue:[
1117 3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	298	DefaultAdornment := IdentityDictionary new
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	299	at:#showSeparatingLines put:false;
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	300	at:#showGroupDivider put:true;
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	301	at:#verticalLayout put:true;
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	302	at:#item put:nil;
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	303	at:#value put:nil;
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	304	yourself
388 dce33f8bb806 intitial checkin ca parents: diff changeset	305	].
dce33f8bb806 intitial checkin ca parents: diff changeset	306
660 d1670dfe5445 Do not call #updateStyleCache from #initialize. Stefan Vogel <sv@exept.de> parents: 658 diff changeset	307	"Modified: / 15.1.1998 / 23:08:31 / stefan"
794 5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	308	!
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	309
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	310	preSnapshot
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	311	"remove all resources
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	312	"
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	313	Images := nil.
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	314	LigthenedImages := nil.
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	315
616 a6157b083830 support of different styles ca parents: 608 diff changeset	316	! !
a6157b083830 support of different styles ca parents: 608 diff changeset	317
a6157b083830 support of different styles ca parents: 608 diff changeset	318	!MenuPanel class methodsFor:'defaults'!
450 ac72eb2ed895 initialize fix Claus Gittinger <cg@exept.de> parents: 441 diff changeset	319
ac72eb2ed895 initialize fix Claus Gittinger <cg@exept.de> parents: 441 diff changeset	320	updateStyleCache
657 a8246e896fa3 class initialize routine completed tz parents: 653 diff changeset	321
616 a6157b083830 support of different styles ca parents: 608 diff changeset	322	\|menuStyle style font\|
450 ac72eb2ed895 initialize fix Claus Gittinger <cg@exept.de> parents: 441 diff changeset	323
1331 aae37cbfb30a fixed style handling to avoid bad resizing when popup-level/bw Claus Gittinger <cg@exept.de> parents: 1330 diff changeset	324	"/ MenuView updateStyleCache.
aae37cbfb30a fixed style handling to avoid bad resizing when popup-level/bw Claus Gittinger <cg@exept.de> parents: 1330 diff changeset	325	"/
aae37cbfb30a fixed style handling to avoid bad resizing when popup-level/bw Claus Gittinger <cg@exept.de> parents: 1330 diff changeset	326	"/ menuStyle := MenuView styleSheet.
aae37cbfb30a fixed style handling to avoid bad resizing when popup-level/bw Claus Gittinger <cg@exept.de> parents: 1330 diff changeset	327	"/ menuStyle isNil ifTrue:[
aae37cbfb30a fixed style handling to avoid bad resizing when popup-level/bw Claus Gittinger <cg@exept.de> parents: 1330 diff changeset	328	"/ "make sure that style sheet is present"
aae37cbfb30a fixed style handling to avoid bad resizing when popup-level/bw Claus Gittinger <cg@exept.de> parents: 1330 diff changeset	329	"/ MenuView updateStyleCache.
aae37cbfb30a fixed style handling to avoid bad resizing when popup-level/bw Claus Gittinger <cg@exept.de> parents: 1330 diff changeset	330	"/ menuStyle := MenuView styleSheet.
aae37cbfb30a fixed style handling to avoid bad resizing when popup-level/bw Claus Gittinger <cg@exept.de> parents: 1330 diff changeset	331	"/ ].
aae37cbfb30a fixed style handling to avoid bad resizing when popup-level/bw Claus Gittinger <cg@exept.de> parents: 1330 diff changeset	332
aae37cbfb30a fixed style handling to avoid bad resizing when popup-level/bw Claus Gittinger <cg@exept.de> parents: 1330 diff changeset	333	menuStyle := StyleSheet.
616 a6157b083830 support of different styles ca parents: 608 diff changeset	334	style := menuStyle name.
a6157b083830 support of different styles ca parents: 608 diff changeset	335
1331 aae37cbfb30a fixed style handling to avoid bad resizing when popup-level/bw Claus Gittinger <cg@exept.de> parents: 1330 diff changeset	336	"/ DefaultForegroundColor := menuStyle colorAt:'pullDownMenu.foregroundColor'.
aae37cbfb30a fixed style handling to avoid bad resizing when popup-level/bw Claus Gittinger <cg@exept.de> parents: 1330 diff changeset	337	"/ DefaultForegroundColor isNil ifTrue:[
1368 eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	338	DefaultForegroundColor := menuStyle colorAt:#'menu.foregroundColor'
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	339	default:Color black.
1331 aae37cbfb30a fixed style handling to avoid bad resizing when popup-level/bw Claus Gittinger <cg@exept.de> parents: 1330 diff changeset	340	"/ ].
aae37cbfb30a fixed style handling to avoid bad resizing when popup-level/bw Claus Gittinger <cg@exept.de> parents: 1330 diff changeset	341
aae37cbfb30a fixed style handling to avoid bad resizing when popup-level/bw Claus Gittinger <cg@exept.de> parents: 1330 diff changeset	342	DefaultLevel := menuStyle at:#'pullDownMenu.level' default:0.
616 a6157b083830 support of different styles ca parents: 608 diff changeset	343
1337 f0ed36b3c3d6 style fixes Claus Gittinger <cg@exept.de> parents: 1336 diff changeset	344	DefaultBackgroundColor := DefaultViewBackgroundColor.
f0ed36b3c3d6 style fixes Claus Gittinger <cg@exept.de> parents: 1336 diff changeset	345	"/ DefaultBackgroundColor := menuStyle colorAt:'pullDownMenu.backgroundColor'.
f0ed36b3c3d6 style fixes Claus Gittinger <cg@exept.de> parents: 1336 diff changeset	346	"/ DefaultBackgroundColor isNil ifTrue:[
f0ed36b3c3d6 style fixes Claus Gittinger <cg@exept.de> parents: 1336 diff changeset	347	DefaultBackgroundColor := menuStyle colorAt:#'menu.backgroundColor' default:DefaultBackgroundColor.
f0ed36b3c3d6 style fixes Claus Gittinger <cg@exept.de> parents: 1336 diff changeset	348
f0ed36b3c3d6 style fixes Claus Gittinger <cg@exept.de> parents: 1336 diff changeset	349	menuStyle is3D ifTrue:[
1368 eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	350	DefaultHilightForegroundColor := DefaultForegroundColor.
1337 f0ed36b3c3d6 style fixes Claus Gittinger <cg@exept.de> parents: 1336 diff changeset	351	] ifFalse:[
1368 eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	352	DefaultHilightForegroundColor := DefaultBackgroundColor.
1337 f0ed36b3c3d6 style fixes Claus Gittinger <cg@exept.de> parents: 1336 diff changeset	353	].
f0ed36b3c3d6 style fixes Claus Gittinger <cg@exept.de> parents: 1336 diff changeset	354	"/ DefaultHilightForegroundColor := menuStyle colorAt:'pullDownMenu.hilightForegroundColor'.
f0ed36b3c3d6 style fixes Claus Gittinger <cg@exept.de> parents: 1336 diff changeset	355	"/ DefaultHilightForegroundColor isNil ifTrue:[
f0ed36b3c3d6 style fixes Claus Gittinger <cg@exept.de> parents: 1336 diff changeset	356	DefaultHilightForegroundColor := menuStyle colorAt:#'menu.hilightForegroundColor' default:DefaultHilightForegroundColor.
f0ed36b3c3d6 style fixes Claus Gittinger <cg@exept.de> parents: 1336 diff changeset	357
616 a6157b083830 support of different styles ca parents: 608 diff changeset	358	(style == #motif or:[style == #iris]) ifTrue:[
1368 eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	359	DefaultHilightLevel := 2.
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	360	DefaultLevel := DefaultLevel + 1.
616 a6157b083830 support of different styles ca parents: 608 diff changeset	361	] ifFalse:[
1368 eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	362	(DefaultHilightLevel := menuStyle at:'pullDownMenu.hilightLevel') isNil ifTrue:[
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	363	DefaultHilightLevel := menuStyle at:'menu.hilightLevel' default:0.
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	364	].
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	365	menuStyle is3D ifTrue:[DefaultLevel := DefaultLevel + 1].
1331 aae37cbfb30a fixed style handling to avoid bad resizing when popup-level/bw Claus Gittinger <cg@exept.de> parents: 1330 diff changeset	366	].
aae37cbfb30a fixed style handling to avoid bad resizing when popup-level/bw Claus Gittinger <cg@exept.de> parents: 1330 diff changeset	367
aae37cbfb30a fixed style handling to avoid bad resizing when popup-level/bw Claus Gittinger <cg@exept.de> parents: 1330 diff changeset	368	DefaultDisabledForegroundColor := menuStyle colorAt:#'menu.disabledForegroundColor'.
616 a6157b083830 support of different styles ca parents: 608 diff changeset	369	DefaultDisabledForegroundColor isNil ifTrue:[
1368 eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	370	DefaultDisabledForegroundColor := menuStyle colorAt:#'button.disabledForegroundColor'
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	371	default:Color darkGray.
616 a6157b083830 support of different styles ca parents: 608 diff changeset	372	].
a6157b083830 support of different styles ca parents: 608 diff changeset	373
a6157b083830 support of different styles ca parents: 608 diff changeset	374	style == #motif ifTrue:[
1368 eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	375	DefaultHilightBackgroundColor := DefaultBackgroundColor
616 a6157b083830 support of different styles ca parents: 608 diff changeset	376	] ifFalse:[
1368 eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	377	DefaultHilightBackgroundColor := menuStyle is3D ifFalse:[DefaultForegroundColor] ifTrue:[DefaultBackgroundColor]
1337 f0ed36b3c3d6 style fixes Claus Gittinger <cg@exept.de> parents: 1336 diff changeset	378	].
f0ed36b3c3d6 style fixes Claus Gittinger <cg@exept.de> parents: 1336 diff changeset	379	"/ DefaultHilightBackgroundColor := menuStyle colorAt:'pullDownMenu.hilightBackgroundColor'.
f0ed36b3c3d6 style fixes Claus Gittinger <cg@exept.de> parents: 1336 diff changeset	380	"/ DefaultHilightBackgroundColor isNil ifTrue:[
f0ed36b3c3d6 style fixes Claus Gittinger <cg@exept.de> parents: 1336 diff changeset	381	DefaultHilightBackgroundColor := menuStyle colorAt:#'menu.hilightBackgroundColor' default:DefaultHilightBackgroundColor.
1331 aae37cbfb30a fixed style handling to avoid bad resizing when popup-level/bw Claus Gittinger <cg@exept.de> parents: 1330 diff changeset	382
aae37cbfb30a fixed style handling to avoid bad resizing when popup-level/bw Claus Gittinger <cg@exept.de> parents: 1330 diff changeset	383	DefaultGroupDividerSize := menuStyle at:#'menu.groupDividerSize' default:6.
aae37cbfb30a fixed style handling to avoid bad resizing when popup-level/bw Claus Gittinger <cg@exept.de> parents: 1330 diff changeset	384	DefaultItemSpace := menuStyle at:#'menu.itemSpace' default:0.
aae37cbfb30a fixed style handling to avoid bad resizing when popup-level/bw Claus Gittinger <cg@exept.de> parents: 1330 diff changeset	385	DefaultButtonItemSpace := menuStyle at:#'menu.buttonItemSpace' default:0.
aae37cbfb30a fixed style handling to avoid bad resizing when popup-level/bw Claus Gittinger <cg@exept.de> parents: 1330 diff changeset	386	DefaultFitFirstPanel := menuStyle at:#'menu.fitFirstPanel' default:true.
616 a6157b083830 support of different styles ca parents: 608 diff changeset	387
829 c86ed87da63b bug fix: ca parents: 828 diff changeset	388	MenuView updateStyleCache.
c86ed87da63b bug fix: ca parents: 828 diff changeset	389	DefaultFont := MenuView defaultFont.
c86ed87da63b bug fix: ca parents: 828 diff changeset	390	"/ font := menuStyle fontAt:'pullDownMenu.font'.
c86ed87da63b bug fix: ca parents: 828 diff changeset	391	"/ font isNil ifTrue:[font := menuStyle fontAt:'menu.font'].
c86ed87da63b bug fix: ca parents: 828 diff changeset	392	"/ DefaultFont := font.
616 a6157b083830 support of different styles ca parents: 608 diff changeset	393
a6157b083830 support of different styles ca parents: 608 diff changeset	394	RightArrowForm := SelectionInListView rightArrowFormOn:Display.
a6157b083830 support of different styles ca parents: 608 diff changeset	395
1054 f56416a8d26b win95 has no 3D right-arrow for subMenus. Claus Gittinger <cg@exept.de> parents: 1051 diff changeset	396	(style ~~ #os2 and:[style ~~ #win95]) ifTrue:[
1368 eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	397	RightArrowShadowForm := SelectionInListView rightArrowShadowFormOn:Display.
616 a6157b083830 support of different styles ca parents: 608 diff changeset	398	] ifFalse:[
1368 eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	399	RightArrowShadowForm := nil
616 a6157b083830 support of different styles ca parents: 608 diff changeset	400	].
a6157b083830 support of different styles ca parents: 608 diff changeset	401
730 9e45051a4fbd better button draw routine + style sheet support tz parents: 729 diff changeset	402	SelectionFrameBrightColor := Color white.
9e45051a4fbd better button draw routine + style sheet support tz parents: 729 diff changeset	403	SelectionFrameDarkColor := Color black.
9e45051a4fbd better button draw routine + style sheet support tz parents: 729 diff changeset	404
1331 aae37cbfb30a fixed style handling to avoid bad resizing when popup-level/bw Claus Gittinger <cg@exept.de> parents: 1330 diff changeset	405	ButtonActiveLevel := menuStyle at:#'menu.buttonActiveLevel' default:(menuStyle is3D ifTrue:[-2] ifFalse:[0]).
1081 fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	406	ButtonActiveLevel isNil ifTrue:[
1368 eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	407	ButtonActiveLevel := menuStyle at:#'button.activeLevel' default:(menuStyle is3D ifTrue:[-2] ifFalse:[0]).
1331 aae37cbfb30a fixed style handling to avoid bad resizing when popup-level/bw Claus Gittinger <cg@exept.de> parents: 1330 diff changeset	408	].
aae37cbfb30a fixed style handling to avoid bad resizing when popup-level/bw Claus Gittinger <cg@exept.de> parents: 1330 diff changeset	409	ButtonPassiveLevel := menuStyle at:#'menu.buttonPassiveLevel'.
1081 fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	410	ButtonPassiveLevel isNil ifTrue:[
1368 eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	411	ButtonPassiveLevel := menuStyle at:#'button.passiveLevel' default:(menuStyle is3D ifTrue:[2] ifFalse:[0]).
1331 aae37cbfb30a fixed style handling to avoid bad resizing when popup-level/bw Claus Gittinger <cg@exept.de> parents: 1330 diff changeset	412	].
aae37cbfb30a fixed style handling to avoid bad resizing when popup-level/bw Claus Gittinger <cg@exept.de> parents: 1330 diff changeset	413	ButtonActiveBackgroundColor := menuStyle at:#'button.activeBackgroundColor' default: DefaultBackgroundColor.
aae37cbfb30a fixed style handling to avoid bad resizing when popup-level/bw Claus Gittinger <cg@exept.de> parents: 1330 diff changeset	414	ButtonPassiveBackgroundColor := (menuStyle at:#'button.backgroundColor') ? (menuStyle at:'viewBackground') ? DefaultBackgroundColor.
1336 6087005f59a8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1332 diff changeset	415
6087005f59a8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1332 diff changeset	416	ButtonLightColor := menuStyle at:#'button.lightColor'.
6087005f59a8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1332 diff changeset	417	ButtonLightColor isNil ifTrue:[
1368 eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	418	ButtonLightColor := (ButtonPassiveBackgroundColor averageColorIn:(0@0 corner:7@7)) lightened. "/ Color white
1336 6087005f59a8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1332 diff changeset	419	].
6087005f59a8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1332 diff changeset	420	ButtonShadowColor := menuStyle at:#'button.shadowColor'.
6087005f59a8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1332 diff changeset	421	ButtonShadowColor isNil ifTrue:[
1368 eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	422	ButtonShadowColor := (ButtonPassiveBackgroundColor averageColorIn:(0@0 corner:7@7)) darkened. "/ Color white
1336 6087005f59a8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1332 diff changeset	423	"/ (style == #next ifTrue:[
6087005f59a8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1332 diff changeset	424	"/ ButtonShadowColor := Color black
6087005f59a8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1332 diff changeset	425	"/ ] ifFalse:[
6087005f59a8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1332 diff changeset	426	"/ ButtonShadowColor := Color gray
6087005f59a8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1332 diff changeset	427	"/ ]
6087005f59a8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1332 diff changeset	428	].
1331 aae37cbfb30a fixed style handling to avoid bad resizing when popup-level/bw Claus Gittinger <cg@exept.de> parents: 1330 diff changeset	429	ButtonHalfLightColor := menuStyle at:#'button.halfLightColor'.
aae37cbfb30a fixed style handling to avoid bad resizing when popup-level/bw Claus Gittinger <cg@exept.de> parents: 1330 diff changeset	430	ButtonHalfShadowColor := menuStyle at:#'button.halfShadowColor'.
aae37cbfb30a fixed style handling to avoid bad resizing when popup-level/bw Claus Gittinger <cg@exept.de> parents: 1330 diff changeset	431	ButtonEdgeStyle := menuStyle at:#'button.edgeStyle'.
aae37cbfb30a fixed style handling to avoid bad resizing when popup-level/bw Claus Gittinger <cg@exept.de> parents: 1330 diff changeset	432
aae37cbfb30a fixed style handling to avoid bad resizing when popup-level/bw Claus Gittinger <cg@exept.de> parents: 1330 diff changeset	433	ButtonEnteredBackgroundColor := menuStyle colorAt:#'menu.buttonEnteredBackgroundColor'.
1081 fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	434	ButtonEnteredBackgroundColor isNil ifTrue:[
1368 eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	435	ButtonEnteredBackgroundColor := menuStyle colorAt:#'button.enteredBackgroundColor'
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	436	default:ButtonPassiveBackgroundColor.
1081 fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	437	].
1331 aae37cbfb30a fixed style handling to avoid bad resizing when popup-level/bw Claus Gittinger <cg@exept.de> parents: 1330 diff changeset	438	ButtonEnteredLevel := menuStyle at:#'menu.buttonEnteredLevel' default:ButtonPassiveLevel.
1081 fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	439
616 a6157b083830 support of different styles ca parents: 608 diff changeset	440	Item updateStyleCache
1018 67c883ab05d6 kludge fixes for normal style. Claus Gittinger <cg@exept.de> parents: 1010 diff changeset	441
1081 fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	442	"
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	443	self updateStyleCache
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	444	"
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	445
1130 fb79ef4aeec8 style changes Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	446	"Modified: / 10.9.1998 / 21:40:32 / cg"
388 dce33f8bb806 intitial checkin ca parents: diff changeset	447	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	448
794 5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	449	!MenuPanel class methodsFor:'image registration'!
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	450
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	451	image:anImage onDevice:aDevice
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	452	"
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	453	Images := nil
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	454	"
1097 8a2f6c5ad1a9 * empty log message * Claus Gittinger <cg@exept.de> parents: 1096 diff changeset	455	\|deviceImages image\|
794 5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	456
1156 6fa33dc93509 fix to avoid repeated image>>onDevice Claus Gittinger <cg@exept.de> parents: 1151 diff changeset	457	anImage device == aDevice ifTrue:[
1368 eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	458	^ anImage
1156 6fa33dc93509 fix to avoid repeated image>>onDevice Claus Gittinger <cg@exept.de> parents: 1151 diff changeset	459	].
6fa33dc93509 fix to avoid repeated image>>onDevice Claus Gittinger <cg@exept.de> parents: 1151 diff changeset	460
794 5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	461	Images isNil ifTrue:[ Images := IdentityDictionary new ].
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	462
1097 8a2f6c5ad1a9 * empty log message * Claus Gittinger <cg@exept.de> parents: 1096 diff changeset	463	(deviceImages := Images at:aDevice ifAbsent:nil) isNil ifTrue:[
1368 eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	464	Images at:aDevice put:(deviceImages := Dictionary new)
1097 8a2f6c5ad1a9 * empty log message * Claus Gittinger <cg@exept.de> parents: 1096 diff changeset	465	].
8a2f6c5ad1a9 * empty log message * Claus Gittinger <cg@exept.de> parents: 1096 diff changeset	466
8a2f6c5ad1a9 * empty log message * Claus Gittinger <cg@exept.de> parents: 1096 diff changeset	467	(image := deviceImages at:anImage ifAbsent:nil) notNil ifTrue:[
1368 eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	468	^ image
794 5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	469	].
798 74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	470
794 5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	471	image := anImage copy onDevice:aDevice.
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	472	image clearMaskedPixels.
1097 8a2f6c5ad1a9 * empty log message * Claus Gittinger <cg@exept.de> parents: 1096 diff changeset	473	deviceImages at:anImage put:image.
794 5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	474	^ image
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	475
1156 6fa33dc93509 fix to avoid repeated image>>onDevice Claus Gittinger <cg@exept.de> parents: 1151 diff changeset	476	"Modified: / 29.9.1998 / 12:02:41 / cg"
794 5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	477	!
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	478
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	479	lightenedImage:anImage onDevice:aDevice
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	480	"
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	481	LigthenedImages := nil
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	482	"
1097 8a2f6c5ad1a9 * empty log message * Claus Gittinger <cg@exept.de> parents: 1096 diff changeset	483	\|deviceImages image\|
794 5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	484
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	485	LigthenedImages isNil ifTrue:[ LigthenedImages := IdentityDictionary new ].
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	486
1097 8a2f6c5ad1a9 * empty log message * Claus Gittinger <cg@exept.de> parents: 1096 diff changeset	487	(deviceImages := LigthenedImages at:aDevice ifAbsent:nil) isNil ifTrue:[
1117 3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	488	LigthenedImages at:aDevice put:(deviceImages := Dictionary new)
1097 8a2f6c5ad1a9 * empty log message * Claus Gittinger <cg@exept.de> parents: 1096 diff changeset	489	].
8a2f6c5ad1a9 * empty log message * Claus Gittinger <cg@exept.de> parents: 1096 diff changeset	490
8a2f6c5ad1a9 * empty log message * Claus Gittinger <cg@exept.de> parents: 1096 diff changeset	491	(image := deviceImages at:anImage ifAbsent:nil) notNil ifTrue:[
1117 3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	492	^ image
794 5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	493	].
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	494
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	495	((anImage respondsTo:#colorMap) and:[anImage colorMap notNil]) ifTrue:[
1117 3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	496	image := anImage copy lightened onDevice:aDevice.
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	497	image clearMaskedPixels.
794 5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	498	] ifFalse:[
1117 3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	499	image := self image:anImage onDevice:aDevice
794 5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	500	].
1097 8a2f6c5ad1a9 * empty log message * Claus Gittinger <cg@exept.de> parents: 1096 diff changeset	501	deviceImages at:anImage put:image.
794 5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	502	^ image
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	503
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	504
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	505	! !
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	506
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	507	!MenuPanel class methodsFor:'private'!
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	508
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	509	subMenu:aSubMenu
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	510	"create a submenu; can be redifined in derived classes
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	511	"
1063 08b7ca464437 dont show accelerators for horizontal layouts Claus Gittinger <cg@exept.de> parents: 1054 diff changeset	512	^ (self new) menu:aSubMenu.
08b7ca464437 dont show accelerators for horizontal layouts Claus Gittinger <cg@exept.de> parents: 1054 diff changeset	513
08b7ca464437 dont show accelerators for horizontal layouts Claus Gittinger <cg@exept.de> parents: 1054 diff changeset	514	"Modified: / 8.8.1998 / 02:13:11 / cg"
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	515	! !
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	516
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	517	!MenuPanel methodsFor:'accept'!
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	518
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	519	accept
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	520	"accept current selected item
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	521	"
510 8f77b9382066 bug fix with redraw ca parents: 505 diff changeset	522	^ self accept:(self selection)
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	523	!
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	524
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	525	accept:anItem
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	526	"this is the topMenu: accept item
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	527	"
1293 5b3836bd4024 handle all exposes when hiding a popup, Claus Gittinger <cg@exept.de> parents: 1271 diff changeset	528	\|value item tgState itemIdx recv panel masterGroup\|
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	529
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	530	self superMenu notNil ifTrue:[
1382 a852ac554869 oops - query for shown is not enough to wait for a view to Claus Gittinger <cg@exept.de> parents: 1368 diff changeset	531	^ self topMenu accept:anItem
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	532	].
816 8f8f8e19d983 implement button behaviour ca parents: 798 diff changeset	533	lastButtonSelected := nil.
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	534	self selection:nil.
420 b6f9fff472ef fixes ca parents: 417 diff changeset	535	self forceUngrabMouseAndKeyboard.
b6f9fff472ef fixes ca parents: 417 diff changeset	536
b6f9fff472ef fixes ca parents: 417 diff changeset	537	(anItem notNil and:[anItem canAccept]) ifTrue:[
1382 a852ac554869 oops - query for shown is not enough to wait for a view to Claus Gittinger <cg@exept.de> parents: 1368 diff changeset	538	tgState := anItem toggleIndication.
a852ac554869 oops - query for shown is not enough to wait for a view to Claus Gittinger <cg@exept.de> parents: 1368 diff changeset	539	panel := anItem menuPanel.
a852ac554869 oops - query for shown is not enough to wait for a view to Claus Gittinger <cg@exept.de> parents: 1368 diff changeset	540	itemIdx := panel findFirst:[:el\| el == anItem ].
a852ac554869 oops - query for shown is not enough to wait for a view to Claus Gittinger <cg@exept.de> parents: 1368 diff changeset	541	item := anItem.
a852ac554869 oops - query for shown is not enough to wait for a view to Claus Gittinger <cg@exept.de> parents: 1368 diff changeset	542	recv := panel receiver.
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	543	].
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	544
510 8f77b9382066 bug fix with redraw ca parents: 505 diff changeset	545	self isPopUpView ifFalse:[
1382 a852ac554869 oops - query for shown is not enough to wait for a view to Claus Gittinger <cg@exept.de> parents: 1368 diff changeset	546	self do:[:el\| el updateIndicators].
a852ac554869 oops - query for shown is not enough to wait for a view to Claus Gittinger <cg@exept.de> parents: 1368 diff changeset	547	self windowGroup processExposeEvents.
524 d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	548	] ifTrue:[
1382 a852ac554869 oops - query for shown is not enough to wait for a view to Claus Gittinger <cg@exept.de> parents: 1368 diff changeset	549	self unmap.
a852ac554869 oops - query for shown is not enough to wait for a view to Claus Gittinger <cg@exept.de> parents: 1368 diff changeset	550	"/ give expose event a chance to arrive
a852ac554869 oops - query for shown is not enough to wait for a view to Claus Gittinger <cg@exept.de> parents: 1368 diff changeset	551	[shown and:[realized]] whileTrue:[
a852ac554869 oops - query for shown is not enough to wait for a view to Claus Gittinger <cg@exept.de> parents: 1368 diff changeset	552	self windowGroup processExposeEventsFor:self
a852ac554869 oops - query for shown is not enough to wait for a view to Claus Gittinger <cg@exept.de> parents: 1368 diff changeset	553	].
a852ac554869 oops - query for shown is not enough to wait for a view to Claus Gittinger <cg@exept.de> parents: 1368 diff changeset	554	masterGroup := self windowGroup previousGroup.
a852ac554869 oops - query for shown is not enough to wait for a view to Claus Gittinger <cg@exept.de> parents: 1368 diff changeset	555	self destroy.
a852ac554869 oops - query for shown is not enough to wait for a view to Claus Gittinger <cg@exept.de> parents: 1368 diff changeset	556	masterGroup notNil ifTrue:[masterGroup processExposeEvents].
524 d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	557	].
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	558	value := self accept:item index:itemIdx toggle:tgState receiver:recv.
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	559
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	560	self isPopUpView ifTrue:[
1382 a852ac554869 oops - query for shown is not enough to wait for a view to Claus Gittinger <cg@exept.de> parents: 1368 diff changeset	561	self menuAdornmentAt:#value put:value.
a852ac554869 oops - query for shown is not enough to wait for a view to Claus Gittinger <cg@exept.de> parents: 1368 diff changeset	562	self menuAdornmentAt:#item put:item.
524 d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	563	].
653 cf9b6ef11ade bug fix; no automatic rearrange of items ca parents: 650 diff changeset	564
524 d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	565	^ item.
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	566
1212 9bd3220c9964 checkin from browser Claus Gittinger <cg@exept.de> parents: 1211 diff changeset	567	"Modified: / 22.2.1999 / 20:14:48 / cg"
524 d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	568	!
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	569
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	570	accept:anItem index:anIndex toggle:aState receiver:aReceiver
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	571	"accept an item
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	572	"
1313 0d0a82851838 only send message to app (instead of view) Claus Gittinger <cg@exept.de> parents: 1300 diff changeset	573	\|value argument numArgs isKindOfValueModel rec arg2 app\|
524 d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	574
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	575	anItem isNil ifTrue:[
1368 eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	576	self menuAdornmentAt:#hasPerformed put:true.
524 d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	577	^ nil
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	578	].
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	579
1219 6a0d677a6fac removed some #isKindOf: calls. Claus Gittinger <cg@exept.de> parents: 1218 diff changeset	580	self menuAdornmentAt:#hasPerformed put:(aReceiver isValueModel).
524 d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	581
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	582	(value := anItem value) isNil ifTrue:[
1368 eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	583	^ anIndex
524 d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	584	].
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	585
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	586	(argument := anItem argument) isNil ifTrue:[
1368 eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	587	argument := aState ? anItem
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	588	].
524 d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	589
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	590	value isSymbol ifFalse:[
1368 eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	591	numArgs := value perform:#numArgs ifNotUnderstood:0.
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	592
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	593	numArgs == 0 ifTrue:[
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	594	value value
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	595	] ifFalse:[
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	596	numArgs == 1 ifTrue:[
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	597	value value:argument]
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	598	ifFalse:[
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	599	value value:argument value:self
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	600	]
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	601	].
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	602	self menuAdornmentAt:#hasPerformed put:true.
524 d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	603	^ anIndex
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	604	].
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	605
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	606	aReceiver isNil ifTrue:[
1368 eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	607	^ value
524 d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	608	].
1270 0ae582fd7294 send menuMessage to application, Claus Gittinger <cg@exept.de> parents: 1267 diff changeset	609
1219 6a0d677a6fac removed some #isKindOf: calls. Claus Gittinger <cg@exept.de> parents: 1218 diff changeset	610	isKindOfValueModel := aReceiver isValueModel.
1270 0ae582fd7294 send menuMessage to application, Claus Gittinger <cg@exept.de> parents: 1267 diff changeset	611	isKindOfValueModel ifTrue:[
1368 eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	612	aReceiver value:value
465 67a0f3dd503a in case of performing a selector '0' is returned ca parents: 464 diff changeset	613	] ifFalse:[
1368 eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	614	rec := aReceiver.
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	615	arg2 := self.
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	616
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	617	"/ support for ST80 style applications
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	618	"/ (expecting the message to go to the application
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	619	"/ if not understood by the view)
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	620	"/ These expect the controller to be passed as argument.
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	621	"/ sigh.
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	622
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	623	(aReceiver isView
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	624	and:[(aReceiver respondsTo:value) not
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	625	and:[(app := aReceiver application) ~~ aReceiver
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	626	and:[app notNil]]]) ifTrue:[
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	627	rec := app.
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	628	arg2 := aReceiver controller "/ the Views controller
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	629	].
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	630
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	631	(numArgs := value numArgs) == 0 ifTrue:[
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	632	rec perform:value
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	633	] ifFalse:[
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	634	numArgs == 1 ifTrue:[
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	635	rec perform:value with:argument
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	636	] ifFalse:[
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	637	rec perform:value with:argument with:arg2
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	638	]
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	639	]
420 b6f9fff472ef fixes ca parents: 417 diff changeset	640	].
524 d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	641	self menuAdornmentAt:#hasPerformed put:true.
1270 0ae582fd7294 send menuMessage to application, Claus Gittinger <cg@exept.de> parents: 1267 diff changeset	642	^ value
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	643	!
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	644
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	645	lastItemAccepted
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	646	"returns last item selected or nil
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	647	"
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	648	^ self topMenu menuAdornmentAt:#item
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	649	!
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	650
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	651	lastValueAccepted
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	652	"returns last value accepted or nil
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	653	"
971 c000e2691543 fixed #lastValueSelected Claus Gittinger <cg@exept.de> parents: 963 diff changeset	654	^ (self lastItemAccepted) value
c000e2691543 fixed #lastValueSelected Claus Gittinger <cg@exept.de> parents: 963 diff changeset	655	"/ \|top\|
c000e2691543 fixed #lastValueSelected Claus Gittinger <cg@exept.de> parents: 963 diff changeset	656	"/
c000e2691543 fixed #lastValueSelected Claus Gittinger <cg@exept.de> parents: 963 diff changeset	657	"/ top := self topMenu.
c000e2691543 fixed #lastValueSelected Claus Gittinger <cg@exept.de> parents: 963 diff changeset	658	"/
c000e2691543 fixed #lastValueSelected Claus Gittinger <cg@exept.de> parents: 963 diff changeset	659	"/ (top menuAdornmentAt:#hasPerformed) == true ifTrue:[
c000e2691543 fixed #lastValueSelected Claus Gittinger <cg@exept.de> parents: 963 diff changeset	660	"/ ^ self topMenu menuAdornmentAt:#value.
c000e2691543 fixed #lastValueSelected Claus Gittinger <cg@exept.de> parents: 963 diff changeset	661	"/ ].
c000e2691543 fixed #lastValueSelected Claus Gittinger <cg@exept.de> parents: 963 diff changeset	662	"/ ^ nil
c000e2691543 fixed #lastValueSelected Claus Gittinger <cg@exept.de> parents: 963 diff changeset	663
c000e2691543 fixed #lastValueSelected Claus Gittinger <cg@exept.de> parents: 963 diff changeset	664	"Modified: / 18.6.1998 / 23:37:09 / cg"
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	665	! !
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	666
388 dce33f8bb806 intitial checkin ca parents: diff changeset	667	!MenuPanel methodsFor:'accessing'!
dce33f8bb806 intitial checkin ca parents: diff changeset	668
dce33f8bb806 intitial checkin ca parents: diff changeset	669	accessCharacterPositionAt:stringOrNumber
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	670	"get the access character position for a textLabel
388 dce33f8bb806 intitial checkin ca parents: diff changeset	671	"
dce33f8bb806 intitial checkin ca parents: diff changeset	672	^ self itemAt:stringOrNumber do:[:el\| el accessCharacterPosition ]
dce33f8bb806 intitial checkin ca parents: diff changeset	673	!
dce33f8bb806 intitial checkin ca parents: diff changeset	674
dce33f8bb806 intitial checkin ca parents: diff changeset	675	accessCharacterPositionAt:stringOrNumber put:anIndexOrNil
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	676	"get the access character position for a textLabel
388 dce33f8bb806 intitial checkin ca parents: diff changeset	677	"
dce33f8bb806 intitial checkin ca parents: diff changeset	678	self itemAt:stringOrNumber do:[:el\| el accessCharacterPosition:anIndexOrNil ]
dce33f8bb806 intitial checkin ca parents: diff changeset	679	!
dce33f8bb806 intitial checkin ca parents: diff changeset	680
dce33f8bb806 intitial checkin ca parents: diff changeset	681	accessCharacterPositions
dce33f8bb806 intitial checkin ca parents: diff changeset	682	"returns a collection of accessCharacterPosition's or nil
dce33f8bb806 intitial checkin ca parents: diff changeset	683	"
dce33f8bb806 intitial checkin ca parents: diff changeset	684	^ self collect:[:anItem\| anItem accessCharacterPosition ]
dce33f8bb806 intitial checkin ca parents: diff changeset	685
dce33f8bb806 intitial checkin ca parents: diff changeset	686	!
dce33f8bb806 intitial checkin ca parents: diff changeset	687
dce33f8bb806 intitial checkin ca parents: diff changeset	688	accessCharacterPositions:something
dce33f8bb806 intitial checkin ca parents: diff changeset	689	"define accessCharacterPosition's for each item
dce33f8bb806 intitial checkin ca parents: diff changeset	690	"
dce33f8bb806 intitial checkin ca parents: diff changeset	691	self onEachPerform:#accessCharacterPosition: withArgList:something
dce33f8bb806 intitial checkin ca parents: diff changeset	692	!
dce33f8bb806 intitial checkin ca parents: diff changeset	693
dce33f8bb806 intitial checkin ca parents: diff changeset	694	args
dce33f8bb806 intitial checkin ca parents: diff changeset	695	"returns a collection of argument's or nil
dce33f8bb806 intitial checkin ca parents: diff changeset	696	"
dce33f8bb806 intitial checkin ca parents: diff changeset	697	^ self collect:[:anItem\| anItem argument ]
dce33f8bb806 intitial checkin ca parents: diff changeset	698	!
dce33f8bb806 intitial checkin ca parents: diff changeset	699
dce33f8bb806 intitial checkin ca parents: diff changeset	700	args:something
dce33f8bb806 intitial checkin ca parents: diff changeset	701	"define arguments for each item
dce33f8bb806 intitial checkin ca parents: diff changeset	702	"
dce33f8bb806 intitial checkin ca parents: diff changeset	703	self onEachPerform:#argument: withArgList:something
dce33f8bb806 intitial checkin ca parents: diff changeset	704	!
dce33f8bb806 intitial checkin ca parents: diff changeset	705
dce33f8bb806 intitial checkin ca parents: diff changeset	706	argsAt:stringOrNumber
dce33f8bb806 intitial checkin ca parents: diff changeset	707	"gets the argument of an item or nil
dce33f8bb806 intitial checkin ca parents: diff changeset	708	"
dce33f8bb806 intitial checkin ca parents: diff changeset	709	^ self itemAt:stringOrNumber do:[:el\| el argument ]
dce33f8bb806 intitial checkin ca parents: diff changeset	710	!
dce33f8bb806 intitial checkin ca parents: diff changeset	711
dce33f8bb806 intitial checkin ca parents: diff changeset	712	argsAt:stringOrNumber put:anArgument
dce33f8bb806 intitial checkin ca parents: diff changeset	713	"sets the argument of an item
dce33f8bb806 intitial checkin ca parents: diff changeset	714	"
dce33f8bb806 intitial checkin ca parents: diff changeset	715	self itemAt:stringOrNumber do:[:el\| el argument:anArgument ]
dce33f8bb806 intitial checkin ca parents: diff changeset	716	!
dce33f8bb806 intitial checkin ca parents: diff changeset	717
1081 fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	718	enteredItem
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	719	"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	720	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	721
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	722	^ enteredItem
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	723
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	724	"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	725	!
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	726
388 dce33f8bb806 intitial checkin ca parents: diff changeset	727	groupSizes
dce33f8bb806 intitial checkin ca parents: diff changeset	728	"gets collection of group sizes
dce33f8bb806 intitial checkin ca parents: diff changeset	729	"
dce33f8bb806 intitial checkin ca parents: diff changeset	730	^ groupSizes
dce33f8bb806 intitial checkin ca parents: diff changeset	731	!
dce33f8bb806 intitial checkin ca parents: diff changeset	732
dce33f8bb806 intitial checkin ca parents: diff changeset	733	groupSizes:aGroupSizes
dce33f8bb806 intitial checkin ca parents: diff changeset	734	"sets collection of group sizes
dce33f8bb806 intitial checkin ca parents: diff changeset	735	"
dce33f8bb806 intitial checkin ca parents: diff changeset	736	aGroupSizes = groupSizes ifFalse:[
1117 3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	737	groupSizes := aGroupSizes copy.
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	738	self mustRearrange.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	739	].
dce33f8bb806 intitial checkin ca parents: diff changeset	740	!
dce33f8bb806 intitial checkin ca parents: diff changeset	741
dce33f8bb806 intitial checkin ca parents: diff changeset	742	labelAt:stringOrNumber
dce33f8bb806 intitial checkin ca parents: diff changeset	743	"gets the label of an item or nil
dce33f8bb806 intitial checkin ca parents: diff changeset	744	"
dce33f8bb806 intitial checkin ca parents: diff changeset	745	^ self itemAt:stringOrNumber do:[:el\| el label ]
dce33f8bb806 intitial checkin ca parents: diff changeset	746	!
dce33f8bb806 intitial checkin ca parents: diff changeset	747
dce33f8bb806 intitial checkin ca parents: diff changeset	748	labelAt:stringOrNumber put:aLabel
dce33f8bb806 intitial checkin ca parents: diff changeset	749	"sets the label of an item
dce33f8bb806 intitial checkin ca parents: diff changeset	750	"
dce33f8bb806 intitial checkin ca parents: diff changeset	751	self itemAt:stringOrNumber do:[:el\| el label:aLabel ]
dce33f8bb806 intitial checkin ca parents: diff changeset	752	!
dce33f8bb806 intitial checkin ca parents: diff changeset	753
dce33f8bb806 intitial checkin ca parents: diff changeset	754	labels
dce33f8bb806 intitial checkin ca parents: diff changeset	755	"returns a collection of labels's or nil
dce33f8bb806 intitial checkin ca parents: diff changeset	756	"
dce33f8bb806 intitial checkin ca parents: diff changeset	757	^ self collect:[:anItem\| anItem label ]
dce33f8bb806 intitial checkin ca parents: diff changeset	758
dce33f8bb806 intitial checkin ca parents: diff changeset	759	!
dce33f8bb806 intitial checkin ca parents: diff changeset	760
dce33f8bb806 intitial checkin ca parents: diff changeset	761	labels:labels
dce33f8bb806 intitial checkin ca parents: diff changeset	762	"define labels for each item
dce33f8bb806 intitial checkin ca parents: diff changeset	763	"
dce33f8bb806 intitial checkin ca parents: diff changeset	764	self disabledRedrawDo:[
1117 3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	765	self removeAll.
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	766
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	767	labels notNil ifTrue:[
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	768	labels do:[:aLabel\|(self createAtIndex:nil) label:aLabel]
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	769	]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	770	]
dce33f8bb806 intitial checkin ca parents: diff changeset	771	!
dce33f8bb806 intitial checkin ca parents: diff changeset	772
dce33f8bb806 intitial checkin ca parents: diff changeset	773	nameKeyAt:stringOrNumber
dce33f8bb806 intitial checkin ca parents: diff changeset	774	"gets the nameKey of an item or nil
dce33f8bb806 intitial checkin ca parents: diff changeset	775	"
dce33f8bb806 intitial checkin ca parents: diff changeset	776	^ self itemAt:stringOrNumber do:[:el\| el nameKey ]
dce33f8bb806 intitial checkin ca parents: diff changeset	777	!
dce33f8bb806 intitial checkin ca parents: diff changeset	778
dce33f8bb806 intitial checkin ca parents: diff changeset	779	nameKeyAt:stringOrNumber put:aNameKey
dce33f8bb806 intitial checkin ca parents: diff changeset	780	"sets the nameKey of an item
dce33f8bb806 intitial checkin ca parents: diff changeset	781	"
dce33f8bb806 intitial checkin ca parents: diff changeset	782	self itemAt:stringOrNumber do:[:el\| el nameKey:aNameKey ]
dce33f8bb806 intitial checkin ca parents: diff changeset	783	!
dce33f8bb806 intitial checkin ca parents: diff changeset	784
dce33f8bb806 intitial checkin ca parents: diff changeset	785	nameKeys
dce33f8bb806 intitial checkin ca parents: diff changeset	786	"returns a collection of nameKeys's or nil
dce33f8bb806 intitial checkin ca parents: diff changeset	787	"
dce33f8bb806 intitial checkin ca parents: diff changeset	788	^ self collect:[:anItem\| anItem nameKey ]
dce33f8bb806 intitial checkin ca parents: diff changeset	789	!
dce33f8bb806 intitial checkin ca parents: diff changeset	790
dce33f8bb806 intitial checkin ca parents: diff changeset	791	nameKeys:something
dce33f8bb806 intitial checkin ca parents: diff changeset	792	"define nameKeys for each item
dce33f8bb806 intitial checkin ca parents: diff changeset	793	"
dce33f8bb806 intitial checkin ca parents: diff changeset	794	self onEachPerform:#nameKey: withArgList:something
dce33f8bb806 intitial checkin ca parents: diff changeset	795	!
dce33f8bb806 intitial checkin ca parents: diff changeset	796
dce33f8bb806 intitial checkin ca parents: diff changeset	797	numberOfItems
dce33f8bb806 intitial checkin ca parents: diff changeset	798	"gets number of items
dce33f8bb806 intitial checkin ca parents: diff changeset	799	"
dce33f8bb806 intitial checkin ca parents: diff changeset	800	^ items size
dce33f8bb806 intitial checkin ca parents: diff changeset	801	!
dce33f8bb806 intitial checkin ca parents: diff changeset	802
dce33f8bb806 intitial checkin ca parents: diff changeset	803	receiver
dce33f8bb806 intitial checkin ca parents: diff changeset	804	"get the menu-receiver. Thats the one who gets the messages ( both from myself and
dce33f8bb806 intitial checkin ca parents: diff changeset	805	from all submenus no specific receiver is defined ).
dce33f8bb806 intitial checkin ca parents: diff changeset	806	"
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	807	(receiver isNil and:[superMenu notNil]) ifTrue:[
1117 3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	808	^ superMenu receiver
388 dce33f8bb806 intitial checkin ca parents: diff changeset	809	].
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	810	^ receiver
388 dce33f8bb806 intitial checkin ca parents: diff changeset	811	!
dce33f8bb806 intitial checkin ca parents: diff changeset	812
dce33f8bb806 intitial checkin ca parents: diff changeset	813	receiver:anObject
dce33f8bb806 intitial checkin ca parents: diff changeset	814	"set the menu-receiver. Thats the one who gets the messages ( both from myself and
dce33f8bb806 intitial checkin ca parents: diff changeset	815	from all submenus no specific receiver is defined ).
dce33f8bb806 intitial checkin ca parents: diff changeset	816	"
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	817	receiver := anObject
388 dce33f8bb806 intitial checkin ca parents: diff changeset	818	!
dce33f8bb806 intitial checkin ca parents: diff changeset	819
dce33f8bb806 intitial checkin ca parents: diff changeset	820	shortcutKeyAt:stringOrNumber
dce33f8bb806 intitial checkin ca parents: diff changeset	821	"gets the shortCutKey of an item or nil
dce33f8bb806 intitial checkin ca parents: diff changeset	822	"
dce33f8bb806 intitial checkin ca parents: diff changeset	823	^ self itemAt:stringOrNumber do:[:el\| el shortcutKey ]
dce33f8bb806 intitial checkin ca parents: diff changeset	824	!
dce33f8bb806 intitial checkin ca parents: diff changeset	825
dce33f8bb806 intitial checkin ca parents: diff changeset	826	shortcutKeyAt:stringOrNumber put:aKey
dce33f8bb806 intitial checkin ca parents: diff changeset	827	"sets the shortCutKey of an item
dce33f8bb806 intitial checkin ca parents: diff changeset	828	"
dce33f8bb806 intitial checkin ca parents: diff changeset	829	self itemAt:stringOrNumber do:[:el\| el shortcutKey:aKey ]
dce33f8bb806 intitial checkin ca parents: diff changeset	830	!
dce33f8bb806 intitial checkin ca parents: diff changeset	831
dce33f8bb806 intitial checkin ca parents: diff changeset	832	shortcutKeys
dce33f8bb806 intitial checkin ca parents: diff changeset	833	"returns a collection of shortcutKey's or nil
dce33f8bb806 intitial checkin ca parents: diff changeset	834	"
dce33f8bb806 intitial checkin ca parents: diff changeset	835	^ self collect:[:anItem\| anItem shortcutKey ]
dce33f8bb806 intitial checkin ca parents: diff changeset	836
dce33f8bb806 intitial checkin ca parents: diff changeset	837	!
dce33f8bb806 intitial checkin ca parents: diff changeset	838
dce33f8bb806 intitial checkin ca parents: diff changeset	839	shortcutKeys:something
dce33f8bb806 intitial checkin ca parents: diff changeset	840	"define shortcutKey's for each item
dce33f8bb806 intitial checkin ca parents: diff changeset	841	"
dce33f8bb806 intitial checkin ca parents: diff changeset	842	self onEachPerform:#shortcutKey: withArgList:something
dce33f8bb806 intitial checkin ca parents: diff changeset	843	!
dce33f8bb806 intitial checkin ca parents: diff changeset	844
dce33f8bb806 intitial checkin ca parents: diff changeset	845	valueAt:stringOrNumber
dce33f8bb806 intitial checkin ca parents: diff changeset	846	"gets value of an item; a block, valueHolder, ...
dce33f8bb806 intitial checkin ca parents: diff changeset	847	"
dce33f8bb806 intitial checkin ca parents: diff changeset	848	^ self itemAt:stringOrNumber do:[:el\| el value ]
dce33f8bb806 intitial checkin ca parents: diff changeset	849
dce33f8bb806 intitial checkin ca parents: diff changeset	850	!
dce33f8bb806 intitial checkin ca parents: diff changeset	851
dce33f8bb806 intitial checkin ca parents: diff changeset	852	valueAt:stringOrNumber put:someThing
dce33f8bb806 intitial checkin ca parents: diff changeset	853	"sets value of an item; a block, valueHolder, ...
dce33f8bb806 intitial checkin ca parents: diff changeset	854	"
dce33f8bb806 intitial checkin ca parents: diff changeset	855	self itemAt:stringOrNumber do:[:el\| el value:someThing ]
dce33f8bb806 intitial checkin ca parents: diff changeset	856
dce33f8bb806 intitial checkin ca parents: diff changeset	857
dce33f8bb806 intitial checkin ca parents: diff changeset	858	!
dce33f8bb806 intitial checkin ca parents: diff changeset	859
dce33f8bb806 intitial checkin ca parents: diff changeset	860	values:something
dce33f8bb806 intitial checkin ca parents: diff changeset	861	"define values for each item
dce33f8bb806 intitial checkin ca parents: diff changeset	862	"
dce33f8bb806 intitial checkin ca parents: diff changeset	863	self onEachPerform:#value: withArgList:something
dce33f8bb806 intitial checkin ca parents: diff changeset	864	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	865
dce33f8bb806 intitial checkin ca parents: diff changeset	866	!MenuPanel methodsFor:'accessing behavior'!
dce33f8bb806 intitial checkin ca parents: diff changeset	867
dce33f8bb806 intitial checkin ca parents: diff changeset	868	disableAll
498 b4c341497621 bug fixes: ca parents: 475 diff changeset	869	"disable all items; not the menu in case of enabled
388 dce33f8bb806 intitial checkin ca parents: diff changeset	870	"
498 b4c341497621 bug fixes: ca parents: 475 diff changeset	871	self do:[:anItem\| anItem enabled:false]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	872	!
dce33f8bb806 intitial checkin ca parents: diff changeset	873
dce33f8bb806 intitial checkin ca parents: diff changeset	874	disableAll:collectionOfIndicesOrNames
dce33f8bb806 intitial checkin ca parents: diff changeset	875	"disable an collection of items
dce33f8bb806 intitial checkin ca parents: diff changeset	876	"
dce33f8bb806 intitial checkin ca parents: diff changeset	877	collectionOfIndicesOrNames do:[:entry\| self enabledAt:entry put:false ].
dce33f8bb806 intitial checkin ca parents: diff changeset	878
dce33f8bb806 intitial checkin ca parents: diff changeset	879	!
dce33f8bb806 intitial checkin ca parents: diff changeset	880
dce33f8bb806 intitial checkin ca parents: diff changeset	881	enableAll
498 b4c341497621 bug fixes: ca parents: 475 diff changeset	882	"enable all items; not the menu in case of disabled
388 dce33f8bb806 intitial checkin ca parents: diff changeset	883	"
498 b4c341497621 bug fixes: ca parents: 475 diff changeset	884	self do:[:anItem\| anItem enabled:true]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	885	!
dce33f8bb806 intitial checkin ca parents: diff changeset	886
dce33f8bb806 intitial checkin ca parents: diff changeset	887	enableAll:collectionOfIndicesOrNames
dce33f8bb806 intitial checkin ca parents: diff changeset	888	"enable an collection of items
dce33f8bb806 intitial checkin ca parents: diff changeset	889	"
dce33f8bb806 intitial checkin ca parents: diff changeset	890	collectionOfIndicesOrNames do:[:entry\| self enabledAt:entry put:true ].
dce33f8bb806 intitial checkin ca parents: diff changeset	891
dce33f8bb806 intitial checkin ca parents: diff changeset	892	!
dce33f8bb806 intitial checkin ca parents: diff changeset	893
dce33f8bb806 intitial checkin ca parents: diff changeset	894	enabled
dce33f8bb806 intitial checkin ca parents: diff changeset	895	"returns enabled state
dce33f8bb806 intitial checkin ca parents: diff changeset	896	"
498 b4c341497621 bug fixes: ca parents: 475 diff changeset	897	^ enabled
388 dce33f8bb806 intitial checkin ca parents: diff changeset	898	!
dce33f8bb806 intitial checkin ca parents: diff changeset	899
dce33f8bb806 intitial checkin ca parents: diff changeset	900	enabled:aState
dce33f8bb806 intitial checkin ca parents: diff changeset	901	"change enabled state of menu
dce33f8bb806 intitial checkin ca parents: diff changeset	902	"
545 d01d14358b07 * empty log message * Claus Gittinger <cg@exept.de> parents: 524 diff changeset	903	\|state\|
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	904
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	905	state := aState ? true.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	906
1218 6ce43fcb2603 code cleanup Claus Gittinger <cg@exept.de> parents: 1217 diff changeset	907	enabled == state ifTrue:[
1368 eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	908	^ self
498 b4c341497621 bug fixes: ca parents: 475 diff changeset	909	].
b4c341497621 bug fixes: ca parents: 475 diff changeset	910	enabled := state.
b4c341497621 bug fixes: ca parents: 475 diff changeset	911
b4c341497621 bug fixes: ca parents: 475 diff changeset	912	self canDrawItem ifTrue:[
1368 eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	913	self do:[:anItem\| anItem enabledStateOfMenuChangedTo:enabled]
498 b4c341497621 bug fixes: ca parents: 475 diff changeset	914	].
388 dce33f8bb806 intitial checkin ca parents: diff changeset	915	!
dce33f8bb806 intitial checkin ca parents: diff changeset	916
dce33f8bb806 intitial checkin ca parents: diff changeset	917	enabledAt:stringOrNumber
dce33f8bb806 intitial checkin ca parents: diff changeset	918	"gets the enabled state of an item or false
dce33f8bb806 intitial checkin ca parents: diff changeset	919	"
dce33f8bb806 intitial checkin ca parents: diff changeset	920	^ self itemAt:stringOrNumber do:[:el\| el enabled ] ifAbsent:false
dce33f8bb806 intitial checkin ca parents: diff changeset	921	!
dce33f8bb806 intitial checkin ca parents: diff changeset	922
dce33f8bb806 intitial checkin ca parents: diff changeset	923	enabledAt:stringOrNumber put:aState
dce33f8bb806 intitial checkin ca parents: diff changeset	924	"sets the enabled state of an item
dce33f8bb806 intitial checkin ca parents: diff changeset	925	"
dce33f8bb806 intitial checkin ca parents: diff changeset	926	self itemAt:stringOrNumber do:[:el\| el enabled:aState ]
dce33f8bb806 intitial checkin ca parents: diff changeset	927	!
dce33f8bb806 intitial checkin ca parents: diff changeset	928
dce33f8bb806 intitial checkin ca parents: diff changeset	929	isEnabled:stringOrNumber
dce33f8bb806 intitial checkin ca parents: diff changeset	930	"gets the enabled state of an item or false
dce33f8bb806 intitial checkin ca parents: diff changeset	931	"
dce33f8bb806 intitial checkin ca parents: diff changeset	932	^ self enabledAt:stringOrNumber
dce33f8bb806 intitial checkin ca parents: diff changeset	933	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	934
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	935	!MenuPanel methodsFor:'accessing channels'!
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	936
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	937	enableChannel
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	938	"gets a enable channel or nil
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	939	"
498 b4c341497621 bug fixes: ca parents: 475 diff changeset	940	^ enableChannel
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	941	!
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	942
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	943	enableChannel:aValueHolder
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	944	"set my enableChannel
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	945	"
498 b4c341497621 bug fixes: ca parents: 475 diff changeset	946	enableChannel notNil ifTrue:[
1117 3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	947	enableChannel removeDependent:self
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	948	].
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	949
498 b4c341497621 bug fixes: ca parents: 475 diff changeset	950	(enableChannel := aValueHolder) notNil ifTrue:[
1117 3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	951	enableChannel addDependent:self.
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	952	].
498 b4c341497621 bug fixes: ca parents: 475 diff changeset	953	self enabled:(enableChannel value).
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	954	!
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	955
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	956	menuHolder
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	957	"gets a menu holder or nil
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	958	"
498 b4c341497621 bug fixes: ca parents: 475 diff changeset	959	^ menuHolder
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	960	!
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	961
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	962	menuHolder:aValueHolder
498 b4c341497621 bug fixes: ca parents: 475 diff changeset	963	"set my menuHolder
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	964	"
498 b4c341497621 bug fixes: ca parents: 475 diff changeset	965	menuHolder notNil ifTrue:[
1117 3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	966	menuHolder removeDependent:self
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	967	].
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	968
498 b4c341497621 bug fixes: ca parents: 475 diff changeset	969	(menuHolder := aValueHolder) notNil ifTrue:[
1117 3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	970	menuHolder addDependent:self.
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	971	].
498 b4c341497621 bug fixes: ca parents: 475 diff changeset	972	self menu:(menuHolder value)
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	973	! !
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	974
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	975	!MenuPanel methodsFor:'accessing color & font'!
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	976
616 a6157b083830 support of different styles ca parents: 608 diff changeset	977	activeBackgroundColor
a6157b083830 support of different styles ca parents: 608 diff changeset	978	"get the background drawing color used to highlight selection
a6157b083830 support of different styles ca parents: 608 diff changeset	979	"
a6157b083830 support of different styles ca parents: 608 diff changeset	980	^ activeBgColor
a6157b083830 support of different styles ca parents: 608 diff changeset	981	!
a6157b083830 support of different styles ca parents: 608 diff changeset	982
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	983	activeBackgroundColor:aColor
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	984	"set the background drawing color used to highlight selection. You should not
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	985	use this method; instead leave the value as defined in the styleSheet.
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	986	"
616 a6157b083830 support of different styles ca parents: 608 diff changeset	987	activeBgColor ~~ aColor ifTrue:[
1478 38f08dec8e34 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	988	activeBgColor := aColor onDevice:device.
38f08dec8e34 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	989	shown ifTrue:[
38f08dec8e34 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	990	self invalidate "/ RepairNow:true
38f08dec8e34 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	991	]
616 a6157b083830 support of different styles ca parents: 608 diff changeset	992	]
a6157b083830 support of different styles ca parents: 608 diff changeset	993
911 6b1ad8b039c5 no, repairNow should not be needed here Claus Gittinger <cg@exept.de> parents: 910 diff changeset	994	"Modified: / 6.6.1998 / 19:49:46 / cg"
616 a6157b083830 support of different styles ca parents: 608 diff changeset	995	!
a6157b083830 support of different styles ca parents: 608 diff changeset	996
a6157b083830 support of different styles ca parents: 608 diff changeset	997	activeForegroundColor
a6157b083830 support of different styles ca parents: 608 diff changeset	998	"get the foreground color used to highlight selections
a6157b083830 support of different styles ca parents: 608 diff changeset	999	"
a6157b083830 support of different styles ca parents: 608 diff changeset	1000	^ activeFgColor
a6157b083830 support of different styles ca parents: 608 diff changeset	1001	!
a6157b083830 support of different styles ca parents: 608 diff changeset	1002
a6157b083830 support of different styles ca parents: 608 diff changeset	1003	activeForegroundColor:aColor
a6157b083830 support of different styles ca parents: 608 diff changeset	1004	"set the foreground color used to highlight selections; You should not
a6157b083830 support of different styles ca parents: 608 diff changeset	1005	use this method; instead leave the value as defined in the styleSheet.
a6157b083830 support of different styles ca parents: 608 diff changeset	1006	"
a6157b083830 support of different styles ca parents: 608 diff changeset	1007	activeFgColor ~~ aColor ifTrue:[
1478 38f08dec8e34 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	1008	activeFgColor := aColor onDevice:device.
38f08dec8e34 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	1009	shown ifTrue:[
38f08dec8e34 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	1010	self invalidate "/ RepairNow:true
38f08dec8e34 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	1011	]
616 a6157b083830 support of different styles ca parents: 608 diff changeset	1012	]
a6157b083830 support of different styles ca parents: 608 diff changeset	1013
911 6b1ad8b039c5 no, repairNow should not be needed here Claus Gittinger <cg@exept.de> parents: 910 diff changeset	1014	"Modified: / 6.6.1998 / 19:50:01 / cg"
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1015	!
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1016
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1017	backgroundColor
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1018	"return the background color
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1019	"
502 dedc1b29b6ac support of arguments ca parents: 498 diff changeset	1020	^ super viewBackground
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1021	!
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1022
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1023	backgroundColor:aColor
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1024	"set the background drawing color. You should not use this method;
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1025	instead leave the value as defined in the styleSheet.
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1026	"
616 a6157b083830 support of different styles ca parents: 608 diff changeset	1027	super viewBackground ~~ aColor ifTrue:[
1117 3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	1028	super viewBackground:aColor.
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	1029	shown ifTrue:[
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	1030	self invalidate "/ RepairNow:true
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	1031	]
616 a6157b083830 support of different styles ca parents: 608 diff changeset	1032	]
a6157b083830 support of different styles ca parents: 608 diff changeset	1033
911 6b1ad8b039c5 no, repairNow should not be needed here Claus Gittinger <cg@exept.de> parents: 910 diff changeset	1034	"Modified: / 6.6.1998 / 19:50:06 / cg"
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1035	!
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1036
727 3ba54333342a button style from style sheet tz parents: 723 diff changeset	1037	buttonActiveBackgroundColor
3ba54333342a button style from style sheet tz parents: 723 diff changeset	1038	"get the background drawing color used to highlight button selection
3ba54333342a button style from style sheet tz parents: 723 diff changeset	1039	"
3ba54333342a button style from style sheet tz parents: 723 diff changeset	1040	^ButtonActiveBackgroundColor
3ba54333342a button style from style sheet tz parents: 723 diff changeset	1041	!
3ba54333342a button style from style sheet tz parents: 723 diff changeset	1042
730 9e45051a4fbd better button draw routine + style sheet support tz parents: 729 diff changeset	1043	buttonEdgeStyle
9e45051a4fbd better button draw routine + style sheet support tz parents: 729 diff changeset	1044	"get the button edge style
9e45051a4fbd better button draw routine + style sheet support tz parents: 729 diff changeset	1045	"
9e45051a4fbd better button draw routine + style sheet support tz parents: 729 diff changeset	1046	^ButtonEdgeStyle
9e45051a4fbd better button draw routine + style sheet support tz parents: 729 diff changeset	1047	!
9e45051a4fbd better button draw routine + style sheet support tz parents: 729 diff changeset	1048
1081 fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1049	buttonEnteredBackgroundColor
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1050	"get the background drawing color used to highlight entered button items
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1051	"
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1052	^ buttonEnteredBgColor
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1053
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1054	"Created: / 20.8.1998 / 13:53:37 / cg"
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1055	!
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1056
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1057	buttonEnteredLevel
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1058	"get the 3D-level used to highlight entered button items
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1059	"
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1060	^ ButtonEnteredLevel
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1061
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1062	"Created: / 20.8.1998 / 13:53:46 / cg"
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1063	"Modified: / 20.8.1998 / 15:49:32 / cg"
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1064	!
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1065
730 9e45051a4fbd better button draw routine + style sheet support tz parents: 729 diff changeset	1066	buttonHalfLightColor
9e45051a4fbd better button draw routine + style sheet support tz parents: 729 diff changeset	1067	"get the background drawing color used to half light button frame
9e45051a4fbd better button draw routine + style sheet support tz parents: 729 diff changeset	1068	"
9e45051a4fbd better button draw routine + style sheet support tz parents: 729 diff changeset	1069	^buttonHalfLightColor
9e45051a4fbd better button draw routine + style sheet support tz parents: 729 diff changeset	1070	!
9e45051a4fbd better button draw routine + style sheet support tz parents: 729 diff changeset	1071
9e45051a4fbd better button draw routine + style sheet support tz parents: 729 diff changeset	1072	buttonHalfShadowColor
9e45051a4fbd better button draw routine + style sheet support tz parents: 729 diff changeset	1073	"get the background drawing color used to half shadow button frame
9e45051a4fbd better button draw routine + style sheet support tz parents: 729 diff changeset	1074	"
9e45051a4fbd better button draw routine + style sheet support tz parents: 729 diff changeset	1075	^buttonHalfShadowColor
727 3ba54333342a button style from style sheet tz parents: 723 diff changeset	1076	!
3ba54333342a button style from style sheet tz parents: 723 diff changeset	1077
3ba54333342a button style from style sheet tz parents: 723 diff changeset	1078	buttonLightColor
3ba54333342a button style from style sheet tz parents: 723 diff changeset	1079	"get the background drawing color used to light button frame
3ba54333342a button style from style sheet tz parents: 723 diff changeset	1080	"
3ba54333342a button style from style sheet tz parents: 723 diff changeset	1081	^buttonLightColor
3ba54333342a button style from style sheet tz parents: 723 diff changeset	1082	!
3ba54333342a button style from style sheet tz parents: 723 diff changeset	1083
3ba54333342a button style from style sheet tz parents: 723 diff changeset	1084	buttonPassiveBackgroundColor
3ba54333342a button style from style sheet tz parents: 723 diff changeset	1085	"get the background drawing color used for button
3ba54333342a button style from style sheet tz parents: 723 diff changeset	1086	"
3ba54333342a button style from style sheet tz parents: 723 diff changeset	1087	^ButtonPassiveBackgroundColor
3ba54333342a button style from style sheet tz parents: 723 diff changeset	1088	!
3ba54333342a button style from style sheet tz parents: 723 diff changeset	1089
3ba54333342a button style from style sheet tz parents: 723 diff changeset	1090	buttonShadowColor
3ba54333342a button style from style sheet tz parents: 723 diff changeset	1091	"get the background drawing color used to shadow button frame
3ba54333342a button style from style sheet tz parents: 723 diff changeset	1092	"
3ba54333342a button style from style sheet tz parents: 723 diff changeset	1093	^buttonShadowColor
3ba54333342a button style from style sheet tz parents: 723 diff changeset	1094	!
3ba54333342a button style from style sheet tz parents: 723 diff changeset	1095
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1096	disabledForegroundColor
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1097	"return the foreground color used by disabled items
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1098	"
616 a6157b083830 support of different styles ca parents: 608 diff changeset	1099	^ disabledFgColor
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1100
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1101	!
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1102
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1103	disabledForegroundColor:aColor
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1104	"set the foregroundColor drawing color used by disabled items. You should not
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1105	use this method; instead leave the value as defined in the styleSheet.
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1106	"
616 a6157b083830 support of different styles ca parents: 608 diff changeset	1107	disabledFgColor ~~ aColor ifTrue:[
1478 38f08dec8e34 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	1108	disabledFgColor := aColor onDevice:device.
38f08dec8e34 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	1109	shown ifTrue:[
38f08dec8e34 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	1110	self invalidate "/ RepairNow:true
38f08dec8e34 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	1111	]
616 a6157b083830 support of different styles ca parents: 608 diff changeset	1112	].
a6157b083830 support of different styles ca parents: 608 diff changeset	1113
911 6b1ad8b039c5 no, repairNow should not be needed here Claus Gittinger <cg@exept.de> parents: 910 diff changeset	1114	"Modified: / 6.6.1998 / 19:50:17 / cg"
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1115	!
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1116
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1117	font:aFont
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1118	"set the font
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1119	"
829 c86ed87da63b bug fix: ca parents: 828 diff changeset	1120	(aFont notNil and:[aFont ~= font]) ifTrue:[
1478 38f08dec8e34 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	1121	super font:(aFont onDevice:device).
38f08dec8e34 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	1122
38f08dec8e34 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	1123	superMenu notNil ifTrue:[
38f08dec8e34 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	1124	self extent:(self preferredExtent)
38f08dec8e34 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	1125	].
38f08dec8e34 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	1126	self mustRearrange.
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1127	]
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1128	!
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1129
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1130	foregroundColor
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1131	"return the passive foreground color
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1132	"
616 a6157b083830 support of different styles ca parents: 608 diff changeset	1133	^ fgColor
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1134
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1135
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1136	!
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1137
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1138	foregroundColor:aColor
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1139	"set the foregroundColor drawing color. You should not use this method;
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1140	instead leave the value as defined in the styleSheet.
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1141	"
616 a6157b083830 support of different styles ca parents: 608 diff changeset	1142	fgColor ~~ aColor ifTrue:[
1478 38f08dec8e34 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	1143	fgColor := aColor onDevice:device.
38f08dec8e34 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	1144	shown ifTrue:[
38f08dec8e34 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	1145	self invalidate "/ RepairNow:true
38f08dec8e34 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	1146	]
616 a6157b083830 support of different styles ca parents: 608 diff changeset	1147	]
a6157b083830 support of different styles ca parents: 608 diff changeset	1148
911 6b1ad8b039c5 no, repairNow should not be needed here Claus Gittinger <cg@exept.de> parents: 910 diff changeset	1149	"Modified: / 6.6.1998 / 19:50:46 / cg"
580 249f6cfc5bb2 checkin from browser Claus Gittinger <cg@exept.de> parents: 571 diff changeset	1150	!
249f6cfc5bb2 checkin from browser Claus Gittinger <cg@exept.de> parents: 571 diff changeset	1151
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1152	lightColor
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1153	"get the lightColor
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1154	"
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1155	^ lightColor
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1156
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1157
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1158	!
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1159
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1160	lightColor:aColor
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1161	"set the light drawing color. You should not use this method;
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1162	instead leave the value as defined in the styleSheet.
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1163	"
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1164	lightColor ~~ aColor ifTrue:[
1117 3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	1165	super lightColor:aColor.
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	1166	shown ifTrue:[
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	1167	self invalidate "/ RepairNow:true
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	1168	]
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1169	]
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1170
911 6b1ad8b039c5 no, repairNow should not be needed here Claus Gittinger <cg@exept.de> parents: 910 diff changeset	1171	"Modified: / 6.6.1998 / 19:50:39 / cg"
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1172	!
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1173
730 9e45051a4fbd better button draw routine + style sheet support tz parents: 729 diff changeset	1174	selectionFrameBrightColor
9e45051a4fbd better button draw routine + style sheet support tz parents: 729 diff changeset	1175	"get the selection frame bright color
9e45051a4fbd better button draw routine + style sheet support tz parents: 729 diff changeset	1176	"
9e45051a4fbd better button draw routine + style sheet support tz parents: 729 diff changeset	1177	^selectionFrameBrightColor
9e45051a4fbd better button draw routine + style sheet support tz parents: 729 diff changeset	1178	!
9e45051a4fbd better button draw routine + style sheet support tz parents: 729 diff changeset	1179
9e45051a4fbd better button draw routine + style sheet support tz parents: 729 diff changeset	1180	selectionFrameDarkColor
9e45051a4fbd better button draw routine + style sheet support tz parents: 729 diff changeset	1181	"get the selection frame dark color
9e45051a4fbd better button draw routine + style sheet support tz parents: 729 diff changeset	1182	"
9e45051a4fbd better button draw routine + style sheet support tz parents: 729 diff changeset	1183	^selectionFrameDarkColor
9e45051a4fbd better button draw routine + style sheet support tz parents: 729 diff changeset	1184	!
9e45051a4fbd better button draw routine + style sheet support tz parents: 729 diff changeset	1185
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1186	shadowColor
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1187	"get the shadowColor
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1188	"
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1189	^ shadowColor
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1190
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1191
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1192	!
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1193
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1194	shadowColor:aColor
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1195	"set the shadow drawing color. You should not use this method;
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1196	instead leave the value as defined in the styleSheet.
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1197	"
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1198	shadowColor ~~ aColor ifTrue:[
1117 3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	1199	super shadowColor:aColor.
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	1200	shown ifTrue:[
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	1201	self invalidate "/ RepairNow:true
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	1202	]
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1203	]
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1204
911 6b1ad8b039c5 no, repairNow should not be needed here Claus Gittinger <cg@exept.de> parents: 910 diff changeset	1205	"Modified: / 6.6.1998 / 19:50:32 / cg"
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1206	! !
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1207
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1208	!MenuPanel methodsFor:'accessing dimensions'!
dce33f8bb806 intitial checkin ca parents: diff changeset	1209
dce33f8bb806 intitial checkin ca parents: diff changeset	1210	height
dce33f8bb806 intitial checkin ca parents: diff changeset	1211	"default height
dce33f8bb806 intitial checkin ca parents: diff changeset	1212	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1213	\|item\|
dce33f8bb806 intitial checkin ca parents: diff changeset	1214
dce33f8bb806 intitial checkin ca parents: diff changeset	1215	(explicitExtent ~~ true) ifTrue:[
1117 3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	1216	(item := self itemAt:1) notNil ifTrue:[
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	1217	self rearrangeItems.
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	1218	^ item height
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	1219	].
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	1220	^ 4 + (font height + (font descent * 2)).
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1221	].
dce33f8bb806 intitial checkin ca parents: diff changeset	1222	^ super height
dce33f8bb806 intitial checkin ca parents: diff changeset	1223	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1224
dce33f8bb806 intitial checkin ca parents: diff changeset	1225	preferredExtent
dce33f8bb806 intitial checkin ca parents: diff changeset	1226	"compute and returns my preferred extent
dce33f8bb806 intitial checkin ca parents: diff changeset	1227	"
650 29dcdf6a5994 button and label translation support added tz parents: 638 diff changeset	1228	\|x y hasMenu shCtKey space hrzInset\|
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1229
dce33f8bb806 intitial checkin ca parents: diff changeset	1230	self numberOfItems == 0 ifTrue:[
1472 fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	1231	^ 32 @ 32
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1232	].
616 a6157b083830 support of different styles ca parents: 608 diff changeset	1233	space := (items size + 1) * itemSpace.
a6157b083830 support of different styles ca parents: 608 diff changeset	1234
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1235	self isFitPanel ifTrue:[
1472 fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	1236	x := 0
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1237	] ifFalse:[
1472 fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	1238	x := groupSizes size * groupDividerSize.
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1239	].
650 29dcdf6a5994 button and label translation support added tz parents: 638 diff changeset	1240	hrzInset := items first horizontalInset.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1241
dce33f8bb806 intitial checkin ca parents: diff changeset	1242	self verticalLayout ifFalse:[
1472 fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	1243	"/ horizontal - add x-extents; take max of y-extents
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	1244	y := 0.
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	1245
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	1246	self do:[:el\| \|elY elPref\|
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	1247	el isVisible ifTrue:[
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	1248	elPref := el preferredExtent.
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	1249	x := x + elPref x.
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	1250	elY := elPref y.
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	1251	el isButton ifTrue:[
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	1252	elY := elY + (2 * DefaultButtonItemSpace).
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	1253	x := x + (2 * DefaultButtonItemSpace).
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	1254	].
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	1255	y := y max:elY.
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	1256	]
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	1257	].
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	1258	x := x + space.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1259	] ifTrue:[
1472 fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	1260	"/ vertical - add y-extents
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	1261	hasMenu := false.
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	1262	shCtKey := 0.
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	1263	y := x.
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	1264	x := 0.
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	1265
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	1266	self do:[:el\| \|l e\|
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	1267	el isVisible ifTrue:[
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	1268	(l := el rawLabel) notNil ifTrue:[
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	1269	(e := l widthOn:self) > x ifTrue:[x := e].
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	1270
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	1271	el hasSubmenu ifTrue:[
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	1272	hasMenu := true
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	1273	].
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	1274
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	1275	( (l := el shortcutKeyAsString) notNil
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	1276	and:[(e := l widthOn:self) > shCtKey]
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	1277	) ifTrue:[
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	1278	shCtKey := e
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	1279	].
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	1280	].
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	1281	y := y + el preferredExtent y
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	1282	]
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	1283	].
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	1284	x := x + hrzInset.
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	1285
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	1286	(hasMenu or:[shCtKey ~~ 0]) ifTrue:[
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	1287	shortKeyInset := x + Item labelRightOffset.
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	1288	x := shortKeyInset + shCtKey + self subMenuIndicationWidth.
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	1289
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	1290	(shCtKey ~~ 0 and:[hasMenu]) ifTrue:[
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	1291	x := x + (Item shortcutKeyOffset)
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	1292	]
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	1293	].
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	1294	y := y + space.
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	1295	x := x + hrzInset.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1296	].
1101 22eb87115477 level on default 1 ca parents: 1097 diff changeset	1297	^ (x @ y) + (margin + margin)
1095 44b55760239b checkin from browser Claus Gittinger <cg@exept.de> parents: 1093 diff changeset	1298
44b55760239b checkin from browser Claus Gittinger <cg@exept.de> parents: 1093 diff changeset	1299	"Modified: / 24.8.1998 / 19:16:02 / cg"
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1300	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1301
dce33f8bb806 intitial checkin ca parents: diff changeset	1302	shortKeyInset
dce33f8bb806 intitial checkin ca parents: diff changeset	1303	"left inset of shortcutKey
dce33f8bb806 intitial checkin ca parents: diff changeset	1304	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1305	^ shortKeyInset
616 a6157b083830 support of different styles ca parents: 608 diff changeset	1306	!
a6157b083830 support of different styles ca parents: 608 diff changeset	1307
a6157b083830 support of different styles ca parents: 608 diff changeset	1308	subMenuIndicationWidth
a6157b083830 support of different styles ca parents: 608 diff changeset	1309	^ RightArrowForm width
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1310	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	1311
dce33f8bb806 intitial checkin ca parents: diff changeset	1312	!MenuPanel methodsFor:'accessing items'!
dce33f8bb806 intitial checkin ca parents: diff changeset	1313
dce33f8bb806 intitial checkin ca parents: diff changeset	1314	itemAt:stringOrNumber
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1315	"returns item assigned to an index, nameKey, textLabel or value if symbol.
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1316	If no item match nil is returned.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1317	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1318	\|idx\|
dce33f8bb806 intitial checkin ca parents: diff changeset	1319
dce33f8bb806 intitial checkin ca parents: diff changeset	1320	idx := self indexOf:stringOrNumber.
dce33f8bb806 intitial checkin ca parents: diff changeset	1321	(idx > 0 and:[idx <= items size]) ifTrue:[ ^ items at:idx ].
dce33f8bb806 intitial checkin ca parents: diff changeset	1322	^ nil
dce33f8bb806 intitial checkin ca parents: diff changeset	1323
dce33f8bb806 intitial checkin ca parents: diff changeset	1324	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1325
dce33f8bb806 intitial checkin ca parents: diff changeset	1326	itemAt:stringOrNumber do:aOneArgBlock
dce33f8bb806 intitial checkin ca parents: diff changeset	1327	"evaluate teh block for an item and return the result from the block. In case that
dce33f8bb806 intitial checkin ca parents: diff changeset	1328	the item not exists nil is returned
dce33f8bb806 intitial checkin ca parents: diff changeset	1329	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1330	^ self itemAt:stringOrNumber do:aOneArgBlock ifAbsent:nil
dce33f8bb806 intitial checkin ca parents: diff changeset	1331	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1332
dce33f8bb806 intitial checkin ca parents: diff changeset	1333	itemAt:stringOrNumber do:aOneArgBlock ifAbsent:exceptionBlock
dce33f8bb806 intitial checkin ca parents: diff changeset	1334	"evaluate teh block for an item and return the result from the block. In case that
dce33f8bb806 intitial checkin ca parents: diff changeset	1335	the item not exists the result of the exception block is returned (no arguments).
dce33f8bb806 intitial checkin ca parents: diff changeset	1336	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1337	\|item\|
dce33f8bb806 intitial checkin ca parents: diff changeset	1338
dce33f8bb806 intitial checkin ca parents: diff changeset	1339	item := self itemAt:stringOrNumber.
dce33f8bb806 intitial checkin ca parents: diff changeset	1340	item notNil ifTrue:[ ^ aOneArgBlock value:item ].
dce33f8bb806 intitial checkin ca parents: diff changeset	1341	^ exceptionBlock value
706 d716edbdbe47 show separators bug cleaned tz parents: 689 diff changeset	1342	!
d716edbdbe47 show separators bug cleaned tz parents: 689 diff changeset	1343
d716edbdbe47 show separators bug cleaned tz parents: 689 diff changeset	1344	itemAtIndex:anIndex
d716edbdbe47 show separators bug cleaned tz parents: 689 diff changeset	1345	"returns item at an index or nil
d716edbdbe47 show separators bug cleaned tz parents: 689 diff changeset	1346	"
d716edbdbe47 show separators bug cleaned tz parents: 689 diff changeset	1347	^ items notNil ifTrue:[items at:anIndex ifAbsent:nil] ifFalse:[nil]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1348	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	1349
dce33f8bb806 intitial checkin ca parents: diff changeset	1350	!MenuPanel methodsFor:'accessing look'!
dce33f8bb806 intitial checkin ca parents: diff changeset	1351
727 3ba54333342a button style from style sheet tz parents: 723 diff changeset	1352	buttonActiveLevel
3ba54333342a button style from style sheet tz parents: 723 diff changeset	1353	"get the button active level
3ba54333342a button style from style sheet tz parents: 723 diff changeset	1354	"
3ba54333342a button style from style sheet tz parents: 723 diff changeset	1355	^ButtonActiveLevel
3ba54333342a button style from style sheet tz parents: 723 diff changeset	1356
3ba54333342a button style from style sheet tz parents: 723 diff changeset	1357	!
3ba54333342a button style from style sheet tz parents: 723 diff changeset	1358
3ba54333342a button style from style sheet tz parents: 723 diff changeset	1359	buttonPassiveLevel
3ba54333342a button style from style sheet tz parents: 723 diff changeset	1360	"get the button passive level
3ba54333342a button style from style sheet tz parents: 723 diff changeset	1361	"
3ba54333342a button style from style sheet tz parents: 723 diff changeset	1362	^ButtonPassiveLevel
3ba54333342a button style from style sheet tz parents: 723 diff changeset	1363
3ba54333342a button style from style sheet tz parents: 723 diff changeset	1364	!
3ba54333342a button style from style sheet tz parents: 723 diff changeset	1365
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1366	fitFirstPanel
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1367	"gets true if the first panel in the menu hierarchy must be fit
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1368	to the extent of its superView
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1369	"
616 a6157b083830 support of different styles ca parents: 608 diff changeset	1370	^ fitFirstPanel
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1371	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1372
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1373	fitFirstPanel:aState
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1374	"sets true if the first panel in the menu hierarchy must be fit
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1375	to the extent of its superView
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1376	"
616 a6157b083830 support of different styles ca parents: 608 diff changeset	1377	(fitFirstPanel == aState or:[self isPopUpView]) ifFalse:[
1117 3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	1378	fitFirstPanel := aState.
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	1379	self mustRearrange
616 a6157b083830 support of different styles ca parents: 608 diff changeset	1380	]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1381	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1382
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1383	groupDividerSize
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1384	"get the size of the group dividers
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1385	"
616 a6157b083830 support of different styles ca parents: 608 diff changeset	1386	^ groupDividerSize
a6157b083830 support of different styles ca parents: 608 diff changeset	1387
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1388	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1389
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1390	groupDividerSize:aSize
616 a6157b083830 support of different styles ca parents: 608 diff changeset	1391	"set the size of the group dividers. You should not use this
a6157b083830 support of different styles ca parents: 608 diff changeset	1392	method; instead leave the value as defined in the styleSheet.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1393	"
616 a6157b083830 support of different styles ca parents: 608 diff changeset	1394	aSize ~~ groupDividerSize ifTrue:[
1117 3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	1395	groupDividerSize := aSize.
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	1396	self mustRearrange.
616 a6157b083830 support of different styles ca parents: 608 diff changeset	1397	].
a6157b083830 support of different styles ca parents: 608 diff changeset	1398
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1399	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1400
616 a6157b083830 support of different styles ca parents: 608 diff changeset	1401	itemSpace
a6157b083830 support of different styles ca parents: 608 diff changeset	1402	"get the space space between to items
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1403	"
616 a6157b083830 support of different styles ca parents: 608 diff changeset	1404	^ itemSpace
a6157b083830 support of different styles ca parents: 608 diff changeset	1405
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1406	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1407
616 a6157b083830 support of different styles ca parents: 608 diff changeset	1408	itemSpace:aSize
a6157b083830 support of different styles ca parents: 608 diff changeset	1409	"set the horizontal space between to items. You should not use this
a6157b083830 support of different styles ca parents: 608 diff changeset	1410	method; instead leave the value as defined in the styleSheet.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1411	"
616 a6157b083830 support of different styles ca parents: 608 diff changeset	1412	aSize ~~ itemSpace ifTrue:[
1117 3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	1413	itemSpace := aSize.
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	1414	self mustRearrange
616 a6157b083830 support of different styles ca parents: 608 diff changeset	1415	].
a6157b083830 support of different styles ca parents: 608 diff changeset	1416
a6157b083830 support of different styles ca parents: 608 diff changeset	1417	!
a6157b083830 support of different styles ca parents: 608 diff changeset	1418
1093 7cb44303b016 margin fixes Claus Gittinger <cg@exept.de> parents: 1090 diff changeset	1419	level:anInt
7cb44303b016 margin fixes Claus Gittinger <cg@exept.de> parents: 1090 diff changeset	1420	super level:anInt.
7cb44303b016 margin fixes Claus Gittinger <cg@exept.de> parents: 1090 diff changeset	1421	mustRearrange := true
7cb44303b016 margin fixes Claus Gittinger <cg@exept.de> parents: 1090 diff changeset	1422	!
7cb44303b016 margin fixes Claus Gittinger <cg@exept.de> parents: 1090 diff changeset	1423
616 a6157b083830 support of different styles ca parents: 608 diff changeset	1424	rightArrow
a6157b083830 support of different styles ca parents: 608 diff changeset	1425	^ rightArrow
a6157b083830 support of different styles ca parents: 608 diff changeset	1426	!
a6157b083830 support of different styles ca parents: 608 diff changeset	1427
a6157b083830 support of different styles ca parents: 608 diff changeset	1428	rightArrowShadow
a6157b083830 support of different styles ca parents: 608 diff changeset	1429	^ rightArrowShadow
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1430	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1431
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1432	showGroupDivider
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1433	"get the enabled flag for showing groupDiveders
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1434	"
1222 8d58a1a93582 * empty log message * Claus Gittinger <cg@exept.de> parents: 1221 diff changeset	1435	^ (self menuAdornmentAt:#showGroupDivider)
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1436	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1437
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1438	showGroupDivider:aState
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1439	"set the enabled flag for showing groupDiveders
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1440	"
653 cf9b6ef11ade bug fix; no automatic rearrange of items ca parents: 650 diff changeset	1441	(self menuAdornmentAt:#showGroupDivider put:aState) ifTrue:[
1117 3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	1442	self mustRearrange.
653 cf9b6ef11ade bug fix; no automatic rearrange of items ca parents: 650 diff changeset	1443	]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1444	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1445
dce33f8bb806 intitial checkin ca parents: diff changeset	1446	showSeparatingLines
dce33f8bb806 intitial checkin ca parents: diff changeset	1447	"gets true if drawing of separating lines is enabled.
dce33f8bb806 intitial checkin ca parents: diff changeset	1448	"
1222 8d58a1a93582 * empty log message * Claus Gittinger <cg@exept.de> parents: 1221 diff changeset	1449	^ (self menuAdornmentAt:#showSeparatingLines)
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1450	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1451
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1452	showSeparatingLines:aState
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1453	"turn on/off drawing of separating lines.
dce33f8bb806 intitial checkin ca parents: diff changeset	1454	"
653 cf9b6ef11ade bug fix; no automatic rearrange of items ca parents: 650 diff changeset	1455	(self menuAdornmentAt:#showSeparatingLines put:aState) ifTrue:[
1117 3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	1456	self mustRearrange
653 cf9b6ef11ade bug fix; no automatic rearrange of items ca parents: 650 diff changeset	1457	]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1458	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1459
dce33f8bb806 intitial checkin ca parents: diff changeset	1460	verticalLayout
dce33f8bb806 intitial checkin ca parents: diff changeset	1461	"get the layout: or vertical( true ) or horizontal( false )
dce33f8bb806 intitial checkin ca parents: diff changeset	1462	"
1222 8d58a1a93582 * empty log message * Claus Gittinger <cg@exept.de> parents: 1221 diff changeset	1463	^ (self menuAdornmentAt:#verticalLayout)
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1464	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1465
dce33f8bb806 intitial checkin ca parents: diff changeset	1466	verticalLayout:aState
dce33f8bb806 intitial checkin ca parents: diff changeset	1467	"set the layout: or vertical( true ) or horizontal( false )
dce33f8bb806 intitial checkin ca parents: diff changeset	1468	"
653 cf9b6ef11ade bug fix; no automatic rearrange of items ca parents: 650 diff changeset	1469	(self menuAdornmentAt:#verticalLayout put:aState) ifTrue:[
1117 3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	1470	self mustRearrange
653 cf9b6ef11ade bug fix; no automatic rearrange of items ca parents: 650 diff changeset	1471	]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1472	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	1473
dce33f8bb806 intitial checkin ca parents: diff changeset	1474	!MenuPanel methodsFor:'accessing submenu'!
dce33f8bb806 intitial checkin ca parents: diff changeset	1475
dce33f8bb806 intitial checkin ca parents: diff changeset	1476	subMenuAt:stringOrNumber
dce33f8bb806 intitial checkin ca parents: diff changeset	1477	"gets the submenu of an item or nil
dce33f8bb806 intitial checkin ca parents: diff changeset	1478	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1479	^ self itemAt:stringOrNumber do:[:el\| el submenu ]
dce33f8bb806 intitial checkin ca parents: diff changeset	1480	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1481
dce33f8bb806 intitial checkin ca parents: diff changeset	1482	subMenuAt:stringOrNumber put:aSubMenu
dce33f8bb806 intitial checkin ca parents: diff changeset	1483	"sets the submenu of an item
dce33f8bb806 intitial checkin ca parents: diff changeset	1484	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1485	self itemAt:stringOrNumber do:[:el\| el submenu:aSubMenu ]
dce33f8bb806 intitial checkin ca parents: diff changeset	1486
dce33f8bb806 intitial checkin ca parents: diff changeset	1487	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1488
dce33f8bb806 intitial checkin ca parents: diff changeset	1489	subMenuShown
dce33f8bb806 intitial checkin ca parents: diff changeset	1490	"return the currently visible submenu - or nil if there is none
dce33f8bb806 intitial checkin ca parents: diff changeset	1491	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1492	\|item\|
dce33f8bb806 intitial checkin ca parents: diff changeset	1493
dce33f8bb806 intitial checkin ca parents: diff changeset	1494	(item := self selection) notNil ifTrue:[
1117 3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	1495	^ item submenu
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1496	].
dce33f8bb806 intitial checkin ca parents: diff changeset	1497	^ nil
dce33f8bb806 intitial checkin ca parents: diff changeset	1498	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	1499
dce33f8bb806 intitial checkin ca parents: diff changeset	1500	!MenuPanel methodsFor:'activation'!
dce33f8bb806 intitial checkin ca parents: diff changeset	1501
dce33f8bb806 intitial checkin ca parents: diff changeset	1502	hide
dce33f8bb806 intitial checkin ca parents: diff changeset	1503	"hide the view, leave its modal event loop
dce33f8bb806 intitial checkin ca parents: diff changeset	1504	"
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	1505
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1506	self selection:nil.
dce33f8bb806 intitial checkin ca parents: diff changeset	1507	self unmap.
dce33f8bb806 intitial checkin ca parents: diff changeset	1508
dce33f8bb806 intitial checkin ca parents: diff changeset	1509
dce33f8bb806 intitial checkin ca parents: diff changeset	1510	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1511
dce33f8bb806 intitial checkin ca parents: diff changeset	1512	show
dce33f8bb806 intitial checkin ca parents: diff changeset	1513	"realize the view at its last position
dce33f8bb806 intitial checkin ca parents: diff changeset	1514	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1515	^ self showAt:(self origin) resizing:true
dce33f8bb806 intitial checkin ca parents: diff changeset	1516
dce33f8bb806 intitial checkin ca parents: diff changeset	1517	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1518
dce33f8bb806 intitial checkin ca parents: diff changeset	1519	showAt:aPoint
dce33f8bb806 intitial checkin ca parents: diff changeset	1520	"realize the view at aPoint
dce33f8bb806 intitial checkin ca parents: diff changeset	1521	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1522	^ self showAt:aPoint resizing:true
dce33f8bb806 intitial checkin ca parents: diff changeset	1523
dce33f8bb806 intitial checkin ca parents: diff changeset	1524
dce33f8bb806 intitial checkin ca parents: diff changeset	1525	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1526
dce33f8bb806 intitial checkin ca parents: diff changeset	1527	showAt:aPoint resizing:aBoolean
984 87d36803b9d8 oops - menu items fired twice. Claus Gittinger <cg@exept.de> parents: 971 diff changeset	1528	"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	1529	or if I have already performed.
87d36803b9d8 oops - menu items fired twice. Claus Gittinger <cg@exept.de> parents: 971 diff changeset	1530	Return the items value, otherwise.
87d36803b9d8 oops - menu items fired twice. Claus Gittinger <cg@exept.de> parents: 971 diff changeset	1531	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	1532	menu (i.e. the view or controller), which will perform the action
87d36803b9d8 oops - menu items fired twice. Claus Gittinger <cg@exept.de> parents: 971 diff changeset	1533	if a non-nil is returned.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1534	"
1137 7df0b776e47a fixes for 2D styles (borderWidth) Claus Gittinger <cg@exept.de> parents: 1130 diff changeset	1535
1331 aae37cbfb30a fixed style handling to avoid bad resizing when popup-level/bw Claus Gittinger <cg@exept.de> parents: 1330 diff changeset	1536	self initPopUpDependentStyle:true.
aae37cbfb30a fixed style handling to avoid bad resizing when popup-level/bw Claus Gittinger <cg@exept.de> parents: 1330 diff changeset	1537	self rearrangeItemsIfItemVisibilityChanged.
aae37cbfb30a fixed style handling to avoid bad resizing when popup-level/bw Claus Gittinger <cg@exept.de> parents: 1330 diff changeset	1538	"/ self rearrangeItems.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1539
dce33f8bb806 intitial checkin ca parents: diff changeset	1540	aBoolean ifTrue:[
1459 53f83c83b354 checkin from browser Claus Gittinger <cg@exept.de> parents: 1455 diff changeset	1541	self fixSize.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1542	].
dce33f8bb806 intitial checkin ca parents: diff changeset	1543	self origin:aPoint.
1459 53f83c83b354 checkin from browser Claus Gittinger <cg@exept.de> parents: 1455 diff changeset	1544	"/ self makeFullyVisible. -- done in realize
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1545	self openModal:[true]. "realize "
dce33f8bb806 intitial checkin ca parents: diff changeset	1546
984 87d36803b9d8 oops - menu items fired twice. Claus Gittinger <cg@exept.de> parents: 971 diff changeset	1547	"/ if I have already performed,
87d36803b9d8 oops - menu items fired twice. Claus Gittinger <cg@exept.de> parents: 971 diff changeset	1548	"/ return nil - to avoid items triggering twice.
87d36803b9d8 oops - menu items fired twice. Claus Gittinger <cg@exept.de> parents: 971 diff changeset	1549
87d36803b9d8 oops - menu items fired twice. Claus Gittinger <cg@exept.de> parents: 971 diff changeset	1550	(self topMenu menuAdornmentAt:#hasPerformed) == true ifTrue:[
1459 53f83c83b354 checkin from browser Claus Gittinger <cg@exept.de> parents: 1455 diff changeset	1551	^ nil
984 87d36803b9d8 oops - menu items fired twice. Claus Gittinger <cg@exept.de> parents: 971 diff changeset	1552	].
87d36803b9d8 oops - menu items fired twice. Claus Gittinger <cg@exept.de> parents: 971 diff changeset	1553	^ self lastValueAccepted
87d36803b9d8 oops - menu items fired twice. Claus Gittinger <cg@exept.de> parents: 971 diff changeset	1554
1137 7df0b776e47a fixes for 2D styles (borderWidth) Claus Gittinger <cg@exept.de> parents: 1130 diff changeset	1555	"Modified: / 15.9.1998 / 12:50:23 / cg"
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1556	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1557
dce33f8bb806 intitial checkin ca parents: diff changeset	1558	showAtPointer
dce33f8bb806 intitial checkin ca parents: diff changeset	1559	"realize the view at the current pointer position
dce33f8bb806 intitial checkin ca parents: diff changeset	1560	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1561	^ self showAt:(device pointerPosition) resizing:true
dce33f8bb806 intitial checkin ca parents: diff changeset	1562
dce33f8bb806 intitial checkin ca parents: diff changeset	1563
dce33f8bb806 intitial checkin ca parents: diff changeset	1564	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1565
dce33f8bb806 intitial checkin ca parents: diff changeset	1566	showCenteredIn:aView
dce33f8bb806 intitial checkin ca parents: diff changeset	1567	"make myself visible at the screen center.
dce33f8bb806 intitial checkin ca parents: diff changeset	1568	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1569	\|top\|
dce33f8bb806 intitial checkin ca parents: diff changeset	1570
dce33f8bb806 intitial checkin ca parents: diff changeset	1571	top := aView topView.
dce33f8bb806 intitial checkin ca parents: diff changeset	1572	top raise.
1137 7df0b776e47a fixes for 2D styles (borderWidth) Claus Gittinger <cg@exept.de> parents: 1130 diff changeset	1573	^ 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	1574
7df0b776e47a fixes for 2D styles (borderWidth) Claus Gittinger <cg@exept.de> parents: 1130 diff changeset	1575	"Modified: / 15.9.1998 / 12:45:50 / cg"
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1576	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1577
dce33f8bb806 intitial checkin ca parents: diff changeset	1578	startUp
dce33f8bb806 intitial checkin ca parents: diff changeset	1579	"realize the menu at the current pointer position
dce33f8bb806 intitial checkin ca parents: diff changeset	1580	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1581	^ self showAtPointer
897 6bbc8c15ac0a added #startUpAt: (MenuView compatibility) Claus Gittinger <cg@exept.de> parents: 890 diff changeset	1582	!
6bbc8c15ac0a added #startUpAt: (MenuView compatibility) Claus Gittinger <cg@exept.de> parents: 890 diff changeset	1583
6bbc8c15ac0a added #startUpAt: (MenuView compatibility) Claus Gittinger <cg@exept.de> parents: 890 diff changeset	1584	startUpAt:aPoint
6bbc8c15ac0a added #startUpAt: (MenuView compatibility) Claus Gittinger <cg@exept.de> parents: 890 diff changeset	1585	"realize the menu at aPoint
6bbc8c15ac0a added #startUpAt: (MenuView compatibility) Claus Gittinger <cg@exept.de> parents: 890 diff changeset	1586	"
6bbc8c15ac0a added #startUpAt: (MenuView compatibility) Claus Gittinger <cg@exept.de> parents: 890 diff changeset	1587	^ self showAt:aPoint
6bbc8c15ac0a added #startUpAt: (MenuView compatibility) Claus Gittinger <cg@exept.de> parents: 890 diff changeset	1588
6bbc8c15ac0a added #startUpAt: (MenuView compatibility) Claus Gittinger <cg@exept.de> parents: 890 diff changeset	1589	"Created: / 21.5.1998 / 14:15:57 / cg"
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1590	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	1591
dce33f8bb806 intitial checkin ca parents: diff changeset	1592	!MenuPanel methodsFor:'adding & removing'!
dce33f8bb806 intitial checkin ca parents: diff changeset	1593
dce33f8bb806 intitial checkin ca parents: diff changeset	1594	createAtIndex:anIndexOrNil
dce33f8bb806 intitial checkin ca parents: diff changeset	1595	"create an item and add this item to the index. In case of nil the item
dce33f8bb806 intitial checkin ca parents: diff changeset	1596	is added to the end. If the index is not valid nil is returned otherwise
dce33f8bb806 intitial checkin ca parents: diff changeset	1597	the new created item.
dce33f8bb806 intitial checkin ca parents: diff changeset	1598	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1599	\|max item\|
dce33f8bb806 intitial checkin ca parents: diff changeset	1600
dce33f8bb806 intitial checkin ca parents: diff changeset	1601	max := (items size) + 1.
dce33f8bb806 intitial checkin ca parents: diff changeset	1602
dce33f8bb806 intitial checkin ca parents: diff changeset	1603	anIndexOrNil notNil ifTrue:[
1368 eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	1604	(anIndexOrNil < 1 or:[anIndexOrNil > max]) ifTrue:[
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	1605	^ nil
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	1606	]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1607	].
dce33f8bb806 intitial checkin ca parents: diff changeset	1608	items isNil ifTrue:[
1368 eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	1609	items := OrderedCollection new
1151 199863d6a463 items: convert Array to OrderedCollection Claus Gittinger <cg@exept.de> parents: 1137 diff changeset	1610	] ifFalse:[
1368 eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	1611	items := items asOrderedCollection
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1612	].
dce33f8bb806 intitial checkin ca parents: diff changeset	1613	item := Item in:self.
dce33f8bb806 intitial checkin ca parents: diff changeset	1614
dce33f8bb806 intitial checkin ca parents: diff changeset	1615	(anIndexOrNil isNil or:[anIndexOrNil == max]) ifTrue:[
1368 eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	1616	items add:item
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1617	] ifFalse:[
1368 eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	1618	items add:item beforeIndex:anIndexOrNil
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1619	].
dce33f8bb806 intitial checkin ca parents: diff changeset	1620	^ item
dce33f8bb806 intitial checkin ca parents: diff changeset	1621	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1622
dce33f8bb806 intitial checkin ca parents: diff changeset	1623	remove:stringOrNumber
dce33f8bb806 intitial checkin ca parents: diff changeset	1624	"remove the first item which is assigned to stringOrNumber;
dce33f8bb806 intitial checkin ca parents: diff changeset	1625	if found, remove and return it
dce33f8bb806 intitial checkin ca parents: diff changeset	1626	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1627	\|item\|
dce33f8bb806 intitial checkin ca parents: diff changeset	1628
dce33f8bb806 intitial checkin ca parents: diff changeset	1629	(item := self itemAt:stringOrNumber) notNil ifTrue:[
1117 3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	1630	items remove:item.
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	1631	item destroy.
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	1632	items isEmpty ifTrue:[items := nil].
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	1633	self mustRearrange.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1634	].
dce33f8bb806 intitial checkin ca parents: diff changeset	1635	^ item
dce33f8bb806 intitial checkin ca parents: diff changeset	1636	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1637
dce33f8bb806 intitial checkin ca parents: diff changeset	1638	removeAll
dce33f8bb806 intitial checkin ca parents: diff changeset	1639	"remove all items and submenus
dce33f8bb806 intitial checkin ca parents: diff changeset	1640	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1641	self disabledRedrawDo:[
1117 3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	1642	self selection:nil.
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	1643	groupSizes := nil.
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	1644	self do:[:el\| el destroy ].
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	1645	items := nil
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1646	].
dce33f8bb806 intitial checkin ca parents: diff changeset	1647	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	1648
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	1649	!MenuPanel methodsFor:'change & update'!
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	1650
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	1651	update:something with:aParameter from:changedObject
498 b4c341497621 bug fixes: ca parents: 475 diff changeset	1652
b4c341497621 bug fixes: ca parents: 475 diff changeset	1653	changedObject == menuHolder ifTrue:[^ self menu:(menuHolder value)].
b4c341497621 bug fixes: ca parents: 475 diff changeset	1654	changedObject == enableChannel ifTrue:[^ self enabled:(enableChannel value)].
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	1655
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	1656	super update:something with:aParameter from:changedObject
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	1657	! !
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	1658
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1659	!MenuPanel methodsFor:'converting'!
dce33f8bb806 intitial checkin ca parents: diff changeset	1660
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	1661	asMenu
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	1662	"convert contents to menu
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	1663	"
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	1664	\|menu\|
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	1665
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	1666	menu := Menu new.
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	1667	menu groupSizes:groupSizes.
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	1668	self do:[:anItem\| menu addItem:(anItem asMenuItem) ].
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	1669	^ menu
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	1670	!
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	1671
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1672	fromSpec:aMenuSpec
dce33f8bb806 intitial checkin ca parents: diff changeset	1673	"build from spec
dce33f8bb806 intitial checkin ca parents: diff changeset	1674	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1675	\|menu\|
dce33f8bb806 intitial checkin ca parents: diff changeset	1676
dce33f8bb806 intitial checkin ca parents: diff changeset	1677	menu := Menu new.
dce33f8bb806 intitial checkin ca parents: diff changeset	1678	menu fromLiteralArrayEncoding:aMenuSpec.
dce33f8bb806 intitial checkin ca parents: diff changeset	1679	self menu:menu
dce33f8bb806 intitial checkin ca parents: diff changeset	1680
dce33f8bb806 intitial checkin ca parents: diff changeset	1681	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1682
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	1683	menu:aMenu
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	1684	"convert to Menu
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1685	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1686	self disabledRedrawDo:[
1368 eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	1687	\|menu newItems\|
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	1688
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	1689	self removeAll.
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	1690
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	1691	(menu := aMenu) notNil ifTrue:[
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	1692	(aMenu isCollection) ifTrue:[
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	1693	menu := Menu new.
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	1694	menu fromLiteralArrayEncoding:aMenu.
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	1695	] ifFalse:[
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	1696	menu receiver notNil ifTrue:[receiver := menu receiver]
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	1697	].
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	1698	(newItems := menu menuItems) notNil ifTrue:[
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	1699	items := newItems collect:[:ni \|
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	1700	\|i\|
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	1701
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	1702	i:= Item in:self.
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	1703	i menuItem:ni.
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	1704	i.
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	1705	].
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	1706	].
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	1707	self groupSizes:(menu groupSizes).
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	1708	]
1063 08b7ca464437 dont show accelerators for horizontal layouts Claus Gittinger <cg@exept.de> parents: 1054 diff changeset	1709	]
08b7ca464437 dont show accelerators for horizontal layouts Claus Gittinger <cg@exept.de> parents: 1054 diff changeset	1710
08b7ca464437 dont show accelerators for horizontal layouts Claus Gittinger <cg@exept.de> parents: 1054 diff changeset	1711	"Modified: / 8.8.1998 / 02:05:04 / cg"
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1712	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	1713
dce33f8bb806 intitial checkin ca parents: diff changeset	1714	!MenuPanel methodsFor:'drawing'!
dce33f8bb806 intitial checkin ca parents: diff changeset	1715
dce33f8bb806 intitial checkin ca parents: diff changeset	1716	disabledRedrawDo:aBlock
dce33f8bb806 intitial checkin ca parents: diff changeset	1717	"evaluate a block without redrawing within the block; after processing
dce33f8bb806 intitial checkin ca parents: diff changeset	1718	of the block a redraw might be performed
dce33f8bb806 intitial checkin ca parents: diff changeset	1719	"
dce33f8bb806 intitial checkin ca parents: diff changeset	1720	\|state\|
dce33f8bb806 intitial checkin ca parents: diff changeset	1721
dce33f8bb806 intitial checkin ca parents: diff changeset	1722	state := mustRearrange.
dce33f8bb806 intitial checkin ca parents: diff changeset	1723	mustRearrange := true.
dce33f8bb806 intitial checkin ca parents: diff changeset	1724	aBlock value.
dce33f8bb806 intitial checkin ca parents: diff changeset	1725	mustRearrange := state.
dce33f8bb806 intitial checkin ca parents: diff changeset	1726	self mustRearrange
dce33f8bb806 intitial checkin ca parents: diff changeset	1727	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1728
1081 fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1729	drawButtonEdgesInLayout: layout withLevel: aLevel selected:isSelected
1082 382324ddce3f support and additional buttonSpacing (for normal and win95 styles) Claus Gittinger <cg@exept.de> parents: 1081 diff changeset	1730	\|shadow\|
382324ddce3f support and additional buttonSpacing (for normal and win95 styles) Claus Gittinger <cg@exept.de> parents: 1081 diff changeset	1731
1018 67c883ab05d6 kludge fixes for normal style. Claus Gittinger <cg@exept.de> parents: 1010 diff changeset	1732	styleSheet is3D ifFalse:[
1368 eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	1733	^ self displayRectangle:layout.
1018 67c883ab05d6 kludge fixes for normal style. Claus Gittinger <cg@exept.de> parents: 1010 diff changeset	1734	].
746 bd252bbe276f better drawing routine for button behavior tz parents: 739 diff changeset	1735
1082 382324ddce3f support and additional buttonSpacing (for normal and win95 styles) Claus Gittinger <cg@exept.de> parents: 1081 diff changeset	1736	shadow := buttonShadowColor.
1218 6ce43fcb2603 code cleanup Claus Gittinger <cg@exept.de> parents: 1217 diff changeset	1737	"/
6ce43fcb2603 code cleanup Claus Gittinger <cg@exept.de> parents: 1217 diff changeset	1738	"/ never encountered ?
6ce43fcb2603 code cleanup Claus Gittinger <cg@exept.de> parents: 1217 diff changeset	1739	"/
6ce43fcb2603 code cleanup Claus Gittinger <cg@exept.de> parents: 1217 diff changeset	1740	"/ isSelected ifTrue:[
6ce43fcb2603 code cleanup Claus Gittinger <cg@exept.de> parents: 1217 diff changeset	1741	"/ buttonShadowColor == self buttonActiveBackgroundColor ifTrue:[
6ce43fcb2603 code cleanup Claus Gittinger <cg@exept.de> parents: 1217 diff changeset	1742	"/ shadow := buttonShadowColor darkened
6ce43fcb2603 code cleanup Claus Gittinger <cg@exept.de> parents: 1217 diff changeset	1743	"/ ].
6ce43fcb2603 code cleanup Claus Gittinger <cg@exept.de> parents: 1217 diff changeset	1744	"/ ].
1082 382324ddce3f support and additional buttonSpacing (for normal and win95 styles) Claus Gittinger <cg@exept.de> parents: 1081 diff changeset	1745
746 bd252bbe276f better drawing routine for button behavior tz parents: 739 diff changeset	1746	self drawEdgesForX: layout left y: layout top width: layout width height: layout height level: aLevel
1368 eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	1747	shadow: shadow
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	1748	light: buttonLightColor
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	1749	halfShadow: buttonHalfShadowColor
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	1750	halfLight: buttonHalfLightColor
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	1751	style: ButtonEdgeStyle
1018 67c883ab05d6 kludge fixes for normal style. Claus Gittinger <cg@exept.de> parents: 1010 diff changeset	1752
1081 fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1753	"Created: / 20.8.1998 / 15:43:38 / cg"
1082 382324ddce3f support and additional buttonSpacing (for normal and win95 styles) Claus Gittinger <cg@exept.de> parents: 1081 diff changeset	1754	"Modified: / 20.8.1998 / 19:09:05 / cg"
1081 fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1755	!
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1756
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1757	drawEdgesForX:x y:y width:w height:height isSelected:selectedBool isEntered:enteredBool
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1758	\|level\|
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1759
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1760	level := selectedBool
1117 3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	1761	ifTrue:[onLevel]
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	1762	ifFalse:[offLevel].
1081 fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1763
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1764	level ~~ 0 ifTrue:[
1117 3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	1765	self drawEdgesForX:x y:y width:w height:height level:level
1081 fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1766	].
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1767
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1768	"Modified: / 20.8.1998 / 15:43:11 / cg"
746 bd252bbe276f better drawing routine for button behavior tz parents: 739 diff changeset	1769	!
bd252bbe276f better drawing routine for button behavior tz parents: 739 diff changeset	1770
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1771	mustRearrange
910 5c9592e782fd always repairNow (to make change visible immediately) Claus Gittinger <cg@exept.de> parents: 898 diff changeset	1772	"force rearrange (i.e. set the rearrange flag)
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1773	"
590 3177528b5f95 checkin from browser Claus Gittinger <cg@exept.de> parents: 587 diff changeset	1774	mustRearrange == true ifFalse:[
1117 3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	1775	mustRearrange := true.
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	1776	shown ifTrue:[
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	1777	self invalidate "/ RepairNow:true
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	1778	]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1779	]
590 3177528b5f95 checkin from browser Claus Gittinger <cg@exept.de> parents: 587 diff changeset	1780
911 6b1ad8b039c5 no, repairNow should not be needed here Claus Gittinger <cg@exept.de> parents: 910 diff changeset	1781	"Modified: / 6.6.1998 / 19:51:07 / cg"
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1782	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1783
710 4453e463ff16 add new feature: ca parents: 709 diff changeset	1784	rearrangeGroups
4453e463ff16 add new feature: ca parents: 709 diff changeset	1785	\|layout
4453e463ff16 add new feature: ca parents: 709 diff changeset	1786	dltX "{ Class:SmallInteger }"
4453e463ff16 add new feature: ca parents: 709 diff changeset	1787	start "{ Class:SmallInteger }"
4453e463ff16 add new feature: ca parents: 709 diff changeset	1788	\|
4453e463ff16 add new feature: ca parents: 709 diff changeset	1789
4453e463ff16 add new feature: ca parents: 709 diff changeset	1790	(self isPopUpView or:[self verticalLayout]) ifTrue:[
1368 eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	1791	^ self
710 4453e463ff16 add new feature: ca parents: 709 diff changeset	1792	].
4453e463ff16 add new feature: ca parents: 709 diff changeset	1793
4453e463ff16 add new feature: ca parents: 709 diff changeset	1794	layout := items last layout.
4453e463ff16 add new feature: ca parents: 709 diff changeset	1795
1331 aae37cbfb30a fixed style handling to avoid bad resizing when popup-level/bw Claus Gittinger <cg@exept.de> parents: 1330 diff changeset	1796	(dltX := width "- margin" "- 2" - layout right) <= 0 ifTrue:[
1368 eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	1797	^ self "/ no free space
710 4453e463ff16 add new feature: ca parents: 709 diff changeset	1798	].
4453e463ff16 add new feature: ca parents: 709 diff changeset	1799	start := items findFirst:[:anItem\| anItem startGroup == #right ].
4453e463ff16 add new feature: ca parents: 709 diff changeset	1800
4453e463ff16 add new feature: ca parents: 709 diff changeset	1801	start == 0 ifTrue:[
1368 eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	1802	^ self "/ no item detected
710 4453e463ff16 add new feature: ca parents: 709 diff changeset	1803	].
4453e463ff16 add new feature: ca parents: 709 diff changeset	1804
4453e463ff16 add new feature: ca parents: 709 diff changeset	1805	"/ change layout
4453e463ff16 add new feature: ca parents: 709 diff changeset	1806
4453e463ff16 add new feature: ca parents: 709 diff changeset	1807	items from:start do:[:anItem\|
1368 eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	1808	anItem isVisible ifTrue:[
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	1809	layout := anItem layout.
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	1810	layout left:(layout left + dltX).
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	1811	layout right:(layout right + dltX).
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	1812	]
710 4453e463ff16 add new feature: ca parents: 709 diff changeset	1813	].
4453e463ff16 add new feature: ca parents: 709 diff changeset	1814	!
4453e463ff16 add new feature: ca parents: 709 diff changeset	1815
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1816	rearrangeItems
dce33f8bb806 intitial checkin ca parents: diff changeset	1817	"recompute layout of my items
dce33f8bb806 intitial checkin ca parents: diff changeset	1818	"
710 4453e463ff16 add new feature: ca parents: 709 diff changeset	1819	\|expLast e grpDivSz layout isVert
4453e463ff16 add new feature: ca parents: 709 diff changeset	1820	x "{ Class:SmallInteger }"
4453e463ff16 add new feature: ca parents: 709 diff changeset	1821	y "{ Class:SmallInteger }"
4453e463ff16 add new feature: ca parents: 709 diff changeset	1822	noItems "{ Class:SmallInteger }"
1181 97ee0869b374 care for endless recursion with linked menus Claus Gittinger <cg@exept.de> parents: 1177 diff changeset	1823	f
710 4453e463ff16 add new feature: ca parents: 709 diff changeset	1824	\|
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1825
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1826	mustRearrange ifFalse:[ ^ self ].
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1827
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1828	"/ fetch font from superMenu
1181 97ee0869b374 care for endless recursion with linked menus Claus Gittinger <cg@exept.de> parents: 1177 diff changeset	1829	(superMenu notNil and:[(f := superMenu font) ~~ font]) ifTrue:[
1478 38f08dec8e34 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	1830	super font:(f onDevice:device)
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1831	].
710 4453e463ff16 add new feature: ca parents: 709 diff changeset	1832	(noItems := items size) == 0 ifTrue:[
1478 38f08dec8e34 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	1833	mustRearrange := false.
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1834	^ self
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1835	].
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	1836	expLast := false.
616 a6157b083830 support of different styles ca parents: 608 diff changeset	1837	isVert := self verticalLayout.
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1838
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1839	self hasGroupDividers ifTrue:[
1478 38f08dec8e34 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	1840	self isFitPanel ifFalse:[
38f08dec8e34 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	1841	grpDivSz := groupDividerSize
38f08dec8e34 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	1842	] ifTrue:[
38f08dec8e34 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	1843	expLast := true.
38f08dec8e34 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	1844	x := margin.
38f08dec8e34 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	1845	e := self computeExtent.
38f08dec8e34 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	1846
38f08dec8e34 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	1847	isVert ifTrue:[
38f08dec8e34 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	1848	items do:[:el \| x := x + el preferredExtent y].
38f08dec8e34 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	1849	y := e y.
38f08dec8e34 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	1850	] ifFalse:[
38f08dec8e34 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	1851	items do:[:el\|x := x + el preferredExtent x].
38f08dec8e34 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	1852	y := e x.
38f08dec8e34 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	1853	].
38f08dec8e34 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	1854	x := x + (noItems + 1 * itemSpace).
38f08dec8e34 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	1855
38f08dec8e34 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	1856	(grpDivSz := (y - x) // (groupSizes size)) <= 0 ifTrue:[
38f08dec8e34 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	1857	grpDivSz := nil
38f08dec8e34 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	1858	].
38f08dec8e34 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	1859	x > (width-margin) ifTrue:[
38f08dec8e34 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	1860	grpDivSz := nil
38f08dec8e34 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	1861	]
38f08dec8e34 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	1862	]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1863	].
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1864
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1865	(self isPopUpView or:[explicitExtent ~~ true]) ifTrue:[
1478 38f08dec8e34 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	1866	e := self preferredExtent copy.
38f08dec8e34 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	1867
38f08dec8e34 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	1868	self isPopUpView ifFalse:[
38f08dec8e34 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	1869	isVert ifTrue:[e y:1.0]
38f08dec8e34 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	1870	ifFalse:[e x:1.0]
38f08dec8e34 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	1871	].
38f08dec8e34 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	1872	self extent:e
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1873	] ifFalse:[
1478 38f08dec8e34 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	1874	e := self computeExtent
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1875	].
1082 382324ddce3f support and additional buttonSpacing (for normal and win95 styles) Claus Gittinger <cg@exept.de> parents: 1081 diff changeset	1876
1093 7cb44303b016 margin fixes Claus Gittinger <cg@exept.de> parents: 1090 diff changeset	1877	x := y := margin.
7cb44303b016 margin fixes Claus Gittinger <cg@exept.de> parents: 1090 diff changeset	1878
7cb44303b016 margin fixes Claus Gittinger <cg@exept.de> parents: 1090 diff changeset	1879	isVert ifTrue:[y := y + itemSpace]
1478 38f08dec8e34 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	1880	ifFalse:[x := x + itemSpace].
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1881
1096 6ab44a6939bf checkin from browser Claus Gittinger <cg@exept.de> parents: 1095 diff changeset	1882	self keysAndValuesDo:[:anIndex :el\| \|org corn elPref\|
1478 38f08dec8e34 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	1883	el isVisible ifTrue:[
38f08dec8e34 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	1884	el isButton ifTrue:[
38f08dec8e34 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	1885	org := Point x:(x+DefaultButtonItemSpace) y:(y+DefaultButtonItemSpace).
38f08dec8e34 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	1886	] ifFalse:[
38f08dec8e34 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	1887	org := Point x:x y:y.
38f08dec8e34 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	1888	].
38f08dec8e34 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	1889	elPref := el preferredExtent.
38f08dec8e34 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	1890	isVert ifTrue:[
38f08dec8e34 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	1891	y := y + elPref y.
38f08dec8e34 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	1892	corn := (e x - margin @ y).
38f08dec8e34 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	1893	el isButton ifTrue:[
38f08dec8e34 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	1894	corn := corn - (DefaultButtonItemSpace @ 0).
38f08dec8e34 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	1895	el layout:(Rectangle origin:org corner:corn).
38f08dec8e34 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	1896	y := y + (2 * DefaultButtonItemSpace).
38f08dec8e34 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	1897	] ifFalse:[
38f08dec8e34 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	1898	el layout:(Rectangle origin:org corner:corn).
38f08dec8e34 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	1899	].
38f08dec8e34 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	1900	y := y + itemSpace.
38f08dec8e34 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	1901	] ifFalse:[
38f08dec8e34 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	1902	x := x + elPref x.
38f08dec8e34 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	1903	el isButton ifTrue:[
38f08dec8e34 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	1904	x := x + DefaultButtonItemSpace.
38f08dec8e34 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	1905	corn := (x @ (e y - margin)).
38f08dec8e34 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	1906	corn := corn - (0 @ DefaultButtonItemSpace).
38f08dec8e34 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	1907	el layout:(Rectangle origin:org corner:corn).
38f08dec8e34 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	1908	x := x + DefaultButtonItemSpace.
38f08dec8e34 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	1909	] ifFalse:[
38f08dec8e34 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	1910	corn := (x @ e y).
38f08dec8e34 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	1911	el layout:(Rectangle origin:org corner:corn).
38f08dec8e34 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	1912	].
38f08dec8e34 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	1913	x := x + itemSpace.
38f08dec8e34 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	1914	].
38f08dec8e34 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	1915
38f08dec8e34 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	1916	(grpDivSz notNil and:[self hasGroupDividerAt:anIndex]) ifTrue:[
38f08dec8e34 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	1917	isVert ifTrue:[y := y + grpDivSz]
38f08dec8e34 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	1918	ifFalse:[x := x + grpDivSz]
38f08dec8e34 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	1919	]
38f08dec8e34 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	1920	] ifFalse:[
38f08dec8e34 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	1921	org := Point x:x y:y.
38f08dec8e34 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	1922	el layout:(Rectangle origin:org corner:org)
38f08dec8e34 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	1923	]
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1924	].
710 4453e463ff16 add new feature: ca parents: 709 diff changeset	1925
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	1926	expLast ifTrue:[
1478 38f08dec8e34 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	1927	e := items last.
38f08dec8e34 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	1928
38f08dec8e34 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	1929	e isVisible ifTrue:[
38f08dec8e34 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	1930	layout := items last layout.
38f08dec8e34 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	1931
38f08dec8e34 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	1932	isVert ifTrue:[layout bottom:((self extent y) + 1)]
38f08dec8e34 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	1933	ifFalse:[layout right:((self extent x) + 1)].
38f08dec8e34 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1475 diff changeset	1934	]
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	1935	].
710 4453e463ff16 add new feature: ca parents: 709 diff changeset	1936	self rearrangeGroups.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1937	mustRearrange := false.
dce33f8bb806 intitial checkin ca parents: diff changeset	1938
1181 97ee0869b374 care for endless recursion with linked menus Claus Gittinger <cg@exept.de> parents: 1177 diff changeset	1939	"Modified: / 19.1.1999 / 16:00:14 / cg"
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1940	!
dce33f8bb806 intitial checkin ca parents: diff changeset	1941
1217 c6a4c536aa8c care for items which change visibility via Claus Gittinger <cg@exept.de> parents: 1212 diff changeset	1942	rearrangeItemsIfItemVisibilityChanged
c6a4c536aa8c care for items which change visibility via Claus Gittinger <cg@exept.de> parents: 1212 diff changeset	1943	"if I have any items with changing visibility, rearrange"
c6a4c536aa8c care for items which change visibility via Claus Gittinger <cg@exept.de> parents: 1212 diff changeset	1944
1464 3070de4c8b88 checkin from browser Claus Gittinger <cg@exept.de> parents: 1459 diff changeset	1945	items isNil ifTrue:[^ self].
1217 c6a4c536aa8c care for items which change visibility via Claus Gittinger <cg@exept.de> parents: 1212 diff changeset	1946	items do:[:item \|
1464 3070de4c8b88 checkin from browser Claus Gittinger <cg@exept.de> parents: 1459 diff changeset	1947	item canChangeVisibility ifTrue:[
3070de4c8b88 checkin from browser Claus Gittinger <cg@exept.de> parents: 1459 diff changeset	1948	mustRearrange := true.
3070de4c8b88 checkin from browser Claus Gittinger <cg@exept.de> parents: 1459 diff changeset	1949	self rearrangeItems.
3070de4c8b88 checkin from browser Claus Gittinger <cg@exept.de> parents: 1459 diff changeset	1950	^ self
3070de4c8b88 checkin from browser Claus Gittinger <cg@exept.de> parents: 1459 diff changeset	1951	].
1217 c6a4c536aa8c care for items which change visibility via Claus Gittinger <cg@exept.de> parents: 1212 diff changeset	1952	]
c6a4c536aa8c care for items which change visibility via Claus Gittinger <cg@exept.de> parents: 1212 diff changeset	1953	!
c6a4c536aa8c care for items which change visibility via Claus Gittinger <cg@exept.de> parents: 1212 diff changeset	1954
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1955	redrawX:x y:y width:w height:h
dce33f8bb806 intitial checkin ca parents: diff changeset	1956	"redraw a rectangle
dce33f8bb806 intitial checkin ca parents: diff changeset	1957	"
1387 ad7a920fdf61 less flicker by using a clipRect in redraw Claus Gittinger <cg@exept.de> parents: 1382 diff changeset	1958	\|start end isVrt x1 x2 y1 y2 item layout lnSz hrzInset
ad7a920fdf61 less flicker by using a clipRect in redraw Claus Gittinger <cg@exept.de> parents: 1382 diff changeset	1959	prevClip didRearrange\|
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1960
710 4453e463ff16 add new feature: ca parents: 709 diff changeset	1961	(shown and:[w ~~ 0]) ifFalse:[^ self].
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1962
dce33f8bb806 intitial checkin ca parents: diff changeset	1963	self paint:(self backgroundColor).
dce33f8bb806 intitial checkin ca parents: diff changeset	1964	self clearRectangleX:x y:y width:w height:h.
dce33f8bb806 intitial checkin ca parents: diff changeset	1965
dce33f8bb806 intitial checkin ca parents: diff changeset	1966	isVrt := self verticalLayout.
dce33f8bb806 intitial checkin ca parents: diff changeset	1967	end := items size.
dce33f8bb806 intitial checkin ca parents: diff changeset	1968
1387 ad7a920fdf61 less flicker by using a clipRect in redraw Claus Gittinger <cg@exept.de> parents: 1382 diff changeset	1969	(didRearrange := mustRearrange) ifTrue:[
ad7a920fdf61 less flicker by using a clipRect in redraw Claus Gittinger <cg@exept.de> parents: 1382 diff changeset	1970	self isPopUpView not ifTrue:[
ad7a920fdf61 less flicker by using a clipRect in redraw Claus Gittinger <cg@exept.de> parents: 1382 diff changeset	1971	explicitExtent := true
ad7a920fdf61 less flicker by using a clipRect in redraw Claus Gittinger <cg@exept.de> parents: 1382 diff changeset	1972	].
ad7a920fdf61 less flicker by using a clipRect in redraw Claus Gittinger <cg@exept.de> parents: 1382 diff changeset	1973	self rearrangeItems.
ad7a920fdf61 less flicker by using a clipRect in redraw Claus Gittinger <cg@exept.de> parents: 1382 diff changeset	1974	start := 1
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1975	] ifFalse:[
1387 ad7a920fdf61 less flicker by using a clipRect in redraw Claus Gittinger <cg@exept.de> parents: 1382 diff changeset	1976	end == 0 ifTrue:[ ^ self ].
ad7a920fdf61 less flicker by using a clipRect in redraw Claus Gittinger <cg@exept.de> parents: 1382 diff changeset	1977
ad7a920fdf61 less flicker by using a clipRect in redraw Claus Gittinger <cg@exept.de> parents: 1382 diff changeset	1978	isVrt ifTrue:[
ad7a920fdf61 less flicker by using a clipRect in redraw Claus Gittinger <cg@exept.de> parents: 1382 diff changeset	1979	start := self findFirst:[:el\| (el layout bottom) >= y ].
ad7a920fdf61 less flicker by using a clipRect in redraw Claus Gittinger <cg@exept.de> parents: 1382 diff changeset	1980	start == 0 ifTrue:[ ^ self ].
ad7a920fdf61 less flicker by using a clipRect in redraw Claus Gittinger <cg@exept.de> parents: 1382 diff changeset	1981	end := y + h.
ad7a920fdf61 less flicker by using a clipRect in redraw Claus Gittinger <cg@exept.de> parents: 1382 diff changeset	1982	end := self findLast:[:el\| (el layout top) < end ].
ad7a920fdf61 less flicker by using a clipRect in redraw Claus Gittinger <cg@exept.de> parents: 1382 diff changeset	1983	] ifFalse:[
ad7a920fdf61 less flicker by using a clipRect in redraw Claus Gittinger <cg@exept.de> parents: 1382 diff changeset	1984	start := self findFirst:[:el\| (el layout right) >= x ].
ad7a920fdf61 less flicker by using a clipRect in redraw Claus Gittinger <cg@exept.de> parents: 1382 diff changeset	1985	start == 0 ifTrue:[ ^ self ].
ad7a920fdf61 less flicker by using a clipRect in redraw Claus Gittinger <cg@exept.de> parents: 1382 diff changeset	1986	end := x + w.
ad7a920fdf61 less flicker by using a clipRect in redraw Claus Gittinger <cg@exept.de> parents: 1382 diff changeset	1987	end := self findLast:[:el\| (el layout left) < end ].
ad7a920fdf61 less flicker by using a clipRect in redraw Claus Gittinger <cg@exept.de> parents: 1382 diff changeset	1988	].
ad7a920fdf61 less flicker by using a clipRect in redraw Claus Gittinger <cg@exept.de> parents: 1382 diff changeset	1989
ad7a920fdf61 less flicker by using a clipRect in redraw Claus Gittinger <cg@exept.de> parents: 1382 diff changeset	1990	(start ~~ 1 and:[self hasGroupDividerAt:(start-1)]) ifTrue:[
ad7a920fdf61 less flicker by using a clipRect in redraw Claus Gittinger <cg@exept.de> parents: 1382 diff changeset	1991	start := start - 1
ad7a920fdf61 less flicker by using a clipRect in redraw Claus Gittinger <cg@exept.de> parents: 1382 diff changeset	1992	]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	1993	].
dce33f8bb806 intitial checkin ca parents: diff changeset	1994
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1995	( self hasGroupDividers
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1996	and:[self showGroupDivider
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1997	and:[self isFitPanel not]]
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	1998	) ifTrue:[
1387 ad7a920fdf61 less flicker by using a clipRect in redraw Claus Gittinger <cg@exept.de> parents: 1382 diff changeset	1999	lnSz := groupDividerSize // 2
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2000	].
1101 22eb87115477 level on default 1 ca parents: 1097 diff changeset	2001
650 29dcdf6a5994 button and label translation support added tz parents: 638 diff changeset	2002	end == 0 ifTrue:[^ self ].
29dcdf6a5994 button and label translation support added tz parents: 638 diff changeset	2003
29dcdf6a5994 button and label translation support added tz parents: 638 diff changeset	2004	hrzInset := items first horizontalInset.
29dcdf6a5994 button and label translation support added tz parents: 638 diff changeset	2005
1387 ad7a920fdf61 less flicker by using a clipRect in redraw Claus Gittinger <cg@exept.de> parents: 1382 diff changeset	2006	didRearrange ifFalse:[
1388 e82976e15b92 checkin from browser Claus Gittinger <cg@exept.de> parents: 1387 diff changeset	2007	prevClip := clipRect.
e82976e15b92 checkin from browser Claus Gittinger <cg@exept.de> parents: 1387 diff changeset	2008	self clippingRectangle:(Rectangle left:x top:y width:w height:h).
1387 ad7a920fdf61 less flicker by using a clipRect in redraw Claus Gittinger <cg@exept.de> parents: 1382 diff changeset	2009	].
650 29dcdf6a5994 button and label translation support added tz parents: 638 diff changeset	2010
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2011	start to:end do:[:i\|
1387 ad7a920fdf61 less flicker by using a clipRect in redraw Claus Gittinger <cg@exept.de> parents: 1382 diff changeset	2012	item := items at:i.
ad7a920fdf61 less flicker by using a clipRect in redraw Claus Gittinger <cg@exept.de> parents: 1382 diff changeset	2013	item redraw.
ad7a920fdf61 less flicker by using a clipRect in redraw Claus Gittinger <cg@exept.de> parents: 1382 diff changeset	2014
ad7a920fdf61 less flicker by using a clipRect in redraw Claus Gittinger <cg@exept.de> parents: 1382 diff changeset	2015	(lnSz notNil and:[self hasGroupDividerAt:i]) ifTrue:[
ad7a920fdf61 less flicker by using a clipRect in redraw Claus Gittinger <cg@exept.de> parents: 1382 diff changeset	2016	layout := item layout.
ad7a920fdf61 less flicker by using a clipRect in redraw Claus Gittinger <cg@exept.de> parents: 1382 diff changeset	2017
ad7a920fdf61 less flicker by using a clipRect in redraw Claus Gittinger <cg@exept.de> parents: 1382 diff changeset	2018	isVrt ifTrue:[
ad7a920fdf61 less flicker by using a clipRect in redraw Claus Gittinger <cg@exept.de> parents: 1382 diff changeset	2019	x1 := layout left + hrzInset.
ad7a920fdf61 less flicker by using a clipRect in redraw Claus Gittinger <cg@exept.de> parents: 1382 diff changeset	2020	x2 := layout right - hrzInset.
ad7a920fdf61 less flicker by using a clipRect in redraw Claus Gittinger <cg@exept.de> parents: 1382 diff changeset	2021	y1 := (layout bottom) + lnSz.
ad7a920fdf61 less flicker by using a clipRect in redraw Claus Gittinger <cg@exept.de> parents: 1382 diff changeset	2022	y2 := y1.
ad7a920fdf61 less flicker by using a clipRect in redraw Claus Gittinger <cg@exept.de> parents: 1382 diff changeset	2023	] ifFalse:[
ad7a920fdf61 less flicker by using a clipRect in redraw Claus Gittinger <cg@exept.de> parents: 1382 diff changeset	2024	x1 := (layout right) + lnSz.
ad7a920fdf61 less flicker by using a clipRect in redraw Claus Gittinger <cg@exept.de> parents: 1382 diff changeset	2025	x2 := x1.
ad7a920fdf61 less flicker by using a clipRect in redraw Claus Gittinger <cg@exept.de> parents: 1382 diff changeset	2026	y1 := layout top.
ad7a920fdf61 less flicker by using a clipRect in redraw Claus Gittinger <cg@exept.de> parents: 1382 diff changeset	2027	y2 := layout bottom.
ad7a920fdf61 less flicker by using a clipRect in redraw Claus Gittinger <cg@exept.de> parents: 1382 diff changeset	2028	].
ad7a920fdf61 less flicker by using a clipRect in redraw Claus Gittinger <cg@exept.de> parents: 1382 diff changeset	2029	self paint:(self shadowColor).
ad7a920fdf61 less flicker by using a clipRect in redraw Claus Gittinger <cg@exept.de> parents: 1382 diff changeset	2030	self displayLineFromX:x1 y:y1 toX:x2 y:y2.
ad7a920fdf61 less flicker by using a clipRect in redraw Claus Gittinger <cg@exept.de> parents: 1382 diff changeset	2031	self paint:(self lightColor).
ad7a920fdf61 less flicker by using a clipRect in redraw Claus Gittinger <cg@exept.de> parents: 1382 diff changeset	2032
ad7a920fdf61 less flicker by using a clipRect in redraw Claus Gittinger <cg@exept.de> parents: 1382 diff changeset	2033	isVrt ifTrue:[y1 := y1 + 1. y2 := y1 ]
ad7a920fdf61 less flicker by using a clipRect in redraw Claus Gittinger <cg@exept.de> parents: 1382 diff changeset	2034	ifFalse:[x1 := x1 + 1. x2 := x1 ].
ad7a920fdf61 less flicker by using a clipRect in redraw Claus Gittinger <cg@exept.de> parents: 1382 diff changeset	2035
ad7a920fdf61 less flicker by using a clipRect in redraw Claus Gittinger <cg@exept.de> parents: 1382 diff changeset	2036	self displayLineFromX:x1 y:y1 toX:x2 y:y2
ad7a920fdf61 less flicker by using a clipRect in redraw Claus Gittinger <cg@exept.de> parents: 1382 diff changeset	2037	]
ad7a920fdf61 less flicker by using a clipRect in redraw Claus Gittinger <cg@exept.de> parents: 1382 diff changeset	2038	].
ad7a920fdf61 less flicker by using a clipRect in redraw Claus Gittinger <cg@exept.de> parents: 1382 diff changeset	2039
ad7a920fdf61 less flicker by using a clipRect in redraw Claus Gittinger <cg@exept.de> parents: 1382 diff changeset	2040	didRearrange ifFalse:[
ad7a920fdf61 less flicker by using a clipRect in redraw Claus Gittinger <cg@exept.de> parents: 1382 diff changeset	2041	self clippingRectangle:prevClip
ad7a920fdf61 less flicker by using a clipRect in redraw Claus Gittinger <cg@exept.de> parents: 1382 diff changeset	2042	].
ad7a920fdf61 less flicker by using a clipRect in redraw Claus Gittinger <cg@exept.de> parents: 1382 diff changeset	2043
ad7a920fdf61 less flicker by using a clipRect in redraw Claus Gittinger <cg@exept.de> parents: 1382 diff changeset	2044	"Modified: / 21.5.1999 / 20:14:07 / cg"
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2045	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	2046
dce33f8bb806 intitial checkin ca parents: diff changeset	2047	!MenuPanel methodsFor:'enumerting & searching'!
dce33f8bb806 intitial checkin ca parents: diff changeset	2048
dce33f8bb806 intitial checkin ca parents: diff changeset	2049	collect:aOneArgBlock
dce33f8bb806 intitial checkin ca parents: diff changeset	2050	"evaluate the argument, aOneArgBlock for every item in the menuPanel
dce33f8bb806 intitial checkin ca parents: diff changeset	2051	and return a collection of the results
dce33f8bb806 intitial checkin ca parents: diff changeset	2052	"
dce33f8bb806 intitial checkin ca parents: diff changeset	2053	items notNil ifTrue:[^ items collect:aOneArgBlock ].
dce33f8bb806 intitial checkin ca parents: diff changeset	2054	^ nil
dce33f8bb806 intitial checkin ca parents: diff changeset	2055
dce33f8bb806 intitial checkin ca parents: diff changeset	2056	!
dce33f8bb806 intitial checkin ca parents: diff changeset	2057
dce33f8bb806 intitial checkin ca parents: diff changeset	2058	do:aOneArgBlock
dce33f8bb806 intitial checkin ca parents: diff changeset	2059	"evaluate the argument, aOneArgBlock for every item in the menuPanel.
dce33f8bb806 intitial checkin ca parents: diff changeset	2060	"
dce33f8bb806 intitial checkin ca parents: diff changeset	2061	items notNil ifTrue:[ items do:aOneArgBlock ].
dce33f8bb806 intitial checkin ca parents: diff changeset	2062
dce33f8bb806 intitial checkin ca parents: diff changeset	2063	!
dce33f8bb806 intitial checkin ca parents: diff changeset	2064
dce33f8bb806 intitial checkin ca parents: diff changeset	2065	findFirst:aOneArgBlock
dce33f8bb806 intitial checkin ca parents: diff changeset	2066	"find the first item, for which evaluation of the argument, aOneArgBlock
dce33f8bb806 intitial checkin ca parents: diff changeset	2067	returns true; return its index or 0 if none detected.
dce33f8bb806 intitial checkin ca parents: diff changeset	2068	"
dce33f8bb806 intitial checkin ca parents: diff changeset	2069	items notNil ifTrue:[ ^ items findFirst:aOneArgBlock ].
dce33f8bb806 intitial checkin ca parents: diff changeset	2070	^ 0
dce33f8bb806 intitial checkin ca parents: diff changeset	2071
dce33f8bb806 intitial checkin ca parents: diff changeset	2072	!
dce33f8bb806 intitial checkin ca parents: diff changeset	2073
dce33f8bb806 intitial checkin ca parents: diff changeset	2074	findLast:aOneArgBlock
dce33f8bb806 intitial checkin ca parents: diff changeset	2075	"find the last item, for which evaluation of the argument, aOneArgBlock
dce33f8bb806 intitial checkin ca parents: diff changeset	2076	returns true; return its index or 0 if none detected.
dce33f8bb806 intitial checkin ca parents: diff changeset	2077	"
dce33f8bb806 intitial checkin ca parents: diff changeset	2078	items notNil ifTrue:[ ^ items findLast:aOneArgBlock ].
dce33f8bb806 intitial checkin ca parents: diff changeset	2079	^ 0
dce33f8bb806 intitial checkin ca parents: diff changeset	2080
dce33f8bb806 intitial checkin ca parents: diff changeset	2081	!
dce33f8bb806 intitial checkin ca parents: diff changeset	2082
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2083	indexOf:something
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2084	"returns index of an item assigned to an index, nameKey, textLabel or value if symbol.
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2085	If no item match 0 is returned. No range checks are performed on a number argument
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2086	"
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2087	\|i v\|
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2088
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2089	something isNumber ifTrue:[ ^ something ].
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2090	something isNil ifTrue:[ ^ 0 ].
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2091
1218 6ce43fcb2603 code cleanup Claus Gittinger <cg@exept.de> parents: 1217 diff changeset	2092	i := self findFirst:[:el \| (el nameKey = something) or: [el = something]].
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2093
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2094	i ~~ 0 ifTrue:[
1368 eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	2095	^ i
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2096	].
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2097
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2098	something isSymbol ifTrue:[
1368 eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	2099	i := self findFirst:[:el\|
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	2100	v := el value.
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	2101	v isSymbol and:[v == something]
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	2102	].
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	2103	i ~~ 0 ifTrue:[
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	2104	^ i
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	2105	]
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2106	].
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2107
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2108	(something respondsTo:#string) ifTrue:[
1368 eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	2109	v := something string.
1218 6ce43fcb2603 code cleanup Claus Gittinger <cg@exept.de> parents: 1217 diff changeset	2110	^ self findFirst:[:el \| el textLabel = v].
6ce43fcb2603 code cleanup Claus Gittinger <cg@exept.de> parents: 1217 diff changeset	2111	].
6ce43fcb2603 code cleanup Claus Gittinger <cg@exept.de> parents: 1217 diff changeset	2112	^ 0
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2113	!
dce33f8bb806 intitial checkin ca parents: diff changeset	2114
706 d716edbdbe47 show separators bug cleaned tz parents: 689 diff changeset	2115	indexOfItem:anItem
d716edbdbe47 show separators bug cleaned tz parents: 689 diff changeset	2116	"returns the index of the item or 0
d716edbdbe47 show separators bug cleaned tz parents: 689 diff changeset	2117	"
d716edbdbe47 show separators bug cleaned tz parents: 689 diff changeset	2118	^ items notNil ifTrue:[items identityIndexOf:anItem] ifFalse:[0]
d716edbdbe47 show separators bug cleaned tz parents: 689 diff changeset	2119	!
d716edbdbe47 show separators bug cleaned tz parents: 689 diff changeset	2120
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2121	keysAndValuesDo:aTwoArgBlock
dce33f8bb806 intitial checkin ca parents: diff changeset	2122	"evaluate the argument, aTwoArgBlock for every item in the menuPanel.
dce33f8bb806 intitial checkin ca parents: diff changeset	2123	"
dce33f8bb806 intitial checkin ca parents: diff changeset	2124	items notNil ifTrue:[ items keysAndValuesDo:aTwoArgBlock ].
dce33f8bb806 intitial checkin ca parents: diff changeset	2125
dce33f8bb806 intitial checkin ca parents: diff changeset	2126	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	2127
dce33f8bb806 intitial checkin ca parents: diff changeset	2128	!MenuPanel methodsFor:'event handling'!
dce33f8bb806 intitial checkin ca parents: diff changeset	2129
dce33f8bb806 intitial checkin ca parents: diff changeset	2130	buttonMotion:state x:x y:y
dce33f8bb806 intitial checkin ca parents: diff changeset	2131	"open or close the corresponding submenus
dce33f8bb806 intitial checkin ca parents: diff changeset	2132	"
1218 6ce43fcb2603 code cleanup Claus Gittinger <cg@exept.de> parents: 1217 diff changeset	2133	\|menu point sensor sel itm\|
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2134
dce33f8bb806 intitial checkin ca parents: diff changeset	2135	( (sensor := self sensor) notNil
dce33f8bb806 intitial checkin ca parents: diff changeset	2136	and:[sensor hasButtonMotionEventFor:nil]
dce33f8bb806 intitial checkin ca parents: diff changeset	2137	) ifTrue:[
1368 eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	2138	^ self
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2139	].
1081 fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	2140
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	2141	sensor anyButtonPressed ifFalse:[
1368 eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	2142	"/ TODO: remember item over which pointer is
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	2143	"/ (for enteredFG/enteredBG/enteredLevel handling)
1081 fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	2144
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	2145
1368 eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	2146	(buttonEnteredBgColor ~= ButtonPassiveBackgroundColor
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	2147	or:[ButtonEnteredLevel ~~ ButtonPassiveLevel]) ifTrue:[
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	2148	(self containsPointX:x y:y) ifTrue:[
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	2149	((sel := self itemAtX:x y:y) notNil
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	2150	and:[sel isButton
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	2151	and:[superMenu isNil
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	2152	and:[sel canSelect]]]) ifTrue:[
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	2153	itm := sel.
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	2154	] ifFalse:[
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	2155	itm := nil
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	2156	].
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	2157	self itemEntered:itm.
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	2158	].
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	2159	].
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	2160	^ self
1081 fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	2161	].
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	2162
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	2163	"/ ok, a button is pressed.
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	2164	(buttonEnteredBgColor ~= ButtonPassiveBackgroundColor
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	2165	or:[ButtonEnteredLevel ~~ ButtonPassiveLevel]) ifTrue:[
1368 eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	2166	self itemEntered:nil.
1081 fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	2167	].
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2168
1044 3584c06b9e44 add button behaviour: ca parents: 1039 diff changeset	2169	lastButtonSelected notNil ifTrue:[
1368 eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	2170	^ self
1044 3584c06b9e44 add button behaviour: ca parents: 1039 diff changeset	2171	].
816 8f8f8e19d983 implement button behaviour ca parents: 798 diff changeset	2172
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2173	(self containsPointX:x y:y) ifTrue:[
1368 eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	2174	((sel := self itemAtX:x y:y) notNil
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	2175	and:[sel isButton
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	2176	and:[superMenu isNil
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	2177	and:[sel canSelect]]]) ifTrue:[
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	2178	lastButtonSelected := sel
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	2179	].
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	2180	^ self selection:sel
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2181	].
736 220741d8049b Use #saveUnder. Claus Gittinger <cg@exept.de> parents: 735 diff changeset	2182
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2183	menu := self superMenuAtX:x y:y.
dce33f8bb806 intitial checkin ca parents: diff changeset	2184
dce33f8bb806 intitial checkin ca parents: diff changeset	2185	menu isNil ifTrue:[
736 220741d8049b Use #saveUnder. Claus Gittinger <cg@exept.de> parents: 735 diff changeset	2186	^ self selection:nil
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2187	].
dce33f8bb806 intitial checkin ca parents: diff changeset	2188	point := self translatePoint:(x@y) to:menu.
dce33f8bb806 intitial checkin ca parents: diff changeset	2189	menu selection:(menu itemAtX:(point x) y:(point y))
1022 4519009d5f9c ignore motion events when no button is down. Claus Gittinger <cg@exept.de> parents: 1018 diff changeset	2190
1090 cf3d9f5648da only draw with enteredLevel, if item is enabled Claus Gittinger <cg@exept.de> parents: 1083 diff changeset	2191	"Modified: / 22.8.1998 / 12:51:17 / cg"
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2192	!
dce33f8bb806 intitial checkin ca parents: diff changeset	2193
dce33f8bb806 intitial checkin ca parents: diff changeset	2194	buttonPress:button x:x y:y
dce33f8bb806 intitial checkin ca parents: diff changeset	2195	"any button pressed; open or close the corresponding submenus
dce33f8bb806 intitial checkin ca parents: diff changeset	2196	"
dce33f8bb806 intitial checkin ca parents: diff changeset	2197	\|menu point item\|
dce33f8bb806 intitial checkin ca parents: diff changeset	2198
dce33f8bb806 intitial checkin ca parents: diff changeset	2199	menu := self superMenuAtX:x y:y.
dce33f8bb806 intitial checkin ca parents: diff changeset	2200
dce33f8bb806 intitial checkin ca parents: diff changeset	2201	menu isNil ifTrue:[
1472 fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	2202	menu := self topMenu.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2203	] ifFalse:[
1472 fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	2204	point := self translatePoint:(x@y) to:menu.
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	2205	item := menu itemAtX:(point x) y:(point y)
1255 f18c03dc613f checkin from browser Claus Gittinger <cg@exept.de> parents: 1254 diff changeset	2206	].
f18c03dc613f checkin from browser Claus Gittinger <cg@exept.de> parents: 1254 diff changeset	2207	menu selection:item.
f18c03dc613f checkin from browser Claus Gittinger <cg@exept.de> parents: 1254 diff changeset	2208
f18c03dc613f checkin from browser Claus Gittinger <cg@exept.de> parents: 1254 diff changeset	2209	self requestFocus
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2210	!
dce33f8bb806 intitial checkin ca parents: diff changeset	2211
dce33f8bb806 intitial checkin ca parents: diff changeset	2212	buttonRelease:button x:x y:y
dce33f8bb806 intitial checkin ca parents: diff changeset	2213	"button release action; accept selection and close all views
dce33f8bb806 intitial checkin ca parents: diff changeset	2214	"
816 8f8f8e19d983 implement button behaviour ca parents: 798 diff changeset	2215	\|menu item\|
687 23ce9888d76f bug fixes: ca parents: 681 diff changeset	2216
798 74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	2217	menu := self topMenu activeMenu.
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	2218
1251 eb5b4cdbacde fixed helpText display; Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	2219	( menu selection notNil
798 74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	2220	or:[menu isPopUpView not
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	2221	or:[(OperatingSystem millisecondTimeDeltaBetween:(Time millisecondClockValue)
1472 fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	2222	and:(menu mapTime)) > 200]]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2223	) ifTrue:[
1472 fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	2224	item := nil.
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	2225
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	2226	( (menu := self superMenuAtX:x y:y) notNil
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	2227	and:[(item := menu selection) notNil
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	2228	and:[item hasSubmenu]]
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	2229	) ifTrue:[
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	2230	menu selection:nil
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	2231	] ifFalse:[
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	2232	( lastButtonSelected isNil
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	2233	or:[item isNil
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	2234	or:[(menu itemAtX:x y:y) == lastButtonSelected]]
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	2235	) ifFalse:[
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	2236	item := nil
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	2237	].
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	2238	self topMenu accept:item
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	2239	]
798 74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	2240	].
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	2241
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	2242	"Modified: / 27.2.1998 / 17:41:23 / cg"
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2243	!
dce33f8bb806 intitial checkin ca parents: diff changeset	2244
dce33f8bb806 intitial checkin ca parents: diff changeset	2245	cursorPressed:aKey
dce33f8bb806 intitial checkin ca parents: diff changeset	2246	"handle a cursor key
dce33f8bb806 intitial checkin ca parents: diff changeset	2247	"
687 23ce9888d76f bug fixes: ca parents: 681 diff changeset	2248	\|next submenu item
23ce9888d76f bug fixes: ca parents: 681 diff changeset	2249	n "{ Class:SmallInteger }"
23ce9888d76f bug fixes: ca parents: 681 diff changeset	2250	idx "{ Class:SmallInteger }"
23ce9888d76f bug fixes: ca parents: 681 diff changeset	2251	first "{ Class:SmallInteger }"
23ce9888d76f bug fixes: ca parents: 681 diff changeset	2252	\|
1251 eb5b4cdbacde fixed helpText display; Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	2253
eb5b4cdbacde fixed helpText display; Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	2254	(self selection isNil
eb5b4cdbacde fixed helpText display; Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	2255	and:[superMenu notNil]) ifTrue:[
1368 eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	2256	^ superMenu cursorPressed:aKey
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2257	].
dce33f8bb806 intitial checkin ca parents: diff changeset	2258
dce33f8bb806 intitial checkin ca parents: diff changeset	2259	self verticalLayout ifTrue:[
1368 eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	2260	aKey == #CursorLeft ifTrue:[^ self selection:nil].
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	2261	aKey ~~ #CursorRight ifTrue:[next := aKey == #CursorDown].
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2262	] ifFalse:[
1368 eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	2263	aKey == #CursorUp ifTrue:[^ self selection:nil].
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	2264	aKey ~~ #CursorDown ifTrue:[next := aKey == #CursorRight].
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2265	].
dce33f8bb806 intitial checkin ca parents: diff changeset	2266
dce33f8bb806 intitial checkin ca parents: diff changeset	2267	next isNil ifTrue:[
1368 eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	2268	(item := self selection) notNil ifTrue:[
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	2269	(submenu := item submenu) notNil ifTrue:[
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	2270	idx := submenu findFirst:[:el\| el canSelect ].
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	2271	^ submenu selectionIndex:idx
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	2272	].
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	2273	^ self selection:nil
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	2274	].
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2275	^ self
dce33f8bb806 intitial checkin ca parents: diff changeset	2276	].
dce33f8bb806 intitial checkin ca parents: diff changeset	2277	first := self findFirst:[:el\| el canSelect ].
dce33f8bb806 intitial checkin ca parents: diff changeset	2278	first == 0 ifTrue:[^ self].
dce33f8bb806 intitial checkin ca parents: diff changeset	2279
dce33f8bb806 intitial checkin ca parents: diff changeset	2280	idx := self selectionIndex.
687 23ce9888d76f bug fixes: ca parents: 681 diff changeset	2281	n := 1 + (self sensor compressKeyPressEventsWithKey:aKey).
23ce9888d76f bug fixes: ca parents: 681 diff changeset	2282
23ce9888d76f bug fixes: ca parents: 681 diff changeset	2283	n timesRepeat:[
1368 eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	2284	next ifTrue:[
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	2285	[((idx := idx + 1) <= items size and:[(items at:idx) canSelect not])
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	2286	] whileTrue.
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	2287
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	2288	idx > items size ifTrue:[
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	2289	idx := first
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	2290	].
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	2291	] ifFalse:[
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	2292	[((idx := idx - 1) > 0 and:[(items at:idx) canSelect not])
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	2293	] whileTrue.
687 23ce9888d76f bug fixes: ca parents: 681 diff changeset	2294
1368 eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	2295	idx < 1 ifTrue:[ idx := self findLast:[:el\| el canSelect ] ]
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	2296	]
1251 eb5b4cdbacde fixed helpText display; Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	2297	].
eb5b4cdbacde fixed helpText display; Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	2298	self selectionIndex:idx.
eb5b4cdbacde fixed helpText display; Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	2299
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2300	!
dce33f8bb806 intitial checkin ca parents: diff changeset	2301
1199 73c48a823430 add focusNext/focusPrevious Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	2302	handleFocusNext
73c48a823430 add focusNext/focusPrevious Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	2303	"handle focus next key
73c48a823430 add focusNext/focusPrevious Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	2304	"
73c48a823430 add focusNext/focusPrevious Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	2305	\|idx\|
73c48a823430 add focusNext/focusPrevious Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	2306
73c48a823430 add focusNext/focusPrevious Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	2307	(self isPopUpView or:[items isNil]) ifFalse:[
1368 eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	2308	idx := self selectionIndex.
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	2309	idx := items findFirst:[:el\|el canSelect] startingAt:(1 + idx).
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	2310	idx ~~ 0 ifTrue:[ ^ self selectionIndex:idx ]
1199 73c48a823430 add focusNext/focusPrevious Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	2311	].
73c48a823430 add focusNext/focusPrevious Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	2312	self selection:nil.
73c48a823430 add focusNext/focusPrevious Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	2313	self windowGroup focusNextFrom:self.
73c48a823430 add focusNext/focusPrevious Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	2314
73c48a823430 add focusNext/focusPrevious Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	2315	!
73c48a823430 add focusNext/focusPrevious Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	2316
73c48a823430 add focusNext/focusPrevious Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	2317	handleFocusPrevious
73c48a823430 add focusNext/focusPrevious Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	2318	"handle focus previous
73c48a823430 add focusNext/focusPrevious Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	2319	"
73c48a823430 add focusNext/focusPrevious Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	2320	\|idx sel\|
73c48a823430 add focusNext/focusPrevious Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	2321
73c48a823430 add focusNext/focusPrevious Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	2322	(self isPopUpView or:[items isNil]) ifFalse:[
1368 eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	2323	sel := self selectionIndex.
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	2324	idx := sel == 0 ifTrue:[self numberOfItems]
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	2325	ifFalse:[sel - 1].
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	2326	idx := items findLast:[:el\|el canSelect] startingAt:idx.
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	2327	idx ~~ 0 ifTrue:[ ^ self selectionIndex:idx ]
1199 73c48a823430 add focusNext/focusPrevious Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	2328	].
73c48a823430 add focusNext/focusPrevious Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	2329	self selection:nil.
73c48a823430 add focusNext/focusPrevious Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	2330	self windowGroup focusPreviousFrom:self.
73c48a823430 add focusNext/focusPrevious Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	2331
73c48a823430 add focusNext/focusPrevious Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	2332	!
73c48a823430 add focusNext/focusPrevious Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	2333
1081 fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	2334	itemEntered:anItem
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	2335	\|prevEnteredItem\|
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	2336
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	2337	anItem == enteredItem ifTrue:[^ self].
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	2338
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	2339	prevEnteredItem := enteredItem.
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	2340	enteredItem := anItem.
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	2341
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	2342	prevEnteredItem notNil ifTrue:[
1117 3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	2343	prevEnteredItem redraw
1081 fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	2344	].
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	2345	enteredItem notNil ifTrue:[
1117 3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	2346	enteredItem redraw
1081 fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	2347	].
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	2348
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	2349	"Created: / 20.8.1998 / 13:18:23 / cg"
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	2350	"Modified: / 20.8.1998 / 14:03:55 / cg"
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	2351	!
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	2352
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2353	keyPress:key x:x y:y
dce33f8bb806 intitial checkin ca parents: diff changeset	2354	"any key is pressed
dce33f8bb806 intitial checkin ca parents: diff changeset	2355	"
1572 80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	2356	\|item\|
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	2357
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	2358	shown ifFalse:[
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	2359	superMenu notNil ifTrue:[superMenu keyPress:key x:x y:y].
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	2360	^ self
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	2361	].
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	2362
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	2363	key == #Return ifTrue:[^ self accept].
1199 73c48a823430 add focusNext/focusPrevious Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	2364
1250 021204b5bde5 hide menu on ESC; Claus Gittinger <cg@exept.de> parents: 1240 diff changeset	2365	"/ cg: must hide the active menu ...
021204b5bde5 hide menu on ESC; Claus Gittinger <cg@exept.de> parents: 1240 diff changeset	2366	key == #Escape ifTrue:[
1572 80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	2367	superMenu notNil ifTrue:[superMenu selection:nil].
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	2368	^ self
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	2369	].
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	2370
1250 021204b5bde5 hide menu on ESC; Claus Gittinger <cg@exept.de> parents: 1240 diff changeset	2371	"/ tabbing to the next view ...
1572 80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	2372	(key == #Tab
1250 021204b5bde5 hide menu on ESC; Claus Gittinger <cg@exept.de> parents: 1240 diff changeset	2373	or:[key == #FocusNext
021204b5bde5 hide menu on ESC; Claus Gittinger <cg@exept.de> parents: 1240 diff changeset	2374	or:[key == #FocusPrevious]]) ifTrue:[
1572 80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	2375	"/ if there is a menu open, hide it ...
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	2376	superMenu notNil ifTrue:[
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	2377	superMenu selection:nil
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	2378	] ifFalse:[
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	2379	super keyPress:key x:x y:y
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	2380	].
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	2381	^ self
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2382	].
dce33f8bb806 intitial checkin ca parents: diff changeset	2383
dce33f8bb806 intitial checkin ca parents: diff changeset	2384	( key == #CursorDown or:[key == #CursorUp
dce33f8bb806 intitial checkin ca parents: diff changeset	2385	or:[key == #CursorLeft or:[key == #CursorRight]]]
dce33f8bb806 intitial checkin ca parents: diff changeset	2386	) ifTrue:[
1572 80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	2387	^ self cursorPressed:key
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	2388	].
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	2389
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	2390	(self processShortcutKeyInMenuBar:key) ifTrue:[
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	2391	^ self
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	2392	].
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	2393
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	2394	(item := self detectItemForKey:key) notNil ifTrue:[
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	2395	^ self selection:item.
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	2396	].
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	2397
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	2398	superMenu notNil ifTrue:[
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	2399	item := superMenu detectItemForKey:key.
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	2400
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	2401	(item notNil or:[superMenu superMenu notNil]) ifTrue:[
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	2402	superMenu selection:item
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	2403	]
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	2404	].
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	2405	"/ nothing changed, nothing closed
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	2406
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	2407
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2408	!
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2409
1081 fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	2410	pointerLeave:state
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	2411	self itemEntered:nil.
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	2412	super pointerLeave:state
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	2413
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	2414	"Created: / 20.8.1998 / 14:04:29 / cg"
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	2415	!
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	2416
1240 167fcc9bd9de prepared for shortKey processing (via keyboardProcessor) Claus Gittinger <cg@exept.de> parents: 1222 diff changeset	2417	processShortcutKeyEventInMenuBar:event
167fcc9bd9de prepared for shortKey processing (via keyboardProcessor) Claus Gittinger <cg@exept.de> parents: 1222 diff changeset	2418	"an event as forwarded from the keyboardProcessor -
167fcc9bd9de prepared for shortKey processing (via keyboardProcessor) Claus Gittinger <cg@exept.de> parents: 1222 diff changeset	2419	if there is a short-key for that character, process it
1572 80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	2420	and return true. Otherwise, return false.
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	2421	"
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	2422	^ self processShortcutKeyInMenuBar:(event key)
1240 167fcc9bd9de prepared for shortKey processing (via keyboardProcessor) Claus Gittinger <cg@exept.de> parents: 1222 diff changeset	2423	!
167fcc9bd9de prepared for shortKey processing (via keyboardProcessor) Claus Gittinger <cg@exept.de> parents: 1222 diff changeset	2424
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2425	sizeChanged:how
1367 3213704f7ca2 sizeChanged: Claus Gittinger <cg@exept.de> parents: 1338 diff changeset	2426	"redraw #right groups
3213704f7ca2 sizeChanged: Claus Gittinger <cg@exept.de> parents: 1338 diff changeset	2427	"
3213704f7ca2 sizeChanged: Claus Gittinger <cg@exept.de> parents: 1338 diff changeset	2428	\|index layout invRect w right\|
3213704f7ca2 sizeChanged: Claus Gittinger <cg@exept.de> parents: 1338 diff changeset	2429
1455 5685ec322a5b sizeChanged:... Claus Gittinger <cg@exept.de> parents: 1388 diff changeset	2430	mustRearrange ifTrue:[
5685ec322a5b sizeChanged:... Claus Gittinger <cg@exept.de> parents: 1388 diff changeset	2431	^ super sizeChanged:how
5685ec322a5b sizeChanged:... Claus Gittinger <cg@exept.de> parents: 1388 diff changeset	2432	].
5685ec322a5b sizeChanged:... Claus Gittinger <cg@exept.de> parents: 1388 diff changeset	2433
1367 3213704f7ca2 sizeChanged: Claus Gittinger <cg@exept.de> parents: 1338 diff changeset	2434	index := self findFirst:[:anItem\| anItem startGroup == #right ].
3213704f7ca2 sizeChanged: Claus Gittinger <cg@exept.de> parents: 1338 diff changeset	2435	index ~~ 0 ifTrue:[
1455 5685ec322a5b sizeChanged:... Claus Gittinger <cg@exept.de> parents: 1388 diff changeset	2436	(shown not or:[index == 1]) ifTrue:[
5685ec322a5b sizeChanged:... Claus Gittinger <cg@exept.de> parents: 1388 diff changeset	2437	self mustRearrange.
5685ec322a5b sizeChanged:... Claus Gittinger <cg@exept.de> parents: 1388 diff changeset	2438	] ifFalse:[
5685ec322a5b sizeChanged:... Claus Gittinger <cg@exept.de> parents: 1388 diff changeset	2439	layout := (items at:(index -1)) layout.
5685ec322a5b sizeChanged:... Claus Gittinger <cg@exept.de> parents: 1388 diff changeset	2440	right := 1 + layout right.
5685ec322a5b sizeChanged:... Claus Gittinger <cg@exept.de> parents: 1388 diff changeset	2441
5685ec322a5b sizeChanged:... Claus Gittinger <cg@exept.de> parents: 1388 diff changeset	2442	(w := width - right) > margin ifTrue:[
5685ec322a5b sizeChanged:... Claus Gittinger <cg@exept.de> parents: 1388 diff changeset	2443	invRect := Rectangle left:right top:0 width:w height:height.
5685ec322a5b sizeChanged:... Claus Gittinger <cg@exept.de> parents: 1388 diff changeset	2444
5685ec322a5b sizeChanged:... Claus Gittinger <cg@exept.de> parents: 1388 diff changeset	2445	items from:index do:[:anItem\|
5685ec322a5b sizeChanged:... Claus Gittinger <cg@exept.de> parents: 1388 diff changeset	2446	anItem isVisible ifTrue:[
5685ec322a5b sizeChanged:... Claus Gittinger <cg@exept.de> parents: 1388 diff changeset	2447	layout := anItem layout.
5685ec322a5b sizeChanged:... Claus Gittinger <cg@exept.de> parents: 1388 diff changeset	2448	layout setLeft:right.
5685ec322a5b sizeChanged:... Claus Gittinger <cg@exept.de> parents: 1388 diff changeset	2449	right := layout right.
5685ec322a5b sizeChanged:... Claus Gittinger <cg@exept.de> parents: 1388 diff changeset	2450	]
5685ec322a5b sizeChanged:... Claus Gittinger <cg@exept.de> parents: 1388 diff changeset	2451	].
5685ec322a5b sizeChanged:... Claus Gittinger <cg@exept.de> parents: 1388 diff changeset	2452	self rearrangeGroups.
5685ec322a5b sizeChanged:... Claus Gittinger <cg@exept.de> parents: 1388 diff changeset	2453	self invalidate:invRect
5685ec322a5b sizeChanged:... Claus Gittinger <cg@exept.de> parents: 1388 diff changeset	2454	]
5685ec322a5b sizeChanged:... Claus Gittinger <cg@exept.de> parents: 1388 diff changeset	2455	]
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2456	].
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	2457	super sizeChanged:how
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2458	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	2459
dce33f8bb806 intitial checkin ca parents: diff changeset	2460	!MenuPanel methodsFor:'grabbing'!
dce33f8bb806 intitial checkin ca parents: diff changeset	2461
420 b6f9fff472ef fixes ca parents: 417 diff changeset	2462	forceUngrabMouseAndKeyboard
717 540e638fdebb Avoid pointer and keyboard grabbing if not necessary Stefan Vogel <sv@exept.de> parents: 712 diff changeset	2463	"ungrab resources (mouse and keyboard)
420 b6f9fff472ef fixes ca parents: 417 diff changeset	2464	"
b6f9fff472ef fixes ca parents: 417 diff changeset	2465	\|sensor\|
b6f9fff472ef fixes ca parents: 417 diff changeset	2466
b6f9fff472ef fixes ca parents: 417 diff changeset	2467	device ungrabPointer.
b6f9fff472ef fixes ca parents: 417 diff changeset	2468
b6f9fff472ef fixes ca parents: 417 diff changeset	2469	(sensor := self sensor) notNil ifTrue:[
1117 3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	2470	"/ make certain all X events have been received
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	2471	device sync.
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	2472	"/ now all events have been received.
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	2473	"/ now, flush all pointer events
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	2474	sensor flushKeyboardFor:nil
420 b6f9fff472ef fixes ca parents: 417 diff changeset	2475	].
b6f9fff472ef fixes ca parents: 417 diff changeset	2476	device ungrabKeyboard.
b6f9fff472ef fixes ca parents: 417 diff changeset	2477
717 540e638fdebb Avoid pointer and keyboard grabbing if not necessary Stefan Vogel <sv@exept.de> parents: 712 diff changeset	2478	"Modified: / 2.2.1998 / 09:24:48 / stefan"
420 b6f9fff472ef fixes ca parents: 417 diff changeset	2479	!
b6f9fff472ef fixes ca parents: 417 diff changeset	2480
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2481	grabMouseAndKeyboard
717 540e638fdebb Avoid pointer and keyboard grabbing if not necessary Stefan Vogel <sv@exept.de> parents: 712 diff changeset	2482	"get exclusive access to pointer and keyboard.
540e638fdebb Avoid pointer and keyboard grabbing if not necessary Stefan Vogel <sv@exept.de> parents: 712 diff changeset	2483	Only used for popUp menus."
540e638fdebb Avoid pointer and keyboard grabbing if not necessary Stefan Vogel <sv@exept.de> parents: 712 diff changeset	2484
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2485	\|sensor\|
dce33f8bb806 intitial checkin ca parents: diff changeset	2486
dce33f8bb806 intitial checkin ca parents: diff changeset	2487	realized ifTrue:[
1575 c56d76e45113 force set focus ca parents: 1574 diff changeset	2488	sensor := self sensor.
c56d76e45113 force set focus ca parents: 1574 diff changeset	2489
c56d76e45113 force set focus ca parents: 1574 diff changeset	2490	device activePointerGrab ~~ self ifTrue:[
c56d76e45113 force set focus ca parents: 1574 diff changeset	2491	sensor notNil ifTrue:[
c56d76e45113 force set focus ca parents: 1574 diff changeset	2492	sensor flushMotionEventsFor:nil.
c56d76e45113 force set focus ca parents: 1574 diff changeset	2493	].
c56d76e45113 force set focus ca parents: 1574 diff changeset	2494
c56d76e45113 force set focus ca parents: 1574 diff changeset	2495	(device grabPointerInView:self) ifFalse:[
c56d76e45113 force set focus ca parents: 1574 diff changeset	2496	Delay waitForSeconds:0.1.
c56d76e45113 force set focus ca parents: 1574 diff changeset	2497	(device grabPointerInView:self) ifFalse:[
c56d76e45113 force set focus ca parents: 1574 diff changeset	2498	"give up"
c56d76e45113 force set focus ca parents: 1574 diff changeset	2499	'MenuPanel [warning]: could not grab pointer' errorPrintCR.
c56d76e45113 force set focus ca parents: 1574 diff changeset	2500	self unmap
c56d76e45113 force set focus ca parents: 1574 diff changeset	2501	]
c56d76e45113 force set focus ca parents: 1574 diff changeset	2502	]
c56d76e45113 force set focus ca parents: 1574 diff changeset	2503	].
c56d76e45113 force set focus ca parents: 1574 diff changeset	2504
c56d76e45113 force set focus ca parents: 1574 diff changeset	2505	device activeKeyboardGrab ~~ self ifTrue:[
c56d76e45113 force set focus ca parents: 1574 diff changeset	2506	sensor notNil ifTrue:[
c56d76e45113 force set focus ca parents: 1574 diff changeset	2507	device sync.
c56d76e45113 force set focus ca parents: 1574 diff changeset	2508	sensor flushKeyboardFor:nil
c56d76e45113 force set focus ca parents: 1574 diff changeset	2509	].
c56d76e45113 force set focus ca parents: 1574 diff changeset	2510	device grabKeyboardInView:self.
c56d76e45113 force set focus ca parents: 1574 diff changeset	2511	].
c56d76e45113 force set focus ca parents: 1574 diff changeset	2512
c56d76e45113 force set focus ca parents: 1574 diff changeset	2513	superMenu notNil ifTrue:[
c56d76e45113 force set focus ca parents: 1574 diff changeset	2514	windowGroup focusView:self byTab:true.
c56d76e45113 force set focus ca parents: 1574 diff changeset	2515	"/ self requestFocus.
c56d76e45113 force set focus ca parents: 1574 diff changeset	2516	"/ self getKeyboardFocus
c56d76e45113 force set focus ca parents: 1574 diff changeset	2517	]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2518	]
dce33f8bb806 intitial checkin ca parents: diff changeset	2519
717 540e638fdebb Avoid pointer and keyboard grabbing if not necessary Stefan Vogel <sv@exept.de> parents: 712 diff changeset	2520	"Modified: / 2.2.1998 / 23:43:59 / stefan"
1254 38b8bcfabbd7 checkin from browser Claus Gittinger <cg@exept.de> parents: 1253 diff changeset	2521	"Modified: / 15.3.1999 / 12:01:38 / cg"
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2522	!
dce33f8bb806 intitial checkin ca parents: diff changeset	2523
dce33f8bb806 intitial checkin ca parents: diff changeset	2524	ungrabMouseAndKeyboard
717 540e638fdebb Avoid pointer and keyboard grabbing if not necessary Stefan Vogel <sv@exept.de> parents: 712 diff changeset	2525	"ungrab resources (mouse and keyboard)
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2526	"
dce33f8bb806 intitial checkin ca parents: diff changeset	2527	\|sensor\|
dce33f8bb806 intitial checkin ca parents: diff changeset	2528
dce33f8bb806 intitial checkin ca parents: diff changeset	2529	device activePointerGrab == self ifTrue:[
1117 3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	2530	device ungrabPointer.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2531	].
dce33f8bb806 intitial checkin ca parents: diff changeset	2532	device activeKeyboardGrab == self ifTrue:[
1117 3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	2533	sensor := self sensor.
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	2534	sensor notNil ifTrue:[
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	2535	"/ make certain all X events have been received
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	2536	device sync.
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	2537	"/ now all events have been received.
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	2538	"/ now, flush all pointer events
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	2539	sensor flushKeyboardFor:self
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	2540	].
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	2541	device ungrabKeyboard.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2542	].
687 23ce9888d76f bug fixes: ca parents: 681 diff changeset	2543
717 540e638fdebb Avoid pointer and keyboard grabbing if not necessary Stefan Vogel <sv@exept.de> parents: 712 diff changeset	2544	"Modified: / 2.2.1998 / 10:27:12 / stefan"
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2545	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	2546
1251 eb5b4cdbacde fixed helpText display; Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	2547	!MenuPanel methodsFor:'help'!
eb5b4cdbacde fixed helpText display; Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	2548
eb5b4cdbacde fixed helpText display; Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	2549	helpText
1252 6db6906da49b debug print Claus Gittinger <cg@exept.de> parents: 1251 diff changeset	2550	"return the helpText for the currently selected item (empty if none)"
6db6906da49b debug print Claus Gittinger <cg@exept.de> parents: 1251 diff changeset	2551
1251 eb5b4cdbacde fixed helpText display; Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	2552	\|appl item key\|
eb5b4cdbacde fixed helpText display; Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	2553
eb5b4cdbacde fixed helpText display; Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	2554	(item := self selection) notNil ifTrue:[
1368 eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	2555	(key := item activeHelpKey) notNil ifTrue:[
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	2556	(appl := self application) notNil ifTrue:[
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	2557	^ (appl helpTextForKey:key) ? ''.
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	2558	].
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	2559	]
1251 eb5b4cdbacde fixed helpText display; Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	2560	].
eb5b4cdbacde fixed helpText display; Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	2561	^ '' "/ nil.
eb5b4cdbacde fixed helpText display; Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	2562
eb5b4cdbacde fixed helpText display; Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	2563	"Modified: / 31.7.1998 / 03:15:17 / cg"
eb5b4cdbacde fixed helpText display; Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	2564	!
eb5b4cdbacde fixed helpText display; Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	2565
eb5b4cdbacde fixed helpText display; Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	2566	helpTextAt:aPoint
1252 6db6906da49b debug print Claus Gittinger <cg@exept.de> parents: 1251 diff changeset	2567	"return the helpText for aPoint (i.e. when mouse-pointer is moved over an item).
6db6906da49b debug print Claus Gittinger <cg@exept.de> parents: 1251 diff changeset	2568	If there is a selection, that items helpText is used (ignoreing the given point).
6db6906da49b debug print Claus Gittinger <cg@exept.de> parents: 1251 diff changeset	2569	"
6db6906da49b debug print Claus Gittinger <cg@exept.de> parents: 1251 diff changeset	2570
1251 eb5b4cdbacde fixed helpText display; Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	2571	\|menu point item key appl\|
eb5b4cdbacde fixed helpText display; Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	2572
eb5b4cdbacde fixed helpText display; Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	2573	selection notNil ifTrue:[
1368 eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	2574	^ self helpText
1251 eb5b4cdbacde fixed helpText display; Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	2575	].
eb5b4cdbacde fixed helpText display; Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	2576
eb5b4cdbacde fixed helpText display; Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	2577	(self containsPoint:aPoint) ifFalse:[
1368 eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	2578	superMenu notNil ifTrue:[
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	2579	^ superMenu helptext
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	2580	]
1251 eb5b4cdbacde fixed helpText display; Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	2581	].
eb5b4cdbacde fixed helpText display; Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	2582
eb5b4cdbacde fixed helpText display; Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	2583	menu := self superMenuAtX:aPoint x y:aPoint y.
eb5b4cdbacde fixed helpText display; Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	2584	menu isNil ifTrue:[
1368 eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	2585	^ ''
1251 eb5b4cdbacde fixed helpText display; Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	2586	].
eb5b4cdbacde fixed helpText display; Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	2587
eb5b4cdbacde fixed helpText display; Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	2588	point := self translatePoint:aPoint to:menu.
eb5b4cdbacde fixed helpText display; Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	2589	item := menu itemAtX:(point x) y:(point y).
eb5b4cdbacde fixed helpText display; Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	2590	item notNil ifTrue:[
1368 eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	2591	(key := item activeHelpKey) notNil ifTrue:[
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	2592	(appl := self application) notNil ifTrue:[
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	2593	^ (appl helpTextForKey:key) ? ''.
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	2594	].
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	2595	]
1251 eb5b4cdbacde fixed helpText display; Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	2596	].
eb5b4cdbacde fixed helpText display; Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	2597	"/ 'nil item' printCR.
eb5b4cdbacde fixed helpText display; Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	2598	^ '' "/ nil.
eb5b4cdbacde fixed helpText display; Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	2599
eb5b4cdbacde fixed helpText display; Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	2600	"Modified: / 31.7.1998 / 03:15:07 / cg"
eb5b4cdbacde fixed helpText display; Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	2601	! !
eb5b4cdbacde fixed helpText display; Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	2602
794 5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	2603	!MenuPanel methodsFor:'image registration'!
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	2604
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	2605	imageOnDevice:anImage
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	2606	"returns image registered on device
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	2607	"
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	2608	^ self class image:anImage onDevice:device
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	2609	!
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	2610
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	2611	lightenedImageOnDevice:anImage
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	2612	"returns lightened image registered on device
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	2613	"
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	2614	^ self class lightenedImage:anImage onDevice:device
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	2615	! !
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	2616
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2617	!MenuPanel methodsFor:'initialize / release'!
dce33f8bb806 intitial checkin ca parents: diff changeset	2618
767 ffa2a09a1039 added #addToCurrentProject in order to avoid restart errors tz parents: 746 diff changeset	2619	addToCurrentProject
ffa2a09a1039 added #addToCurrentProject in order to avoid restart errors tz parents: 746 diff changeset	2620	"ignored here"
ffa2a09a1039 added #addToCurrentProject in order to avoid restart errors tz parents: 746 diff changeset	2621
ffa2a09a1039 added #addToCurrentProject in order to avoid restart errors tz parents: 746 diff changeset	2622	^self
ffa2a09a1039 added #addToCurrentProject in order to avoid restart errors tz parents: 746 diff changeset	2623	!
ffa2a09a1039 added #addToCurrentProject in order to avoid restart errors tz parents: 746 diff changeset	2624
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2625	create
616 a6157b083830 support of different styles ca parents: 608 diff changeset	2626	"create the shadow view for a none contained submenu
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2627	"
1331 aae37cbfb30a fixed style handling to avoid bad resizing when popup-level/bw Claus Gittinger <cg@exept.de> parents: 1330 diff changeset	2628	\|style bw lwl\|
436 c03d6faa41a6 process events befor accept ca parents: 434 diff changeset	2629
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2630	super create.
dce33f8bb806 intitial checkin ca parents: diff changeset	2631
dce33f8bb806 intitial checkin ca parents: diff changeset	2632	self isPopUpView ifTrue:[
1499 07951b17b43e allow for a device to suppress shadowViews. Claus Gittinger <cg@exept.de> parents: 1478 diff changeset	2633	(PopUpView shadowsOnDevice:device) ifTrue:[
07951b17b43e allow for a device to suppress shadowViews. Claus Gittinger <cg@exept.de> parents: 1478 diff changeset	2634	shadowView isNil ifTrue:[
07951b17b43e allow for a device to suppress shadowViews. Claus Gittinger <cg@exept.de> parents: 1478 diff changeset	2635	shadowView := (ShadowView onDevice:device) for:self
07951b17b43e allow for a device to suppress shadowViews. Claus Gittinger <cg@exept.de> parents: 1478 diff changeset	2636	] ifFalse:[
07951b17b43e allow for a device to suppress shadowViews. Claus Gittinger <cg@exept.de> parents: 1478 diff changeset	2637	self saveUnder:true.
07951b17b43e allow for a device to suppress shadowViews. Claus Gittinger <cg@exept.de> parents: 1478 diff changeset	2638	].
07951b17b43e allow for a device to suppress shadowViews. Claus Gittinger <cg@exept.de> parents: 1478 diff changeset	2639	]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2640	] ifFalse:[
1499 07951b17b43e allow for a device to suppress shadowViews. Claus Gittinger <cg@exept.de> parents: 1478 diff changeset	2641	explicitExtent == true ifTrue:[
07951b17b43e allow for a device to suppress shadowViews. Claus Gittinger <cg@exept.de> parents: 1478 diff changeset	2642	(self width) == (superView width) ifTrue:[
07951b17b43e allow for a device to suppress shadowViews. Claus Gittinger <cg@exept.de> parents: 1478 diff changeset	2643	self verticalLayout:false
07951b17b43e allow for a device to suppress shadowViews. Claus Gittinger <cg@exept.de> parents: 1478 diff changeset	2644	]
07951b17b43e allow for a device to suppress shadowViews. Claus Gittinger <cg@exept.de> parents: 1478 diff changeset	2645	]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2646	]
1024 28c87a2369f6 show active help on pointer motion. Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	2647
28c87a2369f6 show active help on pointer motion. Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	2648	"Modified: / 28.7.1998 / 02:11:44 / cg"
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2649	!
dce33f8bb806 intitial checkin ca parents: diff changeset	2650
dce33f8bb806 intitial checkin ca parents: diff changeset	2651	destroy
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2652	"destroy items and shadowView; remove dependencies
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2653	"
798 74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	2654	self clearLastActiveMenu.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2655	self do:[:el\|el destroy].
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2656
498 b4c341497621 bug fixes: ca parents: 475 diff changeset	2657	menuHolder notNil ifTrue:[menuHolder removeDependent:self].
b4c341497621 bug fixes: ca parents: 475 diff changeset	2658	enableChannel notNil ifTrue:[enableChannel removeDependent:self].
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2659
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2660	super destroy.
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2661	superMenu := nil.
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2662	items := nil.
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2663	shadowView notNil ifTrue:[shadowView destroy].
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2664
798 74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	2665	"Modified: / 27.2.1998 / 17:41:25 / cg"
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2666	!
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2667
616 a6157b083830 support of different styles ca parents: 608 diff changeset	2668	fetchDeviceResources
a6157b083830 support of different styles ca parents: 608 diff changeset	2669	"fetch device colors, to avoid reallocation at redraw time"
a6157b083830 support of different styles ca parents: 608 diff changeset	2670
a6157b083830 support of different styles ca parents: 608 diff changeset	2671	\|style\|
a6157b083830 support of different styles ca parents: 608 diff changeset	2672
a6157b083830 support of different styles ca parents: 608 diff changeset	2673	super fetchDeviceResources.
a6157b083830 support of different styles ca parents: 608 diff changeset	2674
1081 fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	2675	style := styleSheet name.
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	2676
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	2677	"/ 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	2678	"/ (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	2679
1331 aae37cbfb30a fixed style handling to avoid bad resizing when popup-level/bw Claus Gittinger <cg@exept.de> parents: 1330 diff changeset	2680	onLevel := styleSheet at:#'menu.hilightLevel' default:0.
1081 fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	2681
616 a6157b083830 support of different styles ca parents: 608 diff changeset	2682	superMenu isNil ifTrue:[
1368 eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	2683	fgColor := DefaultForegroundColor onDevice:device.
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	2684	activeBgColor := DefaultHilightBackgroundColor onDevice:device.
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	2685	activeFgColor := DefaultHilightForegroundColor onDevice:device.
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	2686	disabledFgColor := DefaultDisabledForegroundColor onDevice:device.
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	2687	rightArrow := RightArrowForm onDevice:device.
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	2688	selectionFrameBrightColor := SelectionFrameBrightColor onDevice:device.
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	2689	selectionFrameDarkColor := SelectionFrameDarkColor onDevice:device.
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	2690	buttonLightColor := ButtonLightColor onDevice:device.
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	2691	buttonShadowColor := ButtonShadowColor onDevice:device.
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	2692	ButtonHalfLightColor notNil ifTrue: [
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	2693	buttonHalfLightColor := ButtonHalfLightColor onDevice:device].
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	2694	ButtonHalfShadowColor notNil ifTrue: [
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	2695	buttonHalfShadowColor := ButtonHalfShadowColor onDevice:device].
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	2696	buttonEnteredBgColor := ButtonEnteredBackgroundColor onDevice:device.
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	2697
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	2698	(rightArrowShadow := RightArrowShadowForm) notNil ifTrue:[
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	2699	rightArrowShadow := rightArrowShadow onDevice:device
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	2700	]
616 a6157b083830 support of different styles ca parents: 608 diff changeset	2701	] ifFalse:[
1368 eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	2702	fgColor := superMenu foregroundColor.
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	2703	activeBgColor := superMenu activeBackgroundColor.
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	2704	activeFgColor := superMenu activeForegroundColor.
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	2705	disabledFgColor := superMenu disabledForegroundColor.
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	2706	rightArrow := superMenu rightArrow.
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	2707	rightArrowShadow := superMenu rightArrowShadow.
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	2708	selectionFrameBrightColor := superMenu selectionFrameBrightColor.
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	2709	selectionFrameDarkColor := superMenu selectionFrameDarkColor.
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	2710	buttonLightColor := superMenu buttonLightColor.
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	2711	buttonShadowColor := superMenu buttonShadowColor.
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	2712	buttonHalfLightColor := superMenu buttonHalfLightColor.
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	2713	buttonHalfShadowColor := superMenu buttonHalfShadowColor.
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	2714	buttonEnteredBgColor := superMenu buttonEnteredBackgroundColor.
1137 7df0b776e47a fixes for 2D styles (borderWidth) Claus Gittinger <cg@exept.de> parents: 1130 diff changeset	2715	].
7df0b776e47a fixes for 2D styles (borderWidth) Claus Gittinger <cg@exept.de> parents: 1130 diff changeset	2716
7df0b776e47a fixes for 2D styles (borderWidth) Claus Gittinger <cg@exept.de> parents: 1130 diff changeset	2717	"Modified: / 15.9.1998 / 12:51:29 / cg"
616 a6157b083830 support of different styles ca parents: 608 diff changeset	2718	!
a6157b083830 support of different styles ca parents: 608 diff changeset	2719
1331 aae37cbfb30a fixed style handling to avoid bad resizing when popup-level/bw Claus Gittinger <cg@exept.de> parents: 1330 diff changeset	2720	initPopUpDependentStyle:isPopUp
aae37cbfb30a fixed style handling to avoid bad resizing when popup-level/bw Claus Gittinger <cg@exept.de> parents: 1330 diff changeset	2721	"/ stupid - must be invoked explicit, since,
aae37cbfb30a fixed style handling to avoid bad resizing when popup-level/bw Claus Gittinger <cg@exept.de> parents: 1330 diff changeset	2722	"/ #isPopUpView does not return a correct value at initStyle time
aae37cbfb30a fixed style handling to avoid bad resizing when popup-level/bw Claus Gittinger <cg@exept.de> parents: 1330 diff changeset	2723	"/ (thinks that all are popup views) ...
aae37cbfb30a fixed style handling to avoid bad resizing when popup-level/bw Claus Gittinger <cg@exept.de> parents: 1330 diff changeset	2724
aae37cbfb30a fixed style handling to avoid bad resizing when popup-level/bw Claus Gittinger <cg@exept.de> parents: 1330 diff changeset	2725	\|bw lvl\|
aae37cbfb30a fixed style handling to avoid bad resizing when popup-level/bw Claus Gittinger <cg@exept.de> parents: 1330 diff changeset	2726
aae37cbfb30a fixed style handling to avoid bad resizing when popup-level/bw Claus Gittinger <cg@exept.de> parents: 1330 diff changeset	2727	isPopUp ifTrue:[
1368 eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	2728	bw := styleSheet at:#'popup.borderWidth' default:1.
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	2729	lvl := styleSheet at:#'popup.level' default:0.
1331 aae37cbfb30a fixed style handling to avoid bad resizing when popup-level/bw Claus Gittinger <cg@exept.de> parents: 1330 diff changeset	2730	] ifFalse:[
1368 eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	2731	bw := (styleSheet is3D ifFalse:[1] ifTrue:[0]).
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	2732	lvl := DefaultLevel.
1331 aae37cbfb30a fixed style handling to avoid bad resizing when popup-level/bw Claus Gittinger <cg@exept.de> parents: 1330 diff changeset	2733	].
aae37cbfb30a fixed style handling to avoid bad resizing when popup-level/bw Claus Gittinger <cg@exept.de> parents: 1330 diff changeset	2734
aae37cbfb30a fixed style handling to avoid bad resizing when popup-level/bw Claus Gittinger <cg@exept.de> parents: 1330 diff changeset	2735	bw notNil ifTrue:[
1368 eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	2736	self borderWidth:bw
1331 aae37cbfb30a fixed style handling to avoid bad resizing when popup-level/bw Claus Gittinger <cg@exept.de> parents: 1330 diff changeset	2737	].
aae37cbfb30a fixed style handling to avoid bad resizing when popup-level/bw Claus Gittinger <cg@exept.de> parents: 1330 diff changeset	2738	lvl notNil ifTrue:[
1368 eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	2739	self level:lvl
1331 aae37cbfb30a fixed style handling to avoid bad resizing when popup-level/bw Claus Gittinger <cg@exept.de> parents: 1330 diff changeset	2740	]
aae37cbfb30a fixed style handling to avoid bad resizing when popup-level/bw Claus Gittinger <cg@exept.de> parents: 1330 diff changeset	2741
aae37cbfb30a fixed style handling to avoid bad resizing when popup-level/bw Claus Gittinger <cg@exept.de> parents: 1330 diff changeset	2742	!
aae37cbfb30a fixed style handling to avoid bad resizing when popup-level/bw Claus Gittinger <cg@exept.de> parents: 1330 diff changeset	2743
580 249f6cfc5bb2 checkin from browser Claus Gittinger <cg@exept.de> parents: 571 diff changeset	2744	initStyle
249f6cfc5bb2 checkin from browser Claus Gittinger <cg@exept.de> parents: 571 diff changeset	2745	"initialize style specific stuff"
249f6cfc5bb2 checkin from browser Claus Gittinger <cg@exept.de> parents: 571 diff changeset	2746
1331 aae37cbfb30a fixed style handling to avoid bad resizing when popup-level/bw Claus Gittinger <cg@exept.de> parents: 1330 diff changeset	2747	\|style bw lwl\|
1082 382324ddce3f support and additional buttonSpacing (for normal and win95 styles) Claus Gittinger <cg@exept.de> parents: 1081 diff changeset	2748
580 249f6cfc5bb2 checkin from browser Claus Gittinger <cg@exept.de> parents: 571 diff changeset	2749	super initStyle.
616 a6157b083830 support of different styles ca parents: 608 diff changeset	2750
1336 6087005f59a8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1332 diff changeset	2751	viewBackground := DefaultBackgroundColor.
1117 3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	2752
616 a6157b083830 support of different styles ca parents: 608 diff changeset	2753	onLevel := DefaultHilightLevel.
1331 aae37cbfb30a fixed style handling to avoid bad resizing when popup-level/bw Claus Gittinger <cg@exept.de> parents: 1330 diff changeset	2754	offLevel := 0. "/ DefaultLevel.
616 a6157b083830 support of different styles ca parents: 608 diff changeset	2755	itemSpace := DefaultItemSpace.
a6157b083830 support of different styles ca parents: 608 diff changeset	2756
a6157b083830 support of different styles ca parents: 608 diff changeset	2757	groupDividerSize := DefaultGroupDividerSize.
a6157b083830 support of different styles ca parents: 608 diff changeset	2758	fitFirstPanel := DefaultFitFirstPanel.
1082 382324ddce3f support and additional buttonSpacing (for normal and win95 styles) Claus Gittinger <cg@exept.de> parents: 1081 diff changeset	2759
382324ddce3f support and additional buttonSpacing (for normal and win95 styles) Claus Gittinger <cg@exept.de> parents: 1081 diff changeset	2760	style := styleSheet name.
382324ddce3f support and additional buttonSpacing (for normal and win95 styles) Claus Gittinger <cg@exept.de> parents: 1081 diff changeset	2761
1331 aae37cbfb30a fixed style handling to avoid bad resizing when popup-level/bw Claus Gittinger <cg@exept.de> parents: 1330 diff changeset	2762	"/ for now, assume not popUp (since superMenu is always nil at this time)
aae37cbfb30a fixed style handling to avoid bad resizing when popup-level/bw Claus Gittinger <cg@exept.de> parents: 1330 diff changeset	2763	self initPopUpDependentStyle:false.
aae37cbfb30a fixed style handling to avoid bad resizing when popup-level/bw Claus Gittinger <cg@exept.de> parents: 1330 diff changeset	2764
aae37cbfb30a fixed style handling to avoid bad resizing when popup-level/bw Claus Gittinger <cg@exept.de> parents: 1330 diff changeset	2765	font := MenuView defaultFont.
1137 7df0b776e47a fixes for 2D styles (borderWidth) Claus Gittinger <cg@exept.de> parents: 1130 diff changeset	2766
7df0b776e47a fixes for 2D styles (borderWidth) Claus Gittinger <cg@exept.de> parents: 1130 diff changeset	2767	"Modified: / 15.9.1998 / 12:50:14 / cg"
580 249f6cfc5bb2 checkin from browser Claus Gittinger <cg@exept.de> parents: 571 diff changeset	2768	!
249f6cfc5bb2 checkin from browser Claus Gittinger <cg@exept.de> parents: 571 diff changeset	2769
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2770	initialize
dce33f8bb806 intitial checkin ca parents: diff changeset	2771	"set default configuration
dce33f8bb806 intitial checkin ca parents: diff changeset	2772	"
616 a6157b083830 support of different styles ca parents: 608 diff changeset	2773
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2774	super initialize.
616 a6157b083830 support of different styles ca parents: 608 diff changeset	2775
498 b4c341497621 bug fixes: ca parents: 475 diff changeset	2776	enabled := true.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2777	originChanged := extentChanged := false.
dce33f8bb806 intitial checkin ca parents: diff changeset	2778	explicitExtent := nil.
dce33f8bb806 intitial checkin ca parents: diff changeset	2779	shortKeyInset := 0.
dce33f8bb806 intitial checkin ca parents: diff changeset	2780	mustRearrange := false.
829 c86ed87da63b bug fix: ca parents: 828 diff changeset	2781
1137 7df0b776e47a fixes for 2D styles (borderWidth) Claus Gittinger <cg@exept.de> parents: 1130 diff changeset	2782	"Modified: / 15.9.1998 / 12:49:51 / cg"
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2783	!
dce33f8bb806 intitial checkin ca parents: diff changeset	2784
1573 fd124ee2bce5 shortcutKeys; arrange layout if selection changed ca parents: 1572 diff changeset	2785	map
717 540e638fdebb Avoid pointer and keyboard grabbing if not necessary Stefan Vogel <sv@exept.de> parents: 712 diff changeset	2786	"grab the pointer here, when visible (but not if control has already been lost).
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2787	If the grab fails, try again and unmap myself if that fails too.
dce33f8bb806 intitial checkin ca parents: diff changeset	2788	"
dce33f8bb806 intitial checkin ca parents: diff changeset	2789	\|anItemList\|
dce33f8bb806 intitial checkin ca parents: diff changeset	2790
1024 28c87a2369f6 show active help on pointer motion. Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	2791	self enableMotionEvents.
28c87a2369f6 show active help on pointer motion. Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	2792
816 8f8f8e19d983 implement button behaviour ca parents: 798 diff changeset	2793	lastButtonSelected := nil.
798 74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	2794	self becomesActiveMenu.
1573 fd124ee2bce5 shortcutKeys; arrange layout if selection changed ca parents: 1572 diff changeset	2795	super map.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2796
1257 79a40d3f8c2f Use #query instead of #raise when invoking QuerySignals Stefan Vogel <sv@exept.de> parents: 1255 diff changeset	2797	anItemList := InitialSelectionQuerySignal query.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2798
1572 80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	2799	self do:[:anItem\| anItem fetchImages ].
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	2800
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2801	self isPopUpView ifTrue:[
1572 80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	2802	self grabMouseAndKeyboard
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2803	] ifFalse:[
1572 80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	2804	super viewBackground:(self backgroundColor).
717 540e638fdebb Avoid pointer and keyboard grabbing if not necessary Stefan Vogel <sv@exept.de> parents: 712 diff changeset	2805	].
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2806	self do:[:el\| el updateIndicators ].
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2807
dce33f8bb806 intitial checkin ca parents: diff changeset	2808	anItemList size > 0 ifTrue:[
1572 80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	2809	self redrawX:0 y:0 width:width height:height.
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	2810	self openMenusFromItems:anItemList.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2811	].
dce33f8bb806 intitial checkin ca parents: diff changeset	2812
1177 cfd7f71639f3 checkin from browser Claus Gittinger <cg@exept.de> parents: 1164 diff changeset	2813	"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	2814	"Modified: / 18.3.1999 / 18:22:18 / stefan"
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2815	!
dce33f8bb806 intitial checkin ca parents: diff changeset	2816
dce33f8bb806 intitial checkin ca parents: diff changeset	2817	realize
dce33f8bb806 intitial checkin ca parents: diff changeset	2818	"realize menu and shadowView
dce33f8bb806 intitial checkin ca parents: diff changeset	2819	"
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	2820
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2821	self isPopUpView ifTrue:[
1459 53f83c83b354 checkin from browser Claus Gittinger <cg@exept.de> parents: 1455 diff changeset	2822	"Because of #saveUnder of ShadowView the order of realize is significant:
53f83c83b354 checkin from browser Claus Gittinger <cg@exept.de> parents: 1455 diff changeset	2823	shadowView must be realized before self"
53f83c83b354 checkin from browser Claus Gittinger <cg@exept.de> parents: 1455 diff changeset	2824	self hiddenOnRealize:true.
53f83c83b354 checkin from browser Claus Gittinger <cg@exept.de> parents: 1455 diff changeset	2825	super realize.
53f83c83b354 checkin from browser Claus Gittinger <cg@exept.de> parents: 1455 diff changeset	2826	self resize.
53f83c83b354 checkin from browser Claus Gittinger <cg@exept.de> parents: 1455 diff changeset	2827	self makeFullyVisible.
53f83c83b354 checkin from browser Claus Gittinger <cg@exept.de> parents: 1455 diff changeset	2828	shadowView notNil ifTrue:[
53f83c83b354 checkin from browser Claus Gittinger <cg@exept.de> parents: 1455 diff changeset	2829	shadowView realize.
53f83c83b354 checkin from browser Claus Gittinger <cg@exept.de> parents: 1455 diff changeset	2830	].
53f83c83b354 checkin from browser Claus Gittinger <cg@exept.de> parents: 1455 diff changeset	2831	self raise.
1573 fd124ee2bce5 shortcutKeys; arrange layout if selection changed ca parents: 1572 diff changeset	2832	self map.
736 220741d8049b Use #saveUnder. Claus Gittinger <cg@exept.de> parents: 735 diff changeset	2833	] ifFalse:[
1459 53f83c83b354 checkin from browser Claus Gittinger <cg@exept.de> parents: 1455 diff changeset	2834	super realize.
736 220741d8049b Use #saveUnder. Claus Gittinger <cg@exept.de> parents: 735 diff changeset	2835	]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2836	!
dce33f8bb806 intitial checkin ca parents: diff changeset	2837
dce33f8bb806 intitial checkin ca parents: diff changeset	2838	recreate
dce33f8bb806 intitial checkin ca parents: diff changeset	2839	"this is called after a snapin. If the image was saved with an active menu,
dce33f8bb806 intitial checkin ca parents: diff changeset	2840	hide the menu
dce33f8bb806 intitial checkin ca parents: diff changeset	2841	"
1455 5685ec322a5b sizeChanged:... Claus Gittinger <cg@exept.de> parents: 1388 diff changeset	2842	selection := nil.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2843	super recreate.
dce33f8bb806 intitial checkin ca parents: diff changeset	2844
dce33f8bb806 intitial checkin ca parents: diff changeset	2845	!
dce33f8bb806 intitial checkin ca parents: diff changeset	2846
1130 fb79ef4aeec8 style changes Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	2847	reinitStyle
fb79ef4aeec8 style changes Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	2848	"handle style change while being open (win32 only - for now)"
fb79ef4aeec8 style changes Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	2849
fb79ef4aeec8 style changes Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	2850	super reinitStyle.
fb79ef4aeec8 style changes Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	2851
fb79ef4aeec8 style changes Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	2852	self fetchDeviceResources.
fb79ef4aeec8 style changes Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	2853	items notNil ifTrue:[
1368 eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	2854	items do:[:anItem \|
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	2855	anItem reinitSubmenuStyle
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	2856	]
1130 fb79ef4aeec8 style changes Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	2857	]
fb79ef4aeec8 style changes Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	2858
fb79ef4aeec8 style changes Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	2859	"Created: / 10.9.1998 / 21:37:05 / cg"
fb79ef4aeec8 style changes Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	2860	"Modified: / 11.9.1998 / 13:20:57 / cg"
fb79ef4aeec8 style changes Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	2861	!
fb79ef4aeec8 style changes Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	2862
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2863	unmap
1330 63d2fe5ebd48 comment Claus Gittinger <cg@exept.de> parents: 1313 diff changeset	2864	"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	2865	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	2866
798 74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	2867	self clearLastActiveMenu.
879 837cee20fdcb * empty log message * Claus Gittinger <cg@exept.de> parents: 878 diff changeset	2868
736 220741d8049b Use #saveUnder. Claus Gittinger <cg@exept.de> parents: 735 diff changeset	2869	"/
220741d8049b Use #saveUnder. Claus Gittinger <cg@exept.de> parents: 735 diff changeset	2870	"/ Kludge for X11: after grabbing and ungrabbing other views may get buttonMotionEvents
220741d8049b Use #saveUnder. Claus Gittinger <cg@exept.de> parents: 735 diff changeset	2871	"/ when a mouse button is still pressed. To avoid this we grab the mouse for the superview.
220741d8049b Use #saveUnder. Claus Gittinger <cg@exept.de> parents: 735 diff changeset	2872	"/ (Move from upperMenuPanel of NewLauncher to lowerMenuPanel)
220741d8049b Use #saveUnder. Claus Gittinger <cg@exept.de> parents: 735 diff changeset	2873	"/
1218 6ce43fcb2603 code cleanup Claus Gittinger <cg@exept.de> parents: 1217 diff changeset	2874	(superMenu notNil
6ce43fcb2603 code cleanup Claus Gittinger <cg@exept.de> parents: 1217 diff changeset	2875	and:[superMenu shown
6ce43fcb2603 code cleanup Claus Gittinger <cg@exept.de> parents: 1217 diff changeset	2876	and:[superMenu isPopUpView
1368 eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	2877	or:[superMenu sensor anyButtonPressed]]])
1218 6ce43fcb2603 code cleanup Claus Gittinger <cg@exept.de> parents: 1217 diff changeset	2878	ifTrue:[
1368 eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	2879	superMenu grabMouseAndKeyboard
717 540e638fdebb Avoid pointer and keyboard grabbing if not necessary Stefan Vogel <sv@exept.de> parents: 712 diff changeset	2880	] ifFalse:[
1368 eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	2881	self ungrabMouseAndKeyboard.
717 540e638fdebb Avoid pointer and keyboard grabbing if not necessary Stefan Vogel <sv@exept.de> parents: 712 diff changeset	2882	].
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2883	super unmap.
dce33f8bb806 intitial checkin ca parents: diff changeset	2884	shadowView notNil ifTrue:[shadowView unmap].
dce33f8bb806 intitial checkin ca parents: diff changeset	2885
717 540e638fdebb Avoid pointer and keyboard grabbing if not necessary Stefan Vogel <sv@exept.de> parents: 712 diff changeset	2886	"Modified: / 2.2.1998 / 10:27:06 / stefan"
798 74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	2887	"Modified: / 27.2.1998 / 17:41:24 / cg"
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	!MenuPanel methodsFor:'misc'!
dce33f8bb806 intitial checkin ca parents: diff changeset	2891
427 82cbad72e197 raiseDeiconified is treated like a raise Claus Gittinger <cg@exept.de> parents: 420 diff changeset	2892	raiseDeiconified
82cbad72e197 raiseDeiconified is treated like a raise Claus Gittinger <cg@exept.de> parents: 420 diff changeset	2893	^ self raise
82cbad72e197 raiseDeiconified is treated like a raise Claus Gittinger <cg@exept.de> parents: 420 diff changeset	2894
82cbad72e197 raiseDeiconified is treated like a raise Claus Gittinger <cg@exept.de> parents: 420 diff changeset	2895	"Created: 21.6.1997 / 13:29:12 / cg"
82cbad72e197 raiseDeiconified is treated like a raise Claus Gittinger <cg@exept.de> parents: 420 diff changeset	2896	!
82cbad72e197 raiseDeiconified is treated like a raise Claus Gittinger <cg@exept.de> parents: 420 diff changeset	2897
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2898	superMenu
dce33f8bb806 intitial checkin ca parents: diff changeset	2899	"returns supermenu or nil
dce33f8bb806 intitial checkin ca parents: diff changeset	2900	"
dce33f8bb806 intitial checkin ca parents: diff changeset	2901	^ superMenu
dce33f8bb806 intitial checkin ca parents: diff changeset	2902
dce33f8bb806 intitial checkin ca parents: diff changeset	2903
dce33f8bb806 intitial checkin ca parents: diff changeset	2904	!
dce33f8bb806 intitial checkin ca parents: diff changeset	2905
dce33f8bb806 intitial checkin ca parents: diff changeset	2906	superMenu:aSuperMenu
dce33f8bb806 intitial checkin ca parents: diff changeset	2907	"set the supermenu starting from
dce33f8bb806 intitial checkin ca parents: diff changeset	2908	"
1331 aae37cbfb30a fixed style handling to avoid bad resizing when popup-level/bw Claus Gittinger <cg@exept.de> parents: 1330 diff changeset	2909	\|prev\|
aae37cbfb30a fixed style handling to avoid bad resizing when popup-level/bw Claus Gittinger <cg@exept.de> parents: 1330 diff changeset	2910
aae37cbfb30a fixed style handling to avoid bad resizing when popup-level/bw Claus Gittinger <cg@exept.de> parents: 1330 diff changeset	2911	prev := superMenu.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2912	superMenu := aSuperMenu.
1331 aae37cbfb30a fixed style handling to avoid bad resizing when popup-level/bw Claus Gittinger <cg@exept.de> parents: 1330 diff changeset	2913	(prev isNil and:[superMenu notNil]) ifTrue:[
1368 eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	2914	self initPopUpDependentStyle:(self isPopUpView)
1331 aae37cbfb30a fixed style handling to avoid bad resizing when popup-level/bw Claus Gittinger <cg@exept.de> parents: 1330 diff changeset	2915	].
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2916	!
dce33f8bb806 intitial checkin ca parents: diff changeset	2917
dce33f8bb806 intitial checkin ca parents: diff changeset	2918	topMenu
dce33f8bb806 intitial checkin ca parents: diff changeset	2919	"returns the topMenu; the one having no superMenu
dce33f8bb806 intitial checkin ca parents: diff changeset	2920	"
dce33f8bb806 intitial checkin ca parents: diff changeset	2921	\|top\|
dce33f8bb806 intitial checkin ca parents: diff changeset	2922
dce33f8bb806 intitial checkin ca parents: diff changeset	2923	top := self.
dce33f8bb806 intitial checkin ca parents: diff changeset	2924
dce33f8bb806 intitial checkin ca parents: diff changeset	2925	[ top superMenu notNil ] whileTrue:[
1117 3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	2926	top := top superMenu
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2927	].
dce33f8bb806 intitial checkin ca parents: diff changeset	2928	^ top
dce33f8bb806 intitial checkin ca parents: diff changeset	2929
dce33f8bb806 intitial checkin ca parents: diff changeset	2930
dce33f8bb806 intitial checkin ca parents: diff changeset	2931	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	2932
798 74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	2933	!MenuPanel methodsFor:'printing'!
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	2934
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	2935	printString
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	2936	"return a printed representation of the menu
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	2937	"
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	2938	\|string label\|
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	2939
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	2940	string := 'Menu:'.
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	2941
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	2942	self do:[:anItem\|
1117 3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	2943	label := anItem label ? ''.
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	2944	string := string ,' ', label printString.
798 74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	2945	].
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	2946	^ string
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	2947
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	2948	"Modified: / 27.2.1998 / 17:41:22 / cg"
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	2949	! !
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	2950
388 dce33f8bb806 intitial checkin ca parents: diff changeset	2951	!MenuPanel methodsFor:'private'!
dce33f8bb806 intitial checkin ca parents: diff changeset	2952
434 9898a2909ef0 add active help for items ca parents: 433 diff changeset	2953	application
9898a2909ef0 add active help for items ca parents: 433 diff changeset	2954	\|appl\|
9898a2909ef0 add active help for items ca parents: 433 diff changeset	2955
9898a2909ef0 add active help for items ca parents: 433 diff changeset	2956	superMenu notNil ifTrue:[
1117 3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	2957	^ superMenu application
434 9898a2909ef0 add active help for items ca parents: 433 diff changeset	2958	].
9898a2909ef0 add active help for items ca parents: 433 diff changeset	2959	(appl := super application) isNil ifTrue:[
1117 3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	2960	windowGroup notNil ifTrue:[
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	2961	appl := windowGroup mainGroup topViews first application
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	2962	]
434 9898a2909ef0 add active help for items ca parents: 433 diff changeset	2963	].
9898a2909ef0 add active help for items ca parents: 433 diff changeset	2964	^ appl
9898a2909ef0 add active help for items ca parents: 433 diff changeset	2965	!
9898a2909ef0 add active help for items ca parents: 433 diff changeset	2966
1572 80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	2967	detectItemForKey:aKey
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	2968	"returns the item assigned to a key, accessCharacter or starts with.
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	2969	if no item is detected nil is returned.
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	2970	"
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	2971	\|cIdx uKey lKey item\|
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	2972
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	2973	cIdx := self selectionIndex.
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	2974	uKey := aKey asUppercase.
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	2975	lKey := aKey asLowercase.
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	2976
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	2977	self keysAndValuesDo:[:anIndex :anItem\| \|char label\|
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	2978	( anIndex ~~ cIdx
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	2979	and:[anItem canSelect
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	2980	and:[(label := anItem textLabel) notNil
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	2981	and:[label size ~~ 0]]]
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	2982	) ifTrue:[
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	2983	(char := anItem accessCharacter) notNil ifTrue:[
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	2984	(char == uKey or:[char == lKey]) ifTrue:[
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	2985	^ anItem
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	2986	]
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	2987	] ifFalse:[
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	2988	char := label at:1.
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	2989
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	2990	(char == uKey or:[char == lKey]) ifTrue:[
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	2991	anIndex > cIdx ifTrue:[
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	2992	^ anItem
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	2993	].
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	2994	item isNil ifTrue:[item := anItem]
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	2995	]
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	2996	]
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	2997	]
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	2998	].
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	2999	^ item
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	3000	!
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	3001
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	3002	menuAdornmentAt:aSymbol
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3003	"returns a value derived from adornment
dce33f8bb806 intitial checkin ca parents: diff changeset	3004	"
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	3005	\|adm\|
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	3006
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	3007	adm := adornment ? DefaultAdornment.
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	3008	^ adm at:aSymbol ifAbsent:nil
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3009	!
dce33f8bb806 intitial checkin ca parents: diff changeset	3010
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	3011	menuAdornmentAt:aSymbol put:something
653 cf9b6ef11ade bug fix; no automatic rearrange of items ca parents: 650 diff changeset	3012	"sets a value for the specific menu; if the value differs to the
cf9b6ef11ade bug fix; no automatic rearrange of items ca parents: 650 diff changeset	3013	current stored value, true is returned otherwise false
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3014	"
653 cf9b6ef11ade bug fix; no automatic rearrange of items ca parents: 650 diff changeset	3015	(self menuAdornmentAt:aSymbol) == something ifTrue:[
1117 3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	3016	^ false
653 cf9b6ef11ade bug fix; no automatic rearrange of items ca parents: 650 diff changeset	3017	].
cf9b6ef11ade bug fix; no automatic rearrange of items ca parents: 650 diff changeset	3018	adornment isNil ifTrue:[
1117 3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	3019	adornment := DefaultAdornment copy
653 cf9b6ef11ade bug fix; no automatic rearrange of items ca parents: 650 diff changeset	3020	].
cf9b6ef11ade bug fix; no automatic rearrange of items ca parents: 650 diff changeset	3021	adornment at:aSymbol put:something.
cf9b6ef11ade bug fix; no automatic rearrange of items ca parents: 650 diff changeset	3022	^ true
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3023	!
dce33f8bb806 intitial checkin ca parents: diff changeset	3024
dce33f8bb806 intitial checkin ca parents: diff changeset	3025	onEachPerform:aSelector withArgList:aList
dce33f8bb806 intitial checkin ca parents: diff changeset	3026	"on each item perform selector with an argument derived from aList
dce33f8bb806 intitial checkin ca parents: diff changeset	3027	"
dce33f8bb806 intitial checkin ca parents: diff changeset	3028	aList isCollection ifTrue:[
1117 3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	3029	items size >= aList size ifTrue:[
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	3030	aList keysAndValuesDo:[:anIndex :anArg\|
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	3031	(items at:anIndex) perform:aSelector with:anArg
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	3032	]
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	3033	]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3034	] ifFalse:[
1117 3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	3035	self do:[:anItem\| anItem perform:aSelector with:aList ]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3036	]
dce33f8bb806 intitial checkin ca parents: diff changeset	3037
dce33f8bb806 intitial checkin ca parents: diff changeset	3038
dce33f8bb806 intitial checkin ca parents: diff changeset	3039	!
dce33f8bb806 intitial checkin ca parents: diff changeset	3040
dce33f8bb806 intitial checkin ca parents: diff changeset	3041	openMenusFromItems:anItemList
dce33f8bb806 intitial checkin ca parents: diff changeset	3042	"open all menus derived from sequence of items
dce33f8bb806 intitial checkin ca parents: diff changeset	3043	"
dce33f8bb806 intitial checkin ca parents: diff changeset	3044	\|item\|
dce33f8bb806 intitial checkin ca parents: diff changeset	3045
1572 80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	3046	anItemList size == 0 ifTrue:[
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	3047	^ self
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	3048	].
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	3049
1573 fd124ee2bce5 shortcutKeys; arrange layout if selection changed ca parents: 1572 diff changeset	3050	item := anItemList removeFirst.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3051
dce33f8bb806 intitial checkin ca parents: diff changeset	3052	item enabled ifFalse:[
1572 80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	3053	^ self
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3054	].
dce33f8bb806 intitial checkin ca parents: diff changeset	3055
dce33f8bb806 intitial checkin ca parents: diff changeset	3056	InitialSelectionQuerySignal answer:anItemList do:[
1572 80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	3057	self selection:item
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3058	]
dce33f8bb806 intitial checkin ca parents: diff changeset	3059	!
dce33f8bb806 intitial checkin ca parents: diff changeset	3060
1572 80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	3061	processShortcutKeyInMenuBar:aKey
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	3062	"if there is a short-key for that character, process it
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	3063	and return true. Otherwise, return false.
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	3064	"
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	3065	\|rawKey loItems item maxDepth menu\|
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	3066
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	3067	superMenu notNil ifTrue:[
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	3068	"/ must start from topMenu
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	3069	^ self topMenu processShortcutKeyInMenuBar:aKey
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	3070	].
1181 97ee0869b374 care for endless recursion with linked menus Claus Gittinger <cg@exept.de> parents: 1177 diff changeset	3071	"/ cg: must limit the recursion (see GUIDemoToolBar - pressing CTRL in the recursive-link example)
97ee0869b374 care for endless recursion with linked menus Claus Gittinger <cg@exept.de> parents: 1177 diff changeset	3072
1572 80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	3073	maxDepth := 10.
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	3074	rawKey := device keyboardMap keyAtValue:aKey ifAbsent:aKey.
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	3075	loItems := self selectItemsForShortcutKey:rawKey maxDepth:maxDepth.
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	3076
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	3077	(loItems isNil and:[aKey ~~ rawKey]) ifTrue:[
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	3078	loItems := self selectItemsForShortcutKey:aKey maxDepth:maxDepth.
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	3079	].
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	3080	loItems size == 0 ifTrue:[
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	3081	^ false
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	3082	].
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	3083
1573 fd124ee2bce5 shortcutKeys; arrange layout if selection changed ca parents: 1572 diff changeset	3084	item := loItems last.
1572 80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	3085
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	3086	item hasSubmenu ifFalse:[
1574 4b9c4eb08dcb check whether menu already is open ca parents: 1573 diff changeset	3087	self accept:item.
4b9c4eb08dcb check whether menu already is open ca parents: 1573 diff changeset	3088	^ true
4b9c4eb08dcb check whether menu already is open ca parents: 1573 diff changeset	3089	].
4b9c4eb08dcb check whether menu already is open ca parents: 1573 diff changeset	3090	menu := self.
4b9c4eb08dcb check whether menu already is open ca parents: 1573 diff changeset	3091
4b9c4eb08dcb check whether menu already is open ca parents: 1573 diff changeset	3092	[menu selection == (loItems at:1)] whileTrue:[
4b9c4eb08dcb check whether menu already is open ca parents: 1573 diff changeset	3093	loItems removeFirst.
4b9c4eb08dcb check whether menu already is open ca parents: 1573 diff changeset	3094
4b9c4eb08dcb check whether menu already is open ca parents: 1573 diff changeset	3095	loItems isEmpty ifTrue:[
4b9c4eb08dcb check whether menu already is open ca parents: 1573 diff changeset	3096	^ self
4b9c4eb08dcb check whether menu already is open ca parents: 1573 diff changeset	3097	].
4b9c4eb08dcb check whether menu already is open ca parents: 1573 diff changeset	3098	menu := selection submenu.
4b9c4eb08dcb check whether menu already is open ca parents: 1573 diff changeset	3099	].
4b9c4eb08dcb check whether menu already is open ca parents: 1573 diff changeset	3100	menu openMenusFromItems:loItems.
1572 80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	3101	^ true.
1181 97ee0869b374 care for endless recursion with linked menus Claus Gittinger <cg@exept.de> parents: 1177 diff changeset	3102	!
97ee0869b374 care for endless recursion with linked menus Claus Gittinger <cg@exept.de> parents: 1177 diff changeset	3103
97ee0869b374 care for endless recursion with linked menus Claus Gittinger <cg@exept.de> parents: 1177 diff changeset	3104	selectItemsForShortcutKey:aKey maxDepth:maxDepth
97ee0869b374 care for endless recursion with linked menus Claus Gittinger <cg@exept.de> parents: 1177 diff changeset	3105	"get sequence of items up to the item providing the key (inclusive). The
1573 fd124ee2bce5 shortcutKeys; arrange layout if selection changed ca parents: 1572 diff changeset	3106	last entry into the collection is the item providing the key, the first
fd124ee2bce5 shortcutKeys; arrange layout if selection changed ca parents: 1572 diff changeset	3107	entry is the item in the topMenu
1181 97ee0869b374 care for endless recursion with linked menus Claus Gittinger <cg@exept.de> parents: 1177 diff changeset	3108	"
1472 fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	3109	\|seq menu\|
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3110
1181 97ee0869b374 care for endless recursion with linked menus Claus Gittinger <cg@exept.de> parents: 1177 diff changeset	3111	maxDepth <= 0 ifTrue:[^ nil].
97ee0869b374 care for endless recursion with linked menus Claus Gittinger <cg@exept.de> parents: 1177 diff changeset	3112
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3113	self do:[:anItem\|
1472 fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	3114	anItem isEnabled ifTrue:[
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	3115	anItem shortcutKey = aKey ifTrue:[
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	3116	seq := OrderedCollection new.
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	3117	] ifFalse:[
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	3118	(menu := anItem submenu) notNil ifTrue:[
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	3119	seq := menu selectItemsForShortcutKey:aKey maxDepth:maxDepth-1
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	3120	]
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	3121	].
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	3122	seq notNil ifTrue:[
1573 fd124ee2bce5 shortcutKeys; arrange layout if selection changed ca parents: 1572 diff changeset	3123	seq addFirst:anItem.
1472 fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	3124	^ seq
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	3125	]
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	3126	]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3127	].
dce33f8bb806 intitial checkin ca parents: diff changeset	3128	^ nil
1181 97ee0869b374 care for endless recursion with linked menus Claus Gittinger <cg@exept.de> parents: 1177 diff changeset	3129
97ee0869b374 care for endless recursion with linked menus Claus Gittinger <cg@exept.de> parents: 1177 diff changeset	3130	"Created: / 19.1.1999 / 16:00:16 / cg"
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3131	!
dce33f8bb806 intitial checkin ca parents: diff changeset	3132
dce33f8bb806 intitial checkin ca parents: diff changeset	3133	translatePoint:aPoint to:aView
dce33f8bb806 intitial checkin ca parents: diff changeset	3134	"translate a point into a views point; in case of no view nil is returned
dce33f8bb806 intitial checkin ca parents: diff changeset	3135	"
1218 6ce43fcb2603 code cleanup Claus Gittinger <cg@exept.de> parents: 1217 diff changeset	3136	aView == self ifTrue:[^ aPoint].
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3137	aView notNil ifTrue:[
dce33f8bb806 intitial checkin ca parents: diff changeset	3138	^ device translatePoint:aPoint from:(self id) to:(aView id)
dce33f8bb806 intitial checkin ca parents: diff changeset	3139	].
1218 6ce43fcb2603 code cleanup Claus Gittinger <cg@exept.de> parents: 1217 diff changeset	3140	^ nil
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3141
dce33f8bb806 intitial checkin ca parents: diff changeset	3142	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	3143
687 23ce9888d76f bug fixes: ca parents: 681 diff changeset	3144	!MenuPanel methodsFor:'private activation'!
23ce9888d76f bug fixes: ca parents: 681 diff changeset	3145
798 74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	3146	activeMenu
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	3147	"returns the current active menu or self (the top menu)
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	3148	"
687 23ce9888d76f bug fixes: ca parents: 681 diff changeset	3149	^ lastActiveMenu ? self
23ce9888d76f bug fixes: ca parents: 681 diff changeset	3150
798 74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	3151	"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	3152	!
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	3153
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	3154	activeMenu:aMenu
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	3155	"set the current active menu
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	3156	"
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	3157	lastActiveMenu := aMenu
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	3158
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	3159	"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	3160	!
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	3161
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	3162	becomesActiveMenu
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	3163	"submenu becomes the active menu
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	3164	"
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	3165	mapTime := Time millisecondClockValue.
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	3166	self topMenu activeMenu:self.
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	3167
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	3168	"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	3169	!
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	3170
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	3171	clearLastActiveMenu
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	3172	"reset the current active menu
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	3173	"
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	3174	\|top\|
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	3175
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	3176	top := self topMenu.
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	3177
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	3178	top activeMenu == self ifTrue:[
1117 3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	3179	top activeMenu:nil
687 23ce9888d76f bug fixes: ca parents: 681 diff changeset	3180	]
23ce9888d76f bug fixes: ca parents: 681 diff changeset	3181
798 74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	3182	"Created: / 27.2.1998 / 17:41:17 / cg"
687 23ce9888d76f bug fixes: ca parents: 681 diff changeset	3183	!
23ce9888d76f bug fixes: ca parents: 681 diff changeset	3184
23ce9888d76f bug fixes: ca parents: 681 diff changeset	3185	mapTime
798 74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	3186	"returns the time when the menu becomes active
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	3187	"
687 23ce9888d76f bug fixes: ca parents: 681 diff changeset	3188	^ mapTime
798 74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	3189
74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	3190	"Modified: / 27.2.1998 / 17:41:18 / cg"
687 23ce9888d76f bug fixes: ca parents: 681 diff changeset	3191	! !
23ce9888d76f bug fixes: ca parents: 681 diff changeset	3192
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3193	!MenuPanel methodsFor:'private searching'!
dce33f8bb806 intitial checkin ca parents: diff changeset	3194
dce33f8bb806 intitial checkin ca parents: diff changeset	3195	itemAtX:x y:y
dce33f8bb806 intitial checkin ca parents: diff changeset	3196	"returns item at a point or nil
dce33f8bb806 intitial checkin ca parents: diff changeset	3197	"
dce33f8bb806 intitial checkin ca parents: diff changeset	3198	self do:[:el\| (el containsPointX:x y:y) ifTrue:[^el] ].
dce33f8bb806 intitial checkin ca parents: diff changeset	3199	^ nil
dce33f8bb806 intitial checkin ca parents: diff changeset	3200	!
dce33f8bb806 intitial checkin ca parents: diff changeset	3201
dce33f8bb806 intitial checkin ca parents: diff changeset	3202	superMenuAtX:x y:y
dce33f8bb806 intitial checkin ca parents: diff changeset	3203	"returns supermenu at a point or nil
dce33f8bb806 intitial checkin ca parents: diff changeset	3204	"
dce33f8bb806 intitial checkin ca parents: diff changeset	3205	\|menu\|
dce33f8bb806 intitial checkin ca parents: diff changeset	3206
dce33f8bb806 intitial checkin ca parents: diff changeset	3207	(self containsPointX:x y:y) ifTrue:[^ self].
dce33f8bb806 intitial checkin ca parents: diff changeset	3208	menu := self.
dce33f8bb806 intitial checkin ca parents: diff changeset	3209
dce33f8bb806 intitial checkin ca parents: diff changeset	3210	[ (menu := menu superMenu) notNil ] whileTrue:[
1117 3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	3211	(menu containsPoint:(self translatePoint:(x@y) to:menu)) ifTrue:[
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	3212	^ menu
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	3213	]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3214	].
dce33f8bb806 intitial checkin ca parents: diff changeset	3215	^ nil
dce33f8bb806 intitial checkin ca parents: diff changeset	3216	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	3217
dce33f8bb806 intitial checkin ca parents: diff changeset	3218	!MenuPanel methodsFor:'queries'!
dce33f8bb806 intitial checkin ca parents: diff changeset	3219
dce33f8bb806 intitial checkin ca parents: diff changeset	3220	canDrawItem
dce33f8bb806 intitial checkin ca parents: diff changeset	3221	"returns true if an item could be drawn otherwise false
dce33f8bb806 intitial checkin ca parents: diff changeset	3222	"
710 4453e463ff16 add new feature: ca parents: 709 diff changeset	3223	^ (mustRearrange not and:[shown])
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3224	!
dce33f8bb806 intitial checkin ca parents: diff changeset	3225
dce33f8bb806 intitial checkin ca parents: diff changeset	3226	containsPoint:aPoint
dce33f8bb806 intitial checkin ca parents: diff changeset	3227	"returns true if point is contained by the view
dce33f8bb806 intitial checkin ca parents: diff changeset	3228	"
dce33f8bb806 intitial checkin ca parents: diff changeset	3229	^ self containsPointX:(aPoint x) y:(aPoint y)
dce33f8bb806 intitial checkin ca parents: diff changeset	3230	!
dce33f8bb806 intitial checkin ca parents: diff changeset	3231
dce33f8bb806 intitial checkin ca parents: diff changeset	3232	containsPointX:x y:y
dce33f8bb806 intitial checkin ca parents: diff changeset	3233	"returns true if point is contained by the view
dce33f8bb806 intitial checkin ca parents: diff changeset	3234	"
708 245b1aa06151 checkin from browser Claus Gittinger <cg@exept.de> parents: 706 diff changeset	3235	^ (x between:0 and:width) and:[y between:0 and:height]
879 837cee20fdcb * empty log message * Claus Gittinger <cg@exept.de> parents: 878 diff changeset	3236
837cee20fdcb * empty log message * Claus Gittinger <cg@exept.de> parents: 878 diff changeset	3237	"/ \|ext\|
837cee20fdcb * empty log message * Claus Gittinger <cg@exept.de> parents: 878 diff changeset	3238	"/
708 245b1aa06151 checkin from browser Claus Gittinger <cg@exept.de> parents: 706 diff changeset	3239	"/ (x >= 0 and:[y >= 0]) ifTrue:[
245b1aa06151 checkin from browser Claus Gittinger <cg@exept.de> parents: 706 diff changeset	3240	"/ ext := self computeExtent.
245b1aa06151 checkin from browser Claus Gittinger <cg@exept.de> parents: 706 diff changeset	3241	"/ ^ (x < ext x and:[y < ext y])
245b1aa06151 checkin from browser Claus Gittinger <cg@exept.de> parents: 706 diff changeset	3242	"/ ].
245b1aa06151 checkin from browser Claus Gittinger <cg@exept.de> parents: 706 diff changeset	3243	"/ ^ false
245b1aa06151 checkin from browser Claus Gittinger <cg@exept.de> parents: 706 diff changeset	3244
245b1aa06151 checkin from browser Claus Gittinger <cg@exept.de> parents: 706 diff changeset	3245	"Modified: / 29.1.1998 / 16:46:10 / cg"
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3246	!
dce33f8bb806 intitial checkin ca parents: diff changeset	3247
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	3248	hasGroupDividerAt:anIndex
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3249	"returns true if a divider is defined at an index
dce33f8bb806 intitial checkin ca parents: diff changeset	3250	"
dce33f8bb806 intitial checkin ca parents: diff changeset	3251	\|i\|
dce33f8bb806 intitial checkin ca parents: diff changeset	3252
dce33f8bb806 intitial checkin ca parents: diff changeset	3253	groupSizes size ~~ 0 ifTrue:[
1117 3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	3254	i := 0.
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	3255
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	3256	groupSizes do:[:t\|
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	3257	(i := i + t) == anIndex ifTrue:[
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	3258	^ true
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	3259	]
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	3260	]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3261	].
dce33f8bb806 intitial checkin ca parents: diff changeset	3262	^ false
dce33f8bb806 intitial checkin ca parents: diff changeset	3263
dce33f8bb806 intitial checkin ca parents: diff changeset	3264	!
dce33f8bb806 intitial checkin ca parents: diff changeset	3265
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	3266	hasGroupDividers
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	3267	"returns true if any group divider exists
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	3268	"
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	3269	^ (items size ~~ 0 and:[groupSizes size ~~ 0])
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	3270	!
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	3271
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3272	isEnabled
dce33f8bb806 intitial checkin ca parents: diff changeset	3273	"returns enabled state of menu and items
dce33f8bb806 intitial checkin ca parents: diff changeset	3274	"
dce33f8bb806 intitial checkin ca parents: diff changeset	3275	^ self enabled
dce33f8bb806 intitial checkin ca parents: diff changeset	3276	!
dce33f8bb806 intitial checkin ca parents: diff changeset	3277
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	3278	isFitPanel
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	3279	"returns true if the panel is the first in the menu hierarchy in must
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	3280	be fit to the extent of its superView
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	3281	"
616 a6157b083830 support of different styles ca parents: 608 diff changeset	3282	^ self isPopUpView ifTrue:[false] ifFalse:[fitFirstPanel]
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	3283	!
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	3284
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3285	isPopUpView
dce33f8bb806 intitial checkin ca parents: diff changeset	3286	"return true if view is a popup view; without decoration
dce33f8bb806 intitial checkin ca parents: diff changeset	3287	and popUp to top immediately
dce33f8bb806 intitial checkin ca parents: diff changeset	3288	"
dce33f8bb806 intitial checkin ca parents: diff changeset	3289	^ superView isNil
dce33f8bb806 intitial checkin ca parents: diff changeset	3290
dce33f8bb806 intitial checkin ca parents: diff changeset	3291
dce33f8bb806 intitial checkin ca parents: diff changeset	3292	!
dce33f8bb806 intitial checkin ca parents: diff changeset	3293
dce33f8bb806 intitial checkin ca parents: diff changeset	3294	isVerticalLayout
dce33f8bb806 intitial checkin ca parents: diff changeset	3295	"returns true if vertical layout otherwise false( horizontal layout )
dce33f8bb806 intitial checkin ca parents: diff changeset	3296	"
dce33f8bb806 intitial checkin ca parents: diff changeset	3297	^ self verticalLayout
dce33f8bb806 intitial checkin ca parents: diff changeset	3298
dce33f8bb806 intitial checkin ca parents: diff changeset	3299
416 c05874084d4c implement ca parents: 407 diff changeset	3300	!
c05874084d4c implement ca parents: 407 diff changeset	3301
c05874084d4c implement ca parents: 407 diff changeset	3302	type
428 5cf5fb7ecf39 type ca parents: 427 diff changeset	3303	^ nil.
416 c05874084d4c implement ca parents: 407 diff changeset	3304
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3305	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	3306
dce33f8bb806 intitial checkin ca parents: diff changeset	3307	!MenuPanel methodsFor:'selection'!
dce33f8bb806 intitial checkin ca parents: diff changeset	3308
dce33f8bb806 intitial checkin ca parents: diff changeset	3309	hasSelection
dce33f8bb806 intitial checkin ca parents: diff changeset	3310	"returns true if a selection exists
dce33f8bb806 intitial checkin ca parents: diff changeset	3311	"
dce33f8bb806 intitial checkin ca parents: diff changeset	3312	^ self selection notNil
dce33f8bb806 intitial checkin ca parents: diff changeset	3313	!
dce33f8bb806 intitial checkin ca parents: diff changeset	3314
dce33f8bb806 intitial checkin ca parents: diff changeset	3315	isValidSelection:something
dce33f8bb806 intitial checkin ca parents: diff changeset	3316	"returns true if something could be selected
dce33f8bb806 intitial checkin ca parents: diff changeset	3317	"
dce33f8bb806 intitial checkin ca parents: diff changeset	3318	\|item\|
dce33f8bb806 intitial checkin ca parents: diff changeset	3319
498 b4c341497621 bug fixes: ca parents: 475 diff changeset	3320	enabled ifTrue:[
1117 3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	3321	(item := self itemAt:something) notNil ifTrue:[
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	3322	^ item canSelect
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	3323	]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3324	].
dce33f8bb806 intitial checkin ca parents: diff changeset	3325	^ false
dce33f8bb806 intitial checkin ca parents: diff changeset	3326	!
dce33f8bb806 intitial checkin ca parents: diff changeset	3327
dce33f8bb806 intitial checkin ca parents: diff changeset	3328	selection
dce33f8bb806 intitial checkin ca parents: diff changeset	3329	"returns current selected item or nil
dce33f8bb806 intitial checkin ca parents: diff changeset	3330	"
dce33f8bb806 intitial checkin ca parents: diff changeset	3331	^ selection
dce33f8bb806 intitial checkin ca parents: diff changeset	3332
dce33f8bb806 intitial checkin ca parents: diff changeset	3333
dce33f8bb806 intitial checkin ca parents: diff changeset	3334	!
dce33f8bb806 intitial checkin ca parents: diff changeset	3335
dce33f8bb806 intitial checkin ca parents: diff changeset	3336	selection:anItemOrNil
dce33f8bb806 intitial checkin ca parents: diff changeset	3337	"change selection to an item
dce33f8bb806 intitial checkin ca parents: diff changeset	3338	"
434 9898a2909ef0 add active help for items ca parents: 433 diff changeset	3339	\|item newSel hlp\|
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3340
1572 80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	3341	(newSel := anItemOrNil) isNumber ifTrue:[
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	3342	newSel := self itemAt:anItemOrNil
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	3343	].
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	3344	(newSel notNil and:[newSel canSelect]) ifFalse:[
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	3345	newSel := nil
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3346	].
dce33f8bb806 intitial checkin ca parents: diff changeset	3347
dce33f8bb806 intitial checkin ca parents: diff changeset	3348	selection == newSel ifTrue:[^ self].
dce33f8bb806 intitial checkin ca parents: diff changeset	3349
dce33f8bb806 intitial checkin ca parents: diff changeset	3350	(item := selection) notNil ifTrue:[
1572 80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	3351	selection := nil.
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	3352	item selected:false.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3353	].
717 540e638fdebb Avoid pointer and keyboard grabbing if not necessary Stefan Vogel <sv@exept.de> parents: 712 diff changeset	3354	newSel notNil ifTrue:[
1572 80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	3355	selection := newSel.
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	3356
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	3357	ActiveHelp isActive ifTrue:[
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	3358	hlp := ActiveHelp currentHelpListener.
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	3359	hlp initiateHelpFor:self atX:nil y:nil now:true.
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	3360	].
1573 fd124ee2bce5 shortcutKeys; arrange layout if selection changed ca parents: 1572 diff changeset	3361	realized ifTrue:[self rearrangeItems].
1572 80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	3362	selection selected:true.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3363	].
717 540e638fdebb Avoid pointer and keyboard grabbing if not necessary Stefan Vogel <sv@exept.de> parents: 712 diff changeset	3364
540e638fdebb Avoid pointer and keyboard grabbing if not necessary Stefan Vogel <sv@exept.de> parents: 712 diff changeset	3365	"Modified: / 2.2.1998 / 10:13:46 / stefan"
1039 faa24ee79e12 fixed invalid help text display. Claus Gittinger <cg@exept.de> parents: 1033 diff changeset	3366	"Modified: / 31.7.1998 / 03:14:18 / cg"
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3367	!
dce33f8bb806 intitial checkin ca parents: diff changeset	3368
dce33f8bb806 intitial checkin ca parents: diff changeset	3369	selectionIndex
dce33f8bb806 intitial checkin ca parents: diff changeset	3370	"returns index of current selection or 0
dce33f8bb806 intitial checkin ca parents: diff changeset	3371	"
dce33f8bb806 intitial checkin ca parents: diff changeset	3372	\|item\|
dce33f8bb806 intitial checkin ca parents: diff changeset	3373
dce33f8bb806 intitial checkin ca parents: diff changeset	3374	(item := self selection) notNil ifTrue:[
1117 3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	3375	^ self findFirst:[:el\| el == item ]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3376	].
dce33f8bb806 intitial checkin ca parents: diff changeset	3377	^ 0
dce33f8bb806 intitial checkin ca parents: diff changeset	3378
dce33f8bb806 intitial checkin ca parents: diff changeset	3379	!
dce33f8bb806 intitial checkin ca parents: diff changeset	3380
dce33f8bb806 intitial checkin ca parents: diff changeset	3381	selectionIndex:anIndex
dce33f8bb806 intitial checkin ca parents: diff changeset	3382	"set selection at an index
dce33f8bb806 intitial checkin ca parents: diff changeset	3383	"
dce33f8bb806 intitial checkin ca parents: diff changeset	3384	self selection:(self itemAt:anIndex)
dce33f8bb806 intitial checkin ca parents: diff changeset	3385	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	3386
dce33f8bb806 intitial checkin ca parents: diff changeset	3387	!MenuPanel::Item class methodsFor:'accessing'!
dce33f8bb806 intitial checkin ca parents: diff changeset	3388
689 aa13913add84 clear lastActiveMenu when closed ca parents: 687 diff changeset	3389	horizontalInset
aa13913add84 clear lastActiveMenu when closed ca parents: 687 diff changeset	3390	^ HorizontalInset
aa13913add84 clear lastActiveMenu when closed ca parents: 687 diff changeset	3391	!
aa13913add84 clear lastActiveMenu when closed ca parents: 687 diff changeset	3392
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3393	labelRightOffset
dce33f8bb806 intitial checkin ca parents: diff changeset	3394	^ LabelRightOffset
dce33f8bb806 intitial checkin ca parents: diff changeset	3395	!
dce33f8bb806 intitial checkin ca parents: diff changeset	3396
dce33f8bb806 intitial checkin ca parents: diff changeset	3397	shortcutKeyOffset
dce33f8bb806 intitial checkin ca parents: diff changeset	3398	^ ShortcutKeyOffset
689 aa13913add84 clear lastActiveMenu when closed ca parents: 687 diff changeset	3399	!
aa13913add84 clear lastActiveMenu when closed ca parents: 687 diff changeset	3400
aa13913add84 clear lastActiveMenu when closed ca parents: 687 diff changeset	3401	verticalInset
aa13913add84 clear lastActiveMenu when closed ca parents: 687 diff changeset	3402	^ VerticalInset
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3403	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	3404
616 a6157b083830 support of different styles ca parents: 608 diff changeset	3405	!MenuPanel::Item class methodsFor:'defaults'!
a6157b083830 support of different styles ca parents: 608 diff changeset	3406
a6157b083830 support of different styles ca parents: 608 diff changeset	3407	separatorSize:aType
a6157b083830 support of different styles ca parents: 608 diff changeset	3408	"returns size of a separator
a6157b083830 support of different styles ca parents: 608 diff changeset	3409	"
a6157b083830 support of different styles ca parents: 608 diff changeset	3410	aType == #doubleLine ifTrue:[^ 10 ].
a6157b083830 support of different styles ca parents: 608 diff changeset	3411	aType == #singleLine ifTrue:[^ 10 ].
706 d716edbdbe47 show separators bug cleaned tz parents: 689 diff changeset	3412	^ 10
616 a6157b083830 support of different styles ca parents: 608 diff changeset	3413	!
a6157b083830 support of different styles ca parents: 608 diff changeset	3414
a6157b083830 support of different styles ca parents: 608 diff changeset	3415	updateStyleCache
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3416	"setup defaults
650 29dcdf6a5994 button and label translation support added tz parents: 638 diff changeset	3417	self updateStyleCache
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3418	"
681 62c7cdaca188 extra default inset values for button behaviour added tz parents: 680 diff changeset	3419	HorizontalInset := 4.
62c7cdaca188 extra default inset values for button behaviour added tz parents: 680 diff changeset	3420	VerticalInset := 3.
727 3ba54333342a button style from style sheet tz parents: 723 diff changeset	3421
3ba54333342a button style from style sheet tz parents: 723 diff changeset	3422	HorizontalButtonInset := 3.
3ba54333342a button style from style sheet tz parents: 723 diff changeset	3423	VerticalButtonInset := 3.
3ba54333342a button style from style sheet tz parents: 723 diff changeset	3424
681 62c7cdaca188 extra default inset values for button behaviour added tz parents: 680 diff changeset	3425	LabelRightOffset := 15.
62c7cdaca188 extra default inset values for button behaviour added tz parents: 680 diff changeset	3426	ShortcutKeyOffset := 5.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3427
1110 eac7291cc4bb draw real checks in check icons tz parents: 1108 diff changeset	3428	IndicatorOn := self checkedImage.
eac7291cc4bb draw real checks in check icons tz parents: 1108 diff changeset	3429	IndicatorOff := self uncheckedImage.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3430	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	3431
1078 3adf74275ebd support choice for buttons ca parents: 1076 diff changeset	3432	!MenuPanel::Item class methodsFor:'image specs'!
3adf74275ebd support choice for buttons ca parents: 1076 diff changeset	3433
3adf74275ebd support choice for buttons ca parents: 1076 diff changeset	3434	checkOffIcon
3adf74275ebd support choice for buttons ca parents: 1076 diff changeset	3435	"This resource specification was automatically generated
3adf74275ebd support choice for buttons ca parents: 1076 diff changeset	3436	by the ImageEditor of ST/X."
3adf74275ebd support choice for buttons ca parents: 1076 diff changeset	3437
3adf74275ebd support choice for buttons ca parents: 1076 diff changeset	3438	"Do not manually edit this!! If it is corrupted,
3adf74275ebd support choice for buttons ca parents: 1076 diff changeset	3439	the ImageEditor may not be able to read the specification."
3adf74275ebd support choice for buttons ca parents: 1076 diff changeset	3440
3adf74275ebd support choice for buttons ca parents: 1076 diff changeset	3441	"
3adf74275ebd support choice for buttons ca parents: 1076 diff changeset	3442	self checkOffIcon inspect
3adf74275ebd support choice for buttons ca parents: 1076 diff changeset	3443	ImageEditor openOnClass:self andSelector:#checkOffIcon
3adf74275ebd support choice for buttons ca parents: 1076 diff changeset	3444	"
3adf74275ebd support choice for buttons ca parents: 1076 diff changeset	3445
3adf74275ebd support choice for buttons ca parents: 1076 diff changeset	3446	<resource: #image>
3adf74275ebd support choice for buttons ca parents: 1076 diff changeset	3447
3adf74275ebd support choice for buttons ca parents: 1076 diff changeset	3448	^Icon
1117 3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	3449	constantNamed:#'MenuPanel::Item checkOffIcon'
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	3450	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]!
1078 3adf74275ebd support choice for buttons ca parents: 1076 diff changeset	3451
3adf74275ebd support choice for buttons ca parents: 1076 diff changeset	3452	checkOnIcon
3adf74275ebd support choice for buttons ca parents: 1076 diff changeset	3453	"This resource specification was automatically generated
3adf74275ebd support choice for buttons ca parents: 1076 diff changeset	3454	by the ImageEditor of ST/X."
3adf74275ebd support choice for buttons ca parents: 1076 diff changeset	3455
3adf74275ebd support choice for buttons ca parents: 1076 diff changeset	3456	"Do not manually edit this!! If it is corrupted,
3adf74275ebd support choice for buttons ca parents: 1076 diff changeset	3457	the ImageEditor may not be able to read the specification."
3adf74275ebd support choice for buttons ca parents: 1076 diff changeset	3458
3adf74275ebd support choice for buttons ca parents: 1076 diff changeset	3459	"
3adf74275ebd support choice for buttons ca parents: 1076 diff changeset	3460	self checkOnIcon inspect
3adf74275ebd support choice for buttons ca parents: 1076 diff changeset	3461	ImageEditor openOnClass:self andSelector:#checkOnIcon
3adf74275ebd support choice for buttons ca parents: 1076 diff changeset	3462	"
3adf74275ebd support choice for buttons ca parents: 1076 diff changeset	3463
3adf74275ebd support choice for buttons ca parents: 1076 diff changeset	3464	<resource: #image>
3adf74275ebd support choice for buttons ca parents: 1076 diff changeset	3465
3adf74275ebd support choice for buttons ca parents: 1076 diff changeset	3466	^Icon
1117 3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	3467	constantNamed:#'MenuPanel::Item checkOnIcon'
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	3468	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]!
1110 eac7291cc4bb draw real checks in check icons tz parents: 1108 diff changeset	3469
eac7291cc4bb draw real checks in check icons tz parents: 1108 diff changeset	3470	checkedImage
eac7291cc4bb draw real checks in check icons tz parents: 1108 diff changeset	3471	"This resource specification was automatically generated
eac7291cc4bb draw real checks in check icons tz parents: 1108 diff changeset	3472	by the ImageEditor of ST/X."
eac7291cc4bb draw real checks in check icons tz parents: 1108 diff changeset	3473
eac7291cc4bb draw real checks in check icons tz parents: 1108 diff changeset	3474	"Do not manually edit this!! If it is corrupted,
eac7291cc4bb draw real checks in check icons tz parents: 1108 diff changeset	3475	the ImageEditor may not be able to read the specification."
eac7291cc4bb draw real checks in check icons tz parents: 1108 diff changeset	3476
eac7291cc4bb draw real checks in check icons tz parents: 1108 diff changeset	3477	"
eac7291cc4bb draw real checks in check icons tz parents: 1108 diff changeset	3478	self checkedImage inspect
eac7291cc4bb draw real checks in check icons tz parents: 1108 diff changeset	3479	ImageEditor openOnClass:self andSelector:#checkedImage
eac7291cc4bb draw real checks in check icons tz parents: 1108 diff changeset	3480	"
eac7291cc4bb draw real checks in check icons tz parents: 1108 diff changeset	3481
eac7291cc4bb draw real checks in check icons tz parents: 1108 diff changeset	3482	<resource: #image>
eac7291cc4bb draw real checks in check icons tz parents: 1108 diff changeset	3483
eac7291cc4bb draw real checks in check icons tz parents: 1108 diff changeset	3484	^Icon
1368 eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	3485	constantNamed:#'MenuPanel::Item checkedImage'
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	3486	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]
1124 4a7fec62a572 smaller checkbox. Claus Gittinger <cg@exept.de> parents: 1117 diff changeset	3487
4a7fec62a572 smaller checkbox. Claus Gittinger <cg@exept.de> parents: 1117 diff changeset	3488	"Modified: / 6.9.1998 / 22:29:58 / cg"
4a7fec62a572 smaller checkbox. Claus Gittinger <cg@exept.de> parents: 1117 diff changeset	3489	!
1110 eac7291cc4bb draw real checks in check icons tz parents: 1108 diff changeset	3490
eac7291cc4bb draw real checks in check icons tz parents: 1108 diff changeset	3491	uncheckedImage
eac7291cc4bb draw real checks in check icons tz parents: 1108 diff changeset	3492	"This resource specification was automatically generated
eac7291cc4bb draw real checks in check icons tz parents: 1108 diff changeset	3493	by the ImageEditor of ST/X."
eac7291cc4bb draw real checks in check icons tz parents: 1108 diff changeset	3494
eac7291cc4bb draw real checks in check icons tz parents: 1108 diff changeset	3495	"Do not manually edit this!! If it is corrupted,
eac7291cc4bb draw real checks in check icons tz parents: 1108 diff changeset	3496	the ImageEditor may not be able to read the specification."
eac7291cc4bb draw real checks in check icons tz parents: 1108 diff changeset	3497
eac7291cc4bb draw real checks in check icons tz parents: 1108 diff changeset	3498	"
eac7291cc4bb draw real checks in check icons tz parents: 1108 diff changeset	3499	self uncheckedImage inspect
eac7291cc4bb draw real checks in check icons tz parents: 1108 diff changeset	3500	ImageEditor openOnClass:self andSelector:#uncheckedImage
eac7291cc4bb draw real checks in check icons tz parents: 1108 diff changeset	3501	"
eac7291cc4bb draw real checks in check icons tz parents: 1108 diff changeset	3502
eac7291cc4bb draw real checks in check icons tz parents: 1108 diff changeset	3503	<resource: #image>
eac7291cc4bb draw real checks in check icons tz parents: 1108 diff changeset	3504
eac7291cc4bb draw real checks in check icons tz parents: 1108 diff changeset	3505	^Icon
1368 eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	3506	constantNamed:#'MenuPanel::Item uncheckedImage'
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	3507	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]
1124 4a7fec62a572 smaller checkbox. Claus Gittinger <cg@exept.de> parents: 1117 diff changeset	3508
4a7fec62a572 smaller checkbox. Claus Gittinger <cg@exept.de> parents: 1117 diff changeset	3509	"Modified: / 6.9.1998 / 22:24:24 / cg"
4a7fec62a572 smaller checkbox. Claus Gittinger <cg@exept.de> parents: 1117 diff changeset	3510	! !
1078 3adf74275ebd support choice for buttons ca parents: 1076 diff changeset	3511
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3512	!MenuPanel::Item class methodsFor:'instance creation'!
dce33f8bb806 intitial checkin ca parents: diff changeset	3513
dce33f8bb806 intitial checkin ca parents: diff changeset	3514	in:aSuperMenu
dce33f8bb806 intitial checkin ca parents: diff changeset	3515	^ self in:aSuperMenu label:nil
dce33f8bb806 intitial checkin ca parents: diff changeset	3516	!
dce33f8bb806 intitial checkin ca parents: diff changeset	3517
dce33f8bb806 intitial checkin ca parents: diff changeset	3518	in:aSuperMenu label:aLabel
dce33f8bb806 intitial checkin ca parents: diff changeset	3519	\|item\|
dce33f8bb806 intitial checkin ca parents: diff changeset	3520
dce33f8bb806 intitial checkin ca parents: diff changeset	3521	item := self new in:aSuperMenu.
dce33f8bb806 intitial checkin ca parents: diff changeset	3522	item label:aLabel.
dce33f8bb806 intitial checkin ca parents: diff changeset	3523	^ item
dce33f8bb806 intitial checkin ca parents: diff changeset	3524	!
dce33f8bb806 intitial checkin ca parents: diff changeset	3525
dce33f8bb806 intitial checkin ca parents: diff changeset	3526	in:aSuperMenu menuItem:aMenuItem
dce33f8bb806 intitial checkin ca parents: diff changeset	3527	\|item\|
dce33f8bb806 intitial checkin ca parents: diff changeset	3528
dce33f8bb806 intitial checkin ca parents: diff changeset	3529	item := self in:aSuperMenu.
dce33f8bb806 intitial checkin ca parents: diff changeset	3530	item menuItem:aMenuItem.
dce33f8bb806 intitial checkin ca parents: diff changeset	3531	^ item.
dce33f8bb806 intitial checkin ca parents: diff changeset	3532	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	3533
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	3534	!MenuPanel::Item methodsFor:'accept'!
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	3535
420 b6f9fff472ef fixes ca parents: 417 diff changeset	3536	canAccept
b6f9fff472ef fixes ca parents: 417 diff changeset	3537	"returns true if item is acceptable
b6f9fff472ef fixes ca parents: 417 diff changeset	3538	"
b6f9fff472ef fixes ca parents: 417 diff changeset	3539	^ (self enabled and:[self hasSubmenu not])
524 d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	3540	!
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	3541
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	3542	toggleIndication
1074 25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	3543	"toggle indication or choice
524 d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	3544	"
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	3545	\|arg\|
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	3546
723 4f05cbdcaede once again some corrections for button press indication tz parents: 720 diff changeset	3547	self hasIndication ifTrue:[
1117 3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	3548	arg := self indicationValue not.
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	3549	self indicationValue:arg.
1074 25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	3550	] ifFalse:[
1117 3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	3551	self hasChoice ifTrue:[
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	3552	arg := self choiceValue.
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	3553	self choice value:arg.
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	3554	arg := true.
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	3555	]
524 d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	3556	].
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	3557	^ arg
1074 25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	3558
25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	3559	"Modified: / 14.8.1998 / 16:13:37 / cg"
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	3560	! !
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	3561
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3562	!MenuPanel::Item methodsFor:'accessing'!
dce33f8bb806 intitial checkin ca parents: diff changeset	3563
dce33f8bb806 intitial checkin ca parents: diff changeset	3564	accessCharacter
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	3565	"returns my accessCharacter or nil
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3566	"
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	3567	accessCharacterPosition isNil ifTrue:[
1117 3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	3568	^ nil
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3569	].
1078 3adf74275ebd support choice for buttons ca parents: 1076 diff changeset	3570	^ (rawLabel string) at:accessCharacterPosition ifAbsent:nil
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3571	!
dce33f8bb806 intitial checkin ca parents: diff changeset	3572
dce33f8bb806 intitial checkin ca parents: diff changeset	3573	accessCharacterPosition
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	3574	"get the access character position or nil
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3575	"
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	3576	^ accessCharacterPosition
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3577	!
dce33f8bb806 intitial checkin ca parents: diff changeset	3578
dce33f8bb806 intitial checkin ca parents: diff changeset	3579	accessCharacterPosition:anIndex
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	3580	"set the access character position or nil
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3581	"
1078 3adf74275ebd support choice for buttons ca parents: 1076 diff changeset	3582	accessCharacterPosition ~~ anIndex ifTrue:[
1117 3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	3583	accessCharacterPosition := anIndex.
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	3584	self updateRawLabel.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3585	].
dce33f8bb806 intitial checkin ca parents: diff changeset	3586	!
dce33f8bb806 intitial checkin ca parents: diff changeset	3587
434 9898a2909ef0 add active help for items ca parents: 433 diff changeset	3588	activeHelpKey
9898a2909ef0 add active help for items ca parents: 433 diff changeset	3589	^ activeHelpKey
9898a2909ef0 add active help for items ca parents: 433 diff changeset	3590	!
9898a2909ef0 add active help for items ca parents: 433 diff changeset	3591
9898a2909ef0 add active help for items ca parents: 433 diff changeset	3592	activeHelpKey:aHelpKey
9898a2909ef0 add active help for items ca parents: 433 diff changeset	3593	activeHelpKey := aHelpKey
9898a2909ef0 add active help for items ca parents: 433 diff changeset	3594	!
9898a2909ef0 add active help for items ca parents: 433 diff changeset	3595
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3596	argument
dce33f8bb806 intitial checkin ca parents: diff changeset	3597	"gets the argument
dce33f8bb806 intitial checkin ca parents: diff changeset	3598	"
dce33f8bb806 intitial checkin ca parents: diff changeset	3599	adornment isNil ifTrue:[^ nil ].
dce33f8bb806 intitial checkin ca parents: diff changeset	3600	^ adornment argument
dce33f8bb806 intitial checkin ca parents: diff changeset	3601	!
dce33f8bb806 intitial checkin ca parents: diff changeset	3602
dce33f8bb806 intitial checkin ca parents: diff changeset	3603	argument:anArgument
dce33f8bb806 intitial checkin ca parents: diff changeset	3604	"sets the argument
dce33f8bb806 intitial checkin ca parents: diff changeset	3605	"
dce33f8bb806 intitial checkin ca parents: diff changeset	3606	self argument ~~ anArgument ifTrue:[
1117 3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	3607	self adornment argument:anArgument.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3608	]
dce33f8bb806 intitial checkin ca parents: diff changeset	3609	!
dce33f8bb806 intitial checkin ca parents: diff changeset	3610
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	3611	compareAccessCharacterWith:aKey
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	3612	"returns true if key is my access character
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	3613	"
1048 a8755e51706d bug fixes: ca parents: 1046 diff changeset	3614	^ self accessCharacter == aKey
a8755e51706d bug fixes: ca parents: 1046 diff changeset	3615
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	3616	!
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	3617
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3618	label
dce33f8bb806 intitial checkin ca parents: diff changeset	3619	"returns the label
dce33f8bb806 intitial checkin ca parents: diff changeset	3620	"
dce33f8bb806 intitial checkin ca parents: diff changeset	3621	^ label
dce33f8bb806 intitial checkin ca parents: diff changeset	3622	!
dce33f8bb806 intitial checkin ca parents: diff changeset	3623
dce33f8bb806 intitial checkin ca parents: diff changeset	3624	label:aLabel
399 d083b1bce58d ST-80 compatibility ca parents: 396 diff changeset	3625	"set a new label; if the label changed, a redraw is performed;
d083b1bce58d ST-80 compatibility ca parents: 396 diff changeset	3626	handle characters $& (ST-80 compatibility)
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3627	"
475 b604babd1f4a * empty log message * Claus Gittinger <cg@exept.de> parents: 467 diff changeset	3628	\|i rest s\|
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	3629
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	3630	accessCharacterPosition := nil.
399 d083b1bce58d ST-80 compatibility ca parents: 396 diff changeset	3631	label := aLabel value.
d083b1bce58d ST-80 compatibility ca parents: 396 diff changeset	3632
d083b1bce58d ST-80 compatibility ca parents: 396 diff changeset	3633	(label isString and:[(s := label size) > 1]) ifTrue:[
1117 3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	3634	i := 1.
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	3635
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	3636	[((i := label indexOf:$& startingAt:i) ~~ 0
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	3637	and:[i < s])] whileTrue:[
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	3638	rest := label copyFrom:(i+1).
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	3639
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	3640	i == 1 ifTrue:[label := rest]
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	3641	ifFalse:[label := (label copyFrom:1 to:(i-1)), rest].
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	3642
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	3643	(label at:i) == $& ifTrue:[i := i + 1]
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	3644	ifFalse:[accessCharacterPosition := i].
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	3645	s := s - 1.
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	3646	]
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	3647	].
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3648
399 d083b1bce58d ST-80 compatibility ca parents: 396 diff changeset	3649	self updateRawLabel
1033 9badc22e3d03 oops &'s where eliminated twice - leading to double &'s Claus Gittinger <cg@exept.de> parents: 1032 diff changeset	3650
9badc22e3d03 oops &'s where eliminated twice - leading to double &'s Claus Gittinger <cg@exept.de> parents: 1032 diff changeset	3651	"Modified: / 31.7.1998 / 00:52:26 / cg"
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3652	!
dce33f8bb806 intitial checkin ca parents: diff changeset	3653
dce33f8bb806 intitial checkin ca parents: diff changeset	3654	menuPanel
dce33f8bb806 intitial checkin ca parents: diff changeset	3655	"returns my menuPanel
dce33f8bb806 intitial checkin ca parents: diff changeset	3656	"
399 d083b1bce58d ST-80 compatibility ca parents: 396 diff changeset	3657	^ menuPanel
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3658	!
dce33f8bb806 intitial checkin ca parents: diff changeset	3659
dce33f8bb806 intitial checkin ca parents: diff changeset	3660	nameKey
dce33f8bb806 intitial checkin ca parents: diff changeset	3661	"gets the nameKey
dce33f8bb806 intitial checkin ca parents: diff changeset	3662	"
dce33f8bb806 intitial checkin ca parents: diff changeset	3663	^ nameKey
dce33f8bb806 intitial checkin ca parents: diff changeset	3664	!
dce33f8bb806 intitial checkin ca parents: diff changeset	3665
dce33f8bb806 intitial checkin ca parents: diff changeset	3666	nameKey:aNameKey
dce33f8bb806 intitial checkin ca parents: diff changeset	3667	"sets the nameKey
dce33f8bb806 intitial checkin ca parents: diff changeset	3668	"
dce33f8bb806 intitial checkin ca parents: diff changeset	3669	nameKey := aNameKey.
dce33f8bb806 intitial checkin ca parents: diff changeset	3670	!
dce33f8bb806 intitial checkin ca parents: diff changeset	3671
dce33f8bb806 intitial checkin ca parents: diff changeset	3672	rawLabel
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	3673	"returns my printable Label
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3674	"
dce33f8bb806 intitial checkin ca parents: diff changeset	3675	^ rawLabel
dce33f8bb806 intitial checkin ca parents: diff changeset	3676	!
dce33f8bb806 intitial checkin ca parents: diff changeset	3677
dce33f8bb806 intitial checkin ca parents: diff changeset	3678	shortcutKey
dce33f8bb806 intitial checkin ca parents: diff changeset	3679	"get the key to press to select the submenu from the keyboard or if
dce33f8bb806 intitial checkin ca parents: diff changeset	3680	no submenu exists evaluate the action assigned to the item (accept).
dce33f8bb806 intitial checkin ca parents: diff changeset	3681	"
dce33f8bb806 intitial checkin ca parents: diff changeset	3682	adornment isNil ifTrue:[^ nil ].
dce33f8bb806 intitial checkin ca parents: diff changeset	3683	^ adornment shortcutKey
dce33f8bb806 intitial checkin ca parents: diff changeset	3684	!
dce33f8bb806 intitial checkin ca parents: diff changeset	3685
dce33f8bb806 intitial checkin ca parents: diff changeset	3686	shortcutKey:aKey
dce33f8bb806 intitial checkin ca parents: diff changeset	3687	"set the key to press to select the submenu from the keyboard or if
dce33f8bb806 intitial checkin ca parents: diff changeset	3688	no submenu exists evaluate the action assigned to the item (accept).
dce33f8bb806 intitial checkin ca parents: diff changeset	3689	"
dce33f8bb806 intitial checkin ca parents: diff changeset	3690	self shortcutKey ~~ aKey ifTrue:[
1117 3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	3691	self adornment shortcutKey:aKey.
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	3692	self redraw.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3693	].
dce33f8bb806 intitial checkin ca parents: diff changeset	3694	!
dce33f8bb806 intitial checkin ca parents: diff changeset	3695
710 4453e463ff16 add new feature: ca parents: 709 diff changeset	3696	startGroup
4453e463ff16 add new feature: ca parents: 709 diff changeset	3697	"start group #left #right #center ... or nil
4453e463ff16 add new feature: ca parents: 709 diff changeset	3698	at the moment only #right is implemented
4453e463ff16 add new feature: ca parents: 709 diff changeset	3699	"
4453e463ff16 add new feature: ca parents: 709 diff changeset	3700	^ startGroup
4453e463ff16 add new feature: ca parents: 709 diff changeset	3701	!
4453e463ff16 add new feature: ca parents: 709 diff changeset	3702
4453e463ff16 add new feature: ca parents: 709 diff changeset	3703	startGroup:aSymbol
4453e463ff16 add new feature: ca parents: 709 diff changeset	3704	"start group #left #right #center ...
4453e463ff16 add new feature: ca parents: 709 diff changeset	3705	at the moment only #right is implemented
4453e463ff16 add new feature: ca parents: 709 diff changeset	3706	"
4453e463ff16 add new feature: ca parents: 709 diff changeset	3707	(startGroup isNil or:[startGroup == #right]) ifTrue:[
1117 3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	3708	startGroup := aSymbol
710 4453e463ff16 add new feature: ca parents: 709 diff changeset	3709	] ifFalse:[
1117 3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	3710	self warn:('not supported group: ', aSymbol printString ).
710 4453e463ff16 add new feature: ca parents: 709 diff changeset	3711	]
4453e463ff16 add new feature: ca parents: 709 diff changeset	3712
4453e463ff16 add new feature: ca parents: 709 diff changeset	3713	!
4453e463ff16 add new feature: ca parents: 709 diff changeset	3714
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3715	submenu
dce33f8bb806 intitial checkin ca parents: diff changeset	3716	"returns my submenu or nil
dce33f8bb806 intitial checkin ca parents: diff changeset	3717	"
464 a788fdce92e2 add submenuChannel ca parents: 461 diff changeset	3718	subMenu notNil ifTrue:[^ subMenu].
a788fdce92e2 add submenuChannel ca parents: 461 diff changeset	3719	^ self setupSubmenu
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3720	!
dce33f8bb806 intitial checkin ca parents: diff changeset	3721
dce33f8bb806 intitial checkin ca parents: diff changeset	3722	submenu:aSubMenu
dce33f8bb806 intitial checkin ca parents: diff changeset	3723	"set a new submenu; an existing submenu will be destroyed. This might lead
dce33f8bb806 intitial checkin ca parents: diff changeset	3724	to a redraw if 'hasSubmenu' changed
dce33f8bb806 intitial checkin ca parents: diff changeset	3725	"
580 249f6cfc5bb2 checkin from browser Claus Gittinger <cg@exept.de> parents: 571 diff changeset	3726
249f6cfc5bb2 checkin from browser Claus Gittinger <cg@exept.de> parents: 571 diff changeset	3727	(aSubMenu notNil
249f6cfc5bb2 checkin from browser Claus Gittinger <cg@exept.de> parents: 571 diff changeset	3728	and:[(aSubMenu isView or:[aSubMenu isKindOf:Menu]) not]) ifTrue:[
1368 eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	3729	^ self submenuChannel:aSubMenu
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3730	].
dce33f8bb806 intitial checkin ca parents: diff changeset	3731
dce33f8bb806 intitial checkin ca parents: diff changeset	3732	(subMenu := aSubMenu) notNil ifTrue:[
1368 eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	3733	aSubMenu class == Menu ifTrue:[
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	3734	subMenu := MenuPanel new.
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	3735	menuPanel notNil ifTrue:[
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	3736	subMenu receiver:menuPanel receiver.
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	3737	].
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	3738	subMenu menu:aSubMenu.
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	3739	subMenu superMenu:menuPanel.
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	3740	] ifFalse:[
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	3741	subMenu isView ifTrue:[
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	3742	subMenu superMenu:menuPanel.
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	3743	]
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	3744	]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3745	].
dce33f8bb806 intitial checkin ca parents: diff changeset	3746
1068 155168a813ad oops - subMenu must be an instance of MenuPanel Claus Gittinger <cg@exept.de> parents: 1063 diff changeset	3747	"Modified: / 10.8.1998 / 13:26:28 / cg"
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	3748	!
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	3749
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	3750	textLabel
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	3751	"returns my textLabel or nil if none text
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	3752	"
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3753	(rawLabel respondsTo:#string) ifTrue:[
1117 3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	3754	^ rawLabel string
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	3755	].
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	3756	^ nil
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	3757	!
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	3758
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	3759	value
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	3760	"gets value
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	3761	"
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	3762	^ value
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	3763	!
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	3764
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	3765	value:something
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	3766	"could be a value holder, an action or selector
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	3767	"
d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	3768	value := something.
502 dedc1b29b6ac support of arguments ca parents: 498 diff changeset	3769	!
dedc1b29b6ac support of arguments ca parents: 498 diff changeset	3770
dedc1b29b6ac support of arguments ca parents: 498 diff changeset	3771	value:aValue argument:anArgument
dedc1b29b6ac support of arguments ca parents: 498 diff changeset	3772	"set the value and an argument
dedc1b29b6ac support of arguments ca parents: 498 diff changeset	3773	"
dedc1b29b6ac support of arguments ca parents: 498 diff changeset	3774	self value:aValue.
dedc1b29b6ac support of arguments ca parents: 498 diff changeset	3775	self argument:anArgument.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3776	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	3777
dce33f8bb806 intitial checkin ca parents: diff changeset	3778	!MenuPanel::Item methodsFor:'accessing behavior'!
dce33f8bb806 intitial checkin ca parents: diff changeset	3779
1074 25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	3780	choice
25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	3781	"get choice indication
25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	3782	"
25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	3783	adornment isNil ifTrue:[^ nil].
25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	3784	^ adornment choice
25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	3785
25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	3786	"Created: / 14.8.1998 / 14:38:52 / cg"
25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	3787	!
25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	3788
25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	3789	choice:something
25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	3790	"set choice indication
25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	3791	"
25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	3792	\|old new\|
25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	3793
25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	3794	old := self choice.
25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	3795	old == something ifTrue:[^ self].
25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	3796
25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	3797	(self isKindOfValueHolder:old) ifTrue:[
1117 3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	3798	old removeDependent:self
1074 25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	3799	].
25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	3800
25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	3801	new := something.
25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	3802	new isSymbol ifTrue:[
1117 3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	3803	new := self aspectAt:new.
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	3804	new isNil ifTrue:[
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	3805	new := something
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	3806	]
1074 25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	3807	].
25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	3808	(self isKindOfValueHolder:new) ifTrue:[
1117 3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	3809	new addDependent:self
1074 25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	3810	].
25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	3811	self adornment choice:new.
25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	3812	self updateRawLabel.
25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	3813
25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	3814	"Created: / 14.8.1998 / 14:39:11 / cg"
25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	3815	"Modified: / 14.8.1998 / 16:13:19 / cg"
25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	3816	!
25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	3817
25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	3818	choiceValue
25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	3819	"get choice value
25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	3820	"
25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	3821	adornment isNil ifTrue:[^ nil].
25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	3822	^ adornment choiceValue
25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	3823
25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	3824	"Created: / 14.8.1998 / 15:46:33 / cg"
25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	3825	!
25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	3826
25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	3827	choiceValue:something
25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	3828	"set choice value
25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	3829	"
25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	3830	self adornment choiceValue:something.
25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	3831	self updateRawLabel.
25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	3832
25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	3833	"Created: / 14.8.1998 / 15:46:59 / cg"
25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	3834	!
25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	3835
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3836	enabled
dce33f8bb806 intitial checkin ca parents: diff changeset	3837	"returns the enabled state
dce33f8bb806 intitial checkin ca parents: diff changeset	3838	"
524 d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	3839	\|state\|
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	3840
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	3841	menuPanel enabled ifTrue:[
1117 3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	3842	enableChannel isSymbol ifTrue:[
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	3843	state := self aspectAt:enableChannel.
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	3844
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	3845	(self isKindOfValueHolder:state) ifTrue:[
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	3846	enableChannel := state.
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	3847	enableChannel addDependent:self.
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	3848	state := enableChannel value.
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	3849	] ifFalse:[
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	3850	state := state value
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	3851	]
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	3852	] ifFalse:[
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	3853	state := enableChannel value
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	3854	].
524 d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	3855	^ state ~~ false
460 5334456cedf8 handle enabled symbol; get aspect from application ca parents: 450 diff changeset	3856	].
524 d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	3857	^ false
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3858	!
dce33f8bb806 intitial checkin ca parents: diff changeset	3859
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	3860	enabled:something
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3861	"change the enabled state; if the state changed, a redraw is performed
dce33f8bb806 intitial checkin ca parents: diff changeset	3862	"
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	3863	\|oldState newState\|
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	3864
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	3865	enableChannel isNil ifTrue:[
1117 3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	3866	oldState := true
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	3867	] ifFalse:[
1117 3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	3868	oldState := enableChannel value.
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	3869	(self isKindOfValueHolder:enableChannel) ifTrue:[
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	3870	enableChannel removeDependent:self
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	3871	]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3872	].
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	3873	enableChannel := something.
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	3874
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	3875	enableChannel isNil ifTrue:[
1117 3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	3876	menuPanel shown ifFalse:[^ self].
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	3877	newState := true
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	3878	] ifFalse:[
1117 3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	3879	(self isKindOfValueHolder:enableChannel) ifTrue:[
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	3880	enableChannel addDependent:self
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	3881	] ifFalse:[
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	3882	enableChannel isSymbol ifTrue:[^ self]
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	3883	].
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	3884	menuPanel shown ifFalse:[^ self].
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	3885	newState := enableChannel value.
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	3886	].
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	3887
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	3888	newState ~~ oldState ifTrue:[
1117 3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	3889	(rawLabel notNil and:[menuPanel canDrawItem]) ifTrue:[
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	3890	self drawLabel
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	3891	]
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	3892	]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3893
580 249f6cfc5bb2 checkin from browser Claus Gittinger <cg@exept.de> parents: 571 diff changeset	3894	"Modified: / 27.10.1997 / 16:13:42 / cg"
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3895	!
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3896
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3897	indication
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3898	"get on/off indication
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3899	"
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3900	adornment isNil ifTrue:[^ nil].
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3901	^ adornment indication
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3902	!
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3903
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3904	indication:something
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3905	"set on/off indication
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3906	"
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3907	\|old\|
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3908
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3909	old := self indication.
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3910	old == something ifTrue:[^ self].
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3911
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3912	(self isKindOfValueHolder:old) ifTrue:[
1117 3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	3913	old removeDependent:self
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3914	].
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3915
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3916	(self isKindOfValueHolder:something) ifTrue:[
1117 3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	3917	something addDependent:self
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3918	].
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3919	self adornment indication:something.
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	3920	self updateRawLabel.
464 a788fdce92e2 add submenuChannel ca parents: 461 diff changeset	3921	!
a788fdce92e2 add submenuChannel ca parents: 461 diff changeset	3922
650 29dcdf6a5994 button and label translation support added tz parents: 638 diff changeset	3923	isButton
29dcdf6a5994 button and label translation support added tz parents: 638 diff changeset	3924	"returns whether item looks like a Button
29dcdf6a5994 button and label translation support added tz parents: 638 diff changeset	3925	"
798 74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	3926	^ isButton
650 29dcdf6a5994 button and label translation support added tz parents: 638 diff changeset	3927	!
29dcdf6a5994 button and label translation support added tz parents: 638 diff changeset	3928
29dcdf6a5994 button and label translation support added tz parents: 638 diff changeset	3929	isButton:anBoolean
29dcdf6a5994 button and label translation support added tz parents: 638 diff changeset	3930	"sets whether item looks like a Button
29dcdf6a5994 button and label translation support added tz parents: 638 diff changeset	3931	"
29dcdf6a5994 button and label translation support added tz parents: 638 diff changeset	3932	isButton := anBoolean.
29dcdf6a5994 button and label translation support added tz parents: 638 diff changeset	3933
1045 25d174d7b019 optimize: ca parents: 1044 diff changeset	3934	layout notNil ifTrue:[
1117 3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	3935	self redrawAsButton
1045 25d174d7b019 optimize: ca parents: 1044 diff changeset	3936	]
650 29dcdf6a5994 button and label translation support added tz parents: 638 diff changeset	3937
29dcdf6a5994 button and label translation support added tz parents: 638 diff changeset	3938
29dcdf6a5994 button and label translation support added tz parents: 638 diff changeset	3939
29dcdf6a5994 button and label translation support added tz parents: 638 diff changeset	3940	!
29dcdf6a5994 button and label translation support added tz parents: 638 diff changeset	3941
464 a788fdce92e2 add submenuChannel ca parents: 461 diff changeset	3942	submenuChannel
a788fdce92e2 add submenuChannel ca parents: 461 diff changeset	3943	"get the submenu channel
a788fdce92e2 add submenuChannel ca parents: 461 diff changeset	3944	"
a788fdce92e2 add submenuChannel ca parents: 461 diff changeset	3945	^ submenuChannel
a788fdce92e2 add submenuChannel ca parents: 461 diff changeset	3946	!
a788fdce92e2 add submenuChannel ca parents: 461 diff changeset	3947
a788fdce92e2 add submenuChannel ca parents: 461 diff changeset	3948	submenuChannel:aSelectorOrNil
a788fdce92e2 add submenuChannel ca parents: 461 diff changeset	3949	"returns the submenu channel
a788fdce92e2 add submenuChannel ca parents: 461 diff changeset	3950	"
a788fdce92e2 add submenuChannel ca parents: 461 diff changeset	3951	submenuChannel := aSelectorOrNil.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3952	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	3953
dce33f8bb806 intitial checkin ca parents: diff changeset	3954	!MenuPanel::Item methodsFor:'accessing dimension'!
dce33f8bb806 intitial checkin ca parents: diff changeset	3955
dce33f8bb806 intitial checkin ca parents: diff changeset	3956	height
dce33f8bb806 intitial checkin ca parents: diff changeset	3957	"gets height
dce33f8bb806 intitial checkin ca parents: diff changeset	3958	"
dce33f8bb806 intitial checkin ca parents: diff changeset	3959	layout isNil ifTrue:[
1117 3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	3960	^ self preferredExtent y
1096 6ab44a6939bf checkin from browser Claus Gittinger <cg@exept.de> parents: 1095 diff changeset	3961	].
6ab44a6939bf checkin from browser Claus Gittinger <cg@exept.de> parents: 1095 diff changeset	3962	^ layout height
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3963	!
dce33f8bb806 intitial checkin ca parents: diff changeset	3964
650 29dcdf6a5994 button and label translation support added tz parents: 638 diff changeset	3965	horizontalInset
29dcdf6a5994 button and label translation support added tz parents: 638 diff changeset	3966
1045 25d174d7b019 optimize: ca parents: 1044 diff changeset	3967	isButton ifTrue: [^menuPanel buttonPassiveLevel + HorizontalButtonInset].
650 29dcdf6a5994 button and label translation support added tz parents: 638 diff changeset	3968	^HorizontalInset
29dcdf6a5994 button and label translation support added tz parents: 638 diff changeset	3969	!
29dcdf6a5994 button and label translation support added tz parents: 638 diff changeset	3970
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3971	layout
dce33f8bb806 intitial checkin ca parents: diff changeset	3972	"returns my layout ( Rectangle )
dce33f8bb806 intitial checkin ca parents: diff changeset	3973	"
dce33f8bb806 intitial checkin ca parents: diff changeset	3974	^ layout
dce33f8bb806 intitial checkin ca parents: diff changeset	3975	!
dce33f8bb806 intitial checkin ca parents: diff changeset	3976
dce33f8bb806 intitial checkin ca parents: diff changeset	3977	layout:aLayout
dce33f8bb806 intitial checkin ca parents: diff changeset	3978	"set a new layout ( Rectangle )
dce33f8bb806 intitial checkin ca parents: diff changeset	3979	"
dce33f8bb806 intitial checkin ca parents: diff changeset	3980	layout := aLayout.
dce33f8bb806 intitial checkin ca parents: diff changeset	3981	self redraw.
dce33f8bb806 intitial checkin ca parents: diff changeset	3982	!
dce33f8bb806 intitial checkin ca parents: diff changeset	3983
650 29dcdf6a5994 button and label translation support added tz parents: 638 diff changeset	3984	verticalInset
29dcdf6a5994 button and label translation support added tz parents: 638 diff changeset	3985
1045 25d174d7b019 optimize: ca parents: 1044 diff changeset	3986	isButton ifTrue: [^menuPanel buttonPassiveLevel + VerticalButtonInset].
650 29dcdf6a5994 button and label translation support added tz parents: 638 diff changeset	3987	^VerticalInset
29dcdf6a5994 button and label translation support added tz parents: 638 diff changeset	3988	!
29dcdf6a5994 button and label translation support added tz parents: 638 diff changeset	3989
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3990	width
dce33f8bb806 intitial checkin ca parents: diff changeset	3991	"gets width
dce33f8bb806 intitial checkin ca parents: diff changeset	3992	"
1096 6ab44a6939bf checkin from browser Claus Gittinger <cg@exept.de> parents: 1095 diff changeset	3993
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3994	layout isNil ifTrue:[
1117 3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	3995	^ self preferredExtent x
1096 6ab44a6939bf checkin from browser Claus Gittinger <cg@exept.de> parents: 1095 diff changeset	3996	].
6ab44a6939bf checkin from browser Claus Gittinger <cg@exept.de> parents: 1095 diff changeset	3997	^ layout width
388 dce33f8bb806 intitial checkin ca parents: diff changeset	3998	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	3999
524 d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	4000	!MenuPanel::Item methodsFor:'building'!
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	4001
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	4002	aspectAt:aKey
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	4003	"retursns value assigned to key or nil
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	4004	"
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	4005	\|appl value\|
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	4006
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	4007	appl := menuPanel receiver.
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	4008
1219 6a0d677a6fac removed some #isKindOf: calls. Claus Gittinger <cg@exept.de> parents: 1218 diff changeset	4009	(appl isValueModel) ifTrue:[
1368 eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	4010	^ appl value:aKey
524 d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	4011	].
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	4012
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	4013	(appl notNil or:[(appl := menuPanel application) notNil]) ifTrue:[
1368 eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	4014	Object messageNotUnderstoodSignal handle:[:ex\|
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	4015	ex parameter selector == aKey ifFalse:[
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	4016	ex reject
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	4017	].
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	4018	] do:[
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	4019	(appl isKindOf:ApplicationModel)
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	4020	ifTrue:[value := appl aspectFor:aKey]
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	4021	ifFalse:[value := appl perform:aKey]
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	4022	]
524 d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	4023	].
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	4024	^ value
1029 c9e90585fa89 only ignore messageNotUnderstood for my aspects. Claus Gittinger <cg@exept.de> parents: 1026 diff changeset	4025
c9e90585fa89 only ignore messageNotUnderstood for my aspects. Claus Gittinger <cg@exept.de> parents: 1026 diff changeset	4026	"Modified: / 29.7.1998 / 11:59:50 / cg"
524 d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	4027	! !
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	4028
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	4029	!MenuPanel::Item methodsFor:'change & update'!
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	4030
1074 25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	4031	choiceChanged
25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	4032	"called when the choice changed
25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	4033	"
25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	4034	\|indicator\|
25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	4035
25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	4036	isButton ifFalse:[
1117 3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4037	indicator := self choiceForm.
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4038
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4039	indicator = rawLabel icon ifTrue:[
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4040	^ self
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4041	].
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4042	rawLabel icon:indicator.
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4043
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4044	disabledRawLabel notNil ifTrue:[
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4045	disabledRawLabel icon:indicator
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4046	]
1074 25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	4047	].
25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	4048	self redraw
25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	4049
25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	4050	"Created: / 14.8.1998 / 16:14:59 / cg"
25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	4051	"Modified: / 14.8.1998 / 17:19:32 / cg"
25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	4052	!
25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	4053
498 b4c341497621 bug fixes: ca parents: 475 diff changeset	4054	enabledStateOfMenuChangedTo:aState
b4c341497621 bug fixes: ca parents: 475 diff changeset	4055	"enabled state of menu changed to aState
b4c341497621 bug fixes: ca parents: 475 diff changeset	4056	"
b4c341497621 bug fixes: ca parents: 475 diff changeset	4057	rawLabel notNil ifTrue:[
1117 3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4058	self drawLabel
498 b4c341497621 bug fixes: ca parents: 475 diff changeset	4059	].
b4c341497621 bug fixes: ca parents: 475 diff changeset	4060
b4c341497621 bug fixes: ca parents: 475 diff changeset	4061	!
b4c341497621 bug fixes: ca parents: 475 diff changeset	4062
1048 a8755e51706d bug fixes: ca parents: 1046 diff changeset	4063	indicationChanged
a8755e51706d bug fixes: ca parents: 1046 diff changeset	4064	"called when the indication changed
a8755e51706d bug fixes: ca parents: 1046 diff changeset	4065	"
a8755e51706d bug fixes: ca parents: 1046 diff changeset	4066	\|indicator\|
a8755e51706d bug fixes: ca parents: 1046 diff changeset	4067
a8755e51706d bug fixes: ca parents: 1046 diff changeset	4068	isButton ifFalse:[
1117 3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4069	indicator := self indicatorForm.
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4070
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4071	indicator = rawLabel icon ifTrue:[
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4072	^ self
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4073	].
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4074	rawLabel icon:indicator.
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4075
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4076	disabledRawLabel notNil ifTrue:[
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4077	disabledRawLabel icon:indicator
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4078	]
1048 a8755e51706d bug fixes: ca parents: 1046 diff changeset	4079	].
a8755e51706d bug fixes: ca parents: 1046 diff changeset	4080	self redraw
1074 25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	4081
25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	4082	"Modified: / 14.8.1998 / 17:19:38 / cg"
1048 a8755e51706d bug fixes: ca parents: 1046 diff changeset	4083	!
a8755e51706d bug fixes: ca parents: 1046 diff changeset	4084
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	4085	update:something with:aParameter from:changedObject
498 b4c341497621 bug fixes: ca parents: 475 diff changeset	4086
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	4087	changedObject == self indication ifTrue:[
1368 eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	4088	^ self indicationChanged
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	4089	].
498 b4c341497621 bug fixes: ca parents: 475 diff changeset	4090
1074 25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	4091	changedObject == self choice ifTrue:[
1368 eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	4092	^ self choiceChanged
1074 25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	4093	].
25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	4094
498 b4c341497621 bug fixes: ca parents: 475 diff changeset	4095	changedObject == enableChannel ifTrue:[
1368 eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	4096	(rawLabel notNil and:[menuPanel canDrawItem]) ifTrue:[
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	4097	self drawLabel
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	4098	].
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	4099	^ self
498 b4c341497621 bug fixes: ca parents: 475 diff changeset	4100	].
712 4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	4101
4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	4102	changedObject == isVisible ifTrue:[
1368 eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	4103	menuPanel mustRearrange.
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	4104	menuPanel rearrangeItems.
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	4105	^ self.
712 4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	4106	].
4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	4107
498 b4c341497621 bug fixes: ca parents: 475 diff changeset	4108	super update:something with:aParameter from:changedObject
1074 25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	4109
25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	4110	"Modified: / 14.8.1998 / 16:13:41 / cg"
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	4111	!
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	4112
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	4113	updateIndicators
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	4114	"update indicators
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	4115	"
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	4116	\|indicator\|
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	4117
1074 25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	4118	(indicator := self indication) notNil ifTrue:[
25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	4119	"/ (isButton and:[menuPanel isPopUpView]) ifFalse:[
25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	4120	"/ (self isKindOfValueHolder:indicator) ifTrue:[
25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	4121	"/ ^ self
25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	4122	"/ ]
25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	4123	"/ ].
1117 3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4124	self indicationChanged
1074 25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	4125	]
25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	4126
25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	4127	"Modified: / 14.8.1998 / 15:19:38 / cg"
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	4128	! !
a0cf1f90da2c enabled and style ca parents: 389 diff changeset	4129
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4130	!MenuPanel::Item methodsFor:'converting'!
dce33f8bb806 intitial checkin ca parents: diff changeset	4131
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	4132	asMenuItem
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	4133	"convert to a MenuItem
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	4134	"
466 f025831cdae8 pick a imaged label; create a ResourceRetriever ca parents: 465 diff changeset	4135	\|item label rcv\|
f025831cdae8 pick a imaged label; create a ResourceRetriever ca parents: 465 diff changeset	4136
f025831cdae8 pick a imaged label; create a ResourceRetriever ca parents: 465 diff changeset	4137	label := self label.
f025831cdae8 pick a imaged label; create a ResourceRetriever ca parents: 465 diff changeset	4138	item := MenuItem labeled:(label printString).
f025831cdae8 pick a imaged label; create a ResourceRetriever ca parents: 465 diff changeset	4139
f025831cdae8 pick a imaged label; create a ResourceRetriever ca parents: 465 diff changeset	4140	label isImage ifTrue:[
1473 1f62652f146e use hasSubmenu insteat of submenu if possible; Claus Gittinger <cg@exept.de> parents: 1472 diff changeset	4141	rcv := ResourceRetriever new.
1f62652f146e use hasSubmenu insteat of submenu if possible; Claus Gittinger <cg@exept.de> parents: 1472 diff changeset	4142	rcv className:#MenuEditor.
1f62652f146e use hasSubmenu insteat of submenu if possible; Claus Gittinger <cg@exept.de> parents: 1472 diff changeset	4143	rcv selector:#iconUnknown.
1f62652f146e use hasSubmenu insteat of submenu if possible; Claus Gittinger <cg@exept.de> parents: 1472 diff changeset	4144	item labelImage:rcv.
464 a788fdce92e2 add submenuChannel ca parents: 461 diff changeset	4145	].
466 f025831cdae8 pick a imaged label; create a ResourceRetriever ca parents: 465 diff changeset	4146
434 9898a2909ef0 add active help for items ca parents: 433 diff changeset	4147	item activeHelpKey:activeHelpKey.
460 5334456cedf8 handle enabled symbol; get aspect from application ca parents: 450 diff changeset	4148
5334456cedf8 handle enabled symbol; get aspect from application ca parents: 450 diff changeset	4149	enableChannel notNil ifTrue:[
1473 1f62652f146e use hasSubmenu insteat of submenu if possible; Claus Gittinger <cg@exept.de> parents: 1472 diff changeset	4150	item enabled:(enableChannel value)
460 5334456cedf8 handle enabled symbol; get aspect from application ca parents: 450 diff changeset	4151	].
5334456cedf8 handle enabled symbol; get aspect from application ca parents: 450 diff changeset	4152
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	4153	item accessCharacterPosition:(self accessCharacterPosition).
710 4453e463ff16 add new feature: ca parents: 709 diff changeset	4154	item startGroup:(self startGroup).
502 dedc1b29b6ac support of arguments ca parents: 498 diff changeset	4155	item argument:(self argument).
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	4156	item nameKey:(self nameKey).
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	4157	item shortcutKeyCharacter:(self shortcutKey).
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	4158	item value:(value value).
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	4159	item indication:(self indication value).
1074 25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	4160	item choice:(self choice value).
25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	4161	item choiceValue:(self choiceValue).
712 4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	4162	item isVisible:(self isVisible).
1045 25d174d7b019 optimize: ca parents: 1044 diff changeset	4163	item isButton:isButton.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4164
464 a788fdce92e2 add submenuChannel ca parents: 461 diff changeset	4165	submenuChannel isSymbol ifTrue:[
1473 1f62652f146e use hasSubmenu insteat of submenu if possible; Claus Gittinger <cg@exept.de> parents: 1472 diff changeset	4166	item submenuChannel:submenuChannel
464 a788fdce92e2 add submenuChannel ca parents: 461 diff changeset	4167	] ifFalse:[
1473 1f62652f146e use hasSubmenu insteat of submenu if possible; Claus Gittinger <cg@exept.de> parents: 1472 diff changeset	4168	subMenu notNil ifTrue:[
1f62652f146e use hasSubmenu insteat of submenu if possible; Claus Gittinger <cg@exept.de> parents: 1472 diff changeset	4169	item submenu:(subMenu asMenu)
1f62652f146e use hasSubmenu insteat of submenu if possible; Claus Gittinger <cg@exept.de> parents: 1472 diff changeset	4170	]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4171	].
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	4172	^ item
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4173
1074 25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	4174	"Modified: / 14.8.1998 / 15:47:21 / cg"
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4175	!
dce33f8bb806 intitial checkin ca parents: diff changeset	4176
dce33f8bb806 intitial checkin ca parents: diff changeset	4177	menuItem:aMenuItem
dce33f8bb806 intitial checkin ca parents: diff changeset	4178	"setup attributes from a MenuItem
dce33f8bb806 intitial checkin ca parents: diff changeset	4179	"
502 dedc1b29b6ac support of arguments ca parents: 498 diff changeset	4180	\|var lbl\|
389 d5487b5fb834 st80: perform on value ca parents: 388 diff changeset	4181
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4182	menuPanel disabledRedrawDo:[
1572 80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	4183	label := nil.
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	4184	activeHelpKey := aMenuItem activeHelpKey.
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	4185	self enabled:(aMenuItem enabled).
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	4186	self nameKey:(aMenuItem nameKey).
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	4187	self indication:(aMenuItem indication).
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	4188	self choice:(aMenuItem choice).
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	4189	self choiceValue:(aMenuItem choiceValue).
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	4190	self isButton:(aMenuItem isButton).
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	4191	self startGroup:(aMenuItem startGroup).
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	4192	self isVisible:(aMenuItem isVisible).
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	4193
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	4194	(lbl := aMenuItem labelImage value) isNil ifTrue:[
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	4195	lbl := aMenuItem rawLabel. "/ avoid translating &'s twice
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	4196	].
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	4197	self label:lbl.
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	4198
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	4199	(var := aMenuItem accessCharacterPosition) notNil ifTrue:[
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	4200	self accessCharacterPosition:var.
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	4201	].
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	4202
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	4203	self shortcutKey:(aMenuItem shortcutKeyCharacter).
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	4204
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	4205	(var := aMenuItem argument) notNil ifTrue:[
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	4206	self argument:var.
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	4207	].
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	4208
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	4209	submenuChannel := aMenuItem submenuChannel.
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	4210	self submenu:(aMenuItem submenu).
80a8e8a38fb1 ca: bugfix ca parents: 1499 diff changeset	4211	self value:(aMenuItem value).
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4212	]
1033 9badc22e3d03 oops &'s where eliminated twice - leading to double &'s Claus Gittinger <cg@exept.de> parents: 1032 diff changeset	4213
1090 cf3d9f5648da only draw with enteredLevel, if item is enabled Claus Gittinger <cg@exept.de> parents: 1083 diff changeset	4214	"Modified: / 22.8.1998 / 15:34:16 / cg"
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4215	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	4216
dce33f8bb806 intitial checkin ca parents: diff changeset	4217	!MenuPanel::Item methodsFor:'drawing'!
dce33f8bb806 intitial checkin ca parents: diff changeset	4218
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	4219	drawLabel
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	4220	"draw label
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4221	"
1090 cf3d9f5648da only draw with enteredLevel, if item is enabled Claus Gittinger <cg@exept.de> parents: 1083 diff changeset	4222	\|y x h l t scKey cLb cLa img fg asc arrow hrzInset
1267 10577a2ca319 * empty log message * Claus Gittinger <cg@exept.de> parents: 1257 diff changeset	4223	buttonLevel isSelected\|
464 a788fdce92e2 add submenuChannel ca parents: 461 diff changeset	4224
1046 c03b42debacb bug fixes: ca parents: 1045 diff changeset	4225	self isVisible ifFalse:[^ self].
c03b42debacb bug fixes: ca parents: 1045 diff changeset	4226
464 a788fdce92e2 add submenuChannel ca parents: 461 diff changeset	4227	img := rawLabel.
1048 a8755e51706d bug fixes: ca parents: 1046 diff changeset	4228
608 0d8d910768af use default font derived from style ca parents: 601 diff changeset	4229	asc := menuPanel font ascent.
0d8d910768af use default font derived from style ca parents: 601 diff changeset	4230	h := layout height.
0d8d910768af use default font derived from style ca parents: 601 diff changeset	4231	l := layout left.
0d8d910768af use default font derived from style ca parents: 601 diff changeset	4232	t := layout top.
650 29dcdf6a5994 button and label translation support added tz parents: 638 diff changeset	4233	hrzInset := self horizontalInset.
1078 3adf74275ebd support choice for buttons ca parents: 1076 diff changeset	4234	isSelected := self drawSelected.
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	4235
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	4236	self enabled ifTrue:[
1472 fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	4237	fg := isSelected ifTrue:[self activeForegroundColor]
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	4238	ifFalse:[menuPanel foregroundColor].
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	4239	] ifFalse:[
1472 fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	4240	fg := menuPanel disabledForegroundColor.
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	4241
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	4242	(img := disabledRawLabel) isNil ifTrue:[
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	4243	img := self disabledRawLabel
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	4244	]
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	4245	].
1090 cf3d9f5648da only draw with enteredLevel, if item is enabled Claus Gittinger <cg@exept.de> parents: 1083 diff changeset	4246	menuPanel paint:fg.
cf3d9f5648da only draw with enteredLevel, if item is enabled Claus Gittinger <cg@exept.de> parents: 1083 diff changeset	4247
650 29dcdf6a5994 button and label translation support added tz parents: 638 diff changeset	4248	"/ t := t + menuPanel level.
608 0d8d910768af use default font derived from style ca parents: 601 diff changeset	4249	y := t + ((h - (img heightOn:menuPanel)) // 2).
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	4250
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	4251	(self textLabel) notNil ifTrue:[
1472 fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	4252	y := y + asc.
464 a788fdce92e2 add submenuChannel ca parents: 461 diff changeset	4253	].
650 29dcdf6a5994 button and label translation support added tz parents: 638 diff changeset	4254
1045 25d174d7b019 optimize: ca parents: 1044 diff changeset	4255	isButton ifTrue:[
1472 fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	4256	(isSelected or:[self indicationValue == true]) ifTrue:
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	4257	[
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	4258	img displayOn:menuPanel x:(l + hrzInset) + 1 y: y + 1.
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	4259	buttonLevel := menuPanel buttonActiveLevel.
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	4260	] ifFalse:[
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	4261	img displayOn:menuPanel x:(l + hrzInset) y:y.
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	4262	self isEntered ifTrue:[
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	4263	buttonLevel := menuPanel buttonEnteredLevel
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	4264	] ifFalse:[
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	4265	buttonLevel := menuPanel buttonPassiveLevel
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	4266	]
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	4267	].
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	4268	buttonLevel ~~ 0 ifTrue:[
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	4269	menuPanel
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	4270	drawButtonEdgesInLayout:layout
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	4271	withLevel:buttonLevel
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	4272	selected:isSelected.
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	4273	].
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	4274	^ self
650 29dcdf6a5994 button and label translation support added tz parents: 638 diff changeset	4275	].
1046 c03b42debacb bug fixes: ca parents: 1045 diff changeset	4276
1074 25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	4277	"/ label = 'Sort By Name' ifTrue:[self halt.].
25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	4278
1046 c03b42debacb bug fixes: ca parents: 1045 diff changeset	4279	img displayOn:menuPanel x:(l + hrzInset) y:y.
c03b42debacb bug fixes: ca parents: 1045 diff changeset	4280
608 0d8d910768af use default font derived from style ca parents: 601 diff changeset	4281	"/ DRAW SHORTCUT KEY
0d8d910768af use default font derived from style ca parents: 601 diff changeset	4282
1063 08b7ca464437 dont show accelerators for horizontal layouts Claus Gittinger <cg@exept.de> parents: 1054 diff changeset	4283	MenuView showAcceleratorKeys == true ifTrue:[
1472 fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	4284	menuPanel isVerticalLayout ifTrue:[ "/ only for vertical menus ...
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	4285	(scKey:= self shortcutKeyAsString) notNil ifTrue:[
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	4286	(x := menuPanel shortKeyInset) == 0 ifTrue:[
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	4287	x := hrzInset + LabelRightOffset + (img widthOn:menuPanel)
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	4288	].
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	4289	x := l + x.
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	4290	y := t + ((h - (scKey heightOn:menuPanel)) // 2).
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	4291	y := y + asc.
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	4292	scKey displayOn:menuPanel x:x y:y.
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	4293	].
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	4294	].
608 0d8d910768af use default font derived from style ca parents: 601 diff changeset	4295	].
963 2660033bc16e hide shortKeys in menu (may be later enabled via a classVar) Claus Gittinger <cg@exept.de> parents: 911 diff changeset	4296
608 0d8d910768af use default font derived from style ca parents: 601 diff changeset	4297	"/ DRAW SUBMENU INDICATION
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	4298
1472 fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	4299	(menuPanel isVerticalLayout and:[self hasSubmenu]) ifTrue:[
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	4300	arrow := menuPanel rightArrow.
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	4301	x := layout right - arrow width - hrzInset.
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	4302	y := t + (h - arrow height // 2).
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	4303
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	4304	(menuPanel styleSheet is3D not
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	4305	or:[(img := menuPanel rightArrowShadow) isNil]) ifTrue:[
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	4306	^ menuPanel displayForm:arrow x:x y:y
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	4307	].
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	4308	cLa := menuPanel shadowColor.
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	4309	cLb := menuPanel lightColor.
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	4310
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	4311	isSelected ifFalse:[
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	4312	fg := cLa.
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	4313	cLa := cLb.
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	4314	cLb := fg
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	4315	].
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	4316	menuPanel paint:cLa.
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	4317	menuPanel displayForm:arrow x:x y:y.
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	4318	menuPanel paint:cLb.
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	4319	menuPanel displayForm:img x:x y:y.
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	4320	]
746 bd252bbe276f better drawing routine for button behavior tz parents: 739 diff changeset	4321
1124 4a7fec62a572 smaller checkbox. Claus Gittinger <cg@exept.de> parents: 1117 diff changeset	4322	"Modified: / 6.9.1998 / 21:48:53 / cg"
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4323	!
dce33f8bb806 intitial checkin ca parents: diff changeset	4324
1078 3adf74275ebd support choice for buttons ca parents: 1076 diff changeset	4325	drawSelected
3adf74275ebd support choice for buttons ca parents: 1076 diff changeset	4326	"return true if item is selected or if item implements
3adf74275ebd support choice for buttons ca parents: 1076 diff changeset	4327	a toggle in a radio group which is selected
3adf74275ebd support choice for buttons ca parents: 1076 diff changeset	4328	"
3adf74275ebd support choice for buttons ca parents: 1076 diff changeset	4329	\|holder\|
3adf74275ebd support choice for buttons ca parents: 1076 diff changeset	4330
3adf74275ebd support choice for buttons ca parents: 1076 diff changeset	4331	self isSelected ifTrue:[
1117 3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4332	^ true
1078 3adf74275ebd support choice for buttons ca parents: 1076 diff changeset	4333	].
3adf74275ebd support choice for buttons ca parents: 1076 diff changeset	4334	isButton ifTrue:[
1117 3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4335	^ ((holder := self choice) notNil and:[holder value = self choiceValue])
1078 3adf74275ebd support choice for buttons ca parents: 1076 diff changeset	4336	].
3adf74275ebd support choice for buttons ca parents: 1076 diff changeset	4337	^ false
3adf74275ebd support choice for buttons ca parents: 1076 diff changeset	4338	!
3adf74275ebd support choice for buttons ca parents: 1076 diff changeset	4339
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	4340	redraw
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	4341	"redraw item
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4342	"
706 d716edbdbe47 show separators bug cleaned tz parents: 689 diff changeset	4343	\|isSelected ownBgCol showItemSep type paint lgCol shCol
d716edbdbe47 show separators bug cleaned tz parents: 689 diff changeset	4344	h "{ Class:SmallInteger }"
d716edbdbe47 show separators bug cleaned tz parents: 689 diff changeset	4345	w "{ Class:SmallInteger }"
d716edbdbe47 show separators bug cleaned tz parents: 689 diff changeset	4346	l "{ Class:SmallInteger }"
d716edbdbe47 show separators bug cleaned tz parents: 689 diff changeset	4347	t "{ Class:SmallInteger }"
d716edbdbe47 show separators bug cleaned tz parents: 689 diff changeset	4348	r "{ Class:SmallInteger }"
d716edbdbe47 show separators bug cleaned tz parents: 689 diff changeset	4349	b "{ Class:SmallInteger }"
d716edbdbe47 show separators bug cleaned tz parents: 689 diff changeset	4350	x "{ Class:SmallInteger }"
d716edbdbe47 show separators bug cleaned tz parents: 689 diff changeset	4351	y "{ Class:SmallInteger }"
d716edbdbe47 show separators bug cleaned tz parents: 689 diff changeset	4352	hrzInset "{ Class:SmallInteger }"
1081 fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	4353	isEntered
706 d716edbdbe47 show separators bug cleaned tz parents: 689 diff changeset	4354	\|
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	4355
712 4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	4356	(self isVisible and:[menuPanel canDrawItem]) ifFalse:[
1117 3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4357	^ self
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	4358	].
1081 fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	4359
1078 3adf74275ebd support choice for buttons ca parents: 1076 diff changeset	4360	isSelected := self drawSelected.
1081 fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	4361	isEntered := self isEntered.
650 29dcdf6a5994 button and label translation support added tz parents: 638 diff changeset	4362	hrzInset := self horizontalInset.
1081 fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	4363
616 a6157b083830 support of different styles ca parents: 608 diff changeset	4364	isSelected ifFalse:[
1117 3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4365	(isButton and:[isEntered]) ifTrue:[
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4366	paint := self buttonEnteredBackgroundColor
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4367	] ifFalse:[
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4368	paint := self backgroundColor
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4369	]
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	4370	] ifTrue:[
1117 3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4371	paint := self activeBackgroundColor
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	4372	].
608 0d8d910768af use default font derived from style ca parents: 601 diff changeset	4373	l := layout left.
0d8d910768af use default font derived from style ca parents: 601 diff changeset	4374	t := layout top.
0d8d910768af use default font derived from style ca parents: 601 diff changeset	4375	r := layout right.
0d8d910768af use default font derived from style ca parents: 601 diff changeset	4376	b := layout bottom.
0d8d910768af use default font derived from style ca parents: 601 diff changeset	4377	h := layout height.
0d8d910768af use default font derived from style ca parents: 601 diff changeset	4378	w := layout width.
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	4379	(ownBgCol := self backgroundColorFromLabel) isNil ifTrue:[
1117 3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4380	menuPanel paint:paint.
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4381	menuPanel fillRectangle:layout.
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	4382	] ifFalse:[
1117 3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4383	self hasIndication ifFalse:[
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4384	menuPanel paint:ownBgCol.
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4385	menuPanel fillRectangle:layout.
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4386	] ifTrue:[
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4387	menuPanel paint:paint.
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4388	x := (rawLabel icon width) + hrzInset + 4.
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4389
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4390	menuPanel fillRectangleX:l y:t width:x height:h.
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4391	menuPanel paint:ownBgCol.
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4392	menuPanel fillRectangleX:(l + x) y:t width:(w - x) height:h.
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4393	ownBgCol := nil.
650 29dcdf6a5994 button and label translation support added tz parents: 638 diff changeset	4394	].
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	4395	].
608 0d8d910768af use default font derived from style ca parents: 601 diff changeset	4396	lgCol := menuPanel lightColor.
0d8d910768af use default font derived from style ca parents: 601 diff changeset	4397	shCol := menuPanel shadowColor.
616 a6157b083830 support of different styles ca parents: 608 diff changeset	4398	showItemSep := menuPanel showSeparatingLines.
706 d716edbdbe47 show separators bug cleaned tz parents: 689 diff changeset	4399	type := self separatorType.
d716edbdbe47 show separators bug cleaned tz parents: 689 diff changeset	4400
d716edbdbe47 show separators bug cleaned tz parents: 689 diff changeset	4401	type notNil ifTrue:[
1117 3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4402	type == #blankLine ifTrue:[
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4403	^ self
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4404	].
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4405	"/ draw separator
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4406	menuPanel paint:shCol.
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4407
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4408	menuPanel verticalLayout ifTrue:[
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4409	l := l + hrzInset.
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4410	r := r - hrzInset.
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4411	y := t - 1 + (h // 2).
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4412
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4413	type == #doubleLine ifTrue:[y := y - 2].
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4414
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4415	menuPanel displayLineFromX:l y:y toX:r y:y.
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4416	menuPanel paint:lgCol.
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4417	y := y + 1.
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4418	menuPanel displayLineFromX:l y:y toX:r y:y.
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4419
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4420	type == #doubleLine ifTrue:[
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4421	y := y + 3.
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4422	menuPanel paint:shCol.
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4423	menuPanel displayLineFromX:l y:y toX:r y:y.
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4424	menuPanel paint:lgCol.
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4425	y := y + 1.
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4426	menuPanel displayLineFromX:l y:y toX:r y:y.
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4427	].
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4428	] ifFalse:[
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4429	x := l - 1 + (w // 2).
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4430
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4431	type == #doubleLine ifTrue:[x := x - 2].
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4432
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4433	menuPanel displayLineFromX:x y:t toX:x y:b.
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4434	menuPanel paint:lgCol.
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4435	x := x + 1.
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4436	menuPanel displayLineFromX:x y:t toX:x y:b.
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4437
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4438	type == #doubleLine ifTrue:[
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4439	x := x + 3.
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4440	menuPanel paint:shCol.
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4441	menuPanel displayLineFromX:x y:t toX:x y:b.
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4442	menuPanel paint:lgCol.
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4443	x := x + 1.
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4444	menuPanel displayLineFromX:x y:t toX:x y:b.
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4445	]
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4446	].
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4447	^ self
608 0d8d910768af use default font derived from style ca parents: 601 diff changeset	4448	].
0d8d910768af use default font derived from style ca parents: 601 diff changeset	4449
1045 25d174d7b019 optimize: ca parents: 1044 diff changeset	4450	isButton ifTrue:[
1117 3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4451	^ self drawLabel
706 d716edbdbe47 show separators bug cleaned tz parents: 689 diff changeset	4452	].
d716edbdbe47 show separators bug cleaned tz parents: 689 diff changeset	4453
d716edbdbe47 show separators bug cleaned tz parents: 689 diff changeset	4454	showItemSep ifTrue:[
1117 3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4455	\|col index item lfSep rtSep\|
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4456	col := menuPanel paint.
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4457
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4458	index := menuPanel indexOfItem:self.
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4459	item := menuPanel itemAtIndex:(index - 1).
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4460	lfSep := item notNil and:[item isButton not].
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4461	item := menuPanel itemAtIndex:(index + 1).
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4462	rtSep := item notNil and:[item isButton not].
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4463
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4464	menuPanel paint:lgCol.
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4465
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4466	menuPanel verticalLayout ifTrue:[
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4467	lfSep ifTrue:[
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4468	menuPanel displayLineFromX:l y:t - 1 toX:r y:t - 1.
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4469	].
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4470	rtSep ifTrue:[
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4471	menuPanel displayLineFromX:l y:b - 1 toX:r y:b - 1.
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4472	].
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4473	menuPanel paint:shCol.
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4474
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4475	lfSep ifTrue:[
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4476	menuPanel displayLineFromX:l y:t - 2 toX:r y:t - 2.
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4477	].
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4478	rtSep ifTrue:[
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4479	menuPanel displayLineFromX:l y:b - 2 toX:r y:b - 2.
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4480	]
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4481	] ifFalse:[
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4482	lfSep ifTrue:[
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4483	menuPanel displayLineFromX:l - 1 y:t toX:l - 1 y:b
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4484	].
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4485	rtSep ifTrue:[
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4486	menuPanel displayLineFromX:r - 1 y:t toX:r - 1 y:b.
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4487	].
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4488	menuPanel paint:shCol.
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4489
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4490	lfSep ifTrue:[
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4491	menuPanel displayLineFromX:l - 2 y:t toX:l - 2 y:b
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4492	].
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4493	rtSep ifTrue:[
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4494	menuPanel displayLineFromX:r - 2 y:t toX:r - 2 y:b.
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4495	]
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4496	]
608 0d8d910768af use default font derived from style ca parents: 601 diff changeset	4497	].
0d8d910768af use default font derived from style ca parents: 601 diff changeset	4498
650 29dcdf6a5994 button and label translation support added tz parents: 638 diff changeset	4499	self drawLabel.
29dcdf6a5994 button and label translation support added tz parents: 638 diff changeset	4500
1045 25d174d7b019 optimize: ca parents: 1044 diff changeset	4501	(ownBgCol notNil and:[isSelected]) ifTrue:[
1117 3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4502	ownBgCol brightness > 0.5 ifTrue:[menuPanel paint: menuPanel selectionFrameDarkColor]
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4503	ifFalse:[menuPanel paint: menuPanel selectionFrameBrightColor].
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4504
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4505	menuPanel displayRectangleX:(l + 1) y:(t + 1) width:(w - 2) height:(h - 2).
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4506	menuPanel displayRectangleX:(l + 2) y:(t + 2) width:(w - 4) height:(h - 4).
706 d716edbdbe47 show separators bug cleaned tz parents: 689 diff changeset	4507	].
d716edbdbe47 show separators bug cleaned tz parents: 689 diff changeset	4508
1081 fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	4509	menuPanel drawEdgesForX:l y:t width:w height:h isSelected:isSelected isEntered:isEntered.
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	4510
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	4511	"Modified: / 20.8.1998 / 15:11:33 / cg"
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4512	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	4513
dce33f8bb806 intitial checkin ca parents: diff changeset	4514	!MenuPanel::Item methodsFor:'initialization'!
dce33f8bb806 intitial checkin ca parents: diff changeset	4515
dce33f8bb806 intitial checkin ca parents: diff changeset	4516	destroy
616 a6157b083830 support of different styles ca parents: 608 diff changeset	4517	"destroy submenus, remove dependencies
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4518	"
616 a6157b083830 support of different styles ca parents: 608 diff changeset	4519	\|channel\|
a6157b083830 support of different styles ca parents: 608 diff changeset	4520
a6157b083830 support of different styles ca parents: 608 diff changeset	4521	self submenu:nil.
a6157b083830 support of different styles ca parents: 608 diff changeset	4522
1074 25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	4523	(enableChannel notNil and:[self isKindOfValueHolder:enableChannel]) ifTrue:[
1117 3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4524	enableChannel removeDependent:self
616 a6157b083830 support of different styles ca parents: 608 diff changeset	4525	].
a6157b083830 support of different styles ca parents: 608 diff changeset	4526
1074 25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	4527	(isVisible notNil and:[self isKindOfValueHolder:isVisible]) ifTrue:[
1117 3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4528	isVisible removeDependent:self
712 4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	4529	].
4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	4530
616 a6157b083830 support of different styles ca parents: 608 diff changeset	4531	channel := self indication.
1074 25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	4532	(channel notNil and:[self isKindOfValueHolder:channel]) ifTrue:[
1117 3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4533	channel removeDependent:self
1074 25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	4534	].
25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	4535	channel := self choice.
25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	4536	(channel notNil and:[self isKindOfValueHolder:channel]) ifTrue:[
1117 3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4537	channel removeDependent:self
616 a6157b083830 support of different styles ca parents: 608 diff changeset	4538	].
a6157b083830 support of different styles ca parents: 608 diff changeset	4539
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	4540	menuPanel := nil.
616 a6157b083830 support of different styles ca parents: 608 diff changeset	4541
1074 25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	4542	"Modified: / 14.8.1998 / 14:37:57 / cg"
616 a6157b083830 support of different styles ca parents: 608 diff changeset	4543	!
a6157b083830 support of different styles ca parents: 608 diff changeset	4544
794 5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	4545	in:aPanel
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	4546	"create item in a menuPanel
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	4547	"
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	4548	menuPanel := aPanel.
1045 25d174d7b019 optimize: ca parents: 1044 diff changeset	4549	isButton := false.
794 5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	4550	! !
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	4551
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	4552	!MenuPanel::Item methodsFor:'label basics'!
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	4553
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	4554	disabledRawLabel
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	4555	"returns the label used if the item is disabled
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	4556	"
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	4557	disabledRawLabel isNil ifTrue:[
1117 3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4558	( rawImage notNil
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4559	and:[(rawImage respondsTo:#colorMap)
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4560	and:[rawImage colorMap notNil]]
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4561	) ifFalse:[
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4562	disabledRawLabel := rawLabel.
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4563	] ifTrue:[
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4564	disabledRawLabel := menuPanel lightenedImageOnDevice:rawImage.
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4565
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4566	rawLabel class == LabelAndIcon ifTrue:[
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4567	(isButton
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4568	or:[((self indication notNil or:[self choice notNil])
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4569	and:[label class == LabelAndIcon])]
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4570	) ifTrue:[
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4571	disabledRawLabel := LabelAndIcon form:(rawLabel icon)
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4572	image:disabledRawLabel
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4573	string:(rawLabel string)
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4574	] ifFalse:[
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4575	disabledRawLabel := LabelAndIcon form:disabledRawLabel
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4576	image:(rawLabel image)
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4577	string:(rawLabel string)
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4578	]
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4579	]
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4580	]
794 5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	4581	].
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	4582	^ disabledRawLabel
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	4583	!
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	4584
616 a6157b083830 support of different styles ca parents: 608 diff changeset	4585	fetchImages
a6157b083830 support of different styles ca parents: 608 diff changeset	4586	"fetch images
a6157b083830 support of different styles ca parents: 608 diff changeset	4587	"
1078 3adf74275ebd support choice for buttons ca parents: 1076 diff changeset	4588	\|icon\|
3adf74275ebd support choice for buttons ca parents: 1076 diff changeset	4589
3adf74275ebd support choice for buttons ca parents: 1076 diff changeset	4590	rawImage notNil ifTrue:[
1117 3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4591	rawLabel isImage ifTrue:[
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4592	rawLabel := menuPanel imageOnDevice:rawImage
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4593	] ifFalse:[
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4594	rawLabel class == LabelAndIcon ifTrue:[
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4595	(icon := rawLabel image) notNil ifTrue:[
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4596	rawLabel image:(menuPanel imageOnDevice:icon)
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4597	].
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4598	(icon := rawLabel icon) notNil ifTrue:[
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4599	(self indication isNil and:[self choice isNil]) ifTrue:[
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4600	rawLabel icon:(menuPanel imageOnDevice:icon)
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4601	]
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4602	]
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4603	]
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4604	]
1048 a8755e51706d bug fixes: ca parents: 1046 diff changeset	4605	].
794 5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	4606	!
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	4607
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	4608	updateRawLabel
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	4609	"recreate rawLabel
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	4610	"
1078 3adf74275ebd support choice for buttons ca parents: 1076 diff changeset	4611	\|char size form\|
3adf74275ebd support choice for buttons ca parents: 1076 diff changeset	4612
3adf74275ebd support choice for buttons ca parents: 1076 diff changeset	4613	label isNil ifTrue:[ "/ not yet initialized
1117 3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4614	^ self
794 5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	4615	].
5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	4616
1078 3adf74275ebd support choice for buttons ca parents: 1076 diff changeset	4617	(form := self indicatorForm) isNil ifTrue:[
1117 3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4618	form := self choiceForm
794 5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	4619	].
1078 3adf74275ebd support choice for buttons ca parents: 1076 diff changeset	4620	rawImage := nil.
3adf74275ebd support choice for buttons ca parents: 1076 diff changeset	4621	disabledRawLabel := nil.
3adf74275ebd support choice for buttons ca parents: 1076 diff changeset	4622	rawLabel := label value.
3adf74275ebd support choice for buttons ca parents: 1076 diff changeset	4623
3adf74275ebd support choice for buttons ca parents: 1076 diff changeset	4624	rawLabel isString ifTrue:[
1117 3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4625	rawLabel isText ifFalse:[
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4626	rawLabel := rawLabel withoutSeparators
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4627	].
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4628
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4629	form isNil ifTrue:[ "/ check for separator
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4630	rawLabel isEmpty ifTrue:[
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4631	rawLabel := nil.
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4632	^ self
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4633	].
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4634
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4635	rawLabel size == 1 ifTrue:[
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4636	char := rawLabel first.
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4637
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4638	(char == $- or:[char == $=]) ifTrue:[ "/ other line separators
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4639	label := String new:1.
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4640	label at:1 put:char.
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4641	rawLabel := nil.
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4642	^ self
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4643	]
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4644	]
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4645	].
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4646	rawLabel isEmpty ifTrue:[
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4647	rawLabel := label value
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4648	].
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4649	size := self accessCharacterPosition.
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4650
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4651	(size notNil and:[size <= rawLabel size]) ifTrue:[
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4652	rawLabel isText ifFalse:[
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4653	rawLabel := Text string:rawLabel
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4654	].
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4655	rawLabel emphasisAt:size add:#underline
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4656	]
1078 3adf74275ebd support choice for buttons ca parents: 1076 diff changeset	4657	].
3adf74275ebd support choice for buttons ca parents: 1076 diff changeset	4658	rawLabel isImage ifTrue:[
1117 3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4659	rawImage := rawLabel.
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4660
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4661	form notNil ifTrue:[
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4662	isButton ifTrue:[form := nil].
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4663	rawLabel := LabelAndIcon form:form image:rawImage.
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4664	]
794 5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	4665	] ifFalse:[
1117 3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4666	rawLabel class == LabelAndIcon ifTrue:[
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4667	rawImage := rawLabel icon.
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4668
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4669	(form notNil and:[isButton not]) ifTrue:[
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4670	rawLabel image:rawImage.
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4671	rawLabel icon:form
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4672	]
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4673	] ifFalse:[
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4674	rawImage := nil.
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4675	rawLabel isNil ifTrue:[rawLabel := ''].
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4676
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4677	(form notNil and:[isButton not]) ifTrue:[
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4678	rawLabel := LabelAndIcon icon:form string:rawLabel.
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4679	] ifFalse:[
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4680	disabledRawLabel := rawLabel.
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4681	]
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4682	].
794 5ac9de4f5c82 basic routine to access the images; at the moment ca parents: 781 diff changeset	4683	].
1078 3adf74275ebd support choice for buttons ca parents: 1076 diff changeset	4684	menuPanel shown ifTrue:[ self fetchImages ].
3adf74275ebd support choice for buttons ca parents: 1076 diff changeset	4685	menuPanel mustRearrange
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4686	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	4687
1573 fd124ee2bce5 shortcutKeys; arrange layout if selection changed ca parents: 1572 diff changeset	4688	!MenuPanel::Item methodsFor:'printing & storing'!
fd124ee2bce5 shortcutKeys; arrange layout if selection changed ca parents: 1572 diff changeset	4689
fd124ee2bce5 shortcutKeys; arrange layout if selection changed ca parents: 1572 diff changeset	4690	displayString
fd124ee2bce5 shortcutKeys; arrange layout if selection changed ca parents: 1572 diff changeset	4691	^ self class name, '[', (label ? ''), ']'
fd124ee2bce5 shortcutKeys; arrange layout if selection changed ca parents: 1572 diff changeset	4692	! !
fd124ee2bce5 shortcutKeys; arrange layout if selection changed ca parents: 1572 diff changeset	4693
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4694	!MenuPanel::Item methodsFor:'private'!
dce33f8bb806 intitial checkin ca parents: diff changeset	4695
650 29dcdf6a5994 button and label translation support added tz parents: 638 diff changeset	4696	activeBackgroundColor
29dcdf6a5994 button and label translation support added tz parents: 638 diff changeset	4697	"returns the active background color derived from menuPanel
29dcdf6a5994 button and label translation support added tz parents: 638 diff changeset	4698	"
29dcdf6a5994 button and label translation support added tz parents: 638 diff changeset	4699
1045 25d174d7b019 optimize: ca parents: 1044 diff changeset	4700	isButton ifTrue: [^menuPanel buttonActiveBackgroundColor].
650 29dcdf6a5994 button and label translation support added tz parents: 638 diff changeset	4701	^menuPanel activeBackgroundColor
29dcdf6a5994 button and label translation support added tz parents: 638 diff changeset	4702	!
29dcdf6a5994 button and label translation support added tz parents: 638 diff changeset	4703
29dcdf6a5994 button and label translation support added tz parents: 638 diff changeset	4704	activeForegroundColor
29dcdf6a5994 button and label translation support added tz parents: 638 diff changeset	4705	"returns the active foreground color derived from menuPanel
29dcdf6a5994 button and label translation support added tz parents: 638 diff changeset	4706	"
29dcdf6a5994 button and label translation support added tz parents: 638 diff changeset	4707
29dcdf6a5994 button and label translation support added tz parents: 638 diff changeset	4708	^menuPanel activeForegroundColor
29dcdf6a5994 button and label translation support added tz parents: 638 diff changeset	4709	!
29dcdf6a5994 button and label translation support added tz parents: 638 diff changeset	4710
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4711	adornment
dce33f8bb806 intitial checkin ca parents: diff changeset	4712	"returns adornment; if not existing yet a new instance
dce33f8bb806 intitial checkin ca parents: diff changeset	4713	is created
dce33f8bb806 intitial checkin ca parents: diff changeset	4714	"
dce33f8bb806 intitial checkin ca parents: diff changeset	4715	adornment isNil ifTrue:[
1117 3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4716	adornment := Adornment new
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4717	].
dce33f8bb806 intitial checkin ca parents: diff changeset	4718	^ adornment
dce33f8bb806 intitial checkin ca parents: diff changeset	4719	!
dce33f8bb806 intitial checkin ca parents: diff changeset	4720
727 3ba54333342a button style from style sheet tz parents: 723 diff changeset	4721	backgroundColor
3ba54333342a button style from style sheet tz parents: 723 diff changeset	4722	"returns the background color derived from menuPanel
3ba54333342a button style from style sheet tz parents: 723 diff changeset	4723	"
3ba54333342a button style from style sheet tz parents: 723 diff changeset	4724
1045 25d174d7b019 optimize: ca parents: 1044 diff changeset	4725	isButton ifTrue: [^menuPanel buttonPassiveBackgroundColor].
727 3ba54333342a button style from style sheet tz parents: 723 diff changeset	4726	^menuPanel backgroundColor
3ba54333342a button style from style sheet tz parents: 723 diff changeset	4727	!
3ba54333342a button style from style sheet tz parents: 723 diff changeset	4728
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	4729	backgroundColorFromLabel
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	4730	"returns the background color derived from label or nil
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4731	"
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	4732	\|run\|
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	4733
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	4734	label isText ifFalse:[^ nil ].
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	4735	run := label emphasis.
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	4736	run size == 0 ifTrue:[^ nil ].
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	4737
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	4738	run := run first.
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	4739
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	4740	run size == 0 ifTrue:[
1117 3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4741	(run value isColor and:[run key == #backgroundColor]) ifTrue:[
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4742	^ run value
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4743	]
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	4744	] ifFalse:[
1117 3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4745	run do:[:r\|
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4746	(r value isColor and:[r key == #backgroundColor]) ifTrue:[
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4747	^ r value
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4748	]
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4749	]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4750	].
dce33f8bb806 intitial checkin ca parents: diff changeset	4751	^ nil
dce33f8bb806 intitial checkin ca parents: diff changeset	4752	!
dce33f8bb806 intitial checkin ca parents: diff changeset	4753
1081 fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	4754	buttonEnteredBackgroundColor
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	4755	"returns the background color to use when thhe mouse has entered
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	4756	derived from menuPanel
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	4757	"
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	4758
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	4759	isButton ifTrue: [^ menuPanel buttonEnteredBackgroundColor].
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	4760	^ menuPanel backgroundColor
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	4761
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	4762	"Created: / 20.8.1998 / 13:56:10 / cg"
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	4763	!
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	4764
1074 25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	4765	choiceForm
25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	4766	"returns choice form or nil
25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	4767	"
25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	4768	\|holder\|
25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	4769
25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	4770	(holder := self choice) isNil ifTrue:[^ nil].
1078 3adf74275ebd support choice for buttons ca parents: 1076 diff changeset	4771
1107 0ace8de67a4e better styled round choice images + test choice values only for #= tz parents: 1101 diff changeset	4772	holder value = self choiceValue ifTrue:[
1117 3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4773	^ self class checkOnIcon
1078 3adf74275ebd support choice for buttons ca parents: 1076 diff changeset	4774	].
3adf74275ebd support choice for buttons ca parents: 1076 diff changeset	4775	^ self class checkOffIcon
1074 25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	4776	!
25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	4777
663 b418df6b72d8 retrive submenu: ca parents: 661 diff changeset	4778	findSubMenuIn:aRecv
1051 a448c854fcbb catch messageNotUnderstood for #aspectFor: Claus Gittinger <cg@exept.de> parents: 1048 diff changeset	4779	"ask the receiver for a submenu aspect, sending it
a448c854fcbb catch messageNotUnderstood for #aspectFor: Claus Gittinger <cg@exept.de> parents: 1048 diff changeset	4780	#aspectFor: first; then trying the selector itself.
a448c854fcbb catch messageNotUnderstood for #aspectFor: Claus Gittinger <cg@exept.de> parents: 1048 diff changeset	4781	Ignore the error if that message is not understood
a448c854fcbb catch messageNotUnderstood for #aspectFor: Claus Gittinger <cg@exept.de> parents: 1048 diff changeset	4782	(but not other message-not-understoods)"
a448c854fcbb catch messageNotUnderstood for #aspectFor: Claus Gittinger <cg@exept.de> parents: 1048 diff changeset	4783
890 28c4470c6858 dont catch all messageNotUnderstoods Claus Gittinger <cg@exept.de> parents: 879 diff changeset	4784	\|subm argument sel\|
663 b418df6b72d8 retrive submenu: ca parents: 661 diff changeset	4785
b418df6b72d8 retrive submenu: ca parents: 661 diff changeset	4786	subm := nil.
b418df6b72d8 retrive submenu: ca parents: 661 diff changeset	4787
b418df6b72d8 retrive submenu: ca parents: 661 diff changeset	4788	aRecv notNil ifTrue:[
1117 3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4789	submenuChannel last ~~ $: ifTrue:[
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4790	Object messageNotUnderstoodSignal handle:[:ex\|
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4791	\|selector\|
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4792
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4793	((selector := ex parameter selector) == submenuChannel
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4794	or:[selector == #aspectFor:]) ifFalse:[
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4795	ex reject
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4796	].
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4797	] do:[
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4798	subm := aRecv aspectFor:submenuChannel
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4799	].
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4800	subm isNil ifTrue:[
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4801	Object messageNotUnderstoodSignal handle:[:ex\|
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4802	ex parameter selector == submenuChannel ifFalse:[
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4803	ex reject
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4804	].
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4805	] do:[
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4806	subm := aRecv perform:submenuChannel
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4807	]
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4808	].
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4809	subm isNil ifTrue:[
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4810	Object messageNotUnderstoodSignal handle:[:ex\|
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4811	ex parameter selector == submenuChannel ifFalse:[
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4812	ex reject
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4813	].
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4814	] do:[
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4815	subm := aRecv class perform:submenuChannel
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4816	]
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4817	]
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4818	] ifFalse:[
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4819	(argument := self argument) notNil ifTrue:[
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4820	sel := submenuChannel asSymbol.
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4821	Object messageNotUnderstoodSignal handle:[:ex\|
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4822	ex parameter selector == sel ifFalse:[
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4823	ex reject
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4824	].
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4825	] do:[
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4826	subm := aRecv perform:sel with:argument
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4827	].
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4828
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4829	subm isNil ifTrue:[
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4830	Object messageNotUnderstoodSignal handle:[:ex\|
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4831	ex parameter selector == sel ifFalse:[
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4832	ex reject
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4833	].
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4834	] do:[
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4835	subm := aRecv class perform:sel with:argument
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4836	]
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4837	]
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4838	]
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4839	]
663 b418df6b72d8 retrive submenu: ca parents: 661 diff changeset	4840	].
b418df6b72d8 retrive submenu: ca parents: 661 diff changeset	4841	^ subm
b418df6b72d8 retrive submenu: ca parents: 661 diff changeset	4842
1051 a448c854fcbb catch messageNotUnderstood for #aspectFor: Claus Gittinger <cg@exept.de> parents: 1048 diff changeset	4843	"Modified: / 4.8.1998 / 17:40:09 / cg"
663 b418df6b72d8 retrive submenu: ca parents: 661 diff changeset	4844	!
b418df6b72d8 retrive submenu: ca parents: 661 diff changeset	4845
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	4846	indicationValue
524 d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	4847	"returns indication value or nil in case of no indication
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	4848	"
608 0d8d910768af use default font derived from style ca parents: 601 diff changeset	4849	\|indication numArgs sel recv\|
524 d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	4850
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	4851	(indication := self indication) isNil ifTrue:[
1368 eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	4852	^ nil "/ has no indication
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	4853	].
524 d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	4854
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	4855	indication isSymbol ifTrue:[
1368 eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	4856	(numArgs := indication numArgs) ~~ 0 ifTrue:[
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	4857	numArgs == 2 ifTrue:[
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	4858	recv := menuPanel receiver.
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	4859
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	4860	(recv isValueModel) ifFalse:[
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	4861	(recv notNil or:[(recv := menuPanel application) notNil]) ifTrue:[
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	4862	sel := indication copyFrom:1 to:(indication indexOf:$:).
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	4863	indication := nil.
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	4864	sel := sel asSymbol.
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	4865
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	4866	Object messageNotUnderstoodSignal handle:[:ex\|
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	4867	ex parameter selector == sel ifFalse:[
1063 08b7ca464437 dont show accelerators for horizontal layouts Claus Gittinger <cg@exept.de> parents: 1054 diff changeset	4868	"/ Transcript showCR:'no indication for: ' , sel.
1368 eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	4869	ex reject
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	4870	].
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	4871	] do:[
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	4872	indication := recv perform:sel with:self argument
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	4873	]
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	4874	].
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	4875	].
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	4876	^ indication value == true
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	4877	].
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	4878	indication := (indication copyWithoutLast:1) asSymbol
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	4879	].
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	4880	indication := self aspectAt:indication.
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	4881
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	4882	(self isKindOfValueHolder:indication) ifTrue:[
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	4883	self adornment indication:indication.
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	4884	indication addDependent:self.
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	4885	]
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	4886	].
524 d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	4887	^ indication value == true
1029 c9e90585fa89 only ignore messageNotUnderstood for my aspects. Claus Gittinger <cg@exept.de> parents: 1026 diff changeset	4888
1063 08b7ca464437 dont show accelerators for horizontal layouts Claus Gittinger <cg@exept.de> parents: 1054 diff changeset	4889	"Modified: / 8.8.1998 / 02:15:15 / cg"
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	4890	!
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	4891
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	4892	indicationValue:aValue
1218 6ce43fcb2603 code cleanup Claus Gittinger <cg@exept.de> parents: 1217 diff changeset	4893	"set the indication value
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	4894	"
608 0d8d910768af use default font derived from style ca parents: 601 diff changeset	4895	\|numArgs indication recv\|
524 d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	4896
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	4897	(indication := self indication) isNil ifTrue:[
1368 eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	4898	^ self "/ has no indication
524 d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	4899	].
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	4900
d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	4901	indication isSymbol ifFalse:[
1368 eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	4902	(indication respondsTo:#value:) ifTrue:[ "/ valueHolder or block
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	4903	indication value:aValue
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	4904	].
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	4905	^ self
1218 6ce43fcb2603 code cleanup Claus Gittinger <cg@exept.de> parents: 1217 diff changeset	4906	].
6ce43fcb2603 code cleanup Claus Gittinger <cg@exept.de> parents: 1217 diff changeset	4907
524 d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	4908	recv := menuPanel receiver.
1218 6ce43fcb2603 code cleanup Claus Gittinger <cg@exept.de> parents: 1217 diff changeset	4909	recv isNil ifTrue:[
1368 eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	4910	recv := menuPanel application.
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	4911	recv isNil ifTrue:[^ self].
1218 6ce43fcb2603 code cleanup Claus Gittinger <cg@exept.de> parents: 1217 diff changeset	4912	].
6ce43fcb2603 code cleanup Claus Gittinger <cg@exept.de> parents: 1217 diff changeset	4913
6ce43fcb2603 code cleanup Claus Gittinger <cg@exept.de> parents: 1217 diff changeset	4914	(numArgs := indication numArgs) ~~ 0 ifTrue:[
1368 eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	4915	Object messageNotUnderstoodSignal handle:[:ex\|
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	4916	(ex parameter selector ~~ indication) ifTrue:[
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	4917	ex reject
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	4918	]
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	4919	] do:[
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	4920	numArgs == 1 ifTrue:[
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	4921	recv perform:indication with:aValue
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	4922	] ifFalse:[
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	4923	recv perform:indication with:(self argument ? self) with:aValue
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	4924	]
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	4925	]
524 d602402ce5ae receiver might be a ValueModel; VW ca parents: 510 diff changeset	4926	].
1026 29bd433b27d3 dont catch too many errors - it makes debugging so hard. Claus Gittinger <cg@exept.de> parents: 1024 diff changeset	4927
29bd433b27d3 dont catch too many errors - it makes debugging so hard. Claus Gittinger <cg@exept.de> parents: 1024 diff changeset	4928	"Modified: / 28.7.1998 / 20:47:08 / cg"
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	4929	!
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	4930
1074 25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	4931	indicatorForm
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	4932	"returns indication form or nil
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	4933	"
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	4934	\|value\|
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	4935
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	4936	(value := self indicationValue) isNil ifTrue:[
1117 3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4937	^ nil
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	4938	].
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	4939	^ value ifTrue:[IndicatorOn] ifFalse:[IndicatorOff]
1074 25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	4940
25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	4941	"Created: / 14.8.1998 / 15:53:53 / cg"
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	4942	!
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	4943
1081 fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	4944	isEntered
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	4945	"returns true if the mouse pointer is over the item
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	4946	"
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	4947	^ menuPanel enteredItem == self
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	4948
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	4949	"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	4950	!
fd67c198eeea added enter/leave processing for enteredLevel/enteredBG processing. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	4951
1130 fb79ef4aeec8 style changes Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	4952	reinitSubmenuStyle
fb79ef4aeec8 style changes Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	4953	"returns my submenu or nil
fb79ef4aeec8 style changes Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	4954	"
fb79ef4aeec8 style changes Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	4955	subMenu notNil ifTrue:[
1368 eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	4956	subMenu reinitStyle
1130 fb79ef4aeec8 style changes Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	4957	].
fb79ef4aeec8 style changes Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	4958
fb79ef4aeec8 style changes Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	4959	"Created: / 10.9.1998 / 21:36:09 / cg"
fb79ef4aeec8 style changes Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	4960	!
fb79ef4aeec8 style changes Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	4961
464 a788fdce92e2 add submenuChannel ca parents: 461 diff changeset	4962	separatorType
a788fdce92e2 add submenuChannel ca parents: 461 diff changeset	4963	"returns type of separator line or nil
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4964	"
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	4965	\|c lbl\|
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4966
dce33f8bb806 intitial checkin ca parents: diff changeset	4967	rawLabel isNil ifFalse:[
1117 3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4968	^ nil
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4969	].
dce33f8bb806 intitial checkin ca parents: diff changeset	4970
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	4971	(lbl := label value) isNil ifTrue:[
1117 3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4972	^ #singleLine
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4973	].
dce33f8bb806 intitial checkin ca parents: diff changeset	4974
390 a0cf1f90da2c enabled and style ca parents: 389 diff changeset	4975	lbl size == 1 ifTrue:[
1117 3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4976	c := lbl first.
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4977	c == $- ifTrue:[^ #singleLine].
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	4978	c == $= ifTrue:[^ #doubleLine].
388 dce33f8bb806 intitial checkin ca parents: diff changeset	4979	].
dce33f8bb806 intitial checkin ca parents: diff changeset	4980	^ #blankLine
1130 fb79ef4aeec8 style changes Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	4981	!
fb79ef4aeec8 style changes Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	4982
fb79ef4aeec8 style changes Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	4983	setupSubmenu
fb79ef4aeec8 style changes Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	4984	\|appl recv subm\|
fb79ef4aeec8 style changes Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	4985
fb79ef4aeec8 style changes Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	4986	submenuChannel notNil ifTrue:[
fb79ef4aeec8 style changes Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	4987	submenuChannel isSymbol ifFalse:[
fb79ef4aeec8 style changes Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	4988	subm := submenuChannel
fb79ef4aeec8 style changes Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	4989	] ifTrue:[
fb79ef4aeec8 style changes Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	4990	appl := menuPanel application.
fb79ef4aeec8 style changes Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	4991
fb79ef4aeec8 style changes Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	4992	(subm := self findSubMenuIn:appl) isNil ifTrue:[
fb79ef4aeec8 style changes Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	4993	(recv := menuPanel receiver) ~~ appl ifTrue:[
fb79ef4aeec8 style changes Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	4994	subm := self findSubMenuIn:recv
fb79ef4aeec8 style changes Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	4995	]
fb79ef4aeec8 style changes Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	4996	]
fb79ef4aeec8 style changes Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	4997	].
fb79ef4aeec8 style changes Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	4998
fb79ef4aeec8 style changes Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	4999	(subm := subm value) isArray ifTrue:[
fb79ef4aeec8 style changes Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	5000	subm := Menu new fromLiteralArrayEncoding:subm.
fb79ef4aeec8 style changes Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	5001	"/ cg: linked menus also may contain translations ...
fb79ef4aeec8 style changes Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	5002	subm notNil ifTrue:[
fb79ef4aeec8 style changes Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	5003	appl notNil ifTrue:[
fb79ef4aeec8 style changes Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	5004	subm findGuiResourcesIn:appl.
fb79ef4aeec8 style changes Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	5005	]
fb79ef4aeec8 style changes Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	5006	].
fb79ef4aeec8 style changes Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	5007	].
fb79ef4aeec8 style changes Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	5008	self submenu:subm.
fb79ef4aeec8 style changes Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	5009	].
fb79ef4aeec8 style changes Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	5010
fb79ef4aeec8 style changes Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	5011	^ subMenu
fb79ef4aeec8 style changes Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	5012
fb79ef4aeec8 style changes Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	5013	"Modified: / 19.5.1998 / 19:36:56 / cg"
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5014	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	5015
dce33f8bb806 intitial checkin ca parents: diff changeset	5016	!MenuPanel::Item methodsFor:'queries'!
dce33f8bb806 intitial checkin ca parents: diff changeset	5017
1217 c6a4c536aa8c care for items which change visibility via Claus Gittinger <cg@exept.de> parents: 1212 diff changeset	5018	canChangeVisibility
c6a4c536aa8c care for items which change visibility via Claus Gittinger <cg@exept.de> parents: 1212 diff changeset	5019	"return true if I am not always visible
c6a4c536aa8c care for items which change visibility via Claus Gittinger <cg@exept.de> parents: 1212 diff changeset	5020	"
c6a4c536aa8c care for items which change visibility via Claus Gittinger <cg@exept.de> parents: 1212 diff changeset	5021
c6a4c536aa8c care for items which change visibility via Claus Gittinger <cg@exept.de> parents: 1212 diff changeset	5022	^ isVisible notNil and:[isVisible ~~ true]
c6a4c536aa8c care for items which change visibility via Claus Gittinger <cg@exept.de> parents: 1212 diff changeset	5023	!
c6a4c536aa8c care for items which change visibility via Claus Gittinger <cg@exept.de> parents: 1212 diff changeset	5024
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5025	canSelect
dce33f8bb806 intitial checkin ca parents: diff changeset	5026	"returns true if item is selectable
dce33f8bb806 intitial checkin ca parents: diff changeset	5027	"
1078 3adf74275ebd support choice for buttons ca parents: 1076 diff changeset	5028	\|holder\|
3adf74275ebd support choice for buttons ca parents: 1076 diff changeset	5029
3adf74275ebd support choice for buttons ca parents: 1076 diff changeset	5030	(self isVisible and:[self enabled and:[rawLabel notNil]]) ifTrue:[
1117 3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	5031	((holder := self choice) isNil or:[holder value ~= self choiceValue]) ifTrue:[
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	5032	^ true
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	5033	].
1078 3adf74275ebd support choice for buttons ca parents: 1076 diff changeset	5034	].
3adf74275ebd support choice for buttons ca parents: 1076 diff changeset	5035	^ false
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5036	!
dce33f8bb806 intitial checkin ca parents: diff changeset	5037
dce33f8bb806 intitial checkin ca parents: diff changeset	5038	containsPointX:x y:y
dce33f8bb806 intitial checkin ca parents: diff changeset	5039	"returns true if point is contained in my layout
dce33f8bb806 intitial checkin ca parents: diff changeset	5040	"
712 4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	5041	(self isVisible and:[layout notNil]) ifTrue:[
1117 3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	5042	^ ( (x >= layout left)
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	5043	and:[x < layout right
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	5044	and:[y > layout top
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	5045	and:[y <= layout bottom]]]
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	5046	)
505 562d5661a855 check for valid layout ca parents: 502 diff changeset	5047	].
562d5661a855 check for valid layout ca parents: 502 diff changeset	5048	^ false
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5049	!
dce33f8bb806 intitial checkin ca parents: diff changeset	5050
1074 25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	5051	hasChoice
25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	5052	"returns true if a choice indication (RadioButton) exists
25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	5053	"
25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	5054	^ self choice notNil
25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	5055
25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	5056	"Created: / 14.8.1998 / 14:38:20 / cg"
25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	5057	!
25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	5058
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	5059	hasIndication
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	5060	"returns true if on/off indication exists
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	5061	"
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	5062	^ self indication notNil
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	5063	!
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	5064
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5065	hasSubmenu
1473 1f62652f146e use hasSubmenu insteat of submenu if possible; Claus Gittinger <cg@exept.de> parents: 1472 diff changeset	5066	"returns true if the item is configured as an subMenu entry
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5067	"
1472 fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	5068	^ subMenu notNil or:[submenuChannel notNil]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5069	!
dce33f8bb806 intitial checkin ca parents: diff changeset	5070
dce33f8bb806 intitial checkin ca parents: diff changeset	5071	isEnabled
dce33f8bb806 intitial checkin ca parents: diff changeset	5072	"returns enabled state
dce33f8bb806 intitial checkin ca parents: diff changeset	5073	"
dce33f8bb806 intitial checkin ca parents: diff changeset	5074	^ self enabled
dce33f8bb806 intitial checkin ca parents: diff changeset	5075	!
dce33f8bb806 intitial checkin ca parents: diff changeset	5076
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	5077	isKindOfValueHolder:something
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	5078	"returns true if something is kind of vlaue holder
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	5079	"
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	5080	^ ((something respondsTo:#value:) and:[something isBlock not])
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	5081
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	5082
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	5083
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	5084
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	5085
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	5086	!
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	5087
608 0d8d910768af use default font derived from style ca parents: 601 diff changeset	5088	isSeparator
0d8d910768af use default font derived from style ca parents: 601 diff changeset	5089	"returns true if item is a separator
0d8d910768af use default font derived from style ca parents: 601 diff changeset	5090	"
0d8d910768af use default font derived from style ca parents: 601 diff changeset	5091	^ rawLabel isNil
0d8d910768af use default font derived from style ca parents: 601 diff changeset	5092	!
0d8d910768af use default font derived from style ca parents: 601 diff changeset	5093
712 4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	5094	isVisible
4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	5095	"returns the visibility state
4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	5096	"
4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	5097	\|state\|
4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	5098
4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	5099	isVisible isSymbol ifTrue:[
1368 eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	5100	state := self aspectAt:isVisible.
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	5101
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	5102	(self isKindOfValueHolder:state) ifTrue:[
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	5103	isVisible := state.
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	5104	isVisible addDependent:self.
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	5105	state := isVisible.
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	5106	]
712 4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	5107	] ifFalse:[
1368 eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	5108	state := isVisible
1164 e6e9633abf48 kludge fix: invoke mustRearrange to care for block-visibility attributes Claus Gittinger <cg@exept.de> parents: 1156 diff changeset	5109	].
e6e9633abf48 kludge fix: invoke mustRearrange to care for block-visibility attributes Claus Gittinger <cg@exept.de> parents: 1156 diff changeset	5110	^ state value ~~ false
e6e9633abf48 kludge fix: invoke mustRearrange to care for block-visibility attributes Claus Gittinger <cg@exept.de> parents: 1156 diff changeset	5111
e6e9633abf48 kludge fix: invoke mustRearrange to care for block-visibility attributes Claus Gittinger <cg@exept.de> parents: 1156 diff changeset	5112	"Modified: / 5.10.1998 / 12:08:28 / cg"
712 4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	5113	!
4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	5114
4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	5115	isVisible:something
4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	5116	"change the state; if the state changed, a redraw is performed
4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	5117	"
4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	5118	\|oldState newState\|
4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	5119
4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	5120	isVisible isNil ifTrue:[
1368 eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	5121	oldState := true
712 4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	5122	] ifFalse:[
1368 eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	5123	oldState := isVisible value.
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	5124	(self isKindOfValueHolder:isVisible) ifTrue:[
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	5125	isVisible removeDependent:self
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	5126	]
712 4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	5127	].
4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	5128	isVisible := something.
4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	5129
4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	5130	isVisible isNil ifTrue:[
1368 eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	5131	newState := true
712 4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	5132	] ifFalse:[
1368 eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	5133	(self isKindOfValueHolder:isVisible) ifTrue:[
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	5134	isVisible addDependent:self
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	5135	] ifFalse:[
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	5136	isVisible isSymbol ifTrue:[^ self]
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	5137	].
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	5138	menuPanel shown ifFalse:[^ self].
eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	5139	newState := isVisible value.
712 4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	5140	].
4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	5141
4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	5142	newState ~~ oldState ifTrue:[
1368 eb9b2f411240 redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	5143	menuPanel mustRearrange
712 4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	5144	]
1164 e6e9633abf48 kludge fix: invoke mustRearrange to care for block-visibility attributes Claus Gittinger <cg@exept.de> parents: 1156 diff changeset	5145
e6e9633abf48 kludge fix: invoke mustRearrange to care for block-visibility attributes Claus Gittinger <cg@exept.de> parents: 1156 diff changeset	5146	"Modified: / 5.10.1998 / 12:12:04 / cg"
712 4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	5147	!
4167a3f39bff support of visible/invisible items ca parents: 711 diff changeset	5148
1096 6ab44a6939bf checkin from browser Claus Gittinger <cg@exept.de> parents: 1095 diff changeset	5149	preferredExtent
6ab44a6939bf checkin from browser Claus Gittinger <cg@exept.de> parents: 1095 diff changeset	5150	"compute my preferred extent
6ab44a6939bf checkin from browser Claus Gittinger <cg@exept.de> parents: 1095 diff changeset	5151	"
6ab44a6939bf checkin from browser Claus Gittinger <cg@exept.de> parents: 1095 diff changeset	5152	\|x y s isVertical sepSize\|
6ab44a6939bf checkin from browser Claus Gittinger <cg@exept.de> parents: 1095 diff changeset	5153
6ab44a6939bf checkin from browser Claus Gittinger <cg@exept.de> parents: 1095 diff changeset	5154	self isVisible ifFalse:[^ (0 @ 0) ].
6ab44a6939bf checkin from browser Claus Gittinger <cg@exept.de> parents: 1095 diff changeset	5155
6ab44a6939bf checkin from browser Claus Gittinger <cg@exept.de> parents: 1095 diff changeset	5156	x := self horizontalInset * 2.
6ab44a6939bf checkin from browser Claus Gittinger <cg@exept.de> parents: 1095 diff changeset	5157	y := self verticalInset * 2.
6ab44a6939bf checkin from browser Claus Gittinger <cg@exept.de> parents: 1095 diff changeset	5158
6ab44a6939bf checkin from browser Claus Gittinger <cg@exept.de> parents: 1095 diff changeset	5159	isVertical := menuPanel verticalLayout.
6ab44a6939bf checkin from browser Claus Gittinger <cg@exept.de> parents: 1095 diff changeset	5160
6ab44a6939bf checkin from browser Claus Gittinger <cg@exept.de> parents: 1095 diff changeset	5161	self isSeparator ifFalse:[
1472 fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	5162	x := x + (rawLabel widthOn:menuPanel).
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	5163	y := y + (rawLabel heightOn:menuPanel).
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	5164
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	5165	MenuView showAcceleratorKeys == true ifTrue:[
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	5166	isVertical ifTrue:[ "/ only for vertical menus ...
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	5167	(s := self shortcutKeyAsString) notNil ifTrue:[
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	5168	x := x + LabelRightOffset + (s widthOn:menuPanel)
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	5169	].
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	5170	].
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	5171	].
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	5172	(isVertical and:[self hasSubmenu]) ifTrue:[
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	5173	x := x + menuPanel subMenuIndicationWidth.
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	5174
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	5175	s notNil ifTrue:[x := x + ShortcutKeyOffset]
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	5176	ifFalse:[x := x + LabelRightOffset]
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	5177	].
1096 6ab44a6939bf checkin from browser Claus Gittinger <cg@exept.de> parents: 1095 diff changeset	5178	] ifTrue:[
6ab44a6939bf checkin from browser Claus Gittinger <cg@exept.de> parents: 1095 diff changeset	5179
1472 fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	5180	sepSize := (self class separatorSize:(self separatorType)).
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	5181	isVertical ifFalse:[
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	5182	x := x max:sepSize.
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	5183	y := y + (menuPanel font height)
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	5184	] ifTrue:[
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	5185	y := y max:sepSize
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	5186	].
1096 6ab44a6939bf checkin from browser Claus Gittinger <cg@exept.de> parents: 1095 diff changeset	5187	].
6ab44a6939bf checkin from browser Claus Gittinger <cg@exept.de> parents: 1095 diff changeset	5188
6ab44a6939bf checkin from browser Claus Gittinger <cg@exept.de> parents: 1095 diff changeset	5189	^ (x @ y)
6ab44a6939bf checkin from browser Claus Gittinger <cg@exept.de> parents: 1095 diff changeset	5190
6ab44a6939bf checkin from browser Claus Gittinger <cg@exept.de> parents: 1095 diff changeset	5191	"Modified: / 8.8.1998 / 01:38:26 / cg"
6ab44a6939bf checkin from browser Claus Gittinger <cg@exept.de> parents: 1095 diff changeset	5192	!
6ab44a6939bf checkin from browser Claus Gittinger <cg@exept.de> parents: 1095 diff changeset	5193
6ab44a6939bf checkin from browser Claus Gittinger <cg@exept.de> parents: 1095 diff changeset	5194	preferredExtentX
6ab44a6939bf checkin from browser Claus Gittinger <cg@exept.de> parents: 1095 diff changeset	5195	"compute my preferred extent x
6ab44a6939bf checkin from browser Claus Gittinger <cg@exept.de> parents: 1095 diff changeset	5196	"
6ab44a6939bf checkin from browser Claus Gittinger <cg@exept.de> parents: 1095 diff changeset	5197	^ self preferredExtent x
6ab44a6939bf checkin from browser Claus Gittinger <cg@exept.de> parents: 1095 diff changeset	5198
6ab44a6939bf checkin from browser Claus Gittinger <cg@exept.de> parents: 1095 diff changeset	5199	!
6ab44a6939bf checkin from browser Claus Gittinger <cg@exept.de> parents: 1095 diff changeset	5200
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5201	shortcutKeyAsString
dce33f8bb806 intitial checkin ca parents: diff changeset	5202	"converts shortcutKey to a text object
dce33f8bb806 intitial checkin ca parents: diff changeset	5203	"
987 541dff179cc2 checkin from browser Claus Gittinger <cg@exept.de> parents: 984 diff changeset	5204	\|nm key prefix\|
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5205
dce33f8bb806 intitial checkin ca parents: diff changeset	5206	(key := self shortcutKey) isNil ifTrue:[
1117 3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	5207	^ nil
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5208	].
dce33f8bb806 intitial checkin ca parents: diff changeset	5209
dce33f8bb806 intitial checkin ca parents: diff changeset	5210	key isCharacter ifTrue:[
1117 3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	5211	nm := key asString
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5212	] ifFalse:[
1117 3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	5213	"/ this is somewhat complicated: we have the symbolic key at hand,
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	5214	"/ but want to show the untranslated (inverse keyBoardMapped) key & modifier
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	5215	"/ Ask the devices keyboardMap for the backtranslation.
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	5216
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	5217	nm := menuPanel device keyboardMap keyAtValue:key ifAbsent:key.
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	5218	"/
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	5219	"/ some modifier-key combination ?
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	5220	"/
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	5221	(nm startsWith:#Cmd) ifTrue:[
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	5222	prefix := #Cmd.
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	5223	] ifFalse:[(nm startsWith:#Alt) ifTrue:[
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	5224	prefix := #Alt.
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	5225	] ifFalse:[(nm startsWith:#Meta) ifTrue:[
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	5226	prefix := #Meta.
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	5227	] ifFalse:[(nm startsWith:#Ctrl) ifTrue:[
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	5228	prefix := #Ctrl.
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	5229	]]]].
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	5230	prefix notNil ifTrue:[
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	5231	nm := (self shortcutKeyPrefixFor:prefix), (nm copyFrom:(prefix size + 1))
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	5232	] ifFalse:[
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	5233	nm := nm asString
3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	5234	]
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5235	].
608 0d8d910768af use default font derived from style ca parents: 601 diff changeset	5236	^ nm
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5237
987 541dff179cc2 checkin from browser Claus Gittinger <cg@exept.de> parents: 984 diff changeset	5238	"Modified: / 17.7.1998 / 11:56:40 / cg"
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5239	!
dce33f8bb806 intitial checkin ca parents: diff changeset	5240
dce33f8bb806 intitial checkin ca parents: diff changeset	5241	shortcutKeyPrefixFor:aModifier
dce33f8bb806 intitial checkin ca parents: diff changeset	5242	"returns prefix assigned to a modifier
dce33f8bb806 intitial checkin ca parents: diff changeset	5243	"
dce33f8bb806 intitial checkin ca parents: diff changeset	5244	\|m\|
dce33f8bb806 intitial checkin ca parents: diff changeset	5245
dce33f8bb806 intitial checkin ca parents: diff changeset	5246	m := menuPanel device modifierKeyTopFor:aModifier.
dce33f8bb806 intitial checkin ca parents: diff changeset	5247	m notNil ifTrue:[
1117 3181b8002e05 background color setting Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	5248	^ m , '-'
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5249	].
987 541dff179cc2 checkin from browser Claus Gittinger <cg@exept.de> parents: 984 diff changeset	5250	^ aModifier , '-'.
541dff179cc2 checkin from browser Claus Gittinger <cg@exept.de> parents: 984 diff changeset	5251
541dff179cc2 checkin from browser Claus Gittinger <cg@exept.de> parents: 984 diff changeset	5252	"Modified: / 17.7.1998 / 11:56:46 / cg"
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5253	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	5254
dce33f8bb806 intitial checkin ca parents: diff changeset	5255	!MenuPanel::Item methodsFor:'selection'!
dce33f8bb806 intitial checkin ca parents: diff changeset	5256
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	5257	hideSubmenu
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	5258	"hide submenu
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	5259	"
1473 1f62652f146e use hasSubmenu insteat of submenu if possible; Claus Gittinger <cg@exept.de> parents: 1472 diff changeset	5260	\|id\|
1f62652f146e use hasSubmenu insteat of submenu if possible; Claus Gittinger <cg@exept.de> parents: 1472 diff changeset	5261
1f62652f146e use hasSubmenu insteat of submenu if possible; Claus Gittinger <cg@exept.de> parents: 1472 diff changeset	5262	subMenu notNil ifTrue:[
1f62652f146e use hasSubmenu insteat of submenu if possible; Claus Gittinger <cg@exept.de> parents: 1472 diff changeset	5263	subMenu realized ifFalse:[
1f62652f146e use hasSubmenu insteat of submenu if possible; Claus Gittinger <cg@exept.de> parents: 1472 diff changeset	5264	(id := subMenu id) notNil ifTrue:[
1f62652f146e use hasSubmenu insteat of submenu if possible; Claus Gittinger <cg@exept.de> parents: 1472 diff changeset	5265	menuPanel device unmapWindow:id
1f62652f146e use hasSubmenu insteat of submenu if possible; Claus Gittinger <cg@exept.de> parents: 1472 diff changeset	5266	]
1f62652f146e use hasSubmenu insteat of submenu if possible; Claus Gittinger <cg@exept.de> parents: 1472 diff changeset	5267	] ifTrue:[
1f62652f146e use hasSubmenu insteat of submenu if possible; Claus Gittinger <cg@exept.de> parents: 1472 diff changeset	5268	subMenu hide
1f62652f146e use hasSubmenu insteat of submenu if possible; Claus Gittinger <cg@exept.de> parents: 1472 diff changeset	5269	].
1f62652f146e use hasSubmenu insteat of submenu if possible; Claus Gittinger <cg@exept.de> parents: 1472 diff changeset	5270
1f62652f146e use hasSubmenu insteat of submenu if possible; Claus Gittinger <cg@exept.de> parents: 1472 diff changeset	5271	subMenu windowGroup:nil.
1f62652f146e use hasSubmenu insteat of submenu if possible; Claus Gittinger <cg@exept.de> parents: 1472 diff changeset	5272	menuPanel windowGroup removeView:subMenu.
1474 bc9d6e39c2e7 checkin from browser Claus Gittinger <cg@exept.de> parents: 1473 diff changeset	5273
bc9d6e39c2e7 checkin from browser Claus Gittinger <cg@exept.de> parents: 1473 diff changeset	5274	"/ release menu if derived from channel
bc9d6e39c2e7 checkin from browser Claus Gittinger <cg@exept.de> parents: 1473 diff changeset	5275	submenuChannel notNil ifTrue:[
bc9d6e39c2e7 checkin from browser Claus Gittinger <cg@exept.de> parents: 1473 diff changeset	5276	subMenu := nil
bc9d6e39c2e7 checkin from browser Claus Gittinger <cg@exept.de> parents: 1473 diff changeset	5277	]
1473 1f62652f146e use hasSubmenu insteat of submenu if possible; Claus Gittinger <cg@exept.de> parents: 1472 diff changeset	5278	].
1f62652f146e use hasSubmenu insteat of submenu if possible; Claus Gittinger <cg@exept.de> parents: 1472 diff changeset	5279
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	5280	!
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	5281
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5282	isSelected
dce33f8bb806 intitial checkin ca parents: diff changeset	5283	"returns true if item is selected
dce33f8bb806 intitial checkin ca parents: diff changeset	5284	"
dce33f8bb806 intitial checkin ca parents: diff changeset	5285	^ menuPanel selection == self
dce33f8bb806 intitial checkin ca parents: diff changeset	5286	!
dce33f8bb806 intitial checkin ca parents: diff changeset	5287
1473 1f62652f146e use hasSubmenu insteat of submenu if possible; Claus Gittinger <cg@exept.de> parents: 1472 diff changeset	5288	selected:aState
1f62652f146e use hasSubmenu insteat of submenu if possible; Claus Gittinger <cg@exept.de> parents: 1472 diff changeset	5289	"change selection to a state. Dependant on the state open or hide an existing
1f62652f146e use hasSubmenu insteat of submenu if possible; Claus Gittinger <cg@exept.de> parents: 1472 diff changeset	5290	submenu and perform a redraw
1f62652f146e use hasSubmenu insteat of submenu if possible; Claus Gittinger <cg@exept.de> parents: 1472 diff changeset	5291	"
1475 2eebc866712e checkin from browser Claus Gittinger <cg@exept.de> parents: 1474 diff changeset	5292	\|p d top windowGrp\|
1473 1f62652f146e use hasSubmenu insteat of submenu if possible; Claus Gittinger <cg@exept.de> parents: 1472 diff changeset	5293
1f62652f146e use hasSubmenu insteat of submenu if possible; Claus Gittinger <cg@exept.de> parents: 1472 diff changeset	5294	aState ifFalse:[
1f62652f146e use hasSubmenu insteat of submenu if possible; Claus Gittinger <cg@exept.de> parents: 1472 diff changeset	5295	self redraw.
1f62652f146e use hasSubmenu insteat of submenu if possible; Claus Gittinger <cg@exept.de> parents: 1472 diff changeset	5296	self hideSubmenu.
1f62652f146e use hasSubmenu insteat of submenu if possible; Claus Gittinger <cg@exept.de> parents: 1472 diff changeset	5297	^ self
1f62652f146e use hasSubmenu insteat of submenu if possible; Claus Gittinger <cg@exept.de> parents: 1472 diff changeset	5298	].
1573 fd124ee2bce5 shortcutKeys; arrange layout if selection changed ca parents: 1572 diff changeset	5299	menuPanel realized ifFalse:[^ self].
1473 1f62652f146e use hasSubmenu insteat of submenu if possible; Claus Gittinger <cg@exept.de> parents: 1472 diff changeset	5300
1f62652f146e use hasSubmenu insteat of submenu if possible; Claus Gittinger <cg@exept.de> parents: 1472 diff changeset	5301	(self hasIndication not or:[isButton not]) ifTrue: [self redraw].
1f62652f146e use hasSubmenu insteat of submenu if possible; Claus Gittinger <cg@exept.de> parents: 1472 diff changeset	5302
1474 bc9d6e39c2e7 checkin from browser Claus Gittinger <cg@exept.de> parents: 1473 diff changeset	5303	(subMenu := self setupSubmenu) isNil ifTrue:[
1473 1f62652f146e use hasSubmenu insteat of submenu if possible; Claus Gittinger <cg@exept.de> parents: 1472 diff changeset	5304	menuPanel isPopUpView ifTrue:[menuPanel grabMouseAndKeyboard].
1f62652f146e use hasSubmenu insteat of submenu if possible; Claus Gittinger <cg@exept.de> parents: 1472 diff changeset	5305	^ self.
1f62652f146e use hasSubmenu insteat of submenu if possible; Claus Gittinger <cg@exept.de> parents: 1472 diff changeset	5306	].
1f62652f146e use hasSubmenu insteat of submenu if possible; Claus Gittinger <cg@exept.de> parents: 1472 diff changeset	5307
1f62652f146e use hasSubmenu insteat of submenu if possible; Claus Gittinger <cg@exept.de> parents: 1472 diff changeset	5308	menuPanel verticalLayout ifTrue:[p := (layout right - 4) @ (layout top)]
1f62652f146e use hasSubmenu insteat of submenu if possible; Claus Gittinger <cg@exept.de> parents: 1472 diff changeset	5309	ifFalse:[p := (layout left) @ (layout bottom)].
1f62652f146e use hasSubmenu insteat of submenu if possible; Claus Gittinger <cg@exept.de> parents: 1472 diff changeset	5310
1f62652f146e use hasSubmenu insteat of submenu if possible; Claus Gittinger <cg@exept.de> parents: 1472 diff changeset	5311	d := menuPanel device.
1f62652f146e use hasSubmenu insteat of submenu if possible; Claus Gittinger <cg@exept.de> parents: 1472 diff changeset	5312	p := d translatePoint:p from:(menuPanel id) to:(d rootWindowId).
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	5313
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	5314	windowGrp := menuPanel topMenu windowGroup.
1472 fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	5315
829 c86ed87da63b bug fix: ca parents: 828 diff changeset	5316	subMenu font:(menuPanel topMenu font).
798 74f4e7b66a46 ca's fixes for mapTime (fast-button-release) Claus Gittinger <cg@exept.de> parents: 794 diff changeset	5317	subMenu becomesActiveMenu.
1600 ded7554a66a6 show a hand cursor in submenu Claus Gittinger <cg@exept.de> parents: 1575 diff changeset	5318	subMenu cursor:Cursor hand.
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	5319
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	5320	windowGrp notNil ifTrue:[
1472 fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	5321	subMenu windowGroup:windowGrp.
fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	5322	windowGrp addTopView:subMenu.
1164 e6e9633abf48 kludge fix: invoke mustRearrange to care for block-visibility attributes Claus Gittinger <cg@exept.de> parents: 1156 diff changeset	5323	].
e6e9633abf48 kludge fix: invoke mustRearrange to care for block-visibility attributes Claus Gittinger <cg@exept.de> parents: 1156 diff changeset	5324
e6e9633abf48 kludge fix: invoke mustRearrange to care for block-visibility attributes Claus Gittinger <cg@exept.de> parents: 1156 diff changeset	5325	"/ Q&D kludge - if any visibility attributes are blocks;
e6e9633abf48 kludge fix: invoke mustRearrange to care for block-visibility attributes Claus Gittinger <cg@exept.de> parents: 1156 diff changeset	5326	"/ TODO: only invoke mustRearrange if any are blocks
1217 c6a4c536aa8c care for items which change visibility via Claus Gittinger <cg@exept.de> parents: 1212 diff changeset	5327	"/ (since I react correctly on valueHolder changes)
c6a4c536aa8c care for items which change visibility via Claus Gittinger <cg@exept.de> parents: 1212 diff changeset	5328	subMenu rearrangeItemsIfItemVisibilityChanged.
1164 e6e9633abf48 kludge fix: invoke mustRearrange to care for block-visibility attributes Claus Gittinger <cg@exept.de> parents: 1156 diff changeset	5329
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	5330	subMenu fixSize.
1473 1f62652f146e use hasSubmenu insteat of submenu if possible; Claus Gittinger <cg@exept.de> parents: 1472 diff changeset	5331	subMenu origin:p.
680 a4220a7a79c4 grab & ungrab: bug fix ca parents: 671 diff changeset	5332	top := menuPanel topMenu.
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	5333
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	5334	subMenu realized ifFalse:[
1472 fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	5335	subMenu realize.
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	5336	] ifTrue:[
1472 fd1871a0d888 call hasSubmenu insteat of submenu Claus Gittinger <cg@exept.de> parents: 1464 diff changeset	5337	top device mapWindow:subMenu id.
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	5338	].
816 8f8f8e19d983 implement button behaviour ca parents: 798 diff changeset	5339	subMenu makeFullyVisible.
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5340	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	5341
dce33f8bb806 intitial checkin ca parents: diff changeset	5342	!MenuPanel::Item::Adornment methodsFor:'accessing'!
dce33f8bb806 intitial checkin ca parents: diff changeset	5343
dce33f8bb806 intitial checkin ca parents: diff changeset	5344	accessCharacterPosition
dce33f8bb806 intitial checkin ca parents: diff changeset	5345	"get the index of the access character in the label text or string, or nil if none
dce33f8bb806 intitial checkin ca parents: diff changeset	5346	"
dce33f8bb806 intitial checkin ca parents: diff changeset	5347	^ accessCharacterPosition
dce33f8bb806 intitial checkin ca parents: diff changeset	5348	!
dce33f8bb806 intitial checkin ca parents: diff changeset	5349
dce33f8bb806 intitial checkin ca parents: diff changeset	5350	accessCharacterPosition:anIndexOrNil
dce33f8bb806 intitial checkin ca parents: diff changeset	5351	"set the index of the access character in the label text or string, or nil if none
dce33f8bb806 intitial checkin ca parents: diff changeset	5352	"
dce33f8bb806 intitial checkin ca parents: diff changeset	5353	accessCharacterPosition := anIndexOrNil
dce33f8bb806 intitial checkin ca parents: diff changeset	5354	!
dce33f8bb806 intitial checkin ca parents: diff changeset	5355
dce33f8bb806 intitial checkin ca parents: diff changeset	5356	argument
dce33f8bb806 intitial checkin ca parents: diff changeset	5357	"ST/X goody; get argunment to a selector or block
dce33f8bb806 intitial checkin ca parents: diff changeset	5358	"
dce33f8bb806 intitial checkin ca parents: diff changeset	5359	^ argument
dce33f8bb806 intitial checkin ca parents: diff changeset	5360	!
dce33f8bb806 intitial checkin ca parents: diff changeset	5361
dce33f8bb806 intitial checkin ca parents: diff changeset	5362	argument:anArgumentOrNil
dce33f8bb806 intitial checkin ca parents: diff changeset	5363	"ST/X goody; set argunment to a selector or block
dce33f8bb806 intitial checkin ca parents: diff changeset	5364	"
dce33f8bb806 intitial checkin ca parents: diff changeset	5365	argument := anArgumentOrNil
dce33f8bb806 intitial checkin ca parents: diff changeset	5366	!
dce33f8bb806 intitial checkin ca parents: diff changeset	5367
1074 25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	5368	choice
25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	5369	"get has choice indicator value
25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	5370	"
25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	5371	^ choice
25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	5372
25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	5373	"Created: / 14.8.1998 / 14:41:31 / cg"
25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	5374	!
25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	5375
25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	5376	choice:something
25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	5377	"set choice indicator value
25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	5378	"
25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	5379	choice := something.
25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	5380
25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	5381	"Created: / 14.8.1998 / 14:41:39 / cg"
25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	5382	!
25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	5383
25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	5384	choiceValue
25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	5385	"return the value of the instance variable 'choiceValue' (automatically generated)"
25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	5386
25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	5387	^ choiceValue
25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	5388
25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	5389	"Created: / 14.8.1998 / 15:47:52 / cg"
25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	5390	!
25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	5391
25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	5392	choiceValue:something
25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	5393	"set the value of the instance variable 'choiceValue' (automatically generated)"
25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	5394
25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	5395	choiceValue := something.
25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	5396
25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	5397	"Created: / 14.8.1998 / 15:47:52 / cg"
25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	5398	!
25e3910947de added choice type menu items (i.e. radioButton behavior) Claus Gittinger <cg@exept.de> parents: 1068 diff changeset	5399
407 40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	5400	indication
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	5401	"get has on/off indicator value
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	5402	"
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	5403	^ indication
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	5404	!
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	5405
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	5406	indication:something
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	5407	"set has on/off indicator value
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	5408	"
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	5409	indication := something.
40554a07d5aa fix bugs; implement indication; text with backgroundColor ca parents: 399 diff changeset	5410	!
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5411
dce33f8bb806 intitial checkin ca parents: diff changeset	5412	shortcutKey
dce33f8bb806 intitial checkin ca parents: diff changeset	5413	"get the character that is used as a shortcut key for this item
dce33f8bb806 intitial checkin ca parents: diff changeset	5414	"
dce33f8bb806 intitial checkin ca parents: diff changeset	5415	^ shortcutKey
dce33f8bb806 intitial checkin ca parents: diff changeset	5416	!
dce33f8bb806 intitial checkin ca parents: diff changeset	5417
dce33f8bb806 intitial checkin ca parents: diff changeset	5418	shortcutKey:aKeyOrNil
dce33f8bb806 intitial checkin ca parents: diff changeset	5419	"set the character that is used as a shortcut key for this item
dce33f8bb806 intitial checkin ca parents: diff changeset	5420	"
dce33f8bb806 intitial checkin ca parents: diff changeset	5421	shortcutKey := aKeyOrNil
dce33f8bb806 intitial checkin ca parents: diff changeset	5422	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	5423
dce33f8bb806 intitial checkin ca parents: diff changeset	5424	!MenuPanel class methodsFor:'documentation'!
dce33f8bb806 intitial checkin ca parents: diff changeset	5425
dce33f8bb806 intitial checkin ca parents: diff changeset	5426	version
1600 ded7554a66a6 show a hand cursor in submenu Claus Gittinger <cg@exept.de> parents: 1575 diff changeset	5427	^ '$Header: /cvs/stx/stx/libwidg2/MenuPanel.st,v 1.180 1999-10-21 18:58:18 cg Exp $'
388 dce33f8bb806 intitial checkin ca parents: diff changeset	5428	! !
dce33f8bb806 intitial checkin ca parents: diff changeset	5429	MenuPanel initialize!

author	Claus Gittinger <cg@exept.de>
	Thu, 21 Oct 1999 20:58:18 +0200
changeset 1600	ded7554a66a6
parent 1575	c56d76e45113
child 1609	2c8d62894ebe
permissions	-rw-r--r--