home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a012 / 1.ddi / APPENDIX.EXE / MSGBOX.CH < prev    next >
Encoding:
Text File  |  1991-05-01  |  977 b   |  30 lines
  1. /*
  2.    MSGBOX.CH   Pre-processor definition for MsgBox()
  3.    Author: Craig Yellick
  4.    Excerpted from "Clipper 5: A Developer's Guide"
  5.    (See Chapter 13, "User Interface")
  6.    Copyright (c) 1991 M&T Books
  7.                       501 Galveston Drive
  8.                       Redwood City, CA 94063-4728
  9.                       (415) 366-3600
  10. */
  11.  
  12. #translate MESSAGE <msg,...> ;
  13.              [ AT <r1> [, <c1>] ] ;
  14.              [ TO <r2> [, <c2>] ] ;
  15.              [ WIDTH <w> ] ;
  16.              [ DEPTH <d> ] ;
  17.              [ COLOR <clr> ] ;
  18.              [ CHOOSE <ch,...> ] ;
  19.              [ CHOOSECOLOR <chClr> ] ;
  20.              [ CHCOLOR <chClr> ] ;
  21.              [ INTO <ret> ] ;
  22.              [ WAIT <wait> ] ;
  23.              [ <rest:RESTORE,REST> ] ;
  24.    => ;
  25.            [<ret> := ] MsgBox( <r1>, <c1>, <r2>, <c2>, <w>, <d>, ;
  26.                                {<msg>}, <clr>, {<ch>}, <chClr>, ;
  27.                                <wait>, <.rest.> )
  28.  
  29. /* eof MsgBox.Ch */
  30.