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

  WCHGSIZE()                                                 Window Function
 Purpose..: Change the size of a window
-------------------------------------------------------------------------------
 Syntax...: wChgSize( [<uWin>], <nHeight>, <nWidth> ) --> lSuccess

 Arguments: [<uWin>]    = the string identifier of the window
                          OR the reference to the window structure
                          returned as an array by wNew() or wArray().
                          If not passed, the function will operate on
                          the window in focus.

            <nHeight>   = new height for window. There is no default.

            <nWidth>    = new width for window. There is no default.

 Returns..: lSuccess is true, if successful.

 Remark...: The function will work whether the window is open or not.
            If the window is inactive, the results will not be apparent
            until the window is opened. The top row and left column
            of the window will remain the same. The window size will
            be decreased or increased using the bottom row and right
            column co-ordinates of the specified window.

            The function checks for invalid screen sizes.

 Source...: WCHGSIZE.PRG
-------------------------------------------------------------------------------
 Example..: . This example changes the size of the current window to
              to that of the array of menu prompts. This is useful when
              you want to use a single window for different sized menus.

            local aCho := { " Read ", " Show ", " Nuke " }

            wChgSize( "MnuSupport", len( aCho ) + 1, len( aCho[1] ) + 1 )
            wOpen   ( "MnuSupport" )