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

 twAlertInit( Type, mColor)
 ----------------------------------------------------------------------------
     Initializes the default colours of the TSDWIN Alert functions:

                 twButtonBox()
                 twCheckBox()
                 twRadioBox()

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

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


       Arguments:

     Type   - 'N' 1 - twButtonBox()
                  2 - twCheckBox()
                  3 - twRadioBox()

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

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

                             OR

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


       Return:

     If an array was passed, the function returns a null string. If a
     single alert 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 := twAlertInit( 1, "gr+/r" )
     //....               execute some
     //....                   code,
     //....   call an alert class function, no doubt
     twAlertInit( 1, tClr )

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