func init // adds using namespace sys.add_use('System.Windows.Forms') // initialize instance sys.add_object(this.codename, 'HelpProvider') // initialize properties sys.set_typed_field(2, 'HelpNamespace') sys.set_typed_field(20, 'Tag') blk_init.println(this.codename, '.SetShowHelp(', sys.get_typed_field('this', 'Control', 20), ', true);') // makes implementation methods for properties sys._prop_init('Tag', 1, 1, 0) // makes implementation of methods as properties sys._mtd_as_prop_init('HelpProvider') // initialize common events and properties include("Component-init") end func doCanExtend(data) if(linked("onCanExtend")) event("onCanExtend", this.codename + '.CanExtend(' + d("target") + ')') else blk.println(this.codename, '.CanExtend(', d("target"), ');') end end func doGetHelpKeyword(data) if(linked("onGetHelpKeyword")) event("onGetHelpKeyword", this.codename + '.GetHelpKeyword(' + d("ctl") + ')') else blk.println(this.codename, '.GetHelpKeyword(', d("ctl"), ');') end end func doGetHelpNavigator(data) if(linked("onGetHelpNavigator")) event("onGetHelpNavigator", this.codename + '.GetHelpNavigator(' + d("ctl") + ')') else blk.println(this.codename, '.GetHelpNavigator(', d("ctl"), ');') end end func doGetHelpString(data) if(linked("onGetHelpString")) event("onGetHelpString", this.codename + '.GetHelpString(' + d("ctl") + ')') else blk.println(this.codename, '.GetHelpString(', d("ctl"), ');') end end func doGetShowHelp(data) if(linked("onGetShowHelp")) event("onGetShowHelp", this.codename + '.GetShowHelp(' + d("ctl") + ')') else blk.println(this.codename, '.GetShowHelp(', d("ctl"), ');') end end func doHelpNamespace(data) blk.println(this.codename, '.HelpNamespace = ', d("HelpNamespace"), ';') end func doSetHelpKeyword(data) blk.println(this.codename, '.SetHelpKeyword(', d("ctl"), ', ', d("keyword"), ');') end func doSetHelpNavigator(data) blk.println(this.codename, '.SetHelpNavigator(', d("ctl"), ', ', d("navigator"), ');') end func doSetHelpString(data) blk.println(this.codename, '.SetHelpString(', d("ctl"), ', ', d("helpString"), ');') end func doSetShowHelp(data) blk.println(this.codename, '.SetShowHelp(', d("ctl"), ', ', d("value"), ');') end