equal
deleted
inserted
replaced
437 list:aList |
437 list:aList |
438 "set the list of rows |
438 "set the list of rows |
439 " |
439 " |
440 |
440 |
441 "/ remove selection without redraw |
441 "/ remove selection without redraw |
|
442 |
|
443 editValue notNil ifTrue:[ |
|
444 editValue removeDependent:self. |
|
445 editValue := nil |
|
446 ]. |
|
447 |
442 editView notNil ifTrue:[ |
448 editView notNil ifTrue:[ |
443 editView destroy. |
449 editView destroy. |
444 editView := nil. |
450 editView := nil. |
445 ]. |
451 ]. |
446 editValue := nil. |
452 |
447 selectedColIndex := 0. |
453 selectedColIndex := 0. |
448 selectedRowIndex := multipleSelectOk ifTrue:[nil] ifFalse:[0]. |
454 selectedRowIndex := multipleSelectOk ifTrue:[nil] ifFalse:[0]. |
449 |
455 |
450 shown ifFalse:[ |
456 shown ifFalse:[ |
451 preferredExtent := nil |
457 preferredExtent := nil |
813 " |
819 " |
814 |row| |
820 |row| |
815 |
821 |
816 changedObject == columnHolder ifTrue:[ |
822 changedObject == columnHolder ifTrue:[ |
817 ^ self columnDescriptors:(columnHolder value) |
823 ^ self columnDescriptors:(columnHolder value) |
818 ] ifFalse:[ |
824 ]. |
819 row := (something isNumber) ifTrue:[something] ifFalse:[changedObject]. |
825 |
820 self redrawVisibleRow:row |
826 changedObject == editValue ifTrue:[ |
821 ] |
827 ^ self selectedColumn at:(self firstIndexSelected) put:(editValue value) |
|
828 ]. |
|
829 |
|
830 row := (something isNumber) ifTrue:[something] ifFalse:[changedObject]. |
|
831 self redrawVisibleRow:row. |
822 ! ! |
832 ! ! |
823 |
833 |
824 !DSVColumnView methodsFor:'enumerating columns'! |
834 !DSVColumnView methodsFor:'enumerating columns'! |
825 |
835 |
826 columnsDo:aOneArgBlock |
836 columnsDo:aOneArgBlock |
2059 |
2069 |
2060 oldSz == 1 ifTrue:[ |
2070 oldSz == 1 ifTrue:[ |
2061 multipleSelectOk ifTrue:[oldRow := oldRow at:1]. |
2071 multipleSelectOk ifTrue:[oldRow := oldRow at:1]. |
2062 |
2072 |
2063 editValue notNil ifTrue:[ |
2073 editValue notNil ifTrue:[ |
|
2074 editValue removeDependent:self. |
2064 (self columnAt:oldCol) at:oldRow put:editValue value. |
2075 (self columnAt:oldCol) at:oldRow put:editValue value. |
2065 editValue := nil |
2076 editValue := nil |
2066 ]. |
2077 ]. |
2067 editView notNil ifTrue:[ |
2078 editView notNil ifTrue:[ |
2068 editView destroy. |
2079 editView destroy. |
2093 in:self. |
2104 in:self. |
2094 self updateEditViewOrigin. |
2105 self updateEditViewOrigin. |
2095 editView viewBackground:hgLgBgColor. |
2106 editView viewBackground:hgLgBgColor. |
2096 editValue := newCol editorAt:sglSelRow in:editView with:hgLgFgColor bg:hgLgBgColor. |
2107 editValue := newCol editorAt:sglSelRow in:editView with:hgLgFgColor bg:hgLgBgColor. |
2097 editView realize. |
2108 editView realize. |
|
2109 editValue addDependent:self. |
2098 ] ifFalse:[ |
2110 ] ifFalse:[ |
2099 self redrawRowAt:sglSelRow colAt:colNr |
2111 self redrawRowAt:sglSelRow colAt:colNr |
2100 ]. |
2112 ]. |
2101 ] ifFalse:[ |
2113 ] ifFalse:[ |
2102 self selectionIndicesDo:[:i| self redrawRowAt:i colAt:0 ]. |
2114 self selectionIndicesDo:[:i| self redrawRowAt:i colAt:0 ]. |
2146 ! ! |
2158 ! ! |
2147 |
2159 |
2148 !DSVColumnView class methodsFor:'documentation'! |
2160 !DSVColumnView class methodsFor:'documentation'! |
2149 |
2161 |
2150 version |
2162 version |
2151 ^ '$Header: /cvs/stx/stx/libwidg2/DSVColumnView.st,v 1.13 1997-11-14 09:24:48 ca Exp $' |
2163 ^ '$Header: /cvs/stx/stx/libwidg2/DSVColumnView.st,v 1.14 1997-11-14 11:55:14 ca Exp $' |
2152 ! ! |
2164 ! ! |