From b07f6a923d2f3bd088d842b5fcc00f0baffdb9d8 Mon Sep 17 00:00:00 2001
From: William Joye <wjoye@cfa.harvard.edu>
Date: Mon, 11 Dec 2017 12:54:38 -0500
Subject: disable Macos Print from Menu

---
 ds9/library/mfile.tcl | 9 ++++++---
 1 file 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) \
-- 
cgit v0.12