hg/stx-libwidg2: DSVColumnView.st@c212f122c8b3 (annotated)

542 e22c45e26653 intitial checkin ca parents: diff changeset	1	"
e22c45e26653 intitial checkin ca parents: diff changeset	2	COPYRIGHT (c) 1997 by Claus Gittinger / eXept Software AG
e22c45e26653 intitial checkin ca parents: diff changeset	3	All Rights Reserved
e22c45e26653 intitial checkin ca parents: diff changeset	4
e22c45e26653 intitial checkin ca parents: diff changeset	5	This software is furnished under a license and may be used
e22c45e26653 intitial checkin ca parents: diff changeset	6	only in accordance with the terms of that license and with the
e22c45e26653 intitial checkin ca parents: diff changeset	7	inclusion of the above copyright notice. This software may not
e22c45e26653 intitial checkin ca parents: diff changeset	8	be provided or otherwise made available to, or used by, any
e22c45e26653 intitial checkin ca parents: diff changeset	9	other person. No title to or ownership of the software is
e22c45e26653 intitial checkin ca parents: diff changeset	10	hereby transferred.
e22c45e26653 intitial checkin ca parents: diff changeset	11	"
e22c45e26653 intitial checkin ca parents: diff changeset	12
e22c45e26653 intitial checkin ca parents: diff changeset	13
e22c45e26653 intitial checkin ca parents: diff changeset	14
e22c45e26653 intitial checkin ca parents: diff changeset	15
e22c45e26653 intitial checkin ca parents: diff changeset	16	View subclass:#DSVColumnView
607 a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	17	instanceVariableNames:'editValue editView multipleSelectOk selectedColIndex
1112 81f2a7f0afdc draw routines for interactors ca parents: 1111 diff changeset	18	selectedRowIndex selectRowOnNoneSelectableCell selectRowOk
81f2a7f0afdc draw routines for interactors ca parents: 1111 diff changeset	19	selectRowOnDefault rowHeight columnDescriptors viewOrigin
81f2a7f0afdc draw routines for interactors ca parents: 1111 diff changeset	20	colorMap rowFontAscent lockRowIndex rowIfAbsentBlock columnHolder
1087 8e97cbfebe12 add some comment ca parents: 1067 diff changeset	21	registererImages list fgColor canFit separatorSize
8e97cbfebe12 add some comment ca parents: 1067 diff changeset	22	catchChangeEvents beDependentOfRows bgColor hgLgFgColor
8e97cbfebe12 add some comment ca parents: 1067 diff changeset	23	hgLgBgColor actionBlock builder doubleClickActionBlock
8e97cbfebe12 add some comment ca parents: 1067 diff changeset	24	verticalSpacing horizontalSpacing rowSelectorForm
8e97cbfebe12 add some comment ca parents: 1067 diff changeset	25	buttonLightColor buttonShadowColor buttonHalfLightColor
8e97cbfebe12 add some comment ca parents: 1067 diff changeset	26	buttonHalfShadowColor checkToggleExtent checkToggleForm
1100 376515452be4 support of all styles; windows and next ca parents: 1089 diff changeset	27	checkToggleActiveImage checkTogglePassiveImage checkToggleLevel
376515452be4 support of all styles; windows and next ca parents: 1089 diff changeset	28	comboButtonExtent comboButtonForm comboButtonLevel clickPosition
376515452be4 support of all styles; windows and next ca parents: 1089 diff changeset	29	dragAccessPoint dragIsActive dropTarget dropSource columnAdaptor
376515452be4 support of all styles; windows and next ca parents: 1089 diff changeset	30	dataSetView'
542 e22c45e26653 intitial checkin ca parents: diff changeset	31	classVariableNames:'DefaultForegroundColor DefaultBackgroundColor
e22c45e26653 intitial checkin ca parents: diff changeset	32	DefaultHilightForegroundColor DefaultHilightBackgroundColor
809 0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	33	RowSelector ButtonLightColor ButtonShadowColor
1100 376515452be4 support of all styles; windows and next ca parents: 1089 diff changeset	34	CheckToggleActiveImage CheckTogglePassiveImage
809 0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	35	ButtonHalfLightColor ButtonHalfShadowColor ButtonEdgeStyle'
542 e22c45e26653 intitial checkin ca parents: diff changeset	36	poolDictionaries:''
e22c45e26653 intitial checkin ca parents: diff changeset	37	category:'Views-DataSet'
e22c45e26653 intitial checkin ca parents: diff changeset	38	!
e22c45e26653 intitial checkin ca parents: diff changeset	39
e22c45e26653 intitial checkin ca parents: diff changeset	40	!DSVColumnView class methodsFor:'documentation'!
e22c45e26653 intitial checkin ca parents: diff changeset	41
e22c45e26653 intitial checkin ca parents: diff changeset	42	copyright
e22c45e26653 intitial checkin ca parents: diff changeset	43	"
e22c45e26653 intitial checkin ca parents: diff changeset	44	COPYRIGHT (c) 1997 by Claus Gittinger / eXept Software AG
e22c45e26653 intitial checkin ca parents: diff changeset	45	All Rights Reserved
e22c45e26653 intitial checkin ca parents: diff changeset	46
e22c45e26653 intitial checkin ca parents: diff changeset	47	This software is furnished under a license and may be used
e22c45e26653 intitial checkin ca parents: diff changeset	48	only in accordance with the terms of that license and with the
e22c45e26653 intitial checkin ca parents: diff changeset	49	inclusion of the above copyright notice. This software may not
e22c45e26653 intitial checkin ca parents: diff changeset	50	be provided or otherwise made available to, or used by, any
e22c45e26653 intitial checkin ca parents: diff changeset	51	other person. No title to or ownership of the software is
e22c45e26653 intitial checkin ca parents: diff changeset	52	hereby transferred.
e22c45e26653 intitial checkin ca parents: diff changeset	53	"
e22c45e26653 intitial checkin ca parents: diff changeset	54
e22c45e26653 intitial checkin ca parents: diff changeset	55
e22c45e26653 intitial checkin ca parents: diff changeset	56
e22c45e26653 intitial checkin ca parents: diff changeset	57	!
e22c45e26653 intitial checkin ca parents: diff changeset	58
e22c45e26653 intitial checkin ca parents: diff changeset	59	documentation
e22c45e26653 intitial checkin ca parents: diff changeset	60	"
e22c45e26653 intitial checkin ca parents: diff changeset	61	implements a scrollable selection view based on rows and columns
e22c45e26653 intitial checkin ca parents: diff changeset	62
e22c45e26653 intitial checkin ca parents: diff changeset	63	[Instance variables:]
e22c45e26653 intitial checkin ca parents: diff changeset	64
1087 8e97cbfebe12 add some comment ca parents: 1067 diff changeset	65	dataSetView <DataSetView> parent view
8e97cbfebe12 add some comment ca parents: 1067 diff changeset	66
542 e22c45e26653 intitial checkin ca parents: diff changeset	67	editValue <Model> current editing model
e22c45e26653 intitial checkin ca parents: diff changeset	68	editView <View> current editing component
1087 8e97cbfebe12 add some comment ca parents: 1067 diff changeset	69
8e97cbfebe12 add some comment ca parents: 1067 diff changeset	70	multipleSelectOk <Boolean> multiple selection enabled/disabled
8e97cbfebe12 add some comment ca parents: 1067 diff changeset	71
542 e22c45e26653 intitial checkin ca parents: diff changeset	72	selectedColIndex <Integer> selected column index or 0
1087 8e97cbfebe12 add some comment ca parents: 1067 diff changeset	73	selectedRowIndex <Integer> selected row index or 0
8e97cbfebe12 add some comment ca parents: 1067 diff changeset	74
542 e22c45e26653 intitial checkin ca parents: diff changeset	75	rowHeight <Integer> maximum height of any row
1087 8e97cbfebe12 add some comment ca parents: 1067 diff changeset	76
542 e22c45e26653 intitial checkin ca parents: diff changeset	77	columnDescriptors <SequancableCollection> list of column descriptors
1087 8e97cbfebe12 add some comment ca parents: 1067 diff changeset	78
8e97cbfebe12 add some comment ca parents: 1067 diff changeset	79	viewOrigin <Point> current view origin
8e97cbfebe12 add some comment ca parents: 1067 diff changeset	80
8e97cbfebe12 add some comment ca parents: 1067 diff changeset	81	colorMap <Dictionary> store and register used colors on device
8e97cbfebe12 add some comment ca parents: 1067 diff changeset	82
8e97cbfebe12 add some comment ca parents: 1067 diff changeset	83	rowFontAscent <SmallInteger> inset of a printable text in a row
8e97cbfebe12 add some comment ca parents: 1067 diff changeset	84	including separator and font ascent.
8e97cbfebe12 add some comment ca parents: 1067 diff changeset	85
8e97cbfebe12 add some comment ca parents: 1067 diff changeset	86	lockRowIndex <SmallInteger> internal used to indicate a row which has
8e97cbfebe12 add some comment ca parents: 1067 diff changeset	87	changed its contents but no redraw should be
8e97cbfebe12 add some comment ca parents: 1067 diff changeset	88	done( at:put: ).
8e97cbfebe12 add some comment ca parents: 1067 diff changeset	89
8e97cbfebe12 add some comment ca parents: 1067 diff changeset	90	columnHolder <ValueHolder> holder which keeps the list of column descriptors.
8e97cbfebe12 add some comment ca parents: 1067 diff changeset	91
8e97cbfebe12 add some comment ca parents: 1067 diff changeset	92	registererImages <IdentityDictionary> list of images registered on the device
8e97cbfebe12 add some comment ca parents: 1067 diff changeset	93
542 e22c45e26653 intitial checkin ca parents: diff changeset	94	list <SequancableCollection> list of rows
1087 8e97cbfebe12 add some comment ca parents: 1067 diff changeset	95
8e97cbfebe12 add some comment ca parents: 1067 diff changeset	96	canFit <Boolean> boolean set to true if colums can be fit to view
8e97cbfebe12 add some comment ca parents: 1067 diff changeset	97
8e97cbfebe12 add some comment ca parents: 1067 diff changeset	98
8e97cbfebe12 add some comment ca parents: 1067 diff changeset	99	catchChangeEvents <Boolean> internal used to discard change notifications
8e97cbfebe12 add some comment ca parents: 1067 diff changeset	100
8e97cbfebe12 add some comment ca parents: 1067 diff changeset	101	beDependentOfRows <Boolean> keep rows dependent; on default is disabled.
567 01083cbb4bae checkin from browser ca parents: 563 diff changeset	102	in case of enabled a row can raise a change
01083cbb4bae checkin from browser ca parents: 563 diff changeset	103	notification whithout a parameter which
01083cbb4bae checkin from browser ca parents: 563 diff changeset	104	will force a redraw of the row or the
01083cbb4bae checkin from browser ca parents: 563 diff changeset	105	readSelector of the column which will
01083cbb4bae checkin from browser ca parents: 563 diff changeset	106	redraw the cell in the row only.
542 e22c45e26653 intitial checkin ca parents: diff changeset	107
1087 8e97cbfebe12 add some comment ca parents: 1067 diff changeset	108	fgColor <Color> foreground color
8e97cbfebe12 add some comment ca parents: 1067 diff changeset	109	bgColor <Color> background color
8e97cbfebe12 add some comment ca parents: 1067 diff changeset	110	hgLgFgColor <Color> highlight foreground color (selected)
8e97cbfebe12 add some comment ca parents: 1067 diff changeset	111	hgLgBgColor <Color> highlight background color (selected)
8e97cbfebe12 add some comment ca parents: 1067 diff changeset	112
8e97cbfebe12 add some comment ca parents: 1067 diff changeset	113	buttonLightColor <Color> LightColor ( drawing the edge of a button )
8e97cbfebe12 add some comment ca parents: 1067 diff changeset	114	buttonShadowColor <Color> ShadowColor ( drawing the edge of a button )
8e97cbfebe12 add some comment ca parents: 1067 diff changeset	115	buttonHalfLightColor <Color> HalfLightColor ( drawing the edge of a button )
8e97cbfebe12 add some comment ca parents: 1067 diff changeset	116	buttonHalfShadowColor <Color> HalfShadowColor ( drawing the edge of a button )
8e97cbfebe12 add some comment ca parents: 1067 diff changeset	117
8e97cbfebe12 add some comment ca parents: 1067 diff changeset	118	actionBlock <a OneArgBlock> action block performed on select
8e97cbfebe12 add some comment ca parents: 1067 diff changeset	119	doubleClickActionBlock <a OneArgBlock> action block performed on double click
8e97cbfebe12 add some comment ca parents: 1067 diff changeset	120	rowIfAbsentBlock <a OneArgBlock> this block is performed on an emty list entry
8e97cbfebe12 add some comment ca parents: 1067 diff changeset	121	to retrive the item from the application. The
8e97cbfebe12 add some comment ca parents: 1067 diff changeset	122	argument to the block is the index into the list.
8e97cbfebe12 add some comment ca parents: 1067 diff changeset	123	The block should return the row instance which
8e97cbfebe12 add some comment ca parents: 1067 diff changeset	124	is put to the list under the index.
8e97cbfebe12 add some comment ca parents: 1067 diff changeset	125
8e97cbfebe12 add some comment ca parents: 1067 diff changeset	126	builder <UIBuilder> builder set by application
8e97cbfebe12 add some comment ca parents: 1067 diff changeset	127
8e97cbfebe12 add some comment ca parents: 1067 diff changeset	128	verticalSpacing <SmallInteger> vertical row spacing( top & bottom )
8e97cbfebe12 add some comment ca parents: 1067 diff changeset	129	horizontalSpacing <SmallInteger> horizontal row spacing( left & right )
8e97cbfebe12 add some comment ca parents: 1067 diff changeset	130	separatorSize <SmallInteger> line width of a vertical or horizontal separator
8e97cbfebe12 add some comment ca parents: 1067 diff changeset	131
8e97cbfebe12 add some comment ca parents: 1067 diff changeset	132	rowSelectorForm <Form> form used by a row selector
8e97cbfebe12 add some comment ca parents: 1067 diff changeset	133
8e97cbfebe12 add some comment ca parents: 1067 diff changeset	134	checkToggleForm <Form> form used by a checkToggle
8e97cbfebe12 add some comment ca parents: 1067 diff changeset	135	checkToggleExtent <Point> extent of a checkToggle
8e97cbfebe12 add some comment ca parents: 1067 diff changeset	136	checkToggleLevel <SmallInteger> level used to draw a check toggle
8e97cbfebe12 add some comment ca parents: 1067 diff changeset	137
8e97cbfebe12 add some comment ca parents: 1067 diff changeset	138	comboButtonForm <Form> form used by a comboList or -Box
8e97cbfebe12 add some comment ca parents: 1067 diff changeset	139	comboButtonExtent <Point> extent of a comboList or -Box
8e97cbfebe12 add some comment ca parents: 1067 diff changeset	140	comboButtonLevel <SmallInteger> level used to draw a comboList or -Box
8e97cbfebe12 add some comment ca parents: 1067 diff changeset	141
8e97cbfebe12 add some comment ca parents: 1067 diff changeset	142	clickPosition <Point> click position of the mouse
8e97cbfebe12 add some comment ca parents: 1067 diff changeset	143
8e97cbfebe12 add some comment ca parents: 1067 diff changeset	144	dragAccessPoint <Point> point where the drag operation starts
8e97cbfebe12 add some comment ca parents: 1067 diff changeset	145	dragIsActive <Boolean> true if a drag operation is active
8e97cbfebe12 add some comment ca parents: 1067 diff changeset	146	dropTarget <DropTarget> drag & drop target
8e97cbfebe12 add some comment ca parents: 1067 diff changeset	147	dropSource <DropSource> drag & drop source
8e97cbfebe12 add some comment ca parents: 1067 diff changeset	148
542 e22c45e26653 intitial checkin ca parents: diff changeset	149	[author:]
e22c45e26653 intitial checkin ca parents: diff changeset	150	Claus Atzkern
e22c45e26653 intitial checkin ca parents: diff changeset	151
e22c45e26653 intitial checkin ca parents: diff changeset	152	[see also:]
e22c45e26653 intitial checkin ca parents: diff changeset	153	DataSetColumnSpec
e22c45e26653 intitial checkin ca parents: diff changeset	154	DataSetColumn
e22c45e26653 intitial checkin ca parents: diff changeset	155	DataSetView
e22c45e26653 intitial checkin ca parents: diff changeset	156	"
e22c45e26653 intitial checkin ca parents: diff changeset	157
e22c45e26653 intitial checkin ca parents: diff changeset	158	! !
e22c45e26653 intitial checkin ca parents: diff changeset	159
647 ee98a1976972 support of different styles ca parents: 645 diff changeset	160	!DSVColumnView class methodsFor:'accessing forms'!
ee98a1976972 support of different styles ca parents: 645 diff changeset	161
ee98a1976972 support of different styles ca parents: 645 diff changeset	162	rowSelector
989 70fd16dd0085 rowSelector changed tz parents: 988 diff changeset	163	"This resource specification was automatically generated
70fd16dd0085 rowSelector changed tz parents: 988 diff changeset	164	by the ImageEditor of ST/X."
70fd16dd0085 rowSelector changed tz parents: 988 diff changeset	165
70fd16dd0085 rowSelector changed tz parents: 988 diff changeset	166	"Do not manually edit this!! If it is corrupted,
70fd16dd0085 rowSelector changed tz parents: 988 diff changeset	167	the ImageEditor may not be able to read the specification."
70fd16dd0085 rowSelector changed tz parents: 988 diff changeset	168
70fd16dd0085 rowSelector changed tz parents: 988 diff changeset	169	"
70fd16dd0085 rowSelector changed tz parents: 988 diff changeset	170	self rowSelector inspect
70fd16dd0085 rowSelector changed tz parents: 988 diff changeset	171	ImageEditor openOnClass:self andSelector:#rowSelector
70fd16dd0085 rowSelector changed tz parents: 988 diff changeset	172	"
70fd16dd0085 rowSelector changed tz parents: 988 diff changeset	173
70fd16dd0085 rowSelector changed tz parents: 988 diff changeset	174	<resource: #image>
70fd16dd0085 rowSelector changed tz parents: 988 diff changeset	175
70fd16dd0085 rowSelector changed tz parents: 988 diff changeset	176	^Icon
70fd16dd0085 rowSelector changed tz parents: 988 diff changeset	177	constantNamed:#'DSVColumnView rowSelector'
1129 3b9e0fd31971 rowSelector icon restyled tz parents: 1123 diff changeset	178	ifAbsentPut:[(Depth2Image new) width: 11; height: 11; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@A@@@AP@@A4@EW=@G?? O?:@@C(@@B @@B@@@@@@') ; colorMapFromArray:#[0 0 0 255 255 255 127 127 127 170 170 170]; mask:((Depth1Image new) width: 11; height: 11; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'C@@N@@<@?8C?0O? ?<C? @<@C @L@@@a') ; yourself); yourself]
3b9e0fd31971 rowSelector icon restyled tz parents: 1123 diff changeset	179
3b9e0fd31971 rowSelector icon restyled tz parents: 1123 diff changeset	180
3b9e0fd31971 rowSelector icon restyled tz parents: 1123 diff changeset	181	! !
647 ee98a1976972 support of different styles ca parents: 645 diff changeset	182
ee98a1976972 support of different styles ca parents: 645 diff changeset	183	!DSVColumnView class methodsFor:'defaults'!
607 a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	184
563 826871ce82c9 bug fix: ca parents: 561 diff changeset	185	horizontalSpacing
1087 8e97cbfebe12 add some comment ca parents: 1067 diff changeset	186	"returns the default horizontal space between rows
8e97cbfebe12 add some comment ca parents: 1067 diff changeset	187	"
563 826871ce82c9 bug fix: ca parents: 561 diff changeset	188	^ 4
826871ce82c9 bug fix: ca parents: 561 diff changeset	189
826871ce82c9 bug fix: ca parents: 561 diff changeset	190	!
826871ce82c9 bug fix: ca parents: 561 diff changeset	191
542 e22c45e26653 intitial checkin ca parents: diff changeset	192	updateStyleCache
e22c45e26653 intitial checkin ca parents: diff changeset	193	"extract values from the styleSheet and cache them in class variables
e22c45e26653 intitial checkin ca parents: diff changeset	194	"
582 222fc7c63af0 new resource naming Claus Gittinger <cg@exept.de> parents: 567 diff changeset	195	<resource: #style (#textForegroundColor #'scrollableView.backgroundColor'
222fc7c63af0 new resource naming Claus Gittinger <cg@exept.de> parents: 567 diff changeset	196	#'selection.hilightForegroundColor'
222fc7c63af0 new resource naming Claus Gittinger <cg@exept.de> parents: 567 diff changeset	197	#'selection.hilightBackgroundColor' )>
542 e22c45e26653 intitial checkin ca parents: diff changeset	198
e22c45e26653 intitial checkin ca parents: diff changeset	199	DefaultForegroundColor := StyleSheet colorAt:'textForegroundColor' default:(Color black).
809 0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	200	DefaultBackgroundColor := StyleSheet colorAt:'scrollableView.backgroundColor' default:DefaultViewBackgroundColor.
542 e22c45e26653 intitial checkin ca parents: diff changeset	201
988 d077faaade27 better hilight colors tz parents: 896 diff changeset	202	DefaultHilightForegroundColor := StyleSheet colorAt:'selection.hilightForegroundColor' default:DefaultBackgroundColor.
d077faaade27 better hilight colors tz parents: 896 diff changeset	203	DefaultHilightBackgroundColor := StyleSheet colorAt:'selection.hilightBackgroundColor' default:DefaultForegroundColor.
607 a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	204
647 ee98a1976972 support of different styles ca parents: 645 diff changeset	205	DefaultHilightForegroundColor = DefaultHilightBackgroundColor ifTrue:[
988 d077faaade27 better hilight colors tz parents: 896 diff changeset	206	DefaultHilightBackgroundColor := Color black
647 ee98a1976972 support of different styles ca parents: 645 diff changeset	207	].
1100 376515452be4 support of all styles; windows and next ca parents: 1089 diff changeset	208	ButtonLightColor := StyleSheet colorAt:'button.lightColor'.
376515452be4 support of all styles; windows and next ca parents: 1089 diff changeset	209	ButtonShadowColor := StyleSheet colorAt:'button.shadowColor'.
376515452be4 support of all styles; windows and next ca parents: 1089 diff changeset	210	ButtonHalfLightColor := StyleSheet colorAt:'button.halfLightColor'.
376515452be4 support of all styles; windows and next ca parents: 1089 diff changeset	211	ButtonHalfShadowColor := StyleSheet colorAt:'button.halfShadowColor'.
376515452be4 support of all styles; windows and next ca parents: 1089 diff changeset	212	ButtonEdgeStyle := StyleSheet at:'button.edgeStyle'.
376515452be4 support of all styles; windows and next ca parents: 1089 diff changeset	213	CheckToggleActiveImage := StyleSheet at:'checkToggle.activeImage'.
376515452be4 support of all styles; windows and next ca parents: 1089 diff changeset	214
376515452be4 support of all styles; windows and next ca parents: 1089 diff changeset	215	CheckToggleActiveImage isNil ifTrue:[
376515452be4 support of all styles; windows and next ca parents: 1089 diff changeset	216	CheckTogglePassiveImage := nil
376515452be4 support of all styles; windows and next ca parents: 1089 diff changeset	217	] ifFalse:[
376515452be4 support of all styles; windows and next ca parents: 1089 diff changeset	218	CheckTogglePassiveImage := StyleSheet at:'checkToggle.passiveImage'.
376515452be4 support of all styles; windows and next ca parents: 1089 diff changeset	219
376515452be4 support of all styles; windows and next ca parents: 1089 diff changeset	220	CheckTogglePassiveImage isNil ifTrue:[
376515452be4 support of all styles; windows and next ca parents: 1089 diff changeset	221	CheckToggleActiveImage := nil
376515452be4 support of all styles; windows and next ca parents: 1089 diff changeset	222	]
376515452be4 support of all styles; windows and next ca parents: 1089 diff changeset	223	].
647 ee98a1976972 support of different styles ca parents: 645 diff changeset	224
542 e22c45e26653 intitial checkin ca parents: diff changeset	225	"
e22c45e26653 intitial checkin ca parents: diff changeset	226	self updateStyleCache.
e22c45e26653 intitial checkin ca parents: diff changeset	227	"
e22c45e26653 intitial checkin ca parents: diff changeset	228
582 222fc7c63af0 new resource naming Claus Gittinger <cg@exept.de> parents: 567 diff changeset	229	"Modified: / 26.10.1997 / 17:09:07 / cg"
563 826871ce82c9 bug fix: ca parents: 561 diff changeset	230	!
826871ce82c9 bug fix: ca parents: 561 diff changeset	231
826871ce82c9 bug fix: ca parents: 561 diff changeset	232	verticalSpacing
1087 8e97cbfebe12 add some comment ca parents: 1067 diff changeset	233	"returns the default vertical space between rows
8e97cbfebe12 add some comment ca parents: 1067 diff changeset	234	"
563 826871ce82c9 bug fix: ca parents: 561 diff changeset	235	^ 2
826871ce82c9 bug fix: ca parents: 561 diff changeset	236
542 e22c45e26653 intitial checkin ca parents: diff changeset	237	! !
e22c45e26653 intitial checkin ca parents: diff changeset	238
809 0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	239	!DSVColumnView class methodsFor:'resources'!
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	240
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	241	dragIconMulti
988 d077faaade27 better hilight colors tz parents: 896 diff changeset	242	"This resource specification was automatically generated
d077faaade27 better hilight colors tz parents: 896 diff changeset	243	by the ImageEditor of ST/X."
d077faaade27 better hilight colors tz parents: 896 diff changeset	244
d077faaade27 better hilight colors tz parents: 896 diff changeset	245	"Do not manually edit this!! If it is corrupted,
d077faaade27 better hilight colors tz parents: 896 diff changeset	246	the ImageEditor may not be able to read the specification."
d077faaade27 better hilight colors tz parents: 896 diff changeset	247
809 0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	248	"
988 d077faaade27 better hilight colors tz parents: 896 diff changeset	249	self dragIconMulti inspect
d077faaade27 better hilight colors tz parents: 896 diff changeset	250	ImageEditor openOnClass:self andSelector:#dragIconMulti
809 0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	251	"
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	252
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	253	<resource: #image>
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	254
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	255	^Icon
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	256	constantNamed:#'DSVColumnView dragIconMulti'
988 d077faaade27 better hilight colors tz parents: 896 diff changeset	257	ifAbsentPut:[(Depth1Image new) width: 32; height: 32; photometric:(#palette); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@O?<0@C??L@@<@@@@O@@@@C3??L@<??3@OO?<<C3??O@<??0@OO?<@C3???0<???<OO???C3???0<???<OO???@C???0@???<@O???@C???0@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@b') ; colorMapFromArray:#[0 0 0 255 255 255]; mask:((ImageMask new) width: 32; height: 32; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@@@@@@@@O??<@C???@@???<@O???@C????@????0O????C????0?????O????3?????????????????????????????????????????????????????@????0O???<C????@????0@@@@@@@@@@@@@@@@@@@@@b') ; yourself); yourself]!
809 0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	258
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	259	dragIconSingle
988 d077faaade27 better hilight colors tz parents: 896 diff changeset	260	"This resource specification was automatically generated
d077faaade27 better hilight colors tz parents: 896 diff changeset	261	by the ImageEditor of ST/X."
d077faaade27 better hilight colors tz parents: 896 diff changeset	262
d077faaade27 better hilight colors tz parents: 896 diff changeset	263	"Do not manually edit this!! If it is corrupted,
d077faaade27 better hilight colors tz parents: 896 diff changeset	264	the ImageEditor may not be able to read the specification."
d077faaade27 better hilight colors tz parents: 896 diff changeset	265
809 0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	266	"
988 d077faaade27 better hilight colors tz parents: 896 diff changeset	267	self dragIconSingle inspect
d077faaade27 better hilight colors tz parents: 896 diff changeset	268	ImageEditor openOnClass:self andSelector:#dragIconSingle
809 0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	269	"
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	270
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	271	<resource: #image>
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	272
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	273	^Icon
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	274	constantNamed:#'DSVColumnView dragIconSingle'
988 d077faaade27 better hilight colors tz parents: 896 diff changeset	275	ifAbsentPut:[(Depth1Image new) width: 32; height: 32; photometric:(#palette); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@O?<0@C??L@@??30@O?<<@C??@@@??0@@O???@C???0@???<@O???@C???0@???<@O???@C???0@???<@O???@C???0@???<@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@b') ; colorMapFromArray:#[0 0 0 255 255 255]; mask:((ImageMask new) width: 32; height: 32; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@@@@@@@@O??<@C???@@???<@O???@C???<@????@O???<C????@????0O???<C????@????0O???<C????@????0O???<C????@????0O???<C????@????0O???<@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@b') ; yourself); yourself]! !
809 0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	276
886 57bd1eddba23 catch empty line in redraw ca parents: 874 diff changeset	277	!DSVColumnView methodsFor:'accessing'!
57bd1eddba23 catch empty line in redraw ca parents: 874 diff changeset	278
1042 b2b27ac9a550 change rowSelector icon; ca parents: 1034 diff changeset	279	builder
1087 8e97cbfebe12 add some comment ca parents: 1067 diff changeset	280	"get the builder (UIBuilder or nil)
8e97cbfebe12 add some comment ca parents: 1067 diff changeset	281	"
1042 b2b27ac9a550 change rowSelector icon; ca parents: 1034 diff changeset	282	^ builder
b2b27ac9a550 change rowSelector icon; ca parents: 1034 diff changeset	283	!
b2b27ac9a550 change rowSelector icon; ca parents: 1034 diff changeset	284
b2b27ac9a550 change rowSelector icon; ca parents: 1034 diff changeset	285	builder:aBuilder
1087 8e97cbfebe12 add some comment ca parents: 1067 diff changeset	286	"set the builder (UIBuilder or nil)
8e97cbfebe12 add some comment ca parents: 1067 diff changeset	287	"
1042 b2b27ac9a550 change rowSelector icon; ca parents: 1034 diff changeset	288	builder := aBuilder
b2b27ac9a550 change rowSelector icon; ca parents: 1034 diff changeset	289	!
b2b27ac9a550 change rowSelector icon; ca parents: 1034 diff changeset	290
886 57bd1eddba23 catch empty line in redraw ca parents: 874 diff changeset	291	columnView
1087 8e97cbfebe12 add some comment ca parents: 1067 diff changeset	292	"returns self
8e97cbfebe12 add some comment ca parents: 1067 diff changeset	293	"
886 57bd1eddba23 catch empty line in redraw ca parents: 874 diff changeset	294	^ self
1067 c66188014600 keep a reference to my dataSetView. Claus Gittinger <cg@exept.de> parents: 1042 diff changeset	295	!
c66188014600 keep a reference to my dataSetView. Claus Gittinger <cg@exept.de> parents: 1042 diff changeset	296
c66188014600 keep a reference to my dataSetView. Claus Gittinger <cg@exept.de> parents: 1042 diff changeset	297	dataSetView
c66188014600 keep a reference to my dataSetView. Claus Gittinger <cg@exept.de> parents: 1042 diff changeset	298	"return the value of the instance variable 'dataSetView' (automatically generated)"
c66188014600 keep a reference to my dataSetView. Claus Gittinger <cg@exept.de> parents: 1042 diff changeset	299
c66188014600 keep a reference to my dataSetView. Claus Gittinger <cg@exept.de> parents: 1042 diff changeset	300	^ dataSetView
c66188014600 keep a reference to my dataSetView. Claus Gittinger <cg@exept.de> parents: 1042 diff changeset	301
c66188014600 keep a reference to my dataSetView. Claus Gittinger <cg@exept.de> parents: 1042 diff changeset	302	"Created: / 7.8.1998 / 22:13:43 / cg"
c66188014600 keep a reference to my dataSetView. Claus Gittinger <cg@exept.de> parents: 1042 diff changeset	303	!
c66188014600 keep a reference to my dataSetView. Claus Gittinger <cg@exept.de> parents: 1042 diff changeset	304
c66188014600 keep a reference to my dataSetView. Claus Gittinger <cg@exept.de> parents: 1042 diff changeset	305	dataSetView:something
c66188014600 keep a reference to my dataSetView. Claus Gittinger <cg@exept.de> parents: 1042 diff changeset	306	"set the value of the instance variable 'dataSetView' (automatically generated)"
c66188014600 keep a reference to my dataSetView. Claus Gittinger <cg@exept.de> parents: 1042 diff changeset	307
c66188014600 keep a reference to my dataSetView. Claus Gittinger <cg@exept.de> parents: 1042 diff changeset	308	dataSetView := something.
c66188014600 keep a reference to my dataSetView. Claus Gittinger <cg@exept.de> parents: 1042 diff changeset	309
c66188014600 keep a reference to my dataSetView. Claus Gittinger <cg@exept.de> parents: 1042 diff changeset	310	"Created: / 7.8.1998 / 22:13:43 / cg"
1087 8e97cbfebe12 add some comment ca parents: 1067 diff changeset	311	!
8e97cbfebe12 add some comment ca parents: 1067 diff changeset	312
8e97cbfebe12 add some comment ca parents: 1067 diff changeset	313	rowFontAscent
8e97cbfebe12 add some comment ca parents: 1067 diff changeset	314	"returns the inset of a printable text in a row
8e97cbfebe12 add some comment ca parents: 1067 diff changeset	315	"
8e97cbfebe12 add some comment ca parents: 1067 diff changeset	316	^ rowFontAscent
886 57bd1eddba23 catch empty line in redraw ca parents: 874 diff changeset	317	! !
57bd1eddba23 catch empty line in redraw ca parents: 874 diff changeset	318
809 0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	319	!DSVColumnView methodsFor:'accessing actions'!
542 e22c45e26653 intitial checkin ca parents: diff changeset	320
e22c45e26653 intitial checkin ca parents: diff changeset	321	action:aOneArgAction
607 a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	322	"set the action block to be performed on select
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	323	"
542 e22c45e26653 intitial checkin ca parents: diff changeset	324	actionBlock := aOneArgAction
e22c45e26653 intitial checkin ca parents: diff changeset	325
e22c45e26653 intitial checkin ca parents: diff changeset	326
e22c45e26653 intitial checkin ca parents: diff changeset	327	!
e22c45e26653 intitial checkin ca parents: diff changeset	328
809 0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	329	doubleClickAction:aOneArgAction
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	330	"set the action block to be performed on doubleclick
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	331	"
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	332	doubleClickActionBlock := aOneArgAction
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	333
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	334
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	335	!
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	336
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	337	rowIfAbsent:aOneArgAction
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	338	"set the action block to be performed on each 'nil' entry into the
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	339	list. The argument to the block is the index into the list. The
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	340	block returns the row which is put to the list
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	341	"
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	342	rowIfAbsentBlock := aOneArgAction
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	343
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	344
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	345	! !
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	346
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	347	!DSVColumnView methodsFor:'accessing behavior'!
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	348
542 e22c45e26653 intitial checkin ca parents: diff changeset	349	beDependentOfRows
e22c45e26653 intitial checkin ca parents: diff changeset	350	"make myself dependent of any row; in this case any change notification
e22c45e26653 intitial checkin ca parents: diff changeset	351	raised by a row is catched and the cell identified by the 'readSelector'
e22c45e26653 intitial checkin ca parents: diff changeset	352	is redrawn. In case of a nil readSelector, the whole raw is redrawn.
e22c45e26653 intitial checkin ca parents: diff changeset	353	-> row changed:'what'
e22c45e26653 intitial checkin ca parents: diff changeset	354	On default the attribute is set to true (enabled).
e22c45e26653 intitial checkin ca parents: diff changeset	355	"
e22c45e26653 intitial checkin ca parents: diff changeset	356	^ beDependentOfRows
e22c45e26653 intitial checkin ca parents: diff changeset	357	!
e22c45e26653 intitial checkin ca parents: diff changeset	358
e22c45e26653 intitial checkin ca parents: diff changeset	359	beDependentOfRows:aBool
e22c45e26653 intitial checkin ca parents: diff changeset	360	"make myself dependent of any row; in this case any change notification
e22c45e26653 intitial checkin ca parents: diff changeset	361	raised by a row is catched and the cell identified by the 'readSelector'
e22c45e26653 intitial checkin ca parents: diff changeset	362	is redrawn. In case of a nil readSelector, the whole raw is redrawn.
e22c45e26653 intitial checkin ca parents: diff changeset	363	-> row changed:'what'
e22c45e26653 intitial checkin ca parents: diff changeset	364	On default the attribute is set to true (enabled).
e22c45e26653 intitial checkin ca parents: diff changeset	365	"
e22c45e26653 intitial checkin ca parents: diff changeset	366	aBool ~~ beDependentOfRows ifTrue:[
618 6a79bf9b4cd3 support list with undefined rows ca parents: 612 diff changeset	367	beDependentOfRows := aBool.
6a79bf9b4cd3 support list with undefined rows ca parents: 612 diff changeset	368
6a79bf9b4cd3 support list with undefined rows ca parents: 612 diff changeset	369	self size ~~ 0 ifTrue:[
6a79bf9b4cd3 support list with undefined rows ca parents: 612 diff changeset	370	list do:[:aRow\| aRow notNil ifTrue:[
6a79bf9b4cd3 support list with undefined rows ca parents: 612 diff changeset	371	beDependentOfRows ifTrue:[aRow addDependent:self]
6a79bf9b4cd3 support list with undefined rows ca parents: 612 diff changeset	372	ifFalse:[aRow removeDependent:self]
6a79bf9b4cd3 support list with undefined rows ca parents: 612 diff changeset	373	]
6a79bf9b4cd3 support list with undefined rows ca parents: 612 diff changeset	374	]
542 e22c45e26653 intitial checkin ca parents: diff changeset	375	]
618 6a79bf9b4cd3 support list with undefined rows ca parents: 612 diff changeset	376	]
607 a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	377	!
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	378
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	379	multipleSelectOk
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	380	"allow/disallow multiple row selections; the default is false
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	381	"
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	382	^ multipleSelectOk
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	383	!
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	384
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	385	multipleSelectOk:aState
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	386	"allow/disallow multiple row selections; the default is false
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	387	"
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	388	aState == multipleSelectOk ifFalse:[
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	389	multipleSelectOk := aState.
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	390	self deselect
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	391	]
1112 81f2a7f0afdc draw routines for interactors ca parents: 1111 diff changeset	392	!
81f2a7f0afdc draw routines for interactors ca parents: 1111 diff changeset	393
81f2a7f0afdc draw routines for interactors ca parents: 1111 diff changeset	394	selectRowOnDefault
81f2a7f0afdc draw routines for interactors ca parents: 1111 diff changeset	395	"in case of selecting a none selectable cell, the row is selected
81f2a7f0afdc draw routines for interactors ca parents: 1111 diff changeset	396	"
81f2a7f0afdc draw routines for interactors ca parents: 1111 diff changeset	397	^ selectRowOnDefault
81f2a7f0afdc draw routines for interactors ca parents: 1111 diff changeset	398	!
81f2a7f0afdc draw routines for interactors ca parents: 1111 diff changeset	399
81f2a7f0afdc draw routines for interactors ca parents: 1111 diff changeset	400	selectRowOnDefault:aBool
81f2a7f0afdc draw routines for interactors ca parents: 1111 diff changeset	401	"in case of selecting a none selectable cell, the row is selected
81f2a7f0afdc draw routines for interactors ca parents: 1111 diff changeset	402	"
81f2a7f0afdc draw routines for interactors ca parents: 1111 diff changeset	403	selectRowOnDefault := aBool
542 e22c45e26653 intitial checkin ca parents: diff changeset	404	! !
e22c45e26653 intitial checkin ca parents: diff changeset	405
824 d2e60c8ac775 support of Drag & Drop ca parents: 809 diff changeset	406	!DSVColumnView methodsFor:'accessing colors'!
d2e60c8ac775 support of Drag & Drop ca parents: 809 diff changeset	407
d2e60c8ac775 support of Drag & Drop ca parents: 809 diff changeset	408	backgroundColor
d2e60c8ac775 support of Drag & Drop ca parents: 809 diff changeset	409	"get the background color of the rows
d2e60c8ac775 support of Drag & Drop ca parents: 809 diff changeset	410	"
d2e60c8ac775 support of Drag & Drop ca parents: 809 diff changeset	411	^ bgColor
d2e60c8ac775 support of Drag & Drop ca parents: 809 diff changeset	412
d2e60c8ac775 support of Drag & Drop ca parents: 809 diff changeset	413
d2e60c8ac775 support of Drag & Drop ca parents: 809 diff changeset	414	!
d2e60c8ac775 support of Drag & Drop ca parents: 809 diff changeset	415
d2e60c8ac775 support of Drag & Drop ca parents: 809 diff changeset	416	backgroundColor:aColor
d2e60c8ac775 support of Drag & Drop ca parents: 809 diff changeset	417	"set the background color of the rows
d2e60c8ac775 support of Drag & Drop ca parents: 809 diff changeset	418	"
d2e60c8ac775 support of Drag & Drop ca parents: 809 diff changeset	419	bgColor ~~ aColor ifTrue:[
d2e60c8ac775 support of Drag & Drop ca parents: 809 diff changeset	420	super viewBackground:bgColor.
d2e60c8ac775 support of Drag & Drop ca parents: 809 diff changeset	421
d2e60c8ac775 support of Drag & Drop ca parents: 809 diff changeset	422	self realized ifTrue:[
d2e60c8ac775 support of Drag & Drop ca parents: 809 diff changeset	423	bgColor := aColor on:device.
d2e60c8ac775 support of Drag & Drop ca parents: 809 diff changeset	424	self invalidate
d2e60c8ac775 support of Drag & Drop ca parents: 809 diff changeset	425	] ifFalse:[
d2e60c8ac775 support of Drag & Drop ca parents: 809 diff changeset	426	bgColor := aColor
d2e60c8ac775 support of Drag & Drop ca parents: 809 diff changeset	427	]
d2e60c8ac775 support of Drag & Drop ca parents: 809 diff changeset	428	]
d2e60c8ac775 support of Drag & Drop ca parents: 809 diff changeset	429	!
d2e60c8ac775 support of Drag & Drop ca parents: 809 diff changeset	430
d2e60c8ac775 support of Drag & Drop ca parents: 809 diff changeset	431	foregroundColor
d2e60c8ac775 support of Drag & Drop ca parents: 809 diff changeset	432	"return the foreground color of the rows
d2e60c8ac775 support of Drag & Drop ca parents: 809 diff changeset	433	"
d2e60c8ac775 support of Drag & Drop ca parents: 809 diff changeset	434	^ fgColor
d2e60c8ac775 support of Drag & Drop ca parents: 809 diff changeset	435
d2e60c8ac775 support of Drag & Drop ca parents: 809 diff changeset	436	!
d2e60c8ac775 support of Drag & Drop ca parents: 809 diff changeset	437
d2e60c8ac775 support of Drag & Drop ca parents: 809 diff changeset	438	foregroundColor:aColor
d2e60c8ac775 support of Drag & Drop ca parents: 809 diff changeset	439	"set the foreground color of the rows
d2e60c8ac775 support of Drag & Drop ca parents: 809 diff changeset	440	"
d2e60c8ac775 support of Drag & Drop ca parents: 809 diff changeset	441	fgColor ~~ aColor ifTrue:[
d2e60c8ac775 support of Drag & Drop ca parents: 809 diff changeset	442	self realized ifTrue:[
d2e60c8ac775 support of Drag & Drop ca parents: 809 diff changeset	443	fgColor := aColor on:device.
d2e60c8ac775 support of Drag & Drop ca parents: 809 diff changeset	444	self invalidate
d2e60c8ac775 support of Drag & Drop ca parents: 809 diff changeset	445	] ifFalse:[
d2e60c8ac775 support of Drag & Drop ca parents: 809 diff changeset	446	fgColor := aColor
d2e60c8ac775 support of Drag & Drop ca parents: 809 diff changeset	447	]
d2e60c8ac775 support of Drag & Drop ca parents: 809 diff changeset	448	]
d2e60c8ac775 support of Drag & Drop ca parents: 809 diff changeset	449
d2e60c8ac775 support of Drag & Drop ca parents: 809 diff changeset	450	!
d2e60c8ac775 support of Drag & Drop ca parents: 809 diff changeset	451
d2e60c8ac775 support of Drag & Drop ca parents: 809 diff changeset	452	hgLgBgColor
d2e60c8ac775 support of Drag & Drop ca parents: 809 diff changeset	453	"returns the background color of a selected row
d2e60c8ac775 support of Drag & Drop ca parents: 809 diff changeset	454	"
d2e60c8ac775 support of Drag & Drop ca parents: 809 diff changeset	455	^ hgLgBgColor
d2e60c8ac775 support of Drag & Drop ca parents: 809 diff changeset	456	!
d2e60c8ac775 support of Drag & Drop ca parents: 809 diff changeset	457
d2e60c8ac775 support of Drag & Drop ca parents: 809 diff changeset	458	hgLgFgColor
d2e60c8ac775 support of Drag & Drop ca parents: 809 diff changeset	459	"returns the foreground color of a selected row
d2e60c8ac775 support of Drag & Drop ca parents: 809 diff changeset	460	"
d2e60c8ac775 support of Drag & Drop ca parents: 809 diff changeset	461	^ hgLgFgColor
d2e60c8ac775 support of Drag & Drop ca parents: 809 diff changeset	462	!
d2e60c8ac775 support of Drag & Drop ca parents: 809 diff changeset	463
d2e60c8ac775 support of Drag & Drop ca parents: 809 diff changeset	464	separatorDarkColor
d2e60c8ac775 support of Drag & Drop ca parents: 809 diff changeset	465	"returns the dark color used for drawing a shadowed separator (3D)
d2e60c8ac775 support of Drag & Drop ca parents: 809 diff changeset	466	"
d2e60c8ac775 support of Drag & Drop ca parents: 809 diff changeset	467	^ shadowColor
d2e60c8ac775 support of Drag & Drop ca parents: 809 diff changeset	468
d2e60c8ac775 support of Drag & Drop ca parents: 809 diff changeset	469
d2e60c8ac775 support of Drag & Drop ca parents: 809 diff changeset	470	!
d2e60c8ac775 support of Drag & Drop ca parents: 809 diff changeset	471
d2e60c8ac775 support of Drag & Drop ca parents: 809 diff changeset	472	separatorLightColor
d2e60c8ac775 support of Drag & Drop ca parents: 809 diff changeset	473	"returns the light color used for drawing a shadowed separator (3D)
d2e60c8ac775 support of Drag & Drop ca parents: 809 diff changeset	474	"
d2e60c8ac775 support of Drag & Drop ca parents: 809 diff changeset	475	^ lightColor
d2e60c8ac775 support of Drag & Drop ca parents: 809 diff changeset	476
d2e60c8ac775 support of Drag & Drop ca parents: 809 diff changeset	477
d2e60c8ac775 support of Drag & Drop ca parents: 809 diff changeset	478	! !
d2e60c8ac775 support of Drag & Drop ca parents: 809 diff changeset	479
542 e22c45e26653 intitial checkin ca parents: diff changeset	480	!DSVColumnView methodsFor:'accessing columns'!
e22c45e26653 intitial checkin ca parents: diff changeset	481
e22c45e26653 intitial checkin ca parents: diff changeset	482	columnAt:anIndex
607 a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	483	"returns the column at an index
542 e22c45e26653 intitial checkin ca parents: diff changeset	484	"
1112 81f2a7f0afdc draw routines for interactors ca parents: 1111 diff changeset	485	^ columnDescriptors at:anIndex ifAbsent:nil
542 e22c45e26653 intitial checkin ca parents: diff changeset	486	!
e22c45e26653 intitial checkin ca parents: diff changeset	487
886 57bd1eddba23 catch empty line in redraw ca parents: 874 diff changeset	488	columnDescriptors
57bd1eddba23 catch empty line in redraw ca parents: 874 diff changeset	489	"returns list of column descriptors
57bd1eddba23 catch empty line in redraw ca parents: 874 diff changeset	490	"
57bd1eddba23 catch empty line in redraw ca parents: 874 diff changeset	491	^ columnDescriptors collect:[:aCol\| aCol description ]
57bd1eddba23 catch empty line in redraw ca parents: 874 diff changeset	492	!
57bd1eddba23 catch empty line in redraw ca parents: 874 diff changeset	493
57bd1eddba23 catch empty line in redraw ca parents: 874 diff changeset	494	columnDescriptors:aColumnDescriptionList
542 e22c45e26653 intitial checkin ca parents: diff changeset	495	"set the columnDescriptors
e22c45e26653 intitial checkin ca parents: diff changeset	496	"
1149 c212f122c8b3 allow collections of string and icons for a cell label Claus Gittinger <cg@exept.de> parents: 1136 diff changeset	497	\|id sz label labelView\|
612 af7786327bd4 add columnHolder ca parents: 610 diff changeset	498
886 57bd1eddba23 catch empty line in redraw ca parents: 874 diff changeset	499	self deselect.
57bd1eddba23 catch empty line in redraw ca parents: 874 diff changeset	500
57bd1eddba23 catch empty line in redraw ca parents: 874 diff changeset	501	(sz := aColumnDescriptionList size) ~~ 0 ifTrue:[
607 a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	502	id := 0.
1149 c212f122c8b3 allow collections of string and icons for a cell label Claus Gittinger <cg@exept.de> parents: 1136 diff changeset	503	labelView := dataSetView labelView.
607 a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	504
886 57bd1eddba23 catch empty line in redraw ca parents: 874 diff changeset	505	columnDescriptors := aColumnDescriptionList collect:[:aCol\|\|column\|
57bd1eddba23 catch empty line in redraw ca parents: 874 diff changeset	506	(column := aCol) isSequenceable ifTrue:[
57bd1eddba23 catch empty line in redraw ca parents: 874 diff changeset	507	column := DataSetColumnSpec new fromLiteralArrayEncoding:aCol
57bd1eddba23 catch empty line in redraw ca parents: 874 diff changeset	508	].
1149 c212f122c8b3 allow collections of string and icons for a cell label Claus Gittinger <cg@exept.de> parents: 1136 diff changeset	509	id := id + 1.
c212f122c8b3 allow collections of string and icons for a cell label Claus Gittinger <cg@exept.de> parents: 1136 diff changeset	510	label := DataSetLabel columnDescription:column
c212f122c8b3 allow collections of string and icons for a cell label Claus Gittinger <cg@exept.de> parents: 1136 diff changeset	511	builder:builder
c212f122c8b3 allow collections of string and icons for a cell label Claus Gittinger <cg@exept.de> parents: 1136 diff changeset	512	on:labelView.
c212f122c8b3 allow collections of string and icons for a cell label Claus Gittinger <cg@exept.de> parents: 1136 diff changeset	513
c212f122c8b3 allow collections of string and icons for a cell label Claus Gittinger <cg@exept.de> parents: 1136 diff changeset	514	DataSetColumn new on:self description:column
c212f122c8b3 allow collections of string and icons for a cell label Claus Gittinger <cg@exept.de> parents: 1136 diff changeset	515	columnNumber:id
c212f122c8b3 allow collections of string and icons for a cell label Claus Gittinger <cg@exept.de> parents: 1136 diff changeset	516	label:label.
542 e22c45e26653 intitial checkin ca parents: diff changeset	517	]
e22c45e26653 intitial checkin ca parents: diff changeset	518	] ifFalse:[
e22c45e26653 intitial checkin ca parents: diff changeset	519	columnDescriptors := #()
e22c45e26653 intitial checkin ca parents: diff changeset	520	].
886 57bd1eddba23 catch empty line in redraw ca parents: 874 diff changeset	521	catchChangeEvents := true.
542 e22c45e26653 intitial checkin ca parents: diff changeset	522	canFit := (columnDescriptors findFirst:[:aCol\|aCol canResize]) ~~ 0.
e22c45e26653 intitial checkin ca parents: diff changeset	523	preferredExtent := nil.
e22c45e26653 intitial checkin ca parents: diff changeset	524
612 af7786327bd4 add columnHolder ca parents: 610 diff changeset	525	shown ifTrue:[
556 0e04616de48c bug fixes ca parents: 545 diff changeset	526	self fitColumns ifFalse:[
0e04616de48c bug fixes ca parents: 545 diff changeset	527	self invalidate.
0e04616de48c bug fixes ca parents: 545 diff changeset	528	self contentsChanged.
859 e63eb6f321e1 support List for columns ca parents: 833 diff changeset	529	] ifTrue:[
e63eb6f321e1 support List for columns ca parents: 833 diff changeset	530	self preferredExtentChanged.
556 0e04616de48c bug fixes ca parents: 545 diff changeset	531	]
563 826871ce82c9 bug fix: ca parents: 561 diff changeset	532	].
859 e63eb6f321e1 support List for columns ca parents: 833 diff changeset	533	catchChangeEvents := false.
563 826871ce82c9 bug fix: ca parents: 561 diff changeset	534	self changed:#sizeOfColumns.
542 e22c45e26653 intitial checkin ca parents: diff changeset	535
e22c45e26653 intitial checkin ca parents: diff changeset	536
e22c45e26653 intitial checkin ca parents: diff changeset	537	!
e22c45e26653 intitial checkin ca parents: diff changeset	538
e22c45e26653 intitial checkin ca parents: diff changeset	539	firstColumn
607 a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	540	"returns the first column
542 e22c45e26653 intitial checkin ca parents: diff changeset	541	"
e22c45e26653 intitial checkin ca parents: diff changeset	542	^ columnDescriptors at:1
e22c45e26653 intitial checkin ca parents: diff changeset	543
e22c45e26653 intitial checkin ca parents: diff changeset	544	!
e22c45e26653 intitial checkin ca parents: diff changeset	545
e22c45e26653 intitial checkin ca parents: diff changeset	546	lastColumn
607 a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	547	"returns the last column
542 e22c45e26653 intitial checkin ca parents: diff changeset	548	"
e22c45e26653 intitial checkin ca parents: diff changeset	549	^ columnDescriptors last
e22c45e26653 intitial checkin ca parents: diff changeset	550
e22c45e26653 intitial checkin ca parents: diff changeset	551	! !
e22c45e26653 intitial checkin ca parents: diff changeset	552
809 0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	553	!DSVColumnView methodsFor:'accessing interactors'!
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	554
1100 376515452be4 support of all styles; windows and next ca parents: 1089 diff changeset	555	checkToggleActiveImage
376515452be4 support of all styles; windows and next ca parents: 1089 diff changeset	556	^ checkToggleActiveImage
376515452be4 support of all styles; windows and next ca parents: 1089 diff changeset	557	!
376515452be4 support of all styles; windows and next ca parents: 1089 diff changeset	558
809 0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	559	checkToggleExtent
1087 8e97cbfebe12 add some comment ca parents: 1067 diff changeset	560	"returns the extent of a checkToggle
8e97cbfebe12 add some comment ca parents: 1067 diff changeset	561	"
809 0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	562	^ checkToggleExtent
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	563	!
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	564
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	565	checkToggleForm
1087 8e97cbfebe12 add some comment ca parents: 1067 diff changeset	566	"returns the form of a checkToggle
8e97cbfebe12 add some comment ca parents: 1067 diff changeset	567	"
809 0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	568	^ checkToggleForm
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	569	!
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	570
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	571	checkToggleLevel
1087 8e97cbfebe12 add some comment ca parents: 1067 diff changeset	572	"returns the level of a checkToggle button
8e97cbfebe12 add some comment ca parents: 1067 diff changeset	573	"
809 0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	574	^ checkToggleLevel
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	575	!
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	576
1100 376515452be4 support of all styles; windows and next ca parents: 1089 diff changeset	577	checkTogglePassiveImage
376515452be4 support of all styles; windows and next ca parents: 1089 diff changeset	578	^ checkTogglePassiveImage
376515452be4 support of all styles; windows and next ca parents: 1089 diff changeset	579	!
376515452be4 support of all styles; windows and next ca parents: 1089 diff changeset	580
809 0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	581	comboButtonExtent
1087 8e97cbfebe12 add some comment ca parents: 1067 diff changeset	582	"returns the extent of a comboList or -Box
8e97cbfebe12 add some comment ca parents: 1067 diff changeset	583	"
809 0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	584	^ comboButtonExtent
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	585	!
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	586
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	587	comboButtonForm
1087 8e97cbfebe12 add some comment ca parents: 1067 diff changeset	588	"returns the form of a comboList or -Box
8e97cbfebe12 add some comment ca parents: 1067 diff changeset	589	"
809 0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	590	^ comboButtonForm
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	591	!
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	592
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	593	comboButtonLevel
1087 8e97cbfebe12 add some comment ca parents: 1067 diff changeset	594	"returns the level of a comboList or -Box button
8e97cbfebe12 add some comment ca parents: 1067 diff changeset	595	"
809 0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	596	^ comboButtonLevel
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	597	!
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	598
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	599	rowSelectorExtent
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	600	"returns the bitmap of a selected row
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	601	"
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	602	^ rowSelectorForm extent
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	603	!
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	604
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	605	rowSelectorForm
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	606	"returns the bitmap of a selected row
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	607	"
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	608	^ rowSelectorForm
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	609	! !
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	610
612 af7786327bd4 add columnHolder ca parents: 610 diff changeset	611	!DSVColumnView methodsFor:'accessing mvc'!
af7786327bd4 add columnHolder ca parents: 610 diff changeset	612
1008 7874385db982 changes to support columnAdaptors Claus Gittinger <cg@exept.de> parents: 991 diff changeset	613	columnAdaptor
7874385db982 changes to support columnAdaptors Claus Gittinger <cg@exept.de> parents: 991 diff changeset	614	"return the value of the instance variable 'columnAdaptor' (automatically generated)"
7874385db982 changes to support columnAdaptors Claus Gittinger <cg@exept.de> parents: 991 diff changeset	615
7874385db982 changes to support columnAdaptors Claus Gittinger <cg@exept.de> parents: 991 diff changeset	616	^ columnAdaptor!
7874385db982 changes to support columnAdaptors Claus Gittinger <cg@exept.de> parents: 991 diff changeset	617
7874385db982 changes to support columnAdaptors Claus Gittinger <cg@exept.de> parents: 991 diff changeset	618	columnAdaptor:something
7874385db982 changes to support columnAdaptors Claus Gittinger <cg@exept.de> parents: 991 diff changeset	619	"set the value of the instance variable 'columnAdaptor' (automatically generated)"
7874385db982 changes to support columnAdaptors Claus Gittinger <cg@exept.de> parents: 991 diff changeset	620
7874385db982 changes to support columnAdaptors Claus Gittinger <cg@exept.de> parents: 991 diff changeset	621	columnAdaptor := something.!
7874385db982 changes to support columnAdaptors Claus Gittinger <cg@exept.de> parents: 991 diff changeset	622
612 af7786327bd4 add columnHolder ca parents: 610 diff changeset	623	columnHolder
1087 8e97cbfebe12 add some comment ca parents: 1067 diff changeset	624	"get the valueHolder, which keeps the list of column descriptions
8e97cbfebe12 add some comment ca parents: 1067 diff changeset	625	"
612 af7786327bd4 add columnHolder ca parents: 610 diff changeset	626	^ columnHolder
af7786327bd4 add columnHolder ca parents: 610 diff changeset	627
af7786327bd4 add columnHolder ca parents: 610 diff changeset	628	!
af7786327bd4 add columnHolder ca parents: 610 diff changeset	629
af7786327bd4 add columnHolder ca parents: 610 diff changeset	630	columnHolder:aValueHolder
1087 8e97cbfebe12 add some comment ca parents: 1067 diff changeset	631	"set the valueHolder, which keeps the list of column descriptions
8e97cbfebe12 add some comment ca parents: 1067 diff changeset	632	"
612 af7786327bd4 add columnHolder ca parents: 610 diff changeset	633	\|columns\|
af7786327bd4 add columnHolder ca parents: 610 diff changeset	634
af7786327bd4 add columnHolder ca parents: 610 diff changeset	635	columnHolder notNil ifTrue:[
af7786327bd4 add columnHolder ca parents: 610 diff changeset	636	columnHolder removeDependent:self
af7786327bd4 add columnHolder ca parents: 610 diff changeset	637	].
af7786327bd4 add columnHolder ca parents: 610 diff changeset	638
af7786327bd4 add columnHolder ca parents: 610 diff changeset	639	(columnHolder := aValueHolder) notNil ifTrue:[
af7786327bd4 add columnHolder ca parents: 610 diff changeset	640	columnHolder addDependent:self.
af7786327bd4 add columnHolder ca parents: 610 diff changeset	641	columns := columnHolder value.
af7786327bd4 add columnHolder ca parents: 610 diff changeset	642
af7786327bd4 add columnHolder ca parents: 610 diff changeset	643	columns notNil ifTrue:[
af7786327bd4 add columnHolder ca parents: 610 diff changeset	644	self columnDescriptors:columns
af7786327bd4 add columnHolder ca parents: 610 diff changeset	645	]
af7786327bd4 add columnHolder ca parents: 610 diff changeset	646	].
af7786327bd4 add columnHolder ca parents: 610 diff changeset	647
af7786327bd4 add columnHolder ca parents: 610 diff changeset	648	! !
af7786327bd4 add columnHolder ca parents: 610 diff changeset	649
542 e22c45e26653 intitial checkin ca parents: diff changeset	650	!DSVColumnView methodsFor:'accessing rows'!
e22c45e26653 intitial checkin ca parents: diff changeset	651
e22c45e26653 intitial checkin ca parents: diff changeset	652	at:aRowNr
e22c45e26653 intitial checkin ca parents: diff changeset	653	"return the row at an index, aRowNr
e22c45e26653 intitial checkin ca parents: diff changeset	654	"
618 6a79bf9b4cd3 support list with undefined rows ca parents: 612 diff changeset	655	\|row\|
6a79bf9b4cd3 support list with undefined rows ca parents: 612 diff changeset	656
6a79bf9b4cd3 support list with undefined rows ca parents: 612 diff changeset	657	(row := list at:aRowNr) isNil ifTrue:[
6a79bf9b4cd3 support list with undefined rows ca parents: 612 diff changeset	658	lockRowIndex := aRowNr.
6a79bf9b4cd3 support list with undefined rows ca parents: 612 diff changeset	659
1034 bd02c4cd7582 care for nonexisting rowIfAbsentBlock when a nil-row is encountered. Claus Gittinger <cg@exept.de> parents: 1023 diff changeset	660	(rowIfAbsentBlock notNil
bd02c4cd7582 care for nonexisting rowIfAbsentBlock when a nil-row is encountered. Claus Gittinger <cg@exept.de> parents: 1023 diff changeset	661	and:[(row := rowIfAbsentBlock value:aRowNr) notNil]) ifTrue:[
618 6a79bf9b4cd3 support list with undefined rows ca parents: 612 diff changeset	662	list at:aRowNr put:row.
6a79bf9b4cd3 support list with undefined rows ca parents: 612 diff changeset	663	beDependentOfRows ifTrue:[row addDependent:self].
6a79bf9b4cd3 support list with undefined rows ca parents: 612 diff changeset	664	].
6a79bf9b4cd3 support list with undefined rows ca parents: 612 diff changeset	665
6a79bf9b4cd3 support list with undefined rows ca parents: 612 diff changeset	666	lockRowIndex := 0
6a79bf9b4cd3 support list with undefined rows ca parents: 612 diff changeset	667	].
6a79bf9b4cd3 support list with undefined rows ca parents: 612 diff changeset	668	^ row
1034 bd02c4cd7582 care for nonexisting rowIfAbsentBlock when a nil-row is encountered. Claus Gittinger <cg@exept.de> parents: 1023 diff changeset	669
bd02c4cd7582 care for nonexisting rowIfAbsentBlock when a nil-row is encountered. Claus Gittinger <cg@exept.de> parents: 1023 diff changeset	670	"Modified: / 31.7.1998 / 01:07:46 / cg"
542 e22c45e26653 intitial checkin ca parents: diff changeset	671	!
e22c45e26653 intitial checkin ca parents: diff changeset	672
e22c45e26653 intitial checkin ca parents: diff changeset	673	at:aRowNr ifAbsent:exceptionBlock
607 a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	674	"return the row at a aRowNr. If the index is invalid, return the
542 e22c45e26653 intitial checkin ca parents: diff changeset	675	result of evaluating the exceptionblock
e22c45e26653 intitial checkin ca parents: diff changeset	676	"
618 6a79bf9b4cd3 support list with undefined rows ca parents: 612 diff changeset	677	(aRowNr between:1 and:self size) ifTrue:[
6a79bf9b4cd3 support list with undefined rows ca parents: 612 diff changeset	678	^ self at:aRowNr
6a79bf9b4cd3 support list with undefined rows ca parents: 612 diff changeset	679	].
6a79bf9b4cd3 support list with undefined rows ca parents: 612 diff changeset	680	^ exceptionBlock value
542 e22c45e26653 intitial checkin ca parents: diff changeset	681	!
e22c45e26653 intitial checkin ca parents: diff changeset	682
e22c45e26653 intitial checkin ca parents: diff changeset	683	at:aRowNr put:aRow
e22c45e26653 intitial checkin ca parents: diff changeset	684	"change the row at an index. The added row is returned
e22c45e26653 intitial checkin ca parents: diff changeset	685	"
618 6a79bf9b4cd3 support list with undefined rows ca parents: 612 diff changeset	686	\|row\|
6a79bf9b4cd3 support list with undefined rows ca parents: 612 diff changeset	687
6a79bf9b4cd3 support list with undefined rows ca parents: 612 diff changeset	688	lockRowIndex == aRowNr ifTrue:[
6a79bf9b4cd3 support list with undefined rows ca parents: 612 diff changeset	689	^ self
6a79bf9b4cd3 support list with undefined rows ca parents: 612 diff changeset	690	].
6a79bf9b4cd3 support list with undefined rows ca parents: 612 diff changeset	691	row := list at:aRowNr.
6a79bf9b4cd3 support list with undefined rows ca parents: 612 diff changeset	692	row == aRow ifTrue:[
6a79bf9b4cd3 support list with undefined rows ca parents: 612 diff changeset	693	^ self
6a79bf9b4cd3 support list with undefined rows ca parents: 612 diff changeset	694	].
6a79bf9b4cd3 support list with undefined rows ca parents: 612 diff changeset	695
542 e22c45e26653 intitial checkin ca parents: diff changeset	696	beDependentOfRows ifTrue:[
618 6a79bf9b4cd3 support list with undefined rows ca parents: 612 diff changeset	697	(row := list at:aRowNr) notNil ifTrue:[
6a79bf9b4cd3 support list with undefined rows ca parents: 612 diff changeset	698	row removeDependent:self
6a79bf9b4cd3 support list with undefined rows ca parents: 612 diff changeset	699	]
542 e22c45e26653 intitial checkin ca parents: diff changeset	700	].
618 6a79bf9b4cd3 support list with undefined rows ca parents: 612 diff changeset	701
607 a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	702	list at:aRowNr put:aRow.
618 6a79bf9b4cd3 support list with undefined rows ca parents: 612 diff changeset	703
6a79bf9b4cd3 support list with undefined rows ca parents: 612 diff changeset	704	aRow notNil ifTrue:[ "/ free list
6a79bf9b4cd3 support list with undefined rows ca parents: 612 diff changeset	705	beDependentOfRows ifTrue:[
6a79bf9b4cd3 support list with undefined rows ca parents: 612 diff changeset	706	aRow addDependent:self
6a79bf9b4cd3 support list with undefined rows ca parents: 612 diff changeset	707	].
6a79bf9b4cd3 support list with undefined rows ca parents: 612 diff changeset	708	self redrawRowAt:aRowNr
6a79bf9b4cd3 support list with undefined rows ca parents: 612 diff changeset	709	].
542 e22c45e26653 intitial checkin ca parents: diff changeset	710	^ aRow.
e22c45e26653 intitial checkin ca parents: diff changeset	711	!
e22c45e26653 intitial checkin ca parents: diff changeset	712
e22c45e26653 intitial checkin ca parents: diff changeset	713	first
e22c45e26653 intitial checkin ca parents: diff changeset	714	"return the first row
e22c45e26653 intitial checkin ca parents: diff changeset	715	"
618 6a79bf9b4cd3 support list with undefined rows ca parents: 612 diff changeset	716	^ self at:1
6a79bf9b4cd3 support list with undefined rows ca parents: 612 diff changeset	717	!
6a79bf9b4cd3 support list with undefined rows ca parents: 612 diff changeset	718
6a79bf9b4cd3 support list with undefined rows ca parents: 612 diff changeset	719	identityIndexOfRow:aRow
6a79bf9b4cd3 support list with undefined rows ca parents: 612 diff changeset	720	"returns index of a row or 0
6a79bf9b4cd3 support list with undefined rows ca parents: 612 diff changeset	721	"
6a79bf9b4cd3 support list with undefined rows ca parents: 612 diff changeset	722	(list size ~~ 0 and:[aRow notNil]) ifTrue:[
6a79bf9b4cd3 support list with undefined rows ca parents: 612 diff changeset	723	^ list identityIndexOf:aRow
6a79bf9b4cd3 support list with undefined rows ca parents: 612 diff changeset	724	].
6a79bf9b4cd3 support list with undefined rows ca parents: 612 diff changeset	725	^ 0
542 e22c45e26653 intitial checkin ca parents: diff changeset	726	!
e22c45e26653 intitial checkin ca parents: diff changeset	727
e22c45e26653 intitial checkin ca parents: diff changeset	728	last
e22c45e26653 intitial checkin ca parents: diff changeset	729	"return the last row
e22c45e26653 intitial checkin ca parents: diff changeset	730	"
618 6a79bf9b4cd3 support list with undefined rows ca parents: 612 diff changeset	731	^ self at:(self size)
542 e22c45e26653 intitial checkin ca parents: diff changeset	732	!
e22c45e26653 intitial checkin ca parents: diff changeset	733
e22c45e26653 intitial checkin ca parents: diff changeset	734	list
e22c45e26653 intitial checkin ca parents: diff changeset	735	"get the list of rows
e22c45e26653 intitial checkin ca parents: diff changeset	736	"
e22c45e26653 intitial checkin ca parents: diff changeset	737	^ list
e22c45e26653 intitial checkin ca parents: diff changeset	738
e22c45e26653 intitial checkin ca parents: diff changeset	739
e22c45e26653 intitial checkin ca parents: diff changeset	740
e22c45e26653 intitial checkin ca parents: diff changeset	741	!
e22c45e26653 intitial checkin ca parents: diff changeset	742
e22c45e26653 intitial checkin ca parents: diff changeset	743	list:aList
e22c45e26653 intitial checkin ca parents: diff changeset	744	"set the list of rows
e22c45e26653 intitial checkin ca parents: diff changeset	745	"
656 96a9b94e5472 bugfix: ca parents: 649 diff changeset	746	\|makeDependent\|
96a9b94e5472 bugfix: ca parents: 649 diff changeset	747
618 6a79bf9b4cd3 support list with undefined rows ca parents: 612 diff changeset	748	"/ remove selection without redraw
622 2588f809445d update:with:from: ca parents: 618 diff changeset	749
2588f809445d update:with:from: ca parents: 618 diff changeset	750	editValue notNil ifTrue:[
2588f809445d update:with:from: ca parents: 618 diff changeset	751	editValue removeDependent:self.
2588f809445d update:with:from: ca parents: 618 diff changeset	752	editValue := nil
2588f809445d update:with:from: ca parents: 618 diff changeset	753	].
1111 4fd0430173fa support #Tab ca parents: 1109 diff changeset	754	self destroyEditView.
622 2588f809445d update:with:from: ca parents: 618 diff changeset	755
618 6a79bf9b4cd3 support list with undefined rows ca parents: 612 diff changeset	756	selectedColIndex := 0.
6a79bf9b4cd3 support list with undefined rows ca parents: 612 diff changeset	757	selectedRowIndex := multipleSelectOk ifTrue:[nil] ifFalse:[0].
542 e22c45e26653 intitial checkin ca parents: diff changeset	758
612 af7786327bd4 add columnHolder ca parents: 610 diff changeset	759	shown ifFalse:[
af7786327bd4 add columnHolder ca parents: 610 diff changeset	760	preferredExtent := nil
af7786327bd4 add columnHolder ca parents: 610 diff changeset	761	] ifTrue:[
af7786327bd4 add columnHolder ca parents: 610 diff changeset	762	aList size ~~ 0 ifTrue:[ "/ otherwise keep old values
af7786327bd4 add columnHolder ca parents: 610 diff changeset	763	self columnsDo:[:aCol\| aCol invalidate ].
af7786327bd4 add columnHolder ca parents: 610 diff changeset	764	preferredExtent := nil.
618 6a79bf9b4cd3 support list with undefined rows ca parents: 612 diff changeset	765	]
542 e22c45e26653 intitial checkin ca parents: diff changeset	766	].
e22c45e26653 intitial checkin ca parents: diff changeset	767
656 96a9b94e5472 bugfix: ca parents: 649 diff changeset	768	(makeDependent := beDependentOfRows) ifTrue:[
96a9b94e5472 bugfix: ca parents: 649 diff changeset	769	self beDependentOfRows:false.
96a9b94e5472 bugfix: ca parents: 649 diff changeset	770	].
643 bfd44867347f adding: bug fix ca parents: 642 diff changeset	771
bfd44867347f adding: bug fix ca parents: 642 diff changeset	772	aList size ~~ 0 ifTrue:[
bfd44867347f adding: bug fix ca parents: 642 diff changeset	773	list := OrderedCollection new:(aList size).
645 53c78cc2ee08 redraw twice in case of expose event during adding a new entry ca parents: 643 diff changeset	774	aList do:[:el\| list add:el ].
542 e22c45e26653 intitial checkin ca parents: diff changeset	775	] ifFalse:[
643 bfd44867347f adding: bug fix ca parents: 642 diff changeset	776	list := nil
542 e22c45e26653 intitial checkin ca parents: diff changeset	777	].
656 96a9b94e5472 bugfix: ca parents: 649 diff changeset	778	self beDependentOfRows:makeDependent.
542 e22c45e26653 intitial checkin ca parents: diff changeset	779
612 af7786327bd4 add columnHolder ca parents: 610 diff changeset	780	shown ifTrue:[
542 e22c45e26653 intitial checkin ca parents: diff changeset	781	list size ~~ 0 ifTrue:[
e22c45e26653 intitial checkin ca parents: diff changeset	782	self fitColumns ifTrue:[^ self ].
e22c45e26653 intitial checkin ca parents: diff changeset	783	].
713 b16e28767967 catch change notifications ca parents: 707 diff changeset	784	self recomputeHeightOfContents.
637 e56ec99923ae VW compatible ca parents: 622 diff changeset	785	self invalidate.
e56ec99923ae VW compatible ca parents: 622 diff changeset	786	self contentsChanged.
e56ec99923ae VW compatible ca parents: 622 diff changeset	787	].
e56ec99923ae VW compatible ca parents: 622 diff changeset	788
542 e22c45e26653 intitial checkin ca parents: diff changeset	789
e22c45e26653 intitial checkin ca parents: diff changeset	790
e22c45e26653 intitial checkin ca parents: diff changeset	791
e22c45e26653 intitial checkin ca parents: diff changeset	792	! !
e22c45e26653 intitial checkin ca parents: diff changeset	793
e22c45e26653 intitial checkin ca parents: diff changeset	794	!DSVColumnView methodsFor:'accessing visibility'!
e22c45e26653 intitial checkin ca parents: diff changeset	795
e22c45e26653 intitial checkin ca parents: diff changeset	796	font:aFont
e22c45e26653 intitial checkin ca parents: diff changeset	797	"set the font for all shown rows.
e22c45e26653 intitial checkin ca parents: diff changeset	798	"
e22c45e26653 intitial checkin ca parents: diff changeset	799	(aFont notNil and:[aFont ~~ font]) ifTrue:[
e22c45e26653 intitial checkin ca parents: diff changeset	800	super font:(aFont on:device).
e22c45e26653 intitial checkin ca parents: diff changeset	801	realized ifTrue:[
1149 c212f122c8b3 allow collections of string and icons for a cell label Claus Gittinger <cg@exept.de> parents: 1136 diff changeset	802	self columnsDo:[:aCol\| aCol invalidate ].
c212f122c8b3 allow collections of string and icons for a cell label Claus Gittinger <cg@exept.de> parents: 1136 diff changeset	803	self preferredExtentChanged.
542 e22c45e26653 intitial checkin ca parents: diff changeset	804	self invalidate.
e22c45e26653 intitial checkin ca parents: diff changeset	805	self contentsChanged
643 bfd44867347f adding: bug fix ca parents: 642 diff changeset	806	]
542 e22c45e26653 intitial checkin ca parents: diff changeset	807	]
e22c45e26653 intitial checkin ca parents: diff changeset	808
e22c45e26653 intitial checkin ca parents: diff changeset	809	!
e22c45e26653 intitial checkin ca parents: diff changeset	810
607 a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	811	has3Dseparators
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	812	"returns true if shown in 3D mode
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	813	"
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	814	^ separatorSize ~~ 1
542 e22c45e26653 intitial checkin ca parents: diff changeset	815	!
e22c45e26653 intitial checkin ca parents: diff changeset	816
607 a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	817	has3Dseparators:aBool
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	818	"enable or disable 3D mode
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	819	"
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	820	\|newSepSize\|
542 e22c45e26653 intitial checkin ca parents: diff changeset	821
637 e56ec99923ae VW compatible ca parents: 622 diff changeset	822	newSepSize := aBool ifTrue:[2] ifFalse:[1].
607 a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	823
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	824	newSepSize ~~ separatorSize ifTrue:[
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	825	separatorSize := newSepSize.
1149 c212f122c8b3 allow collections of string and icons for a cell label Claus Gittinger <cg@exept.de> parents: 1136 diff changeset	826
c212f122c8b3 allow collections of string and icons for a cell label Claus Gittinger <cg@exept.de> parents: 1136 diff changeset	827	realized ifTrue:[
1136 4a9d9db81422 set bg/fg color when drawing an interactor ca parents: 1134 diff changeset	828	self columnsDo:[:aCol\| aCol invalidate ].
4a9d9db81422 set bg/fg color when drawing an interactor ca parents: 1134 diff changeset	829	self preferredExtentChanged.
1149 c212f122c8b3 allow collections of string and icons for a cell label Claus Gittinger <cg@exept.de> parents: 1136 diff changeset	830	self invalidate.
c212f122c8b3 allow collections of string and icons for a cell label Claus Gittinger <cg@exept.de> parents: 1136 diff changeset	831	self contentsChanged
647 ee98a1976972 support of different styles ca parents: 645 diff changeset	832	]
542 e22c45e26653 intitial checkin ca parents: diff changeset	833	]
e22c45e26653 intitial checkin ca parents: diff changeset	834
e22c45e26653 intitial checkin ca parents: diff changeset	835
e22c45e26653 intitial checkin ca parents: diff changeset	836	!
e22c45e26653 intitial checkin ca parents: diff changeset	837
e22c45e26653 intitial checkin ca parents: diff changeset	838	horizontalSpacing
e22c45e26653 intitial checkin ca parents: diff changeset	839	"horizontal spacing used by columns
e22c45e26653 intitial checkin ca parents: diff changeset	840	"
563 826871ce82c9 bug fix: ca parents: 561 diff changeset	841	^ horizontalSpacing
826871ce82c9 bug fix: ca parents: 561 diff changeset	842	!
826871ce82c9 bug fix: ca parents: 561 diff changeset	843
826871ce82c9 bug fix: ca parents: 561 diff changeset	844	horizontalSpacing:aNumber
826871ce82c9 bug fix: ca parents: 561 diff changeset	845	"horizontal spacing used by columns
826871ce82c9 bug fix: ca parents: 561 diff changeset	846	"
826871ce82c9 bug fix: ca parents: 561 diff changeset	847	horizontalSpacing ~~ aNumber ifTrue:[
826871ce82c9 bug fix: ca parents: 561 diff changeset	848	horizontalSpacing := aNumber.
826871ce82c9 bug fix: ca parents: 561 diff changeset	849	self preferredExtentChanged.
826871ce82c9 bug fix: ca parents: 561 diff changeset	850	].
542 e22c45e26653 intitial checkin ca parents: diff changeset	851	!
e22c45e26653 intitial checkin ca parents: diff changeset	852
e22c45e26653 intitial checkin ca parents: diff changeset	853	verticalSpacing
e22c45e26653 intitial checkin ca parents: diff changeset	854	"vertical spacing used by columns
e22c45e26653 intitial checkin ca parents: diff changeset	855	"
563 826871ce82c9 bug fix: ca parents: 561 diff changeset	856	^ verticalSpacing
826871ce82c9 bug fix: ca parents: 561 diff changeset	857	!
826871ce82c9 bug fix: ca parents: 561 diff changeset	858
826871ce82c9 bug fix: ca parents: 561 diff changeset	859	verticalSpacing:aNumber
826871ce82c9 bug fix: ca parents: 561 diff changeset	860	"vertical spacing used by columns
826871ce82c9 bug fix: ca parents: 561 diff changeset	861	"
826871ce82c9 bug fix: ca parents: 561 diff changeset	862	verticalSpacing ~~ aNumber ifTrue:[
826871ce82c9 bug fix: ca parents: 561 diff changeset	863	verticalSpacing := aNumber.
826871ce82c9 bug fix: ca parents: 561 diff changeset	864	self preferredExtentChanged.
826871ce82c9 bug fix: ca parents: 561 diff changeset	865	].
542 e22c45e26653 intitial checkin ca parents: diff changeset	866	! !
e22c45e26653 intitial checkin ca parents: diff changeset	867
e22c45e26653 intitial checkin ca parents: diff changeset	868	!DSVColumnView methodsFor:'adding & removing rows'!
e22c45e26653 intitial checkin ca parents: diff changeset	869
e22c45e26653 intitial checkin ca parents: diff changeset	870	add:aRow
618 6a79bf9b4cd3 support list with undefined rows ca parents: 612 diff changeset	871	"insert row at end
542 e22c45e26653 intitial checkin ca parents: diff changeset	872	"
618 6a79bf9b4cd3 support list with undefined rows ca parents: 612 diff changeset	873	^ self add:aRow beforeIndex:(1 + self size)
542 e22c45e26653 intitial checkin ca parents: diff changeset	874	!
e22c45e26653 intitial checkin ca parents: diff changeset	875
e22c45e26653 intitial checkin ca parents: diff changeset	876	add:aRow afterIndex:aRowNr
e22c45e26653 intitial checkin ca parents: diff changeset	877	"add a new row after slot aRowNr and redisplay; returns nil in case
618 6a79bf9b4cd3 support list with undefined rows ca parents: 612 diff changeset	878	of an invalid index or the row
542 e22c45e26653 intitial checkin ca parents: diff changeset	879	"
e22c45e26653 intitial checkin ca parents: diff changeset	880	^ self add:aRow beforeIndex:(aRowNr + 1)
e22c45e26653 intitial checkin ca parents: diff changeset	881	!
e22c45e26653 intitial checkin ca parents: diff changeset	882
e22c45e26653 intitial checkin ca parents: diff changeset	883	add:aRow beforeIndex:aRowNr
e22c45e26653 intitial checkin ca parents: diff changeset	884	"add a new row before slot aRowNr and redisplay; returns nil in case
618 6a79bf9b4cd3 support list with undefined rows ca parents: 612 diff changeset	885	of an invalid index or the row
542 e22c45e26653 intitial checkin ca parents: diff changeset	886	"
861 a227a3ca27e7 bug fix in multi selection ca parents: 859 diff changeset	887	self addAll:(Array with:aRow) beforeIndex:aRowNr.
a227a3ca27e7 bug fix in multi selection ca parents: 859 diff changeset	888	^ aRow.
a227a3ca27e7 bug fix in multi selection ca parents: 859 diff changeset	889	!
a227a3ca27e7 bug fix in multi selection ca parents: 859 diff changeset	890
a227a3ca27e7 bug fix in multi selection ca parents: 859 diff changeset	891	addAll:aList beforeIndex:start
a227a3ca27e7 bug fix in multi selection ca parents: 859 diff changeset	892	"add a collection of rows before slot start and redisplay
a227a3ca27e7 bug fix in multi selection ca parents: 859 diff changeset	893	"
a227a3ca27e7 bug fix in multi selection ca parents: 859 diff changeset	894	\|y0 y1 yD h dH size noSel\|
a227a3ca27e7 bug fix in multi selection ca parents: 859 diff changeset	895
a227a3ca27e7 bug fix in multi selection ca parents: 859 diff changeset	896	(size := aList size) == 0 ifTrue:[
a227a3ca27e7 bug fix in multi selection ca parents: 859 diff changeset	897	^ self
a227a3ca27e7 bug fix in multi selection ca parents: 859 diff changeset	898	].
a227a3ca27e7 bug fix in multi selection ca parents: 859 diff changeset	899
a227a3ca27e7 bug fix in multi selection ca parents: 859 diff changeset	900	self size == 0 ifTrue:[
a227a3ca27e7 bug fix in multi selection ca parents: 859 diff changeset	901	^ self list:aList
618 6a79bf9b4cd3 support list with undefined rows ca parents: 612 diff changeset	902	].
643 bfd44867347f adding: bug fix ca parents: 642 diff changeset	903
618 6a79bf9b4cd3 support list with undefined rows ca parents: 612 diff changeset	904	beDependentOfRows ifTrue:[
861 a227a3ca27e7 bug fix in multi selection ca parents: 859 diff changeset	905	aList do:[:aRow\| aRow notNil ifTrue:[aRow addDependent:self]]
542 e22c45e26653 intitial checkin ca parents: diff changeset	906	].
637 e56ec99923ae VW compatible ca parents: 622 diff changeset	907
861 a227a3ca27e7 bug fix in multi selection ca parents: 859 diff changeset	908	noSel := self numberOfSelections.
a227a3ca27e7 bug fix in multi selection ca parents: 859 diff changeset	909
a227a3ca27e7 bug fix in multi selection ca parents: 859 diff changeset	910	noSel ~~ 0 ifTrue:[
a227a3ca27e7 bug fix in multi selection ca parents: 859 diff changeset	911	multipleSelectOk ifFalse:[
a227a3ca27e7 bug fix in multi selection ca parents: 859 diff changeset	912	selectedRowIndex >= start ifTrue:[
a227a3ca27e7 bug fix in multi selection ca parents: 859 diff changeset	913	selectedRowIndex := selectedRowIndex + size
a227a3ca27e7 bug fix in multi selection ca parents: 859 diff changeset	914	]
a227a3ca27e7 bug fix in multi selection ca parents: 859 diff changeset	915	] ifTrue:[
a227a3ca27e7 bug fix in multi selection ca parents: 859 diff changeset	916	1 to:noSel do:[:i\|\|v\|
a227a3ca27e7 bug fix in multi selection ca parents: 859 diff changeset	917	(v := selectedRowIndex at:i) >= start ifTrue:[
a227a3ca27e7 bug fix in multi selection ca parents: 859 diff changeset	918	selectedRowIndex at:i put:(v + size)
607 a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	919	]
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	920	]
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	921	]
542 e22c45e26653 intitial checkin ca parents: diff changeset	922	].
861 a227a3ca27e7 bug fix in multi selection ca parents: 859 diff changeset	923	list addAll:aList beforeIndex:start.
a227a3ca27e7 bug fix in multi selection ca parents: 859 diff changeset	924	self recomputeHeightOfContents.
a227a3ca27e7 bug fix in multi selection ca parents: 859 diff changeset	925
a227a3ca27e7 bug fix in multi selection ca parents: 859 diff changeset	926	y0 := (start - 1) * rowHeight.
a227a3ca27e7 bug fix in multi selection ca parents: 859 diff changeset	927	yD := size * rowHeight.
a227a3ca27e7 bug fix in multi selection ca parents: 859 diff changeset	928	y1 := y0 + yD.
542 e22c45e26653 intitial checkin ca parents: diff changeset	929
e22c45e26653 intitial checkin ca parents: diff changeset	930	y0 < viewOrigin y ifTrue:[
e22c45e26653 intitial checkin ca parents: diff changeset	931	self originWillChange.
861 a227a3ca27e7 bug fix in multi selection ca parents: 859 diff changeset	932	viewOrigin y:(yD + viewOrigin y).
a227a3ca27e7 bug fix in multi selection ca parents: 859 diff changeset	933	self originChanged:(0 @ yD).
a227a3ca27e7 bug fix in multi selection ca parents: 859 diff changeset	934	].
a227a3ca27e7 bug fix in multi selection ca parents: 859 diff changeset	935
a227a3ca27e7 bug fix in multi selection ca parents: 859 diff changeset	936	(shown not or:[self sensor hasDamageFor:self]) ifTrue:[
a227a3ca27e7 bug fix in multi selection ca parents: 859 diff changeset	937	^ self contentsChanged.
542 e22c45e26653 intitial checkin ca parents: diff changeset	938	].
645 53c78cc2ee08 redraw twice in case of expose event during adding a new entry ca parents: 643 diff changeset	939
861 a227a3ca27e7 bug fix in multi selection ca parents: 859 diff changeset	940	y0 := self yVisibleOfRowNr:start.
a227a3ca27e7 bug fix in multi selection ca parents: 859 diff changeset	941	y1 := y0 + yD.
a227a3ca27e7 bug fix in multi selection ca parents: 859 diff changeset	942
a227a3ca27e7 bug fix in multi selection ca parents: 859 diff changeset	943	(y1 > margin and:[y0 < (h := height - margin)]) ifTrue:[
a227a3ca27e7 bug fix in multi selection ca parents: 859 diff changeset	944	h := h - y1.
a227a3ca27e7 bug fix in multi selection ca parents: 859 diff changeset	945	y0 := y0 max:margin.
a227a3ca27e7 bug fix in multi selection ca parents: 859 diff changeset	946	dH := y1 - y0.
a227a3ca27e7 bug fix in multi selection ca parents: 859 diff changeset	947
a227a3ca27e7 bug fix in multi selection ca parents: 859 diff changeset	948	start == list size ifFalse:[
a227a3ca27e7 bug fix in multi selection ca parents: 859 diff changeset	949	self catchExpose.
a227a3ca27e7 bug fix in multi selection ca parents: 859 diff changeset	950
a227a3ca27e7 bug fix in multi selection ca parents: 859 diff changeset	951	self copyFrom:self x:0 y:y0
a227a3ca27e7 bug fix in multi selection ca parents: 859 diff changeset	952	toX:0 y:y1
a227a3ca27e7 bug fix in multi selection ca parents: 859 diff changeset	953	width:width height:h async:true.
a227a3ca27e7 bug fix in multi selection ca parents: 859 diff changeset	954
a227a3ca27e7 bug fix in multi selection ca parents: 859 diff changeset	955	self waitForExpose
a227a3ca27e7 bug fix in multi selection ca parents: 859 diff changeset	956	].
a227a3ca27e7 bug fix in multi selection ca parents: 859 diff changeset	957	self redrawX:margin y:y0 width:width - margin - margin height:dH.
542 e22c45e26653 intitial checkin ca parents: diff changeset	958	].
e22c45e26653 intitial checkin ca parents: diff changeset	959	self contentsChanged.
861 a227a3ca27e7 bug fix in multi selection ca parents: 859 diff changeset	960
567 01083cbb4bae checkin from browser ca parents: 563 diff changeset	961	!
01083cbb4bae checkin from browser ca parents: 563 diff changeset	962
542 e22c45e26653 intitial checkin ca parents: diff changeset	963	addFirst:aRow
618 6a79bf9b4cd3 support list with undefined rows ca parents: 612 diff changeset	964	"insert a row at start
542 e22c45e26653 intitial checkin ca parents: diff changeset	965	"
e22c45e26653 intitial checkin ca parents: diff changeset	966	^ self add:aRow beforeIndex:1
e22c45e26653 intitial checkin ca parents: diff changeset	967	!
e22c45e26653 intitial checkin ca parents: diff changeset	968
e22c45e26653 intitial checkin ca parents: diff changeset	969	removeFirst
e22c45e26653 intitial checkin ca parents: diff changeset	970	"remove first row; returns the removed row
e22c45e26653 intitial checkin ca parents: diff changeset	971	"
1112 81f2a7f0afdc draw routines for interactors ca parents: 1111 diff changeset	972	^ self removeIndex:1
542 e22c45e26653 intitial checkin ca parents: diff changeset	973	!
e22c45e26653 intitial checkin ca parents: diff changeset	974
861 a227a3ca27e7 bug fix in multi selection ca parents: 859 diff changeset	975	removeFrom:startIndex to:stopIndex
a227a3ca27e7 bug fix in multi selection ca parents: 859 diff changeset	976	"remove rows from start to stop
542 e22c45e26653 intitial checkin ca parents: diff changeset	977	"
861 a227a3ca27e7 bug fix in multi selection ca parents: 859 diff changeset	978	\|coll noRedraw
a227a3ca27e7 bug fix in multi selection ca parents: 859 diff changeset	979	noSel "{ Class: SmallInteger }"
a227a3ca27e7 bug fix in multi selection ca parents: 859 diff changeset	980	size "{ Class: SmallInteger }"
a227a3ca27e7 bug fix in multi selection ca parents: 859 diff changeset	981	start "{ Class: SmallInteger }"
a227a3ca27e7 bug fix in multi selection ca parents: 859 diff changeset	982	stop "{ Class: SmallInteger }"
a227a3ca27e7 bug fix in multi selection ca parents: 859 diff changeset	983	y0 "{ Class: SmallInteger }"
a227a3ca27e7 bug fix in multi selection ca parents: 859 diff changeset	984	y1 "{ Class: SmallInteger }"
a227a3ca27e7 bug fix in multi selection ca parents: 859 diff changeset	985	oY "{ Class: SmallInteger }"
a227a3ca27e7 bug fix in multi selection ca parents: 859 diff changeset	986	dY "{ Class: SmallInteger }"
a227a3ca27e7 bug fix in multi selection ca parents: 859 diff changeset	987	yB "{ Class: SmallInteger }"
a227a3ca27e7 bug fix in multi selection ca parents: 859 diff changeset	988	h "{ Class: SmallInteger }"
a227a3ca27e7 bug fix in multi selection ca parents: 859 diff changeset	989	\|
a227a3ca27e7 bug fix in multi selection ca parents: 859 diff changeset	990
a227a3ca27e7 bug fix in multi selection ca parents: 859 diff changeset	991	( (start := startIndex) < 1
a227a3ca27e7 bug fix in multi selection ca parents: 859 diff changeset	992	or:[(stop := stopIndex) > list size]
a227a3ca27e7 bug fix in multi selection ca parents: 859 diff changeset	993	) ifTrue:[
a227a3ca27e7 bug fix in multi selection ca parents: 859 diff changeset	994	^ self subscriptBoundsError:start
618 6a79bf9b4cd3 support list with undefined rows ca parents: 612 diff changeset	995	].
861 a227a3ca27e7 bug fix in multi selection ca parents: 859 diff changeset	996	size := stop - start + 1.
a227a3ca27e7 bug fix in multi selection ca parents: 859 diff changeset	997
a227a3ca27e7 bug fix in multi selection ca parents: 859 diff changeset	998	beDependentOfRows ifTrue:[
a227a3ca27e7 bug fix in multi selection ca parents: 859 diff changeset	999	list from:start to:stop do:[:r\| r notNil ifTrue:[r removeDependent:self]].
a227a3ca27e7 bug fix in multi selection ca parents: 859 diff changeset	1000	].
a227a3ca27e7 bug fix in multi selection ca parents: 859 diff changeset	1001	noSel := self numberOfSelections.
a227a3ca27e7 bug fix in multi selection ca parents: 859 diff changeset	1002
a227a3ca27e7 bug fix in multi selection ca parents: 859 diff changeset	1003	noSel ~~ 0 ifTrue:[
a227a3ca27e7 bug fix in multi selection ca parents: 859 diff changeset	1004	noSel == 1 ifTrue:[
a227a3ca27e7 bug fix in multi selection ca parents: 859 diff changeset	1005	noSel := self firstIndexSelected.
a227a3ca27e7 bug fix in multi selection ca parents: 859 diff changeset	1006
a227a3ca27e7 bug fix in multi selection ca parents: 859 diff changeset	1007	noSel < start ifFalse:[
a227a3ca27e7 bug fix in multi selection ca parents: 859 diff changeset	1008	noSel > stop ifTrue:[
a227a3ca27e7 bug fix in multi selection ca parents: 859 diff changeset	1009	noSel := noSel - size.
a227a3ca27e7 bug fix in multi selection ca parents: 859 diff changeset	1010
a227a3ca27e7 bug fix in multi selection ca parents: 859 diff changeset	1011	multipleSelectOk ifFalse:[selectedRowIndex := noSel]
a227a3ca27e7 bug fix in multi selection ca parents: 859 diff changeset	1012	ifTrue:[selectedRowIndex at:1 put:noSel]
a227a3ca27e7 bug fix in multi selection ca parents: 859 diff changeset	1013	] ifFalse:[
637 e56ec99923ae VW compatible ca parents: 622 diff changeset	1014	editValue notNil ifTrue:[
e56ec99923ae VW compatible ca parents: 622 diff changeset	1015	editValue removeDependent:self.
e56ec99923ae VW compatible ca parents: 622 diff changeset	1016	editValue := nil.
e56ec99923ae VW compatible ca parents: 622 diff changeset	1017	].
861 a227a3ca27e7 bug fix in multi selection ca parents: 859 diff changeset	1018	self deselect.
637 e56ec99923ae VW compatible ca parents: 622 diff changeset	1019	]
607 a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	1020	]
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	1021	] ifFalse:[
861 a227a3ca27e7 bug fix in multi selection ca parents: 859 diff changeset	1022	coll := OrderedCollection new:noSel.
a227a3ca27e7 bug fix in multi selection ca parents: 859 diff changeset	1023
a227a3ca27e7 bug fix in multi selection ca parents: 859 diff changeset	1024	selectedRowIndex do:[:i\|
a227a3ca27e7 bug fix in multi selection ca parents: 859 diff changeset	1025	i < start ifTrue:[
a227a3ca27e7 bug fix in multi selection ca parents: 859 diff changeset	1026	coll add:i
a227a3ca27e7 bug fix in multi selection ca parents: 859 diff changeset	1027	] ifFalse:[
a227a3ca27e7 bug fix in multi selection ca parents: 859 diff changeset	1028	i > stop ifTrue:[
a227a3ca27e7 bug fix in multi selection ca parents: 859 diff changeset	1029	coll add:(i - size)
a227a3ca27e7 bug fix in multi selection ca parents: 859 diff changeset	1030	]
a227a3ca27e7 bug fix in multi selection ca parents: 859 diff changeset	1031	]
a227a3ca27e7 bug fix in multi selection ca parents: 859 diff changeset	1032	].
a227a3ca27e7 bug fix in multi selection ca parents: 859 diff changeset	1033	coll size == 0 ifTrue:[
a227a3ca27e7 bug fix in multi selection ca parents: 859 diff changeset	1034	self deselect
a227a3ca27e7 bug fix in multi selection ca parents: 859 diff changeset	1035	] ifFalse:[
a227a3ca27e7 bug fix in multi selection ca parents: 859 diff changeset	1036	selectedRowIndex := coll
a227a3ca27e7 bug fix in multi selection ca parents: 859 diff changeset	1037	]
542 e22c45e26653 intitial checkin ca parents: diff changeset	1038	]
e22c45e26653 intitial checkin ca parents: diff changeset	1039	].
861 a227a3ca27e7 bug fix in multi selection ca parents: 859 diff changeset	1040	list removeFrom:start to:stop.
a227a3ca27e7 bug fix in multi selection ca parents: 859 diff changeset	1041
a227a3ca27e7 bug fix in multi selection ca parents: 859 diff changeset	1042	y0 := start - 1 * rowHeight.
a227a3ca27e7 bug fix in multi selection ca parents: 859 diff changeset	1043	dY := size * rowHeight.
a227a3ca27e7 bug fix in multi selection ca parents: 859 diff changeset	1044	y1 := dY + y0.
542 e22c45e26653 intitial checkin ca parents: diff changeset	1045	yB := y1 + margin - viewOrigin y.
e22c45e26653 intitial checkin ca parents: diff changeset	1046	self recomputeHeightOfContents.
e22c45e26653 intitial checkin ca parents: diff changeset	1047
e22c45e26653 intitial checkin ca parents: diff changeset	1048	y0 < (oY := viewOrigin y) ifTrue:[
e22c45e26653 intitial checkin ca parents: diff changeset	1049	(noRedraw := y1 <= oY) ifFalse:[dY := y0 - oY]
861 a227a3ca27e7 bug fix in multi selection ca parents: 859 diff changeset	1050	ifTrue:[dY := dY negated].
542 e22c45e26653 intitial checkin ca parents: diff changeset	1051	self originWillChange.
e22c45e26653 intitial checkin ca parents: diff changeset	1052	viewOrigin y:(dY + oY).
e22c45e26653 intitial checkin ca parents: diff changeset	1053	self originChanged:(0 @ dY).
e22c45e26653 intitial checkin ca parents: diff changeset	1054	] ifFalse:[
e22c45e26653 intitial checkin ca parents: diff changeset	1055	noRedraw := y0 > (height + viewOrigin y)
e22c45e26653 intitial checkin ca parents: diff changeset	1056	].
e22c45e26653 intitial checkin ca parents: diff changeset	1057
e22c45e26653 intitial checkin ca parents: diff changeset	1058	(noRedraw or:[shown not]) ifFalse:[
e22c45e26653 intitial checkin ca parents: diff changeset	1059	y1 := yB.
861 a227a3ca27e7 bug fix in multi selection ca parents: 859 diff changeset	1060	y0 := self yVisibleOfRowNr:start.
542 e22c45e26653 intitial checkin ca parents: diff changeset	1061	h := height - margin - yB.
e22c45e26653 intitial checkin ca parents: diff changeset	1062	y0 := y0 max:margin.
e22c45e26653 intitial checkin ca parents: diff changeset	1063
561 43b62e424d52 check height is positive before copy ca parents: 556 diff changeset	1064	h > 0 ifTrue:[
43b62e424d52 check height is positive before copy ca parents: 556 diff changeset	1065	self catchExpose.
43b62e424d52 check height is positive before copy ca parents: 556 diff changeset	1066	self copyFrom:self x:0 y:yB toX:0 y:y0 width:width height:h async:true.
43b62e424d52 check height is positive before copy ca parents: 556 diff changeset	1067	self waitForExpose.
43b62e424d52 check height is positive before copy ca parents: 556 diff changeset	1068	].
542 e22c45e26653 intitial checkin ca parents: diff changeset	1069	y0 := y0 + h.
643 bfd44867347f adding: bug fix ca parents: 642 diff changeset	1070	self redrawX:margin y:y0 width:width - margin - margin height:(height - y0).
542 e22c45e26653 intitial checkin ca parents: diff changeset	1071	].
e22c45e26653 intitial checkin ca parents: diff changeset	1072	self contentsChanged.
861 a227a3ca27e7 bug fix in multi selection ca parents: 859 diff changeset	1073
a227a3ca27e7 bug fix in multi selection ca parents: 859 diff changeset	1074	!
a227a3ca27e7 bug fix in multi selection ca parents: 859 diff changeset	1075
a227a3ca27e7 bug fix in multi selection ca parents: 859 diff changeset	1076	removeIndex:aRowNr
a227a3ca27e7 bug fix in multi selection ca parents: 859 diff changeset	1077	"remove row at an index; returns the removed row
a227a3ca27e7 bug fix in multi selection ca parents: 859 diff changeset	1078	"
a227a3ca27e7 bug fix in multi selection ca parents: 859 diff changeset	1079	\|row\|
a227a3ca27e7 bug fix in multi selection ca parents: 859 diff changeset	1080
a227a3ca27e7 bug fix in multi selection ca parents: 859 diff changeset	1081	row := list at:aRowNr ifAbsent:nil.
a227a3ca27e7 bug fix in multi selection ca parents: 859 diff changeset	1082	self removeFrom:aRowNr to:aRowNr.
a227a3ca27e7 bug fix in multi selection ca parents: 859 diff changeset	1083	^ row
542 e22c45e26653 intitial checkin ca parents: diff changeset	1084	!
e22c45e26653 intitial checkin ca parents: diff changeset	1085
e22c45e26653 intitial checkin ca parents: diff changeset	1086	removeLast
e22c45e26653 intitial checkin ca parents: diff changeset	1087	"remove last row; the row is returned
e22c45e26653 intitial checkin ca parents: diff changeset	1088	"
618 6a79bf9b4cd3 support list with undefined rows ca parents: 612 diff changeset	1089	^ self removeIndex:self size
542 e22c45e26653 intitial checkin ca parents: diff changeset	1090	! !
e22c45e26653 intitial checkin ca parents: diff changeset	1091
e22c45e26653 intitial checkin ca parents: diff changeset	1092	!DSVColumnView methodsFor:'change & update'!
e22c45e26653 intitial checkin ca parents: diff changeset	1093
859 e63eb6f321e1 support List for columns ca parents: 833 diff changeset	1094	changed:aParameter with:anArgument
e63eb6f321e1 support List for columns ca parents: 833 diff changeset	1095	"notify all dependents that the receiver has changed somehow.
e63eb6f321e1 support List for columns ca parents: 833 diff changeset	1096	Each dependent gets a '#update:with:from:'-message, with aParameter
e63eb6f321e1 support List for columns ca parents: 833 diff changeset	1097	and anArgument as arguments."
e63eb6f321e1 support List for columns ca parents: 833 diff changeset	1098
e63eb6f321e1 support List for columns ca parents: 833 diff changeset	1099	catchChangeEvents ifTrue:[
e63eb6f321e1 support List for columns ca parents: 833 diff changeset	1100	( aParameter == #sizeOfColumns
e63eb6f321e1 support List for columns ca parents: 833 diff changeset	1101	or:[aParameter == #columnsLayout]
e63eb6f321e1 support List for columns ca parents: 833 diff changeset	1102	) ifTrue:[
e63eb6f321e1 support List for columns ca parents: 833 diff changeset	1103	^ self
e63eb6f321e1 support List for columns ca parents: 833 diff changeset	1104	]
e63eb6f321e1 support List for columns ca parents: 833 diff changeset	1105	].
e63eb6f321e1 support List for columns ca parents: 833 diff changeset	1106	super changed:aParameter with:anArgument
e63eb6f321e1 support List for columns ca parents: 833 diff changeset	1107
e63eb6f321e1 support List for columns ca parents: 833 diff changeset	1108	!
e63eb6f321e1 support List for columns ca parents: 833 diff changeset	1109
542 e22c45e26653 intitial checkin ca parents: diff changeset	1110	update:something with:aParameter from:changedObject
e22c45e26653 intitial checkin ca parents: diff changeset	1111	"one of my rows/cells changed its value
e22c45e26653 intitial checkin ca parents: diff changeset	1112	"
618 6a79bf9b4cd3 support list with undefined rows ca parents: 612 diff changeset	1113	\|row\|
542 e22c45e26653 intitial checkin ca parents: diff changeset	1114
612 af7786327bd4 add columnHolder ca parents: 610 diff changeset	1115	changedObject == columnHolder ifTrue:[
af7786327bd4 add columnHolder ca parents: 610 diff changeset	1116	^ self columnDescriptors:(columnHolder value)
622 2588f809445d update:with:from: ca parents: 618 diff changeset	1117	].
2588f809445d update:with:from: ca parents: 618 diff changeset	1118
2588f809445d update:with:from: ca parents: 618 diff changeset	1119	changedObject == editValue ifTrue:[
2588f809445d update:with:from: ca parents: 618 diff changeset	1120	^ self selectedColumn at:(self firstIndexSelected) put:(editValue value)
2588f809445d update:with:from: ca parents: 618 diff changeset	1121	].
2588f809445d update:with:from: ca parents: 618 diff changeset	1122
2588f809445d update:with:from: ca parents: 618 diff changeset	1123	row := (something isNumber) ifTrue:[something] ifFalse:[changedObject].
809 0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	1124	self redrawVisibleRow:row readSelector:aParameter.
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	1125
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	1126	! !
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	1127
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	1128	!DSVColumnView methodsFor:'drag & drop'!
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	1129
824 d2e60c8ac775 support of Drag & Drop ca parents: 809 diff changeset	1130	canDrag
d2e60c8ac775 support of Drag & Drop ca parents: 809 diff changeset	1131	"returns true if dragging is enabled
d2e60c8ac775 support of Drag & Drop ca parents: 809 diff changeset	1132	"
d2e60c8ac775 support of Drag & Drop ca parents: 809 diff changeset	1133	^ dropSource notNil
d2e60c8ac775 support of Drag & Drop ca parents: 809 diff changeset	1134
d2e60c8ac775 support of Drag & Drop ca parents: 809 diff changeset	1135	!
d2e60c8ac775 support of Drag & Drop ca parents: 809 diff changeset	1136
d2e60c8ac775 support of Drag & Drop ca parents: 809 diff changeset	1137	dropSource
d2e60c8ac775 support of Drag & Drop ca parents: 809 diff changeset	1138	"returns the dropSource or nil
809 0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	1139	"
824 d2e60c8ac775 support of Drag & Drop ca parents: 809 diff changeset	1140	^ dropSource
d2e60c8ac775 support of Drag & Drop ca parents: 809 diff changeset	1141
d2e60c8ac775 support of Drag & Drop ca parents: 809 diff changeset	1142
d2e60c8ac775 support of Drag & Drop ca parents: 809 diff changeset	1143	!
d2e60c8ac775 support of Drag & Drop ca parents: 809 diff changeset	1144
d2e60c8ac775 support of Drag & Drop ca parents: 809 diff changeset	1145	dropSource:aDropSourceOrNil
d2e60c8ac775 support of Drag & Drop ca parents: 809 diff changeset	1146	"set the dropSource or nil
d2e60c8ac775 support of Drag & Drop ca parents: 809 diff changeset	1147	"
d2e60c8ac775 support of Drag & Drop ca parents: 809 diff changeset	1148	dropSource := aDropSourceOrNil.
d2e60c8ac775 support of Drag & Drop ca parents: 809 diff changeset	1149
809 0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	1150
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	1151	!
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	1152
824 d2e60c8ac775 support of Drag & Drop ca parents: 809 diff changeset	1153	dropTarget
d2e60c8ac775 support of Drag & Drop ca parents: 809 diff changeset	1154	"returns the dropTarget or nil
809 0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	1155	"
824 d2e60c8ac775 support of Drag & Drop ca parents: 809 diff changeset	1156	^ dropTarget
d2e60c8ac775 support of Drag & Drop ca parents: 809 diff changeset	1157
d2e60c8ac775 support of Drag & Drop ca parents: 809 diff changeset	1158	!
d2e60c8ac775 support of Drag & Drop ca parents: 809 diff changeset	1159
d2e60c8ac775 support of Drag & Drop ca parents: 809 diff changeset	1160	dropTarget:aDropTragetOrNil
d2e60c8ac775 support of Drag & Drop ca parents: 809 diff changeset	1161	"set the dropTarget or nil
d2e60c8ac775 support of Drag & Drop ca parents: 809 diff changeset	1162	"
d2e60c8ac775 support of Drag & Drop ca parents: 809 diff changeset	1163	dropTarget := aDropTragetOrNil.
d2e60c8ac775 support of Drag & Drop ca parents: 809 diff changeset	1164
d2e60c8ac775 support of Drag & Drop ca parents: 809 diff changeset	1165	!
d2e60c8ac775 support of Drag & Drop ca parents: 809 diff changeset	1166
d2e60c8ac775 support of Drag & Drop ca parents: 809 diff changeset	1167	startDragAt:aPoint
d2e60c8ac775 support of Drag & Drop ca parents: 809 diff changeset	1168	(dragIsActive not and:[dropSource notNil]) ifTrue:[
809 0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	1169	dragIsActive := true.
824 d2e60c8ac775 support of Drag & Drop ca parents: 809 diff changeset	1170	dropSource startDragIn:self at:aPoint
809 0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	1171	]
824 d2e60c8ac775 support of Drag & Drop ca parents: 809 diff changeset	1172
542 e22c45e26653 intitial checkin ca parents: diff changeset	1173	! !
e22c45e26653 intitial checkin ca parents: diff changeset	1174
637 e56ec99923ae VW compatible ca parents: 622 diff changeset	1175	!DSVColumnView methodsFor:'drawing'!
e56ec99923ae VW compatible ca parents: 622 diff changeset	1176
e56ec99923ae VW compatible ca parents: 622 diff changeset	1177	colorOnDevice:aColor
e56ec99923ae VW compatible ca parents: 622 diff changeset	1178	"returns color on device
e56ec99923ae VW compatible ca parents: 622 diff changeset	1179	"
e56ec99923ae VW compatible ca parents: 622 diff changeset	1180	\|col\|
e56ec99923ae VW compatible ca parents: 622 diff changeset	1181
641 b447a5ce96c7 color tz parents: 637 diff changeset	1182	aColor = Color noColor ifFalse:[
b447a5ce96c7 color tz parents: 637 diff changeset	1183	col := colorMap at:aColor ifAbsent:nil.
637 e56ec99923ae VW compatible ca parents: 622 diff changeset	1184
641 b447a5ce96c7 color tz parents: 637 diff changeset	1185	col isNil ifTrue:[
b447a5ce96c7 color tz parents: 637 diff changeset	1186	colorMap at:aColor put:(col := aColor on:device)
b447a5ce96c7 color tz parents: 637 diff changeset	1187	].
b447a5ce96c7 color tz parents: 637 diff changeset	1188	^ col
637 e56ec99923ae VW compatible ca parents: 622 diff changeset	1189	].
641 b447a5ce96c7 color tz parents: 637 diff changeset	1190	^ bgColor
637 e56ec99923ae VW compatible ca parents: 622 diff changeset	1191	!
e56ec99923ae VW compatible ca parents: 622 diff changeset	1192
e56ec99923ae VW compatible ca parents: 622 diff changeset	1193	forceRedraw
e56ec99923ae VW compatible ca parents: 622 diff changeset	1194	"a redraw forced by any other component
e56ec99923ae VW compatible ca parents: 622 diff changeset	1195	"
e56ec99923ae VW compatible ca parents: 622 diff changeset	1196	self redraw
e56ec99923ae VW compatible ca parents: 622 diff changeset	1197	!
e56ec99923ae VW compatible ca parents: 622 diff changeset	1198
e56ec99923ae VW compatible ca parents: 622 diff changeset	1199	invalidate
e56ec99923ae VW compatible ca parents: 622 diff changeset	1200	"recompute extent before repair range
e56ec99923ae VW compatible ca parents: 622 diff changeset	1201	"
e56ec99923ae VW compatible ca parents: 622 diff changeset	1202	self recomputeHeightOfContents.
e56ec99923ae VW compatible ca parents: 622 diff changeset	1203	super invalidate.
e56ec99923ae VW compatible ca parents: 622 diff changeset	1204
e56ec99923ae VW compatible ca parents: 622 diff changeset	1205
e56ec99923ae VW compatible ca parents: 622 diff changeset	1206	!
e56ec99923ae VW compatible ca parents: 622 diff changeset	1207
e56ec99923ae VW compatible ca parents: 622 diff changeset	1208	redraw
e56ec99923ae VW compatible ca parents: 622 diff changeset	1209	"redraw complete view
e56ec99923ae VW compatible ca parents: 622 diff changeset	1210	"
e56ec99923ae VW compatible ca parents: 622 diff changeset	1211	self redrawX:0 y:0 width:width height:height.
e56ec99923ae VW compatible ca parents: 622 diff changeset	1212
e56ec99923ae VW compatible ca parents: 622 diff changeset	1213	!
e56ec99923ae VW compatible ca parents: 622 diff changeset	1214
e56ec99923ae VW compatible ca parents: 622 diff changeset	1215	redrawRowAt:aRowNr
e56ec99923ae VW compatible ca parents: 622 diff changeset	1216	"redraw total row at an index
e56ec99923ae VW compatible ca parents: 622 diff changeset	1217	"
e56ec99923ae VW compatible ca parents: 622 diff changeset	1218	self redrawRowAt:aRowNr colAt:0
e56ec99923ae VW compatible ca parents: 622 diff changeset	1219	!
e56ec99923ae VW compatible ca parents: 622 diff changeset	1220
e56ec99923ae VW compatible ca parents: 622 diff changeset	1221	redrawRowAt:aRowNr colAt:aColNr
e56ec99923ae VW compatible ca parents: 622 diff changeset	1222	"redraw visible row in case of aColNr == 0 or the column in a row;
e56ec99923ae VW compatible ca parents: 622 diff changeset	1223	in case that the row/column is hidden no redraw is done
e56ec99923ae VW compatible ca parents: 622 diff changeset	1224	"
e56ec99923ae VW compatible ca parents: 622 diff changeset	1225	\|x y h w\|
e56ec99923ae VW compatible ca parents: 622 diff changeset	1226
886 57bd1eddba23 catch empty line in redraw ca parents: 874 diff changeset	1227	aRowNr isNil ifTrue:[
57bd1eddba23 catch empty line in redraw ca parents: 874 diff changeset	1228	^ self
57bd1eddba23 catch empty line in redraw ca parents: 874 diff changeset	1229	].
57bd1eddba23 catch empty line in redraw ca parents: 874 diff changeset	1230
637 e56ec99923ae VW compatible ca parents: 622 diff changeset	1231	(shown and:[aRowNr between:1 and:self size]) ifTrue:[
1131 ef8f528399aa clear background under button ca parents: 1129 diff changeset	1232	h := rowHeight.
637 e56ec99923ae VW compatible ca parents: 622 diff changeset	1233
e56ec99923ae VW compatible ca parents: 622 diff changeset	1234	(y := self yVisibleOfRowNr:aRowNr) < margin ifTrue:[
e56ec99923ae VW compatible ca parents: 622 diff changeset	1235	(h := h + y) <= margin ifTrue:[
e56ec99923ae VW compatible ca parents: 622 diff changeset	1236	^ self
e56ec99923ae VW compatible ca parents: 622 diff changeset	1237	]. "/ row not visible
e56ec99923ae VW compatible ca parents: 622 diff changeset	1238	h := h - margin.
e56ec99923ae VW compatible ca parents: 622 diff changeset	1239	y := margin.
e56ec99923ae VW compatible ca parents: 622 diff changeset	1240	] ifFalse:[
e56ec99923ae VW compatible ca parents: 622 diff changeset	1241	y >= height ifTrue:[^ self].
e56ec99923ae VW compatible ca parents: 622 diff changeset	1242	].
e56ec99923ae VW compatible ca parents: 622 diff changeset	1243	aColNr ~~ 0 ifTrue:[ "/ redraw column in row
e56ec99923ae VW compatible ca parents: 622 diff changeset	1244	w := (self columnAt:aColNr) width.
e56ec99923ae VW compatible ca parents: 622 diff changeset	1245
e56ec99923ae VW compatible ca parents: 622 diff changeset	1246	(x := self xVisibleOfColNr:aColNr) < margin ifTrue:[
e56ec99923ae VW compatible ca parents: 622 diff changeset	1247	(w := w + x) <= margin ifTrue:[
e56ec99923ae VW compatible ca parents: 622 diff changeset	1248	^ self
e56ec99923ae VW compatible ca parents: 622 diff changeset	1249	]. "/ column not visible
e56ec99923ae VW compatible ca parents: 622 diff changeset	1250	w := w - margin.
e56ec99923ae VW compatible ca parents: 622 diff changeset	1251	x := margin.
e56ec99923ae VW compatible ca parents: 622 diff changeset	1252	] ifFalse:[
e56ec99923ae VW compatible ca parents: 622 diff changeset	1253	x >= width ifTrue:[^ self].
e56ec99923ae VW compatible ca parents: 622 diff changeset	1254	]
e56ec99923ae VW compatible ca parents: 622 diff changeset	1255	] ifFalse:[ "/ redraw whole row
e56ec99923ae VW compatible ca parents: 622 diff changeset	1256	x := margin.
e56ec99923ae VW compatible ca parents: 622 diff changeset	1257	w := width.
e56ec99923ae VW compatible ca parents: 622 diff changeset	1258	].
e56ec99923ae VW compatible ca parents: 622 diff changeset	1259	self redrawX:x y:y width:w height:h
e56ec99923ae VW compatible ca parents: 622 diff changeset	1260	]
e56ec99923ae VW compatible ca parents: 622 diff changeset	1261	!
e56ec99923ae VW compatible ca parents: 622 diff changeset	1262
e56ec99923ae VW compatible ca parents: 622 diff changeset	1263	redrawVisibleRow:aRow
e56ec99923ae VW compatible ca parents: 622 diff changeset	1264	"redraw row if visible
e56ec99923ae VW compatible ca parents: 622 diff changeset	1265	"
809 0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	1266	self redrawVisibleRow:aRow colAt:0
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	1267
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	1268	!
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	1269
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	1270	redrawVisibleRow:aRow colAt:aColNr
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	1271	"redraw row if visible
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	1272	"
637 e56ec99923ae VW compatible ca parents: 622 diff changeset	1273	\|start "{ Class:SmallInteger }"
e56ec99923ae VW compatible ca parents: 622 diff changeset	1274	stop "{ Class:SmallInteger }"
e56ec99923ae VW compatible ca parents: 622 diff changeset	1275	\|
e56ec99923ae VW compatible ca parents: 622 diff changeset	1276
e56ec99923ae VW compatible ca parents: 622 diff changeset	1277	(start := self indexOfFirstRowShown) ~~ 0 ifTrue:[
e56ec99923ae VW compatible ca parents: 622 diff changeset	1278	stop := (start + (height // rowHeight)) min:(self size).
e56ec99923ae VW compatible ca parents: 622 diff changeset	1279
e56ec99923ae VW compatible ca parents: 622 diff changeset	1280	aRow isNumber ifTrue:[
e56ec99923ae VW compatible ca parents: 622 diff changeset	1281	(aRow between:start and:stop) ifTrue:[
809 0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	1282	self redrawRowAt:aRow colAt:aColNr
637 e56ec99923ae VW compatible ca parents: 622 diff changeset	1283	]
e56ec99923ae VW compatible ca parents: 622 diff changeset	1284	] ifFalse:[
e56ec99923ae VW compatible ca parents: 622 diff changeset	1285	start to:stop do:[:i\|
e56ec99923ae VW compatible ca parents: 622 diff changeset	1286	(self at:i) == aRow ifTrue:[
809 0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	1287	^ self redrawRowAt:i colAt:aColNr
637 e56ec99923ae VW compatible ca parents: 622 diff changeset	1288	]
e56ec99923ae VW compatible ca parents: 622 diff changeset	1289	]
e56ec99923ae VW compatible ca parents: 622 diff changeset	1290	]
e56ec99923ae VW compatible ca parents: 622 diff changeset	1291	]
809 0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	1292
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	1293
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	1294	!
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	1295
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	1296	redrawVisibleRow:aRow readSelector:aSelector
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	1297	"redraw a column identified by its read selector; if no column with
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	1298	the specified read selector is detected, the whole line is drawn.
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	1299	"
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	1300	\|row idx\|
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	1301
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	1302	aSelector isNil ifTrue:[
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	1303	idx := 0
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	1304	] ifFalse:[
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	1305	(row := aRow) isNumber ifTrue:[
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	1306	(row := self at:aRow) isNil ifTrue:[ ^ self ]
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	1307	].
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	1308	idx := columnDescriptors findFirst:[:aCol\|\|desc\|
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	1309	aCol description readSelector == aSelector
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	1310	]
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	1311	].
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	1312	self redrawVisibleRow:aRow colAt:idx
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	1313
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	1314
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	1315
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	1316
637 e56ec99923ae VW compatible ca parents: 622 diff changeset	1317	!
e56ec99923ae VW compatible ca parents: 622 diff changeset	1318
e56ec99923ae VW compatible ca parents: 622 diff changeset	1319	redrawX:x y:y width:w height:h
e56ec99923ae VW compatible ca parents: 622 diff changeset	1320	"redraw part of myself immediately, given logical coordinates
e56ec99923ae VW compatible ca parents: 622 diff changeset	1321	"
1112 81f2a7f0afdc draw routines for interactors ca parents: 1111 diff changeset	1322	\|c0 savClip rctg
1149 c212f122c8b3 allow collections of string and icons for a cell label Claus Gittinger <cg@exept.de> parents: 1136 diff changeset	1323	start "{ Class:SmallInteger }"
c212f122c8b3 allow collections of string and icons for a cell label Claus Gittinger <cg@exept.de> parents: 1136 diff changeset	1324	stop "{ Class:SmallInteger }"
c212f122c8b3 allow collections of string and icons for a cell label Claus Gittinger <cg@exept.de> parents: 1136 diff changeset	1325	x0 "{ Class:SmallInteger }"
c212f122c8b3 allow collections of string and icons for a cell label Claus Gittinger <cg@exept.de> parents: 1136 diff changeset	1326	x1 "{ Class:SmallInteger }"
c212f122c8b3 allow collections of string and icons for a cell label Claus Gittinger <cg@exept.de> parents: 1136 diff changeset	1327	maxX "{ Class:SmallInteger }"
c212f122c8b3 allow collections of string and icons for a cell label Claus Gittinger <cg@exept.de> parents: 1136 diff changeset	1328	yTop "{ Class:SmallInteger }"
c212f122c8b3 allow collections of string and icons for a cell label Claus Gittinger <cg@exept.de> parents: 1136 diff changeset	1329	yBot "{ Class:SmallInteger }"
c212f122c8b3 allow collections of string and icons for a cell label Claus Gittinger <cg@exept.de> parents: 1136 diff changeset	1330	clHg "{ Class:SmallInteger }"
c212f122c8b3 allow collections of string and icons for a cell label Claus Gittinger <cg@exept.de> parents: 1136 diff changeset	1331	size "{ Class:SmallInteger }"
637 e56ec99923ae VW compatible ca parents: 622 diff changeset	1332	\|
e56ec99923ae VW compatible ca parents: 622 diff changeset	1333
e56ec99923ae VW compatible ca parents: 622 diff changeset	1334	shown ifFalse:[^ self].
e56ec99923ae VW compatible ca parents: 622 diff changeset	1335	self paint:bgColor.
1115 7f3f4581c3d3 clear background ca parents: 1112 diff changeset	1336
7f3f4581c3d3 clear background ca parents: 1112 diff changeset	1337	columnDescriptors isEmpty ifTrue:[
7f3f4581c3d3 clear background ca parents: 1112 diff changeset	1338	^ self fillRectangleX:x y:y width:w height:h
7f3f4581c3d3 clear background ca parents: 1112 diff changeset	1339	].
1131 ef8f528399aa clear background under button ca parents: 1129 diff changeset	1340	size := list size.
1115 7f3f4581c3d3 clear background ca parents: 1112 diff changeset	1341	yTop := margin - viewOrigin y.
7f3f4581c3d3 clear background ca parents: 1112 diff changeset	1342	c0 := y - yTop max:0.
7f3f4581c3d3 clear background ca parents: 1112 diff changeset	1343	start := (c0 // rowHeight) + 1.
1131 ef8f528399aa clear background under button ca parents: 1129 diff changeset	1344	stop := (c0 + h - 1 // rowHeight + 1) min:size.
1115 7f3f4581c3d3 clear background ca parents: 1112 diff changeset	1345
7f3f4581c3d3 clear background ca parents: 1112 diff changeset	1346	stop < start ifTrue:[
7f3f4581c3d3 clear background ca parents: 1112 diff changeset	1347	^ self fillRectangleX:x y:y width:w height:h
7f3f4581c3d3 clear background ca parents: 1112 diff changeset	1348	].
7f3f4581c3d3 clear background ca parents: 1112 diff changeset	1349	savClip := clipRect.
1149 c212f122c8b3 allow collections of string and icons for a cell label Claus Gittinger <cg@exept.de> parents: 1136 diff changeset	1350
1115 7f3f4581c3d3 clear background ca parents: 1112 diff changeset	1351	maxX := (x + w) min:(width - margin).
7f3f4581c3d3 clear background ca parents: 1112 diff changeset	1352	x0 := margin - viewOrigin x.
7f3f4581c3d3 clear background ca parents: 1112 diff changeset	1353	yTop := yTop + ((start - 1) * rowHeight).
7f3f4581c3d3 clear background ca parents: 1112 diff changeset	1354	rctg := Rectangle left:x top:y width:w height:h.
1131 ef8f528399aa clear background under button ca parents: 1129 diff changeset	1355	clHg := (stop - start + 1) * rowHeight.
ef8f528399aa clear background under button ca parents: 1129 diff changeset	1356	yBot := yTop + clHg.
ef8f528399aa clear background under button ca parents: 1129 diff changeset	1357
ef8f528399aa clear background under button ca parents: 1129 diff changeset	1358	columnDescriptors do:[:aCol\|
1115 7f3f4581c3d3 clear background ca parents: 1112 diff changeset	1359	x1 := x0 + aCol width.
7f3f4581c3d3 clear background ca parents: 1112 diff changeset	1360
7f3f4581c3d3 clear background ca parents: 1112 diff changeset	1361	(x1 > x and:[x0 < maxX]) ifTrue:[
7f3f4581c3d3 clear background ca parents: 1112 diff changeset	1362	rctg width:((x1 min:maxX) - x).
7f3f4581c3d3 clear background ca parents: 1112 diff changeset	1363	clipRect := nil.
7f3f4581c3d3 clear background ca parents: 1112 diff changeset	1364	self clippingRectangle:rctg.
1131 ef8f528399aa clear background under button ca parents: 1129 diff changeset	1365	aCol redrawX:x0 y:yTop h:clHg from:start to:stop.
1115 7f3f4581c3d3 clear background ca parents: 1112 diff changeset	1366	].
7f3f4581c3d3 clear background ca parents: 1112 diff changeset	1367	x0 := x1
7f3f4581c3d3 clear background ca parents: 1112 diff changeset	1368	].
1131 ef8f528399aa clear background under button ca parents: 1129 diff changeset	1369
ef8f528399aa clear background under button ca parents: 1129 diff changeset	1370	"/ restore old clipping rectangle
1115 7f3f4581c3d3 clear background ca parents: 1112 diff changeset	1371	self clippingRectangle:savClip.
1131 ef8f528399aa clear background under button ca parents: 1129 diff changeset	1372
ef8f528399aa clear background under button ca parents: 1129 diff changeset	1373	stop == size ifTrue:[
1115 7f3f4581c3d3 clear background ca parents: 1112 diff changeset	1374	yTop := y + h.
7f3f4581c3d3 clear background ca parents: 1112 diff changeset	1375	yBot < (yTop - margin) ifTrue:[
1149 c212f122c8b3 allow collections of string and icons for a cell label Claus Gittinger <cg@exept.de> parents: 1136 diff changeset	1376	"/ clear to bottom of screen
1115 7f3f4581c3d3 clear background ca parents: 1112 diff changeset	1377	self paint:bgColor.
1149 c212f122c8b3 allow collections of string and icons for a cell label Claus Gittinger <cg@exept.de> parents: 1136 diff changeset	1378	self fillRectangleX:x y:yBot width:w height:(yTop - yBot).
1112 81f2a7f0afdc draw routines for interactors ca parents: 1111 diff changeset	1379	]
1136 4a9d9db81422 set bg/fg color when drawing an interactor ca parents: 1134 diff changeset	1380	].
4a9d9db81422 set bg/fg color when drawing an interactor ca parents: 1134 diff changeset	1381
1149 c212f122c8b3 allow collections of string and icons for a cell label Claus Gittinger <cg@exept.de> parents: 1136 diff changeset	1382	(c0 := w + x- x1) > 0 ifTrue:[
c212f122c8b3 allow collections of string and icons for a cell label Claus Gittinger <cg@exept.de> parents: 1136 diff changeset	1383	"/ clear to right of screen
1136 4a9d9db81422 set bg/fg color when drawing an interactor ca parents: 1134 diff changeset	1384	self paint:bgColor.
4a9d9db81422 set bg/fg color when drawing an interactor ca parents: 1134 diff changeset	1385	self fillRectangleX:x1 y:y width:c0 height:h.
4a9d9db81422 set bg/fg color when drawing an interactor ca parents: 1134 diff changeset	1386	].
1149 c212f122c8b3 allow collections of string and icons for a cell label Claus Gittinger <cg@exept.de> parents: 1136 diff changeset	1387
1112 81f2a7f0afdc draw routines for interactors ca parents: 1111 diff changeset	1388	! !
81f2a7f0afdc draw routines for interactors ca parents: 1111 diff changeset	1389
81f2a7f0afdc draw routines for interactors ca parents: 1111 diff changeset	1390	!DSVColumnView methodsFor:'drawing interactors'!
81f2a7f0afdc draw routines for interactors ca parents: 1111 diff changeset	1391
1131 ef8f528399aa clear background under button ca parents: 1129 diff changeset	1392	drawCheckToggleAtX:xTop y:yTop w:rowWidth state:aState
1112 81f2a7f0afdc draw routines for interactors ca parents: 1111 diff changeset	1393	"draw a check toggle button
81f2a7f0afdc draw routines for interactors ca parents: 1111 diff changeset	1394	"
81f2a7f0afdc draw routines for interactors ca parents: 1111 diff changeset	1395	\|e form
81f2a7f0afdc draw routines for interactors ca parents: 1111 diff changeset	1396	y "{ Class:SmallInteger }"
81f2a7f0afdc draw routines for interactors ca parents: 1111 diff changeset	1397	x "{ Class:SmallInteger }"
81f2a7f0afdc draw routines for interactors ca parents: 1111 diff changeset	1398	h "{ Class:SmallInteger }"
81f2a7f0afdc draw routines for interactors ca parents: 1111 diff changeset	1399	w "{ Class:SmallInteger }"
81f2a7f0afdc draw routines for interactors ca parents: 1111 diff changeset	1400	\|
81f2a7f0afdc draw routines for interactors ca parents: 1111 diff changeset	1401	w := checkToggleExtent x.
81f2a7f0afdc draw routines for interactors ca parents: 1111 diff changeset	1402	h := checkToggleExtent y.
81f2a7f0afdc draw routines for interactors ca parents: 1111 diff changeset	1403	y := yTop + (rowHeight - h // 2).
81f2a7f0afdc draw routines for interactors ca parents: 1111 diff changeset	1404	x := xTop + (rowWidth - w // 2).
81f2a7f0afdc draw routines for interactors ca parents: 1111 diff changeset	1405
81f2a7f0afdc draw routines for interactors ca parents: 1111 diff changeset	1406	(form := checkToggleActiveImage) isNil ifTrue:[
1131 ef8f528399aa clear background under button ca parents: 1129 diff changeset	1407	self paint:bgColor.
ef8f528399aa clear background under button ca parents: 1129 diff changeset	1408	self fillRectangleX:x y:y width:w height:h.
ef8f528399aa clear background under button ca parents: 1129 diff changeset	1409	self drawEdgesAtX:x y:y width:w height:h level:checkToggleLevel on:self.
ef8f528399aa clear background under button ca parents: 1129 diff changeset	1410
1112 81f2a7f0afdc draw routines for interactors ca parents: 1111 diff changeset	1411	aState ifFalse:[
81f2a7f0afdc draw routines for interactors ca parents: 1111 diff changeset	1412	^ self
81f2a7f0afdc draw routines for interactors ca parents: 1111 diff changeset	1413	].
1149 c212f122c8b3 allow collections of string and icons for a cell label Claus Gittinger <cg@exept.de> parents: 1136 diff changeset	1414	self paint:fgColor on:bgColor.
1112 81f2a7f0afdc draw routines for interactors ca parents: 1111 diff changeset	1415	form := checkToggleForm
81f2a7f0afdc draw routines for interactors ca parents: 1111 diff changeset	1416	] ifFalse:[
81f2a7f0afdc draw routines for interactors ca parents: 1111 diff changeset	1417	aState ifFalse:[form := checkTogglePassiveImage]
859 e63eb6f321e1 support List for columns ca parents: 833 diff changeset	1418	].
1112 81f2a7f0afdc draw routines for interactors ca parents: 1111 diff changeset	1419	e := (checkToggleExtent - form extent) // 2.
81f2a7f0afdc draw routines for interactors ca parents: 1111 diff changeset	1420	self displayForm:form x:(x + e x) y:(y + e y).
81f2a7f0afdc draw routines for interactors ca parents: 1111 diff changeset	1421
81f2a7f0afdc draw routines for interactors ca parents: 1111 diff changeset	1422
81f2a7f0afdc draw routines for interactors ca parents: 1111 diff changeset	1423
81f2a7f0afdc draw routines for interactors ca parents: 1111 diff changeset	1424
81f2a7f0afdc draw routines for interactors ca parents: 1111 diff changeset	1425
81f2a7f0afdc draw routines for interactors ca parents: 1111 diff changeset	1426	!
81f2a7f0afdc draw routines for interactors ca parents: 1111 diff changeset	1427
1131 ef8f528399aa clear background under button ca parents: 1129 diff changeset	1428	drawComboButtonAtX:xTop y:yTop w:rowWidth
1112 81f2a7f0afdc draw routines for interactors ca parents: 1111 diff changeset	1429	"draw a combo button
81f2a7f0afdc draw routines for interactors ca parents: 1111 diff changeset	1430	"
81f2a7f0afdc draw routines for interactors ca parents: 1111 diff changeset	1431	\|e
81f2a7f0afdc draw routines for interactors ca parents: 1111 diff changeset	1432	x "{ Class:SmallInteger }"
81f2a7f0afdc draw routines for interactors ca parents: 1111 diff changeset	1433	y "{ Class:SmallInteger }"
81f2a7f0afdc draw routines for interactors ca parents: 1111 diff changeset	1434	h "{ Class:SmallInteger }"
81f2a7f0afdc draw routines for interactors ca parents: 1111 diff changeset	1435	w "{ Class:SmallInteger }"
81f2a7f0afdc draw routines for interactors ca parents: 1111 diff changeset	1436	\|
81f2a7f0afdc draw routines for interactors ca parents: 1111 diff changeset	1437	w := comboButtonExtent x.
81f2a7f0afdc draw routines for interactors ca parents: 1111 diff changeset	1438	h := comboButtonExtent y.
81f2a7f0afdc draw routines for interactors ca parents: 1111 diff changeset	1439	y := yTop + (rowHeight - h // 2).
1149 c212f122c8b3 allow collections of string and icons for a cell label Claus Gittinger <cg@exept.de> parents: 1136 diff changeset	1440	x := xTop + (rowWidth - w - separatorSize - 1).
1112 81f2a7f0afdc draw routines for interactors ca parents: 1111 diff changeset	1441	e := (comboButtonExtent - comboButtonForm extent) // 2.
81f2a7f0afdc draw routines for interactors ca parents: 1111 diff changeset	1442
1131 ef8f528399aa clear background under button ca parents: 1129 diff changeset	1443	self paint:bgColor.
ef8f528399aa clear background under button ca parents: 1129 diff changeset	1444	self fillRectangleX:x y:y width:w height:h.
ef8f528399aa clear background under button ca parents: 1129 diff changeset	1445	self drawEdgesAtX:x y:y width:w height:h level:comboButtonLevel on:self.
1136 4a9d9db81422 set bg/fg color when drawing an interactor ca parents: 1134 diff changeset	1446	self paint:fgColor on:bgColor.
1112 81f2a7f0afdc draw routines for interactors ca parents: 1111 diff changeset	1447	self displayForm:comboButtonForm x:(x + e x) y:(y + e y)
81f2a7f0afdc draw routines for interactors ca parents: 1111 diff changeset	1448
81f2a7f0afdc draw routines for interactors ca parents: 1111 diff changeset	1449	!
81f2a7f0afdc draw routines for interactors ca parents: 1111 diff changeset	1450
81f2a7f0afdc draw routines for interactors ca parents: 1111 diff changeset	1451	drawEdgesAtX:x y:y width:w height:h level:aLevel on:aGC
81f2a7f0afdc draw routines for interactors ca parents: 1111 diff changeset	1452	"draw edges for a cell or label
81f2a7f0afdc draw routines for interactors ca parents: 1111 diff changeset	1453	"
81f2a7f0afdc draw routines for interactors ca parents: 1111 diff changeset	1454	aGC drawEdgesForX:x
81f2a7f0afdc draw routines for interactors ca parents: 1111 diff changeset	1455	y:y
81f2a7f0afdc draw routines for interactors ca parents: 1111 diff changeset	1456	width:w
81f2a7f0afdc draw routines for interactors ca parents: 1111 diff changeset	1457	height:h
81f2a7f0afdc draw routines for interactors ca parents: 1111 diff changeset	1458	level:aLevel
81f2a7f0afdc draw routines for interactors ca parents: 1111 diff changeset	1459	shadow:buttonShadowColor
81f2a7f0afdc draw routines for interactors ca parents: 1111 diff changeset	1460	light:buttonLightColor
81f2a7f0afdc draw routines for interactors ca parents: 1111 diff changeset	1461	halfShadow:buttonHalfShadowColor
81f2a7f0afdc draw routines for interactors ca parents: 1111 diff changeset	1462	halfLight:buttonHalfLightColor
81f2a7f0afdc draw routines for interactors ca parents: 1111 diff changeset	1463	style:ButtonEdgeStyle.
81f2a7f0afdc draw routines for interactors ca parents: 1111 diff changeset	1464
637 e56ec99923ae VW compatible ca parents: 622 diff changeset	1465	! !
e56ec99923ae VW compatible ca parents: 622 diff changeset	1466
542 e22c45e26653 intitial checkin ca parents: diff changeset	1467	!DSVColumnView methodsFor:'enumerating columns'!
e22c45e26653 intitial checkin ca parents: diff changeset	1468
e22c45e26653 intitial checkin ca parents: diff changeset	1469	columnsDo:aOneArgBlock
e22c45e26653 intitial checkin ca parents: diff changeset	1470	"evaluate the argument, aOneArgBlock for every column
e22c45e26653 intitial checkin ca parents: diff changeset	1471	"
e22c45e26653 intitial checkin ca parents: diff changeset	1472	columnDescriptors do:aOneArgBlock
e22c45e26653 intitial checkin ca parents: diff changeset	1473
e22c45e26653 intitial checkin ca parents: diff changeset	1474
e22c45e26653 intitial checkin ca parents: diff changeset	1475	!
e22c45e26653 intitial checkin ca parents: diff changeset	1476
e22c45e26653 intitial checkin ca parents: diff changeset	1477	columnsFrom:start to:stop do:aOneArgBlock
e22c45e26653 intitial checkin ca parents: diff changeset	1478	"evaluate the argument, aOneArgBlock for the columns with index start to
e22c45e26653 intitial checkin ca parents: diff changeset	1479	stop in the collection of column descriptors
e22c45e26653 intitial checkin ca parents: diff changeset	1480	"
e22c45e26653 intitial checkin ca parents: diff changeset	1481	columnDescriptors from:start to:stop do:aOneArgBlock
e22c45e26653 intitial checkin ca parents: diff changeset	1482
e22c45e26653 intitial checkin ca parents: diff changeset	1483
e22c45e26653 intitial checkin ca parents: diff changeset	1484	! !
e22c45e26653 intitial checkin ca parents: diff changeset	1485
e22c45e26653 intitial checkin ca parents: diff changeset	1486	!DSVColumnView methodsFor:'event handling'!
e22c45e26653 intitial checkin ca parents: diff changeset	1487
607 a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	1488	buttonMotion:buttonMask x:x y:y
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	1489	"mouse-move while button was pressed - handle multiple selection changes
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	1490	"
991 c1bc86ebe79e removed unused locals Claus Gittinger <cg@exept.de> parents: 990 diff changeset	1491	\|idx scr p\|
607 a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	1492
809 0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	1493	dragAccessPoint notNil ifTrue:[
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	1494	dragIsActive ifFalse:[
824 d2e60c8ac775 support of Drag & Drop ca parents: 809 diff changeset	1495	p := x @ y.
d2e60c8ac775 support of Drag & Drop ca parents: 809 diff changeset	1496	(clickPosition dist:p) > 5.0 ifTrue:[ self startDragAt:p ]
809 0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	1497	].
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	1498	^ self
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	1499	].
607 a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	1500	self sensor ctrlDown ifTrue:[^ self ].
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	1501
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	1502	(multipleSelectOk and:[selectedColIndex == 0 and:[selectedRowIndex notNil]]) ifFalse:[
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	1503	^ self
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	1504	].
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	1505	"is it the select or 1-button ?"
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	1506
1023 59c1888ca494 use another left-button-down test in #buttonMotion. Claus Gittinger <cg@exept.de> parents: 1008 diff changeset	1507	self sensor leftButtonPressed ifFalse:[^ self].
59c1888ca494 use another left-button-down test in #buttonMotion. Claus Gittinger <cg@exept.de> parents: 1008 diff changeset	1508	"/ (device buttonMotionMask:buttonMask includesButton:#select) ifFalse:[
59c1888ca494 use another left-button-down test in #buttonMotion. Claus Gittinger <cg@exept.de> parents: 1008 diff changeset	1509	"/ (device buttonMotionMask:buttonMask includesButton:1) ifFalse:[
59c1888ca494 use another left-button-down test in #buttonMotion. Claus Gittinger <cg@exept.de> parents: 1008 diff changeset	1510	"/ ^ self
59c1888ca494 use another left-button-down test in #buttonMotion. Claus Gittinger <cg@exept.de> parents: 1008 diff changeset	1511	"/ ].
59c1888ca494 use another left-button-down test in #buttonMotion. Claus Gittinger <cg@exept.de> parents: 1008 diff changeset	1512	"/ ].
607 a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	1513	scr := 0.
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	1514
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	1515	y > height ifTrue:[
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	1516	scr := rowHeight.
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	1517	idx := self yVisibleToRowNr:(height + rowHeight).
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	1518	] ifFalse:[
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	1519	y < 0 ifTrue:[
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	1520	scr := rowHeight negated.
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	1521	idx := self yVisibleToRowNr:scr.
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	1522	] ifFalse:[
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	1523	idx := self yVisibleToRowNr:y.
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	1524	]
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	1525	].
643 bfd44867347f adding: bug fix ca parents: 642 diff changeset	1526	(idx isNil or:[idx < 1 or:[self isInSelection:idx]]) ifTrue:[
607 a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	1527	^ self
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	1528	].
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	1529	selectedRowIndex := selectedRowIndex asOrderedCollection.
643 bfd44867347f adding: bug fix ca parents: 642 diff changeset	1530
bfd44867347f adding: bug fix ca parents: 642 diff changeset	1531	clickPosition notNil ifTrue:[
bfd44867347f adding: bug fix ca parents: 642 diff changeset	1532	(clickPosition - idx) abs > 1 ifTrue:[\|s e\|
bfd44867347f adding: bug fix ca parents: 642 diff changeset	1533	clickPosition < idx ifTrue:[
bfd44867347f adding: bug fix ca parents: 642 diff changeset	1534	s := clickPosition + 1.
bfd44867347f adding: bug fix ca parents: 642 diff changeset	1535	e := idx - 1.
bfd44867347f adding: bug fix ca parents: 642 diff changeset	1536	] ifFalse:[
bfd44867347f adding: bug fix ca parents: 642 diff changeset	1537	s := idx + 1.
bfd44867347f adding: bug fix ca parents: 642 diff changeset	1538	e := clickPosition - 1.
bfd44867347f adding: bug fix ca parents: 642 diff changeset	1539	].
bfd44867347f adding: bug fix ca parents: 642 diff changeset	1540	s to:e do:[:i\|
bfd44867347f adding: bug fix ca parents: 642 diff changeset	1541	(self isInSelection:i) ifFalse:[
bfd44867347f adding: bug fix ca parents: 642 diff changeset	1542	selectedRowIndex add:i.
bfd44867347f adding: bug fix ca parents: 642 diff changeset	1543	self redrawRowAt:i colAt:0.
bfd44867347f adding: bug fix ca parents: 642 diff changeset	1544	]
bfd44867347f adding: bug fix ca parents: 642 diff changeset	1545	]
bfd44867347f adding: bug fix ca parents: 642 diff changeset	1546	]
bfd44867347f adding: bug fix ca parents: 642 diff changeset	1547	].
bfd44867347f adding: bug fix ca parents: 642 diff changeset	1548	selectedRowIndex add:(clickPosition := idx).
607 a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	1549
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	1550	scr == 0 ifTrue:[
861 a227a3ca27e7 bug fix in multi selection ca parents: 859 diff changeset	1551	self redrawRowAt:idx colAt:0.
607 a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	1552	] ifFalse:[
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	1553	self scrollTo:(viewOrigin + (0 @ scr)) redraw:true
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	1554	].
1023 59c1888ca494 use another left-button-down test in #buttonMotion. Claus Gittinger <cg@exept.de> parents: 1008 diff changeset	1555
59c1888ca494 use another left-button-down test in #buttonMotion. Claus Gittinger <cg@exept.de> parents: 1008 diff changeset	1556	"Modified: / 28.7.1998 / 16:01:11 / cg"
607 a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	1557	!
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	1558
542 e22c45e26653 intitial checkin ca parents: diff changeset	1559	buttonMultiPress:button x:x y:y
e22c45e26653 intitial checkin ca parents: diff changeset	1560	"a button was pressed twice - handle doubleclick here
e22c45e26653 intitial checkin ca parents: diff changeset	1561	"
e22c45e26653 intitial checkin ca parents: diff changeset	1562	((button == 1) or:[button == #select]) ifFalse:[
e22c45e26653 intitial checkin ca parents: diff changeset	1563	^ super buttonMultiPress:button x:x y:y
e22c45e26653 intitial checkin ca parents: diff changeset	1564	].
607 a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	1565	self numberOfSelections == 1 ifTrue:[
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	1566	self firstIndexSelected == (self yVisibleToRowNr:y) ifTrue:[
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	1567	( selectedColIndex == 0
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	1568	or:[selectedColIndex == (self xVisibleToColNr:x)]
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	1569	) ifTrue:[
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	1570	self doubleClicked
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	1571	]
542 e22c45e26653 intitial checkin ca parents: diff changeset	1572	]
e22c45e26653 intitial checkin ca parents: diff changeset	1573	]
e22c45e26653 intitial checkin ca parents: diff changeset	1574
e22c45e26653 intitial checkin ca parents: diff changeset	1575
e22c45e26653 intitial checkin ca parents: diff changeset	1576
e22c45e26653 intitial checkin ca parents: diff changeset	1577
e22c45e26653 intitial checkin ca parents: diff changeset	1578	!
e22c45e26653 intitial checkin ca parents: diff changeset	1579
e22c45e26653 intitial checkin ca parents: diff changeset	1580	buttonPress:button x:x y:y
e22c45e26653 intitial checkin ca parents: diff changeset	1581	"a button was pressed - handle selection here
e22c45e26653 intitial checkin ca parents: diff changeset	1582	"
991 c1bc86ebe79e removed unused locals Claus Gittinger <cg@exept.de> parents: 990 diff changeset	1583	\|rowNr colNr menu sz\|
542 e22c45e26653 intitial checkin ca parents: diff changeset	1584
809 0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	1585	clickPosition := nil.
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	1586	dragAccessPoint := nil.
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	1587	dragIsActive := false.
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	1588
667 caa3c553d3d1 accessing of the middle-button assigned to a cell ca parents: 656 diff changeset	1589	((button == 2) or:[button == #menu]) ifTrue:[
caa3c553d3d1 accessing of the middle-button assigned to a cell ca parents: 656 diff changeset	1590	(menu := self findMenuForSelection) notNil ifTrue:[
caa3c553d3d1 accessing of the middle-button assigned to a cell ca parents: 656 diff changeset	1591	^ menu startUp
caa3c553d3d1 accessing of the middle-button assigned to a cell ca parents: 656 diff changeset	1592	]
caa3c553d3d1 accessing of the middle-button assigned to a cell ca parents: 656 diff changeset	1593	] ifFalse:[
caa3c553d3d1 accessing of the middle-button assigned to a cell ca parents: 656 diff changeset	1594	( (button == 1 or:[button == #select])
caa3c553d3d1 accessing of the middle-button assigned to a cell ca parents: 656 diff changeset	1595	and:[(rowNr := self yVisibleToRowNr:y) notNil
caa3c553d3d1 accessing of the middle-button assigned to a cell ca parents: 656 diff changeset	1596	and:[(colNr := self xVisibleToColNr:x) notNil]]
caa3c553d3d1 accessing of the middle-button assigned to a cell ca parents: 656 diff changeset	1597	) ifTrue:[
caa3c553d3d1 accessing of the middle-button assigned to a cell ca parents: 656 diff changeset	1598	(multipleSelectOk not or:[self sensor ctrlDown not]) ifFalse:[
caa3c553d3d1 accessing of the middle-button assigned to a cell ca parents: 656 diff changeset	1599	selectedColIndex ~~ 0 ifTrue:[
caa3c553d3d1 accessing of the middle-button assigned to a cell ca parents: 656 diff changeset	1600	colNr := 0
caa3c553d3d1 accessing of the middle-button assigned to a cell ca parents: 656 diff changeset	1601	] ifFalse:[
caa3c553d3d1 accessing of the middle-button assigned to a cell ca parents: 656 diff changeset	1602	(sz := self numberOfSelections == 0) ifFalse:[
caa3c553d3d1 accessing of the middle-button assigned to a cell ca parents: 656 diff changeset	1603	(self isInSelection:rowNr) ifTrue:[
caa3c553d3d1 accessing of the middle-button assigned to a cell ca parents: 656 diff changeset	1604	sz == 1 ifTrue:[
caa3c553d3d1 accessing of the middle-button assigned to a cell ca parents: 656 diff changeset	1605	self selectColIndex:0 rowIndex:nil.
caa3c553d3d1 accessing of the middle-button assigned to a cell ca parents: 656 diff changeset	1606	^ self sensor flushMotionEventsFor:self.
caa3c553d3d1 accessing of the middle-button assigned to a cell ca parents: 656 diff changeset	1607	].
caa3c553d3d1 accessing of the middle-button assigned to a cell ca parents: 656 diff changeset	1608	selectedRowIndex remove:rowNr.
caa3c553d3d1 accessing of the middle-button assigned to a cell ca parents: 656 diff changeset	1609	] ifFalse:[
caa3c553d3d1 accessing of the middle-button assigned to a cell ca parents: 656 diff changeset	1610	selectedRowIndex add:rowNr
caa3c553d3d1 accessing of the middle-button assigned to a cell ca parents: 656 diff changeset	1611	].
caa3c553d3d1 accessing of the middle-button assigned to a cell ca parents: 656 diff changeset	1612	self redrawRowAt:rowNr.
caa3c553d3d1 accessing of the middle-button assigned to a cell ca parents: 656 diff changeset	1613	self selectionChanged.
caa3c553d3d1 accessing of the middle-button assigned to a cell ca parents: 656 diff changeset	1614	^ self sensor flushMotionEventsFor:self.
607 a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	1615	]
667 caa3c553d3d1 accessing of the middle-button assigned to a cell ca parents: 656 diff changeset	1616	]
caa3c553d3d1 accessing of the middle-button assigned to a cell ca parents: 656 diff changeset	1617	].
824 d2e60c8ac775 support of Drag & Drop ca parents: 809 diff changeset	1618	(self canDrag and:[self isSelected:rowNr inColumn:colNr]) ifTrue:[
d2e60c8ac775 support of Drag & Drop ca parents: 809 diff changeset	1619	clickPosition := x @ y.
809 0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	1620	dragAccessPoint := (colNr @ rowNr).
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	1621	] ifFalse:[
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	1622	self selectRowAt:rowNr colAt:colNr atPoint:(x @ y)
667 caa3c553d3d1 accessing of the middle-button assigned to a cell ca parents: 656 diff changeset	1623	].
caa3c553d3d1 accessing of the middle-button assigned to a cell ca parents: 656 diff changeset	1624	^ self
542 e22c45e26653 intitial checkin ca parents: diff changeset	1625	]
e22c45e26653 intitial checkin ca parents: diff changeset	1626	].
667 caa3c553d3d1 accessing of the middle-button assigned to a cell ca parents: 656 diff changeset	1627	super buttonPress:button x:x y:y
caa3c553d3d1 accessing of the middle-button assigned to a cell ca parents: 656 diff changeset	1628
542 e22c45e26653 intitial checkin ca parents: diff changeset	1629
e22c45e26653 intitial checkin ca parents: diff changeset	1630
e22c45e26653 intitial checkin ca parents: diff changeset	1631	!
e22c45e26653 intitial checkin ca parents: diff changeset	1632
643 bfd44867347f adding: bug fix ca parents: 642 diff changeset	1633	buttonRelease:button x:x y:y
bfd44867347f adding: bug fix ca parents: 642 diff changeset	1634
bfd44867347f adding: bug fix ca parents: 642 diff changeset	1635	clickPosition notNil ifTrue:[
809 0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	1636	dragAccessPoint notNil ifTrue:[
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	1637	dragIsActive ifFalse:[
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	1638	self selectRowAt:(dragAccessPoint y)
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	1639	colAt:(dragAccessPoint x)
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	1640	atPoint:clickPosition
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	1641	].
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	1642	dragAccessPoint := nil.
824 d2e60c8ac775 support of Drag & Drop ca parents: 809 diff changeset	1643	dragIsActive := false.
809 0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	1644	] ifFalse:[
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	1645	self selectionChanged
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	1646	].
643 bfd44867347f adding: bug fix ca parents: 642 diff changeset	1647	clickPosition := nil.
bfd44867347f adding: bug fix ca parents: 642 diff changeset	1648	].
bfd44867347f adding: bug fix ca parents: 642 diff changeset	1649	super buttonRelease:button x:x y:y
bfd44867347f adding: bug fix ca parents: 642 diff changeset	1650
bfd44867347f adding: bug fix ca parents: 642 diff changeset	1651
bfd44867347f adding: bug fix ca parents: 642 diff changeset	1652	!
bfd44867347f adding: bug fix ca parents: 642 diff changeset	1653
809 0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	1654	characterPress:aChar x:x y:y
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	1655	"search row in column at x/y starting its printable label with cahracter.
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	1656	"
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	1657	\|colNr rowNr lsize found column\|
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	1658
872 ad92183a6e6b pass unhandled keys up (for focus control) Claus Gittinger <cg@exept.de> parents: 861 diff changeset	1659	(rowIfAbsentBlock notNil
896 aa07612a7c04 care for redirected messages in characterPress: Claus Gittinger <cg@exept.de> parents: 892 diff changeset	1660	or:[x isNil
aa07612a7c04 care for redirected messages in characterPress: Claus Gittinger <cg@exept.de> parents: 892 diff changeset	1661	or:[(colNr := self xVisibleToColNr:x) isNil]]) ifTrue:[
809 0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	1662	^ self
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	1663	].
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	1664	rowNr := self lastIndexSelected.
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	1665	lsize := self size.
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	1666	column := self columnAt:colNr.
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	1667	found := 0.
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	1668
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	1669	lsize > rowNr ifTrue:[
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	1670	"/ search to end
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	1671	found := column findRowNrStartingWithChar:aChar start:(rowNr + 1) stop:lsize.
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	1672	].
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	1673
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	1674	(found == 0 and:[rowNr > 1]) ifTrue:[
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	1675	"/ search from begin
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	1676	found := column findRowNrStartingWithChar:aChar start:1 stop:(rowNr - 1)
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	1677	].
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	1678	found ~~ 0 ifTrue:[
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	1679	self selectColIndex:colNr rowIndex:found.
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	1680	].
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	1681
896 aa07612a7c04 care for redirected messages in characterPress: Claus Gittinger <cg@exept.de> parents: 892 diff changeset	1682	"Modified: / 21.5.1998 / 03:30:22 / cg"
809 0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	1683	!
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	1684
542 e22c45e26653 intitial checkin ca parents: diff changeset	1685	contentsChanged
e22c45e26653 intitial checkin ca parents: diff changeset	1686	"contents changed - move origin up if possible
e22c45e26653 intitial checkin ca parents: diff changeset	1687	"
e22c45e26653 intitial checkin ca parents: diff changeset	1688	\|y\|
e22c45e26653 intitial checkin ca parents: diff changeset	1689
e22c45e26653 intitial checkin ca parents: diff changeset	1690	shown ifTrue:[
e22c45e26653 intitial checkin ca parents: diff changeset	1691	self recomputeHeightOfContents.
e22c45e26653 intitial checkin ca parents: diff changeset	1692	y := self maxViewOriginY.
e22c45e26653 intitial checkin ca parents: diff changeset	1693
e22c45e26653 intitial checkin ca parents: diff changeset	1694	viewOrigin y > y ifTrue:[
e22c45e26653 intitial checkin ca parents: diff changeset	1695	self scrollTo:(viewOrigin x @ y)
e22c45e26653 intitial checkin ca parents: diff changeset	1696	] ifFalse:[
e22c45e26653 intitial checkin ca parents: diff changeset	1697	self updateEditViewOrigin.
e22c45e26653 intitial checkin ca parents: diff changeset	1698	]
e22c45e26653 intitial checkin ca parents: diff changeset	1699	].
e22c45e26653 intitial checkin ca parents: diff changeset	1700	super contentsChanged
e22c45e26653 intitial checkin ca parents: diff changeset	1701
e22c45e26653 intitial checkin ca parents: diff changeset	1702
e22c45e26653 intitial checkin ca parents: diff changeset	1703	!
e22c45e26653 intitial checkin ca parents: diff changeset	1704
e22c45e26653 intitial checkin ca parents: diff changeset	1705	doubleClicked
e22c45e26653 intitial checkin ca parents: diff changeset	1706	"handle a double click
e22c45e26653 intitial checkin ca parents: diff changeset	1707	"
637 e56ec99923ae VW compatible ca parents: 622 diff changeset	1708	\|col sel idx\|
e56ec99923ae VW compatible ca parents: 622 diff changeset	1709
e56ec99923ae VW compatible ca parents: 622 diff changeset	1710	self hasSelection ifTrue:[
e56ec99923ae VW compatible ca parents: 622 diff changeset	1711	idx := self firstIndexSelected.
e56ec99923ae VW compatible ca parents: 622 diff changeset	1712	col := self selectedColumn.
e56ec99923ae VW compatible ca parents: 622 diff changeset	1713	(col notNil and:[(sel := col doubleClickedSelector) notNil]) ifTrue:[
e56ec99923ae VW compatible ca parents: 622 diff changeset	1714	(self at:idx) perform:sel
e56ec99923ae VW compatible ca parents: 622 diff changeset	1715	] ifFalse:[
e56ec99923ae VW compatible ca parents: 622 diff changeset	1716	doubleClickActionBlock notNil ifTrue:[
e56ec99923ae VW compatible ca parents: 622 diff changeset	1717	doubleClickActionBlock value:idx
e56ec99923ae VW compatible ca parents: 622 diff changeset	1718	]
e56ec99923ae VW compatible ca parents: 622 diff changeset	1719	]
e56ec99923ae VW compatible ca parents: 622 diff changeset	1720	]
542 e22c45e26653 intitial checkin ca parents: diff changeset	1721	!
e22c45e26653 intitial checkin ca parents: diff changeset	1722
667 caa3c553d3d1 accessing of the middle-button assigned to a cell ca parents: 656 diff changeset	1723	findMenuForSelection
caa3c553d3d1 accessing of the middle-button assigned to a cell ca parents: 656 diff changeset	1724	"find the middle button menu for the current selection; returns the menu or nil
caa3c553d3d1 accessing of the middle-button assigned to a cell ca parents: 656 diff changeset	1725	"
caa3c553d3d1 accessing of the middle-button assigned to a cell ca parents: 656 diff changeset	1726	\|col row menu\|
caa3c553d3d1 accessing of the middle-button assigned to a cell ca parents: 656 diff changeset	1727
caa3c553d3d1 accessing of the middle-button assigned to a cell ca parents: 656 diff changeset	1728	self numberOfSelections == 1 ifTrue:[
caa3c553d3d1 accessing of the middle-button assigned to a cell ca parents: 656 diff changeset	1729	row := self at:(self firstIndexSelected).
caa3c553d3d1 accessing of the middle-button assigned to a cell ca parents: 656 diff changeset	1730	col := self selectedColumn.
caa3c553d3d1 accessing of the middle-button assigned to a cell ca parents: 656 diff changeset	1731
caa3c553d3d1 accessing of the middle-button assigned to a cell ca parents: 656 diff changeset	1732	(col notNil and:[(menu := col menuForRow:row) notNil]) ifTrue:[
caa3c553d3d1 accessing of the middle-button assigned to a cell ca parents: 656 diff changeset	1733	^ menu
caa3c553d3d1 accessing of the middle-button assigned to a cell ca parents: 656 diff changeset	1734	].
caa3c553d3d1 accessing of the middle-button assigned to a cell ca parents: 656 diff changeset	1735	col := columnDescriptors detect:[:c\| c rendererType == #rowSelector]
caa3c553d3d1 accessing of the middle-button assigned to a cell ca parents: 656 diff changeset	1736	ifNone:[nil].
caa3c553d3d1 accessing of the middle-button assigned to a cell ca parents: 656 diff changeset	1737
caa3c553d3d1 accessing of the middle-button assigned to a cell ca parents: 656 diff changeset	1738	col notNil ifTrue:[
caa3c553d3d1 accessing of the middle-button assigned to a cell ca parents: 656 diff changeset	1739	^ col menuForRow:row
caa3c553d3d1 accessing of the middle-button assigned to a cell ca parents: 656 diff changeset	1740	]
caa3c553d3d1 accessing of the middle-button assigned to a cell ca parents: 656 diff changeset	1741	].
caa3c553d3d1 accessing of the middle-button assigned to a cell ca parents: 656 diff changeset	1742	^ nil
caa3c553d3d1 accessing of the middle-button assigned to a cell ca parents: 656 diff changeset	1743	!
caa3c553d3d1 accessing of the middle-button assigned to a cell ca parents: 656 diff changeset	1744
1111 4fd0430173fa support #Tab ca parents: 1109 diff changeset	1745	keyPress:aKey x:x y:y
542 e22c45e26653 intitial checkin ca parents: diff changeset	1746	"a key was pressed - handle page-keys here
e22c45e26653 intitial checkin ca parents: diff changeset	1747	"
e22c45e26653 intitial checkin ca parents: diff changeset	1748	<resource: #keyboard (#PreviousPage #NextPage #HalfPageUp #HalfPageDown
809 0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	1749	#BeginOfText #EndOfText #ScrollUp #ScrollDown
542 e22c45e26653 intitial checkin ca parents: diff changeset	1750	#CursorUp #CursorDown #CursorRight #CursorLeft)>
e22c45e26653 intitial checkin ca parents: diff changeset	1751
1111 4fd0430173fa support #Tab ca parents: 1109 diff changeset	1752	\|sensor n max idx selRowNr key column\|
4fd0430173fa support #Tab ca parents: 1109 diff changeset	1753
4fd0430173fa support #Tab ca parents: 1109 diff changeset	1754	(sensor := self sensor) isNil ifTrue:[
4fd0430173fa support #Tab ca parents: 1109 diff changeset	1755	^ self
542 e22c45e26653 intitial checkin ca parents: diff changeset	1756	].
1111 4fd0430173fa support #Tab ca parents: 1109 diff changeset	1757
4fd0430173fa support #Tab ca parents: 1109 diff changeset	1758	(aKey == #PreviousPage) ifTrue:[^ self pageUp].
4fd0430173fa support #Tab ca parents: 1109 diff changeset	1759	(aKey == #NextPage) ifTrue:[^ self pageDown].
4fd0430173fa support #Tab ca parents: 1109 diff changeset	1760	(aKey == #HalfPageUp) ifTrue:[^ self halfPageUp].
4fd0430173fa support #Tab ca parents: 1109 diff changeset	1761	(aKey == #HalfPageDown) ifTrue:[^ self halfPageDown].
4fd0430173fa support #Tab ca parents: 1109 diff changeset	1762	(aKey == #BeginOfText) ifTrue:[^ self scrollToTop].
4fd0430173fa support #Tab ca parents: 1109 diff changeset	1763	(aKey == #EndOfText) ifTrue:[^ self scrollToBottom].
4fd0430173fa support #Tab ca parents: 1109 diff changeset	1764	(aKey isCharacter) ifTrue:[^ self characterPress:aKey x:x y:y ].
4fd0430173fa support #Tab ca parents: 1109 diff changeset	1765
4fd0430173fa support #Tab ca parents: 1109 diff changeset	1766	(aKey == #ScrollUp or:[aKey == #ScrollDown]) ifTrue:[
4fd0430173fa support #Tab ca parents: 1109 diff changeset	1767	n := (1 + (sensor compressKeyPressEventsWithKey:aKey)) * self verticalScrollStep.
4fd0430173fa support #Tab ca parents: 1109 diff changeset	1768
4fd0430173fa support #Tab ca parents: 1109 diff changeset	1769	aKey == #ScrollUp ifTrue:[self scrollUp:n]
4fd0430173fa support #Tab ca parents: 1109 diff changeset	1770	ifFalse:[self scrollDown:n].
4fd0430173fa support #Tab ca parents: 1109 diff changeset	1771	^ self
542 e22c45e26653 intitial checkin ca parents: diff changeset	1772	].
1111 4fd0430173fa support #Tab ca parents: 1109 diff changeset	1773
872 ad92183a6e6b pass unhandled keys up (for focus control) Claus Gittinger <cg@exept.de> parents: 861 diff changeset	1774	self numberOfSelections == 1 ifFalse:[
1111 4fd0430173fa support #Tab ca parents: 1109 diff changeset	1775	super keyPress:aKey x:x y:y.
872 ad92183a6e6b pass unhandled keys up (for focus control) Claus Gittinger <cg@exept.de> parents: 861 diff changeset	1776	^ self
ad92183a6e6b pass unhandled keys up (for focus control) Claus Gittinger <cg@exept.de> parents: 861 diff changeset	1777	].
607 a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	1778	selRowNr := self firstIndexSelected.
542 e22c45e26653 intitial checkin ca parents: diff changeset	1779
1111 4fd0430173fa support #Tab ca parents: 1109 diff changeset	1780	aKey == #Return ifTrue:[
542 e22c45e26653 intitial checkin ca parents: diff changeset	1781	^ self doubleClicked
e22c45e26653 intitial checkin ca parents: diff changeset	1782	].
1111 4fd0430173fa support #Tab ca parents: 1109 diff changeset	1783
4fd0430173fa support #Tab ca parents: 1109 diff changeset	1784	(aKey == #CursorUp or:[aKey == #CursorDown]) ifTrue:[
4fd0430173fa support #Tab ca parents: 1109 diff changeset	1785	max := self size.
4fd0430173fa support #Tab ca parents: 1109 diff changeset	1786
4fd0430173fa support #Tab ca parents: 1109 diff changeset	1787	(n := (1 + (sensor compressKeyPressEventsWithKey:aKey)) \\ max) ~~ 0 ifTrue:[
4fd0430173fa support #Tab ca parents: 1109 diff changeset	1788	aKey == #CursorUp ifTrue:[
4fd0430173fa support #Tab ca parents: 1109 diff changeset	1789	(n := selRowNr - n) <= 0 ifTrue:[n := max + n]
4fd0430173fa support #Tab ca parents: 1109 diff changeset	1790	] ifFalse:[
4fd0430173fa support #Tab ca parents: 1109 diff changeset	1791	(n := selRowNr + n) > max ifTrue:[n := n - max]
4fd0430173fa support #Tab ca parents: 1109 diff changeset	1792	].
4fd0430173fa support #Tab ca parents: 1109 diff changeset	1793	self selectColIndex:selectedColIndex rowIndex:n
542 e22c45e26653 intitial checkin ca parents: diff changeset	1794	].
1111 4fd0430173fa support #Tab ca parents: 1109 diff changeset	1795	^ self
4fd0430173fa support #Tab ca parents: 1109 diff changeset	1796	].
4fd0430173fa support #Tab ca parents: 1109 diff changeset	1797
4fd0430173fa support #Tab ca parents: 1109 diff changeset	1798	aKey == #Tab ifTrue:[
4fd0430173fa support #Tab ca parents: 1109 diff changeset	1799	key := sensor shiftDown ifTrue:[#CursorLeft] ifFalse:[#CursorRight]
4fd0430173fa support #Tab ca parents: 1109 diff changeset	1800	] ifFalse:[
4fd0430173fa support #Tab ca parents: 1109 diff changeset	1801	(aKey == #CursorRight or:[aKey == #CursorLeft]) ifFalse:[
4fd0430173fa support #Tab ca parents: 1109 diff changeset	1802	^ super keyPress:aKey x:x y:y
542 e22c45e26653 intitial checkin ca parents: diff changeset	1803	].
1111 4fd0430173fa support #Tab ca parents: 1109 diff changeset	1804	key := aKey
542 e22c45e26653 intitial checkin ca parents: diff changeset	1805	].
e22c45e26653 intitial checkin ca parents: diff changeset	1806
809 0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	1807	selectedColIndex == 0 ifTrue:[ "/ line is selected
612 af7786327bd4 add columnHolder ca parents: 610 diff changeset	1808	^ self
af7786327bd4 add columnHolder ca parents: 610 diff changeset	1809	].
af7786327bd4 add columnHolder ca parents: 610 diff changeset	1810
1111 4fd0430173fa support #Tab ca parents: 1109 diff changeset	1811	editView notNil ifTrue:[
4fd0430173fa support #Tab ca parents: 1109 diff changeset	1812	editView allSubViewsDo:[:aSubView\|
4fd0430173fa support #Tab ca parents: 1109 diff changeset	1813	(aSubView respondsTo:#accept) ifTrue:[
4fd0430173fa support #Tab ca parents: 1109 diff changeset	1814	aSubView accept
542 e22c45e26653 intitial checkin ca parents: diff changeset	1815	]
1111 4fd0430173fa support #Tab ca parents: 1109 diff changeset	1816	]
4fd0430173fa support #Tab ca parents: 1109 diff changeset	1817	].
4fd0430173fa support #Tab ca parents: 1109 diff changeset	1818
4fd0430173fa support #Tab ca parents: 1109 diff changeset	1819	n := 1 + (sensor compressKeyPressEventsWithKey:key).
4fd0430173fa support #Tab ca parents: 1109 diff changeset	1820	idx := selectedColIndex.
4fd0430173fa support #Tab ca parents: 1109 diff changeset	1821	max := self numberOfColumns.
4fd0430173fa support #Tab ca parents: 1109 diff changeset	1822
4fd0430173fa support #Tab ca parents: 1109 diff changeset	1823	key == #CursorLeft ifTrue:[
4fd0430173fa support #Tab ca parents: 1109 diff changeset	1824	[n ~~ 0] whileTrue:[
4fd0430173fa support #Tab ca parents: 1109 diff changeset	1825	(idx := idx - 1) == 0 ifTrue:[
4fd0430173fa support #Tab ca parents: 1109 diff changeset	1826	(aKey == #Tab and:[selRowNr > 1]) ifTrue:[
4fd0430173fa support #Tab ca parents: 1109 diff changeset	1827	selRowNr := selRowNr - 1
4fd0430173fa support #Tab ca parents: 1109 diff changeset	1828	].
4fd0430173fa support #Tab ca parents: 1109 diff changeset	1829	idx := max
4fd0430173fa support #Tab ca parents: 1109 diff changeset	1830	].
4fd0430173fa support #Tab ca parents: 1109 diff changeset	1831
4fd0430173fa support #Tab ca parents: 1109 diff changeset	1832	column := self columnAt:idx.
4fd0430173fa support #Tab ca parents: 1109 diff changeset	1833	(column rendererType ~~ #rowSelector and:[column canSelect:selRowNr]) ifTrue:[
4fd0430173fa support #Tab ca parents: 1109 diff changeset	1834	n := n - 1
542 e22c45e26653 intitial checkin ca parents: diff changeset	1835	]
1111 4fd0430173fa support #Tab ca parents: 1109 diff changeset	1836	]
4fd0430173fa support #Tab ca parents: 1109 diff changeset	1837	] ifFalse:[
4fd0430173fa support #Tab ca parents: 1109 diff changeset	1838	[n ~~ 0] whileTrue:[
4fd0430173fa support #Tab ca parents: 1109 diff changeset	1839	(idx := idx + 1) > max ifTrue:[
4fd0430173fa support #Tab ca parents: 1109 diff changeset	1840	(aKey == #Tab and:[selRowNr < self size]) ifTrue:[
4fd0430173fa support #Tab ca parents: 1109 diff changeset	1841	selRowNr := selRowNr + 1
4fd0430173fa support #Tab ca parents: 1109 diff changeset	1842	].
4fd0430173fa support #Tab ca parents: 1109 diff changeset	1843	idx := 1
4fd0430173fa support #Tab ca parents: 1109 diff changeset	1844	].
4fd0430173fa support #Tab ca parents: 1109 diff changeset	1845
4fd0430173fa support #Tab ca parents: 1109 diff changeset	1846	column := self columnAt:idx.
4fd0430173fa support #Tab ca parents: 1109 diff changeset	1847	(column rendererType ~~ #rowSelector and:[column canSelect:selRowNr]) ifTrue:[
4fd0430173fa support #Tab ca parents: 1109 diff changeset	1848	n := n - 1
4fd0430173fa support #Tab ca parents: 1109 diff changeset	1849	]
4fd0430173fa support #Tab ca parents: 1109 diff changeset	1850	]
542 e22c45e26653 intitial checkin ca parents: diff changeset	1851	].
1111 4fd0430173fa support #Tab ca parents: 1109 diff changeset	1852	self selectColIndex:idx rowIndex:selRowNr.
4fd0430173fa support #Tab ca parents: 1109 diff changeset	1853
4fd0430173fa support #Tab ca parents: 1109 diff changeset	1854
542 e22c45e26653 intitial checkin ca parents: diff changeset	1855	!
e22c45e26653 intitial checkin ca parents: diff changeset	1856
e22c45e26653 intitial checkin ca parents: diff changeset	1857	originChanged:delta
e22c45e26653 intitial checkin ca parents: diff changeset	1858	"this one is sent, after the origin of my contents has changed -
e22c45e26653 intitial checkin ca parents: diff changeset	1859	tell dependents (i.e. scrollers) about this
e22c45e26653 intitial checkin ca parents: diff changeset	1860	"
e22c45e26653 intitial checkin ca parents: diff changeset	1861	super originChanged:delta.
e22c45e26653 intitial checkin ca parents: diff changeset	1862	self updateEditViewOrigin.
e22c45e26653 intitial checkin ca parents: diff changeset	1863	!
e22c45e26653 intitial checkin ca parents: diff changeset	1864
e22c45e26653 intitial checkin ca parents: diff changeset	1865	sizeChanged:how
e22c45e26653 intitial checkin ca parents: diff changeset	1866	"size changed - move origin up if possible
e22c45e26653 intitial checkin ca parents: diff changeset	1867	"
e22c45e26653 intitial checkin ca parents: diff changeset	1868	super sizeChanged:how.
e22c45e26653 intitial checkin ca parents: diff changeset	1869
e22c45e26653 intitial checkin ca parents: diff changeset	1870	(shown and:[self numberOfColumns ~~ 0 and:[self fitColumns not]]) ifTrue:[
e22c45e26653 intitial checkin ca parents: diff changeset	1871	self scrollTo:viewOrigin. "/ validates viewOrigin
e22c45e26653 intitial checkin ca parents: diff changeset	1872	self invalidate.
e22c45e26653 intitial checkin ca parents: diff changeset	1873	self scrollToSelection
e22c45e26653 intitial checkin ca parents: diff changeset	1874	]
e22c45e26653 intitial checkin ca parents: diff changeset	1875
e22c45e26653 intitial checkin ca parents: diff changeset	1876	! !
e22c45e26653 intitial checkin ca parents: diff changeset	1877
e22c45e26653 intitial checkin ca parents: diff changeset	1878	!DSVColumnView methodsFor:'gc operations'!
e22c45e26653 intitial checkin ca parents: diff changeset	1879
1100 376515452be4 support of all styles; windows and next ca parents: 1089 diff changeset	1880	imageOnDevice:anImage
376515452be4 support of all styles; windows and next ca parents: 1089 diff changeset	1881	"associate image to device and clear pixel mask; returns the new image.
376515452be4 support of all styles; windows and next ca parents: 1089 diff changeset	1882	"
376515452be4 support of all styles; windows and next ca parents: 1089 diff changeset	1883	\|image\|
376515452be4 support of all styles; windows and next ca parents: 1089 diff changeset	1884
376515452be4 support of all styles; windows and next ca parents: 1089 diff changeset	1885	(image := anImage) notNil ifTrue:[
376515452be4 support of all styles; windows and next ca parents: 1089 diff changeset	1886	image device ~~ device ifTrue:[
376515452be4 support of all styles; windows and next ca parents: 1089 diff changeset	1887	image := image copy.
376515452be4 support of all styles; windows and next ca parents: 1089 diff changeset	1888	].
1109 b97053dce48c checkin from browser Claus Gittinger <cg@exept.de> parents: 1100 diff changeset	1889	image := image onDevice:device.
1100 376515452be4 support of all styles; windows and next ca parents: 1089 diff changeset	1890	image isImage ifTrue:[
376515452be4 support of all styles; windows and next ca parents: 1089 diff changeset	1891	image := image clearMaskedPixels
376515452be4 support of all styles; windows and next ca parents: 1089 diff changeset	1892	]
376515452be4 support of all styles; windows and next ca parents: 1089 diff changeset	1893	].
376515452be4 support of all styles; windows and next ca parents: 1089 diff changeset	1894	^ image
376515452be4 support of all styles; windows and next ca parents: 1089 diff changeset	1895
376515452be4 support of all styles; windows and next ca parents: 1089 diff changeset	1896	!
376515452be4 support of all styles; windows and next ca parents: 1089 diff changeset	1897
542 e22c45e26653 intitial checkin ca parents: diff changeset	1898	registerImage:anImage key:aKey
e22c45e26653 intitial checkin ca parents: diff changeset	1899	"any row can register an image with a unique identifier a key symbol
e22c45e26653 intitial checkin ca parents: diff changeset	1900	"
e22c45e26653 intitial checkin ca parents: diff changeset	1901	\|img\|
e22c45e26653 intitial checkin ca parents: diff changeset	1902
e22c45e26653 intitial checkin ca parents: diff changeset	1903	(img := registererImages at:aKey ifAbsent:nil) notNil ifTrue:[
e22c45e26653 intitial checkin ca parents: diff changeset	1904	^ img
e22c45e26653 intitial checkin ca parents: diff changeset	1905	].
1112 81f2a7f0afdc draw routines for interactors ca parents: 1111 diff changeset	1906	img := self imageOnDevice:anImage.
567 01083cbb4bae checkin from browser ca parents: 563 diff changeset	1907	registererImages at:aKey put:img.
01083cbb4bae checkin from browser ca parents: 563 diff changeset	1908	^ img
542 e22c45e26653 intitial checkin ca parents: diff changeset	1909	!
e22c45e26653 intitial checkin ca parents: diff changeset	1910
e22c45e26653 intitial checkin ca parents: diff changeset	1911	registeredImageAt:aKey
e22c45e26653 intitial checkin ca parents: diff changeset	1912	"any row can register an image with a unique identifier
e22c45e26653 intitial checkin ca parents: diff changeset	1913	"
e22c45e26653 intitial checkin ca parents: diff changeset	1914	^ registererImages at:aKey ifAbsent:nil
e22c45e26653 intitial checkin ca parents: diff changeset	1915	!
e22c45e26653 intitial checkin ca parents: diff changeset	1916
e22c45e26653 intitial checkin ca parents: diff changeset	1917	releaseAllRegisteredImages
e22c45e26653 intitial checkin ca parents: diff changeset	1918	"release all registered images
e22c45e26653 intitial checkin ca parents: diff changeset	1919	"
e22c45e26653 intitial checkin ca parents: diff changeset	1920	registererImages := IdentityDictionary new.
e22c45e26653 intitial checkin ca parents: diff changeset	1921	! !
e22c45e26653 intitial checkin ca parents: diff changeset	1922
e22c45e26653 intitial checkin ca parents: diff changeset	1923	!DSVColumnView methodsFor:'initialization'!
e22c45e26653 intitial checkin ca parents: diff changeset	1924
e22c45e26653 intitial checkin ca parents: diff changeset	1925	create
607 a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	1926	"set color on device
542 e22c45e26653 intitial checkin ca parents: diff changeset	1927	"
e22c45e26653 intitial checkin ca parents: diff changeset	1928	super create.
e22c45e26653 intitial checkin ca parents: diff changeset	1929	fgColor := fgColor on:device.
e22c45e26653 intitial checkin ca parents: diff changeset	1930	bgColor := bgColor on:device.
e22c45e26653 intitial checkin ca parents: diff changeset	1931	hgLgFgColor := hgLgFgColor on:device.
e22c45e26653 intitial checkin ca parents: diff changeset	1932	hgLgBgColor := hgLgBgColor on:device.
809 0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	1933
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	1934	buttonShadowColor := buttonShadowColor on:device.
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	1935	buttonLightColor := buttonLightColor on:device.
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	1936
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	1937	buttonHalfShadowColor notNil ifTrue:[
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	1938	buttonHalfShadowColor := buttonHalfShadowColor on:device
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	1939	].
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	1940
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	1941	buttonHalfLightColor notNil ifTrue:[
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	1942	buttonHalfLightColor := buttonHalfLightColor on:device
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	1943	].
1100 376515452be4 support of all styles; windows and next ca parents: 1089 diff changeset	1944	rowSelectorForm := self imageOnDevice:rowSelectorForm.
376515452be4 support of all styles; windows and next ca parents: 1089 diff changeset	1945	checkToggleActiveImage := self imageOnDevice:checkToggleActiveImage.
376515452be4 support of all styles; windows and next ca parents: 1089 diff changeset	1946	checkTogglePassiveImage := self imageOnDevice:checkTogglePassiveImage.
376515452be4 support of all styles; windows and next ca parents: 1089 diff changeset	1947	comboButtonForm := self imageOnDevice:comboButtonForm.
376515452be4 support of all styles; windows and next ca parents: 1089 diff changeset	1948	checkToggleForm := self imageOnDevice:checkToggleForm.
376515452be4 support of all styles; windows and next ca parents: 1089 diff changeset	1949
376515452be4 support of all styles; windows and next ca parents: 1089 diff changeset	1950
542 e22c45e26653 intitial checkin ca parents: diff changeset	1951	!
e22c45e26653 intitial checkin ca parents: diff changeset	1952
e22c45e26653 intitial checkin ca parents: diff changeset	1953	destroy
e22c45e26653 intitial checkin ca parents: diff changeset	1954	"remove dependencies
e22c45e26653 intitial checkin ca parents: diff changeset	1955	"
618 6a79bf9b4cd3 support list with undefined rows ca parents: 612 diff changeset	1956	self columnHolder:nil.
6a79bf9b4cd3 support list with undefined rows ca parents: 612 diff changeset	1957	self beDependentOfRows:false.
542 e22c45e26653 intitial checkin ca parents: diff changeset	1958	super destroy
e22c45e26653 intitial checkin ca parents: diff changeset	1959	!
e22c45e26653 intitial checkin ca parents: diff changeset	1960
e22c45e26653 intitial checkin ca parents: diff changeset	1961	initStyle
607 a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	1962	"setup colors
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	1963	"
1100 376515452be4 support of all styles; windows and next ca parents: 1089 diff changeset	1964	\|button widget\|
809 0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	1965
542 e22c45e26653 intitial checkin ca parents: diff changeset	1966	super initStyle.
e22c45e26653 intitial checkin ca parents: diff changeset	1967
e22c45e26653 intitial checkin ca parents: diff changeset	1968	DefaultForegroundColor isNil ifTrue:[
e22c45e26653 intitial checkin ca parents: diff changeset	1969	self class updateStyleCache
e22c45e26653 intitial checkin ca parents: diff changeset	1970	].
e22c45e26653 intitial checkin ca parents: diff changeset	1971	fgColor := DefaultForegroundColor.
e22c45e26653 intitial checkin ca parents: diff changeset	1972	bgColor := DefaultBackgroundColor.
e22c45e26653 intitial checkin ca parents: diff changeset	1973	hgLgFgColor := DefaultHilightForegroundColor.
e22c45e26653 intitial checkin ca parents: diff changeset	1974	hgLgBgColor := DefaultHilightBackgroundColor.
809 0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	1975
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	1976	shadowColor isNil ifTrue:[
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	1977	shadowColor := Color grayPercent:40.
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	1978	].
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	1979
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	1980	lightColor isNil ifTrue:[
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	1981	lightColor := Color grayPercent:75
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	1982	].
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	1983
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	1984	buttonLightColor := ButtonLightColor ? lightColor.
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	1985	buttonShadowColor := ButtonShadowColor ? shadowColor.
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	1986
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	1987	(ButtonEdgeStyle == #soft) ifTrue:[
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	1988	buttonHalfShadowColor := ButtonHalfShadowColor.
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	1989	buttonHalfLightColor := ButtonHalfLightColor.
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	1990
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	1991	buttonHalfShadowColor isNil ifTrue:[
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	1992	buttonHalfShadowColor := buttonShadowColor lightened
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	1993	]
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	1994	].
1100 376515452be4 support of all styles; windows and next ca parents: 1089 diff changeset	1995	rowSelectorForm := self class rowSelector.
376515452be4 support of all styles; windows and next ca parents: 1089 diff changeset	1996	checkToggleActiveImage := CheckToggleActiveImage.
376515452be4 support of all styles; windows and next ca parents: 1089 diff changeset	1997	checkTogglePassiveImage := CheckTogglePassiveImage.
376515452be4 support of all styles; windows and next ca parents: 1089 diff changeset	1998
376515452be4 support of all styles; windows and next ca parents: 1089 diff changeset	1999	widget := ComboListView new.
376515452be4 support of all styles; windows and next ca parents: 1089 diff changeset	2000	button := widget menuButton.
376515452be4 support of all styles; windows and next ca parents: 1089 diff changeset	2001	comboButtonForm := button label.
376515452be4 support of all styles; windows and next ca parents: 1089 diff changeset	2002	comboButtonLevel := button offLevel.
376515452be4 support of all styles; windows and next ca parents: 1089 diff changeset	2003	comboButtonExtent := (button preferredExtent x) @ (widget preferredExtent y).
376515452be4 support of all styles; windows and next ca parents: 1089 diff changeset	2004
376515452be4 support of all styles; windows and next ca parents: 1089 diff changeset	2005	widget := CheckToggle new.
376515452be4 support of all styles; windows and next ca parents: 1089 diff changeset	2006	checkToggleForm := widget label.
376515452be4 support of all styles; windows and next ca parents: 1089 diff changeset	2007	checkToggleLevel := widget offLevel.
376515452be4 support of all styles; windows and next ca parents: 1089 diff changeset	2008	checkToggleExtent := widget preferredExtent.
809 0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	2009
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	2010
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	2011
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	2012
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	2013
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	2014
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	2015
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	2016
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	2017
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	2018
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	2019
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	2020
542 e22c45e26653 intitial checkin ca parents: diff changeset	2021	!
e22c45e26653 intitial checkin ca parents: diff changeset	2022
e22c45e26653 intitial checkin ca parents: diff changeset	2023	initialize
e22c45e26653 intitial checkin ca parents: diff changeset	2024	"set default attributes
e22c45e26653 intitial checkin ca parents: diff changeset	2025	"
e22c45e26653 intitial checkin ca parents: diff changeset	2026	super initialize.
e22c45e26653 intitial checkin ca parents: diff changeset	2027
1112 81f2a7f0afdc draw routines for interactors ca parents: 1111 diff changeset	2028	viewOrigin := 0@0.
81f2a7f0afdc draw routines for interactors ca parents: 1111 diff changeset	2029	font := font on:device.
81f2a7f0afdc draw routines for interactors ca parents: 1111 diff changeset	2030	rowHeight := font height.
81f2a7f0afdc draw routines for interactors ca parents: 1111 diff changeset	2031	multipleSelectOk := false. "/ multiselect disabled
81f2a7f0afdc draw routines for interactors ca parents: 1111 diff changeset	2032	selectedRowIndex := selectedColIndex := 0. "/ no selection
81f2a7f0afdc draw routines for interactors ca parents: 1111 diff changeset	2033	registererImages := IdentityDictionary new.
81f2a7f0afdc draw routines for interactors ca parents: 1111 diff changeset	2034	columnDescriptors := #().
81f2a7f0afdc draw routines for interactors ca parents: 1111 diff changeset	2035	beDependentOfRows := false.
81f2a7f0afdc draw routines for interactors ca parents: 1111 diff changeset	2036	verticalSpacing := self class verticalSpacing.
81f2a7f0afdc draw routines for interactors ca parents: 1111 diff changeset	2037	horizontalSpacing := self class horizontalSpacing.
81f2a7f0afdc draw routines for interactors ca parents: 1111 diff changeset	2038	colorMap := Dictionary new.
81f2a7f0afdc draw routines for interactors ca parents: 1111 diff changeset	2039	catchChangeEvents := false.
81f2a7f0afdc draw routines for interactors ca parents: 1111 diff changeset	2040	dragIsActive := false.
81f2a7f0afdc draw routines for interactors ca parents: 1111 diff changeset	2041	rowFontAscent := 1. "/ dummy initialization
81f2a7f0afdc draw routines for interactors ca parents: 1111 diff changeset	2042	separatorSize := 1. "/ separators mode 2D
81f2a7f0afdc draw routines for interactors ca parents: 1111 diff changeset	2043	selectRowOnDefault := true.
610 4954999c4c75 set lineWidth to 0 ca parents: 607 diff changeset	2044	self lineWidth:0.
542 e22c45e26653 intitial checkin ca parents: diff changeset	2045	!
e22c45e26653 intitial checkin ca parents: diff changeset	2046
705 d9ebfd72d506 set selection if exists after mapping tz parents: 667 diff changeset	2047	mapped
d9ebfd72d506 set selection if exists after mapping tz parents: 667 diff changeset	2048	"set selection if exists after mapping
d9ebfd72d506 set selection if exists after mapping tz parents: 667 diff changeset	2049	"
d9ebfd72d506 set selection if exists after mapping tz parents: 667 diff changeset	2050	\|idx\|
d9ebfd72d506 set selection if exists after mapping tz parents: 667 diff changeset	2051
d9ebfd72d506 set selection if exists after mapping tz parents: 667 diff changeset	2052	super mapped.
d9ebfd72d506 set selection if exists after mapping tz parents: 667 diff changeset	2053
d9ebfd72d506 set selection if exists after mapping tz parents: 667 diff changeset	2054	idx := self firstIndexSelected.
d9ebfd72d506 set selection if exists after mapping tz parents: 667 diff changeset	2055
d9ebfd72d506 set selection if exists after mapping tz parents: 667 diff changeset	2056	idx ~~ 0 ifTrue:[
d9ebfd72d506 set selection if exists after mapping tz parents: 667 diff changeset	2057	self scrollToRowAt:idx colAt:0.
d9ebfd72d506 set selection if exists after mapping tz parents: 667 diff changeset	2058	].
d9ebfd72d506 set selection if exists after mapping tz parents: 667 diff changeset	2059	!
d9ebfd72d506 set selection if exists after mapping tz parents: 667 diff changeset	2060
542 e22c45e26653 intitial checkin ca parents: diff changeset	2061	realize
607 a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	2062	"recompute contents and fit columns to view
542 e22c45e26653 intitial checkin ca parents: diff changeset	2063	"
607 a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	2064	self bitGravity:#NorthWest.
542 e22c45e26653 intitial checkin ca parents: diff changeset	2065	self recomputeHeightOfContents.
e22c45e26653 intitial checkin ca parents: diff changeset	2066	super realize.
607 a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	2067	self fitColumns.
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	2068	! !
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	2069
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	2070	!DSVColumnView methodsFor:'obsolete'!
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	2071
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	2072	has3Dsepartors
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	2073	"shouldn't be used any more
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	2074	"
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	2075	^ self has3Dseparators
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	2076	!
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	2077
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	2078	has3Dsepartors:aBool
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	2079	"shouldn't be used any more
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	2080	"
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	2081	self has3Dseparators:aBool
542 e22c45e26653 intitial checkin ca parents: diff changeset	2082
e22c45e26653 intitial checkin ca parents: diff changeset	2083	! !
e22c45e26653 intitial checkin ca parents: diff changeset	2084
e22c45e26653 intitial checkin ca parents: diff changeset	2085	!DSVColumnView methodsFor:'private'!
e22c45e26653 intitial checkin ca parents: diff changeset	2086
1111 4fd0430173fa support #Tab ca parents: 1109 diff changeset	2087	destroyEditView
4fd0430173fa support #Tab ca parents: 1109 diff changeset	2088	"destroy the edit view; release KeyboardForwarder
4fd0430173fa support #Tab ca parents: 1109 diff changeset	2089	"
4fd0430173fa support #Tab ca parents: 1109 diff changeset	2090	editView notNil ifTrue:[
4fd0430173fa support #Tab ca parents: 1109 diff changeset	2091	editView withAllSubViewsDo:[:aView\|
4fd0430173fa support #Tab ca parents: 1109 diff changeset	2092	aView delegate:nil
4fd0430173fa support #Tab ca parents: 1109 diff changeset	2093	].
4fd0430173fa support #Tab ca parents: 1109 diff changeset	2094	editView destroy.
4fd0430173fa support #Tab ca parents: 1109 diff changeset	2095	editView := nil.
4fd0430173fa support #Tab ca parents: 1109 diff changeset	2096	self windowGroup focusView:nil.
4fd0430173fa support #Tab ca parents: 1109 diff changeset	2097	].
4fd0430173fa support #Tab ca parents: 1109 diff changeset	2098
4fd0430173fa support #Tab ca parents: 1109 diff changeset	2099
4fd0430173fa support #Tab ca parents: 1109 diff changeset	2100	!
4fd0430173fa support #Tab ca parents: 1109 diff changeset	2101
637 e56ec99923ae VW compatible ca parents: 622 diff changeset	2102	detectViewAt:aPoint in:aView
1087 8e97cbfebe12 add some comment ca parents: 1067 diff changeset	2103	"returns the view at a point
8e97cbfebe12 add some comment ca parents: 1067 diff changeset	2104	"
637 e56ec99923ae VW compatible ca parents: 622 diff changeset	2105	\|p\|
e56ec99923ae VW compatible ca parents: 622 diff changeset	2106
e56ec99923ae VW compatible ca parents: 622 diff changeset	2107	(aView notNil and:[aView subViews notNil]) ifTrue:[
e56ec99923ae VW compatible ca parents: 622 diff changeset	2108	aView subViews do:[:sv\|
e56ec99923ae VW compatible ca parents: 622 diff changeset	2109	p := device translatePoint:aPoint from:(self id) to:(sv id).
e56ec99923ae VW compatible ca parents: 622 diff changeset	2110
e56ec99923ae VW compatible ca parents: 622 diff changeset	2111	(p x >= 0 and:[p y >= 0 and:[p x <= sv width and:[p y <= sv height]]]) ifTrue:[
e56ec99923ae VW compatible ca parents: 622 diff changeset	2112	^ self detectViewAt:aPoint in:sv
e56ec99923ae VW compatible ca parents: 622 diff changeset	2113	]
e56ec99923ae VW compatible ca parents: 622 diff changeset	2114	]
e56ec99923ae VW compatible ca parents: 622 diff changeset	2115	].
e56ec99923ae VW compatible ca parents: 622 diff changeset	2116	^ aView
e56ec99923ae VW compatible ca parents: 622 diff changeset	2117	!
e56ec99923ae VW compatible ca parents: 622 diff changeset	2118
542 e22c45e26653 intitial checkin ca parents: diff changeset	2119	fitColumns
e22c45e26653 intitial checkin ca parents: diff changeset	2120	"fit columns to view
e22c45e26653 intitial checkin ca parents: diff changeset	2121	"
859 e63eb6f321e1 support List for columns ca parents: 833 diff changeset	2122	\|raiseNotify lastColumn dX sz expand resizables deltaWidth\|
542 e22c45e26653 intitial checkin ca parents: diff changeset	2123
e22c45e26653 intitial checkin ca parents: diff changeset	2124	self canFit ifFalse:[^ false ].
647 ee98a1976972 support of different styles ca parents: 645 diff changeset	2125
859 e63eb6f321e1 support List for columns ca parents: 833 diff changeset	2126	resizables := 0.
e63eb6f321e1 support List for columns ca parents: 833 diff changeset	2127	deltaWidth := 0.
e63eb6f321e1 support List for columns ca parents: 833 diff changeset	2128
e63eb6f321e1 support List for columns ca parents: 833 diff changeset	2129	preferredExtent isNil ifTrue:[
e63eb6f321e1 support List for columns ca parents: 833 diff changeset	2130	raiseNotify := catchChangeEvents.
e63eb6f321e1 support List for columns ca parents: 833 diff changeset	2131	catchChangeEvents := true.
647 ee98a1976972 support of different styles ca parents: 645 diff changeset	2132	self preferredExtent.
859 e63eb6f321e1 support List for columns ca parents: 833 diff changeset	2133	catchChangeEvents := raiseNotify.
e63eb6f321e1 support List for columns ca parents: 833 diff changeset	2134	raiseNotify := raiseNotify not.
e63eb6f321e1 support List for columns ca parents: 833 diff changeset	2135	] ifFalse:[
e63eb6f321e1 support List for columns ca parents: 833 diff changeset	2136	raiseNotify := false
647 ee98a1976972 support of different styles ca parents: 645 diff changeset	2137	].
542 e22c45e26653 intitial checkin ca parents: diff changeset	2138
e22c45e26653 intitial checkin ca parents: diff changeset	2139	self columnsDo:[:aCol\|
e22c45e26653 intitial checkin ca parents: diff changeset	2140	aCol canResize ifTrue:[
e22c45e26653 intitial checkin ca parents: diff changeset	2141	resizables := resizables + 1.
e22c45e26653 intitial checkin ca parents: diff changeset	2142	deltaWidth := aCol setMinWidth.
e22c45e26653 intitial checkin ca parents: diff changeset	2143	lastColumn := aCol.
e22c45e26653 intitial checkin ca parents: diff changeset	2144	]
e22c45e26653 intitial checkin ca parents: diff changeset	2145	].
647 ee98a1976972 support of different styles ca parents: 645 diff changeset	2146
ee98a1976972 support of different styles ca parents: 645 diff changeset	2147	resizables == 0 ifFalse:[
ee98a1976972 support of different styles ca parents: 645 diff changeset	2148	sz := self widthOfContents.
ee98a1976972 support of different styles ca parents: 645 diff changeset	2149
ee98a1976972 support of different styles ca parents: 645 diff changeset	2150	(expand := sz < width) ifTrue:[
ee98a1976972 support of different styles ca parents: 645 diff changeset	2151	deltaWidth := width - sz + margin + margin
ee98a1976972 support of different styles ca parents: 645 diff changeset	2152	]
ee98a1976972 support of different styles ca parents: 645 diff changeset	2153	].
ee98a1976972 support of different styles ca parents: 645 diff changeset	2154
ee98a1976972 support of different styles ca parents: 645 diff changeset	2155	deltaWidth == 0 ifTrue:[
859 e63eb6f321e1 support List for columns ca parents: 833 diff changeset	2156	raiseNotify ifTrue:[ self changed:#columnsLayout ].
647 ee98a1976972 support of different styles ca parents: 645 diff changeset	2157	^ false
542 e22c45e26653 intitial checkin ca parents: diff changeset	2158	].
e22c45e26653 intitial checkin ca parents: diff changeset	2159
e22c45e26653 intitial checkin ca parents: diff changeset	2160	expand ifTrue:[
e22c45e26653 intitial checkin ca parents: diff changeset	2161	(dX := deltaWidth // resizables) ~~ 0 ifTrue:[
e22c45e26653 intitial checkin ca parents: diff changeset	2162	self columnsDo:[:aCol\|aCol canResize ifTrue:[aCol growWidth:dX]]
e22c45e26653 intitial checkin ca parents: diff changeset	2163	].
e22c45e26653 intitial checkin ca parents: diff changeset	2164	lastColumn growWidth:(deltaWidth - (dX * resizables)).
e22c45e26653 intitial checkin ca parents: diff changeset	2165	].
732 cc72bcc0372b bug fix: resize label view ca parents: 713 diff changeset	2166
542 e22c45e26653 intitial checkin ca parents: diff changeset	2167	self preferredExtentChanged.
612 af7786327bd4 add columnHolder ca parents: 610 diff changeset	2168
af7786327bd4 add columnHolder ca parents: 610 diff changeset	2169	shown ifTrue:[
af7786327bd4 add columnHolder ca parents: 610 diff changeset	2170	self invalidate.
542 e22c45e26653 intitial checkin ca parents: diff changeset	2171
612 af7786327bd4 add columnHolder ca parents: 610 diff changeset	2172	self hasSelection ifTrue:[
af7786327bd4 add columnHolder ca parents: 610 diff changeset	2173	editView notNil ifTrue:[
af7786327bd4 add columnHolder ca parents: 610 diff changeset	2174	editView width:(self selectedColumn width - separatorSize)
af7786327bd4 add columnHolder ca parents: 610 diff changeset	2175	].
af7786327bd4 add columnHolder ca parents: 610 diff changeset	2176	self scrollToSelection.
542 e22c45e26653 intitial checkin ca parents: diff changeset	2177	].
732 cc72bcc0372b bug fix: resize label view ca parents: 713 diff changeset	2178	self contentsChanged.
542 e22c45e26653 intitial checkin ca parents: diff changeset	2179	].
647 ee98a1976972 support of different styles ca parents: 645 diff changeset	2180
ee98a1976972 support of different styles ca parents: 645 diff changeset	2181	self changed:#columnsLayout.
732 cc72bcc0372b bug fix: resize label view ca parents: 713 diff changeset	2182	^ true.
542 e22c45e26653 intitial checkin ca parents: diff changeset	2183
e22c45e26653 intitial checkin ca parents: diff changeset	2184
e22c45e26653 intitial checkin ca parents: diff changeset	2185	!
e22c45e26653 intitial checkin ca parents: diff changeset	2186
e22c45e26653 intitial checkin ca parents: diff changeset	2187	maxViewOriginY
e22c45e26653 intitial checkin ca parents: diff changeset	2188	"returns the maximum possible y of the view origin
e22c45e26653 intitial checkin ca parents: diff changeset	2189	"
e22c45e26653 intitial checkin ca parents: diff changeset	2190	\|y\|
e22c45e26653 intitial checkin ca parents: diff changeset	2191
e22c45e26653 intitial checkin ca parents: diff changeset	2192	y := self heightOfContents - self innerHeight.
e22c45e26653 intitial checkin ca parents: diff changeset	2193	^ y max:0
e22c45e26653 intitial checkin ca parents: diff changeset	2194
e22c45e26653 intitial checkin ca parents: diff changeset	2195	!
e22c45e26653 intitial checkin ca parents: diff changeset	2196
e22c45e26653 intitial checkin ca parents: diff changeset	2197	updateEditViewOrigin
e22c45e26653 intitial checkin ca parents: diff changeset	2198	"update origin of the editView
e22c45e26653 intitial checkin ca parents: diff changeset	2199	"
e22c45e26653 intitial checkin ca parents: diff changeset	2200	\|x y\|
e22c45e26653 intitial checkin ca parents: diff changeset	2201
e22c45e26653 intitial checkin ca parents: diff changeset	2202	editView notNil ifTrue:[
607 a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	2203	y := self yVisibleOfRowNr:(self firstIndexSelected).
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	2204	x := self xVisibleOfColNr:(self selectedColIndex).
542 e22c45e26653 intitial checkin ca parents: diff changeset	2205
1112 81f2a7f0afdc draw routines for interactors ca parents: 1111 diff changeset	2206	editView origin:(x @ y + separatorSize).
542 e22c45e26653 intitial checkin ca parents: diff changeset	2207	].
e22c45e26653 intitial checkin ca parents: diff changeset	2208
e22c45e26653 intitial checkin ca parents: diff changeset	2209	!
e22c45e26653 intitial checkin ca parents: diff changeset	2210
e22c45e26653 intitial checkin ca parents: diff changeset	2211	xVisibleOfColNr:aColNr
e22c45e26653 intitial checkin ca parents: diff changeset	2212	"returns visible x assigned to a column number
e22c45e26653 intitial checkin ca parents: diff changeset	2213	"
e22c45e26653 intitial checkin ca parents: diff changeset	2214	\|x\|
e22c45e26653 intitial checkin ca parents: diff changeset	2215
e22c45e26653 intitial checkin ca parents: diff changeset	2216	x := margin - viewOrigin x.
e22c45e26653 intitial checkin ca parents: diff changeset	2217	self columnsFrom:1 to:(aColNr - 1) do:[:aCol\| x := x + aCol width ].
e22c45e26653 intitial checkin ca parents: diff changeset	2218	^ x
e22c45e26653 intitial checkin ca parents: diff changeset	2219
e22c45e26653 intitial checkin ca parents: diff changeset	2220	!
e22c45e26653 intitial checkin ca parents: diff changeset	2221
e22c45e26653 intitial checkin ca parents: diff changeset	2222	xVisibleToColNr:x
607 a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	2223	"returns the column number assigned to a physical x or nil
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	2224	"
542 e22c45e26653 intitial checkin ca parents: diff changeset	2225	\|x0 nr\|
e22c45e26653 intitial checkin ca parents: diff changeset	2226
e22c45e26653 intitial checkin ca parents: diff changeset	2227	x0 := x + viewOrigin x - margin.
e22c45e26653 intitial checkin ca parents: diff changeset	2228	nr := 1.
e22c45e26653 intitial checkin ca parents: diff changeset	2229
e22c45e26653 intitial checkin ca parents: diff changeset	2230	self columnsDo:[:aCol\|
e22c45e26653 intitial checkin ca parents: diff changeset	2231	(x0 := x0 - aCol width) <= 0 ifTrue:[^ nr].
e22c45e26653 intitial checkin ca parents: diff changeset	2232	nr := nr + 1.
e22c45e26653 intitial checkin ca parents: diff changeset	2233	].
e22c45e26653 intitial checkin ca parents: diff changeset	2234	^ nil.
e22c45e26653 intitial checkin ca parents: diff changeset	2235
e22c45e26653 intitial checkin ca parents: diff changeset	2236	!
e22c45e26653 intitial checkin ca parents: diff changeset	2237
e22c45e26653 intitial checkin ca parents: diff changeset	2238	yVisibleOfRowNr:aRowNr
e22c45e26653 intitial checkin ca parents: diff changeset	2239	"returns visible y assigned to the row number
e22c45e26653 intitial checkin ca parents: diff changeset	2240	"
e22c45e26653 intitial checkin ca parents: diff changeset	2241	^ (aRowNr - 1) * rowHeight + margin - viewOrigin y
e22c45e26653 intitial checkin ca parents: diff changeset	2242
e22c45e26653 intitial checkin ca parents: diff changeset	2243	!
e22c45e26653 intitial checkin ca parents: diff changeset	2244
e22c45e26653 intitial checkin ca parents: diff changeset	2245	yVisibleToRowNr:y
607 a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	2246	"returns the row number assigned to a physical y or nil
542 e22c45e26653 intitial checkin ca parents: diff changeset	2247	"
e22c45e26653 intitial checkin ca parents: diff changeset	2248	\|y0\|
e22c45e26653 intitial checkin ca parents: diff changeset	2249
e22c45e26653 intitial checkin ca parents: diff changeset	2250	y0 := (y + viewOrigin y - margin) // rowHeight + 1.
618 6a79bf9b4cd3 support list with undefined rows ca parents: 612 diff changeset	2251	^ (y0 <= self size) ifTrue:[y0] ifFalse:[nil]
542 e22c45e26653 intitial checkin ca parents: diff changeset	2252
e22c45e26653 intitial checkin ca parents: diff changeset	2253	! !
e22c45e26653 intitial checkin ca parents: diff changeset	2254
e22c45e26653 intitial checkin ca parents: diff changeset	2255	!DSVColumnView methodsFor:'queries'!
e22c45e26653 intitial checkin ca parents: diff changeset	2256
e22c45e26653 intitial checkin ca parents: diff changeset	2257	canFit
e22c45e26653 intitial checkin ca parents: diff changeset	2258	"returns true if columns can be fit to view
e22c45e26653 intitial checkin ca parents: diff changeset	2259	"
e22c45e26653 intitial checkin ca parents: diff changeset	2260	^ canFit
e22c45e26653 intitial checkin ca parents: diff changeset	2261	!
e22c45e26653 intitial checkin ca parents: diff changeset	2262
1149 c212f122c8b3 allow collections of string and icons for a cell label Claus Gittinger <cg@exept.de> parents: 1136 diff changeset	2263	hasOpenEditor
c212f122c8b3 allow collections of string and icons for a cell label Claus Gittinger <cg@exept.de> parents: 1136 diff changeset	2264	^ editView notNil
c212f122c8b3 allow collections of string and icons for a cell label Claus Gittinger <cg@exept.de> parents: 1136 diff changeset	2265	!
c212f122c8b3 allow collections of string and icons for a cell label Claus Gittinger <cg@exept.de> parents: 1136 diff changeset	2266
563 826871ce82c9 bug fix: ca parents: 561 diff changeset	2267	indexOfFirstRowShown
826871ce82c9 bug fix: ca parents: 561 diff changeset	2268	"returns index of first row shown
826871ce82c9 bug fix: ca parents: 561 diff changeset	2269	"
826871ce82c9 bug fix: ca parents: 561 diff changeset	2270	\|idx\|
826871ce82c9 bug fix: ca parents: 561 diff changeset	2271
826871ce82c9 bug fix: ca parents: 561 diff changeset	2272	idx := (self yOriginOfContents // rowHeight) + 1.
618 6a79bf9b4cd3 support list with undefined rows ca parents: 612 diff changeset	2273	^ (idx <= self size) ifTrue:[idx] ifFalse:[0]
563 826871ce82c9 bug fix: ca parents: 561 diff changeset	2274
826871ce82c9 bug fix: ca parents: 561 diff changeset	2275	!
826871ce82c9 bug fix: ca parents: 561 diff changeset	2276
542 e22c45e26653 intitial checkin ca parents: diff changeset	2277	numberOfColumns
e22c45e26653 intitial checkin ca parents: diff changeset	2278	"returns number of columns
e22c45e26653 intitial checkin ca parents: diff changeset	2279	"
e22c45e26653 intitial checkin ca parents: diff changeset	2280	^ columnDescriptors size
e22c45e26653 intitial checkin ca parents: diff changeset	2281
e22c45e26653 intitial checkin ca parents: diff changeset	2282	!
e22c45e26653 intitial checkin ca parents: diff changeset	2283
e22c45e26653 intitial checkin ca parents: diff changeset	2284	numberOfRows
e22c45e26653 intitial checkin ca parents: diff changeset	2285	"returns number of raws
e22c45e26653 intitial checkin ca parents: diff changeset	2286	"
618 6a79bf9b4cd3 support list with undefined rows ca parents: 612 diff changeset	2287	^ self size
542 e22c45e26653 intitial checkin ca parents: diff changeset	2288
e22c45e26653 intitial checkin ca parents: diff changeset	2289	!
e22c45e26653 intitial checkin ca parents: diff changeset	2290
e22c45e26653 intitial checkin ca parents: diff changeset	2291	rowHeight
e22c45e26653 intitial checkin ca parents: diff changeset	2292	"get the height of the highest row in pixels
e22c45e26653 intitial checkin ca parents: diff changeset	2293	"
e22c45e26653 intitial checkin ca parents: diff changeset	2294	^ rowHeight
e22c45e26653 intitial checkin ca parents: diff changeset	2295
e22c45e26653 intitial checkin ca parents: diff changeset	2296	!
e22c45e26653 intitial checkin ca parents: diff changeset	2297
e22c45e26653 intitial checkin ca parents: diff changeset	2298	separatorSize
e22c45e26653 intitial checkin ca parents: diff changeset	2299	"returns vertical/horizontal size of a separator dependent on the
e22c45e26653 intitial checkin ca parents: diff changeset	2300	3D effect.
e22c45e26653 intitial checkin ca parents: diff changeset	2301	"
607 a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	2302	^ separatorSize
542 e22c45e26653 intitial checkin ca parents: diff changeset	2303
e22c45e26653 intitial checkin ca parents: diff changeset	2304	!
e22c45e26653 intitial checkin ca parents: diff changeset	2305
e22c45e26653 intitial checkin ca parents: diff changeset	2306	size
e22c45e26653 intitial checkin ca parents: diff changeset	2307	"returns number of raws
e22c45e26653 intitial checkin ca parents: diff changeset	2308	"
e22c45e26653 intitial checkin ca parents: diff changeset	2309	^ list size
e22c45e26653 intitial checkin ca parents: diff changeset	2310
e22c45e26653 intitial checkin ca parents: diff changeset	2311	! !
e22c45e26653 intitial checkin ca parents: diff changeset	2312
e22c45e26653 intitial checkin ca parents: diff changeset	2313	!DSVColumnView methodsFor:'recomputation'!
e22c45e26653 intitial checkin ca parents: diff changeset	2314
647 ee98a1976972 support of different styles ca parents: 645 diff changeset	2315	hasPreferredExtent
ee98a1976972 support of different styles ca parents: 645 diff changeset	2316	"returns true if preferred extent is accumulated
ee98a1976972 support of different styles ca parents: 645 diff changeset	2317	"
ee98a1976972 support of different styles ca parents: 645 diff changeset	2318	^ preferredExtent notNil
ee98a1976972 support of different styles ca parents: 645 diff changeset	2319	!
ee98a1976972 support of different styles ca parents: 645 diff changeset	2320
542 e22c45e26653 intitial checkin ca parents: diff changeset	2321	preferredExtent
647 ee98a1976972 support of different styles ca parents: 645 diff changeset	2322	"recompute preferred extent; raise notification
542 e22c45e26653 intitial checkin ca parents: diff changeset	2323	"
e22c45e26653 intitial checkin ca parents: diff changeset	2324	\|x\|
e22c45e26653 intitial checkin ca parents: diff changeset	2325
e22c45e26653 intitial checkin ca parents: diff changeset	2326	preferredExtent notNil ifTrue:[
e22c45e26653 intitial checkin ca parents: diff changeset	2327	^ preferredExtent
e22c45e26653 intitial checkin ca parents: diff changeset	2328	].
e22c45e26653 intitial checkin ca parents: diff changeset	2329	x := 3.
1112 81f2a7f0afdc draw routines for interactors ca parents: 1111 diff changeset	2330	rowHeight := font height.
542 e22c45e26653 intitial checkin ca parents: diff changeset	2331
e22c45e26653 intitial checkin ca parents: diff changeset	2332	self columnsDo:[:aCol\|
e22c45e26653 intitial checkin ca parents: diff changeset	2333	rowHeight := (aCol heightOfHighestRow) max:rowHeight.
e22c45e26653 intitial checkin ca parents: diff changeset	2334	x := x + (aCol minWidth).
e22c45e26653 intitial checkin ca parents: diff changeset	2335	].
647 ee98a1976972 support of different styles ca parents: 645 diff changeset	2336	rowHeight := (rowHeight + separatorSize + verticalSpacing + verticalSpacing + 1) // 2 * 2.
618 6a79bf9b4cd3 support list with undefined rows ca parents: 612 diff changeset	2337	preferredExtent := (x + margin + margin) @ (self size * rowHeight).
542 e22c45e26653 intitial checkin ca parents: diff changeset	2338
1087 8e97cbfebe12 add some comment ca parents: 1067 diff changeset	2339	rowFontAscent := (rowHeight - separatorSize - font height) // 2 + font ascent.
1112 81f2a7f0afdc draw routines for interactors ca parents: 1111 diff changeset	2340	rowFontAscent := font ascent.
859 e63eb6f321e1 support List for columns ca parents: 833 diff changeset	2341	self changed:#columnsLayout.
542 e22c45e26653 intitial checkin ca parents: diff changeset	2342	^ preferredExtent
e22c45e26653 intitial checkin ca parents: diff changeset	2343
e22c45e26653 intitial checkin ca parents: diff changeset	2344
e22c45e26653 intitial checkin ca parents: diff changeset	2345	!
e22c45e26653 intitial checkin ca parents: diff changeset	2346
e22c45e26653 intitial checkin ca parents: diff changeset	2347	preferredExtentChanged
1087 8e97cbfebe12 add some comment ca parents: 1067 diff changeset	2348	"called if the preffered extent changed
8e97cbfebe12 add some comment ca parents: 1067 diff changeset	2349	"
542 e22c45e26653 intitial checkin ca parents: diff changeset	2350	\|y x\|
e22c45e26653 intitial checkin ca parents: diff changeset	2351
e22c45e26653 intitial checkin ca parents: diff changeset	2352	y := viewOrigin y.
e22c45e26653 intitial checkin ca parents: diff changeset	2353	x := viewOrigin x.
e22c45e26653 intitial checkin ca parents: diff changeset	2354
e22c45e26653 intitial checkin ca parents: diff changeset	2355	(y ~~ 0 or:[x ~~ 0]) ifTrue:[
e22c45e26653 intitial checkin ca parents: diff changeset	2356	self originWillChange.
e22c45e26653 intitial checkin ca parents: diff changeset	2357	viewOrigin := 0 @ 0.
e22c45e26653 intitial checkin ca parents: diff changeset	2358	preferredExtent := nil.
e22c45e26653 intitial checkin ca parents: diff changeset	2359	self originChanged:(x negated @ y negated).
e22c45e26653 intitial checkin ca parents: diff changeset	2360	]
e22c45e26653 intitial checkin ca parents: diff changeset	2361	!
e22c45e26653 intitial checkin ca parents: diff changeset	2362
e22c45e26653 intitial checkin ca parents: diff changeset	2363	recomputeHeightOfContents
1087 8e97cbfebe12 add some comment ca parents: 1067 diff changeset	2364	"recompute height of contents( scrolling )
8e97cbfebe12 add some comment ca parents: 1067 diff changeset	2365	"
542 e22c45e26653 intitial checkin ca parents: diff changeset	2366	preferredExtent notNil ifTrue:[
618 6a79bf9b4cd3 support list with undefined rows ca parents: 612 diff changeset	2367	preferredExtent y:(rowHeight * self size)
542 e22c45e26653 intitial checkin ca parents: diff changeset	2368	] ifFalse:[
e22c45e26653 intitial checkin ca parents: diff changeset	2369	self preferredExtent
e22c45e26653 intitial checkin ca parents: diff changeset	2370	].
e22c45e26653 intitial checkin ca parents: diff changeset	2371	! !
e22c45e26653 intitial checkin ca parents: diff changeset	2372
e22c45e26653 intitial checkin ca parents: diff changeset	2373	!DSVColumnView methodsFor:'scroller interface'!
e22c45e26653 intitial checkin ca parents: diff changeset	2374
e22c45e26653 intitial checkin ca parents: diff changeset	2375	heightOfContents
e22c45e26653 intitial checkin ca parents: diff changeset	2376	"return the height of the contents in pixels
e22c45e26653 intitial checkin ca parents: diff changeset	2377	"
e22c45e26653 intitial checkin ca parents: diff changeset	2378	^ self preferredExtent y
e22c45e26653 intitial checkin ca parents: diff changeset	2379
e22c45e26653 intitial checkin ca parents: diff changeset	2380
e22c45e26653 intitial checkin ca parents: diff changeset	2381	!
e22c45e26653 intitial checkin ca parents: diff changeset	2382
e22c45e26653 intitial checkin ca parents: diff changeset	2383	innerHeight
e22c45e26653 intitial checkin ca parents: diff changeset	2384	"returns the inner height of the contents shown
e22c45e26653 intitial checkin ca parents: diff changeset	2385	"
e22c45e26653 intitial checkin ca parents: diff changeset	2386	^ height - margin - margin
e22c45e26653 intitial checkin ca parents: diff changeset	2387
e22c45e26653 intitial checkin ca parents: diff changeset	2388	!
e22c45e26653 intitial checkin ca parents: diff changeset	2389
e22c45e26653 intitial checkin ca parents: diff changeset	2390	innerWidth
e22c45e26653 intitial checkin ca parents: diff changeset	2391	"returns the inner width of the contents shown
e22c45e26653 intitial checkin ca parents: diff changeset	2392	"
e22c45e26653 intitial checkin ca parents: diff changeset	2393	^ width - margin - margin
e22c45e26653 intitial checkin ca parents: diff changeset	2394
e22c45e26653 intitial checkin ca parents: diff changeset	2395	!
e22c45e26653 intitial checkin ca parents: diff changeset	2396
e22c45e26653 intitial checkin ca parents: diff changeset	2397	verticalScrollStep
e22c45e26653 intitial checkin ca parents: diff changeset	2398	"return the amount to scroll when stepping up/down.
e22c45e26653 intitial checkin ca parents: diff changeset	2399	"
e22c45e26653 intitial checkin ca parents: diff changeset	2400	^ rowHeight
e22c45e26653 intitial checkin ca parents: diff changeset	2401
e22c45e26653 intitial checkin ca parents: diff changeset	2402
e22c45e26653 intitial checkin ca parents: diff changeset	2403
e22c45e26653 intitial checkin ca parents: diff changeset	2404	!
e22c45e26653 intitial checkin ca parents: diff changeset	2405
e22c45e26653 intitial checkin ca parents: diff changeset	2406	viewOrigin
e22c45e26653 intitial checkin ca parents: diff changeset	2407	"return the viewOrigin; thats the coordinate of the contents
e22c45e26653 intitial checkin ca parents: diff changeset	2408	which is shown topLeft in the view.
e22c45e26653 intitial checkin ca parents: diff changeset	2409	"
e22c45e26653 intitial checkin ca parents: diff changeset	2410	^ viewOrigin
e22c45e26653 intitial checkin ca parents: diff changeset	2411
e22c45e26653 intitial checkin ca parents: diff changeset	2412	!
e22c45e26653 intitial checkin ca parents: diff changeset	2413
e22c45e26653 intitial checkin ca parents: diff changeset	2414	widthOfContents
e22c45e26653 intitial checkin ca parents: diff changeset	2415	"return the width of the contents in pixels
e22c45e26653 intitial checkin ca parents: diff changeset	2416	"
647 ee98a1976972 support of different styles ca parents: 645 diff changeset	2417	preferredExtent isNil ifTrue:[
ee98a1976972 support of different styles ca parents: 645 diff changeset	2418	self preferredExtent
ee98a1976972 support of different styles ca parents: 645 diff changeset	2419	].
ee98a1976972 support of different styles ca parents: 645 diff changeset	2420	^ preferredExtent x
542 e22c45e26653 intitial checkin ca parents: diff changeset	2421
e22c45e26653 intitial checkin ca parents: diff changeset	2422	!
e22c45e26653 intitial checkin ca parents: diff changeset	2423
e22c45e26653 intitial checkin ca parents: diff changeset	2424	xOriginOfContents
e22c45e26653 intitial checkin ca parents: diff changeset	2425	"return the horizontal origin of the contents in pixels
e22c45e26653 intitial checkin ca parents: diff changeset	2426	"
e22c45e26653 intitial checkin ca parents: diff changeset	2427	^ viewOrigin x
e22c45e26653 intitial checkin ca parents: diff changeset	2428
e22c45e26653 intitial checkin ca parents: diff changeset	2429	!
e22c45e26653 intitial checkin ca parents: diff changeset	2430
e22c45e26653 intitial checkin ca parents: diff changeset	2431	yOriginOfContents
e22c45e26653 intitial checkin ca parents: diff changeset	2432	"return the vertical origin of the contents in pixels
e22c45e26653 intitial checkin ca parents: diff changeset	2433	"
e22c45e26653 intitial checkin ca parents: diff changeset	2434	^ viewOrigin y
e22c45e26653 intitial checkin ca parents: diff changeset	2435
e22c45e26653 intitial checkin ca parents: diff changeset	2436	! !
e22c45e26653 intitial checkin ca parents: diff changeset	2437
e22c45e26653 intitial checkin ca parents: diff changeset	2438	!DSVColumnView methodsFor:'scrolling'!
e22c45e26653 intitial checkin ca parents: diff changeset	2439
e22c45e26653 intitial checkin ca parents: diff changeset	2440	halfPageDown
e22c45e26653 intitial checkin ca parents: diff changeset	2441	"scroll down half a page
e22c45e26653 intitial checkin ca parents: diff changeset	2442	"
e22c45e26653 intitial checkin ca parents: diff changeset	2443	self scrollDown:(self innerHeight // 2)
e22c45e26653 intitial checkin ca parents: diff changeset	2444
e22c45e26653 intitial checkin ca parents: diff changeset	2445
e22c45e26653 intitial checkin ca parents: diff changeset	2446	!
e22c45e26653 intitial checkin ca parents: diff changeset	2447
e22c45e26653 intitial checkin ca parents: diff changeset	2448	halfPageUp
e22c45e26653 intitial checkin ca parents: diff changeset	2449	"scroll up half a page
e22c45e26653 intitial checkin ca parents: diff changeset	2450	"
e22c45e26653 intitial checkin ca parents: diff changeset	2451	self scrollUp:(self innerHeight // 2)
e22c45e26653 intitial checkin ca parents: diff changeset	2452
e22c45e26653 intitial checkin ca parents: diff changeset	2453	!
e22c45e26653 intitial checkin ca parents: diff changeset	2454
e22c45e26653 intitial checkin ca parents: diff changeset	2455	scrollTo:anOrigin redraw:doRedraw
e22c45e26653 intitial checkin ca parents: diff changeset	2456	"change origin to have newOrigin be visible at the top-left.
e22c45e26653 intitial checkin ca parents: diff changeset	2457	"
1123 ea32a2e3d44d care for sensor becoming nil while handling exposeEvents Claus Gittinger <cg@exept.de> parents: 1115 diff changeset	2458	\|x y dX dY newOrg dltOrg h innerWT innerHG sensor\|
542 e22c45e26653 intitial checkin ca parents: diff changeset	2459
e22c45e26653 intitial checkin ca parents: diff changeset	2460	shown ifFalse:[
e22c45e26653 intitial checkin ca parents: diff changeset	2461	^ self
e22c45e26653 intitial checkin ca parents: diff changeset	2462	].
612 af7786327bd4 add columnHolder ca parents: 610 diff changeset	2463
1123 ea32a2e3d44d care for sensor becoming nil while handling exposeEvents Claus Gittinger <cg@exept.de> parents: 1115 diff changeset	2464	sensor := self sensor.
ea32a2e3d44d care for sensor becoming nil while handling exposeEvents Claus Gittinger <cg@exept.de> parents: 1115 diff changeset	2465	[sensor hasExposeEventFor:nil] whileTrue:[
542 e22c45e26653 intitial checkin ca parents: diff changeset	2466	self windowGroup processExposeEvents
e22c45e26653 intitial checkin ca parents: diff changeset	2467	].
612 af7786327bd4 add columnHolder ca parents: 610 diff changeset	2468
542 e22c45e26653 intitial checkin ca parents: diff changeset	2469	innerWT := self innerWidth.
e22c45e26653 intitial checkin ca parents: diff changeset	2470	innerHG := self innerHeight.
e22c45e26653 intitial checkin ca parents: diff changeset	2471
e22c45e26653 intitial checkin ca parents: diff changeset	2472	h := viewOrigin y.
e22c45e26653 intitial checkin ca parents: diff changeset	2473
e22c45e26653 intitial checkin ca parents: diff changeset	2474	(y := anOrigin y) > h ifTrue:[ "/ end of contents
e22c45e26653 intitial checkin ca parents: diff changeset	2475	y > (dY := self maxViewOriginY) ifTrue:[
e22c45e26653 intitial checkin ca parents: diff changeset	2476	y := dY max:h
e22c45e26653 intitial checkin ca parents: diff changeset	2477	]
e22c45e26653 intitial checkin ca parents: diff changeset	2478	] ifFalse:[
e22c45e26653 intitial checkin ca parents: diff changeset	2479	y := y max:0.
e22c45e26653 intitial checkin ca parents: diff changeset	2480	].
e22c45e26653 intitial checkin ca parents: diff changeset	2481
e22c45e26653 intitial checkin ca parents: diff changeset	2482	(x := anOrigin x) > 0 ifTrue:[
e22c45e26653 intitial checkin ca parents: diff changeset	2483	x := x min:(self widthOfContents - innerWT).
e22c45e26653 intitial checkin ca parents: diff changeset	2484	].
e22c45e26653 intitial checkin ca parents: diff changeset	2485	x := x max:0.
e22c45e26653 intitial checkin ca parents: diff changeset	2486	newOrg := (x @ y).
e22c45e26653 intitial checkin ca parents: diff changeset	2487	dltOrg := newOrg - viewOrigin.
e22c45e26653 intitial checkin ca parents: diff changeset	2488	dX := dltOrg x.
e22c45e26653 intitial checkin ca parents: diff changeset	2489	dY := dltOrg y.
e22c45e26653 intitial checkin ca parents: diff changeset	2490
e22c45e26653 intitial checkin ca parents: diff changeset	2491	(dX == 0 and:[dY == 0]) ifTrue:[
e22c45e26653 intitial checkin ca parents: diff changeset	2492	^ self
e22c45e26653 intitial checkin ca parents: diff changeset	2493	].
e22c45e26653 intitial checkin ca parents: diff changeset	2494	self originWillChange.
e22c45e26653 intitial checkin ca parents: diff changeset	2495	viewOrigin := newOrg.
e22c45e26653 intitial checkin ca parents: diff changeset	2496
e22c45e26653 intitial checkin ca parents: diff changeset	2497	doRedraw ifFalse:[
e22c45e26653 intitial checkin ca parents: diff changeset	2498	^ self originChanged:dltOrg
e22c45e26653 intitial checkin ca parents: diff changeset	2499	].
e22c45e26653 intitial checkin ca parents: diff changeset	2500
e22c45e26653 intitial checkin ca parents: diff changeset	2501	dY ~~ 0 ifTrue:[ "/ SCROLL VERTICAL
e22c45e26653 intitial checkin ca parents: diff changeset	2502	dY := dY abs.
e22c45e26653 intitial checkin ca parents: diff changeset	2503
e22c45e26653 intitial checkin ca parents: diff changeset	2504	(dX ~~ 0 or:[innerHG - dY < 20]) ifTrue:[
e22c45e26653 intitial checkin ca parents: diff changeset	2505	self redraw.
e22c45e26653 intitial checkin ca parents: diff changeset	2506	] ifFalse:[ "/ COPY VERTICAL
e22c45e26653 intitial checkin ca parents: diff changeset	2507	\|y0 y1\|
e22c45e26653 intitial checkin ca parents: diff changeset	2508
e22c45e26653 intitial checkin ca parents: diff changeset	2509	y0 := y1 := margin + dY.
e22c45e26653 intitial checkin ca parents: diff changeset	2510	h := innerHG - dY.
e22c45e26653 intitial checkin ca parents: diff changeset	2511
e22c45e26653 intitial checkin ca parents: diff changeset	2512	dltOrg y < 0 ifTrue:[y0 := margin. y := y0]
e22c45e26653 intitial checkin ca parents: diff changeset	2513	ifFalse:[y1 := margin. y := y1 + h].
e22c45e26653 intitial checkin ca parents: diff changeset	2514
e22c45e26653 intitial checkin ca parents: diff changeset	2515	self catchExpose.
643 bfd44867347f adding: bug fix ca parents: 642 diff changeset	2516	self copyFrom:self x:margin y:y0 toX:margin y:y1 width:innerWT height:h async:true.
542 e22c45e26653 intitial checkin ca parents: diff changeset	2517	self waitForExpose.
643 bfd44867347f adding: bug fix ca parents: 642 diff changeset	2518	self redrawX:margin y:y width:innerWT height:(innerHG - h).
542 e22c45e26653 intitial checkin ca parents: diff changeset	2519	]
e22c45e26653 intitial checkin ca parents: diff changeset	2520	] ifFalse:[ "/ SCROLL HORIZONTAL
e22c45e26653 intitial checkin ca parents: diff changeset	2521	dX := dX abs.
e22c45e26653 intitial checkin ca parents: diff changeset	2522
e22c45e26653 intitial checkin ca parents: diff changeset	2523	innerWT - dX < 20 ifTrue:[
e22c45e26653 intitial checkin ca parents: diff changeset	2524	self redraw.
e22c45e26653 intitial checkin ca parents: diff changeset	2525	] ifFalse:[ "/ COPY HORIZONTAL
e22c45e26653 intitial checkin ca parents: diff changeset	2526	\|x0 x1 w\|
e22c45e26653 intitial checkin ca parents: diff changeset	2527
643 bfd44867347f adding: bug fix ca parents: 642 diff changeset	2528	x0 := x1 := dX + margin.
542 e22c45e26653 intitial checkin ca parents: diff changeset	2529	w := width - dX - margin.
e22c45e26653 intitial checkin ca parents: diff changeset	2530
643 bfd44867347f adding: bug fix ca parents: 642 diff changeset	2531	dltOrg x < 0 ifTrue:[x0 := x := margin ]
bfd44867347f adding: bug fix ca parents: 642 diff changeset	2532	ifFalse:[x1 := margin. x := w].
542 e22c45e26653 intitial checkin ca parents: diff changeset	2533
e22c45e26653 intitial checkin ca parents: diff changeset	2534	self catchExpose.
643 bfd44867347f adding: bug fix ca parents: 642 diff changeset	2535	self copyFrom:self x:x0 y:margin toX:x1 y:margin width:w height:innerHG async:true.
542 e22c45e26653 intitial checkin ca parents: diff changeset	2536	self waitForExpose.
643 bfd44867347f adding: bug fix ca parents: 642 diff changeset	2537	self redrawX:x y:margin width:(width - w) height:innerHG.
542 e22c45e26653 intitial checkin ca parents: diff changeset	2538	]
e22c45e26653 intitial checkin ca parents: diff changeset	2539	].
e22c45e26653 intitial checkin ca parents: diff changeset	2540	self originChanged:dltOrg.
1123 ea32a2e3d44d care for sensor becoming nil while handling exposeEvents Claus Gittinger <cg@exept.de> parents: 1115 diff changeset	2541
ea32a2e3d44d care for sensor becoming nil while handling exposeEvents Claus Gittinger <cg@exept.de> parents: 1115 diff changeset	2542	"Modified: / 7.9.1998 / 16:39:49 / cg"
542 e22c45e26653 intitial checkin ca parents: diff changeset	2543	!
e22c45e26653 intitial checkin ca parents: diff changeset	2544
e22c45e26653 intitial checkin ca parents: diff changeset	2545	scrollToRowAt:aRowNr colAt:aColNr
e22c45e26653 intitial checkin ca parents: diff changeset	2546	"make row at a row number in column at a column number visible
e22c45e26653 intitial checkin ca parents: diff changeset	2547	"
e22c45e26653 intitial checkin ca parents: diff changeset	2548	\|x y l dY dX\|
e22c45e26653 intitial checkin ca parents: diff changeset	2549
618 6a79bf9b4cd3 support list with undefined rows ca parents: 612 diff changeset	2550	( (aRowNr between:1 and:(self size))
542 e22c45e26653 intitial checkin ca parents: diff changeset	2551	and:[aColNr between:0 and:(self numberOfColumns)]
e22c45e26653 intitial checkin ca parents: diff changeset	2552	) ifFalse:[
e22c45e26653 intitial checkin ca parents: diff changeset	2553	^ self
e22c45e26653 intitial checkin ca parents: diff changeset	2554	].
e22c45e26653 intitial checkin ca parents: diff changeset	2555
e22c45e26653 intitial checkin ca parents: diff changeset	2556	dY := dX := 0.
e22c45e26653 intitial checkin ca parents: diff changeset	2557	y := self yVisibleOfRowNr:aRowNr.
e22c45e26653 intitial checkin ca parents: diff changeset	2558
e22c45e26653 intitial checkin ca parents: diff changeset	2559	y < margin ifTrue:[
e22c45e26653 intitial checkin ca parents: diff changeset	2560	dY := margin - y.
e22c45e26653 intitial checkin ca parents: diff changeset	2561	] ifFalse:[
e22c45e26653 intitial checkin ca parents: diff changeset	2562	y := y + rowHeight.
e22c45e26653 intitial checkin ca parents: diff changeset	2563	l := height - margin.
e22c45e26653 intitial checkin ca parents: diff changeset	2564	y > l ifTrue:[dY := l - y]
e22c45e26653 intitial checkin ca parents: diff changeset	2565	].
e22c45e26653 intitial checkin ca parents: diff changeset	2566
e22c45e26653 intitial checkin ca parents: diff changeset	2567	aColNr == 0 ifTrue:[
e22c45e26653 intitial checkin ca parents: diff changeset	2568	dY == 0 ifTrue:[^ self].
e22c45e26653 intitial checkin ca parents: diff changeset	2569	dX := 0.
e22c45e26653 intitial checkin ca parents: diff changeset	2570	] ifFalse:[
e22c45e26653 intitial checkin ca parents: diff changeset	2571	x := self xVisibleOfColNr:aColNr.
e22c45e26653 intitial checkin ca parents: diff changeset	2572
e22c45e26653 intitial checkin ca parents: diff changeset	2573	x < margin ifTrue:[
e22c45e26653 intitial checkin ca parents: diff changeset	2574	dX := margin - x
e22c45e26653 intitial checkin ca parents: diff changeset	2575	] ifFalse:[
e22c45e26653 intitial checkin ca parents: diff changeset	2576	x := x + (self columnAt:aColNr) width.
e22c45e26653 intitial checkin ca parents: diff changeset	2577	l := width - margin.
e22c45e26653 intitial checkin ca parents: diff changeset	2578	x > l ifTrue:[dX := l - x]
e22c45e26653 intitial checkin ca parents: diff changeset	2579	]
e22c45e26653 intitial checkin ca parents: diff changeset	2580	].
e22c45e26653 intitial checkin ca parents: diff changeset	2581
e22c45e26653 intitial checkin ca parents: diff changeset	2582	(dX == 0 and:[dY == 0]) ifFalse:[
e22c45e26653 intitial checkin ca parents: diff changeset	2583	self scrollTo:(viewOrigin - (dX @ dY)).
e22c45e26653 intitial checkin ca parents: diff changeset	2584	]
e22c45e26653 intitial checkin ca parents: diff changeset	2585
e22c45e26653 intitial checkin ca parents: diff changeset	2586
e22c45e26653 intitial checkin ca parents: diff changeset	2587	!
e22c45e26653 intitial checkin ca parents: diff changeset	2588
e22c45e26653 intitial checkin ca parents: diff changeset	2589	scrollToSelection
e22c45e26653 intitial checkin ca parents: diff changeset	2590	"make selection visible
e22c45e26653 intitial checkin ca parents: diff changeset	2591	"
607 a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	2592	\|rowNr\|
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	2593
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	2594	(rowNr := self firstIndexSelected) ~~ 0 ifTrue:[
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	2595	self scrollToRowAt:rowNr colAt:(self selectedColIndex)
542 e22c45e26653 intitial checkin ca parents: diff changeset	2596	]
e22c45e26653 intitial checkin ca parents: diff changeset	2597
e22c45e26653 intitial checkin ca parents: diff changeset	2598	! !
e22c45e26653 intitial checkin ca parents: diff changeset	2599
e22c45e26653 intitial checkin ca parents: diff changeset	2600	!DSVColumnView methodsFor:'selection'!
e22c45e26653 intitial checkin ca parents: diff changeset	2601
607 a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	2602	deselect
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	2603	"deselect
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	2604	"
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	2605	self selectColIndex:0 rowIndex:0
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	2606	!
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	2607
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	2608	firstIndexSelected
809 0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	2609	"returns index of first row selected or 0
607 a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	2610	"
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	2611	multipleSelectOk ifFalse:[
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	2612	^ selectedRowIndex
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	2613	].
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	2614	selectedRowIndex size ~~ 0 ifTrue:[
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	2615	^ selectedRowIndex at:1
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	2616	].
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	2617	^ 0
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	2618	!
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	2619
542 e22c45e26653 intitial checkin ca parents: diff changeset	2620	hasSelection
607 a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	2621	"returns true if a selection exists
542 e22c45e26653 intitial checkin ca parents: diff changeset	2622	"
607 a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	2623	^ self numberOfSelections ~~ 0
542 e22c45e26653 intitial checkin ca parents: diff changeset	2624
e22c45e26653 intitial checkin ca parents: diff changeset	2625
e22c45e26653 intitial checkin ca parents: diff changeset	2626	!
e22c45e26653 intitial checkin ca parents: diff changeset	2627
607 a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	2628	isInSelection:aRowNr
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	2629	"return true, if row, aRowNr is in the selection
542 e22c45e26653 intitial checkin ca parents: diff changeset	2630	"
607 a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	2631	aRowNr ~~ 0 ifTrue:[
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	2632	multipleSelectOk ifFalse:[
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	2633	^ aRowNr == selectedRowIndex
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	2634	].
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	2635	selectedRowIndex size ~~ 0 ifTrue:[
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	2636	^ selectedRowIndex includes:aRowNr
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	2637	]
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	2638	].
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	2639	^ false
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	2640	!
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	2641
647 ee98a1976972 support of different styles ca parents: 645 diff changeset	2642	isRowSelected:aRowNr
ee98a1976972 support of different styles ca parents: 645 diff changeset	2643	"return true, if row is in the selection
ee98a1976972 support of different styles ca parents: 645 diff changeset	2644	"
ee98a1976972 support of different styles ca parents: 645 diff changeset	2645	selectedColIndex == 0 ifTrue:[
ee98a1976972 support of different styles ca parents: 645 diff changeset	2646	^ self isInSelection:aRowNr
ee98a1976972 support of different styles ca parents: 645 diff changeset	2647	].
ee98a1976972 support of different styles ca parents: 645 diff changeset	2648	^ false
ee98a1976972 support of different styles ca parents: 645 diff changeset	2649	!
ee98a1976972 support of different styles ca parents: 645 diff changeset	2650
607 a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	2651	isSelected:aRowNr inColumn:aColNr
612 af7786327bd4 add columnHolder ca parents: 610 diff changeset	2652	"returns true if cell in a row; a row number, in a column, a column
af7786327bd4 add columnHolder ca parents: 610 diff changeset	2653	number is selected.
af7786327bd4 add columnHolder ca parents: 610 diff changeset	2654	"
1042 b2b27ac9a550 change rowSelector icon; ca parents: 1034 diff changeset	2655	multipleSelectOk ifFalse:[
b2b27ac9a550 change rowSelector icon; ca parents: 1034 diff changeset	2656	aRowNr ~~ selectedRowIndex ifTrue:[
b2b27ac9a550 change rowSelector icon; ca parents: 1034 diff changeset	2657	^ false
b2b27ac9a550 change rowSelector icon; ca parents: 1034 diff changeset	2658	]
b2b27ac9a550 change rowSelector icon; ca parents: 1034 diff changeset	2659	] ifTrue:[
b2b27ac9a550 change rowSelector icon; ca parents: 1034 diff changeset	2660	(selectedRowIndex size ~~ 0 and:[selectedRowIndex includes:aRowNr]) ifFalse:[
b2b27ac9a550 change rowSelector icon; ca parents: 1034 diff changeset	2661	^ false
b2b27ac9a550 change rowSelector icon; ca parents: 1034 diff changeset	2662	]
607 a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	2663	].
1042 b2b27ac9a550 change rowSelector icon; ca parents: 1034 diff changeset	2664	^ (selectedColIndex == 0 or:[selectedColIndex == aColNr])
b2b27ac9a550 change rowSelector icon; ca parents: 1034 diff changeset	2665
607 a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	2666	!
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	2667
809 0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	2668	lastIndexSelected
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	2669	"returns index of last row selected or 0
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	2670	"
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	2671	multipleSelectOk ifFalse:[
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	2672	^ selectedRowIndex
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	2673	].
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	2674	selectedRowIndex size ~~ 0 ifTrue:[
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	2675	^ selectedRowIndex last
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	2676	].
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	2677	^ 0
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	2678	!
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	2679
607 a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	2680	numberOfSelections
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	2681	"return the number of selected rows
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	2682	"
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	2683	multipleSelectOk ifFalse:[
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	2684	^ selectedRowIndex ~~ 0 ifTrue:[1] ifFalse:[0]
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	2685	].
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	2686	^ selectedRowIndex size
542 e22c45e26653 intitial checkin ca parents: diff changeset	2687	!
e22c45e26653 intitial checkin ca parents: diff changeset	2688
e22c45e26653 intitial checkin ca parents: diff changeset	2689	selectColIndex:aColNr rowIndex:aRowNr
e22c45e26653 intitial checkin ca parents: diff changeset	2690	"change selection with notification
e22c45e26653 intitial checkin ca parents: diff changeset	2691	"
e22c45e26653 intitial checkin ca parents: diff changeset	2692	\|oC oR\|
e22c45e26653 intitial checkin ca parents: diff changeset	2693
607 a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	2694	oC := self selectedColIndex.
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	2695	oR := self selectedRowIndex.
542 e22c45e26653 intitial checkin ca parents: diff changeset	2696
e22c45e26653 intitial checkin ca parents: diff changeset	2697	self setSelectColIndex:aColNr rowIndex:aRowNr.
e22c45e26653 intitial checkin ca parents: diff changeset	2698
607 a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	2699	(oC ~~ self selectedColIndex or:[oR ~= self selectedRowIndex]) ifTrue:[
542 e22c45e26653 intitial checkin ca parents: diff changeset	2700	self selectionChanged
e22c45e26653 intitial checkin ca parents: diff changeset	2701	].
e22c45e26653 intitial checkin ca parents: diff changeset	2702	!
e22c45e26653 intitial checkin ca parents: diff changeset	2703
607 a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	2704	selectRow:something
542 e22c45e26653 intitial checkin ca parents: diff changeset	2705	"select a row
e22c45e26653 intitial checkin ca parents: diff changeset	2706	"
607 a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	2707	^ self selectedRowIndex:something
542 e22c45e26653 intitial checkin ca parents: diff changeset	2708	!
e22c45e26653 intitial checkin ca parents: diff changeset	2709
809 0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	2710	selectRowAt:rowNr colAt:colNr atPoint:aPoint
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	2711	\|v p\|
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	2712
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	2713	self selectColIndex:colNr rowIndex:rowNr.
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	2714
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	2715	(v := self detectViewAt:aPoint in:editView) notNil ifTrue:[
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	2716	p := device translatePoint:aPoint from:(self id) to:(v id).
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	2717
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	2718	self sensor pushEvent:(WindowEvent buttonEvent
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	2719	for:v
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	2720	type:#buttonPress:x:y:
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	2721	arguments:(Array with:#select with:p x with:p y)
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	2722	)
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	2723	].
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	2724
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	2725
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	2726	!
0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	2727
607 a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	2728	selectRowIndex:something
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	2729	"set selection of rows
542 e22c45e26653 intitial checkin ca parents: diff changeset	2730	"
607 a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	2731	self selectColIndex:selectedColIndex rowIndex:something
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	2732
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	2733
542 e22c45e26653 intitial checkin ca parents: diff changeset	2734	!
e22c45e26653 intitial checkin ca parents: diff changeset	2735
e22c45e26653 intitial checkin ca parents: diff changeset	2736	selectedColIndex
e22c45e26653 intitial checkin ca parents: diff changeset	2737	"returns selected column number or 0
e22c45e26653 intitial checkin ca parents: diff changeset	2738	"
e22c45e26653 intitial checkin ca parents: diff changeset	2739	^ selectedColIndex
e22c45e26653 intitial checkin ca parents: diff changeset	2740	!
e22c45e26653 intitial checkin ca parents: diff changeset	2741
e22c45e26653 intitial checkin ca parents: diff changeset	2742	selectedColumn
e22c45e26653 intitial checkin ca parents: diff changeset	2743	"returns selected column or nil
e22c45e26653 intitial checkin ca parents: diff changeset	2744	"
e22c45e26653 intitial checkin ca parents: diff changeset	2745	^ columnDescriptors at:selectedColIndex ifAbsent:nil.
e22c45e26653 intitial checkin ca parents: diff changeset	2746	!
e22c45e26653 intitial checkin ca parents: diff changeset	2747
e22c45e26653 intitial checkin ca parents: diff changeset	2748	selectedRow
607 a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	2749	"returns selected row (or collection if multiple selection) or nil
542 e22c45e26653 intitial checkin ca parents: diff changeset	2750	"
607 a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	2751	multipleSelectOk ifFalse:[
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	2752	^ self at:selectedRowIndex ifAbsent:nil
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	2753	].
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	2754
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	2755	selectedRowIndex size ~~ 0 ifTrue:[
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	2756	^ selectedRowIndex collect:[:i\| self at:i]
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	2757	].
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	2758	^ nil
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	2759	!
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	2760
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	2761	selectedRow:something
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	2762	"select something
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	2763	"
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	2764	self selectedRowIndex:something
542 e22c45e26653 intitial checkin ca parents: diff changeset	2765	!
e22c45e26653 intitial checkin ca parents: diff changeset	2766
e22c45e26653 intitial checkin ca parents: diff changeset	2767	selectedRowIndex
e22c45e26653 intitial checkin ca parents: diff changeset	2768	"returns selected row number or 0
e22c45e26653 intitial checkin ca parents: diff changeset	2769	"
e22c45e26653 intitial checkin ca parents: diff changeset	2770	^ selectedRowIndex
e22c45e26653 intitial checkin ca parents: diff changeset	2771	!
e22c45e26653 intitial checkin ca parents: diff changeset	2772
607 a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	2773	selectedRowIndex:something
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	2774	"set selection of rows
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	2775	"
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	2776	self selectColIndex:selectedColIndex rowIndex:something
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	2777
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	2778
542 e22c45e26653 intitial checkin ca parents: diff changeset	2779	!
e22c45e26653 intitial checkin ca parents: diff changeset	2780
e22c45e26653 intitial checkin ca parents: diff changeset	2781	selectionChanged
e22c45e26653 intitial checkin ca parents: diff changeset	2782	"selection has changed
e22c45e26653 intitial checkin ca parents: diff changeset	2783	"
e22c45e26653 intitial checkin ca parents: diff changeset	2784	self changed:#selection.
e22c45e26653 intitial checkin ca parents: diff changeset	2785
e22c45e26653 intitial checkin ca parents: diff changeset	2786	actionBlock notNil ifTrue:[
607 a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	2787	actionBlock value:(self selectedRowIndex)
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	2788	]
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	2789	!
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	2790
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	2791	selectionIndicesDo:aOneArgBlock
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	2792	"evaluate block on each row selected; the argument to the row
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	2793	is the index of the selected row
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	2794	"
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	2795	multipleSelectOk ifFalse:[
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	2796	selectedRowIndex ~~ 0 ifTrue:[
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	2797	aOneArgBlock value:selectedRowIndex
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	2798	]
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	2799	] ifTrue:[
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	2800	selectedRowIndex size ~~ 0 ifTrue:[
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	2801	selectedRowIndex do:[:i\| aOneArgBlock value:i ]
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	2802	]
542 e22c45e26653 intitial checkin ca parents: diff changeset	2803	]
e22c45e26653 intitial checkin ca parents: diff changeset	2804	!
e22c45e26653 intitial checkin ca parents: diff changeset	2805
e22c45e26653 intitial checkin ca parents: diff changeset	2806	setSelectColIndex:aColNr rowIndex:aRowNr
e22c45e26653 intitial checkin ca parents: diff changeset	2807	"change selection without notification
e22c45e26653 intitial checkin ca parents: diff changeset	2808	"
1149 c212f122c8b3 allow collections of string and icons for a cell label Claus Gittinger <cg@exept.de> parents: 1136 diff changeset	2809	\|editSpec rowNr colNr newCol oldCol oldRow sensor sglSelRow oldSz
c212f122c8b3 allow collections of string and icons for a cell label Claus Gittinger <cg@exept.de> parents: 1136 diff changeset	2810	keyBrdFwd bg filter edValue\|
542 e22c45e26653 intitial checkin ca parents: diff changeset	2811
607 a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	2812	rowNr := self validateSelection:aRowNr.
542 e22c45e26653 intitial checkin ca parents: diff changeset	2813
607 a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	2814	multipleSelectOk ifTrue:[
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	2815	colNr := (rowNr size == 1) ifTrue:[aColNr] ifFalse:[0]
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	2816	] ifFalse:[
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	2817	colNr := rowNr ~~ 0 ifTrue:[aColNr] ifFalse:[0]
542 e22c45e26653 intitial checkin ca parents: diff changeset	2818	].
e22c45e26653 intitial checkin ca parents: diff changeset	2819
607 a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	2820	(colNr := colNr ? 0) ~~ 0 ifTrue:[
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	2821	newCol := self columnAt:colNr.
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	2822	newCol rendererType == #rowSelector ifTrue:[
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	2823	colNr := 0.
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	2824	newCol := nil
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	2825	] ifFalse:[
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	2826	multipleSelectOk ifTrue:[sglSelRow := rowNr at:1]
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	2827	ifFalse:[sglSelRow := rowNr].
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	2828
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	2829	(newCol canSelect:sglSelRow) ifFalse:[
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	2830	newCol := nil.
1112 81f2a7f0afdc draw routines for interactors ca parents: 1111 diff changeset	2831	colNr := 0.
81f2a7f0afdc draw routines for interactors ca parents: 1111 diff changeset	2832
81f2a7f0afdc draw routines for interactors ca parents: 1111 diff changeset	2833	selectRowOnDefault ifFalse:[
81f2a7f0afdc draw routines for interactors ca parents: 1111 diff changeset	2834	rowNr := multipleSelectOk ifFalse:[0] ifTrue:[nil]
81f2a7f0afdc draw routines for interactors ca parents: 1111 diff changeset	2835	]
607 a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	2836	]
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	2837	]
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	2838	].
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	2839
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	2840	(rowNr = selectedRowIndex and:[colNr == selectedColIndex]) ifTrue:[
643 bfd44867347f adding: bug fix ca parents: 642 diff changeset	2841	^ self
542 e22c45e26653 intitial checkin ca parents: diff changeset	2842	].
e22c45e26653 intitial checkin ca parents: diff changeset	2843
e22c45e26653 intitial checkin ca parents: diff changeset	2844	"/ release old selection
e22c45e26653 intitial checkin ca parents: diff changeset	2845
612 af7786327bd4 add columnHolder ca parents: 610 diff changeset	2846	oldSz := self numberOfSelections.
542 e22c45e26653 intitial checkin ca parents: diff changeset	2847	oldCol := selectedColIndex.
e22c45e26653 intitial checkin ca parents: diff changeset	2848	oldRow := selectedRowIndex.
612 af7786327bd4 add columnHolder ca parents: 610 diff changeset	2849
542 e22c45e26653 intitial checkin ca parents: diff changeset	2850	selectedRowIndex := rowNr.
e22c45e26653 intitial checkin ca parents: diff changeset	2851	selectedColIndex := colNr.
e22c45e26653 intitial checkin ca parents: diff changeset	2852
612 af7786327bd4 add columnHolder ca parents: 610 diff changeset	2853	oldSz == 1 ifTrue:[
af7786327bd4 add columnHolder ca parents: 610 diff changeset	2854	multipleSelectOk ifTrue:[oldRow := oldRow at:1].
542 e22c45e26653 intitial checkin ca parents: diff changeset	2855
612 af7786327bd4 add columnHolder ca parents: 610 diff changeset	2856	editValue notNil ifTrue:[
622 2588f809445d update:with:from: ca parents: 618 diff changeset	2857	editValue removeDependent:self.
1149 c212f122c8b3 allow collections of string and icons for a cell label Claus Gittinger <cg@exept.de> parents: 1136 diff changeset	2858	edValue := editValue value.
c212f122c8b3 allow collections of string and icons for a cell label Claus Gittinger <cg@exept.de> parents: 1136 diff changeset	2859	edValue isSequenceable ifTrue:[
c212f122c8b3 allow collections of string and icons for a cell label Claus Gittinger <cg@exept.de> parents: 1136 diff changeset	2860	edValue size == 0 ifTrue:[
c212f122c8b3 allow collections of string and icons for a cell label Claus Gittinger <cg@exept.de> parents: 1136 diff changeset	2861	edValue := nil
c212f122c8b3 allow collections of string and icons for a cell label Claus Gittinger <cg@exept.de> parents: 1136 diff changeset	2862	] ifFalse:[
c212f122c8b3 allow collections of string and icons for a cell label Claus Gittinger <cg@exept.de> parents: 1136 diff changeset	2863	edValue isString not ifTrue:[
c212f122c8b3 allow collections of string and icons for a cell label Claus Gittinger <cg@exept.de> parents: 1136 diff changeset	2864	edValue := edValue select:[:el\| el notNil ].
c212f122c8b3 allow collections of string and icons for a cell label Claus Gittinger <cg@exept.de> parents: 1136 diff changeset	2865	edValue size == 0 ifTrue:[
c212f122c8b3 allow collections of string and icons for a cell label Claus Gittinger <cg@exept.de> parents: 1136 diff changeset	2866	edValue := nil
c212f122c8b3 allow collections of string and icons for a cell label Claus Gittinger <cg@exept.de> parents: 1136 diff changeset	2867	]
c212f122c8b3 allow collections of string and icons for a cell label Claus Gittinger <cg@exept.de> parents: 1136 diff changeset	2868	]
c212f122c8b3 allow collections of string and icons for a cell label Claus Gittinger <cg@exept.de> parents: 1136 diff changeset	2869	]
c212f122c8b3 allow collections of string and icons for a cell label Claus Gittinger <cg@exept.de> parents: 1136 diff changeset	2870	].
c212f122c8b3 allow collections of string and icons for a cell label Claus Gittinger <cg@exept.de> parents: 1136 diff changeset	2871	(self columnAt:oldCol) at:oldRow put:edValue.
612 af7786327bd4 add columnHolder ca parents: 610 diff changeset	2872	editValue := nil
af7786327bd4 add columnHolder ca parents: 610 diff changeset	2873	].
1111 4fd0430173fa support #Tab ca parents: 1109 diff changeset	2874	self destroyEditView.
612 af7786327bd4 add columnHolder ca parents: 610 diff changeset	2875	].
af7786327bd4 add columnHolder ca parents: 610 diff changeset	2876	shown ifFalse:[^ self ].
542 e22c45e26653 intitial checkin ca parents: diff changeset	2877
618 6a79bf9b4cd3 support list with undefined rows ca parents: 612 diff changeset	2878	oldSz > 1 ifTrue:[ "/ redraw old selection
6a79bf9b4cd3 support list with undefined rows ca parents: 612 diff changeset	2879	oldRow do:[:aRowNr\| "/ unselected if visible
6a79bf9b4cd3 support list with undefined rows ca parents: 612 diff changeset	2880	self redrawRowAt:aRowNr colAt:0
6a79bf9b4cd3 support list with undefined rows ca parents: 612 diff changeset	2881	]
6a79bf9b4cd3 support list with undefined rows ca parents: 612 diff changeset	2882	] ifFalse:[
6a79bf9b4cd3 support list with undefined rows ca parents: 612 diff changeset	2883	oldSz == 1 ifTrue:[
6a79bf9b4cd3 support list with undefined rows ca parents: 612 diff changeset	2884	self redrawRowAt:oldRow colAt:oldCol
6a79bf9b4cd3 support list with undefined rows ca parents: 612 diff changeset	2885	]
6a79bf9b4cd3 support list with undefined rows ca parents: 612 diff changeset	2886	].
6a79bf9b4cd3 support list with undefined rows ca parents: 612 diff changeset	2887
542 e22c45e26653 intitial checkin ca parents: diff changeset	2888	"/ show new selection
e22c45e26653 intitial checkin ca parents: diff changeset	2889
e22c45e26653 intitial checkin ca parents: diff changeset	2890	newCol notNil ifTrue:[
607 a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	2891	self scrollToRowAt:sglSelRow colAt:colNr.
833 c4e3e579f8bd handle choices ca parents: 824 diff changeset	2892	editSpec := newCol editorAt:sglSelRow.
c4e3e579f8bd handle choices ca parents: 824 diff changeset	2893
c4e3e579f8bd handle choices ca parents: 824 diff changeset	2894	editSpec notNil ifTrue:[
1112 81f2a7f0afdc draw routines for interactors ca parents: 1111 diff changeset	2895	editView := SimpleView extent:( (newCol width - (2 * separatorSize))
81f2a7f0afdc draw routines for interactors ca parents: 1111 diff changeset	2896	@ (rowHeight - (2 * separatorSize))
607 a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	2897	)
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	2898	in:self.
542 e22c45e26653 intitial checkin ca parents: diff changeset	2899	self updateEditViewOrigin.
1112 81f2a7f0afdc draw routines for interactors ca parents: 1111 diff changeset	2900
1134 d7c5844b24b0 * empty log message * ca parents: 1131 diff changeset	2901	(newCol containsText or:[newCol showSelectionHighLighted not]) ifTrue:[
d7c5844b24b0 * empty log message * ca parents: 1131 diff changeset	2902	editView viewBackground:(newCol backgroundColorFor:sglSelRow)
1112 81f2a7f0afdc draw routines for interactors ca parents: 1111 diff changeset	2903	] ifFalse:[
81f2a7f0afdc draw routines for interactors ca parents: 1111 diff changeset	2904	editView viewBackground:hgLgBgColor
81f2a7f0afdc draw routines for interactors ca parents: 1111 diff changeset	2905	].
833 c4e3e579f8bd handle choices ca parents: 824 diff changeset	2906	editView add:(editSpec at:1).
1149 c212f122c8b3 allow collections of string and icons for a cell label Claus Gittinger <cg@exept.de> parents: 1136 diff changeset	2907	oldSz := editSpec size.
c212f122c8b3 allow collections of string and icons for a cell label Claus Gittinger <cg@exept.de> parents: 1136 diff changeset	2908
c212f122c8b3 allow collections of string and icons for a cell label Claus Gittinger <cg@exept.de> parents: 1136 diff changeset	2909	oldSz == 3 ifTrue:[
c212f122c8b3 allow collections of string and icons for a cell label Claus Gittinger <cg@exept.de> parents: 1136 diff changeset	2910	filter := [:aKey\| #(#Tab #CursorUp #CursorDown) includes:aKey]
c212f122c8b3 allow collections of string and icons for a cell label Claus Gittinger <cg@exept.de> parents: 1136 diff changeset	2911	] ifFalse:[
c212f122c8b3 allow collections of string and icons for a cell label Claus Gittinger <cg@exept.de> parents: 1136 diff changeset	2912	filter := [:aKey\| aKey == #Tab]
c212f122c8b3 allow collections of string and icons for a cell label Claus Gittinger <cg@exept.de> parents: 1136 diff changeset	2913	].
1111 4fd0430173fa support #Tab ca parents: 1109 diff changeset	2914	keyBrdFwd := KeyboardForwarder toView:self
4fd0430173fa support #Tab ca parents: 1109 diff changeset	2915	condition:nil
1149 c212f122c8b3 allow collections of string and icons for a cell label Claus Gittinger <cg@exept.de> parents: 1136 diff changeset	2916	filter:filter.
1111 4fd0430173fa support #Tab ca parents: 1109 diff changeset	2917
4fd0430173fa support #Tab ca parents: 1109 diff changeset	2918	editView withAllSubViewsDo:[:aView\|
1112 81f2a7f0afdc draw routines for interactors ca parents: 1111 diff changeset	2919	aView delegate:keyBrdFwd.
81f2a7f0afdc draw routines for interactors ca parents: 1111 diff changeset	2920	aView font:font.
1111 4fd0430173fa support #Tab ca parents: 1109 diff changeset	2921	].
4fd0430173fa support #Tab ca parents: 1109 diff changeset	2922
1149 c212f122c8b3 allow collections of string and icons for a cell label Claus Gittinger <cg@exept.de> parents: 1136 diff changeset	2923	(editValue := editSpec at:2 ifAbsent:nil) notNil ifTrue:[
809 0206d997fe99 support styleSheet and set preferred extent for drawing ca parents: 765 diff changeset	2924	editValue addDependent:self.
648 1d77d0c9e58a check for isEditing ca parents: 647 diff changeset	2925	].
542 e22c45e26653 intitial checkin ca parents: diff changeset	2926	editView realize.
1111 4fd0430173fa support #Tab ca parents: 1109 diff changeset	2927	self windowGroup focusView:(editSpec at:1).
4fd0430173fa support #Tab ca parents: 1109 diff changeset	2928
542 e22c45e26653 intitial checkin ca parents: diff changeset	2929	] ifFalse:[
607 a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	2930	self redrawRowAt:sglSelRow colAt:colNr
612 af7786327bd4 add columnHolder ca parents: 610 diff changeset	2931	].
af7786327bd4 add columnHolder ca parents: 610 diff changeset	2932	] ifFalse:[
af7786327bd4 add columnHolder ca parents: 610 diff changeset	2933	self selectionIndicesDo:[:i\| self redrawRowAt:i colAt:0 ].
af7786327bd4 add columnHolder ca parents: 610 diff changeset	2934	self scrollToRowAt:(self firstIndexSelected) colAt:0
af7786327bd4 add columnHolder ca parents: 610 diff changeset	2935	].
af7786327bd4 add columnHolder ca parents: 610 diff changeset	2936
af7786327bd4 add columnHolder ca parents: 610 diff changeset	2937	sensor := self sensor. "/ catch expose events
af7786327bd4 add columnHolder ca parents: 610 diff changeset	2938
af7786327bd4 add columnHolder ca parents: 610 diff changeset	2939	[sensor hasExposeEventFor:nil] whileTrue:[
af7786327bd4 add columnHolder ca parents: 610 diff changeset	2940	self windowGroup processExposeEvents
af7786327bd4 add columnHolder ca parents: 610 diff changeset	2941	].
af7786327bd4 add columnHolder ca parents: 610 diff changeset	2942
542 e22c45e26653 intitial checkin ca parents: diff changeset	2943
607 a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	2944	!
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	2945
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	2946	validateSelection:aSelection
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	2947	\|newSel\|
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	2948
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	2949	newSel := aSelection.
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	2950
618 6a79bf9b4cd3 support list with undefined rows ca parents: 612 diff changeset	2951	(self size == 0 or:[newSel isNil or:[newSel == 0]]) ifTrue:[
607 a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	2952	^ multipleSelectOk ifFalse:[0] ifTrue:[nil]
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	2953	].
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	2954
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	2955	newSel isNumber ifTrue:[
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	2956	^ multipleSelectOk ifFalse:[newSel] ifTrue:[OrderedCollection with:newSel]
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	2957	].
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	2958	multipleSelectOk ifFalse:[
618 6a79bf9b4cd3 support list with undefined rows ca parents: 612 diff changeset	2959	newSel := self identityIndexOfRow:aSelection
607 a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	2960	] ifTrue:[
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	2961	newSel := nil.
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	2962
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	2963	aSelection size ~~ 0 ifTrue:[
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	2964	aSelection first isNumber ifTrue:[
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	2965	newSel := aSelection
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	2966	] ifFalse:[
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	2967	aSelection do:[:el\|\|n\|
618 6a79bf9b4cd3 support list with undefined rows ca parents: 612 diff changeset	2968	(n := self identityIndexOfRow:el) ~~ 0 ifTrue:[
607 a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	2969	newSel isNil ifTrue:[newSel := OrderedCollection new].
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	2970	newSel add:n
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	2971	]
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	2972	]
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	2973	]
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	2974	]
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	2975	].
a5e0c2bf1370 support of multiple select:rows ca parents: 596 diff changeset	2976	^ newSel
542 e22c45e26653 intitial checkin ca parents: diff changeset	2977	! !
e22c45e26653 intitial checkin ca parents: diff changeset	2978
e22c45e26653 intitial checkin ca parents: diff changeset	2979	!DSVColumnView class methodsFor:'documentation'!
e22c45e26653 intitial checkin ca parents: diff changeset	2980
e22c45e26653 intitial checkin ca parents: diff changeset	2981	version
1149 c212f122c8b3 allow collections of string and icons for a cell label Claus Gittinger <cg@exept.de> parents: 1136 diff changeset	2982	^ '$Header: /cvs/stx/stx/libwidg2/DSVColumnView.st,v 1.61 1998-09-25 15:02:46 cg Exp $'
542 e22c45e26653 intitial checkin ca parents: diff changeset	2983	! !

author	Claus Gittinger <cg@exept.de>
	Fri, 25 Sep 1998 17:02:46 +0200
changeset 1149	c212f122c8b3
parent 1136	4a9d9db81422
child 1163	f46f69609c53
permissions	-rw-r--r--