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

  MKCLRTABLE()                                              Color Function
 Purpose..: Display all colors and make an instance of ClrTable()
-------------------------------------------------------------------------------
 Syntax...: MkClrTable( <nX>, <nY> [, <aType>] ) --> aClrTable

 Arguments: <nX>         = Top row.
            <nY>         = Left column.
            [<aType>]    = Rotator constant. Rotator() is a function
                           which shows a spinning status indicator
                           during wait key states in the color table.
                           You can use those below or pass your own
                           version such as:
                              { ".", ".", ".", "." }

            Rotator Manifest Constant as found in FW_BOX.CH
            --------------------------------------------------------
            FW_BOX.CH         Description
            --------------------------------------------------------
            R_SPIN            { "-", "\", "|", "/" } is the default
            R_STAR            { ".", ".", ".", "*", "." }
            --------------------------------------------------------

 Returns..: <C> cClrTable is the instance returned.

 Remark...: The function does a lot of its work in the
            background. It is essential for using the color table
            from which you can pick and return a color string.

            The function can be used with a mouse.

 Source...: CLRTABLE.PRG
-------------------------------------------------------------------------------
 Example..: The example uses the function to set up a color
            table and return a color string, cPicked and the
            previous one, cClr.

   local aClrTable , cPicked, cClr
   aClrTable := MkClrTable( 4, 9, R_STAR )
   cClr := wSetColor( , cPicked := ClrTable( aClrTable, wSetColor() ), WC_ALL )
   RmClrTable( aClrTable )