func init // adds using namespace sys.add_use('System.ComponentModel') // initialize instance this.setfield('obj', sys.get_typed_field(this.codename, 'Instance', 20)) if(this.obj == this.codename) sys.add_object(this.obj, 'MarshalByValueComponent') end // makes implementation methods for properties sys._prop_init('Container', 1, 0, 0) sys._prop_init('DesignMode', 1, 0, 104) sys._prop_init('Site', 1, 1, 0) // makes implementation of methods as properties sys._mtd_as_prop_init('ToString()') sys._mtd_as_prop_init('MarshalByValueComponent') // makes implementation of simple methods sys._method_init('Dispose') // initialize properties this.init_props(blk_init) end func init_props(blk_out) sys.blk_init_store(blk_out) // initialize events if(not (this.onDisposed == 'defined')) sys.event_imp('onDisposed') end sys.event_add('onDisposed') sys.blk_init_restore(blk_out) end func doConstructor() blk.println(this.obj, ' = new MarshalByValueComponent();') this.init_props(blk) end func doGetService(data) if(linked("onGetService")) event("onGetService", this.obj + '.GetService(' + d("service") + ')') else blk.println(this.obj, '.GetService(', d("service"), ');') end end