func init // adds using namespace sys.add_use('System.Windows.Forms') // initialize instance sys.add_widget('ProgressBar') // initialize properties sys.set_undef_field('MarqueeAnimationSpeed') sys.set_undef_field('Maximum') sys.set_undef_field('Minimum') sys.set_typed_field(104, 'RightToLeftLayout') sys.set_undef_field('Step') sys.set_undef_field_const('Style', this.props('Style'), 'System.Windows.Forms.ProgressBarStyle') sys.set_undef_field('Value') // makes implementation methods for properties sys._prop_init('MarqueeAnimationSpeed', 1, 1, 1) sys._prop_init('Maximum', 1, 1, 1) sys._prop_init('Minimum', 1, 1, 1) sys._prop_init('RightToLeftLayout', 1, 1, 104) sys._prop_init('Step', 1, 1, 1) sys._prop_init('Style', 1, 1, 0) sys._prop_init('Value', 1, 0, 1) // makes implementation of methods as properties sys._mtd_as_prop_init('ProgressBar') // makes implementation of simple methods sys._method_init('PerformStep') // initialize events sys.add_event_type('onPaddingChanged', 'PaddingChanged', 'Event', 'args') sys.add_event_type('onRightToLeftLayoutChanged', 'RightToLeftLayoutChanged', 'Event', 'args') // initialize common events and properties include("Control-init") end func doValue(val) blk.println(this.codename, '.Value = ', d("val"), ';') end func doIncrement(val) blk.println(this.codename, '.Increment(', d("val"), ');') end include("Control")