441 ! |
441 ! |
442 |
442 |
443 drawLabelsAtX:xLeft y:yTop h:h from:start to:stop |
443 drawLabelsAtX:xLeft y:yTop h:h from:start to:stop |
444 "redraw labels from start to stop |
444 "redraw labels from start to stop |
445 " |
445 " |
446 |fg bg label row isSel |
446 |fg y yT x hspace lblHg bg label row isSel selectionHeight| |
447 y "{ Class:SmallInteger }" |
447 |
448 yT "{ Class:SmallInteger }" |
|
449 x "{ Class:SmallInteger }" |
|
450 hspace "{ Class:SmallInteger }" |
|
451 lblHg "{ Class:SmallInteger }" |
|
452 | |
|
453 yT := yTop. |
448 yT := yTop. |
454 hspace := dataSet horizontalSpacing. |
449 hspace := dataSet horizontalSpacing. |
455 |
450 |
|
451 OperatingSystem isMSWINDOWSlike ifTrue:[ |
|
452 selectionHeight := h - 1. |
|
453 ] ifFalse:[ |
|
454 selectionHeight := h |
|
455 ]. |
456 start to:stop do:[:aRowNr| |
456 start to:stop do:[:aRowNr| |
457 row := dataSet at:aRowNr. |
457 row := dataSet at:aRowNr. |
458 y := yT. |
458 y := yT. |
459 x := xLeft. |
459 x := xLeft. |
460 |
460 |
461 "/ GET BACKGROUND AND FOREGROUND-COLOR |
461 "/ GET BACKGROUND AND FOREGROUND-COLOR |
462 "/ =================================== |
462 "/ =================================== |
463 |
463 |
464 isSel := dataSet isSelected:aRowNr inColumn:columnNumber. |
464 isSel := dataSet isSelected:aRowNr inColumn:columnNumber. |
465 |
465 |
466 isSel ifTrue:[ |
466 isSel ifTrue:[ |
467 ( description editorType ~~ #None |
467 ( description editorType ~~ #None |
468 and:[dataSet selectedColIndex == columnNumber] |
468 and:[dataSet selectedColIndex == columnNumber] |
469 ) ifTrue:[ |
469 ) ifTrue:[ |
470 isSel := false |
470 isSel := false |
471 ] |
471 ] |
474 (isSel and:[description showSelectionHighLighted]) ifTrue:[ |
474 (isSel and:[description showSelectionHighLighted]) ifTrue:[ |
475 "/ SHOW SELECTED( MUST REDRAW BACKGROUND ) |
475 "/ SHOW SELECTED( MUST REDRAW BACKGROUND ) |
476 "/ ======================================= |
476 "/ ======================================= |
477 fg := dataSet selectionForegroundColor. |
477 fg := dataSet selectionForegroundColor. |
478 bg := dataSet selectionBackgroundColor. |
478 bg := dataSet selectionBackgroundColor. |
|
479 |
479 dataSet paint:bg. |
480 dataSet paint:bg. |
480 dataSet fillRectangleX:x y:y width:width height:h. |
481 dataSet fillRectangleX:x y:y width:width height:selectionHeight. |
481 ] ifFalse:[ |
482 ] ifFalse:[ |
482 description backgroundSelector notNil ifTrue:[ |
483 description backgroundSelector notNil ifTrue:[ |
483 "/ MUST REDRAW BACKGROUND |
484 "/ MUST REDRAW BACKGROUND |
484 "/ ====================== |
485 "/ ====================== |
485 bg := self backgroundColorFor:row at:aRowNr. |
486 bg := self backgroundColorFor:row at:aRowNr. |