Initial commit

1 files changed, 82 insertions, 0 deletions

diff --git a/ds9/library/macosx.tcl b/ds9/library/macosx.tcl
new file mode 100644
index 0000000..782f11d
--- /dev/null
+++ b/ds9/library/macosx.tcl
@@ -0,0 +1,82 @@
+#  Copyright (C) 1999-2016
+#  Smithsonian Astrophysical Observatory, Cambridge, MA, USA
+#  For conditions of distribution and use, see copyright notice in "copyright"
+
+package provide DS9 1.0
+
+proc MacOSXOpenDocEvent {fc} {
+    global ds9
+
+    if {$ds9(event,opendoc) != {}} {
+	StartLoad
+	foreach f $ds9(event,opendoc) {
+	    MultiLoad
+	    LoadFitsFile $f {} {}
+	    FileLast fitsfbox $f
+	}
+	FinishLoad
+    }
+}
+
+proc MacOSXPrintDocEvent {bye} {
+    global ds9
+
+    if {$ds9(event,printdoc) != {}} {
+	set fc 0
+
+	foreach f $ds9(event,printdoc) {
+	    RealizeDS9
+	    StartLoad
+
+	    MultiLoad
+	    LoadFitsFile $f {} {}
+	    FileLast fitsfbox $f
+
+	    FinishLoad
+	    PostScript
+	}
+
+	if {$bye} {
+	    Quit
+	}
+    }
+}
+
+proc MacOSXGetLocale {} {
+    return [macosx locale]
+}
+
+#proc MacOSXPrint {} {
+#    global ds9
+#
+# we need to be realized
+#    RealizeDS9
+# need the colorbar levels updated
+#    UpdateColormapLevel
+#
+#    if {[macosx pm print begin [winfo width $ds9(canvas)] [winfo height $ds9(canvas)] yes]} {
+#	foreach f $ds9(frames) {
+#	    $f macosx print
+#	}
+#	colorbar macosx print
+#	colorbarrgb macosx print
+#	macosx pm print end
+#    }
+#}
+
+#proc MacOSXPrintPre {} {
+#    global ds9
+
+#    if {[macosx pm print begin [winfo width $ds9(canvas)] [winfo height $ds9(canvas)] no]} {
+#	foreach f $ds9(frames) {
+#	    $f macosx print
+#	}
+#	colorbar macosx print
+#	colorbarrgb macosx print
+#	macosx pm print end
+#    }
+#}
+
+#proc MacOSXPageSetup {} {
+#    macosx pm pagesetup
+#}