| 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)