func init // add widget assembly sys.add_assembly('CommonControls', 'CommonControls.dll') // add widget sys.add_widget('CommonControls.ColorPalette') // initialize properties sys.set_typed_field(20, 'ColorSize') sys.set_undef_field('ColorsPerColumn') // make methods for properties sys._prop_init('ColorSize', 1, 1, 0) sys._prop_init('ColorsPerColumn', 1, 1, 1) sys._prop_init('BackColor', 1, 0, 8) sys._prop_init('ForeColor', 1, 0, 8) // initialize common events and properties include("UserControl-init") include("ContainerControl-init") include("ScrollableControl-init") include("Control-init") end include("UserControl") include("ContainerControl") include("ScrollableControl") include("Control")