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}

[umemura]

cell-prototype プロシージャを使うのがよさそうですね。

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
        {cell-prototype
            background = color,
            i
        }
    }
}
{value tbl}

[martynjoey]

素敵共有するためのおかげで、私はそれについて知っていることがありません。