#!/bin/nawk -f

# CHANGE THE TITLE OF AN X WINDOW
#
#    Vers Date     Author                        Modifications
#    1.00 07-22-90 Ercolano @ degraf/Wahrman     Initial Implementation
#    1.10 02-05-92 Ercolano @ Metrolight         Changes icon title too
#    1.20 06-20-92 Ercolano @ Metrolight         Works for xterms too
#    1.21 03-07-97 Ercolano @ rotwang            sh -> nawk for portability
#    1.22 06-04-02 erco@3dsite.com               added \r to erase screen cruft
#
# Wow; this program is twelve years old, and I still use it every day.
# Some programs never die.

BEGIN {
    esc = int(27);
    bel = int(7);
    bak = int(92);

    for (t=1; t<ARGC; t++)
	{ msg = msg " " ARGV[t]; delete ARGV[t]; }

    printf("%cP1.y%s%c%c\r", esc, msg, esc, bak);  # Sets window title for xwsh
    printf("%cP3.y%s%c%c\r", esc, msg, esc, bak);  # Sets icon title for xwsh
    printf("%c]0;%s%c\r", esc, msg, bel);	   # Sets name&title for xterms (vt102)
    printf("\033[K\r");

    exit 0
}