レコードグリッドの行番号を表示するには？

[dyoshida]

umemuraさんのコードを試させていただきましたが、なかなかよい感じですね。

個人的には行選択した場合に行番号セルも選択色になって欲しい気がするので、
RecordGridCell のかわりに StandardStringCell を継承するのはどうでしょうか？

Code:

{define-class public LineNumberCell {inherits StandardStringCell}
  field line-number-frame:Frame = {Frame halign = "right", margin = 1pt}
  {constructor public {default ...}
    {construct-super {splice ...}}
    set self.cells-take-focus? = false
  }
  {method public {refresh-data }:void
    {super.refresh-data}
    set self.display-graphic.contents = {String (self.record-index + 1)}
  }
}