Widget Instantiation
All widget classes should define three methods to for widget instantiation: InitWidgetRec, ConstructWidget and SetBindings.
InitWidgetRec: initializes the private variables.
proc tixOnOff:InitWidgetRec {w} {
upvar #0 $w data
tixChainMethod $w InitWidgetRec
set data(count) 0
}
tixChainMethod: calls the method in a superclass.