(define frame ([] "UiFrame" alloc)) (greg-testcase "UiFrame initialisation" #t (lambda () (equal? frame ([] frame initWithParent: (gstep-get-nil))) ))