Sub myTextView_TextChanged (OldText As String, NewText As String)
dim no as NativeObject = Me
no.RunMethod("SetToRight:",Array(myTextView))
End Sub
#If OBJC
-(void) SetToRight: (UITextField *)myTextField
{
[myTextField setBaseWritingDirection:UITextWritingDirectionRightToLeft forRange:[myTextField textRangeFromPosition:[myTextField beginningOfDocument] toPosition:[myTextField endOfDocument]]];
}
#End if