Graphics Subroutine: Finds the boundaries of the current text window.
Module: USE DFLIB
Syntax
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.
Compatibility
STANDARD GRAPHICS QUICKWIN GRAPHICS LIB
See Also: GETTEXTPOSITION, OUTTEXT, WRITE, SCROLLTEXTWINDOW, SETTEXTPOSITION, SETTEXTWINDOW, WRAPON
Example
! Build as QuickWin or Standard Graphics
USE DFLIB
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