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

author	Claus Gittinger <cg@exept.de>
	Thu, 08 Mar 2001 14:51:25 +0100
changeset 1946	0738b9f8c19f
parent 1941	ed782edda825
child 1947	1e11b36633b2
permissions	-rw-r--r--