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

dfAlert()
Creates an ALERT in dBsee style
------------------------------------------------------------------------------
Syntax:

     dfAlert( <cStr>, [<aOptions>],;
                     [<nDefault>] ) --> nChoice

Parameters:

     <cStr>     Message to display
     <aOptions> N available answers to be displayed in the ALERT box. The
     number of specified answers is not subject to inspection.
     DEFAULT "OK"
     <nDefault> Default choice. DEFAULT 0

Returns:

     <nChoice> Chosen option. If ESC is pressed, 0 is returned.

Description:

     Displays an Alert Dialog-Box with a set of available options displayed
     as a list of buttons

Example:

     . Example 1
     
     dfAlert("Choose an option", {"One","Two"} )
     
     . Example 2
     
     LOCAL nCount := 0, cStr := ""
     
     
     // ErrorBox
     dbMsgErr( "dBsee//The Standard CASE" +;
               " for CLIPPER//Now available !!" )
     
     // Updating Message
     dbMsgOn( "Counter///////" +Str(nCount) )
     FOR nCount := 1 TO 10
        dbMsgUpd( "Counter" +Str(nCount) )
        Inkey(1)
     NEXT
     dbMsgOff( "Counter//" +Str(nCount) )
     
     // Window Message
     dbMsgW( "Message//In a Windows" )
     
     
     // Ask Window
     //                           esc ---+
     //                           ret --+|
     //                                 ||
     dbAskW( "Ask in a Windows (Y/N)", "yn" )
     
     // AlertBox
     dfAlert( "dBsee is The Best Code Generator",;
              {"Yes","NO"} )

See also:

     dbMsgErr()