hg/stx-libwidg2: ExtendedComboBox.st@f1bae6d68ffe (annotated)

1281 94b22cb9c19f documentation Claus Gittinger <cg@exept.de> parents: 1274 diff changeset	1	"
94b22cb9c19f documentation Claus Gittinger <cg@exept.de> parents: 1274 diff changeset	2	COPYRIGHT (c) 1998 by eXept Software AG
94b22cb9c19f documentation Claus Gittinger <cg@exept.de> parents: 1274 diff changeset	3	All Rights Reserved
94b22cb9c19f documentation Claus Gittinger <cg@exept.de> parents: 1274 diff changeset	4
94b22cb9c19f documentation Claus Gittinger <cg@exept.de> parents: 1274 diff changeset	5	This software is furnished under a license and may be used
94b22cb9c19f documentation Claus Gittinger <cg@exept.de> parents: 1274 diff changeset	6	only in accordance with the terms of that license and with the
94b22cb9c19f documentation Claus Gittinger <cg@exept.de> parents: 1274 diff changeset	7	inclusion of the above copyright notice. This software may not
94b22cb9c19f documentation Claus Gittinger <cg@exept.de> parents: 1274 diff changeset	8	be provided or otherwise made available to, or used by, any
94b22cb9c19f documentation Claus Gittinger <cg@exept.de> parents: 1274 diff changeset	9	other person. No title to or ownership of the software is
94b22cb9c19f documentation Claus Gittinger <cg@exept.de> parents: 1274 diff changeset	10	hereby transferred.
94b22cb9c19f documentation Claus Gittinger <cg@exept.de> parents: 1274 diff changeset	11	"
94b22cb9c19f documentation Claus Gittinger <cg@exept.de> parents: 1274 diff changeset	12
94b22cb9c19f documentation Claus Gittinger <cg@exept.de> parents: 1274 diff changeset	13
94b22cb9c19f documentation Claus Gittinger <cg@exept.de> parents: 1274 diff changeset	14
1224 f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	15	View subclass:#ExtendedComboBox
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	16	instanceVariableNames:'menuButton menuField menuWrapper adjust menuWidgetHolder
1274 0f36e87f6b21 add openAction Claus Gittinger <cg@exept.de> parents: 1273 diff changeset	17	menuWidget menuHeight openAction isReadOnly
0f36e87f6b21 add openAction Claus Gittinger <cg@exept.de> parents: 1273 diff changeset	18	usePreferredWidthForMenu hasHorizontalScrollBar
0f36e87f6b21 add openAction Claus Gittinger <cg@exept.de> parents: 1273 diff changeset	19	hasVerticalScrollBar miniScrollerHorizontal miniScrollerVertical
0f36e87f6b21 add openAction Claus Gittinger <cg@exept.de> parents: 1273 diff changeset	20	autoHideScrollBars'
1179 fd1e5968db2f initial checkin ps parents: diff changeset	21	classVariableNames:''
fd1e5968db2f initial checkin ps parents: diff changeset	22	poolDictionaries:''
fd1e5968db2f initial checkin ps parents: diff changeset	23	category:'Views-Interactors'
fd1e5968db2f initial checkin ps parents: diff changeset	24	!
fd1e5968db2f initial checkin ps parents: diff changeset	25
1273 0460739b9e97 checkin from browser Claus Gittinger <cg@exept.de> parents: 1272 diff changeset	26	PopUpView subclass:#MenuWrapper
1630 01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	27	instanceVariableNames:'comboBox widget lastPointerView implicitGrabView'
1179 fd1e5968db2f initial checkin ps parents: diff changeset	28	classVariableNames:''
fd1e5968db2f initial checkin ps parents: diff changeset	29	poolDictionaries:''
fd1e5968db2f initial checkin ps parents: diff changeset	30	privateIn:ExtendedComboBox
fd1e5968db2f initial checkin ps parents: diff changeset	31	!
fd1e5968db2f initial checkin ps parents: diff changeset	32
1224 f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	33	!ExtendedComboBox class methodsFor:'documentation'!
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	34
1281 94b22cb9c19f documentation Claus Gittinger <cg@exept.de> parents: 1274 diff changeset	35	copyright
94b22cb9c19f documentation Claus Gittinger <cg@exept.de> parents: 1274 diff changeset	36	"
94b22cb9c19f documentation Claus Gittinger <cg@exept.de> parents: 1274 diff changeset	37	COPYRIGHT (c) 1998 by eXept Software AG
94b22cb9c19f documentation Claus Gittinger <cg@exept.de> parents: 1274 diff changeset	38	All Rights Reserved
94b22cb9c19f documentation Claus Gittinger <cg@exept.de> parents: 1274 diff changeset	39
94b22cb9c19f documentation Claus Gittinger <cg@exept.de> parents: 1274 diff changeset	40	This software is furnished under a license and may be used
94b22cb9c19f documentation Claus Gittinger <cg@exept.de> parents: 1274 diff changeset	41	only in accordance with the terms of that license and with the
94b22cb9c19f documentation Claus Gittinger <cg@exept.de> parents: 1274 diff changeset	42	inclusion of the above copyright notice. This software may not
94b22cb9c19f documentation Claus Gittinger <cg@exept.de> parents: 1274 diff changeset	43	be provided or otherwise made available to, or used by, any
94b22cb9c19f documentation Claus Gittinger <cg@exept.de> parents: 1274 diff changeset	44	other person. No title to or ownership of the software is
94b22cb9c19f documentation Claus Gittinger <cg@exept.de> parents: 1274 diff changeset	45	hereby transferred.
94b22cb9c19f documentation Claus Gittinger <cg@exept.de> parents: 1274 diff changeset	46	"
94b22cb9c19f documentation Claus Gittinger <cg@exept.de> parents: 1274 diff changeset	47
94b22cb9c19f documentation Claus Gittinger <cg@exept.de> parents: 1274 diff changeset	48
94b22cb9c19f documentation Claus Gittinger <cg@exept.de> parents: 1274 diff changeset	49	!
94b22cb9c19f documentation Claus Gittinger <cg@exept.de> parents: 1274 diff changeset	50
94b22cb9c19f documentation Claus Gittinger <cg@exept.de> parents: 1274 diff changeset	51	documentation
94b22cb9c19f documentation Claus Gittinger <cg@exept.de> parents: 1274 diff changeset	52	"
94b22cb9c19f documentation Claus Gittinger <cg@exept.de> parents: 1274 diff changeset	53	An ExtendedComboBox looks much like a ComboBox, but allows for any view
94b22cb9c19f documentation Claus Gittinger <cg@exept.de> parents: 1274 diff changeset	54	to be popped up (in contrast to a ComboBox, which has a hardWired selectionInList-
94b22cb9c19f documentation Claus Gittinger <cg@exept.de> parents: 1274 diff changeset	55	menu).
94b22cb9c19f documentation Claus Gittinger <cg@exept.de> parents: 1274 diff changeset	56	The popped view may optionally be decorated with scrollBars.
94b22cb9c19f documentation Claus Gittinger <cg@exept.de> parents: 1274 diff changeset	57	As a side effect, an ExtendedComboBox with a SelectionInListView or Menu
94b22cb9c19f documentation Claus Gittinger <cg@exept.de> parents: 1274 diff changeset	58	can now be used as a replacement for ComboBoxes when long-lists are to be shown,
94b22cb9c19f documentation Claus Gittinger <cg@exept.de> parents: 1274 diff changeset	59	since those can now be scrolled.
94b22cb9c19f documentation Claus Gittinger <cg@exept.de> parents: 1274 diff changeset	60
94b22cb9c19f documentation Claus Gittinger <cg@exept.de> parents: 1274 diff changeset	61	[author:]
94b22cb9c19f documentation Claus Gittinger <cg@exept.de> parents: 1274 diff changeset	62	Claus Atzkern
94b22cb9c19f documentation Claus Gittinger <cg@exept.de> parents: 1274 diff changeset	63
94b22cb9c19f documentation Claus Gittinger <cg@exept.de> parents: 1274 diff changeset	64	[see also:]
94b22cb9c19f documentation Claus Gittinger <cg@exept.de> parents: 1274 diff changeset	65	ComboBox ComboView
94b22cb9c19f documentation Claus Gittinger <cg@exept.de> parents: 1274 diff changeset	66	PopUpList SelectionInListView
94b22cb9c19f documentation Claus Gittinger <cg@exept.de> parents: 1274 diff changeset	67	ComboListView
94b22cb9c19f documentation Claus Gittinger <cg@exept.de> parents: 1274 diff changeset	68	PullDownMenu Label EntryField
94b22cb9c19f documentation Claus Gittinger <cg@exept.de> parents: 1274 diff changeset	69	"
94b22cb9c19f documentation Claus Gittinger <cg@exept.de> parents: 1274 diff changeset	70
94b22cb9c19f documentation Claus Gittinger <cg@exept.de> parents: 1274 diff changeset	71	!
94b22cb9c19f documentation Claus Gittinger <cg@exept.de> parents: 1274 diff changeset	72
1224 f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	73	examples
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	74	"
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	75	example 1: SelectionInListView
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	76	[exBegin]
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	77	\|top menu widget list sidx\|
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	78
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	79	top := StandardSystemView extent:200@35.
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	80	menu := ExtendedComboBox origin:5 @ 5 corner:1.0 @ 0.0 in:top.
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	81	list := #('foo' 'bar' 'baz' 'hjh' 'kk' 'claus' 'gjhj').
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	82	sidx := 4.
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	83	menu bottomInset:(menu preferredExtent y negated).
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	84	menu contents:(list at:sidx).
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	85
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	86	widget := SelectionInListView new.
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	87	widget list:list.
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	88	widget doubleClickAction:[:i\| menu contents:(widget at:i) ].
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	89	widget selection:sidx.
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	90	menu menuWidget:widget.
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	91	top open.
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	92	[exEnd]
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	93
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	94
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	95
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	96	example 2: FileSelectionTree
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	97	[exBegin]
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	98	\|top menu widget\|
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	99
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	100	top := StandardSystemView extent:200@35.
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	101	menu := ExtendedComboBox origin:5 @ 5 corner:1.0 @ 0.0 in:top.
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	102	menu bottomInset:(menu preferredExtent y negated).
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	103
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	104	widget := FileSelectionTree new.
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	105	widget directory:(Filename homeDirectory).
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	106
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	107	widget doubleClickAction:[:i\|\|n\|
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	108	n := widget selectedNode.
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	109	n isDirectory ifFalse:[menu contents:(n pathName)]
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	110	].
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	111	menu menuHeight:400.
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	112	menu menuWidget:widget.
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	113	top open.
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	114	[exEnd]
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	115
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	116
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	117
1286 d22e114ac9e2 checkin from browser Claus Gittinger <cg@exept.de> parents: 1285 diff changeset	118	example 3: SelectionInTreeView
1224 f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	119	[exBegin]
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	120	\|top menu widget\|
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	121
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	122	top := StandardSystemView extent:200@35.
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	123	menu := ExtendedComboBox origin:5 @ 5 corner:1.0 @ 0.0 in:top.
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	124	menu bottomInset:(menu preferredExtent y negated).
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	125	menu contents:'foo'.
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	126
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	127	widget := SelectionInTreeView new.
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	128	widget root:(TreeItem newAsTreeFromSmalltalkClass:Object).
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	129
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	130	widget doubleClickAction:[:i\|\|n\|
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	131	n := widget selectedNode.
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	132	n hasChildren ifFalse:[menu contents:(n name)]
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	133	].
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	134	menu menuHeight:300.
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	135	menu menuWidget:widget.
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	136	top open.
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	137	[exEnd]
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	138
1282 4269f064951c allow for menuHeight to be a block; Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	139	example 3: Funny
4269f064951c allow for menuHeight to be a block; Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	140	[exBegin]
4269f064951c allow for menuHeight to be a block; Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	141	\|top menu widget\|
4269f064951c allow for menuHeight to be a block; Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	142
4269f064951c allow for menuHeight to be a block; Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	143	top := StandardSystemView extent:250@35.
4269f064951c allow for menuHeight to be a block; Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	144	menu := ExtendedComboBox origin:5 @ 5 corner:1.0 @ 0.0 in:top.
4269f064951c allow for menuHeight to be a block; Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	145	menu bottomInset:(menu preferredExtent y negated).
4269f064951c allow for menuHeight to be a block; Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	146	menu contents:'lets do the timeWarp again...'.
4269f064951c allow for menuHeight to be a block; Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	147
4269f064951c allow for menuHeight to be a block; Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	148	widget := ClockView new.
4269f064951c allow for menuHeight to be a block; Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	149	menu menuHeight:[widget width].
4269f064951c allow for menuHeight to be a block; Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	150	menu menuWidget:widget.
4269f064951c allow for menuHeight to be a block; Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	151	top open.
4269f064951c allow for menuHeight to be a block; Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	152	[exEnd]
4269f064951c allow for menuHeight to be a block; Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	153
1285 839acde3f42c fixed width when usePrefWidgetWidth is true Claus Gittinger <cg@exept.de> parents: 1284 diff changeset	154
839acde3f42c fixed width when usePrefWidgetWidth is true Claus Gittinger <cg@exept.de> parents: 1284 diff changeset	155	example 3: Funny - again
839acde3f42c fixed width when usePrefWidgetWidth is true Claus Gittinger <cg@exept.de> parents: 1284 diff changeset	156	(use widgets pref-width; even if the combo-box is smaller)
1282 4269f064951c allow for menuHeight to be a block; Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	157	[exBegin]
4269f064951c allow for menuHeight to be a block; Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	158	\|top menu widget\|
4269f064951c allow for menuHeight to be a block; Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	159
1284 1fb5f5cbd4d3 checkin from browser Claus Gittinger <cg@exept.de> parents: 1282 diff changeset	160	top := StandardSystemView extent:80@35.
1282 4269f064951c allow for menuHeight to be a block; Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	161	menu := ExtendedComboBox origin:5 @ 5 corner:1.0 @ 0.0 in:top.
4269f064951c allow for menuHeight to be a block; Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	162	menu bottomInset:(menu preferredExtent y negated).
1284 1fb5f5cbd4d3 checkin from browser Claus Gittinger <cg@exept.de> parents: 1282 diff changeset	163	menu contents:'time...'.
1282 4269f064951c allow for menuHeight to be a block; Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	164
4269f064951c allow for menuHeight to be a block; Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	165	widget := ClockView new.
4269f064951c allow for menuHeight to be a block; Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	166	menu menuWidget:widget.
4269f064951c allow for menuHeight to be a block; Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	167	menu usePreferredWidthForMenu:true.
4269f064951c allow for menuHeight to be a block; Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	168	top open.
4269f064951c allow for menuHeight to be a block; Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	169	[exEnd]
1224 f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	170
1285 839acde3f42c fixed width when usePrefWidgetWidth is true Claus Gittinger <cg@exept.de> parents: 1284 diff changeset	171
839acde3f42c fixed width when usePrefWidgetWidth is true Claus Gittinger <cg@exept.de> parents: 1284 diff changeset	172	example 4: Funny - again
839acde3f42c fixed width when usePrefWidgetWidth is true Claus Gittinger <cg@exept.de> parents: 1284 diff changeset	173	(use widgets pref-width; even if the combo-box is smaller,
839acde3f42c fixed width when usePrefWidgetWidth is true Claus Gittinger <cg@exept.de> parents: 1284 diff changeset	174	adjust the height for the width)
839acde3f42c fixed width when usePrefWidgetWidth is true Claus Gittinger <cg@exept.de> parents: 1284 diff changeset	175	[exBegin]
839acde3f42c fixed width when usePrefWidgetWidth is true Claus Gittinger <cg@exept.de> parents: 1284 diff changeset	176	\|top menu widget\|
839acde3f42c fixed width when usePrefWidgetWidth is true Claus Gittinger <cg@exept.de> parents: 1284 diff changeset	177
839acde3f42c fixed width when usePrefWidgetWidth is true Claus Gittinger <cg@exept.de> parents: 1284 diff changeset	178	top := StandardSystemView extent:80@35.
839acde3f42c fixed width when usePrefWidgetWidth is true Claus Gittinger <cg@exept.de> parents: 1284 diff changeset	179	menu := ExtendedComboBox origin:5 @ 5 corner:1.0 @ 0.0 in:top.
839acde3f42c fixed width when usePrefWidgetWidth is true Claus Gittinger <cg@exept.de> parents: 1284 diff changeset	180	menu bottomInset:(menu preferredExtent y negated).
839acde3f42c fixed width when usePrefWidgetWidth is true Claus Gittinger <cg@exept.de> parents: 1284 diff changeset	181	menu contents:'time...'.
839acde3f42c fixed width when usePrefWidgetWidth is true Claus Gittinger <cg@exept.de> parents: 1284 diff changeset	182
839acde3f42c fixed width when usePrefWidgetWidth is true Claus Gittinger <cg@exept.de> parents: 1284 diff changeset	183	widget := ClockView new.
839acde3f42c fixed width when usePrefWidgetWidth is true Claus Gittinger <cg@exept.de> parents: 1284 diff changeset	184	menu menuWidget:widget.
839acde3f42c fixed width when usePrefWidgetWidth is true Claus Gittinger <cg@exept.de> parents: 1284 diff changeset	185	menu usePreferredWidthForMenu:true.
839acde3f42c fixed width when usePrefWidgetWidth is true Claus Gittinger <cg@exept.de> parents: 1284 diff changeset	186	menu menuHeight:[widget width].
839acde3f42c fixed width when usePrefWidgetWidth is true Claus Gittinger <cg@exept.de> parents: 1284 diff changeset	187	top open.
839acde3f42c fixed width when usePrefWidgetWidth is true Claus Gittinger <cg@exept.de> parents: 1284 diff changeset	188	[exEnd]
1406 982b813545c8 example ah parents: 1395 diff changeset	189
982b813545c8 example ah parents: 1395 diff changeset	190	example 5: Subcanvas with a spec
982b813545c8 example ah parents: 1395 diff changeset	191	[exBegin]
982b813545c8 example ah parents: 1395 diff changeset	192	\|top menu widget list sidx spec\|
982b813545c8 example ah parents: 1395 diff changeset	193
982b813545c8 example ah parents: 1395 diff changeset	194	spec := #(#FullSpec
982b813545c8 example ah parents: 1395 diff changeset	195	#window:
982b813545c8 example ah parents: 1395 diff changeset	196	#(#WindowSpec
982b813545c8 example ah parents: 1395 diff changeset	197	#name: 'Define Color'
982b813545c8 example ah parents: 1395 diff changeset	198	#layout: #(#LayoutFrame 13 0 29 0 352 0 159 0)
982b813545c8 example ah parents: 1395 diff changeset	199	#label: 'Define Color'
982b813545c8 example ah parents: 1395 diff changeset	200	#min: #(#Point 340 110)
982b813545c8 example ah parents: 1395 diff changeset	201	#max: #(#Point 1152 900)
982b813545c8 example ah parents: 1395 diff changeset	202	#bounds: #(#Rectangle 13 29 353 160)
982b813545c8 example ah parents: 1395 diff changeset	203	#usePreferredExtent: false
982b813545c8 example ah parents: 1395 diff changeset	204	)
982b813545c8 example ah parents: 1395 diff changeset	205	#component:
982b813545c8 example ah parents: 1395 diff changeset	206	#(#SpecCollection
982b813545c8 example ah parents: 1395 diff changeset	207	#collection:
982b813545c8 example ah parents: 1395 diff changeset	208	#(
982b813545c8 example ah parents: 1395 diff changeset	209	#(#VerticalPanelViewSpec
982b813545c8 example ah parents: 1395 diff changeset	210	#name: 'VerticalPanel1'
982b813545c8 example ah parents: 1395 diff changeset	211	#layout: #(#LayoutFrame 0 0.0 0 0.0 58 0 -40 1.0)
982b813545c8 example ah parents: 1395 diff changeset	212	#component:
982b813545c8 example ah parents: 1395 diff changeset	213	#(#SpecCollection
982b813545c8 example ah parents: 1395 diff changeset	214	#collection:
982b813545c8 example ah parents: 1395 diff changeset	215	#(
982b813545c8 example ah parents: 1395 diff changeset	216	#(#LabelSpec
982b813545c8 example ah parents: 1395 diff changeset	217	#name: 'RedLabel'
982b813545c8 example ah parents: 1395 diff changeset	218	#label: 'Red:'
982b813545c8 example ah parents: 1395 diff changeset	219	#translateLabel: true
982b813545c8 example ah parents: 1395 diff changeset	220	#adjust: #right
982b813545c8 example ah parents: 1395 diff changeset	221	#extent: #(#Point 58 26)
982b813545c8 example ah parents: 1395 diff changeset	222	)
982b813545c8 example ah parents: 1395 diff changeset	223	#(#LabelSpec
982b813545c8 example ah parents: 1395 diff changeset	224	#name: 'GreenLabel'
982b813545c8 example ah parents: 1395 diff changeset	225	#label: 'Green:'
982b813545c8 example ah parents: 1395 diff changeset	226	#translateLabel: true
982b813545c8 example ah parents: 1395 diff changeset	227	#adjust: #right
982b813545c8 example ah parents: 1395 diff changeset	228	#extent: #(#Point 58 27)
982b813545c8 example ah parents: 1395 diff changeset	229	)
982b813545c8 example ah parents: 1395 diff changeset	230	#(#LabelSpec
982b813545c8 example ah parents: 1395 diff changeset	231	#name: 'BlueLabel'
982b813545c8 example ah parents: 1395 diff changeset	232	#label: 'Blue:'
982b813545c8 example ah parents: 1395 diff changeset	233	#translateLabel: true
982b813545c8 example ah parents: 1395 diff changeset	234	#adjust: #right
982b813545c8 example ah parents: 1395 diff changeset	235	#extent: #(#Point 58 26)
982b813545c8 example ah parents: 1395 diff changeset	236	)
982b813545c8 example ah parents: 1395 diff changeset	237	)
982b813545c8 example ah parents: 1395 diff changeset	238	)
982b813545c8 example ah parents: 1395 diff changeset	239	#horizontalLayout: #fit
982b813545c8 example ah parents: 1395 diff changeset	240	#verticalLayout: #fitSpace
982b813545c8 example ah parents: 1395 diff changeset	241	#horizontalSpace: 3
982b813545c8 example ah parents: 1395 diff changeset	242	#verticalSpace: 3
982b813545c8 example ah parents: 1395 diff changeset	243	)
982b813545c8 example ah parents: 1395 diff changeset	244	#(#VerticalPanelViewSpec
982b813545c8 example ah parents: 1395 diff changeset	245	#name: 'VerticalPanel2'
982b813545c8 example ah parents: 1395 diff changeset	246	#layout: #(#LayoutFrame 60 0 0 0.0 -160 1.0 -40 1.0)
982b813545c8 example ah parents: 1395 diff changeset	247	#component:
982b813545c8 example ah parents: 1395 diff changeset	248	#(#SpecCollection
982b813545c8 example ah parents: 1395 diff changeset	249	#collection:
982b813545c8 example ah parents: 1395 diff changeset	250	#(
982b813545c8 example ah parents: 1395 diff changeset	251	#(#SliderSpec
982b813545c8 example ah parents: 1395 diff changeset	252	#name: 'RedSlider'
982b813545c8 example ah parents: 1395 diff changeset	253	#tabable: true
982b813545c8 example ah parents: 1395 diff changeset	254	#model: #red
982b813545c8 example ah parents: 1395 diff changeset	255	#orientation: #horizontal
982b813545c8 example ah parents: 1395 diff changeset	256	#stop: 255
982b813545c8 example ah parents: 1395 diff changeset	257	#step: 1
982b813545c8 example ah parents: 1395 diff changeset	258	#backgroundColor: #(#Color 100.0 0.0 0.0)
982b813545c8 example ah parents: 1395 diff changeset	259	#extent: #(#Point 118 16)
982b813545c8 example ah parents: 1395 diff changeset	260	)
982b813545c8 example ah parents: 1395 diff changeset	261	#(#SliderSpec
982b813545c8 example ah parents: 1395 diff changeset	262	#name: 'GreenSlider'
982b813545c8 example ah parents: 1395 diff changeset	263	#tabable: true
982b813545c8 example ah parents: 1395 diff changeset	264	#model: #green
982b813545c8 example ah parents: 1395 diff changeset	265	#orientation: #horizontal
982b813545c8 example ah parents: 1395 diff changeset	266	#stop: 255
982b813545c8 example ah parents: 1395 diff changeset	267	#step: 1
982b813545c8 example ah parents: 1395 diff changeset	268	#backgroundColor: #(#Color 0.0 100.0 0.0)
982b813545c8 example ah parents: 1395 diff changeset	269	#extent: #(#Point 118 16)
982b813545c8 example ah parents: 1395 diff changeset	270	)
982b813545c8 example ah parents: 1395 diff changeset	271	#(#SliderSpec
982b813545c8 example ah parents: 1395 diff changeset	272	#name: 'BlueSlider'
982b813545c8 example ah parents: 1395 diff changeset	273	#tabable: true
982b813545c8 example ah parents: 1395 diff changeset	274	#model: #blue
982b813545c8 example ah parents: 1395 diff changeset	275	#orientation: #horizontal
982b813545c8 example ah parents: 1395 diff changeset	276	#stop: 255
982b813545c8 example ah parents: 1395 diff changeset	277	#step: 1
982b813545c8 example ah parents: 1395 diff changeset	278	#backgroundColor: #(#Color 0.0 0.0 100.0)
982b813545c8 example ah parents: 1395 diff changeset	279	#extent: #(#Point 118 16)
982b813545c8 example ah parents: 1395 diff changeset	280	)
982b813545c8 example ah parents: 1395 diff changeset	281	)
982b813545c8 example ah parents: 1395 diff changeset	282	)
982b813545c8 example ah parents: 1395 diff changeset	283	#horizontalLayout: #fit
982b813545c8 example ah parents: 1395 diff changeset	284	#verticalLayout: #spreadSpace
982b813545c8 example ah parents: 1395 diff changeset	285	#horizontalSpace: 3
982b813545c8 example ah parents: 1395 diff changeset	286	#verticalSpace: 3
982b813545c8 example ah parents: 1395 diff changeset	287	)
982b813545c8 example ah parents: 1395 diff changeset	288	#(#VerticalPanelViewSpec
982b813545c8 example ah parents: 1395 diff changeset	289	#name: 'VerticalPanel3'
982b813545c8 example ah parents: 1395 diff changeset	290	#layout: #(#LayoutFrame -158 1 0 0.0 -120 1 -40 1.0)
982b813545c8 example ah parents: 1395 diff changeset	291	#component:
982b813545c8 example ah parents: 1395 diff changeset	292	#(#SpecCollection
982b813545c8 example ah parents: 1395 diff changeset	293	#collection:
982b813545c8 example ah parents: 1395 diff changeset	294	#(
982b813545c8 example ah parents: 1395 diff changeset	295	#(#InputFieldSpec
982b813545c8 example ah parents: 1395 diff changeset	296	#name: 'RedField'
982b813545c8 example ah parents: 1395 diff changeset	297	#model: #red
982b813545c8 example ah parents: 1395 diff changeset	298	#type: #numberInRange
982b813545c8 example ah parents: 1395 diff changeset	299	#numChars: 3
982b813545c8 example ah parents: 1395 diff changeset	300	#minValue: 0
982b813545c8 example ah parents: 1395 diff changeset	301	#maxValue: 255
982b813545c8 example ah parents: 1395 diff changeset	302	#extent: #(#Point 38 20)
982b813545c8 example ah parents: 1395 diff changeset	303	)
982b813545c8 example ah parents: 1395 diff changeset	304	#(#InputFieldSpec
982b813545c8 example ah parents: 1395 diff changeset	305	#name: 'GreenField'
982b813545c8 example ah parents: 1395 diff changeset	306	#model: #green
982b813545c8 example ah parents: 1395 diff changeset	307	#type: #numberInRange
982b813545c8 example ah parents: 1395 diff changeset	308	#numChars: 3
982b813545c8 example ah parents: 1395 diff changeset	309	#minValue: 0
982b813545c8 example ah parents: 1395 diff changeset	310	#maxValue: 255
982b813545c8 example ah parents: 1395 diff changeset	311	#extent: #(#Point 38 20)
982b813545c8 example ah parents: 1395 diff changeset	312	)
982b813545c8 example ah parents: 1395 diff changeset	313	#(#InputFieldSpec
982b813545c8 example ah parents: 1395 diff changeset	314	#name: 'BlueField'
982b813545c8 example ah parents: 1395 diff changeset	315	#model: #blue
982b813545c8 example ah parents: 1395 diff changeset	316	#type: #numberInRange
982b813545c8 example ah parents: 1395 diff changeset	317	#numChars: 3
982b813545c8 example ah parents: 1395 diff changeset	318	#minValue: 0
982b813545c8 example ah parents: 1395 diff changeset	319	#maxValue: 255
982b813545c8 example ah parents: 1395 diff changeset	320	#extent: #(#Point 38 20)
982b813545c8 example ah parents: 1395 diff changeset	321	)
982b813545c8 example ah parents: 1395 diff changeset	322	)
982b813545c8 example ah parents: 1395 diff changeset	323	)
982b813545c8 example ah parents: 1395 diff changeset	324	#horizontalLayout: #fit
982b813545c8 example ah parents: 1395 diff changeset	325	#verticalLayout: #spreadSpace
982b813545c8 example ah parents: 1395 diff changeset	326	#horizontalSpace: 3
982b813545c8 example ah parents: 1395 diff changeset	327	#verticalSpace: 3
982b813545c8 example ah parents: 1395 diff changeset	328	)
982b813545c8 example ah parents: 1395 diff changeset	329	#(#LabelSpec
982b813545c8 example ah parents: 1395 diff changeset	330	#name: 'PreviewBox'
982b813545c8 example ah parents: 1395 diff changeset	331	#layout: #(#LayoutFrame -116 1 0 0.0 -2 1.0 -40 1.0)
982b813545c8 example ah parents: 1395 diff changeset	332	#label: 'Preview'
982b813545c8 example ah parents: 1395 diff changeset	333	#translateLabel: true
982b813545c8 example ah parents: 1395 diff changeset	334	#level: -1
982b813545c8 example ah parents: 1395 diff changeset	335	)
982b813545c8 example ah parents: 1395 diff changeset	336	#(#HorizontalPanelViewSpec
982b813545c8 example ah parents: 1395 diff changeset	337	#name: 'HorizontalPanel1'
982b813545c8 example ah parents: 1395 diff changeset	338	#layout: #(#LayoutFrame 0 0.0 -32 1 0 1.0 0 1.0)
982b813545c8 example ah parents: 1395 diff changeset	339	#component:
982b813545c8 example ah parents: 1395 diff changeset	340	#(#SpecCollection
982b813545c8 example ah parents: 1395 diff changeset	341	#collection:
982b813545c8 example ah parents: 1395 diff changeset	342	#(
982b813545c8 example ah parents: 1395 diff changeset	343	#(#ActionButtonSpec
982b813545c8 example ah parents: 1395 diff changeset	344	#name: 'CancelButton'
982b813545c8 example ah parents: 1395 diff changeset	345	#label: 'Cancel'
982b813545c8 example ah parents: 1395 diff changeset	346	#translateLabel: true
982b813545c8 example ah parents: 1395 diff changeset	347	#model: #cancel
982b813545c8 example ah parents: 1395 diff changeset	348	#extent: #(#Point 165 26)
982b813545c8 example ah parents: 1395 diff changeset	349	)
982b813545c8 example ah parents: 1395 diff changeset	350	#(#ActionButtonSpec
982b813545c8 example ah parents: 1395 diff changeset	351	#name: 'OKButton'
982b813545c8 example ah parents: 1395 diff changeset	352	#label: 'OK'
982b813545c8 example ah parents: 1395 diff changeset	353	#translateLabel: true
982b813545c8 example ah parents: 1395 diff changeset	354	#model: #accept
982b813545c8 example ah parents: 1395 diff changeset	355	#extent: #(#Point 166 26)
982b813545c8 example ah parents: 1395 diff changeset	356	)
982b813545c8 example ah parents: 1395 diff changeset	357	)
982b813545c8 example ah parents: 1395 diff changeset	358	)
982b813545c8 example ah parents: 1395 diff changeset	359	#horizontalLayout: #fitSpace
982b813545c8 example ah parents: 1395 diff changeset	360	#verticalLayout: #centerMax
982b813545c8 example ah parents: 1395 diff changeset	361	#horizontalSpace: 3
982b813545c8 example ah parents: 1395 diff changeset	362	#verticalSpace: 3
982b813545c8 example ah parents: 1395 diff changeset	363	)
982b813545c8 example ah parents: 1395 diff changeset	364	)
982b813545c8 example ah parents: 1395 diff changeset	365	)
982b813545c8 example ah parents: 1395 diff changeset	366	).
982b813545c8 example ah parents: 1395 diff changeset	367
982b813545c8 example ah parents: 1395 diff changeset	368	top := StandardSystemView extent:200@35.
982b813545c8 example ah parents: 1395 diff changeset	369	menu := ExtendedComboBox origin:5 @ 5 corner:1.0 @ 0.0 in:top.
982b813545c8 example ah parents: 1395 diff changeset	370	list := #('foo' 'bar' 'baz' 'hjh' 'kk' 'claus' 'gjhj').
982b813545c8 example ah parents: 1395 diff changeset	371	sidx := 4.
982b813545c8 example ah parents: 1395 diff changeset	372	menu bottomInset:(menu preferredExtent y negated).
982b813545c8 example ah parents: 1395 diff changeset	373	menu contents:(list at:sidx).
982b813545c8 example ah parents: 1395 diff changeset	374
982b813545c8 example ah parents: 1395 diff changeset	375	widget := SubCanvas new.
982b813545c8 example ah parents: 1395 diff changeset	376	widget spec:spec.
982b813545c8 example ah parents: 1395 diff changeset	377	menu menuWidget:widget.
982b813545c8 example ah parents: 1395 diff changeset	378	top open.
982b813545c8 example ah parents: 1395 diff changeset	379	[exEnd]
982b813545c8 example ah parents: 1395 diff changeset	380
982b813545c8 example ah parents: 1395 diff changeset	381
982b813545c8 example ah parents: 1395 diff changeset	382
982b813545c8 example ah parents: 1395 diff changeset	383
1224 f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	384	"
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	385	! !
1179 fd1e5968db2f initial checkin ps parents: diff changeset	386
fd1e5968db2f initial checkin ps parents: diff changeset	387	!ExtendedComboBox class methodsFor:'testing'!
fd1e5968db2f initial checkin ps parents: diff changeset	388
1224 f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	389	test
1179 fd1e5968db2f initial checkin ps parents: diff changeset	390	"
1224 f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	391	self test
1179 fd1e5968db2f initial checkin ps parents: diff changeset	392	"
1224 f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	393	\|top menu\|
1179 fd1e5968db2f initial checkin ps parents: diff changeset	394
1224 f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	395	top := StandardSystemView extent:200@35.
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	396	menu := ExtendedComboBox origin:5 @ 5 corner:0.8 @ 0.0 in:top.
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	397	menu bottomInset:(menu preferredExtent y negated).
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	398	menu list:#('foo' 'bar' 'baz' 'hjh' 'kk' 'claus' 'gjhj').
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	399	top open.
1179 fd1e5968db2f initial checkin ps parents: diff changeset	400	!
fd1e5968db2f initial checkin ps parents: diff changeset	401
1224 f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	402	test1
1179 fd1e5968db2f initial checkin ps parents: diff changeset	403	"
1224 f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	404	self test1
1179 fd1e5968db2f initial checkin ps parents: diff changeset	405	"
1224 f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	406	\|top menu\|
1179 fd1e5968db2f initial checkin ps parents: diff changeset	407
1224 f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	408	top := StandardSystemView extent:200@35.
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	409	menu := ExtendedComboBox origin:5 @ 5 corner:1.0 @ 0.0 in:top.
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	410	menu bottomInset:(menu preferredExtent y negated).
1395 31e313f07658 checkin from browser Claus Gittinger <cg@exept.de> parents: 1392 diff changeset	411	menu directory:(OperatingSystem getHomeDirectory).
1224 f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	412	top open.
1179 fd1e5968db2f initial checkin ps parents: diff changeset	413
1395 31e313f07658 checkin from browser Claus Gittinger <cg@exept.de> parents: 1392 diff changeset	414	"Modified: / 25.5.1999 / 15:16:16 / cg"
1630 01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	415	!
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	416
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	417	test10
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	418	"
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	419	self test10
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	420	"
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	421	\|top menu view o\|
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	422
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	423	top := StandardSystemView extent:300@35.
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	424	menu := ExtendedComboBox origin:0.0@0.0 corner:1.0@1.0 in:top.
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	425
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	426	view := DrawView new.
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	427	o := DrawRectangle new.
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	428	o origin:10@10 corner:100@100.
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	429	view add:o.
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	430
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	431	o := DrawText new.
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	432	o text:'hello there'; origin:50@50; foreground:Color red.
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	433	view add:o.
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	434
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	435
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	436	menu menuWidget:view.
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	437	menu menuHeight:300.
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	438	top open.
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	439
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	440	!
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	441
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	442	test2
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	443	"
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	444	self test2
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	445	"
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	446	\|top menu view edit\|
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	447
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	448	top := StandardSystemView extent:200@35.
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	449	menu := ExtendedComboBox origin:5 @ 5 corner:195 @ 25 in:top.
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	450	view := View extent:180 @ 100.
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	451	edit := EditField origin:5@5 in:view.
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	452	edit width:175.
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	453
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	454	edit := EditField origin:5@30 in:view.
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	455	edit width:175.
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	456
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	457	menu menuWidget:view.
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	458	menu menuHeight:100.
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	459	top open.
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	460
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	461	"Modified: / 25.5.1999 / 15:16:16 / cg"
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	462	!
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	463
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	464	test3
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	465	"
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	466	self test3
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	467	"
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	468	\|top menu view edit b\|
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	469
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	470	top := StandardSystemView extent:200@35.
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	471	menu := ExtendedComboBox origin:5 @ 5 corner:195 @ 25 in:top.
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	472	view := View extent:180 @ 100.
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	473	edit := EditField origin:5@5 in:view.
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	474	edit width:175.
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	475
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	476	edit := EditField origin:5@30 in:view.
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	477	edit width:175.
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	478
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	479	b := Button label:'button' in:view.
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	480	b origin:5@50.
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	481	b action:[ Transcript showCR:'.. things to do, when pressed ...' ].
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	482
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	483	menu menuWidget:view.
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	484	menu menuHeight:100.
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	485	top open.
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	486
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	487	"Modified: / 25.5.1999 / 15:16:16 / cg"
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	488	!
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	489
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	490	test4
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	491	"
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	492	self test4
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	493	"
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	494	\|top menu view edit b\|
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	495
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	496	top := StandardSystemView extent:200@35.
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	497	menu := ExtendedComboBox origin:5 @ 5 corner:195 @ 25 in:top.
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	498	view := View extent:180 @ 100.
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	499	edit := HVScrollableView for:EditTextView origin:0@0 corner:1.0@1.0 in:view.
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	500	edit contents:'Makefile' asFilename contents.
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	501	menu menuWidget:view.
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	502	menu menuHeight:100.
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	503	top open.
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	504
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	505	"Modified: / 25.5.1999 / 15:16:16 / cg"
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	506	!
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	507
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	508	test5
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	509	"
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	510	self test5
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	511	"
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	512	\|top menu view\|
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	513
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	514	top := StandardSystemView extent:300@35.
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	515	menu := ExtendedComboBox origin:0.0@0.0 corner:1.0@1.0 in:top.
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	516
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	517	view := View new.
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	518	"/ view client:(CodingExamples_GUI::GUIDemoDataSetView new).
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	519	view client:(CodingExamples_GUI::GUIDemoDragAndDrop new).
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	520
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	521	menu menuWidget:view.
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	522	menu menuHeight:300.
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	523	top open.
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	524
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	525	!
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	526
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	527	test6
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	528	"
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	529	self test6
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	530	"
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	531	\|top menu view\|
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	532
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	533	top := StandardSystemView extent:300@35.
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	534	menu := ExtendedComboBox origin:0.0@0.0 corner:1.0@1.0 in:top.
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	535
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	536	view := View new.
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	537	view client:(CodingExamples_GUI::GUIDemoDataSetView new).
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	538
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	539	menu menuWidget:view.
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	540	menu menuHeight:300.
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	541	top open.
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	542
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	543	!
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	544
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	545	test7
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	546	"
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	547	self test7
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	548	"
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	549	\|top menu view\|
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	550
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	551	top := StandardSystemView extent:300@35.
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	552	menu := ExtendedComboBox origin:0.0@0.0 corner:1.0@1.0 in:top.
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	553
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	554	view := View new.
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	555	view client:(CodingExamples_GUI::GUIDemoTabs new).
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	556
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	557	menu menuWidget:view.
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	558	menu menuHeight:300.
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	559	top open.
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	560
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	561	!
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	562
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	563	test8
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	564	"
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	565	self test8
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	566	"
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	567	\|top menu view\|
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	568
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	569	top := StandardSystemView extent:300@35.
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	570	menu := ExtendedComboBox origin:0.0@0.0 corner:1.0@1.0 in:top.
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	571
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	572	view := View new.
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	573	view client:(CodingExamples_GUI::GUIDemoSliders new).
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	574
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	575	menu menuWidget:view.
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	576	menu menuHeight:300.
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	577	top open.
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	578
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	579	!
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	580
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	581	test9
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	582	"
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	583	self test9
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	584	"
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	585	\|top menu view\|
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	586
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	587	top := StandardSystemView extent:400@35.
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	588	menu := ExtendedComboBox origin:0.0@0.0 corner:1.0@1.0 in:top.
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	589
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	590	view := View new.
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	591	view client:(CodingExamples_GUI::GUIDemo new).
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	592
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	593	menu menuWidget:view.
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	594	menu menuHeight:500.
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	595	top open.
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	596
1179 fd1e5968db2f initial checkin ps parents: diff changeset	597	! !
fd1e5968db2f initial checkin ps parents: diff changeset	598
fd1e5968db2f initial checkin ps parents: diff changeset	599	!ExtendedComboBox methodsFor:'accessing'!
fd1e5968db2f initial checkin ps parents: diff changeset	600
1224 f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	601	contents
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	602	"return the value of the field
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	603	"
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	604	^ model value
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	605	!
1179 fd1e5968db2f initial checkin ps parents: diff changeset	606
1224 f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	607	contents:aValue
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	608	"set the value of the field
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	609	"
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	610	model value:aValue.
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	611	!
1179 fd1e5968db2f initial checkin ps parents: diff changeset	612
1224 f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	613	menuWidget
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	614	"get the menu widget or nil
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	615	"
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	616	^ menuWidget
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	617
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	618
1179 fd1e5968db2f initial checkin ps parents: diff changeset	619	!
fd1e5968db2f initial checkin ps parents: diff changeset	620
1224 f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	621	menuWidget:aWidgetOrNil
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	622	"set the menu widget or nil
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	623	"
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	624	menuWidget ~~ aWidgetOrNil ifTrue:[
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	625	menuWrapper notNil ifTrue:[
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	626	self closeMenu.
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	627	menuWrapper destroy.
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	628	menuWrapper := nil.
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	629	].
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	630	menuWidget := aWidgetOrNil.
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	631	].
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	632	! !
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	633
1274 0f36e87f6b21 add openAction Claus Gittinger <cg@exept.de> parents: 1273 diff changeset	634	!ExtendedComboBox methodsFor:'accessing-actions'!
1179 fd1e5968db2f initial checkin ps parents: diff changeset	635
1274 0f36e87f6b21 add openAction Claus Gittinger <cg@exept.de> parents: 1273 diff changeset	636	openAction
0f36e87f6b21 add openAction Claus Gittinger <cg@exept.de> parents: 1273 diff changeset	637	"returns the action, called before opening the pulldown menu
0f36e87f6b21 add openAction Claus Gittinger <cg@exept.de> parents: 1273 diff changeset	638	"
0f36e87f6b21 add openAction Claus Gittinger <cg@exept.de> parents: 1273 diff changeset	639	^ openAction
1179 fd1e5968db2f initial checkin ps parents: diff changeset	640	!
fd1e5968db2f initial checkin ps parents: diff changeset	641
1274 0f36e87f6b21 add openAction Claus Gittinger <cg@exept.de> parents: 1273 diff changeset	642	openAction:aOneArgBlock
0f36e87f6b21 add openAction Claus Gittinger <cg@exept.de> parents: 1273 diff changeset	643	"set the action, called before opening the pulldown menu; the
0f36e87f6b21 add openAction Claus Gittinger <cg@exept.de> parents: 1273 diff changeset	644	argument to the action is the menu widget
1224 f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	645	"
1274 0f36e87f6b21 add openAction Claus Gittinger <cg@exept.de> parents: 1273 diff changeset	646	openAction := aOneArgBlock
1224 f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	647	! !
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	648
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	649	!ExtendedComboBox methodsFor:'accessing-behavior'!
1179 fd1e5968db2f initial checkin ps parents: diff changeset	650
1224 f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	651	disable
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	652	"disable components
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	653	"
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	654	self closeMenu.
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	655
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	656	(menuField respondsTo:#disable) ifTrue:[
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	657	menuField disable
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	658	].
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	659	menuButton disable
1179 fd1e5968db2f initial checkin ps parents: diff changeset	660
1224 f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	661	!
1179 fd1e5968db2f initial checkin ps parents: diff changeset	662
1224 f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	663	enable
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	664	"enable components
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	665	"
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	666	(menuField respondsTo:#enable) ifTrue:[
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	667	menuField enable
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	668	].
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	669	menuButton enable
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	670
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	671
1179 fd1e5968db2f initial checkin ps parents: diff changeset	672	!
fd1e5968db2f initial checkin ps parents: diff changeset	673
1224 f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	674	enabled
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	675	"returns true, if is enabled
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	676	"
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	677	^ menuButton enabled
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	678
1179 fd1e5968db2f initial checkin ps parents: diff changeset	679
1224 f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	680	! !
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	681
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	682	!ExtendedComboBox methodsFor:'accessing-channels'!
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	683
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	684	enableChannel
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	685	"return a valueHolder for enable/disable
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	686	"
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	687	^ menuButton enableChannel
1179 fd1e5968db2f initial checkin ps parents: diff changeset	688
fd1e5968db2f initial checkin ps parents: diff changeset	689
1224 f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	690	!
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	691
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	692	enableChannel:aValueHolder
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	693	"set a valueHolder for enable/disable for the components
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	694	"
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	695	(menuField respondsTo:#enableChannel:) ifTrue:[
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	696	menuField enableChannel:aValueHolder
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	697	].
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	698	menuButton enableChannel:aValueHolder.
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	699
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	700
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	701	!
1179 fd1e5968db2f initial checkin ps parents: diff changeset	702
1224 f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	703	menuWidgetHolder
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	704	"returns the menu widget or nil
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	705	"
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	706	^ menuWidgetHolder
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	707	!
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	708
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	709	menuWidgetHolder:aHolder
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	710	"returns the menu widget or nil
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	711	"
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	712	menuWidgetHolder notNil ifTrue:[
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	713	menuWidgetHolder removeDependent:self
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	714	].
1614 888512684294 bug fix ca parents: 1406 diff changeset	715
888512684294 bug fix ca parents: 1406 diff changeset	716	(menuWidgetHolder := aHolder) notNil ifTrue:[
1224 f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	717	menuWidgetHolder addDependent:self
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	718	].
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	719	self menuWidget:(menuWidgetHolder value).
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	720	!
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	721
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	722	model:aModel
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	723	"set the model
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	724	"
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	725	super model:(aModel ? ValueHolder new).
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	726	menuField notNil ifTrue:[ menuField model:model ].
1179 fd1e5968db2f initial checkin ps parents: diff changeset	727	! !
fd1e5968db2f initial checkin ps parents: diff changeset	728
1274 0f36e87f6b21 add openAction Claus Gittinger <cg@exept.de> parents: 1273 diff changeset	729	!ExtendedComboBox methodsFor:'accessing-default menus'!
0f36e87f6b21 add openAction Claus Gittinger <cg@exept.de> parents: 1273 diff changeset	730
0f36e87f6b21 add openAction Claus Gittinger <cg@exept.de> parents: 1273 diff changeset	731	directory:aDirectory
0f36e87f6b21 add openAction Claus Gittinger <cg@exept.de> parents: 1273 diff changeset	732	"creates a FileSelectionTree - menu,
0f36e87f6b21 add openAction Claus Gittinger <cg@exept.de> parents: 1273 diff changeset	733	setting the root to the directory
0f36e87f6b21 add openAction Claus Gittinger <cg@exept.de> parents: 1273 diff changeset	734	"
0f36e87f6b21 add openAction Claus Gittinger <cg@exept.de> parents: 1273 diff changeset	735	menuWidget isNil ifTrue:[
0f36e87f6b21 add openAction Claus Gittinger <cg@exept.de> parents: 1273 diff changeset	736	self autoHideScrollBars:false.
0f36e87f6b21 add openAction Claus Gittinger <cg@exept.de> parents: 1273 diff changeset	737	menuWidget := FileSelectionTree new.
0f36e87f6b21 add openAction Claus Gittinger <cg@exept.de> parents: 1273 diff changeset	738
0f36e87f6b21 add openAction Claus Gittinger <cg@exept.de> parents: 1273 diff changeset	739	menuWidget doubleClickAction:[:aDummy\|\|node\|
0f36e87f6b21 add openAction Claus Gittinger <cg@exept.de> parents: 1273 diff changeset	740	node := menuWidget selectedNode.
0f36e87f6b21 add openAction Claus Gittinger <cg@exept.de> parents: 1273 diff changeset	741
0f36e87f6b21 add openAction Claus Gittinger <cg@exept.de> parents: 1273 diff changeset	742	node isDirectory ifFalse:[
0f36e87f6b21 add openAction Claus Gittinger <cg@exept.de> parents: 1273 diff changeset	743	self contents:(node pathName)
0f36e87f6b21 add openAction Claus Gittinger <cg@exept.de> parents: 1273 diff changeset	744	]
0f36e87f6b21 add openAction Claus Gittinger <cg@exept.de> parents: 1273 diff changeset	745	]
0f36e87f6b21 add openAction Claus Gittinger <cg@exept.de> parents: 1273 diff changeset	746	].
0f36e87f6b21 add openAction Claus Gittinger <cg@exept.de> parents: 1273 diff changeset	747	self menuHeight:400.
0f36e87f6b21 add openAction Claus Gittinger <cg@exept.de> parents: 1273 diff changeset	748	menuWidget directory:aDirectory.
0f36e87f6b21 add openAction Claus Gittinger <cg@exept.de> parents: 1273 diff changeset	749	!
0f36e87f6b21 add openAction Claus Gittinger <cg@exept.de> parents: 1273 diff changeset	750
0f36e87f6b21 add openAction Claus Gittinger <cg@exept.de> parents: 1273 diff changeset	751	list:aList
0f36e87f6b21 add openAction Claus Gittinger <cg@exept.de> parents: 1273 diff changeset	752	"creates a SelectionInListView - menu
0f36e87f6b21 add openAction Claus Gittinger <cg@exept.de> parents: 1273 diff changeset	753	setting the list
0f36e87f6b21 add openAction Claus Gittinger <cg@exept.de> parents: 1273 diff changeset	754	"
0f36e87f6b21 add openAction Claus Gittinger <cg@exept.de> parents: 1273 diff changeset	755	menuWidget isNil ifTrue:[
1648 aed7d8a7097c create popup & subviews on my device (not on screen current) Claus Gittinger <cg@exept.de> parents: 1630 diff changeset	756	menuWidget := SelectionInListView onDevice:(device ? Screen current).
1274 0f36e87f6b21 add openAction Claus Gittinger <cg@exept.de> parents: 1273 diff changeset	757
0f36e87f6b21 add openAction Claus Gittinger <cg@exept.de> parents: 1273 diff changeset	758	menuWidget doubleClickAction:[:anIndex\|
0f36e87f6b21 add openAction Claus Gittinger <cg@exept.de> parents: 1273 diff changeset	759	self contents:(menuWidget at:anIndex)
0f36e87f6b21 add openAction Claus Gittinger <cg@exept.de> parents: 1273 diff changeset	760	]
0f36e87f6b21 add openAction Claus Gittinger <cg@exept.de> parents: 1273 diff changeset	761	].
0f36e87f6b21 add openAction Claus Gittinger <cg@exept.de> parents: 1273 diff changeset	762	menuWidget list:aList
0f36e87f6b21 add openAction Claus Gittinger <cg@exept.de> parents: 1273 diff changeset	763	! !
0f36e87f6b21 add openAction Claus Gittinger <cg@exept.de> parents: 1273 diff changeset	764
1179 fd1e5968db2f initial checkin ps parents: diff changeset	765	!ExtendedComboBox methodsFor:'accessing-dimension'!
fd1e5968db2f initial checkin ps parents: diff changeset	766
1224 f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	767	menuHeight
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	768	"get the maximum height of the menu widget or nil
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	769	"
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	770	^ menuHeight
1179 fd1e5968db2f initial checkin ps parents: diff changeset	771	!
fd1e5968db2f initial checkin ps parents: diff changeset	772
1224 f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	773	menuHeight:aHeight
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	774	"set the maximum height of the menu widget or nil
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	775	"
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	776	menuHeight := aHeight.
1179 fd1e5968db2f initial checkin ps parents: diff changeset	777	!
fd1e5968db2f initial checkin ps parents: diff changeset	778
1224 f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	779	preferredExtent
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	780	"compute & return the preferredExtent from the components' preferrences
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	781	"
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	782	\|fieldPref buttonPref m w h f\|
1179 fd1e5968db2f initial checkin ps parents: diff changeset	783
1224 f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	784	"/ If I have an explicit preferredExtent ..
1179 fd1e5968db2f initial checkin ps parents: diff changeset	785
1224 f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	786	preferredExtent notNil ifTrue:[
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	787	^ preferredExtent
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	788	].
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	789	fieldPref := menuField preferredExtent.
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	790	buttonPref := menuButton preferredExtent.
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	791	f := 2 + font maxHeight + (font maxDescent * 2) + (menuField margin * 2).
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	792	h := (fieldPref y max:f) max:buttonPref y.
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	793	m := margin max:1.
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	794	h := h + m + m.
1179 fd1e5968db2f initial checkin ps parents: diff changeset	795
1224 f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	796	w := (fieldPref x max:100) + buttonPref x.
1179 fd1e5968db2f initial checkin ps parents: diff changeset	797
1224 f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	798	menuWidget notNil ifTrue:[
1282 4269f064951c allow for menuHeight to be a block; Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	799	f := menuWidget preferredExtent x "widthOfContents" + buttonPref x + 20.
1224 f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	800	w := f max:w
1179 fd1e5968db2f initial checkin ps parents: diff changeset	801	].
1224 f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	802	w := w + margin + margin.
1179 fd1e5968db2f initial checkin ps parents: diff changeset	803
1224 f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	804	^ w @ h
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	805
1179 fd1e5968db2f initial checkin ps parents: diff changeset	806	!
fd1e5968db2f initial checkin ps parents: diff changeset	807
1224 f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	808	usePreferredWidthForMenu
1282 4269f064951c allow for menuHeight to be a block; Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	809	"returns true if the menu is to be opened with its menu preferred width
1224 f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	810	"
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	811	^ usePreferredWidthForMenu
1179 fd1e5968db2f initial checkin ps parents: diff changeset	812
fd1e5968db2f initial checkin ps parents: diff changeset	813	!
fd1e5968db2f initial checkin ps parents: diff changeset	814
1224 f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	815	usePreferredWidthForMenu:aBoolean
1282 4269f064951c allow for menuHeight to be a block; Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	816	"open the menu with its preferred width
1224 f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	817	"
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	818	usePreferredWidthForMenu := aBoolean
1179 fd1e5968db2f initial checkin ps parents: diff changeset	819	! !
fd1e5968db2f initial checkin ps parents: diff changeset	820
1224 f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	821	!ExtendedComboBox methodsFor:'accessing-look'!
1179 fd1e5968db2f initial checkin ps parents: diff changeset	822
1224 f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	823	adjust
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	824	"returns the button adjust symbol, which is one of
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	825	#left -> left adjust button
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	826	#right -> right adjust button
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	827	"
1272 c3eb38fa149d checkin from browser Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	828	^ adjust ? #right
1179 fd1e5968db2f initial checkin ps parents: diff changeset	829
fd1e5968db2f initial checkin ps parents: diff changeset	830	!
fd1e5968db2f initial checkin ps parents: diff changeset	831
1224 f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	832	adjust:how
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	833	"set the button adjust, which must be one of
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	834	#left -> left adjust button
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	835	#right -> right adjust button
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	836	"
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	837	\|rightInset\|
1179 fd1e5968db2f initial checkin ps parents: diff changeset	838
1224 f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	839	(adjust ~~ how and:[(how == #left or:[how == #right])]) ifTrue:[
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	840	(adjust := how) == #left ifTrue:[
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	841	menuButton origin:0.0@0.0 corner:0.0@1.0
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	842	] ifFalse:[
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	843	menuButton origin:1.0@0.0 corner:1.0@1.0
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	844	].
1179 fd1e5968db2f initial checkin ps parents: diff changeset	845
1224 f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	846	rightInset := menuButton leftInset.
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	847	menuButton leftInset:(menuButton rightInset).
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	848	menuButton rightInset:rightInset.
1179 fd1e5968db2f initial checkin ps parents: diff changeset	849
1224 f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	850	rightInset := menuField leftInset.
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	851	menuField leftInset:(menuField rightInset).
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	852	menuField rightInset:rightInset.
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	853	].
1179 fd1e5968db2f initial checkin ps parents: diff changeset	854	!
fd1e5968db2f initial checkin ps parents: diff changeset	855
1224 f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	856	backgroundColor
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	857	"get the background color of the menu field
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	858	"
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	859	^ menuField backgroundColor
1179 fd1e5968db2f initial checkin ps parents: diff changeset	860
fd1e5968db2f initial checkin ps parents: diff changeset	861
1224 f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	862	!
1179 fd1e5968db2f initial checkin ps parents: diff changeset	863
1224 f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	864	backgroundColor:aColor
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	865	"set the background color of the menu field
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	866	"
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	867	menuField backgroundColor:aColor
1179 fd1e5968db2f initial checkin ps parents: diff changeset	868
fd1e5968db2f initial checkin ps parents: diff changeset	869	!
fd1e5968db2f initial checkin ps parents: diff changeset	870
1224 f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	871	font:aFont
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	872	"set the font of the menu field
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	873	"
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	874	super font:aFont.
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	875	menuField font:aFont.
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	876
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	877
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	878
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	879	!
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	880
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	881	foregroundColor
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	882	"set the foreground color of the menu field
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	883	"
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	884	^ menuField foregroundColor
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	885
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	886	!
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	887
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	888	foregroundColor:aColor
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	889	"set the foreground color of the menu field
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	890	"
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	891	menuField foregroundColor:aColor
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	892
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	893	!
1179 fd1e5968db2f initial checkin ps parents: diff changeset	894
1224 f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	895	readOnly
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	896	"returns true if the menuField is readonly, a label
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	897	"
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	898	^ isReadOnly
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	899	!
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	900
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	901	readOnly:aState
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	902	"set the menuField to readonly or writable
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	903	"
1696 f1bae6d68ffe eliminated styleSheet name = win95 queries Claus Gittinger <cg@exept.de> parents: 1648 diff changeset	904	\|newField nm\|
1224 f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	905
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	906	isReadOnly == aState ifTrue:[ ^ self ].
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	907	isReadOnly := aState.
1179 fd1e5968db2f initial checkin ps parents: diff changeset	908
1224 f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	909	aState ifTrue:[
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	910	newField := Label in:self.
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	911	newField level:-1.
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	912	newField adjust:#left.
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	913	newField labelMessage:#value.
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	914	] ifFalse:[
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	915	newField := EditField in:self
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	916	].
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	917
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	918	newField origin:0.0 @ 0.0 corner:1.0 @ 1.0.
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	919
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	920	menuField notNil ifTrue:[
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	921	newField level:(menuField level).
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	922	newField leftInset:(menuField leftInset).
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	923	newField rightInset:(menuField rightInset).
1179 fd1e5968db2f initial checkin ps parents: diff changeset	924
1224 f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	925	menuField destroy.
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	926	] ifFalse:[
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	927	styleSheet is3D ifTrue:[
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	928	(styleSheet at:'comboViewLevel' default:nil) notNil ifTrue:[
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	929	newField level:0.
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	930	] ifFalse:[
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	931	newField leftInset:(ViewSpacing // 2).
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	932	]
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	933	].
1696 f1bae6d68ffe eliminated styleSheet name = win95 queries Claus Gittinger <cg@exept.de> parents: 1648 diff changeset	934	nm := styleSheet name.
f1bae6d68ffe eliminated styleSheet name = win95 queries Claus Gittinger <cg@exept.de> parents: 1648 diff changeset	935	(nm = #win95 or:[nm = #win98 or:[nm = #st80]]) ifTrue:[
1224 f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	936	newField level:0.
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	937	newField leftInset:0.
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	938	].
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	939	newField rightInset:(menuButton leftInset negated).
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	940	].
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	941
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	942	menuField := newField.
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	943	menuField model:model.
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	944	menuField font:font.
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	945	self shown ifTrue:[ menuField realize ].
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	946
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	947
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	948	! !
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	949
1272 c3eb38fa149d checkin from browser Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	950	!ExtendedComboBox methodsFor:'accessing-scroller'!
c3eb38fa149d checkin from browser Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	951
c3eb38fa149d checkin from browser Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	952	autoHideScrollBars
c3eb38fa149d checkin from browser Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	953	"set/clear the flag which controls if scrollBars should
c3eb38fa149d checkin from browser Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	954	be made invisible dynamically, if there is nothing to scroll
c3eb38fa149d checkin from browser Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	955	(and shown if there is)
c3eb38fa149d checkin from browser Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	956	"
c3eb38fa149d checkin from browser Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	957	^ autoHideScrollBars
c3eb38fa149d checkin from browser Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	958
c3eb38fa149d checkin from browser Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	959
c3eb38fa149d checkin from browser Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	960	!
c3eb38fa149d checkin from browser Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	961
c3eb38fa149d checkin from browser Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	962	autoHideScrollBars:aBoolean
c3eb38fa149d checkin from browser Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	963	"set/clear the flag which controls if scrollBars should
c3eb38fa149d checkin from browser Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	964	be made invisible dynamically, if there is nothing to scroll
c3eb38fa149d checkin from browser Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	965	(and shown if there is)
c3eb38fa149d checkin from browser Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	966	"
c3eb38fa149d checkin from browser Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	967	autoHideScrollBars := aBoolean
c3eb38fa149d checkin from browser Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	968
c3eb38fa149d checkin from browser Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	969	!
c3eb38fa149d checkin from browser Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	970
c3eb38fa149d checkin from browser Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	971	hasHorizontalScrollBar
c3eb38fa149d checkin from browser Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	972	"enable/disable horizontal scrollability.
c3eb38fa149d checkin from browser Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	973	If disabled, the horizontal scrollBar is made invisible.
c3eb38fa149d checkin from browser Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	974	"
c3eb38fa149d checkin from browser Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	975	^ hasHorizontalScrollBar
c3eb38fa149d checkin from browser Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	976
c3eb38fa149d checkin from browser Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	977
c3eb38fa149d checkin from browser Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	978	!
c3eb38fa149d checkin from browser Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	979
c3eb38fa149d checkin from browser Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	980	hasHorizontalScrollBar:aBool
c3eb38fa149d checkin from browser Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	981	"enable/disable horizontal scrollability.
c3eb38fa149d checkin from browser Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	982	If disabled, the horizontal scrollBar is made invisible.
c3eb38fa149d checkin from browser Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	983	"
c3eb38fa149d checkin from browser Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	984	hasHorizontalScrollBar := aBool
c3eb38fa149d checkin from browser Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	985
c3eb38fa149d checkin from browser Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	986	!
c3eb38fa149d checkin from browser Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	987
c3eb38fa149d checkin from browser Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	988	hasVerticalScrollBar
c3eb38fa149d checkin from browser Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	989	"enable/disable vertical scrollability.
c3eb38fa149d checkin from browser Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	990	If disabled, the vertical scrollBar is made invisible.
c3eb38fa149d checkin from browser Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	991	"
c3eb38fa149d checkin from browser Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	992	^ hasVerticalScrollBar
c3eb38fa149d checkin from browser Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	993	!
c3eb38fa149d checkin from browser Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	994
c3eb38fa149d checkin from browser Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	995	hasVerticalScrollBar:aBool
c3eb38fa149d checkin from browser Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	996	"enable/disable vertical scrollability.
c3eb38fa149d checkin from browser Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	997	If disabled, the vertical scrollBar is made invisible.
c3eb38fa149d checkin from browser Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	998	"
c3eb38fa149d checkin from browser Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	999	hasVerticalScrollBar := aBool
c3eb38fa149d checkin from browser Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	1000
c3eb38fa149d checkin from browser Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	1001	!
c3eb38fa149d checkin from browser Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	1002
c3eb38fa149d checkin from browser Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	1003	miniScrollerHorizontal
c3eb38fa149d checkin from browser Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	1004	"control the horizontal scrollBar to be either a miniScroller,
c3eb38fa149d checkin from browser Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	1005	or a full scrollBar.
c3eb38fa149d checkin from browser Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	1006	"
c3eb38fa149d checkin from browser Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	1007	^ miniScrollerHorizontal
c3eb38fa149d checkin from browser Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	1008	!
c3eb38fa149d checkin from browser Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	1009
c3eb38fa149d checkin from browser Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	1010	miniScrollerHorizontal:aBool
c3eb38fa149d checkin from browser Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	1011	"control the horizontal scrollBar to be either a miniScroller,
c3eb38fa149d checkin from browser Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	1012	or a full scrollBar.
c3eb38fa149d checkin from browser Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	1013	"
c3eb38fa149d checkin from browser Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	1014	miniScrollerHorizontal := aBool
c3eb38fa149d checkin from browser Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	1015
c3eb38fa149d checkin from browser Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	1016	!
c3eb38fa149d checkin from browser Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	1017
c3eb38fa149d checkin from browser Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	1018	miniScrollerVertical
c3eb38fa149d checkin from browser Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	1019	"control the vertical scrollBar to be either a miniScroller,
c3eb38fa149d checkin from browser Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	1020	or a full scrollBar.
c3eb38fa149d checkin from browser Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	1021	"
c3eb38fa149d checkin from browser Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	1022	^ miniScrollerVertical
c3eb38fa149d checkin from browser Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	1023
c3eb38fa149d checkin from browser Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	1024
c3eb38fa149d checkin from browser Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	1025	!
c3eb38fa149d checkin from browser Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	1026
c3eb38fa149d checkin from browser Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	1027	miniScrollerVertical:aBool
c3eb38fa149d checkin from browser Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	1028	"control the vertical scrollBar to be either a miniScroller,
c3eb38fa149d checkin from browser Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	1029	or a full scrollBar.
c3eb38fa149d checkin from browser Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	1030	"
c3eb38fa149d checkin from browser Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	1031	miniScrollerVertical := aBool
c3eb38fa149d checkin from browser Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	1032
c3eb38fa149d checkin from browser Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	1033	! !
c3eb38fa149d checkin from browser Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	1034
1224 f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1035	!ExtendedComboBox methodsFor:'event handling'!
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1036
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1037	doesNotUnderstand:aMessage
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1038	"does not understand message; delegate to widget
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1039	"
1272 c3eb38fa149d checkin from browser Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	1040	menuWidget notNil ifTrue:[
c3eb38fa149d checkin from browser Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	1041	^ aMessage sendTo:menuWidget
c3eb38fa149d checkin from browser Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	1042	].
c3eb38fa149d checkin from browser Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	1043	^ super doesNotUnderstand:aMessage
1224 f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1044
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1045	!
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1046
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1047	keyPress:key x:x y:y
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1048	"handle a key press event
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1049	"
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1050	(key == Character space or:[key == #Return]) ifTrue:[
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1051	self enabled ifTrue:[
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1052	self openMenu
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1053	]
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1054	] ifFalse:[
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1055	super keyPress:key x:x y:y
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1056	]
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1057
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1058	!
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1059
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1060	update:what with:aPara from:aModel
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1061	"one of my models changed
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1062	"
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1063	aModel == self model ifTrue:[
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1064	^ self closeMenu
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1065	].
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1066	aModel == self menuWidgetHolder ifTrue:[
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1067	^ self menuWidget:(menuWidgetHolder value)
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1068	].
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1069	super update:what with:aPara from:aModel
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1070
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1071
1179 fd1e5968db2f initial checkin ps parents: diff changeset	1072	! !
fd1e5968db2f initial checkin ps parents: diff changeset	1073
fd1e5968db2f initial checkin ps parents: diff changeset	1074	!ExtendedComboBox methodsFor:'initialization'!
fd1e5968db2f initial checkin ps parents: diff changeset	1075
1224 f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1076	destroy
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1077	"destroy the menuWrapper and release dependencies
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1078	"
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1079	menuWidgetHolder notNil ifTrue:[
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1080	menuWidgetHolder removeDependent:self
1179 fd1e5968db2f initial checkin ps parents: diff changeset	1081	].
1224 f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1082	self menuWidget:nil.
1179 fd1e5968db2f initial checkin ps parents: diff changeset	1083	super destroy.
fd1e5968db2f initial checkin ps parents: diff changeset	1084	!
fd1e5968db2f initial checkin ps parents: diff changeset	1085
fd1e5968db2f initial checkin ps parents: diff changeset	1086	initialize
1224 f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1087	"setup defaults
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1088	"
1696 f1bae6d68ffe eliminated styleSheet name = win95 queries Claus Gittinger <cg@exept.de> parents: 1648 diff changeset	1089	\|prefExt leftInset halfSpacing l nm\|
1179 fd1e5968db2f initial checkin ps parents: diff changeset	1090
fd1e5968db2f initial checkin ps parents: diff changeset	1091	super initialize.
1224 f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1092
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1093	menuButton := ComboBoxButton origin:1.0@0.0 corner:1.0@1.0 in:self.
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1094	menuButton controller beTriggerOnDown.
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1095	menuButton label:(ComboView buttonForm).
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1096	menuButton showLamp:false.
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1097
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1098	menuButton activeLevel == menuButton passiveLevel ifTrue:[
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1099	menuButton activeLevel:0.
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1100	].
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1101	menuButton pressAction:[self openMenu].
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1102
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1103	prefExt := menuButton preferredExtent.
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1104
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1105	styleSheet is3D ifTrue:[
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1106	halfSpacing := ViewSpacing // 2.
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1107	leftInset := prefExt x + halfSpacing.
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1108
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1109	(l := styleSheet at:'comboViewLevel' default:nil) notNil ifTrue:[
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1110	self level:l.
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1111	] ifFalse:[
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1112	menuButton rightInset:halfSpacing.
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1113	]
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1114	] ifFalse:[
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1115	leftInset := prefExt x + menuButton borderWidth.
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1116	].
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1117
1696 f1bae6d68ffe eliminated styleSheet name = win95 queries Claus Gittinger <cg@exept.de> parents: 1648 diff changeset	1118	nm := styleSheet name.
f1bae6d68ffe eliminated styleSheet name = win95 queries Claus Gittinger <cg@exept.de> parents: 1648 diff changeset	1119	(nm = #win95
f1bae6d68ffe eliminated styleSheet name = win95 queries Claus Gittinger <cg@exept.de> parents: 1648 diff changeset	1120	or:[nm = #win98
f1bae6d68ffe eliminated styleSheet name = win95 queries Claus Gittinger <cg@exept.de> parents: 1648 diff changeset	1121	or:[nm = #st80]]) ifTrue:[
1224 f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1122	self level:-1.
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1123	menuButton rightInset:0.
1179 fd1e5968db2f initial checkin ps parents: diff changeset	1124
1696 f1bae6d68ffe eliminated styleSheet name = win95 queries Claus Gittinger <cg@exept.de> parents: 1648 diff changeset	1125	nm ~= #st80 ifTrue:[
1224 f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1126	leftInset := (ArrowButton new preferredExtent x).
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1127	].
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1128	].
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1129	menuButton leftInset:leftInset negated.
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1130	self model:nil.
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1131
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1132	adjust := #right.
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1133	usePreferredWidthForMenu := false.
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1134	isReadOnly := false.
1272 c3eb38fa149d checkin from browser Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	1135
c3eb38fa149d checkin from browser Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	1136	autoHideScrollBars := true.
c3eb38fa149d checkin from browser Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	1137	hasHorizontalScrollBar := true.
c3eb38fa149d checkin from browser Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	1138	hasVerticalScrollBar := true.
c3eb38fa149d checkin from browser Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	1139	miniScrollerHorizontal := true.
c3eb38fa149d checkin from browser Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	1140	miniScrollerVertical := false.
c3eb38fa149d checkin from browser Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	1141
1224 f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1142	self readOnly:true.
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1143
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1144	! !
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1145
1272 c3eb38fa149d checkin from browser Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	1146	!ExtendedComboBox methodsFor:'queries'!
c3eb38fa149d checkin from browser Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	1147
c3eb38fa149d checkin from browser Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	1148	menuIsScrollable
c3eb38fa149d checkin from browser Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	1149	"returns true if the menu is scrollable
c3eb38fa149d checkin from browser Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	1150	"
c3eb38fa149d checkin from browser Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	1151	^ (self hasVerticalScrollBar or:[self hasHorizontalScrollBar])
c3eb38fa149d checkin from browser Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	1152	! !
c3eb38fa149d checkin from browser Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	1153
1224 f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1154	!ExtendedComboBox methodsFor:'user interactions'!
1179 fd1e5968db2f initial checkin ps parents: diff changeset	1155
1224 f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1156	closeMenu
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1157	"close the menu
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1158	"
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1159	\|id\|
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1160
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1161	menuWrapper notNil ifTrue:[
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1162	menuWrapper realized ifFalse:[
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1163	(id := menuWrapper id) notNil ifTrue:[
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1164	device unmapWindow:id
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1165	]
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1166	] ifTrue:[
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1167	menuWrapper unmap
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1168	].
1273 0460739b9e97 checkin from browser Claus Gittinger <cg@exept.de> parents: 1272 diff changeset	1169	"/ menuWrapper windowGroup:nil.
0460739b9e97 checkin from browser Claus Gittinger <cg@exept.de> parents: 1272 diff changeset	1170	"/ self windowGroup removeView:menuWrapper.
1224 f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1171	].
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1172	menuButton turnOff.
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1173
1179 fd1e5968db2f initial checkin ps parents: diff changeset	1174	!
fd1e5968db2f initial checkin ps parents: diff changeset	1175
1224 f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1176	openMenu
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1177	"pull the menu - triggered from the button
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1178	"
1392 2d4a90914f2b checkin from browser Claus Gittinger <cg@exept.de> parents: 1286 diff changeset	1179	\|h w menuOrigin widgetPrfExt useableExt\|
1179 fd1e5968db2f initial checkin ps parents: diff changeset	1180
1630 01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	1181	"/[
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	1182	"/\|v\|
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	1183	"/
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	1184	"/v := self container.
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	1185	"/[v notNil] whileTrue:[
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	1186	"/ v class == CodingExamples_GUI::GUIDemoExtendedComboBox::ApplicationSubView ifTrue:[
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	1187	"/ self halt
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	1188	"/ ].
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	1189	"/ v := v container.
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	1190	"/].
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	1191	"/] value.
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	1192
1274 0f36e87f6b21 add openAction Claus Gittinger <cg@exept.de> parents: 1273 diff changeset	1193	openAction notNil ifTrue:[
0f36e87f6b21 add openAction Claus Gittinger <cg@exept.de> parents: 1273 diff changeset	1194	openAction numArgs == 0 ifTrue:[
0f36e87f6b21 add openAction Claus Gittinger <cg@exept.de> parents: 1273 diff changeset	1195	openAction value
0f36e87f6b21 add openAction Claus Gittinger <cg@exept.de> parents: 1273 diff changeset	1196	] ifFalse:[
0f36e87f6b21 add openAction Claus Gittinger <cg@exept.de> parents: 1273 diff changeset	1197	openAction value:menuWidget
0f36e87f6b21 add openAction Claus Gittinger <cg@exept.de> parents: 1273 diff changeset	1198	]
0f36e87f6b21 add openAction Claus Gittinger <cg@exept.de> parents: 1273 diff changeset	1199	].
1224 f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1200	menuWrapper isNil ifTrue:[
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1201	menuWidget isNil ifTrue:[^ self].
1648 aed7d8a7097c create popup & subviews on my device (not on screen current) Claus Gittinger <cg@exept.de> parents: 1630 diff changeset	1202	menuWrapper := MenuWrapper onDevice:(device ? Screen current).
1272 c3eb38fa149d checkin from browser Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	1203	menuWrapper for:menuWidget in:self.
1224 f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1204	].
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1205	menuButton turnOn.
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1206
1392 2d4a90914f2b checkin from browser Claus Gittinger <cg@exept.de> parents: 1286 diff changeset	1207	menuOrigin := device translatePoint:(0@height) from:(self id) to:(device rootWindowId).
2d4a90914f2b checkin from browser Claus Gittinger <cg@exept.de> parents: 1286 diff changeset	1208	useableExt := device usableExtent.
2d4a90914f2b checkin from browser Claus Gittinger <cg@exept.de> parents: 1286 diff changeset	1209	widgetPrfExt := menuWrapper preferredExtent.
1179 fd1e5968db2f initial checkin ps parents: diff changeset	1210
1224 f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1211	menuHeight isNil ifTrue:[
1392 2d4a90914f2b checkin from browser Claus Gittinger <cg@exept.de> parents: 1286 diff changeset	1212	menuHeight := (5 + widgetPrfExt y) min:(useableExt y // 2).
1224 f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1213	].
1179 fd1e5968db2f initial checkin ps parents: diff changeset	1214
1224 f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1215	usePreferredWidthForMenu ifFalse:[
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1216	w := width
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1217	] ifTrue:[
1392 2d4a90914f2b checkin from browser Claus Gittinger <cg@exept.de> parents: 1286 diff changeset	1218	(w := widgetPrfExt x+(menuWrapper borderWidth*2)) <= width ifTrue:[
1224 f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1219	w := width
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1220	] ifFalse:[
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1221	(w + menuOrigin x) > useableExt x ifTrue:[
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1222	menuOrigin x:((useableExt x - w) max:0)
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1223	]
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1224	]
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1225	].
1282 4269f064951c allow for menuHeight to be a block; Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	1226
4269f064951c allow for menuHeight to be a block; Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	1227	"/ nice side-effect; set width first, to allow menuHeight
4269f064951c allow for menuHeight to be a block; Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	1228	"/ to be a block computing the height based upon the width.
4269f064951c allow for menuHeight to be a block; Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	1229	"/ (allows for geometry adjustments)
4269f064951c allow for menuHeight to be a block; Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	1230
4269f064951c allow for menuHeight to be a block; Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	1231	menuWrapper width:w.
4269f064951c allow for menuHeight to be a block; Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	1232	h := (useableExt y - menuOrigin y - 4) min:(menuHeight value).
4269f064951c allow for menuHeight to be a block; Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	1233	menuWrapper height:h.
4269f064951c allow for menuHeight to be a block; Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	1234
4269f064951c allow for menuHeight to be a block; Claus Gittinger <cg@exept.de> parents: 1281 diff changeset	1235	menuWrapper origin:menuOrigin extent:(w@h).
1273 0460739b9e97 checkin from browser Claus Gittinger <cg@exept.de> parents: 1272 diff changeset	1236	menuWrapper openModal.
1179 fd1e5968db2f initial checkin ps parents: diff changeset	1237	! !
fd1e5968db2f initial checkin ps parents: diff changeset	1238
1630 01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	1239	!ExtendedComboBox::MenuWrapper class methodsFor:'documentation'!
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	1240
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	1241	documentation
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	1242	"
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	1243	problem: we have a grab - and get all events;
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	1244	to simulate regular behaior inside, we have to synthetically simulate
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	1245	focus control and implicit grab on buttonPress.
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	1246
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	1247	[instance variables:]
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	1248	lastPointerView <View> view which contained the
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	1249	mouse pointer.
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	1250	used for enter/leave event generation.
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	1251
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	1252	implicitGrabView <View> view in which button was pressed;
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	1253	nilled when released (wherever).
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	1254	If non-nil, all events are forwarded to this
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	1255	one (for example to scroll with mouse outside the scrollbar)
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	1256
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	1257	"
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	1258	! !
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	1259
1224 f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1260	!ExtendedComboBox::MenuWrapper methodsFor:'accessing'!
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1261
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1262	application
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1263	"return the application, under which this view was opened,
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1264	or nil, if there is no application
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1265	"
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1266	^ comboBox application
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1267
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1268	!
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1269
1630 01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	1270	clearImplicitGrab
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	1271	implicitGrabView := nil
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	1272	!
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	1273
1224 f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1274	preferredExtent
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1275	"compute & return the preferredExtent from the components' preferrences
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1276	"
1284 1fb5f5cbd4d3 checkin from browser Claus Gittinger <cg@exept.de> parents: 1282 diff changeset	1277	^ (widget preferredExtent max:(widget widthOfContents @ widget heightOfContents))
1fb5f5cbd4d3 checkin from browser Claus Gittinger <cg@exept.de> parents: 1282 diff changeset	1278	+ (margin * 2) + 8.
1224 f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1279	!
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1280
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1281	widget
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1282	"returns the widget wrapped by the menuView
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1283	"
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1284	^ widget
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1285	! !
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1286
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1287	!ExtendedComboBox::MenuWrapper methodsFor:'event handling'!
1179 fd1e5968db2f initial checkin ps parents: diff changeset	1288
1630 01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	1289	dispatchEvent:event withFocusOn:focusViewOrNil delegate:doDelegate
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	1290	"dispatch the event"
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	1291
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	1292	\|originalEvent x y oldGrabber myGrabber p\|
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	1293
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	1294	event isInputEvent ifFalse:[
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	1295	super dispatchEvent:event withFocusOn:focusViewOrNil delegate:doDelegate.
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	1296	^ self
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	1297	].
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	1298
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	1299	event isPointerEnterLeaveEvent ifTrue:[
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	1300	super dispatchEvent:event withFocusOn:focusViewOrNil delegate:doDelegate.
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	1301	^ self
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	1302	].
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	1303
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	1304	event isButtonPressEvent ifTrue:[
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	1305	x := event x.
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	1306	y := event y.
1179 fd1e5968db2f initial checkin ps parents: diff changeset	1307
1630 01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	1308	((0@0 extent:self extent) containsPoint:(x @ y)) ifFalse:[
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	1309	comboBox closeMenu.
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	1310	"/ if I took the grab from someone else, this buttonEvent should
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	1311	"/ also go to that one ...but not, if it falls into my own ext-comboBox (sigh)
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	1312	"/ (example: a sub-ext-box in an ext-box, clicking on the outer boxes menuButton)
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	1313	(oldGrabber := device activePointerGrab) notNil ifTrue:[
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	1314	p := device translatePoint:(x@y) from:(self id) to:(comboBox id).
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	1315	((0@0 extent:comboBox extent) containsPoint:p) ifFalse:[
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	1316	p := device translatePoint:(x@y) from:(self id) to:(oldGrabber id).
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	1317	event view:oldGrabber.
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	1318	event x:p x.
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	1319	event y:p y.
1224 f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1320
1630 01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	1321	"/ this is a hack
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	1322	oldGrabber class == self class ifTrue:[
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	1323	oldGrabber clearImplicitGrab.
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	1324	].
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	1325	oldGrabber dispatchEvent:event withFocusOn:focusViewOrNil delegate:doDelegate.
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	1326	].
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	1327	].
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	1328	^ self.
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	1329	]
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	1330	].
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	1331	self forwardEvent:event withFocusOn:focusViewOrNil.
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	1332	!
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	1333
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	1334	forwardEvent:ev withFocusOn:focusView
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	1335	"handle a key press event
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	1336	"
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	1337	\|view x y p syntheticEvent\|
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	1338
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	1339	"/ situation: we get a buttonPress, set implicitGrab (for scrollbars etc.)
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	1340	"/ but never get the buttonRelease, since someone else (a popUp) grabbed the
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	1341	"/ pointer in the meantime, and has eaten the release event ... (double-sigh)
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	1342	implicitGrabView notNil ifTrue:[
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	1343	self sensor leftButtonPressed ifFalse:[
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	1344	Transcript showCR:'clear'.
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	1345	implicitGrabView := nil.
1179 fd1e5968db2f initial checkin ps parents: diff changeset	1346	].
fd1e5968db2f initial checkin ps parents: diff changeset	1347	].
fd1e5968db2f initial checkin ps parents: diff changeset	1348
1630 01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	1349	((x := ev x) isNil or:[(y := ev y) isNil]) ifTrue:[
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	1350	^ self
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	1351	].
1179 fd1e5968db2f initial checkin ps parents: diff changeset	1352
1630 01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	1353	implicitGrabView notNil ifTrue:[
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	1354	ev isButtonEvent ifTrue:[
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	1355	p := device translatePoint:(x@y) from:(self id) to:(implicitGrabView id).
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	1356	ev view:implicitGrabView.
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	1357	ev arguments at:2 put:p x.
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	1358	ev arguments at:3 put:p y.
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	1359	implicitGrabView dispatchEvent:ev withFocusOn:focusView delegate:false.
1224 f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1360
1630 01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	1361	ev isButtonReleaseEvent ifTrue:[
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	1362	implicitGrabView := nil.
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	1363	].
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	1364	^ self
1179 fd1e5968db2f initial checkin ps parents: diff changeset	1365	]
fd1e5968db2f initial checkin ps parents: diff changeset	1366	].
fd1e5968db2f initial checkin ps parents: diff changeset	1367
1630 01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	1368	view := self detectViewAtX:x y:y.
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	1369	view isNil ifTrue:[
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	1370	^ super dispatchEvent:ev withFocusOn:focusView delegate:false
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	1371	].
1179 fd1e5968db2f initial checkin ps parents: diff changeset	1372
1630 01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	1373	p := device translatePoint:(x@y) from:(self id) to:(view id).
1224 f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1374
1630 01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	1375	ev isButtonPressEvent ifTrue:[
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	1376	(view wantsFocusWithButtonPress) ifTrue:[
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	1377	view requestFocus.
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	1378	].
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	1379	view ~~ self ifTrue:[ "/ can this ever be self ?
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	1380	implicitGrabView := view.
1179 fd1e5968db2f initial checkin ps parents: diff changeset	1381	]
fd1e5968db2f initial checkin ps parents: diff changeset	1382	].
1224 f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1383
1630 01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	1384	ev isButtonMotionEvent ifTrue:[
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	1385	lastPointerView ~~ view ifTrue:[
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	1386	"/ must generate enter/leave ... (sigh)
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	1387	lastPointerView notNil ifTrue:[
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	1388	syntheticEvent := WindowEvent inputEvent
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	1389	for:lastPointerView
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	1390	type:#pointerLeave:
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	1391	arguments:(Array with:0). "/ XXX: should be fixed
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	1392	lastPointerView dispatchEvent:syntheticEvent withFocusOn:nil delegate:false.
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	1393	].
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	1394	view notNil ifTrue:[
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	1395	syntheticEvent := WindowEvent inputEvent
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	1396	for:view
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	1397	type:#pointerEnter:x:y:
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	1398	arguments:(Array with:0 with:x with:y).
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	1399	view dispatchEvent:syntheticEvent withFocusOn:nil delegate:false.
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	1400	].
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	1401	lastPointerView := view.
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	1402	].
1179 fd1e5968db2f initial checkin ps parents: diff changeset	1403	].
fd1e5968db2f initial checkin ps parents: diff changeset	1404
1630 01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	1405	ev view:view.
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	1406	ev x:p x.
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	1407	ev y:p y.
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	1408	view dispatchEvent:ev withFocusOn:focusView delegate:false.
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	1409	! !
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	1410
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	1411	!ExtendedComboBox::MenuWrapper methodsFor:'focus handling'!
1179 fd1e5968db2f initial checkin ps parents: diff changeset	1412
1630 01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	1413	wantsFocusWithButtonPress
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	1414	"views which do not like to take the keyboard focus
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	1415	with buttonPress can do so by redefining this
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	1416	to return false"
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	1417
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	1418	^ false
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	1419
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	1420
1179 fd1e5968db2f initial checkin ps parents: diff changeset	1421	! !
fd1e5968db2f initial checkin ps parents: diff changeset	1422
1224 f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1423	!ExtendedComboBox::MenuWrapper methodsFor:'initialization'!
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1424
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1425	for:aWidget in:aReceiver
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1426	"create a wrapper for a widget and the receiver, an extented comboBox
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1427	"
1272 c3eb38fa149d checkin from browser Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	1428	\|hasScr\|
c3eb38fa149d checkin from browser Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	1429
1224 f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1430	comboBox := aReceiver.
1272 c3eb38fa149d checkin from browser Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	1431	widget := aWidget.
c3eb38fa149d checkin from browser Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	1432	hasScr := aWidget isScrollWrapper.
1179 fd1e5968db2f initial checkin ps parents: diff changeset	1433
1272 c3eb38fa149d checkin from browser Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	1434	comboBox menuIsScrollable ifTrue:[
c3eb38fa149d checkin from browser Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	1435	hasScr ifFalse:[
c3eb38fa149d checkin from browser Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	1436	widget := ScrollableView forView:aWidget.
c3eb38fa149d checkin from browser Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	1437	hasScr := true.
c3eb38fa149d checkin from browser Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	1438	].
c3eb38fa149d checkin from browser Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	1439	widget horizontalScrollable:(comboBox hasHorizontalScrollBar).
c3eb38fa149d checkin from browser Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	1440	widget verticalScrollable:(comboBox hasVerticalScrollBar).
c3eb38fa149d checkin from browser Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	1441	widget horizontalMini:(comboBox miniScrollerHorizontal).
c3eb38fa149d checkin from browser Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	1442	widget verticalMini:(comboBox miniScrollerVertical).
c3eb38fa149d checkin from browser Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	1443	widget autoHideScrollBars:(comboBox autoHideScrollBars).
1224 f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1444	].
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1445	widget origin:0.0 @ 0.0 corner:1.0 @ 1.0.
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1446	self add:widget.
1272 c3eb38fa149d checkin from browser Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	1447
c3eb38fa149d checkin from browser Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	1448	hasScr ifTrue:[
c3eb38fa149d checkin from browser Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	1449	widget := widget scrolledView.
1630 01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	1450	].
01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	1451
1179 fd1e5968db2f initial checkin ps parents: diff changeset	1452	!
fd1e5968db2f initial checkin ps parents: diff changeset	1453
1273 0460739b9e97 checkin from browser Claus Gittinger <cg@exept.de> parents: 1272 diff changeset	1454	hideRequest
0460739b9e97 checkin from browser Claus Gittinger <cg@exept.de> parents: 1272 diff changeset	1455	"hide request from windowGroup (i.e. via Escape key).
0460739b9e97 checkin from browser Claus Gittinger <cg@exept.de> parents: 1272 diff changeset	1456	Can be redefined in subclasses which dont like this"
0460739b9e97 checkin from browser Claus Gittinger <cg@exept.de> parents: 1272 diff changeset	1457
0460739b9e97 checkin from browser Claus Gittinger <cg@exept.de> parents: 1272 diff changeset	1458	comboBox closeMenu
1179 fd1e5968db2f initial checkin ps parents: diff changeset	1459
fd1e5968db2f initial checkin ps parents: diff changeset	1460	!
fd1e5968db2f initial checkin ps parents: diff changeset	1461
fd1e5968db2f initial checkin ps parents: diff changeset	1462	mapped
1224 f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1463	"grab resources (mouse and keyboard)
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1464	"
1179 fd1e5968db2f initial checkin ps parents: diff changeset	1465	super mapped.
1630 01dc20096011 grabbing cleaned up; ca parents: 1614 diff changeset	1466	self assignKeyboardFocusToFirstInputField.
1179 fd1e5968db2f initial checkin ps parents: diff changeset	1467	! !
fd1e5968db2f initial checkin ps parents: diff changeset	1468
1224 f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1469	!ExtendedComboBox::MenuWrapper methodsFor:'queries'!
1179 fd1e5968db2f initial checkin ps parents: diff changeset	1470
1224 f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1471	raiseDeiconified
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1472	^ self raise
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1473
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1474	!
1179 fd1e5968db2f initial checkin ps parents: diff changeset	1475
1224 f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1476	type
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1477	^ nil.
1179 fd1e5968db2f initial checkin ps parents: diff changeset	1478
1224 f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1479
1179 fd1e5968db2f initial checkin ps parents: diff changeset	1480	! !
fd1e5968db2f initial checkin ps parents: diff changeset	1481
1224 f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1482	!ExtendedComboBox::MenuWrapper methodsFor:'searching'!
1179 fd1e5968db2f initial checkin ps parents: diff changeset	1483
fd1e5968db2f initial checkin ps parents: diff changeset	1484	detectViewAtX:x y:y
1224 f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1485	"detect view at x@y. if no view is detected or
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1486	the it is my view nil is returned
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1487	"
1179 fd1e5968db2f initial checkin ps parents: diff changeset	1488	\|v\|
fd1e5968db2f initial checkin ps parents: diff changeset	1489
1224 f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1490	(x notNil or:[y notNil]) ifTrue:[
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1491	((x between:0 and:width) and:[y between:0 and:height]) ifTrue:[
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1492	v := self detectViewAtX:x y:y in:self.
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1493	v ~~ self ifTrue:[^ v].
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1494	]
1179 fd1e5968db2f initial checkin ps parents: diff changeset	1495	].
fd1e5968db2f initial checkin ps parents: diff changeset	1496	^ nil
fd1e5968db2f initial checkin ps parents: diff changeset	1497	!
fd1e5968db2f initial checkin ps parents: diff changeset	1498
fd1e5968db2f initial checkin ps parents: diff changeset	1499	detectViewAtX:x y:y in:aTopView
1224 f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1500	"detect view at x@y in a top view; if no view is detected
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1501	the topview is returned
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1502	"
1179 fd1e5968db2f initial checkin ps parents: diff changeset	1503	\|subviews\|
fd1e5968db2f initial checkin ps parents: diff changeset	1504
1224 f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1505	(subviews := aTopView subViews) notNil ifTrue:[
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1506	subviews do:[:v\|\|p\|
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1507	( (x between:(v left) and:(v right))
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1508	and:[y between:(v top) and:(v bottom)]
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1509	) ifTrue:[
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1510	p := device translatePoint:(x@y) from:(aTopView id) to:(v id).
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1511	^ self detectViewAtX:p x y:p y in:v.
f499a42e072d checkin from browser Claus Gittinger <cg@exept.de> parents: 1179 diff changeset	1512	]
1179 fd1e5968db2f initial checkin ps parents: diff changeset	1513	]
fd1e5968db2f initial checkin ps parents: diff changeset	1514	].
fd1e5968db2f initial checkin ps parents: diff changeset	1515	^ aTopView
fd1e5968db2f initial checkin ps parents: diff changeset	1516	! !
fd1e5968db2f initial checkin ps parents: diff changeset	1517
fd1e5968db2f initial checkin ps parents: diff changeset	1518	!ExtendedComboBox class methodsFor:'documentation'!
fd1e5968db2f initial checkin ps parents: diff changeset	1519
fd1e5968db2f initial checkin ps parents: diff changeset	1520	version
1696 f1bae6d68ffe eliminated styleSheet name = win95 queries Claus Gittinger <cg@exept.de> parents: 1648 diff changeset	1521	^ '$Header: /cvs/stx/stx/libwidg2/ExtendedComboBox.st,v 1.18 2000-02-11 14:55:52 cg Exp $'
1179 fd1e5968db2f initial checkin ps parents: diff changeset	1522	! !

author	Claus Gittinger <cg@exept.de>
	Fri, 11 Feb 2000 15:56:08 +0100
changeset 1696	f1bae6d68ffe
parent 1648	aed7d8a7097c
child 1713	4c3750017ccd
permissions	-rw-r--r--