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

author	Claus Gittinger <cg@exept.de>
	Fri, 31 Jul 1998 01:16:52 +0200
changeset 1034	bd02c4cd7582
parent 1023	59c1888ca494
child 1042	b2b27ac9a550
permissions	-rw-r--r--