Window or Not ?

Published By	Date	Version	Knowledge Level	Keywords
Sprezzatura Ltd	01 MAR 1990	1.15+	EXPERT	WINDOW, @STATUS.ON, VIDEO.RW

When writing a general purpose routine for use on a macro key it can frequently be imperative to ascertain whether the user is currently on a window so that WINDOW_COMMON% variables can be used. I present below a workable, fast but inelegant solution. Please note that it only works if the status line is on.

    FUNCTION CHECK.WINDOW

       IN.WINDOW = 0; NEW = ""
       IF @STATUS.ON THEN
          CALL VIDEO.RW(1, 22, 6, 22, "R", IMAGE)
          FOR X = 1 TO 12 STEP 2
             NEW := IMAGE[X,1]
          NEXT
          IF NEW = "Window" THEN IN.WINDOW = 1
       END
    RETURN IN.WINDOW

(Volume 1, Issue 9, Page 11)