diff options
Diffstat (limited to 'sys/gio/gks/gqtxci.x')
-rw-r--r-- | sys/gio/gks/gqtxci.x | 30 |
1 files changed, 30 insertions, 0 deletions
diff --git a/sys/gio/gks/gqtxci.x b/sys/gio/gks/gqtxci.x new file mode 100644 index 00000000..e327660b --- /dev/null +++ b/sys/gio/gks/gqtxci.x @@ -0,0 +1,30 @@ +# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc. + +include <gset.h> +include "gks.h" + +# GQTXCI -- Inquire text color index. + +procedure gqtxci (ierror, coli) + +int ierror # Error indicator +int coli # Color index - returned value. +int gstati () +include "gks.com" + +begin + if (gk_std == NULL) { + # GKS not in proper state; no active workstations + ierror = 7 + coli = -1 + return + } else + ierror = 0 + + iferr { + coli = gstati (gp[gk_std], G_TXCOLOR) + } then { + ierror = 1 + coli = -1 + } +end |