Intel® Fortran Compiler Classic and Intel® Fortran Compiler Developer Guide and Reference

ID 767251
Date 11/07/2023
Public

A newer version of this document is available. Customers should click here to go to the newest version.

Document Table of Contents

WRAPON

Graphics Function: Controls whether text output is wrapped. This routine is only available for Windows.

Module

USE IFQWIN

result = WRAPON (option)

option

(Input) INTEGER(2). Wrap mode. One of the following symbolic constants:

  • $GWRAPOFF - Truncates lines at right edge of window border.

  • $GWRAPON - Wraps lines at window border, scrolling if necessary.

Results

The result type is INTEGER(2). The result is the previous value of option.

WRAPON controls whether text output with the OUTTEXT function wraps to a new line or is truncated when the text output reaches the edge of the defined text window.

WRAPON does not affect font routines such as OUTGTEXT.

Example

 USE IFQWIN
 INTEGER(2) row, status2
 INTEGER(4) status4
 TYPE ( rccoord ) curpos
 TYPE ( windowconfig ) wc
 LOGICAL status

 status = GETWINDOWCONFIG( wc )
 wc%numtextcols = 80
 wc%numxpixels  = -1
 wc%numypixels  = -1
 wc%numtextrows = -1
 wc%numcolors   = -1
 wc%fontsize    = -1
 wc%title = "This is a test"C
 wc%bitsperpixel = -1
 status = SETWINDOWCONFIG( wc )
 status4= SETBKCOLORRGB(#FF0000 )
 CALL CLEARSCREEN( $GCLEARSCREEN )

 !  Display wrapped and unwrapped text in text windows.
 CALL SETTEXTWINDOW( INT2(1),INT2(1),INT2(5),INT2(25))
 CALL SETTEXTPOSITION(INT2(1),INT2(1), curpos )
 status2 = WRAPON( $GWRAPON )
 status4 = SETTEXTCOLORRGB(#00FF00)
 DO i = 1, 5
    CALL OUTTEXT( 'Here text does wrap. ')
 END DO
 CALL SETTEXTWINDOW(INT2(7),INT2(10),INT2(11),INT2(40))
 CALL SETTEXTPOSITION(INT2(1),INT2(1),curpos)
 status2 = WRAPON( $GWRAPOFF )
 status4 = SETTEXTCOLORRGB(#008080)
 DO row = 1, 5
    CALL SETTEXTPOSITION(INT2(row), INT2(1), curpos )
    CALL OUTTEXT('Here text does not wrap. ')
    CALL OUTTEXT('Here text does not wrap.')
 END DO
 READ (*,*) ! Wait for ENTER to be pressed
 END