include("Control") func init // add widget sys.add_widget('TextBox') // initialize properties sys.set_typed_field(106, 'PasswordChar') sys.set_typed_field(104, 'ReadOnly') sys.set_typed_field(104, 'Multiline') sys.set_typed_field(104, 'TabStop') sys.set_undef_field_const('TextAlign', this.props("Alignment"), 'System.Windows.Forms.HorizontalAlignment') sys.set_undef_field_const('BorderStyle', this.props("BorderStyle"), 'System.Windows.Forms.BorderStyle') // initialize events sys.add_event('onChange', 'TextChanged', this.codename + '.Text') // initialize common events and properties include("Control-init") end func doText(data) blk.println(this.codename + '.Text = ', d("Data"), ';') end func Text return(this.codename + '.Text') end include("Control")