カレンダーの色について

[Yuhki]

内部でDayFrameというクラスでもってるようなので
素直にはできないようですね。。。
無理やりですが…

Code:

{CalendarControl
    day-proc =
        {proc {cc:CalendarControl, date:DateTime}:(#Graphic, bool)
            let constant info:DateTimeInfo = date.info
            {if info.day-of-week >= 6 then
                def tfb = {TextFlowBox {value info.day}}
                {after 0s do
                    {if-non-null p = tfb.parent then
                        set p.background =
                            {if info.day-of-week == 6 then
                                "lightblue"
                             else
                                "pink"
                            }
                    }
                }
                {return tfb, true}
             else
                {return null, true}
            }
        }
}

これで実装すると他で設定した色（たとえば当日の背景色）とかも上書きされてしまうので
考慮が必要ですね。