(define image ([] "UiImage" alloc)) (greg-testcase "UiImage Initialisation" #t (lambda () (equal? image ([] image initWithFileName: ($$ "/home/info/An-01-02/cygautar/documents/projet_jeu/objc/image.tif") position: '(0.5 0.125))))) ; (define img (gstep-get-ivar image "_image")) ; (define imageSize ([] img size)) ; (greg-testcase "UiImage size" #t ; (lambda () ; (display imageSize) ; (equal? '(0.4 0.533333) ([] image size))))