suzanne.soy/gui
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

.

Browse Source 
original commit: 1591a0ffe0ac0524ec3f9e50fe23750bb2fa8f9e
This commit is contained in:
Matthew Flatt 2001-10-13 16:19:49 +00:00
parent 87aaa6e846
commit ca0a970012
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/mred/mred.ss
View File

@ -5488,13 +5488,13 @@
(set-bitmap bm)))))
(define post-script-dc%
(class100 wx:post-script-dc% ([i? #t][parent #f])
(class100 wx:post-script-dc% ([interactive? #t][parent #f][use-paper-bbox? #f])
(sequence
(check-top-level-parent/false '(constructor post-script-dc) parent)
(as-entry
(lambda ()
(let ([p (and parent (mred->wx parent))])
(as-exit (lambda () (super-init i? p)))))))))
(as-exit (lambda () (super-init interactive? p use-paper-bbox?)))))))))
(define printer-dc%
(class100 wx:printer-dc% ([parent #f])

2
collects/mred/private/kernel.ss
View File

@ -401,7 +401,7 @@
set-bitmap
set-pixel
get-pixel)
(define-class post-script-dc% dc% ([interactive? #t] [parent #f]))
(define-class post-script-dc% dc% ([interactive? #t] [parent #f] [use-paper-bbox? #f]))
(define-class printer-dc% dc% ([parent #f]))
(define-class event% object% ([time-stamp 0])
get-time-stamp