func init // adds using namespace sys.add_use('System.Windows.Forms') // initialize instance sys.add_widget('LinkLabel') // initialize properties sys.set_typed_field(8, 'ActiveLinkColor') sys.set_typed_field(8, 'DisabledLinkColor') sys.set_typed_field(20, 'LinkArea') sys.set_undef_field_const('LinkBehavior', this.props('LinkBehavior'), 'System.Windows.Forms.LinkBehavior') sys.set_typed_field(8, 'LinkColor') sys.set_typed_field(104, 'LinkVisited') sys.set_typed_field(20, 'Padding') sys.set_typed_field(104, 'TabStop') if(not (this.prop_Text == 'defined')) sys.set_undef_field('Text') this.setfield('prop_Text', 'defined') end sys.set_typed_field(104, 'UseCompatibleTextRendering') sys.set_typed_field(8, 'VisitedLinkColor') // makes implementation methods for properties sys._prop_init('ActiveLinkColor', 1, 1, 0) sys._prop_init('DisabledLinkColor', 1, 1, 0) sys._prop_init('LinkArea', 1, 1, 0) sys._prop_init('LinkBehavior', 1, 1, 0) sys._prop_init('LinkColor', 1, 1, 0) sys._prop_init('Links', 1, 0, 0) sys._prop_init('LinkVisited', 1, 1, 104) sys._prop_init('Padding', 1, 1, 0) sys._prop_init('TabStop', 1, 1, 104) sys._prop_init('Text', 1, 1, 2) sys._prop_init('UseCompatibleTextRendering', 1, 1, 104) sys._prop_init('VisitedLinkColor', 1, 1, 0) // makes implementation of methods as properties sys._mtd_as_prop_init('LinkLabel') // initialize events sys.add_event('onClick', 'Click', this.codename + '.Text') sys.add_event_type('onLinkClicked', 'LinkClicked', 'LinkLabelLinkClickedEvent', 'args') sys.add_event_type('onTabStopChanged', 'TabStopChanged', 'Event', 'args') // initialize common events and properties include("InheritLabel-init") end func doText(data) blk.println(this.codename, '.Text = ', d("data"), ';') end include("InheritLabel")