(define textField ([] "UiTextField" alloc)) (greg-testcase "UiTextField initialisation" #t (lambda () (equal? textField ([] textField initWithText: ($$ "message") position: '(0.5 0.5) size: '(0.25 0.25) ) ) ) ) ; (greg-testcase "UiTextField text after initialisation" #t ; (lambda () ; (equal? text ([] textField text)))) ; (define text2 ($$ "nouveau")) ; (greg-testcase "UiTextField after setText" #t ; (lambda () ; ([] textField setText: text2) ; (and ; (equal? text2 ([] textField text)))))