home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 16 / CD_ASCQ_16_0994.iso / news / 4611 / fw16d.ins / SAMPLES / TESTMSG.PRG < prev    next >
Text File  |  1994-04-15  |  1KB  |  47 lines
  1. #include "FiveWin.ch"
  2.  
  3. // Testing Message standard Dialog Boxes
  4.  
  5. //----------------------------------------------------------------------------//
  6.  
  7. function Main()
  8.  
  9.    local cName := "Easily editing a string"
  10.  
  11.  
  12.    MsgInfo( "Testing defaults" )
  13.  
  14.    MsgInfo( "General information Message", "Info Title" )
  15.  
  16.  
  17.  
  18.    if MsgGet( "Please type your name",;          // Title
  19.               "Your Name:",;                     // Label
  20.               @cName )                           // A variable by reference
  21.  
  22.       MsgStop( "Hello " + cName, "A Stop icon Message" )
  23.       MsgStop( "Testing defaults" )
  24.  
  25.    else
  26.  
  27.       MsgAlert( "Hey, you did not typed your Name", "Alerting!" )
  28.  
  29.    endif
  30.  
  31.  
  32.    If MsgYesNo( "Are you sure you want to go", "Please select" )
  33.  
  34.       nMsgBox( "A Normal message", "Ok, Bye!" )
  35.       nMsgBox( "Testing defaults" )
  36.  
  37.    else
  38.  
  39.       Alert( "Typicall Clipper Alert function" )   // It does not support
  40.                                                    // all Clipper features
  41.                                                    // yet
  42.    endif
  43.  
  44. return
  45.  
  46. //----------------------------------------------------------------------------//
  47.