DataSetColumn.st
changeset 2865 688eb125fe89
parent 2864 a2b8598dc659
child 2897 1ff11b4ffed5
equal deleted inserted replaced
2864:a2b8598dc659 2865:688eb125fe89
   768  "/ ===============
   768  "/ ===============
   769     self drawSeparatorsAtX:xLeft y:yTop h:rH from:start to:stop
   769     self drawSeparatorsAtX:xLeft y:yTop h:rH from:start to:stop
   770 !
   770 !
   771 
   771 
   772 shownValueForRow:aRow rowNr:aRowNr
   772 shownValueForRow:aRow rowNr:aRowNr
   773     |selector format value|
   773     |selector format value choices translatedChoices idx|
   774 
   774 
   775     rendererType == #CheckToggle ifTrue:[
   775     rendererType == #CheckToggle ifTrue:[
   776         ^ nil
   776         ^ nil
   777     ].
   777     ].
   778 
   778 
   786             perform:selector 
   786             perform:selector 
   787             withOptionalArgument:dataSet and:columnNumber and:aRowNr and:dataSet.
   787             withOptionalArgument:dataSet and:columnNumber and:aRowNr and:dataSet.
   788     ].
   788     ].
   789 
   789 
   790     value := self extractColFromRow:aRow rowNr:aRowNr.
   790     value := self extractColFromRow:aRow rowNr:aRowNr.
       
   791     description translatedChoices notNil ifTrue:[
       
   792         choices := self choicesFor:aRow at:aRowNr.
       
   793         idx := choices indexOf:value.
       
   794         idx ~~ 0 ifTrue:[
       
   795             translatedChoices := self translatedChoicesFor:aRow at:aRowNr.
       
   796             translatedChoices notNil ifTrue:[
       
   797                 value := translatedChoices at:idx.
       
   798             ].
       
   799         ].
       
   800     ].
   791 
   801 
   792     selector := description formatSelector.
   802     selector := description formatSelector.
   793     selector notNil ifTrue:[
   803     selector notNil ifTrue:[
   794         format := aRow 
   804         format := aRow 
   795             perform:selector 
   805             perform:selector 
  1132 
  1142 
  1133 showSelectionHighLighted
  1143 showSelectionHighLighted
  1134     "returns true if selection is highLighted
  1144     "returns true if selection is highLighted
  1135     "
  1145     "
  1136     ^ description showSelectionHighLighted ~~ false
  1146     ^ description showSelectionHighLighted ~~ false
       
  1147 !
       
  1148 
       
  1149 translatedChoicesFor:aRow at:aRowNr
       
  1150     |translatedChoicesSelector|
       
  1151 
       
  1152     translatedChoicesSelector := description translatedChoices.
       
  1153 
       
  1154     columnAdaptor notNil ifTrue:[
       
  1155         ^ columnAdaptor perform:translatedChoicesSelector withOptionalArgument:aRow and:columnNumber and:aRowNr and:dataSet
       
  1156     ].
       
  1157     ^ aRow perform:translatedChoicesSelector withOptionalArgument:aRowNr and:columnNumber and:dataSet
  1137 !
  1158 !
  1138 
  1159 
  1139 widthOfLabel:aLabel
  1160 widthOfLabel:aLabel
  1140     "returns the width of the label
  1161     "returns the width of the label
  1141     "
  1162     "
  1195 ! !
  1216 ! !
  1196 
  1217 
  1197 !DataSetColumn class methodsFor:'documentation'!
  1218 !DataSetColumn class methodsFor:'documentation'!
  1198 
  1219 
  1199 version
  1220 version
  1200     ^ '$Header: /cvs/stx/stx/libwidg2/DataSetColumn.st,v 1.101 2005-11-21 18:48:37 cg Exp $'
  1221     ^ '$Header: /cvs/stx/stx/libwidg2/DataSetColumn.st,v 1.102 2005-12-13 16:51:39 cg Exp $'
  1201 ! !
  1222 ! !