DataSetColumn.st
changeset 1712 5511cc404d6b
parent 1592 2226c318c393
child 1725 897453804fa8
equal deleted inserted replaced
1711:97e1fd579b89 1712:5511cc404d6b
    12 
    12 
    13 
    13 
    14 
    14 
    15 
    15 
    16 Object subclass:#DataSetColumn
    16 Object subclass:#DataSetColumn
    17         instanceVariableNames:'columnNumber dataSet width description buttonExtent shownValue
    17 	instanceVariableNames:'columnNumber dataSet width description buttonExtent shownValue
    18                 rendererType backgroundColor rowSeparatorSelector
    18 		rendererType backgroundColor rowSeparatorSelector
    19                 showColSeparator showRowSeparator foregroundColor fgSelector
    19 		showColSeparator showRowSeparator foregroundColor fgSelector
    20                 bgSelector columnAlignment label readSelector containsText
    20 		bgSelector columnAlignment label readSelector containsText
    21                 numArgsToReadSelector numArgsToFgSelector numArgsToBgSelector
    21 		numArgsToReadSelector numArgsToFgSelector numArgsToBgSelector
    22                 columnAdaptor descWidth descMinWidth'
    22 		columnAdaptor descWidth descMinWidth'
    23         classVariableNames:''
    23 	classVariableNames:''
    24         poolDictionaries:''
    24 	poolDictionaries:''
    25         category:'Views-DataSet'
    25 	category:'Views-DataSet'
    26 !
    26 !
    27 
    27 
    28 !DataSetColumn class methodsFor:'documentation'!
    28 !DataSetColumn class methodsFor:'documentation'!
    29 
    29 
    30 copyright
    30 copyright
   124     "
   124     "
   125     |row newRow|
   125     |row newRow|
   126 
   126 
   127     row := dataSet at:aRowNr.
   127     row := dataSet at:aRowNr.
   128     newRow := self storeCol:something inRow:row.
   128     newRow := self storeCol:something inRow:row.
       
   129 
   129     newRow ~~ row ifTrue:[
   130     newRow ~~ row ifTrue:[
   130         dataSet listAt:aRowNr put:newRow.
   131         dataSet listAt:aRowNr put:newRow.
   131     ]
   132     ]
   132 
   133 
   133     "Modified: / 7.8.1998 / 22:17:27 / cg"
   134     "Modified: / 7.8.1998 / 22:17:27 / cg"
   134 !
   135 !
   135 
   136 
   136 columnAdaptor
   137 columnAdaptor
   137     ^ columnAdaptor
   138     ^ columnAdaptor
       
   139 !
       
   140 
       
   141 columnAdaptor:anAdapter
       
   142     columnAdaptor := anAdapter.
   138 !
   143 !
   139 
   144 
   140 description
   145 description
   141     "returns the column description
   146     "returns the column description
   142     "
   147     "
   987 ! !
   992 ! !
   988 
   993 
   989 !DataSetColumn class methodsFor:'documentation'!
   994 !DataSetColumn class methodsFor:'documentation'!
   990 
   995 
   991 version
   996 version
   992     ^ '$Header: /cvs/stx/stx/libwidg2/DataSetColumn.st,v 1.60 1999-10-14 17:16:58 cg Exp $'
   997     ^ '$Header: /cvs/stx/stx/libwidg2/DataSetColumn.st,v 1.61 2000-02-17 09:12:13 ca Exp $'
   993 ! !
   998 ! !