.
original commit: f6b22c613884a51c271ca71bce6cc4d66d373d92
This commit is contained in:
parent
350f54131a
commit
1493551beb
|
@ -8,6 +8,8 @@
|
|||
(define mdc (make-object bitmap-dc%))
|
||||
(define bm (make-object bitmap% 10 10))
|
||||
|
||||
(test #t 'is-color? (send bm is-color?))
|
||||
|
||||
(define (bad m . args)
|
||||
(with-handlers ([exn:application:mismatch?
|
||||
(lambda (x)
|
||||
|
|
Loading…
Reference in New Issue
Block a user