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

 twMsgInit( Type, mColor)
 ----------------------------------------------------------------------------
     Initializes the default colours of the TSDWIN message functions:

                           twTextMsg()
                           twInfo()
                           twInquire()
                           twWarn()

     If this function is not called before using the message functions,
     the colours are initialized by TSDWIN to "w+/n,n/w,,,w/n".

     Each of the message functions can be assigned a different colour.


       Arguments:

     Type   - 'N' 1 - twInfo()
                  2 - twInquire()
                  3 - twWarn()
                  4 - twTextMsg()

                  This parameter may be left out if an array of four
                  elements is passed as the second parameter.

     mColor - 'C' Clipper Colour String. Sets the colour of the message
                  function indicated above.

                             OR

            - 'A' A four element array of Clipper Colour Strings, one
                  for each of the four message types.

       Return:

     If an array was passed, the function returns a null string. If a
     single message type was initialized, the function returns the
     current colour setting. It can therefore be used in the same way
     as any other Clipper state function, to Get/Set the current value.

       Example:

     tClr := twMsgInit( 1, "gr+/r" )
     ....
     ....   code
     twMsgInit( 1, tClr )

     Sets the twInfo() colour to "gr+/r", performs some actions, then
     resets the colour to its previous value.