Table クラスで、セルを塗りつぶしたい

[umemura]

Table クラスで、ある条件のときに、セルの背景色を指定したいのですが、
下記のコードでは、オブジェクトの背景が塗りつぶされるだけで、
望みの振舞いではありません。

セル全体を塗りつぶすためにはどのような指定をすればよいのでしょうか。

Code:

{def tbl = {Table
               cell-border-width=1pt,
               cell-border-style="sunken",
               cell-border-color="#aaaaff",
               columns = 5}}
{for i:int = 1 below 30 do
    def color =
        {if (i mod 4) != 0 then
            "aqua"
         else
            "white"
        }
    {tbl.add
        {Frame
            hstretch? = true,
            vstretch? = true,
            background = color,
            i
        }
    }
}
{value tbl}