Thank you, it's working :-) Am Dienstag, 20. November 2012 schrieb Matthew Flatt: > I've pushed a repair for this bug to the git repo. Meanwhile, a > workaround is to wrap the `end-doc' call as > > (with-handlers ([exn:fail:contract? void]) > (send dc end-doc)) > > At Tue, 20 Nov 2012 09:20:06 +0100, "Nikolaus Klepp" wrote: > > Thanks to Matthew I have a printer dialog :-) > > > > I can actually print a page, but (send dc end-doc) throws an error. > > > > Example: > > > > (define pss (get-page-setup-from-user "Drucke das Wunderwerk")) > > (when pss > > (current-ps-setup pss) > > (define dc (new printer-dc%)) > > (send dc start-doc "") > > (send dc start-page) > > (send dc set-scale 3 3) > > (send dc set-text-foreground "blue") > > (send dc draw-text "Don't Panic!" 0 0) > > (send dc end-page) > > (send dc end-doc)) > > > > meth: broke its contract > > promised: void? > > produced: #<semaphore> > > in: the range of > > (->m void?) > > contract from: (class printer-dc%) > > blaming: (class printer-dc%) > > > > Well, the page is printed, but I would like to get rid of that error. Any > > way to do that? > > > > Nik > > ____________________ > > Racket Users list: > > http://lists.racket-lang.org/users
____________________ Racket Users list: http://lists.racket-lang.org/users
