Store role in Boxes

textinput.go

@@ -19,7 +19,8 @@ type TextInput struct {
 // NewTextInput creates a new text input containing the specified text.
 func NewTextInput (text string) *TextInput {
 	this := &TextInput { TextBox: tomo.NewTextBox() }
-	tomo.Apply(this, tomo.R("objects", "TextInput", ""))
+	this.SetRole(tomo.R("objects", "TextInput", ""))
+	tomo.Apply(this)
 	this.SetAlign(tomo.AlignStart, tomo.AlignMiddle)
 	this.SetText(text)
 	this.SetFocusable(true)