Worksheetの明細繰り返しについて

[ashimo]

消せるプロパティがありそうに思って探してみましたが、見つけられませんでした…。
あまりいいやり方じゃありませんが、サブクラス作って以下のようにすれば消すことはできました。

Code:

{define-class MyWorksheet {inherits Worksheet}
  {constructor {default ...}
    {construct-super {splice ...}}

    {for g2 in self.grid.graphical-children do
        {type-switch g2
         case sb:ScrollBox do
            {if sb.name == "top-frame"
                or sb.name == "left-frame" then
                set sb.visible? = false
            }
        }
    }
  }
}

{def ws = {MyWorksheet 40 , 8,
              {widths 47pt, 42pt, 34pt, 28pt, 18pt, 76pt, 18pt, 76pt},
              background = "white", height = 10cm
          }
}