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

win32: connect print dialog to given parent (if any)

Browse Source 
which causes a different style dialog to be used
This commit is contained in:
Matthew Flatt 2011-01-14 18:53:49 -07:00
parent 06e5d7d6c8
commit f69e89c023
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/mred/private/wx/win32/printer-dc.rkt
View File

@ -107,6 +107,9 @@
(set-PAGESETUPDLG-Flags! p (if just-create? (set-PAGESETUPDLG-Flags! p (if just-create?
PSD_RETURNDEFAULT PSD_RETURNDEFAULT
0)) 0))
(set-PAGESETUPDLG-hwndOwner! p (and parent
(send parent is-shown?)
(send parent get-hwnd)))
(let ([r (PageSetupDlgW p)]) (let ([r (PageSetupDlgW p)])
(when r (when r
(let ([new-p (clone-page-setup p)]) (let ([new-p (clone-page-setup p)])
@ -128,6 +131,8 @@
(class (record-dc-mixin (dc-mixin bitmap-dc-backend%)) (class (record-dc-mixin (dc-mixin bitmap-dc-backend%))
(init [parent #f]) (init [parent #f])
(define parent-frame parent)
(super-make-object (make-object win32-bitmap% 1 1 #f)) (super-make-object (make-object win32-bitmap% 1 1 #f))
(inherit get-recorded-command (inherit get-recorded-command
@ -168,6 +173,9 @@
(set-cpointer-tag! p PRINTDLG-tag) (set-cpointer-tag! p PRINTDLG-tag)
(memset p 0 1 _PRINTDLG) (memset p 0 1 _PRINTDLG)
(set-PRINTDLG-lStructSize! p (ctype-sizeof _PRINTDLG)) (set-PRINTDLG-lStructSize! p (ctype-sizeof _PRINTDLG))
(set-PRINTDLG-hwndOwner! p (and parent-frame
(send parent-frame is-shown?)
(send parent-frame get-hwnd)))
(set-PRINTDLG-hDevMode! p (PAGESETUPDLG-hDevMode page-setup)) (set-PRINTDLG-hDevMode! p (PAGESETUPDLG-hDevMode page-setup))
(set-PRINTDLG-hDevNames! p (PAGESETUPDLG-hDevNames page-setup)) (set-PRINTDLG-hDevNames! p (PAGESETUPDLG-hDevNames page-setup))
(set-PRINTDLG-Flags! p (bitwise-ior PD_RETURNDC)) (set-PRINTDLG-Flags! p (bitwise-ior PD_RETURNDC))