DataSetColumn.st
changeset 2613 2de5a812418b
parent 2592 ab64fbe4fb1e
child 2635 a8add4698dea
equal deleted inserted replaced
2612:216ab0b7956b 2613:2de5a812418b
   458 !
   458 !
   459 
   459 
   460 drawLabelsAtX:xLeft y:yTop h:h from:start to:stop
   460 drawLabelsAtX:xLeft y:yTop h:h from:start to:stop
   461     "redraw labels from start to stop
   461     "redraw labels from start to stop
   462     "
   462     "
   463     |fg y yT x hspace lblHg bg label row isSel selectionHeight|
   463     |fg y yT x hspace lblHg bg label row isSel|
   464 
   464 
   465     yT := yTop.
   465     yT := yTop.
   466     hspace := dataSet horizontalSpacing.
   466     hspace := dataSet horizontalSpacing.
   467 
   467 
   468     OperatingSystem isMSWINDOWSlike ifTrue:[
       
   469         selectionHeight := h - 1.
       
   470     ] ifFalse:[
       
   471         selectionHeight := h
       
   472     ].
       
   473     start to:stop do:[:aRowNr|
   468     start to:stop do:[:aRowNr|
   474         row := dataSet at:aRowNr.
   469         row := dataSet at:aRowNr.
   475         y := yT.
   470         y := yT.
   476         x := xLeft.
   471         x := xLeft.
   477 
   472 
   493             "/ =======================================
   488             "/ =======================================
   494             fg := dataSet selectionForegroundColor.
   489             fg := dataSet selectionForegroundColor.
   495             bg := dataSet selectionBackgroundColor.
   490             bg := dataSet selectionBackgroundColor.
   496 
   491 
   497             dataSet paint:bg.
   492             dataSet paint:bg.
   498             dataSet fillRectangleX:x y:y width:width height:selectionHeight.
   493             dataSet fillRectangleX:x y:y width:width height:h.
   499         ] ifFalse:[
   494         ] ifFalse:[
   500             description backgroundSelector notNil ifTrue:[
   495             description backgroundSelector notNil ifTrue:[
   501                 "/ MUST REDRAW BACKGROUND
   496                 "/ MUST REDRAW BACKGROUND
   502                 "/ ======================
   497                 "/ ======================
   503                 bg := self backgroundColorFor:row at:aRowNr.
   498                 bg := self backgroundColorFor:row at:aRowNr.
  1092 ! !
  1087 ! !
  1093 
  1088 
  1094 !DataSetColumn class methodsFor:'documentation'!
  1089 !DataSetColumn class methodsFor:'documentation'!
  1095 
  1090 
  1096 version
  1091 version
  1097     ^ '$Header: /cvs/stx/stx/libwidg2/DataSetColumn.st,v 1.90 2003-12-17 11:37:24 ca Exp $'
  1092     ^ '$Header: /cvs/stx/stx/libwidg2/DataSetColumn.st,v 1.91 2004-01-31 11:42:55 ca Exp $'
  1098 ! !
  1093 ! !