From 40e5a5811c6ffce9b0974e93cdd927cbcf60c157 Mon Sep 17 00:00:00 2001 From: Joe Hunkeler Date: Tue, 11 Aug 2015 16:51:37 -0400 Subject: Repatch (from linux) of OSX IRAF --- sys/gio/stdgraph/stgreact.x | 41 +++++++++++++++++++++++++++++++++++++++++ 1 file changed, 41 insertions(+) create mode 100644 sys/gio/stdgraph/stgreact.x (limited to 'sys/gio/stdgraph/stgreact.x') diff --git a/sys/gio/stdgraph/stgreact.x b/sys/gio/stdgraph/stgreact.x new file mode 100644 index 00000000..21c2a821 --- /dev/null +++ b/sys/gio/stdgraph/stgreact.x @@ -0,0 +1,41 @@ +# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc. + +include +include +include "stdgraph.h" + +# STG_REACTIVATEWS -- Reactivate the workstation, i.e., enable graphics. + +procedure stg_reactivatews (flags) + +int flags # action flags (handled by cursor mode) + +int junk +int ttstati(), ttyctrl(), and() +extern stg_onerror() +include "stdgraph.com" + +begin + if (g_active == NO) { + junk = ttyctrl (g_out, g_tty, "OW", 1) + + # Post error handler to be called if we abort. + call onerror (stg_onerror) + + g_active = YES + g_enable = YES + + # Must disable stty ucaseout mode when in graphics mode, else + # plotting commands may be modified by the terminal driver. + + g_ucaseout = ttstati (g_out, TT_UCASEOUT) + if (g_ucaseout == YES) + call ttseti (g_out, TT_UCASEOUT, NO) + + # Clear the graphics screen? + if (and (flags, AW_CLEAR) != 0) + call stg_clear (0) + + call flush (g_out) + } +end -- cgit