TEXCOLOR

Finds the color index of the color currently selected to draw text strings
Operating state: GKOP, SGOP, WSAC, WSOP

Syntax

CALL GASK('TEXCOLOR', color-index, return-code-variable);

Required Arguments

color-index
numeric variable name; returns the color index of the color used to draw text.
return-code-variable
numeric variable name; returns the return code of the routine call, which can be 0 or 8. See Return Codes for DSGI Routines and Functions.

Details

The GASK('TEXCOLOR', . . . ) routine returns the current text color. If a GSET('TEXCOLOR', . . . ) function has not been previously submitted, GASK('TEXCOLOR', . . . ) returns the default value, 1. The color index returned corresponds to a color specification in the following order:
  1. the color specified in a GSET('COLREP', . . . ) function
  2. the nth color in the color list of the COLORS= graphics option
  3. the nth color in the device's default color list