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

author	Claus Gittinger <cg@exept.de>
	Tue, 10 Dec 2002 12:05:10 +0100
changeset 2404	2b7591c982ac
parent 2173	41ed0651d789
child 2411	47fa3acd65a5
permissions	-rw-r--r--