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

Don't create a page-setup menu item if `file-menu:create-print?' returns #f.

Browse Source 
original commit: 656de6963692413b27b5e1682465f4cfd989a318
This commit is contained in:
Eli Barzilay 2011-09-26 00:24:47 -04:00
parent 4f3d062242
commit 63a464fc93
2 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/framework/private/frame.rkt
View File

@ -1371,7 +1371,7 @@
(inherit get-top-level-window) (inherit get-top-level-window)
(define/override (file-menu:between-save-as-and-print file-menu) (define/override (file-menu:between-save-as-and-print file-menu)
(when (can-get-page-setup-from-user?) (when (and (can-get-page-setup-from-user?) (file-menu:create-print?))
(new menu-item% (new menu-item%
[parent file-menu] [parent file-menu]
[label (string-constant page-setup-menu-item)] [label (string-constant page-setup-menu-item)]

3
collects/scribblings/framework/frame.scrbl
View File

@ -659,7 +659,8 @@
} }
@defmethod*[#:mode override (((file-menu:between-save-as-and-print (file-menu (is-a?/c menu%))) void?))]{ @defmethod*[#:mode override (((file-menu:between-save-as-and-print (file-menu (is-a?/c menu%))) void?))]{
Creates a Print Setup menu item. Creates a Print Setup menu item if @racket[can-get-page-setup-from-user?]
and @racket[file-menu:create-print?] both return true.
} }
@defmethod*[#:mode override (((edit-menu:between-select-all-and-find (edit-menu (is-a?/c menu%))) void?))]{ @defmethod*[#:mode override (((edit-menu:between-select-all-and-find (edit-menu (is-a?/c menu%))) void?))]{