GETTEXTWINDOW

グラフィックス・サブルーチン：現在のテキスト・ウィンドウの境界を返します。

モジュール：USE DFLIB

形式

CALL GETTEXTWINDOW (r1, c1, r2, c2)

r1, c1
(出力) INTEGER(2)。テキスト・ウィンドウの左上隅の行座標と列座標。

r2, c2
(出力) INTEGER(2)。テキスト・ウィンドウの右下隅の行座標と列座標。

OUTTEXT と WRITE からの出力は，テキスト・ウィンドウに限定されています。基本設定では，テキスト・ウィンドウが SETTEXTWINDOW で再定義されていない限りは，これは画面全体です。

SETTEXTWINDOW で定義されるウィンドウは，OUTGTEXT からの出力に影響しません。

互換性

STANDARD GRAPHICS QUICKWIN GRAPHICS LIB

関連情報

GETTEXTPOSITION，OUTTEXT，SCROLLTEXTWINDOW，SETTEXTPOSITION，SETTEXTWINDOW，WRAPON，WRITE

例

	! QuickWin または Standard Graphics アプリケーションでビルドします。
	USE DFLIB
	INTEGER(2) top, left, bottom, right
	DO i = 1, 10
	  WRITE(*,*) "Hello, world"
	END DO
	! テキスト・ウィンドウ位置を保存します。
	CALL GETTEXTWINDOW (top, left, bottom, right)
	! テキスト・ウィンドウを 7 行下にスクロールします。
	CALL SCROLLTEXTWINDOW (INT2(-7))
	! テキスト・ウィンドウを元に戻します。
	CALL SETTEXTWINDOW (top, left, bottom, right)
	WRITE(*,*) "At beginning again"
	END