# GETTEXTWINDOW (W*S)

Graphics Subroutine: Finds the boundaries of the current text window.

## Module

USE IFQWIN

CALL GETTEXTWINDOW (r1,c1,r2,c2)

r1, c1 | (Output) INTEGER(2). Row and column coordinates for upper-left corner of the text window.
r2, c2 | (Output) INTEGER(2). Row and column coordinates for lower-right corner of the text window.

Output from OUTTEXT and WRITE is limited to the text window. By default, this is the entire window, unless the text window is redefined by SETTEXTWINDOW.

The window defined by SETTEXTWINDOW has no effect on output from OUTGTEXT.

## Example

    !  Build as QuickWin or Standard Graphics
    USE IFQWIN
    INTEGER(2) top, left, bottom, right
    DO i = 1, 10
      WRITE(*,*) "Hello, world"
    END DO
    !  Save text window position
     CALL GETTEXTWINDOW (top, left, bottom, right)
    !  Scroll text window down seven lines
     CALL SCROLLTEXTWINDOW (INT2(-7))
    !  Restore text window
     CALL SETTEXTWINDOW (top, left, bottom, right)
     WRITE(*,*) "At beginning again"
     END

Parent topic: Graphics Library Routines

## See Also

GETTEXTPOSITION
OUTTEXT
WRITE
SCROLLTEXTWINDOW
SETTEXTPOSITION
SETTEXTWINDOW
WRAPON