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

author	tz
	Sat, 18 Jul 1998 17:12:58 +0200
changeset 988	d077faaade27
parent 896	aa07612a7c04
child 989	70fd16dd0085
permissions	-rw-r--r--