(define interface ([] "UiInterface" alloc)) (greg-testcase "UiInterface initalisation" #t (lambda () (equal? interface ([] interface init)))) (define frame0 ([] ([] "UiFrame" alloc) initWithParent: (gstep-get-nil))) (greg-testcase "UiInterface after adding frame0" #t (lambda () ([] interface addFrame: frame0) (and (equal? 1 ([] (gstep-get-ivar interface "_frames") count)) (gstep-bool ([] (gstep-get-ivar interface "_frames") containsObject: frame0))))) (define frame1 ([] ([] "UiFrame" alloc) initWithParent: (gstep-get-nil))) (greg-testcase "UiInterface after adding frame1" #t (lambda () ([] interface addFrame: frame1) (and (equal? 2 ([] (gstep-get-ivar interface "_frames") count)) (gstep-bool ([] (gstep-get-ivar interface "_frames") containsObject: frame1))))) (greg-testcase "UiInterface currentFrame after showing frame1" #t (lambda () ([] interface setCurrentFrame: frame1) (and (equal? frame1 (gstep-get-ivar interface "_currentFrame")))))