diff options
author | William Joye <wjoye@cfa.harvard.edu> | 2017-12-11 17:54:38 (GMT) |
---|---|---|
committer | William Joye <wjoye@cfa.harvard.edu> | 2017-12-11 17:54:38 (GMT) |
commit | b07f6a923d2f3bd088d842b5fcc00f0baffdb9d8 (patch) | |
tree | 0f096a4f91d4db41e99057b82b3bdb274f45e4d9 /ds9/library/mfile.tcl | |
parent | 691a7ae55fc82b1e253e323d6741c7daa1e91ebf (diff) | |
download | blt-b07f6a923d2f3bd088d842b5fcc00f0baffdb9d8.zip blt-b07f6a923d2f3bd088d842b5fcc00f0baffdb9d8.tar.gz blt-b07f6a923d2f3bd088d842b5fcc00f0baffdb9d8.tar.bz2 |
disable Macos Print from Menu
Diffstat (limited to 'ds9/library/mfile.tcl')
-rw-r--r-- | ds9/library/mfile.tcl | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/ds9/library/mfile.tcl b/ds9/library/mfile.tcl index 5da8cc6..39390d1 100644 --- a/ds9/library/mfile.tcl +++ b/ds9/library/mfile.tcl @@ -52,13 +52,14 @@ proc FileMainMenu {} { $ds9(mb).file add separator switch $ds9(wm) { x11 - + aqua - win32 { $ds9(mb).file add command -label "[msgcat::mc {Page Setup}]..." \ -command PSPageSetup -accelerator "${ds9(shiftctrl)}P" $ds9(mb).file add command -label "[msgcat::mc {Print}]..." \ -command PSPrint -accelerator "${ds9(ctrl)}P" } - aqua { + foo { # accelerators don't work with dialog box $ds9(mb).file add command \ -label "[msgcat::mc {Postscript Page Setup}]..." \ @@ -363,13 +364,14 @@ proc CreateButtonsFile {} { switch $ds9(wm) { x11 - + aqua - win32 { ButtonButton $ds9(buttons).file.page \ [string tolower [msgcat::mc {Page Setup}]] PSPageSetup ButtonButton $ds9(buttons).file.print \ [string tolower [msgcat::mc {Print}]] PSPrint } - aqua { + foo { ButtonButton $ds9(buttons).file.page \ [string tolower [msgcat::mc {Page Setup}]] MacOSXPageSetup ButtonButton $ds9(buttons).file.print \ @@ -436,6 +438,7 @@ proc PrefsDialogButtonbarFile {f} { switch $ds9(wm) { x11 - + aqua - win32 { $m add checkbutton \ -label "[msgcat::mc {Page Setup}]..." \ @@ -446,7 +449,7 @@ proc PrefsDialogButtonbarFile {f} { -variable pbuttons(file,print) \ -command {UpdateButtons buttons(file)} } - aqua { + foo { $m add checkbutton \ -label "[msgcat::mc {Postscript Page Setup}]..." \ -variable pbuttons(file,pspage) \ |