Click above to get retro games delivered to your door ever month!

  WVIEW()                                                    Window Function
 Purpose..: Display some text stored in a particular format
-------------------------------------------------------------------------------
 Syntax...: wView( <uWin>, <uTxt>[, <cChar>[, <cClr>]] ) --> NIL

 Arguments: <uWin>     = the string identifier of the window
                         OR the reference to the window structure
                         returned as an array by wNew() or wArray().
                         There is no default.

            <uTxt>    = window text to be displayed. You can pick
                        one of the following formats:
                        - ASCII file (the function will open it),
                        - single dimension array (each element
                          will be treated as a line number),
                        - delimited string, say, "One/Two/Three",
                          will be three lines non-wrapped where
                          / is your delimiter.

            [<cChar>] = parsing or delimiting character for
                        the character string.

            [<cClr>]  = colors to be used for the scroll bars. The
                        default is window color. The string sequence
                        is:
                        - standard position is for the bar,
                        - enhanced position is for the controls,
                        - unselected position is for the thumb.
                        For example, <cClr> would be "W+/B, B/W, W+/W".
                        The string format is that used for sbClrSpec().

 Returns..: NIL

 Remark...: It is recommended (in the strongest terms) that you
            use windows with a WS_CUA style with the function.

 Source...: WVIEW.PRG
-------------------------------------------------------------------------------
 Example..: . The example displays the text file, cFile, in the
              window called "File".

        wNew   ( "BackDrop",,,,,"N+/W" )
        wFrame ( "BackDrop", "#########" )

        wNew   ( "File", 4, 5, 19, 73, "W+/*B, B/W, W+/W", WS_CUA )
        wTitle ( "File", padc( cFile, len( cFile ) + 2 ), "G+/*B" )
        wFrame ( "File", B_SSSS )
        wShadow( "File", B_SHADOW( ) )

        wOpen( "BackDrop" )
        wOpen( "File" )

        MsShow( )
        while lFlag

           if !wIsMin( "File" )
              wView( "File", cFile )
           endif

           MsInkey( )

           lFlag := wIsActive( "File" )

        enddo

        MsClose()
        wKillAll()