hg/stx-libwidg2: ComboView.st@f5fe434e1cf7 (annotated)

1301 93a3ec8c339c OOPS - stefan what happened to your checkin (garbage) Claus Gittinger <cg@exept.de> parents: 1294 diff changeset	1	"
332 78dcd3cacbfd documentation Claus Gittinger <cg@exept.de> parents: 331 diff changeset	2	COPYRIGHT (c) 1996 by eXept Software AG / Claus Gittinger
78dcd3cacbfd documentation Claus Gittinger <cg@exept.de> parents: 331 diff changeset	3	All Rights Reserved
78dcd3cacbfd documentation Claus Gittinger <cg@exept.de> parents: 331 diff changeset	4
78dcd3cacbfd documentation Claus Gittinger <cg@exept.de> parents: 331 diff changeset	5	This software is furnished under a license and may be used
78dcd3cacbfd documentation Claus Gittinger <cg@exept.de> parents: 331 diff changeset	6	only in accordance with the terms of that license and with the
78dcd3cacbfd documentation Claus Gittinger <cg@exept.de> parents: 331 diff changeset	7	inclusion of the above copyright notice. This software may not
78dcd3cacbfd documentation Claus Gittinger <cg@exept.de> parents: 331 diff changeset	8	be provided or otherwise made available to, or used by, any
78dcd3cacbfd documentation Claus Gittinger <cg@exept.de> parents: 331 diff changeset	9	other person. No title to or ownership of the software is
78dcd3cacbfd documentation Claus Gittinger <cg@exept.de> parents: 331 diff changeset	10	hereby transferred.
78dcd3cacbfd documentation Claus Gittinger <cg@exept.de> parents: 331 diff changeset	11	"
1884 bf33562ea53b use rootWindowId (save a message send) Claus Gittinger <cg@exept.de> parents: 1696 diff changeset	12	"{ Package: 'stx:libwidg2' }"
bf33562ea53b use rootWindowId (save a message send) Claus Gittinger <cg@exept.de> parents: 1696 diff changeset	13
129 a680f0b7508f intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	14	View subclass:#ComboView
3312 ad1dcdaa7ba7 Support for selection via mouse wheel Stefan Vogel <sv@exept.de> parents: 3290 diff changeset	15	instanceVariableNames:'field pullDownButton list listHolder listMsg action resizableMenu
ad1dcdaa7ba7 Support for selection via mouse wheel Stefan Vogel <sv@exept.de> parents: 3290 diff changeset	16	currentIndex'
2950 431dafff127d cash comboButtonForms ca parents: 2892 diff changeset	17	classVariableNames:'DefaultButtonForm ComboButtonForms'
1306 56e90a9e5da1 renambe #enableStateChange to #enableStateChanged Claus Gittinger <cg@exept.de> parents: 1301 diff changeset	18	poolDictionaries:''
56e90a9e5da1 renambe #enableStateChange to #enableStateChanged Claus Gittinger <cg@exept.de> parents: 1301 diff changeset	19	category:'Views-Interactors'
129 a680f0b7508f intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	20	!
a680f0b7508f intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	21
263 865b7d99d3f5 added an example for a menu-pull-hook Claus Gittinger <cg@exept.de> parents: 247 diff changeset	22	!ComboView class methodsFor:'documentation'!
129 a680f0b7508f intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	23
332 78dcd3cacbfd documentation Claus Gittinger <cg@exept.de> parents: 331 diff changeset	24	copyright
78dcd3cacbfd documentation Claus Gittinger <cg@exept.de> parents: 331 diff changeset	25	"
78dcd3cacbfd documentation Claus Gittinger <cg@exept.de> parents: 331 diff changeset	26	COPYRIGHT (c) 1996 by eXept Software AG / Claus Gittinger
78dcd3cacbfd documentation Claus Gittinger <cg@exept.de> parents: 331 diff changeset	27	All Rights Reserved
78dcd3cacbfd documentation Claus Gittinger <cg@exept.de> parents: 331 diff changeset	28
78dcd3cacbfd documentation Claus Gittinger <cg@exept.de> parents: 331 diff changeset	29	This software is furnished under a license and may be used
78dcd3cacbfd documentation Claus Gittinger <cg@exept.de> parents: 331 diff changeset	30	only in accordance with the terms of that license and with the
78dcd3cacbfd documentation Claus Gittinger <cg@exept.de> parents: 331 diff changeset	31	inclusion of the above copyright notice. This software may not
78dcd3cacbfd documentation Claus Gittinger <cg@exept.de> parents: 331 diff changeset	32	be provided or otherwise made available to, or used by, any
78dcd3cacbfd documentation Claus Gittinger <cg@exept.de> parents: 331 diff changeset	33	other person. No title to or ownership of the software is
78dcd3cacbfd documentation Claus Gittinger <cg@exept.de> parents: 331 diff changeset	34	hereby transferred.
78dcd3cacbfd documentation Claus Gittinger <cg@exept.de> parents: 331 diff changeset	35	"
78dcd3cacbfd documentation Claus Gittinger <cg@exept.de> parents: 331 diff changeset	36
78dcd3cacbfd documentation Claus Gittinger <cg@exept.de> parents: 331 diff changeset	37
78dcd3cacbfd documentation Claus Gittinger <cg@exept.de> parents: 331 diff changeset	38	!
78dcd3cacbfd documentation Claus Gittinger <cg@exept.de> parents: 331 diff changeset	39
129 a680f0b7508f intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	40	documentation
a680f0b7508f intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	41	"
a680f0b7508f intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	42	A ComboView combines some field (typically an enterField or Label)
a680f0b7508f intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	43	with a drop down list of default inputs;
a680f0b7508f intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	44	ComboView is abstract, providing protocol common to ComboBoxView and
a680f0b7508f intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	45	ComboListView. See documentation & examples there.
274 92b51554b1d7 allow form to be specified by styleSheet Claus Gittinger <cg@exept.de> parents: 269 diff changeset	46
92b51554b1d7 allow form to be specified by styleSheet Claus Gittinger <cg@exept.de> parents: 269 diff changeset	47	[author:]
92b51554b1d7 allow form to be specified by styleSheet Claus Gittinger <cg@exept.de> parents: 269 diff changeset	48	Claus Gittinger
92b51554b1d7 allow form to be specified by styleSheet Claus Gittinger <cg@exept.de> parents: 269 diff changeset	49
3312 ad1dcdaa7ba7 Support for selection via mouse wheel Stefan Vogel <sv@exept.de> parents: 3290 diff changeset	50	[instance variables:]
ad1dcdaa7ba7 Support for selection via mouse wheel Stefan Vogel <sv@exept.de> parents: 3290 diff changeset	51	currentIndex Integer index into the list, that is currently selected
ad1dcdaa7ba7 Support for selection via mouse wheel Stefan Vogel <sv@exept.de> parents: 3290 diff changeset	52
274 92b51554b1d7 allow form to be specified by styleSheet Claus Gittinger <cg@exept.de> parents: 269 diff changeset	53	[see also:]
92b51554b1d7 allow form to be specified by styleSheet Claus Gittinger <cg@exept.de> parents: 269 diff changeset	54	PopUpList
1281 94b22cb9c19f documentation Claus Gittinger <cg@exept.de> parents: 1210 diff changeset	55	ComboListView ComboBoxView ExtendedComboBox
274 92b51554b1d7 allow form to be specified by styleSheet Claus Gittinger <cg@exept.de> parents: 269 diff changeset	56	PullDownMenu Label EntryField
129 a680f0b7508f intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	57	"
a680f0b7508f intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	58	!
a680f0b7508f intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	59
a680f0b7508f intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	60	examples
a680f0b7508f intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	61	"
308 922a96deba3e examples removed; cleanup Claus Gittinger <cg@exept.de> parents: 304 diff changeset	62	see examples in ComboListView and ComboBoxView
129 a680f0b7508f intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	63	"
a680f0b7508f intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	64	! !
a680f0b7508f intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	65
263 865b7d99d3f5 added an example for a menu-pull-hook Claus Gittinger <cg@exept.de> parents: 247 diff changeset	66	!ComboView class methodsFor:'defaults'!
129 a680f0b7508f intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	67
a680f0b7508f intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	68	buttonForm
282 95209b20eaca commentary Claus Gittinger <cg@exept.de> parents: 280 diff changeset	69	"return the pull-buttons image"
95209b20eaca commentary Claus Gittinger <cg@exept.de> parents: 280 diff changeset	70
1344 100e4d309847 support for disabled-image in pull-button Claus Gittinger <cg@exept.de> parents: 1334 diff changeset	71	<resource: #style (#'comboView.downForm'
100e4d309847 support for disabled-image in pull-button Claus Gittinger <cg@exept.de> parents: 1334 diff changeset	72	#'comboView.downFormFile')>
274 92b51554b1d7 allow form to be specified by styleSheet Claus Gittinger <cg@exept.de> parents: 269 diff changeset	73
276 8f90ed6c37bc allow either fileName or form to be given by styleSheet Claus Gittinger <cg@exept.de> parents: 274 diff changeset	74	\|fileName form\|
129 a680f0b7508f intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	75
525 d0731a41d19f cache the pull-button image Claus Gittinger <cg@exept.de> parents: 512 diff changeset	76	DefaultButtonForm notNil ifTrue:[
d0731a41d19f cache the pull-button image Claus Gittinger <cg@exept.de> parents: 512 diff changeset	77	^ DefaultButtonForm
d0731a41d19f cache the pull-button image Claus Gittinger <cg@exept.de> parents: 512 diff changeset	78	].
d0731a41d19f cache the pull-button image Claus Gittinger <cg@exept.de> parents: 512 diff changeset	79
1334 cc79acaebf00 * empty log message * Claus Gittinger <cg@exept.de> parents: 1325 diff changeset	80	form := StyleSheet at:#'comboView.downForm'.
274 92b51554b1d7 allow form to be specified by styleSheet Claus Gittinger <cg@exept.de> parents: 269 diff changeset	81	form isNil ifTrue:[
1334 cc79acaebf00 * empty log message * Claus Gittinger <cg@exept.de> parents: 1325 diff changeset	82	fileName := StyleSheet at:#'comboView.downFormFile' "default:'ComboDn.14.xbm'".
1622 ea4d9baf568f try bitmaps in package directory Claus Gittinger <cg@exept.de> parents: 1560 diff changeset	83	fileName notNil ifTrue:[
1633 e3b4e18f4545 * empty log message * Claus Gittinger <cg@exept.de> parents: 1622 diff changeset	84	form := Smalltalk imageFromFileNamed:fileName forClass:self.
2174 ab242e29da64 button init code made publicly available Claus Gittinger <cg@exept.de> parents: 2157 diff changeset	85	form isNil ifTrue:[
ab242e29da64 button init code made publicly available Claus Gittinger <cg@exept.de> parents: 2157 diff changeset	86	form := Smalltalk imageFromFileNamed:fileName inPackage:'stx:libwidg'.
ab242e29da64 button init code made publicly available Claus Gittinger <cg@exept.de> parents: 2157 diff changeset	87	]
1622 ea4d9baf568f try bitmaps in package directory Claus Gittinger <cg@exept.de> parents: 1560 diff changeset	88	].
274 92b51554b1d7 allow form to be specified by styleSheet Claus Gittinger <cg@exept.de> parents: 269 diff changeset	89	].
92b51554b1d7 allow form to be specified by styleSheet Claus Gittinger <cg@exept.de> parents: 269 diff changeset	90	form isNil ifTrue:[
605 a8da1eb4e180 smaller button Claus Gittinger <cg@exept.de> parents: 581 diff changeset	91	form := Form width:12 height:12
274 92b51554b1d7 allow form to be specified by styleSheet Claus Gittinger <cg@exept.de> parents: 269 diff changeset	92	fromArray:#[2r00000000 2r00000000
605 a8da1eb4e180 smaller button Claus Gittinger <cg@exept.de> parents: 581 diff changeset	93	"/ 2r00001111 2r00000000
a8da1eb4e180 smaller button Claus Gittinger <cg@exept.de> parents: 581 diff changeset	94	"/ 2r00001111 2r00000000
a8da1eb4e180 smaller button Claus Gittinger <cg@exept.de> parents: 581 diff changeset	95	2r00001111 2r00000000
a8da1eb4e180 smaller button Claus Gittinger <cg@exept.de> parents: 581 diff changeset	96	2r00001111 2r00000000
a8da1eb4e180 smaller button Claus Gittinger <cg@exept.de> parents: 581 diff changeset	97	2r00001111 2r00000000
a8da1eb4e180 smaller button Claus Gittinger <cg@exept.de> parents: 581 diff changeset	98	2r01111111 2r11100000
a8da1eb4e180 smaller button Claus Gittinger <cg@exept.de> parents: 581 diff changeset	99	2r00111111 2r11000000
a8da1eb4e180 smaller button Claus Gittinger <cg@exept.de> parents: 581 diff changeset	100	2r00011111 2r10000000
a8da1eb4e180 smaller button Claus Gittinger <cg@exept.de> parents: 581 diff changeset	101	2r00001111 2r00000000
a8da1eb4e180 smaller button Claus Gittinger <cg@exept.de> parents: 581 diff changeset	102	2r00000110 2r00000000
274 92b51554b1d7 allow form to be specified by styleSheet Claus Gittinger <cg@exept.de> parents: 269 diff changeset	103	2r00000000 2r00000000
605 a8da1eb4e180 smaller button Claus Gittinger <cg@exept.de> parents: 581 diff changeset	104	2r01111111 2r11100000
274 92b51554b1d7 allow form to be specified by styleSheet Claus Gittinger <cg@exept.de> parents: 269 diff changeset	105	2r00000000 2r00000000]
3231 5dd5dd610d50 Use Form class>>#width:height:fromArray:onDevice: instead of obsolete Stefan Vogel <sv@exept.de> parents: 2950 diff changeset	106	onDevice:Display.
274 92b51554b1d7 allow form to be specified by styleSheet Claus Gittinger <cg@exept.de> parents: 269 diff changeset	107	].
92b51554b1d7 allow form to be specified by styleSheet Claus Gittinger <cg@exept.de> parents: 269 diff changeset	108	form notNil ifTrue:[
525 d0731a41d19f cache the pull-button image Claus Gittinger <cg@exept.de> parents: 512 diff changeset	109	form := DefaultButtonForm := form onDevice:Display.
d0731a41d19f cache the pull-button image Claus Gittinger <cg@exept.de> parents: 512 diff changeset	110	^ form
274 92b51554b1d7 allow form to be specified by styleSheet Claus Gittinger <cg@exept.de> parents: 269 diff changeset	111	].
92b51554b1d7 allow form to be specified by styleSheet Claus Gittinger <cg@exept.de> parents: 269 diff changeset	112	^ nil
92b51554b1d7 allow form to be specified by styleSheet Claus Gittinger <cg@exept.de> parents: 269 diff changeset	113
1344 100e4d309847 support for disabled-image in pull-button Claus Gittinger <cg@exept.de> parents: 1334 diff changeset	114	"Modified: / 28.4.1999 / 12:49:42 / cg"
304 7ee03df31561 cleaned up model interface Claus Gittinger <cg@exept.de> parents: 302 diff changeset	115	!
7ee03df31561 cleaned up model interface Claus Gittinger <cg@exept.de> parents: 302 diff changeset	116
2174 ab242e29da64 button init code made publicly available Claus Gittinger <cg@exept.de> parents: 2157 diff changeset	117	comboButtonFor:anInstance
ab242e29da64 button init code made publicly available Claus Gittinger <cg@exept.de> parents: 2157 diff changeset	118	<resource: #style (#'comboView.disabledDownForm'
ab242e29da64 button init code made publicly available Claus Gittinger <cg@exept.de> parents: 2157 diff changeset	119	#'comboView.disabledDownFormFile'
2176 a4ddd3e25bee background from styleSheet Claus Gittinger <cg@exept.de> parents: 2174 diff changeset	120	#'comboView.activeDownFormFile'
a4ddd3e25bee background from styleSheet Claus Gittinger <cg@exept.de> parents: 2174 diff changeset	121	#'comboView.button.activeForegroundColor'
a4ddd3e25bee background from styleSheet Claus Gittinger <cg@exept.de> parents: 2174 diff changeset	122	#'comboView.button.activeBackgroundColor'
2174 ab242e29da64 button init code made publicly available Claus Gittinger <cg@exept.de> parents: 2157 diff changeset	123	#'comboView.button.activeLevel'
ab242e29da64 button init code made publicly available Claus Gittinger <cg@exept.de> parents: 2157 diff changeset	124	#'comboView.button.passiveLevel' )>
ab242e29da64 button init code made publicly available Claus Gittinger <cg@exept.de> parents: 2157 diff changeset	125
2176 a4ddd3e25bee background from styleSheet Claus Gittinger <cg@exept.de> parents: 2174 diff changeset	126	\|pullDownButton fn logo disabledLogo activeLogo enteredLogo lvl clr\|
2174 ab242e29da64 button init code made publicly available Claus Gittinger <cg@exept.de> parents: 2157 diff changeset	127
ab242e29da64 button init code made publicly available Claus Gittinger <cg@exept.de> parents: 2157 diff changeset	128	pullDownButton := ComboBoxButton in:anInstance.
ab242e29da64 button init code made publicly available Claus Gittinger <cg@exept.de> parents: 2157 diff changeset	129	pullDownButton controller beTriggerOnDown.
2785 3c705bdd5792 Do not use obsolete message #logo: Stefan Vogel <sv@exept.de> parents: 2750 diff changeset	130	pullDownButton label:(logo := self buttonForm).
2174 ab242e29da64 button init code made publicly available Claus Gittinger <cg@exept.de> parents: 2157 diff changeset	131
2950 431dafff127d cash comboButtonForms ca parents: 2892 diff changeset	132	ComboButtonForms isNil ifTrue:[
431dafff127d cash comboButtonForms ca parents: 2892 diff changeset	133	ComboButtonForms := IdentityDictionary new.
431dafff127d cash comboButtonForms ca parents: 2892 diff changeset	134	].
431dafff127d cash comboButtonForms ca parents: 2892 diff changeset	135
431dafff127d cash comboButtonForms ca parents: 2892 diff changeset	136	disabledLogo := ComboButtonForms at:disabledLogo ifAbsentPut:[\|logo\|
431dafff127d cash comboButtonForms ca parents: 2892 diff changeset	137	logo := StyleSheet at:#'comboView.disabledDownForm'.
431dafff127d cash comboButtonForms ca parents: 2892 diff changeset	138
431dafff127d cash comboButtonForms ca parents: 2892 diff changeset	139	logo isNil ifTrue:[
431dafff127d cash comboButtonForms ca parents: 2892 diff changeset	140	fn := StyleSheet at:#'comboView.disabledDownFormFile'.
431dafff127d cash comboButtonForms ca parents: 2892 diff changeset	141	fn notNil ifTrue:[
431dafff127d cash comboButtonForms ca parents: 2892 diff changeset	142	logo := Smalltalk imageFromFileNamed:fn forClass:self.
431dafff127d cash comboButtonForms ca parents: 2892 diff changeset	143	logo isNil ifTrue:[
431dafff127d cash comboButtonForms ca parents: 2892 diff changeset	144	logo := Smalltalk imageFromFileNamed:fn inPackage:'stx:libwidg'.
431dafff127d cash comboButtonForms ca parents: 2892 diff changeset	145	]
2176 a4ddd3e25bee background from styleSheet Claus Gittinger <cg@exept.de> parents: 2174 diff changeset	146	]
2950 431dafff127d cash comboButtonForms ca parents: 2892 diff changeset	147	].
431dafff127d cash comboButtonForms ca parents: 2892 diff changeset	148	logo
2174 ab242e29da64 button init code made publicly available Claus Gittinger <cg@exept.de> parents: 2157 diff changeset	149	].
2950 431dafff127d cash comboButtonForms ca parents: 2892 diff changeset	150
431dafff127d cash comboButtonForms ca parents: 2892 diff changeset	151	activeLogo := ComboButtonForms at:#activeLogo ifAbsentPut:[\|logo\|
431dafff127d cash comboButtonForms ca parents: 2892 diff changeset	152	logo := StyleSheet at:#'comboView.activeDownForm'.
431dafff127d cash comboButtonForms ca parents: 2892 diff changeset	153
431dafff127d cash comboButtonForms ca parents: 2892 diff changeset	154	logo isNil ifTrue:[
431dafff127d cash comboButtonForms ca parents: 2892 diff changeset	155	fn := StyleSheet at:#'comboView.activeDownFormFile'.
431dafff127d cash comboButtonForms ca parents: 2892 diff changeset	156	fn notNil ifTrue:[
431dafff127d cash comboButtonForms ca parents: 2892 diff changeset	157	logo := Smalltalk imageFromFileNamed:fn forClass:self.
431dafff127d cash comboButtonForms ca parents: 2892 diff changeset	158	logo isNil ifTrue:[
431dafff127d cash comboButtonForms ca parents: 2892 diff changeset	159	logo := Smalltalk imageFromFileNamed:fn inPackage:'stx:libwidg'.
431dafff127d cash comboButtonForms ca parents: 2892 diff changeset	160	]
431dafff127d cash comboButtonForms ca parents: 2892 diff changeset	161	]
431dafff127d cash comboButtonForms ca parents: 2892 diff changeset	162	].
431dafff127d cash comboButtonForms ca parents: 2892 diff changeset	163	logo
431dafff127d cash comboButtonForms ca parents: 2892 diff changeset	164	].
431dafff127d cash comboButtonForms ca parents: 2892 diff changeset	165
431dafff127d cash comboButtonForms ca parents: 2892 diff changeset	166	enteredLogo := ComboButtonForms at:#enteredLogo ifAbsentPut:[\|logo\|
431dafff127d cash comboButtonForms ca parents: 2892 diff changeset	167	logo := StyleSheet at:#'comboView.enteredDownForm'.
431dafff127d cash comboButtonForms ca parents: 2892 diff changeset	168
431dafff127d cash comboButtonForms ca parents: 2892 diff changeset	169	logo isNil ifTrue:[
431dafff127d cash comboButtonForms ca parents: 2892 diff changeset	170	fn := StyleSheet at:#'comboView.enteredDownFormFile'.
431dafff127d cash comboButtonForms ca parents: 2892 diff changeset	171	fn notNil ifTrue:[
431dafff127d cash comboButtonForms ca parents: 2892 diff changeset	172	logo := Smalltalk imageFromFileNamed:fn forClass:self.
431dafff127d cash comboButtonForms ca parents: 2892 diff changeset	173	logo isNil ifTrue:[
431dafff127d cash comboButtonForms ca parents: 2892 diff changeset	174	logo := Smalltalk imageFromFileNamed:fn inPackage:'stx:libwidg'.
431dafff127d cash comboButtonForms ca parents: 2892 diff changeset	175	]
431dafff127d cash comboButtonForms ca parents: 2892 diff changeset	176	]
431dafff127d cash comboButtonForms ca parents: 2892 diff changeset	177	].
431dafff127d cash comboButtonForms ca parents: 2892 diff changeset	178	logo
431dafff127d cash comboButtonForms ca parents: 2892 diff changeset	179	].
431dafff127d cash comboButtonForms ca parents: 2892 diff changeset	180
2176 a4ddd3e25bee background from styleSheet Claus Gittinger <cg@exept.de> parents: 2174 diff changeset	181	disabledLogo notNil ifTrue:[
a4ddd3e25bee background from styleSheet Claus Gittinger <cg@exept.de> parents: 2174 diff changeset	182	pullDownButton passiveLogo:logo.
a4ddd3e25bee background from styleSheet Claus Gittinger <cg@exept.de> parents: 2174 diff changeset	183	pullDownButton activeLogo:logo.
a4ddd3e25bee background from styleSheet Claus Gittinger <cg@exept.de> parents: 2174 diff changeset	184	pullDownButton disabledLogo:disabledLogo.
2174 ab242e29da64 button init code made publicly available Claus Gittinger <cg@exept.de> parents: 2157 diff changeset	185	].
2950 431dafff127d cash comboButtonForms ca parents: 2892 diff changeset	186
2174 ab242e29da64 button init code made publicly available Claus Gittinger <cg@exept.de> parents: 2157 diff changeset	187	pullDownButton showLamp:false.
ab242e29da64 button init code made publicly available Claus Gittinger <cg@exept.de> parents: 2157 diff changeset	188
2176 a4ddd3e25bee background from styleSheet Claus Gittinger <cg@exept.de> parents: 2174 diff changeset	189	activeLogo notNil ifTrue:[
a4ddd3e25bee background from styleSheet Claus Gittinger <cg@exept.de> parents: 2174 diff changeset	190	pullDownButton activeLogo:activeLogo.
a4ddd3e25bee background from styleSheet Claus Gittinger <cg@exept.de> parents: 2174 diff changeset	191	pullDownButton passiveLogo:logo.
2785 3c705bdd5792 Do not use obsolete message #logo: Stefan Vogel <sv@exept.de> parents: 2750 diff changeset	192	pullDownButton label:logo.
2176 a4ddd3e25bee background from styleSheet Claus Gittinger <cg@exept.de> parents: 2174 diff changeset	193	].
a4ddd3e25bee background from styleSheet Claus Gittinger <cg@exept.de> parents: 2174 diff changeset	194
a4ddd3e25bee background from styleSheet Claus Gittinger <cg@exept.de> parents: 2174 diff changeset	195	enteredLogo notNil ifTrue:[
a4ddd3e25bee background from styleSheet Claus Gittinger <cg@exept.de> parents: 2174 diff changeset	196	pullDownButton enteredLogo:enteredLogo.
a4ddd3e25bee background from styleSheet Claus Gittinger <cg@exept.de> parents: 2174 diff changeset	197	].
a4ddd3e25bee background from styleSheet Claus Gittinger <cg@exept.de> parents: 2174 diff changeset	198
2174 ab242e29da64 button init code made publicly available Claus Gittinger <cg@exept.de> parents: 2157 diff changeset	199	(lvl := StyleSheet at:#'comboView.button.activeLevel') notNil ifTrue:[
ab242e29da64 button init code made publicly available Claus Gittinger <cg@exept.de> parents: 2157 diff changeset	200	pullDownButton activeLevel:lvl
ab242e29da64 button init code made publicly available Claus Gittinger <cg@exept.de> parents: 2157 diff changeset	201	].
ab242e29da64 button init code made publicly available Claus Gittinger <cg@exept.de> parents: 2157 diff changeset	202	(lvl := StyleSheet at:#'comboView.button.passiveLevel') notNil ifTrue:[
ab242e29da64 button init code made publicly available Claus Gittinger <cg@exept.de> parents: 2157 diff changeset	203	pullDownButton passiveLevel:lvl
ab242e29da64 button init code made publicly available Claus Gittinger <cg@exept.de> parents: 2157 diff changeset	204	].
ab242e29da64 button init code made publicly available Claus Gittinger <cg@exept.de> parents: 2157 diff changeset	205
2176 a4ddd3e25bee background from styleSheet Claus Gittinger <cg@exept.de> parents: 2174 diff changeset	206	(clr := StyleSheet colorAt:#'comboView.button.activeForegroundColor') notNil ifTrue:[
a4ddd3e25bee background from styleSheet Claus Gittinger <cg@exept.de> parents: 2174 diff changeset	207	pullDownButton activeForegroundColor:clr
a4ddd3e25bee background from styleSheet Claus Gittinger <cg@exept.de> parents: 2174 diff changeset	208	].
a4ddd3e25bee background from styleSheet Claus Gittinger <cg@exept.de> parents: 2174 diff changeset	209	(clr := StyleSheet colorAt:#'comboView.button.activeBackgroundColor') notNil ifTrue:[
a4ddd3e25bee background from styleSheet Claus Gittinger <cg@exept.de> parents: 2174 diff changeset	210	pullDownButton activeBackgroundColor:clr
a4ddd3e25bee background from styleSheet Claus Gittinger <cg@exept.de> parents: 2174 diff changeset	211	].
a4ddd3e25bee background from styleSheet Claus Gittinger <cg@exept.de> parents: 2174 diff changeset	212
2174 ab242e29da64 button init code made publicly available Claus Gittinger <cg@exept.de> parents: 2157 diff changeset	213	pullDownButton activeLevel == pullDownButton passiveLevel ifTrue:[
ab242e29da64 button init code made publicly available Claus Gittinger <cg@exept.de> parents: 2157 diff changeset	214	pullDownButton activeLevel:0.
ab242e29da64 button init code made publicly available Claus Gittinger <cg@exept.de> parents: 2157 diff changeset	215	].
ab242e29da64 button init code made publicly available Claus Gittinger <cg@exept.de> parents: 2157 diff changeset	216	^ pullDownButton.
ab242e29da64 button init code made publicly available Claus Gittinger <cg@exept.de> parents: 2157 diff changeset	217	!
ab242e29da64 button init code made publicly available Claus Gittinger <cg@exept.de> parents: 2157 diff changeset	218
415 82d22b1ce5f5 defaultFont Claus Gittinger <cg@exept.de> parents: 411 diff changeset	219	defaultFont
82d22b1ce5f5 defaultFont Claus Gittinger <cg@exept.de> parents: 411 diff changeset	220	"/ for now - should come from the styleSheet
82d22b1ce5f5 defaultFont Claus Gittinger <cg@exept.de> parents: 411 diff changeset	221
82d22b1ce5f5 defaultFont Claus Gittinger <cg@exept.de> parents: 411 diff changeset	222	^ SelectionInListView defaultFont.
82d22b1ce5f5 defaultFont Claus Gittinger <cg@exept.de> parents: 411 diff changeset	223
82d22b1ce5f5 defaultFont Claus Gittinger <cg@exept.de> parents: 411 diff changeset	224	"Created: 4.6.1997 / 15:44:17 / cg"
82d22b1ce5f5 defaultFont Claus Gittinger <cg@exept.de> parents: 411 diff changeset	225	!
82d22b1ce5f5 defaultFont Claus Gittinger <cg@exept.de> parents: 411 diff changeset	226
304 7ee03df31561 cleaned up model interface Claus Gittinger <cg@exept.de> parents: 302 diff changeset	227	defaultListMessage
7ee03df31561 cleaned up model interface Claus Gittinger <cg@exept.de> parents: 302 diff changeset	228	^ #list
7ee03df31561 cleaned up model interface Claus Gittinger <cg@exept.de> parents: 302 diff changeset	229
7ee03df31561 cleaned up model interface Claus Gittinger <cg@exept.de> parents: 302 diff changeset	230	"Created: 26.2.1997 / 19:34:50 / cg"
605 a8da1eb4e180 smaller button Claus Gittinger <cg@exept.de> parents: 581 diff changeset	231	!
a8da1eb4e180 smaller button Claus Gittinger <cg@exept.de> parents: 581 diff changeset	232
a8da1eb4e180 smaller button Claus Gittinger <cg@exept.de> parents: 581 diff changeset	233	updateStyleCache
2950 431dafff127d cash comboButtonForms ca parents: 2892 diff changeset	234	DefaultButtonForm := ComboButtonForms := nil.
605 a8da1eb4e180 smaller button Claus Gittinger <cg@exept.de> parents: 581 diff changeset	235
a8da1eb4e180 smaller button Claus Gittinger <cg@exept.de> parents: 581 diff changeset	236	"Created: / 3.11.1997 / 15:28:48 / cg"
304 7ee03df31561 cleaned up model interface Claus Gittinger <cg@exept.de> parents: 302 diff changeset	237	! !
7ee03df31561 cleaned up model interface Claus Gittinger <cg@exept.de> parents: 302 diff changeset	238
7ee03df31561 cleaned up model interface Claus Gittinger <cg@exept.de> parents: 302 diff changeset	239	!ComboView methodsFor:'accessing-behavior'!
7ee03df31561 cleaned up model interface Claus Gittinger <cg@exept.de> parents: 302 diff changeset	240
7ee03df31561 cleaned up model interface Claus Gittinger <cg@exept.de> parents: 302 diff changeset	241	action:aBlock
7ee03df31561 cleaned up model interface Claus Gittinger <cg@exept.de> parents: 302 diff changeset	242	"specify, a block, which is evaluated when the lists selection changes.
7ee03df31561 cleaned up model interface Claus Gittinger <cg@exept.de> parents: 302 diff changeset	243	This is an additional hook - normally, you would communicate with the model
7ee03df31561 cleaned up model interface Claus Gittinger <cg@exept.de> parents: 302 diff changeset	244	alone"
7ee03df31561 cleaned up model interface Claus Gittinger <cg@exept.de> parents: 302 diff changeset	245
7ee03df31561 cleaned up model interface Claus Gittinger <cg@exept.de> parents: 302 diff changeset	246	action := aBlock.
7ee03df31561 cleaned up model interface Claus Gittinger <cg@exept.de> parents: 302 diff changeset	247
7ee03df31561 cleaned up model interface Claus Gittinger <cg@exept.de> parents: 302 diff changeset	248	"Created: 26.7.1996 / 17:44:18 / cg"
7ee03df31561 cleaned up model interface Claus Gittinger <cg@exept.de> parents: 302 diff changeset	249	"Modified: 26.2.1997 / 19:37:18 / cg"
411 5a32b4247011 delegate font: ca parents: 332 diff changeset	250	!
5a32b4247011 delegate font: ca parents: 332 diff changeset	251
5a32b4247011 delegate font: ca parents: 332 diff changeset	252	enabled
2892 42ba7f03313b * empty log message * Claus Gittinger <cg@exept.de> parents: 2868 diff changeset	253	"return true, if is enabled"
42ba7f03313b * empty log message * Claus Gittinger <cg@exept.de> parents: 2868 diff changeset	254
1207 9019fe235f32 do not share my enableChannel with my buttons channel tm parents: 1183 diff changeset	255	enableChannel isNil ifTrue:[^ true].
1294 36a0e9dcd813 Move common channels to View. Stefan Vogel <sv@exept.de> parents: 1291 diff changeset	256	^ enableChannel value
36a0e9dcd813 Move common channels to View. Stefan Vogel <sv@exept.de> parents: 1291 diff changeset	257	!
36a0e9dcd813 Move common channels to View. Stefan Vogel <sv@exept.de> parents: 1291 diff changeset	258
36a0e9dcd813 Move common channels to View. Stefan Vogel <sv@exept.de> parents: 1291 diff changeset	259	enabled:aBoolean
36a0e9dcd813 Move common channels to View. Stefan Vogel <sv@exept.de> parents: 1291 diff changeset	260	"enable/disable components"
36a0e9dcd813 Move common channels to View. Stefan Vogel <sv@exept.de> parents: 1291 diff changeset	261
36a0e9dcd813 Move common channels to View. Stefan Vogel <sv@exept.de> parents: 1291 diff changeset	262	self enableChannel value:aBoolean.
36a0e9dcd813 Move common channels to View. Stefan Vogel <sv@exept.de> parents: 1291 diff changeset	263
36a0e9dcd813 Move common channels to View. Stefan Vogel <sv@exept.de> parents: 1291 diff changeset	264	"Modified: / 30.3.1999 / 14:56:18 / stefan"
2892 42ba7f03313b * empty log message * Claus Gittinger <cg@exept.de> parents: 2868 diff changeset	265	!
42ba7f03313b * empty log message * Claus Gittinger <cg@exept.de> parents: 2868 diff changeset	266
42ba7f03313b * empty log message * Claus Gittinger <cg@exept.de> parents: 2868 diff changeset	267	resizableMenu
42ba7f03313b * empty log message * Claus Gittinger <cg@exept.de> parents: 2868 diff changeset	268	"return true, if the menu is to be resizable.
42ba7f03313b * empty log message * Claus Gittinger <cg@exept.de> parents: 2868 diff changeset	269	This feature is as yet unimplemented."
42ba7f03313b * empty log message * Claus Gittinger <cg@exept.de> parents: 2868 diff changeset	270
42ba7f03313b * empty log message * Claus Gittinger <cg@exept.de> parents: 2868 diff changeset	271	^ resizableMenu ? false
42ba7f03313b * empty log message * Claus Gittinger <cg@exept.de> parents: 2868 diff changeset	272	!
42ba7f03313b * empty log message * Claus Gittinger <cg@exept.de> parents: 2868 diff changeset	273
42ba7f03313b * empty log message * Claus Gittinger <cg@exept.de> parents: 2868 diff changeset	274	resizableMenu:aBoolean
42ba7f03313b * empty log message * Claus Gittinger <cg@exept.de> parents: 2868 diff changeset	275	"enable/disable, if the menu is to be resizable.
42ba7f03313b * empty log message * Claus Gittinger <cg@exept.de> parents: 2868 diff changeset	276	This feature is as yet unimplemented."
42ba7f03313b * empty log message * Claus Gittinger <cg@exept.de> parents: 2868 diff changeset	277
42ba7f03313b * empty log message * Claus Gittinger <cg@exept.de> parents: 2868 diff changeset	278	resizableMenu := aBoolean
411 5a32b4247011 delegate font: ca parents: 332 diff changeset	279	! !
5a32b4247011 delegate font: ca parents: 332 diff changeset	280
5a32b4247011 delegate font: ca parents: 332 diff changeset	281	!ComboView methodsFor:'accessing-channels'!
5a32b4247011 delegate font: ca parents: 332 diff changeset	282
5a32b4247011 delegate font: ca parents: 332 diff changeset	283	enableChannel
2892 42ba7f03313b * empty log message * Claus Gittinger <cg@exept.de> parents: 2868 diff changeset	284	"return a valueHolder for enable/disable"
42ba7f03313b * empty log message * Claus Gittinger <cg@exept.de> parents: 2868 diff changeset	285
1207 9019fe235f32 do not share my enableChannel with my buttons channel tm parents: 1183 diff changeset	286	enableChannel isNil ifTrue:[
1294 36a0e9dcd813 Move common channels to View. Stefan Vogel <sv@exept.de> parents: 1291 diff changeset	287	self enableChannel:(true asValue).
411 5a32b4247011 delegate font: ca parents: 332 diff changeset	288	].
1207 9019fe235f32 do not share my enableChannel with my buttons channel tm parents: 1183 diff changeset	289	^ enableChannel
411 5a32b4247011 delegate font: ca parents: 332 diff changeset	290
1294 36a0e9dcd813 Move common channels to View. Stefan Vogel <sv@exept.de> parents: 1291 diff changeset	291	"Modified: / 30.3.1999 / 16:20:25 / stefan"
129 a680f0b7508f intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	292	! !
a680f0b7508f intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	293
a680f0b7508f intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	294	!ComboView methodsFor:'accessing-components'!
a680f0b7508f intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	295
1560 8abb4de4f8f5 added access to field. Claus Gittinger <cg@exept.de> parents: 1544 diff changeset	296	field
8abb4de4f8f5 added access to field. Claus Gittinger <cg@exept.de> parents: 1544 diff changeset	297	"return the field (input or label) component.
8abb4de4f8f5 added access to field. Claus Gittinger <cg@exept.de> parents: 1544 diff changeset	298	For knowledgable users only."
8abb4de4f8f5 added access to field. Claus Gittinger <cg@exept.de> parents: 1544 diff changeset	299
8abb4de4f8f5 added access to field. Claus Gittinger <cg@exept.de> parents: 1544 diff changeset	300	^ field
8abb4de4f8f5 added access to field. Claus Gittinger <cg@exept.de> parents: 1544 diff changeset	301
8abb4de4f8f5 added access to field. Claus Gittinger <cg@exept.de> parents: 1544 diff changeset	302	"Created: / 26.9.1999 / 13:33:15 / cg"
8abb4de4f8f5 added access to field. Claus Gittinger <cg@exept.de> parents: 1544 diff changeset	303	!
8abb4de4f8f5 added access to field. Claus Gittinger <cg@exept.de> parents: 1544 diff changeset	304
129 a680f0b7508f intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	305	menuButton
a680f0b7508f intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	306	"return the menuButton component"
a680f0b7508f intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	307
a680f0b7508f intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	308	^ pullDownButton
a680f0b7508f intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	309
a680f0b7508f intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	310	"Created: 28.2.1996 / 15:03:14 / cg"
a680f0b7508f intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	311	! !
a680f0b7508f intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	312
a680f0b7508f intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	313	!ComboView methodsFor:'accessing-contents'!
a680f0b7508f intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	314
181 31e8f8ab2fb8 checkin from browser Claus Gittinger <cg@exept.de> parents: 166 diff changeset	315	contents
304 7ee03df31561 cleaned up model interface Claus Gittinger <cg@exept.de> parents: 302 diff changeset	316	"get the contents of my field"
7ee03df31561 cleaned up model interface Claus Gittinger <cg@exept.de> parents: 302 diff changeset	317
181 31e8f8ab2fb8 checkin from browser Claus Gittinger <cg@exept.de> parents: 166 diff changeset	318	^ field model value
31e8f8ab2fb8 checkin from browser Claus Gittinger <cg@exept.de> parents: 166 diff changeset	319
31e8f8ab2fb8 checkin from browser Claus Gittinger <cg@exept.de> parents: 166 diff changeset	320	"Created: 14.5.1996 / 13:05:16 / cg"
304 7ee03df31561 cleaned up model interface Claus Gittinger <cg@exept.de> parents: 302 diff changeset	321	"Modified: 26.2.1997 / 16:55:43 / cg"
181 31e8f8ab2fb8 checkin from browser Claus Gittinger <cg@exept.de> parents: 166 diff changeset	322	!
31e8f8ab2fb8 checkin from browser Claus Gittinger <cg@exept.de> parents: 166 diff changeset	323
31e8f8ab2fb8 checkin from browser Claus Gittinger <cg@exept.de> parents: 166 diff changeset	324	contents:something
304 7ee03df31561 cleaned up model interface Claus Gittinger <cg@exept.de> parents: 302 diff changeset	325	"set the contents of my field; questionable"
7ee03df31561 cleaned up model interface Claus Gittinger <cg@exept.de> parents: 302 diff changeset	326
214 328a09259794 get list from model Claus Gittinger <cg@exept.de> parents: 184 diff changeset	327	\|m\|
328a09259794 get list from model Claus Gittinger <cg@exept.de> parents: 184 diff changeset	328
328a09259794 get list from model Claus Gittinger <cg@exept.de> parents: 184 diff changeset	329	(m := field model) notNil ifTrue:[
304 7ee03df31561 cleaned up model interface Claus Gittinger <cg@exept.de> parents: 302 diff changeset	330	m value:something
214 328a09259794 get list from model Claus Gittinger <cg@exept.de> parents: 184 diff changeset	331	]
181 31e8f8ab2fb8 checkin from browser Claus Gittinger <cg@exept.de> parents: 166 diff changeset	332
31e8f8ab2fb8 checkin from browser Claus Gittinger <cg@exept.de> parents: 166 diff changeset	333	"Created: 14.5.1996 / 13:05:33 / cg"
304 7ee03df31561 cleaned up model interface Claus Gittinger <cg@exept.de> parents: 302 diff changeset	334	"Modified: 26.2.1997 / 16:56:08 / cg"
181 31e8f8ab2fb8 checkin from browser Claus Gittinger <cg@exept.de> parents: 166 diff changeset	335	!
31e8f8ab2fb8 checkin from browser Claus Gittinger <cg@exept.de> parents: 166 diff changeset	336
889 7879fffb4810 oops #list returned wrong list Claus Gittinger <cg@exept.de> parents: 869 diff changeset	337	list
7879fffb4810 oops #list returned wrong list Claus Gittinger <cg@exept.de> parents: 869 diff changeset	338	"return the list"
7879fffb4810 oops #list returned wrong list Claus Gittinger <cg@exept.de> parents: 869 diff changeset	339
7879fffb4810 oops #list returned wrong list Claus Gittinger <cg@exept.de> parents: 869 diff changeset	340	^ list
7879fffb4810 oops #list returned wrong list Claus Gittinger <cg@exept.de> parents: 869 diff changeset	341
7879fffb4810 oops #list returned wrong list Claus Gittinger <cg@exept.de> parents: 869 diff changeset	342	"Created: / 18.5.1998 / 18:58:08 / cg"
7879fffb4810 oops #list returned wrong list Claus Gittinger <cg@exept.de> parents: 869 diff changeset	343	!
7879fffb4810 oops #list returned wrong list Claus Gittinger <cg@exept.de> parents: 869 diff changeset	344
129 a680f0b7508f intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	345	list:aList
304 7ee03df31561 cleaned up model interface Claus Gittinger <cg@exept.de> parents: 302 diff changeset	346	"set the list explicitely; used internally or
7ee03df31561 cleaned up model interface Claus Gittinger <cg@exept.de> parents: 302 diff changeset	347	to be send from the outside if no model/listHolder is used."
7ee03df31561 cleaned up model interface Claus Gittinger <cg@exept.de> parents: 302 diff changeset	348
3312 ad1dcdaa7ba7 Support for selection via mouse wheel Stefan Vogel <sv@exept.de> parents: 3290 diff changeset	349	list ~~ aList ifTrue:[
3369 9f8f7c5d328f Correct selection behavior (start with line 1) Stefan Vogel <sv@exept.de> parents: 3365 diff changeset	350	self assert:aList isSequenceable.
9f8f7c5d328f Correct selection behavior (start with line 1) Stefan Vogel <sv@exept.de> parents: 3365 diff changeset	351	currentIndex := 1.
3312 ad1dcdaa7ba7 Support for selection via mouse wheel Stefan Vogel <sv@exept.de> parents: 3290 diff changeset	352	list := aList.
2474 173a07117f56 trap if assigned list is not sequenceable martin parents: 2406 diff changeset	353	].
3315 5bbfd49857a2 changed #list: Stefan Vogel <sv@exept.de> parents: 3312 diff changeset	354	"maybe some values have been added to / removed from list"
5bbfd49857a2 changed #list: Stefan Vogel <sv@exept.de> parents: 3312 diff changeset	355	self enableStateChanged.
1294 36a0e9dcd813 Move common channels to View. Stefan Vogel <sv@exept.de> parents: 1291 diff changeset	356
36a0e9dcd813 Move common channels to View. Stefan Vogel <sv@exept.de> parents: 1291 diff changeset	357	"Modified: / 30.3.1999 / 14:17:38 / stefan"
129 a680f0b7508f intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	358	! !
a680f0b7508f intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	359
853 e7e1c2bbd6f1 color selectors tz parents: 683 diff changeset	360	!ComboView methodsFor:'accessing-look'!
e7e1c2bbd6f1 color selectors tz parents: 683 diff changeset	361
e7e1c2bbd6f1 color selectors tz parents: 683 diff changeset	362	backgroundColor
e7e1c2bbd6f1 color selectors tz parents: 683 diff changeset	363
e7e1c2bbd6f1 color selectors tz parents: 683 diff changeset	364	^field backgroundColor
e7e1c2bbd6f1 color selectors tz parents: 683 diff changeset	365	!
e7e1c2bbd6f1 color selectors tz parents: 683 diff changeset	366
e7e1c2bbd6f1 color selectors tz parents: 683 diff changeset	367	backgroundColor:aColor
e7e1c2bbd6f1 color selectors tz parents: 683 diff changeset	368
e7e1c2bbd6f1 color selectors tz parents: 683 diff changeset	369	field backgroundColor:aColor
e7e1c2bbd6f1 color selectors tz parents: 683 diff changeset	370	!
e7e1c2bbd6f1 color selectors tz parents: 683 diff changeset	371
e7e1c2bbd6f1 color selectors tz parents: 683 diff changeset	372	font:aFont
e7e1c2bbd6f1 color selectors tz parents: 683 diff changeset	373
e7e1c2bbd6f1 color selectors tz parents: 683 diff changeset	374	super font:aFont.
1183 667132091c2f ComboBox's inputField ought to use its default font. Claus Gittinger <cg@exept.de> parents: 1126 diff changeset	375	self setFieldsFont:aFont.
853 e7e1c2bbd6f1 color selectors tz parents: 683 diff changeset	376	!
e7e1c2bbd6f1 color selectors tz parents: 683 diff changeset	377
e7e1c2bbd6f1 color selectors tz parents: 683 diff changeset	378	foregroundColor
e7e1c2bbd6f1 color selectors tz parents: 683 diff changeset	379
e7e1c2bbd6f1 color selectors tz parents: 683 diff changeset	380	^field foregroundColor
e7e1c2bbd6f1 color selectors tz parents: 683 diff changeset	381	!
e7e1c2bbd6f1 color selectors tz parents: 683 diff changeset	382
e7e1c2bbd6f1 color selectors tz parents: 683 diff changeset	383	foregroundColor:aColor
e7e1c2bbd6f1 color selectors tz parents: 683 diff changeset	384
e7e1c2bbd6f1 color selectors tz parents: 683 diff changeset	385	field foregroundColor:aColor
e7e1c2bbd6f1 color selectors tz parents: 683 diff changeset	386	! !
e7e1c2bbd6f1 color selectors tz parents: 683 diff changeset	387
214 328a09259794 get list from model Claus Gittinger <cg@exept.de> parents: 184 diff changeset	388	!ComboView methodsFor:'accessing-mvc'!
328a09259794 get list from model Claus Gittinger <cg@exept.de> parents: 184 diff changeset	389
277 44eadbccc2b7 added support for a separate listHolder Claus Gittinger <cg@exept.de> parents: 276 diff changeset	390	listHolder:aValueHolder
44eadbccc2b7 added support for a separate listHolder Claus Gittinger <cg@exept.de> parents: 276 diff changeset	391	"set the listHolder.
44eadbccc2b7 added support for a separate listHolder Claus Gittinger <cg@exept.de> parents: 276 diff changeset	392	If not set, the list is supposed to be set explicitely"
44eadbccc2b7 added support for a separate listHolder Claus Gittinger <cg@exept.de> parents: 276 diff changeset	393
44eadbccc2b7 added support for a separate listHolder Claus Gittinger <cg@exept.de> parents: 276 diff changeset	394	listHolder notNil ifTrue:[
304 7ee03df31561 cleaned up model interface Claus Gittinger <cg@exept.de> parents: 302 diff changeset	395	listHolder removeDependent:self.
277 44eadbccc2b7 added support for a separate listHolder Claus Gittinger <cg@exept.de> parents: 276 diff changeset	396	].
44eadbccc2b7 added support for a separate listHolder Claus Gittinger <cg@exept.de> parents: 276 diff changeset	397	listHolder := aValueHolder.
44eadbccc2b7 added support for a separate listHolder Claus Gittinger <cg@exept.de> parents: 276 diff changeset	398	listHolder notNil ifTrue:[
304 7ee03df31561 cleaned up model interface Claus Gittinger <cg@exept.de> parents: 302 diff changeset	399	aValueHolder addDependent:self.
277 44eadbccc2b7 added support for a separate listHolder Claus Gittinger <cg@exept.de> parents: 276 diff changeset	400	].
3274 e162e9218179 must fetch the lists value when the listHilder is set. Claus Gittinger <cg@exept.de> parents: 3247 diff changeset	401
e162e9218179 must fetch the lists value when the listHilder is set. Claus Gittinger <cg@exept.de> parents: 3247 diff changeset	402	"/ cg: either fetch it here or when realized;
e162e9218179 must fetch the lists value when the listHilder is set. Claus Gittinger <cg@exept.de> parents: 3247 diff changeset	403	"/ (otherwise we'd never fetch the list if it wont change later)
e162e9218179 must fetch the lists value when the listHilder is set. Claus Gittinger <cg@exept.de> parents: 3247 diff changeset	404	"/ realized ifTrue:[
304 7ee03df31561 cleaned up model interface Claus Gittinger <cg@exept.de> parents: 302 diff changeset	405	self getListFromModel.
3274 e162e9218179 must fetch the lists value when the listHilder is set. Claus Gittinger <cg@exept.de> parents: 3247 diff changeset	406	"/ ]
277 44eadbccc2b7 added support for a separate listHolder Claus Gittinger <cg@exept.de> parents: 276 diff changeset	407
3274 e162e9218179 must fetch the lists value when the listHilder is set. Claus Gittinger <cg@exept.de> parents: 3247 diff changeset	408	"Modified: / 09-11-2007 / 15:59:18 / cg"
277 44eadbccc2b7 added support for a separate listHolder Claus Gittinger <cg@exept.de> parents: 276 diff changeset	409	!
44eadbccc2b7 added support for a separate listHolder Claus Gittinger <cg@exept.de> parents: 276 diff changeset	410
44eadbccc2b7 added support for a separate listHolder Claus Gittinger <cg@exept.de> parents: 276 diff changeset	411	listMessage:aSymbol
44eadbccc2b7 added support for a separate listHolder Claus Gittinger <cg@exept.de> parents: 276 diff changeset	412	"define the message selector sent to the model, to fetch
44eadbccc2b7 added support for a separate listHolder Claus Gittinger <cg@exept.de> parents: 276 diff changeset	413	the list. If not defined, #list is used"
44eadbccc2b7 added support for a separate listHolder Claus Gittinger <cg@exept.de> parents: 276 diff changeset	414
304 7ee03df31561 cleaned up model interface Claus Gittinger <cg@exept.de> parents: 302 diff changeset	415	listMsg := aSymbol
277 44eadbccc2b7 added support for a separate listHolder Claus Gittinger <cg@exept.de> parents: 276 diff changeset	416
44eadbccc2b7 added support for a separate listHolder Claus Gittinger <cg@exept.de> parents: 276 diff changeset	417	"Created: 14.2.1997 / 19:16:52 / cg"
304 7ee03df31561 cleaned up model interface Claus Gittinger <cg@exept.de> parents: 302 diff changeset	418	"Modified: 26.2.1997 / 19:33:09 / cg"
277 44eadbccc2b7 added support for a separate listHolder Claus Gittinger <cg@exept.de> parents: 276 diff changeset	419	!
44eadbccc2b7 added support for a separate listHolder Claus Gittinger <cg@exept.de> parents: 276 diff changeset	420
214 328a09259794 get list from model Claus Gittinger <cg@exept.de> parents: 184 diff changeset	421	model:aModel
304 7ee03df31561 cleaned up model interface Claus Gittinger <cg@exept.de> parents: 302 diff changeset	422	"set the model, which is supposed to provide the boxes value.
7ee03df31561 cleaned up model interface Claus Gittinger <cg@exept.de> parents: 302 diff changeset	423	If a listMessage was defined, it is also responsible for providing
7ee03df31561 cleaned up model interface Claus Gittinger <cg@exept.de> parents: 302 diff changeset	424	the list"
7ee03df31561 cleaned up model interface Claus Gittinger <cg@exept.de> parents: 302 diff changeset	425
214 328a09259794 get list from model Claus Gittinger <cg@exept.de> parents: 184 diff changeset	426	super model:aModel.
328a09259794 get list from model Claus Gittinger <cg@exept.de> parents: 184 diff changeset	427
3596 cc15fa1bdb45 * empty log message * sr parents: 3573 diff changeset	428	listHolder isNil ifTrue:[
cc15fa1bdb45 * empty log message * sr parents: 3573 diff changeset	429	self getListFromModel.
cc15fa1bdb45 * empty log message * sr parents: 3573 diff changeset	430	].
314 6ff49c930c71 fetch models value when a model is assigned; Claus Gittinger <cg@exept.de> parents: 312 diff changeset	431	self getValueFromModel.
304 7ee03df31561 cleaned up model interface Claus Gittinger <cg@exept.de> parents: 302 diff changeset	432
314 6ff49c930c71 fetch models value when a model is assigned; Claus Gittinger <cg@exept.de> parents: 312 diff changeset	433	"Modified: 28.2.1997 / 19:08:45 / cg"
310 15ef4f52f8cf comments Claus Gittinger <cg@exept.de> parents: 308 diff changeset	434	! !
15ef4f52f8cf comments Claus Gittinger <cg@exept.de> parents: 308 diff changeset	435
15ef4f52f8cf comments Claus Gittinger <cg@exept.de> parents: 308 diff changeset	436	!ComboView methodsFor:'change & update'!
214 328a09259794 get list from model Claus Gittinger <cg@exept.de> parents: 184 diff changeset	437
328a09259794 get list from model Claus Gittinger <cg@exept.de> parents: 184 diff changeset	438	update:something with:aParameter from:changedObject
1207 9019fe235f32 do not share my enableChannel with my buttons channel tm parents: 1183 diff changeset	439
214 328a09259794 get list from model Claus Gittinger <cg@exept.de> parents: 184 diff changeset	440	changedObject == model ifTrue:[
310 15ef4f52f8cf comments Claus Gittinger <cg@exept.de> parents: 308 diff changeset	441	listHolder isNil ifTrue:[
15ef4f52f8cf comments Claus Gittinger <cg@exept.de> parents: 308 diff changeset	442	self getListFromModel.
15ef4f52f8cf comments Claus Gittinger <cg@exept.de> parents: 308 diff changeset	443	].
15ef4f52f8cf comments Claus Gittinger <cg@exept.de> parents: 308 diff changeset	444	self getValueFromModel.
15ef4f52f8cf comments Claus Gittinger <cg@exept.de> parents: 308 diff changeset	445	^ self
214 328a09259794 get list from model Claus Gittinger <cg@exept.de> parents: 184 diff changeset	446	].
310 15ef4f52f8cf comments Claus Gittinger <cg@exept.de> parents: 308 diff changeset	447	changedObject == listHolder ifTrue:[
15ef4f52f8cf comments Claus Gittinger <cg@exept.de> parents: 308 diff changeset	448	self getListFromModel.
15ef4f52f8cf comments Claus Gittinger <cg@exept.de> parents: 308 diff changeset	449	^ self
15ef4f52f8cf comments Claus Gittinger <cg@exept.de> parents: 308 diff changeset	450	].
15ef4f52f8cf comments Claus Gittinger <cg@exept.de> parents: 308 diff changeset	451
214 328a09259794 get list from model Claus Gittinger <cg@exept.de> parents: 184 diff changeset	452	super update:something with:aParameter from:changedObject
328a09259794 get list from model Claus Gittinger <cg@exept.de> parents: 184 diff changeset	453
1294 36a0e9dcd813 Move common channels to View. Stefan Vogel <sv@exept.de> parents: 1291 diff changeset	454	"Created: / 15.7.1996 / 12:26:49 / cg"
36a0e9dcd813 Move common channels to View. Stefan Vogel <sv@exept.de> parents: 1291 diff changeset	455	"Modified: / 28.2.1997 / 13:48:51 / cg"
36a0e9dcd813 Move common channels to View. Stefan Vogel <sv@exept.de> parents: 1291 diff changeset	456	"Modified: / 30.3.1999 / 14:17:55 / stefan"
214 328a09259794 get list from model Claus Gittinger <cg@exept.de> parents: 184 diff changeset	457	! !
328a09259794 get list from model Claus Gittinger <cg@exept.de> parents: 184 diff changeset	458
869 a1838cce9641 popup menu on space or return Claus Gittinger <cg@exept.de> parents: 853 diff changeset	459	!ComboView methodsFor:'event handling'!
a1838cce9641 popup menu on space or return Claus Gittinger <cg@exept.de> parents: 853 diff changeset	460
1306 56e90a9e5da1 renambe #enableStateChange to #enableStateChanged Claus Gittinger <cg@exept.de> parents: 1301 diff changeset	461	enableStateChanged
1294 36a0e9dcd813 Move common channels to View. Stefan Vogel <sv@exept.de> parents: 1291 diff changeset	462	"the enable state has changed - pass this to my field and pullDownButton"
36a0e9dcd813 Move common channels to View. Stefan Vogel <sv@exept.de> parents: 1291 diff changeset	463
36a0e9dcd813 Move common channels to View. Stefan Vogel <sv@exept.de> parents: 1291 diff changeset	464	\|msg\|
36a0e9dcd813 Move common channels to View. Stefan Vogel <sv@exept.de> parents: 1291 diff changeset	465
36a0e9dcd813 Move common channels to View. Stefan Vogel <sv@exept.de> parents: 1291 diff changeset	466	(enableChannel isNil or:[enableChannel value]) ifTrue:[
36a0e9dcd813 Move common channels to View. Stefan Vogel <sv@exept.de> parents: 1291 diff changeset	467	msg := #enable
36a0e9dcd813 Move common channels to View. Stefan Vogel <sv@exept.de> parents: 1291 diff changeset	468	] ifFalse:[
36a0e9dcd813 Move common channels to View. Stefan Vogel <sv@exept.de> parents: 1291 diff changeset	469	msg := #disable
36a0e9dcd813 Move common channels to View. Stefan Vogel <sv@exept.de> parents: 1291 diff changeset	470	].
36a0e9dcd813 Move common channels to View. Stefan Vogel <sv@exept.de> parents: 1291 diff changeset	471	field perform:msg ifNotUnderstood:nil.
36a0e9dcd813 Move common channels to View. Stefan Vogel <sv@exept.de> parents: 1291 diff changeset	472
3755 dca9622d2aa9 code cleanup Claus Gittinger <cg@exept.de> parents: 3596 diff changeset	473	list isEmptyOrNil ifTrue:[
1294 36a0e9dcd813 Move common channels to View. Stefan Vogel <sv@exept.de> parents: 1291 diff changeset	474	msg := #disable
36a0e9dcd813 Move common channels to View. Stefan Vogel <sv@exept.de> parents: 1291 diff changeset	475	].
36a0e9dcd813 Move common channels to View. Stefan Vogel <sv@exept.de> parents: 1291 diff changeset	476	pullDownButton perform:msg ifNotUnderstood:nil.
36a0e9dcd813 Move common channels to View. Stefan Vogel <sv@exept.de> parents: 1291 diff changeset	477
36a0e9dcd813 Move common channels to View. Stefan Vogel <sv@exept.de> parents: 1291 diff changeset	478	"Modified: / 22.2.1999 / 00:47:46 / cg"
36a0e9dcd813 Move common channels to View. Stefan Vogel <sv@exept.de> parents: 1291 diff changeset	479	"Modified: / 30.3.1999 / 14:17:10 / stefan"
36a0e9dcd813 Move common channels to View. Stefan Vogel <sv@exept.de> parents: 1291 diff changeset	480	!
36a0e9dcd813 Move common channels to View. Stefan Vogel <sv@exept.de> parents: 1291 diff changeset	481
3312 ad1dcdaa7ba7 Support for selection via mouse wheel Stefan Vogel <sv@exept.de> parents: 3290 diff changeset	482	handlesMouseWheelMotion:event inView:aView
ad1dcdaa7ba7 Support for selection via mouse wheel Stefan Vogel <sv@exept.de> parents: 3290 diff changeset	483	"we handle delegated mousewheel events"
ad1dcdaa7ba7 Support for selection via mouse wheel Stefan Vogel <sv@exept.de> parents: 3290 diff changeset	484
ad1dcdaa7ba7 Support for selection via mouse wheel Stefan Vogel <sv@exept.de> parents: 3290 diff changeset	485	^ true
ad1dcdaa7ba7 Support for selection via mouse wheel Stefan Vogel <sv@exept.de> parents: 3290 diff changeset	486	!
ad1dcdaa7ba7 Support for selection via mouse wheel Stefan Vogel <sv@exept.de> parents: 3290 diff changeset	487
869 a1838cce9641 popup menu on space or return Claus Gittinger <cg@exept.de> parents: 853 diff changeset	488	keyPress:key x:x y:y
2868 0050e38370ed comment Claus Gittinger <cg@exept.de> parents: 2785 diff changeset	489	"pull the menu on space and return keys"
0050e38370ed comment Claus Gittinger <cg@exept.de> parents: 2785 diff changeset	490
2025 cf30d2acc776 checkin from browser Claus Gittinger <cg@exept.de> parents: 2023 diff changeset	491	<resource: #keyboard (#Return)>
cf30d2acc776 checkin from browser Claus Gittinger <cg@exept.de> parents: 2023 diff changeset	492
2868 0050e38370ed comment Claus Gittinger <cg@exept.de> parents: 2785 diff changeset	493	(key == Character space or:[key == #Return]) ifTrue:[
869 a1838cce9641 popup menu on space or return Claus Gittinger <cg@exept.de> parents: 853 diff changeset	494	self pullMenu.
a1838cce9641 popup menu on space or return Claus Gittinger <cg@exept.de> parents: 853 diff changeset	495	^ self.
a1838cce9641 popup menu on space or return Claus Gittinger <cg@exept.de> parents: 853 diff changeset	496	].
a1838cce9641 popup menu on space or return Claus Gittinger <cg@exept.de> parents: 853 diff changeset	497
a1838cce9641 popup menu on space or return Claus Gittinger <cg@exept.de> parents: 853 diff changeset	498	^ super keyPress:key x:x y:y
a1838cce9641 popup menu on space or return Claus Gittinger <cg@exept.de> parents: 853 diff changeset	499
a1838cce9641 popup menu on space or return Claus Gittinger <cg@exept.de> parents: 853 diff changeset	500	"Modified: / 21.4.1998 / 20:10:05 / cg"
3236 4e8b01660a5c comboView.pullMenuIfClickedOnField ca parents: 3231 diff changeset	501	!
4e8b01660a5c comboView.pullMenuIfClickedOnField ca parents: 3231 diff changeset	502
3312 ad1dcdaa7ba7 Support for selection via mouse wheel Stefan Vogel <sv@exept.de> parents: 3290 diff changeset	503	mouseWheelMotion:buttonState x:x y:y amount:amount deltaTime:dTime view:delegatingView
ad1dcdaa7ba7 Support for selection via mouse wheel Stefan Vogel <sv@exept.de> parents: 3290 diff changeset	504	"scroll through the list items"
ad1dcdaa7ba7 Support for selection via mouse wheel Stefan Vogel <sv@exept.de> parents: 3290 diff changeset	505
ad1dcdaa7ba7 Support for selection via mouse wheel Stefan Vogel <sv@exept.de> parents: 3290 diff changeset	506	self enableChannel value ifFalse:[
ad1dcdaa7ba7 Support for selection via mouse wheel Stefan Vogel <sv@exept.de> parents: 3290 diff changeset	507	^ self.
ad1dcdaa7ba7 Support for selection via mouse wheel Stefan Vogel <sv@exept.de> parents: 3290 diff changeset	508	].
ad1dcdaa7ba7 Support for selection via mouse wheel Stefan Vogel <sv@exept.de> parents: 3290 diff changeset	509
ad1dcdaa7ba7 Support for selection via mouse wheel Stefan Vogel <sv@exept.de> parents: 3290 diff changeset	510	list isNil ifTrue:[
ad1dcdaa7ba7 Support for selection via mouse wheel Stefan Vogel <sv@exept.de> parents: 3290 diff changeset	511	self getListFromModel.
3365 06a46f12cb2e changed #mouseWheelMotion:x:y:amount:deltaTime:view: Stefan Vogel <sv@exept.de> parents: 3327 diff changeset	512	list isEmptyOrNil ifTrue:[
06a46f12cb2e changed #mouseWheelMotion:x:y:amount:deltaTime:view: Stefan Vogel <sv@exept.de> parents: 3327 diff changeset	513	"nothing to scroll"
06a46f12cb2e changed #mouseWheelMotion:x:y:amount:deltaTime:view: Stefan Vogel <sv@exept.de> parents: 3327 diff changeset	514	^ self
06a46f12cb2e changed #mouseWheelMotion:x:y:amount:deltaTime:view: Stefan Vogel <sv@exept.de> parents: 3327 diff changeset	515	].
3312 ad1dcdaa7ba7 Support for selection via mouse wheel Stefan Vogel <sv@exept.de> parents: 3290 diff changeset	516	].
ad1dcdaa7ba7 Support for selection via mouse wheel Stefan Vogel <sv@exept.de> parents: 3290 diff changeset	517
3369 9f8f7c5d328f Correct selection behavior (start with line 1) Stefan Vogel <sv@exept.de> parents: 3365 diff changeset	518	self deltaSelect:amount sign negated.
3312 ad1dcdaa7ba7 Support for selection via mouse wheel Stefan Vogel <sv@exept.de> parents: 3290 diff changeset	519	!
ad1dcdaa7ba7 Support for selection via mouse wheel Stefan Vogel <sv@exept.de> parents: 3290 diff changeset	520
3236 4e8b01660a5c comboView.pullMenuIfClickedOnField ca parents: 3231 diff changeset	521	processEvent:anEvent
3290 d6fafe560ade bugfix - processEvents should have a look for which button is pressed ca parents: 3281 diff changeset	522	\|evView point x y button\|
3236 4e8b01660a5c comboView.pullMenuIfClickedOnField ca parents: 3231 diff changeset	523
3495 33b88650f7e1 focus frame drawing Claus Gittinger <cg@exept.de> parents: 3429 diff changeset	524	"/ only care for buttonpress in my field...
33b88650f7e1 focus frame drawing Claus Gittinger <cg@exept.de> parents: 3429 diff changeset	525	anEvent isButtonPressEvent ifFalse:[^ false].
33b88650f7e1 focus frame drawing Claus Gittinger <cg@exept.de> parents: 3429 diff changeset	526	evView := anEvent view.
33b88650f7e1 focus frame drawing Claus Gittinger <cg@exept.de> parents: 3429 diff changeset	527	evView isNil ifTrue:[^ false].
33b88650f7e1 focus frame drawing Claus Gittinger <cg@exept.de> parents: 3429 diff changeset	528
3290 d6fafe560ade bugfix - processEvents should have a look for which button is pressed ca parents: 3281 diff changeset	529	button := anEvent state.
d6fafe560ade bugfix - processEvents should have a look for which button is pressed ca parents: 3281 diff changeset	530	((button == 1) or:[button == #select]) ifFalse:[
d6fafe560ade bugfix - processEvents should have a look for which button is pressed ca parents: 3281 diff changeset	531	^ false
d6fafe560ade bugfix - processEvents should have a look for which button is pressed ca parents: 3281 diff changeset	532	].
d6fafe560ade bugfix - processEvents should have a look for which button is pressed ca parents: 3281 diff changeset	533
3236 4e8b01660a5c comboView.pullMenuIfClickedOnField ca parents: 3231 diff changeset	534	(field isNil or:[field shown not]) ifTrue:[
4e8b01660a5c comboView.pullMenuIfClickedOnField ca parents: 3231 diff changeset	535	^ false
4e8b01660a5c comboView.pullMenuIfClickedOnField ca parents: 3231 diff changeset	536	].
4e8b01660a5c comboView.pullMenuIfClickedOnField ca parents: 3231 diff changeset	537	(field isKeyboardConsumer and:[field isEnabled]) ifTrue:[
4e8b01660a5c comboView.pullMenuIfClickedOnField ca parents: 3231 diff changeset	538	^ false
4e8b01660a5c comboView.pullMenuIfClickedOnField ca parents: 3231 diff changeset	539	].
4e8b01660a5c comboView.pullMenuIfClickedOnField ca parents: 3231 diff changeset	540
3755 dca9622d2aa9 code cleanup Claus Gittinger <cg@exept.de> parents: 3596 diff changeset	541	x := anEvent x.
dca9622d2aa9 code cleanup Claus Gittinger <cg@exept.de> parents: 3596 diff changeset	542	y := anEvent y.
3236 4e8b01660a5c comboView.pullMenuIfClickedOnField ca parents: 3231 diff changeset	543
4e8b01660a5c comboView.pullMenuIfClickedOnField ca parents: 3231 diff changeset	544	evView ~~ field ifTrue:[
4e8b01660a5c comboView.pullMenuIfClickedOnField ca parents: 3231 diff changeset	545	(evView isSameOrComponentOf:field) ifFalse:[
4e8b01660a5c comboView.pullMenuIfClickedOnField ca parents: 3231 diff changeset	546	^ false
4e8b01660a5c comboView.pullMenuIfClickedOnField ca parents: 3231 diff changeset	547	].
3755 dca9622d2aa9 code cleanup Claus Gittinger <cg@exept.de> parents: 3596 diff changeset	548	point := x @ y.
3236 4e8b01660a5c comboView.pullMenuIfClickedOnField ca parents: 3231 diff changeset	549	point := device translatePoint:point fromView:evView toView:field.
3755 dca9622d2aa9 code cleanup Claus Gittinger <cg@exept.de> parents: 3596 diff changeset	550	x := point x.
dca9622d2aa9 code cleanup Claus Gittinger <cg@exept.de> parents: 3596 diff changeset	551	y := point y.
3236 4e8b01660a5c comboView.pullMenuIfClickedOnField ca parents: 3231 diff changeset	552	].
4e8b01660a5c comboView.pullMenuIfClickedOnField ca parents: 3231 diff changeset	553	(x between:0 and:field width) ifFalse:[^ false].
4e8b01660a5c comboView.pullMenuIfClickedOnField ca parents: 3231 diff changeset	554	(y between:0 and:field height) ifFalse:[^ false].
4e8b01660a5c comboView.pullMenuIfClickedOnField ca parents: 3231 diff changeset	555
3281 75391e011897 * empty log message * ca parents: 3274 diff changeset	556	self pullMenu == false ifTrue:[ ^ false ].
3495 33b88650f7e1 focus frame drawing Claus Gittinger <cg@exept.de> parents: 3429 diff changeset	557
33b88650f7e1 focus frame drawing Claus Gittinger <cg@exept.de> parents: 3429 diff changeset	558	"/ although eaten, we still must care for the focus !!
33b88650f7e1 focus frame drawing Claus Gittinger <cg@exept.de> parents: 3429 diff changeset	559	self wantsFocusWithButtonPress ifTrue:[
3503 f14e20004081 changed #processEvent: Michael Beyl <mb@exept.de> parents: 3495 diff changeset	560	self windowGroup notNil ifTrue:[
f14e20004081 changed #processEvent: Michael Beyl <mb@exept.de> parents: 3495 diff changeset	561	self windowGroup focusView:self.
f14e20004081 changed #processEvent: Michael Beyl <mb@exept.de> parents: 3495 diff changeset	562	"/ Transcript showCR:self windowGroup focusCameByTab.
f14e20004081 changed #processEvent: Michael Beyl <mb@exept.de> parents: 3495 diff changeset	563	]
3495 33b88650f7e1 focus frame drawing Claus Gittinger <cg@exept.de> parents: 3429 diff changeset	564	].
3236 4e8b01660a5c comboView.pullMenuIfClickedOnField ca parents: 3231 diff changeset	565	^ true
869 a1838cce9641 popup menu on space or return Claus Gittinger <cg@exept.de> parents: 853 diff changeset	566	! !
a1838cce9641 popup menu on space or return Claus Gittinger <cg@exept.de> parents: 853 diff changeset	567
2499 a2b676b9292c method category rename Claus Gittinger <cg@exept.de> parents: 2477 diff changeset	568	!ComboView methodsFor:'initialization & release'!
129 a680f0b7508f intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	569
3236 4e8b01660a5c comboView.pullMenuIfClickedOnField ca parents: 3231 diff changeset	570	destroy
4e8b01660a5c comboView.pullMenuIfClickedOnField ca parents: 3231 diff changeset	571	\|wgrp\|
4e8b01660a5c comboView.pullMenuIfClickedOnField ca parents: 3231 diff changeset	572
4e8b01660a5c comboView.pullMenuIfClickedOnField ca parents: 3231 diff changeset	573	(wgrp := self windowGroup) notNil ifTrue:[
4e8b01660a5c comboView.pullMenuIfClickedOnField ca parents: 3231 diff changeset	574	wgrp removePreEventHook:self.
4e8b01660a5c comboView.pullMenuIfClickedOnField ca parents: 3231 diff changeset	575	].
4e8b01660a5c comboView.pullMenuIfClickedOnField ca parents: 3231 diff changeset	576	super destroy.
4e8b01660a5c comboView.pullMenuIfClickedOnField ca parents: 3231 diff changeset	577	!
4e8b01660a5c comboView.pullMenuIfClickedOnField ca parents: 3231 diff changeset	578
3825 f5fe434e1cf7 border a la vista Claus Gittinger <cg@exept.de> parents: 3824 diff changeset	579	initStyle
f5fe434e1cf7 border a la vista Claus Gittinger <cg@exept.de> parents: 3824 diff changeset	580	super initStyle.
f5fe434e1cf7 border a la vista Claus Gittinger <cg@exept.de> parents: 3824 diff changeset	581
f5fe434e1cf7 border a la vista Claus Gittinger <cg@exept.de> parents: 3824 diff changeset	582	self borderWidth:(EditField defaultBorderWidth).
f5fe434e1cf7 border a la vista Claus Gittinger <cg@exept.de> parents: 3824 diff changeset	583	self borderColor:(EditField defaultBorderColor).
f5fe434e1cf7 border a la vista Claus Gittinger <cg@exept.de> parents: 3824 diff changeset	584	!
f5fe434e1cf7 border a la vista Claus Gittinger <cg@exept.de> parents: 3824 diff changeset	585
129 a680f0b7508f intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	586	initialize
2750 4e0f6fde1ae8 more xp style Claus Gittinger <cg@exept.de> parents: 2499 diff changeset	587	\|prefExt leftInset rightInset prefWidth halfSpacing nm lvl\|
129 a680f0b7508f intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	588
a680f0b7508f intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	589	super initialize.
308 922a96deba3e examples removed; cleanup Claus Gittinger <cg@exept.de> parents: 304 diff changeset	590
304 7ee03df31561 cleaned up model interface Claus Gittinger <cg@exept.de> parents: 302 diff changeset	591	listMsg := self class defaultListMessage.
7ee03df31561 cleaned up model interface Claus Gittinger <cg@exept.de> parents: 302 diff changeset	592	aspectMsg := self class defaultAspectMessage.
7ee03df31561 cleaned up model interface Claus Gittinger <cg@exept.de> parents: 302 diff changeset	593	changeMsg := self class defaultChangeMessage.
129 a680f0b7508f intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	594
a680f0b7508f intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	595	self initializeField.
3825 f5fe434e1cf7 border a la vista Claus Gittinger <cg@exept.de> parents: 3824 diff changeset	596	field origin:margin@margin corner:1.0@1.0.
2136 6e2d9f16e7e3 shadowColor setup fixed Claus Gittinger <cg@exept.de> parents: 2131 diff changeset	597	self shadowColor:(field shadowColor).
129 a680f0b7508f intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	598
331 d6fad4b27a9a checkin from browser Claus Gittinger <cg@exept.de> parents: 321 diff changeset	599	self initializeButton.
2174 ab242e29da64 button init code made publicly available Claus Gittinger <cg@exept.de> parents: 2157 diff changeset	600	pullDownButton pressAction:[self pullMenu].
280 3936f0839b64 nicer spacing Claus Gittinger <cg@exept.de> parents: 277 diff changeset	601	prefExt := pullDownButton preferredExtent.
3936f0839b64 nicer spacing Claus Gittinger <cg@exept.de> parents: 277 diff changeset	602	prefWidth := prefExt x.
3936f0839b64 nicer spacing Claus Gittinger <cg@exept.de> parents: 277 diff changeset	603
129 a680f0b7508f intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	604	pullDownButton origin:1.0@0.0 corner:1.0@1.0.
217 82971d8b3938 care for 2D styles Claus Gittinger <cg@exept.de> parents: 214 diff changeset	605	styleSheet is3D ifTrue:[
280 3936f0839b64 nicer spacing Claus Gittinger <cg@exept.de> parents: 277 diff changeset	606	halfSpacing := ViewSpacing // 2.
3936f0839b64 nicer spacing Claus Gittinger <cg@exept.de> parents: 277 diff changeset	607	leftInset := rightInset := prefWidth + halfSpacing.
2750 4e0f6fde1ae8 more xp style Claus Gittinger <cg@exept.de> parents: 2499 diff changeset	608	(lvl := styleSheet at:#'comboView.level' default:nil) notNil ifTrue:[
4e0f6fde1ae8 more xp style Claus Gittinger <cg@exept.de> parents: 2499 diff changeset	609	self level:lvl.
319 920ef16160ae w95 style fixes Claus Gittinger <cg@exept.de> parents: 314 diff changeset	610	field level:0.
920ef16160ae w95 style fixes Claus Gittinger <cg@exept.de> parents: 314 diff changeset	611	field rightInset:margin.
920ef16160ae w95 style fixes Claus Gittinger <cg@exept.de> parents: 314 diff changeset	612	] ifFalse:[
920ef16160ae w95 style fixes Claus Gittinger <cg@exept.de> parents: 314 diff changeset	613	pullDownButton rightInset:halfSpacing.
920ef16160ae w95 style fixes Claus Gittinger <cg@exept.de> parents: 314 diff changeset	614	field leftInset:halfSpacing
920ef16160ae w95 style fixes Claus Gittinger <cg@exept.de> parents: 314 diff changeset	615	].
217 82971d8b3938 care for 2D styles Claus Gittinger <cg@exept.de> parents: 214 diff changeset	616	] ifFalse:[
280 3936f0839b64 nicer spacing Claus Gittinger <cg@exept.de> parents: 277 diff changeset	617	leftInset := prefWidth + pullDownButton borderWidth.
3936f0839b64 nicer spacing Claus Gittinger <cg@exept.de> parents: 277 diff changeset	618	rightInset := prefWidth.
217 82971d8b3938 care for 2D styles Claus Gittinger <cg@exept.de> parents: 214 diff changeset	619	].
1125 6bb8029bbc29 geometry beautified Claus Gittinger <cg@exept.de> parents: 889 diff changeset	620
1696 f1bae6d68ffe eliminated styleSheet name = win95 queries Claus Gittinger <cg@exept.de> parents: 1633 diff changeset	621	nm := styleSheet name.
2750 4e0f6fde1ae8 more xp style Claus Gittinger <cg@exept.de> parents: 2499 diff changeset	622	(nm = #win95 or:[nm = #win98 or:[nm = #winXP or:[nm = #st80]]]) ifTrue:[
1125 6bb8029bbc29 geometry beautified Claus Gittinger <cg@exept.de> parents: 889 diff changeset	623	field level:0.
2750 4e0f6fde1ae8 more xp style Claus Gittinger <cg@exept.de> parents: 2499 diff changeset	624	lvl isNil ifTrue:[self level:-1].
1125 6bb8029bbc29 geometry beautified Claus Gittinger <cg@exept.de> parents: 889 diff changeset	625	pullDownButton rightInset:0.
1696 f1bae6d68ffe eliminated styleSheet name = win95 queries Claus Gittinger <cg@exept.de> parents: 1633 diff changeset	626	nm ~= #st80 ifTrue:[
3429 f2b4b84cd477 added preferredWidth & preferredHeight Claus Gittinger <cg@exept.de> parents: 3369 diff changeset	627	leftInset := (ArrowButton new preferredWidth).
1126 dc790a73ac4d checkin from browser Claus Gittinger <cg@exept.de> parents: 1125 diff changeset	628	rightInset := leftInset.
1125 6bb8029bbc29 geometry beautified Claus Gittinger <cg@exept.de> parents: 889 diff changeset	629	].
6bb8029bbc29 geometry beautified Claus Gittinger <cg@exept.de> parents: 889 diff changeset	630	field origin:0.0@0.0.
2750 4e0f6fde1ae8 more xp style Claus Gittinger <cg@exept.de> parents: 2499 diff changeset	631	field leftInset:0.
1125 6bb8029bbc29 geometry beautified Claus Gittinger <cg@exept.de> parents: 889 diff changeset	632	"/ field topInset:1; bottomInset:1.
2750 4e0f6fde1ae8 more xp style Claus Gittinger <cg@exept.de> parents: 2499 diff changeset	633	"/ nm = #winXP ifTrue:[
4e0f6fde1ae8 more xp style Claus Gittinger <cg@exept.de> parents: 2499 diff changeset	634	"/ self borderWidth:1.
4e0f6fde1ae8 more xp style Claus Gittinger <cg@exept.de> parents: 2499 diff changeset	635	"/ self borderColor:(Color blue lightened).
4e0f6fde1ae8 more xp style Claus Gittinger <cg@exept.de> parents: 2499 diff changeset	636	"/ ].
1125 6bb8029bbc29 geometry beautified Claus Gittinger <cg@exept.de> parents: 889 diff changeset	637	].
1126 dc790a73ac4d checkin from browser Claus Gittinger <cg@exept.de> parents: 1125 diff changeset	638	field rightInset:rightInset.
280 3936f0839b64 nicer spacing Claus Gittinger <cg@exept.de> parents: 277 diff changeset	639	pullDownButton leftInset:leftInset negated.
129 a680f0b7508f intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	640
3429 f2b4b84cd477 added preferredWidth & preferredHeight Claus Gittinger <cg@exept.de> parents: 3369 diff changeset	641	self initialHeight:field preferredHeight + ViewSpacing.
129 a680f0b7508f intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	642	"
a680f0b7508f intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	643	\|b\|
a680f0b7508f intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	644
a680f0b7508f intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	645	b := ComboBoxView new.
a680f0b7508f intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	646	b list:#('hello' 'world' 'this' 'is' 'st/x').
a680f0b7508f intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	647	b open
a680f0b7508f intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	648	"
a680f0b7508f intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	649
1125 6bb8029bbc29 geometry beautified Claus Gittinger <cg@exept.de> parents: 889 diff changeset	650	"Created: / 28.2.1996 / 15:03:17 / cg"
6bb8029bbc29 geometry beautified Claus Gittinger <cg@exept.de> parents: 889 diff changeset	651	"Modified: / 8.9.1998 / 20:33:22 / cg"
331 d6fad4b27a9a checkin from browser Claus Gittinger <cg@exept.de> parents: 321 diff changeset	652	!
d6fad4b27a9a checkin from browser Claus Gittinger <cg@exept.de> parents: 321 diff changeset	653
d6fad4b27a9a checkin from browser Claus Gittinger <cg@exept.de> parents: 321 diff changeset	654	initializeButton
2174 ab242e29da64 button init code made publicly available Claus Gittinger <cg@exept.de> parents: 2157 diff changeset	655	pullDownButton := self class comboButtonFor:self.
331 d6fad4b27a9a checkin from browser Claus Gittinger <cg@exept.de> parents: 321 diff changeset	656	pullDownButton disable.
d6fad4b27a9a checkin from browser Claus Gittinger <cg@exept.de> parents: 321 diff changeset	657	!
d6fad4b27a9a checkin from browser Claus Gittinger <cg@exept.de> parents: 321 diff changeset	658
d6fad4b27a9a checkin from browser Claus Gittinger <cg@exept.de> parents: 321 diff changeset	659	initializeField
d6fad4b27a9a checkin from browser Claus Gittinger <cg@exept.de> parents: 321 diff changeset	660	self subclassResponsibility
d6fad4b27a9a checkin from browser Claus Gittinger <cg@exept.de> parents: 321 diff changeset	661
d6fad4b27a9a checkin from browser Claus Gittinger <cg@exept.de> parents: 321 diff changeset	662	"Created: 29.3.1997 / 11:17:14 / cg"
2157 6cfdf247519a destroy - release Claus Gittinger <cg@exept.de> parents: 2136 diff changeset	663	!
6cfdf247519a destroy - release Claus Gittinger <cg@exept.de> parents: 2136 diff changeset	664
3236 4e8b01660a5c comboView.pullMenuIfClickedOnField ca parents: 3231 diff changeset	665	realize
3238 c3834ec3a914 test for unspecified windowGroup ca parents: 3236 diff changeset	666	\|pullMenuIfClickedOnField wgrp\|
3236 4e8b01660a5c comboView.pullMenuIfClickedOnField ca parents: 3231 diff changeset	667
4e8b01660a5c comboView.pullMenuIfClickedOnField ca parents: 3231 diff changeset	668	super realize.
4e8b01660a5c comboView.pullMenuIfClickedOnField ca parents: 3231 diff changeset	669
3824 5d7e67f50bb5 comment/format in: #realize Claus Gittinger <cg@exept.de> parents: 3777 diff changeset	670	pullMenuIfClickedOnField :=
5d7e67f50bb5 comment/format in: #realize Claus Gittinger <cg@exept.de> parents: 3777 diff changeset	671	styleSheet
5d7e67f50bb5 comment/format in: #realize Claus Gittinger <cg@exept.de> parents: 3777 diff changeset	672	at:#'comboView.pullMenuIfClickedOnField'
5d7e67f50bb5 comment/format in: #realize Claus Gittinger <cg@exept.de> parents: 3777 diff changeset	673	default:[ OperatingSystem isMSWINDOWSlike ].
3236 4e8b01660a5c comboView.pullMenuIfClickedOnField ca parents: 3231 diff changeset	674
4e8b01660a5c comboView.pullMenuIfClickedOnField ca parents: 3231 diff changeset	675	pullMenuIfClickedOnField == true ifTrue:[
3238 c3834ec3a914 test for unspecified windowGroup ca parents: 3236 diff changeset	676	wgrp := self windowGroup.
c3834ec3a914 test for unspecified windowGroup ca parents: 3236 diff changeset	677	wgrp notNil ifTrue:[ wgrp addPreEventHook:self ].
3236 4e8b01660a5c comboView.pullMenuIfClickedOnField ca parents: 3231 diff changeset	678	].
4e8b01660a5c comboView.pullMenuIfClickedOnField ca parents: 3231 diff changeset	679	!
4e8b01660a5c comboView.pullMenuIfClickedOnField ca parents: 3231 diff changeset	680
2157 6cfdf247519a destroy - release Claus Gittinger <cg@exept.de> parents: 2136 diff changeset	681	release
6cfdf247519a destroy - release Claus Gittinger <cg@exept.de> parents: 2136 diff changeset	682	listHolder notNil ifTrue:[
6cfdf247519a destroy - release Claus Gittinger <cg@exept.de> parents: 2136 diff changeset	683	listHolder removeDependent:self.
6cfdf247519a destroy - release Claus Gittinger <cg@exept.de> parents: 2136 diff changeset	684	listHolder := nil.
6cfdf247519a destroy - release Claus Gittinger <cg@exept.de> parents: 2136 diff changeset	685	].
6cfdf247519a destroy - release Claus Gittinger <cg@exept.de> parents: 2136 diff changeset	686	super release
129 a680f0b7508f intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	687	! !
a680f0b7508f intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	688
2406 2ea7cf110e58 category change penk parents: 2405 diff changeset	689	!ComboView methodsFor:'menu interaction'!
2ea7cf110e58 category change penk parents: 2405 diff changeset	690
2ea7cf110e58 category change penk parents: 2405 diff changeset	691	createPullDownMenuForList:aList
2ea7cf110e58 category change penk parents: 2405 diff changeset	692	"pull the menu - triggered from the button"
2ea7cf110e58 category change penk parents: 2405 diff changeset	693
2ea7cf110e58 category change penk parents: 2405 diff changeset	694	\|menu index\|
2ea7cf110e58 category change penk parents: 2405 diff changeset	695
3327 b848ca9d2c1f no access character translation for the combo-list Claus Gittinger <cg@exept.de> parents: 3315 diff changeset	696	menu := MenuPanel new.
b848ca9d2c1f no access character translation for the combo-list Claus Gittinger <cg@exept.de> parents: 3315 diff changeset	697	menu doAccessCharacterTranslation:false.
b848ca9d2c1f no access character translation for the combo-list Claus Gittinger <cg@exept.de> parents: 3315 diff changeset	698	menu labels:aList.
3777 83c52227471d changed: #createPullDownMenuForList: Claus Gittinger <cg@exept.de> parents: 3755 diff changeset	699	menu hideOnRelease:false.
2406 2ea7cf110e58 category change penk parents: 2405 diff changeset	700
2ea7cf110e58 category change penk parents: 2405 diff changeset	701	index := 1.
2ea7cf110e58 category change penk parents: 2405 diff changeset	702
2ea7cf110e58 category change penk parents: 2405 diff changeset	703	menu do:[:el \|
2ea7cf110e58 category change penk parents: 2405 diff changeset	704	el value:#select: argument:index.
2ea7cf110e58 category change penk parents: 2405 diff changeset	705	index := index + 1.
2ea7cf110e58 category change penk parents: 2405 diff changeset	706	].
2ea7cf110e58 category change penk parents: 2405 diff changeset	707	menu receiver:self.
2ea7cf110e58 category change penk parents: 2405 diff changeset	708	menu font:font.
2ea7cf110e58 category change penk parents: 2405 diff changeset	709	menu preferredWidth:(self width).
2ea7cf110e58 category change penk parents: 2405 diff changeset	710
2ea7cf110e58 category change penk parents: 2405 diff changeset	711	^ menu
2ea7cf110e58 category change penk parents: 2405 diff changeset	712	!
2ea7cf110e58 category change penk parents: 2405 diff changeset	713
3369 9f8f7c5d328f Correct selection behavior (start with line 1) Stefan Vogel <sv@exept.de> parents: 3365 diff changeset	714	deltaSelect:delta
9f8f7c5d328f Correct selection behavior (start with line 1) Stefan Vogel <sv@exept.de> parents: 3365 diff changeset	715	"change selection by delta. Wrap at start/end"
9f8f7c5d328f Correct selection behavior (start with line 1) Stefan Vogel <sv@exept.de> parents: 3365 diff changeset	716
9f8f7c5d328f Correct selection behavior (start with line 1) Stefan Vogel <sv@exept.de> parents: 3365 diff changeset	717	\|newIndex\|
9f8f7c5d328f Correct selection behavior (start with line 1) Stefan Vogel <sv@exept.de> parents: 3365 diff changeset	718
3556 e7d87b5b3cf7 care for mouse-wheel deltaSelect: if list is empty Claus Gittinger <cg@exept.de> parents: 3503 diff changeset	719	list size == 0 ifTrue:[^ self].
e7d87b5b3cf7 care for mouse-wheel deltaSelect: if list is empty Claus Gittinger <cg@exept.de> parents: 3503 diff changeset	720
3369 9f8f7c5d328f Correct selection behavior (start with line 1) Stefan Vogel <sv@exept.de> parents: 3365 diff changeset	721	newIndex := currentIndex + delta.
9f8f7c5d328f Correct selection behavior (start with line 1) Stefan Vogel <sv@exept.de> parents: 3365 diff changeset	722	newIndex > list size ifTrue:[
9f8f7c5d328f Correct selection behavior (start with line 1) Stefan Vogel <sv@exept.de> parents: 3365 diff changeset	723	newIndex := 1.
9f8f7c5d328f Correct selection behavior (start with line 1) Stefan Vogel <sv@exept.de> parents: 3365 diff changeset	724	] ifFalse:[
9f8f7c5d328f Correct selection behavior (start with line 1) Stefan Vogel <sv@exept.de> parents: 3365 diff changeset	725	newIndex <= 0 ifTrue:[
9f8f7c5d328f Correct selection behavior (start with line 1) Stefan Vogel <sv@exept.de> parents: 3365 diff changeset	726	newIndex := list size.
9f8f7c5d328f Correct selection behavior (start with line 1) Stefan Vogel <sv@exept.de> parents: 3365 diff changeset	727	].
9f8f7c5d328f Correct selection behavior (start with line 1) Stefan Vogel <sv@exept.de> parents: 3365 diff changeset	728	].
9f8f7c5d328f Correct selection behavior (start with line 1) Stefan Vogel <sv@exept.de> parents: 3365 diff changeset	729
9f8f7c5d328f Correct selection behavior (start with line 1) Stefan Vogel <sv@exept.de> parents: 3365 diff changeset	730	self select:newIndex.
9f8f7c5d328f Correct selection behavior (start with line 1) Stefan Vogel <sv@exept.de> parents: 3365 diff changeset	731	!
9f8f7c5d328f Correct selection behavior (start with line 1) Stefan Vogel <sv@exept.de> parents: 3365 diff changeset	732
2406 2ea7cf110e58 category change penk parents: 2405 diff changeset	733	pullMenu
3281 75391e011897 * empty log message * ca parents: 3274 diff changeset	734	"pull the menu - triggered from the button
75391e011897 * empty log message * ca parents: 3274 diff changeset	735	returns false if the menu cannot be opened"
2406 2ea7cf110e58 category change penk parents: 2405 diff changeset	736
3281 75391e011897 * empty log message * ca parents: 3274 diff changeset	737	\|menu origin opensMenu\|
2406 2ea7cf110e58 category change penk parents: 2405 diff changeset	738
2ea7cf110e58 category change penk parents: 2405 diff changeset	739	self getListFromModel.
2ea7cf110e58 category change penk parents: 2405 diff changeset	740
3281 75391e011897 * empty log message * ca parents: 3274 diff changeset	741	opensMenu := (list notEmptyOrNil and:[self enableChannel value]).
75391e011897 * empty log message * ca parents: 3274 diff changeset	742
75391e011897 * empty log message * ca parents: 3274 diff changeset	743	opensMenu ifTrue:[
2406 2ea7cf110e58 category change penk parents: 2405 diff changeset	744	menu := self createPullDownMenuForList:list.
2ea7cf110e58 category change penk parents: 2405 diff changeset	745	origin := device translatePoint:(0 @ self height) fromView:self toView:nil.
2ea7cf110e58 category change penk parents: 2405 diff changeset	746	menu showAt:origin.
2ea7cf110e58 category change penk parents: 2405 diff changeset	747	].
2ea7cf110e58 category change penk parents: 2405 diff changeset	748
2ea7cf110e58 category change penk parents: 2405 diff changeset	749	pullDownButton turnOff.
3281 75391e011897 * empty log message * ca parents: 3274 diff changeset	750	^ opensMenu
2406 2ea7cf110e58 category change penk parents: 2405 diff changeset	751
2ea7cf110e58 category change penk parents: 2405 diff changeset	752	"Created: / 10.10.2001 / 14:47:25 / cg"
2ea7cf110e58 category change penk parents: 2405 diff changeset	753	"Modified: / 10.10.2001 / 15:04:44 / cg"
2ea7cf110e58 category change penk parents: 2405 diff changeset	754	!
2ea7cf110e58 category change penk parents: 2405 diff changeset	755
2ea7cf110e58 category change penk parents: 2405 diff changeset	756	select:anIndex
2ea7cf110e58 category change penk parents: 2405 diff changeset	757	"sent from the popped menu, when an item was selected"
2ea7cf110e58 category change penk parents: 2405 diff changeset	758
2ea7cf110e58 category change penk parents: 2405 diff changeset	759	self subclassResponsibility
2ea7cf110e58 category change penk parents: 2405 diff changeset	760
2ea7cf110e58 category change penk parents: 2405 diff changeset	761	"Modified: 27.2.1997 / 15:19:07 / cg"
2ea7cf110e58 category change penk parents: 2405 diff changeset	762	! !
2ea7cf110e58 category change penk parents: 2405 diff changeset	763
129 a680f0b7508f intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	764	!ComboView methodsFor:'message delegation'!
a680f0b7508f intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	765
a680f0b7508f intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	766	doesNotUnderstand:aMessage
a680f0b7508f intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	767	(field respondsTo:aMessage selector) ifTrue:[
1207 9019fe235f32 do not share my enableChannel with my buttons channel tm parents: 1183 diff changeset	768	^ aMessage sendTo:field
129 a680f0b7508f intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	769	].
a680f0b7508f intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	770	^ super doesNotUnderstand:aMessage
a680f0b7508f intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	771
a680f0b7508f intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	772	"Created: 28.2.1996 / 15:03:17 / cg"
a680f0b7508f intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	773	"Modified: 28.2.1996 / 15:06:09 / cg"
166 19f08c13b299 Forward respondsTo: message. Stefan Vogel <sv@exept.de> parents: 129 diff changeset	774	!
19f08c13b299 Forward respondsTo: message. Stefan Vogel <sv@exept.de> parents: 129 diff changeset	775
2300 c3d1ba5c884e * empty log message * Claus Gittinger <cg@exept.de> parents: 2176 diff changeset	776	flash
c3d1ba5c884e * empty log message * Claus Gittinger <cg@exept.de> parents: 2176 diff changeset	777	field flash
c3d1ba5c884e * empty log message * Claus Gittinger <cg@exept.de> parents: 2176 diff changeset	778	!
c3d1ba5c884e * empty log message * Claus Gittinger <cg@exept.de> parents: 2176 diff changeset	779
166 19f08c13b299 Forward respondsTo: message. Stefan Vogel <sv@exept.de> parents: 129 diff changeset	780	respondsTo:aSymbol
19f08c13b299 Forward respondsTo: message. Stefan Vogel <sv@exept.de> parents: 129 diff changeset	781	^ (field respondsTo:aSymbol) or:[super respondsTo:aSymbol]
19f08c13b299 Forward respondsTo: message. Stefan Vogel <sv@exept.de> parents: 129 diff changeset	782
19f08c13b299 Forward respondsTo: message. Stefan Vogel <sv@exept.de> parents: 129 diff changeset	783	"Created: 2.5.1996 / 16:57:34 / stefan"
129 a680f0b7508f intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	784	! !
a680f0b7508f intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	785
214 328a09259794 get list from model Claus Gittinger <cg@exept.de> parents: 184 diff changeset	786	!ComboView methodsFor:'private'!
328a09259794 get list from model Claus Gittinger <cg@exept.de> parents: 184 diff changeset	787
328a09259794 get list from model Claus Gittinger <cg@exept.de> parents: 184 diff changeset	788	getListFromModel
277 44eadbccc2b7 added support for a separate listHolder Claus Gittinger <cg@exept.de> parents: 276 diff changeset	789	"fetch the list - either from the listHolder, or
44eadbccc2b7 added support for a separate listHolder Claus Gittinger <cg@exept.de> parents: 276 diff changeset	790	from the model. If no listMessage was defined, fetch it
44eadbccc2b7 added support for a separate listHolder Claus Gittinger <cg@exept.de> parents: 276 diff changeset	791	using #list."
44eadbccc2b7 added support for a separate listHolder Claus Gittinger <cg@exept.de> parents: 276 diff changeset	792
44eadbccc2b7 added support for a separate listHolder Claus Gittinger <cg@exept.de> parents: 276 diff changeset	793	listHolder notNil ifTrue:[
44eadbccc2b7 added support for a separate listHolder Claus Gittinger <cg@exept.de> parents: 276 diff changeset	794	self list:listHolder value
44eadbccc2b7 added support for a separate listHolder Claus Gittinger <cg@exept.de> parents: 276 diff changeset	795	] ifFalse:[
304 7ee03df31561 cleaned up model interface Claus Gittinger <cg@exept.de> parents: 302 diff changeset	796	(model notNil and:[listMsg notNil]) ifTrue:[
7ee03df31561 cleaned up model interface Claus Gittinger <cg@exept.de> parents: 302 diff changeset	797	(model respondsTo:listMsg) ifTrue:[
7ee03df31561 cleaned up model interface Claus Gittinger <cg@exept.de> parents: 302 diff changeset	798	self list:(model perform:listMsg)
277 44eadbccc2b7 added support for a separate listHolder Claus Gittinger <cg@exept.de> parents: 276 diff changeset	799	]
44eadbccc2b7 added support for a separate listHolder Claus Gittinger <cg@exept.de> parents: 276 diff changeset	800	]
214 328a09259794 get list from model Claus Gittinger <cg@exept.de> parents: 184 diff changeset	801	].
328a09259794 get list from model Claus Gittinger <cg@exept.de> parents: 184 diff changeset	802
328a09259794 get list from model Claus Gittinger <cg@exept.de> parents: 184 diff changeset	803	"Created: 15.7.1996 / 12:22:56 / cg"
304 7ee03df31561 cleaned up model interface Claus Gittinger <cg@exept.de> parents: 302 diff changeset	804	"Modified: 26.2.1997 / 19:40:58 / cg"
214 328a09259794 get list from model Claus Gittinger <cg@exept.de> parents: 184 diff changeset	805	!
328a09259794 get list from model Claus Gittinger <cg@exept.de> parents: 184 diff changeset	806
328a09259794 get list from model Claus Gittinger <cg@exept.de> parents: 184 diff changeset	807	getValueFromModel
328a09259794 get list from model Claus Gittinger <cg@exept.de> parents: 184 diff changeset	808
328a09259794 get list from model Claus Gittinger <cg@exept.de> parents: 184 diff changeset	809	"Modified: 15.7.1996 / 12:28:59 / cg"
1183 667132091c2f ComboBox's inputField ought to use its default font. Claus Gittinger <cg@exept.de> parents: 1126 diff changeset	810	!
667132091c2f ComboBox's inputField ought to use its default font. Claus Gittinger <cg@exept.de> parents: 1126 diff changeset	811
1210 55f2c4209f94 oops - only pull-button is disabled with empty list; Claus Gittinger <cg@exept.de> parents: 1207 diff changeset	812	setFieldsFont:aFont
55f2c4209f94 oops - only pull-button is disabled with empty list; Claus Gittinger <cg@exept.de> parents: 1207 diff changeset	813	field font:aFont.
214 328a09259794 get list from model Claus Gittinger <cg@exept.de> parents: 184 diff changeset	814	! !
328a09259794 get list from model Claus Gittinger <cg@exept.de> parents: 184 diff changeset	815
129 a680f0b7508f intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	816	!ComboView methodsFor:'queries'!
a680f0b7508f intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	817
a680f0b7508f intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	818	preferredExtent
285 a33d83de3849 commentary Claus Gittinger <cg@exept.de> parents: 283 diff changeset	819	"compute & return the boxes preferredExtent from the components' preferrences"
a33d83de3849 commentary Claus Gittinger <cg@exept.de> parents: 283 diff changeset	820
683 a2593b4a3ce1 fixed preferredExtent to also look into the menus list ca parents: 605 diff changeset	821	\|fieldPref buttonPref m menuPrefX menuPrefY w h\|
129 a680f0b7508f intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	822
3573 29daa27bd290 changed #preferredExtent - use explicitExtent instvar Stefan Vogel <sv@exept.de> parents: 3556 diff changeset	823	"/ If I have an explicit preferredExtent..
29daa27bd290 changed #preferredExtent - use explicitExtent instvar Stefan Vogel <sv@exept.de> parents: 3556 diff changeset	824	explicitExtent notNil ifTrue:[
29daa27bd290 changed #preferredExtent - use explicitExtent instvar Stefan Vogel <sv@exept.de> parents: 3556 diff changeset	825	^ explicitExtent
29daa27bd290 changed #preferredExtent - use explicitExtent instvar Stefan Vogel <sv@exept.de> parents: 3556 diff changeset	826	].
312 ec32b0a6259a explicit preferredExtent ca parents: 310 diff changeset	827
3573 29daa27bd290 changed #preferredExtent - use explicitExtent instvar Stefan Vogel <sv@exept.de> parents: 3556 diff changeset	828	"/ If I have a cached preferredExtent value..
312 ec32b0a6259a explicit preferredExtent ca parents: 310 diff changeset	829	preferredExtent notNil ifTrue:[
ec32b0a6259a explicit preferredExtent ca parents: 310 diff changeset	830	^ preferredExtent
ec32b0a6259a explicit preferredExtent ca parents: 310 diff changeset	831	].
ec32b0a6259a explicit preferredExtent ca parents: 310 diff changeset	832
129 a680f0b7508f intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	833	list isNil ifTrue:[
308 922a96deba3e examples removed; cleanup Claus Gittinger <cg@exept.de> parents: 304 diff changeset	834	self getListFromModel
922a96deba3e examples removed; cleanup Claus Gittinger <cg@exept.de> parents: 304 diff changeset	835	].
922a96deba3e examples removed; cleanup Claus Gittinger <cg@exept.de> parents: 304 diff changeset	836
922a96deba3e examples removed; cleanup Claus Gittinger <cg@exept.de> parents: 304 diff changeset	837	list isNil ifTrue:[
683 a2593b4a3ce1 fixed preferredExtent to also look into the menus list ca parents: 605 diff changeset	838	menuPrefX := menuPrefY := 0
129 a680f0b7508f intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	839	] ifFalse:[
1544 d8290e5a0b05 Speedup Stefan Vogel <sv@exept.de> parents: 1348 diff changeset	840	m := (MenuView onDevice:device ? Screen current) labels:list.
3429 f2b4b84cd477 added preferredWidth & preferredHeight Claus Gittinger <cg@exept.de> parents: 3369 diff changeset	841	menuPrefX := m preferredWidth.
1348 b4bf740ec2fc fixed pref. extent Claus Gittinger <cg@exept.de> parents: 1344 diff changeset	842
b4bf740ec2fc fixed pref. extent Claus Gittinger <cg@exept.de> parents: 1344 diff changeset	843	"/ the menuView returns rubbish ...
b4bf740ec2fc fixed pref. extent Claus Gittinger <cg@exept.de> parents: 1344 diff changeset	844	"/ menuPrefY := (m preferredExtentForLines:1 cols:10) y
b4bf740ec2fc fixed pref. extent Claus Gittinger <cg@exept.de> parents: 1344 diff changeset	845
b4bf740ec2fc fixed pref. extent Claus Gittinger <cg@exept.de> parents: 1344 diff changeset	846	"/ any non-strings ?
b4bf740ec2fc fixed pref. extent Claus Gittinger <cg@exept.de> parents: 1344 diff changeset	847	menuPrefY := list
b4bf740ec2fc fixed pref. extent Claus Gittinger <cg@exept.de> parents: 1344 diff changeset	848	inject:('X' heightOn:self)
b4bf740ec2fc fixed pref. extent Claus Gittinger <cg@exept.de> parents: 1344 diff changeset	849	into:[:max :el \| el isString ifTrue:[
b4bf740ec2fc fixed pref. extent Claus Gittinger <cg@exept.de> parents: 1344 diff changeset	850	max
b4bf740ec2fc fixed pref. extent Claus Gittinger <cg@exept.de> parents: 1344 diff changeset	851	] ifFalse:[
b4bf740ec2fc fixed pref. extent Claus Gittinger <cg@exept.de> parents: 1344 diff changeset	852	max max:(el heightOn:self)
b4bf740ec2fc fixed pref. extent Claus Gittinger <cg@exept.de> parents: 1344 diff changeset	853	]
b4bf740ec2fc fixed pref. extent Claus Gittinger <cg@exept.de> parents: 1344 diff changeset	854	].
129 a680f0b7508f intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	855	].
a680f0b7508f intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	856
302 8af5f51ce7a5 preferredExtent is sum of menu + button Claus Gittinger <cg@exept.de> parents: 285 diff changeset	857	fieldPref := field preferredExtent.
8af5f51ce7a5 preferredExtent is sum of menu + button Claus Gittinger <cg@exept.de> parents: 285 diff changeset	858	buttonPref := pullDownButton preferredExtent.
8af5f51ce7a5 preferredExtent is sum of menu + button Claus Gittinger <cg@exept.de> parents: 285 diff changeset	859
319 920ef16160ae w95 style fixes Claus Gittinger <cg@exept.de> parents: 314 diff changeset	860	w := ((fieldPref x max:menuPrefX) max:50) + buttonPref x.
920ef16160ae w95 style fixes Claus Gittinger <cg@exept.de> parents: 314 diff changeset	861	w := w + margin + margin.
683 a2593b4a3ce1 fixed preferredExtent to also look into the menus list ca parents: 605 diff changeset	862	h := (fieldPref y max:buttonPref y) max:menuPrefY.
319 920ef16160ae w95 style fixes Claus Gittinger <cg@exept.de> parents: 314 diff changeset	863	h := h + margin + margin.
920ef16160ae w95 style fixes Claus Gittinger <cg@exept.de> parents: 314 diff changeset	864	^ w @ h
129 a680f0b7508f intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	865
1348 b4bf740ec2fc fixed pref. extent Claus Gittinger <cg@exept.de> parents: 1344 diff changeset	866	"Created: / 28.2.1996 / 15:03:17 / cg"
b4bf740ec2fc fixed pref. extent Claus Gittinger <cg@exept.de> parents: 1344 diff changeset	867	"Modified: / 29.4.1999 / 11:27:54 / cg"
129 a680f0b7508f intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	868	! !
a680f0b7508f intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	869
263 865b7d99d3f5 added an example for a menu-pull-hook Claus Gittinger <cg@exept.de> parents: 247 diff changeset	870	!ComboView class methodsFor:'documentation'!
129 a680f0b7508f intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	871
a680f0b7508f intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	872	version
3825 f5fe434e1cf7 border a la vista Claus Gittinger <cg@exept.de> parents: 3824 diff changeset	873	^ '$Header: /cvs/stx/stx/libwidg2/ComboView.st,v 1.102 2009-10-24 16:01:28 cg Exp $'
3777 83c52227471d changed: #createPullDownMenuForList: Claus Gittinger <cg@exept.de> parents: 3755 diff changeset	874	!
83c52227471d changed: #createPullDownMenuForList: Claus Gittinger <cg@exept.de> parents: 3755 diff changeset	875
83c52227471d changed: #createPullDownMenuForList: Claus Gittinger <cg@exept.de> parents: 3755 diff changeset	876	version_CVS
3825 f5fe434e1cf7 border a la vista Claus Gittinger <cg@exept.de> parents: 3824 diff changeset	877	^ '$Header: /cvs/stx/stx/libwidg2/ComboView.st,v 1.102 2009-10-24 16:01:28 cg Exp $'
129 a680f0b7508f intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	878	! !

author	Claus Gittinger <cg@exept.de>
	Sat, 24 Oct 2009 18:01:28 +0200
changeset 3825	f5fe434e1cf7
parent 3824	5d7e67f50bb5
child 3836	f8a3a65f1d78
permissions	-rw-r--r--