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

added page setup dialog

Browse Source 
svn: r5379
This commit is contained in:
Robby Findler 2007-01-17 11:07:24 +00:00
parent d9370fb7d6
commit c817beb86b
2 changed files with 15 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/drscheme/private/unit.ss
View File

@ -1526,7 +1526,8 @@ module browser threading seems wrong.
(if logging
(stop-logging)
(start-logging)))))
(make-object separator-menu-item% file-menu)))
(make-object separator-menu-item% file-menu)
(super file-menu:between-save-as-and-print file-menu)))
[define/override file-menu:print-string (λ () (string-constant print-definitions))]
(define/override (file-menu:between-print-and-close file-menu)

13
collects/framework/private/frame.ss
View File

@ -1125,6 +1125,19 @@
(preferences:get 'framework:print-output-mode))
#t))
(define/override file-menu:create-print? (λ () #t))
(inherit get-top-level-window)
(define/override (file-menu:between-save-as-and-print file-menu)
(when (can-get-page-setup-from-user?)
(new menu-item%
[parent file-menu]
[label (string-constant page-setup-menu-item)]
[help-string (string-constant page-setup-info)]
[callback
(lambda (item event)
(let ([s (get-page-setup-from-user #f (get-top-level-window))])
(when s
(send (current-ps-setup) copy-from s))))])))
(define/override edit-menu:between-select-all-and-find
(λ (edit-menu)