original commit: 3037628c8cb49ee4549d5e33ea905cfa5eedd0cd
This commit is contained in:
Matthew Flatt 2003-03-03 14:32:00 +00:00
parent 5f64485b4f
commit e3f4cdad60

View File

@ -6787,12 +6787,12 @@
(wx:unregister-collecting-blit (mred->wx canvas))))
(define bitmap-dc%
(class100 wx:bitmap-dc% ([bm #f])
(class100 wx:bitmap-dc% ([bitmap #f])
(inherit set-bitmap)
(sequence
(super-init)
(when bm
(set-bitmap bm)))))
(when bitmap
(set-bitmap bitmap)))))
(define post-script-dc%
(class100 wx:post-script-dc% ([interactive? #t][parent #f][use-paper-bbox? #f])