include("MakeMenu") func init // adds using namespace sys.add_use('System.Windows.Forms') // initialize instance params = this.props('Constructor').value if(params == 'Constructor') sys.add_widget('MenuStrip') elseif(params == 'Constructor2') sys.add_var(this.name, 'MenuStrip') blk_init.println(this.codename, ' = ', d('instance', 0, 'new MenuStrip()'), ';') .println('addWidget(', sys.get_frame_above(), ', ', this.codename, ', ', this.props("Left"), ', ', this.props("Top"), ', ', this.props("Width"), ', ', this.props("Height"), ');') end // initialize properties this.init_props(blk_init) // makes implementation methods for properties sys._prop_init('CanOverflow', 1, 1, 104) sys._prop_init('GripStyle', 1, 1, 0) sys._prop_init('MdiWindowListItem', 1, 1, 0) sys._prop_init('ShowItemToolTips', 1, 1, 104) sys._prop_init('Stretch', 1, 1, 104) // makes implementation of methods as properties sys._mtd_as_prop_init('MenuStrip') end func init_props(blk_out) sys.blk_init_store(blk_out) // initialize properties if(not isdef("MenuItems")) this.MakeMenu('onSubItemCliked' + this.id, 'onSubItemCliked' + this.id) end sys.set_typed_field(14, 'GripStyle', '', 'System.Windows.Forms.ToolStripGripStyle') sys.set_typed_field(20, 'MdiWindowListItem') sys.set_typed_field(104, 'ShowItemToolTips') sys.set_typed_field(104, 'Stretch') // initialize events if(not (this.onMenuActivate == 'defined')) sys.event_imp('onMenuActivate') end sys.event_add('onMenuActivate') if(not (this.onMenuDeactivate == 'defined')) sys.event_imp('onMenuDeactivate') end sys.event_add('onMenuDeactivate') if(not (this.onSubItemCliked == 'defined')) sys.event_imp('onSubItemCliked', '', '((ToolStripMenuItem)sender).Text') end // initialize common events and properties include("ToolStrip-init") include("ScrollableControl-init") include("Control-init") sys.blk_init_restore(blk_out) end include("ToolStripInherit") include("ScrollableControl") include("Control")