home *** CD-ROM | disk | FTP | other *** search
/ Gold Fish 3 / goldfish_volume_3.bin / files / dev / e / amigae / rkrmsrc / intuition / requesters_alerts / displayalert.e < prev    next >
Text File  |  1995-03-08  |  1KB  |  27 lines
  1. -> displayalert.e -  This program implements a recoverable alert
  2.  
  3. MODULE 'intuition/intuition'
  4.  
  5. PROC main()
  6.   IF DisplayAlert(RECOVERY_ALERT, {alertMsg}, 52)
  7.     WriteF('Alert returned TRUE\n')
  8.   ELSE
  9.     WriteF('Alert returned FALSE\n')
  10.   ENDIF
  11. ENDPROC
  12.  
  13. -> Each string requires its own positioning information, as explained in the
  14. -> manual.  Hex notation has been used to specify the positions of the text.
  15. -> Hex numbers start with a "$" and the characters that make up the number.
  16. ->
  17. -> Each line needs 2 bytes of x position, and 1 byte of y position.
  18. ->   in our 1st line: x = 0 $f0 (2 bytes) and y = $14 (1 byte)
  19. ->   In our 2nd line: x = 0 $80 (2 bytes) and y = $24 (1 byte)
  20. -> Each line is NIL terminated plus a continuation character (0=done).  The
  21. -> entire alert must end in TWO NILs, one for the end of the string, and one
  22. -> for the 0 continuation character.
  23. -> E-Note: using static data is just one way of doing this neatly
  24. alertMsg:
  25.   CHAR 0, $f0, $14, 'OH NO, NOT AGAIN!', NIL, 1,
  26.        0, $80, $24, 'PRESS MOUSEBUTTON:   LEFT=TRUE   RIGHT=FALSE', NIL, 0
  27.