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

.

Browse Source 
original commit: ffc3d4ab8b1b80367ccd19917fed5ba221c62dea
This commit is contained in:
Matthew Flatt 2004-04-20 03:38:25 +00:00
parent ad1149bfd9
commit 2e783936de
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

@ -7008,13 +7008,13 @@
(set-bitmap bitmap)))))
(define post-script-dc%
(class100 wx:post-script-dc% ([interactive? #t][parent #f][use-paper-bbox? #f])
(class100 wx:post-script-dc% ([interactive #t][parent #f][use-paper-bbox #f][as-eps #t])
(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 interactive? p use-paper-bbox?)))))))))
(as-exit (lambda () (super-init interactive p use-paper-bbox as-eps)))))))))
(define printer-dc%
(class100 wx:printer-dc% ([parent #f])

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

@ -411,7 +411,7 @@
get-argb-pixels
set-pixel
get-pixel)
(define-class post-script-dc% dc% ([interactive? #t] [parent #f] [use-paper-bbox? #f]))
(define-class post-script-dc% dc% ([interactive #t] [parent #f] [use-paper-bbox #f] [eps #t]))
(define-class printer-dc% dc% ([parent #f]))
(define-private-class gl-context% gl-context<%> object% #f
call-as-current