SET(TEXT)

  Sets or changes the way text is displayed in a window, or sets the text
  that is to appear in a widget.

  Syntax

     Choose either of two variants:

     SET (TEXT, window, {BLANK_TABS | GRAPHIC_TABS | NO_TRANSLATE})

                         or

     SET (TEXT, widget, string)

  Parameters

     window         The window for which you are setting text.

     BLANK_TABS     Displays tabs as blank spaces.  This is the default
                    setting.

     GRAPHIC_TABS   Displays tabs as special graphic characters (which makes
                    the value of each tab stop easier to see).

     NO_TRANSLATE   Sends every character in the displayed lines directly to
                    the screen without any translation.  Any escape
                    sequences in the text are transmitted.  TPU does not
                    control or keep track of how these escape sequences
                    affect the terminal.  Use this keyword with extreme
                    care.

     widget         The instance of a simple text widget whose text you want
                    to set.  Valid only in the DECwindows environment.

     string         The text you want to assign to the simple text widget.

  Examples

  1.  SET (TEXT, main_window, graphic_tabs);

      Sets the text in the main window to display tabs as graphic
      characters.

  2.  The following procedure shows a use of the NO_TRANSLATE keyword;
      notice that the default setting is restored as soon as the function
      for which NO_TRANSLATE is set has finished executing:

      PROCEDURE user_print_screen
      !         If terminal has printer connected to printer port,
      !         use this to print the screen contents.  Set window
      !         to NO_TRANSLATE to allow escape sequences to pass
      !         to printer, then restore setting.
         SET (TEXT, message_window, NO_TRANSLATE);
         MESSAGE (ASCII (27) + "[i");
         UPDATE (message_window);
      !
      !         Put back the window the way it was.
      !
         SET (TEXT, message_window, BLANK_TABS);
         ERASE (message_buffer);
      ENDPROCEDURE;