home *** CD-ROM | disk | FTP | other *** search
/ Gold Fish 3 / goldfish_volume_3.bin / files / dev / e / amigae / rkrmsrc / intuition / requesters_alerts / easyrequest.e < prev   
Text File  |  1995-03-26  |  2KB  |  42 lines
  1. -> easyrequest.e - Show the use of an easy requester.
  2.  
  3. OPT OSVERSION=37  -> Note: silently require V37
  4.  
  5. MODULE 'intuition/intuition'
  6.  
  7. -> Main routine to show the use of EasyRequestArgs()
  8. PROC main()
  9.   DEF answer, number, text
  10.  
  11.   number:=3125794  -> For use in the middle button
  12.  
  13.   -> The easy request strucutre uses many features of EasyRequestArgs(),
  14.   -> including:
  15.   ->     multiple lines of body text separated by '\n'.
  16.   ->     variable substitution of a string (%s) in the body text.
  17.   ->     multiple button gadgets separated by '|'.
  18.   ->     variable substitution in a gadget (long decimal '%ld').
  19.  
  20.   -> NOTE in the variable substitution:
  21.   ->     the string goes in the first open variable (in body text).
  22.   ->     the number goes in the second open (gadget text).
  23.   text:='Text for the request\n'+
  24.         'Second line of %s text\n'+
  25.         'Third line of text for the request'
  26.   answer:=EasyRequestArgs(NIL,
  27.                          [SIZEOF easystruct, 0, 'Request Window Name',
  28.                           text,
  29.                           'Yes|%ld|No']:easystruct,
  30.                           NIL, ['(Variable)', number])
  31.   -> Process the answer.  Note that the buttons are numbered in a strange
  32.   -> order.  This is because the rightmost button is always a negative reply.
  33.   -> The code can use this if it chooses, with a construct like:
  34.   ->
  35.   ->     IF EasyRequestArgs() THEN positive_response()
  36.   SELECT answer
  37.   CASE 1; WriteF('Selected "Yes"\n')
  38.   CASE 2; WriteF('Selected "\d"\n', number)
  39.   CASE 0; WriteF('Selected "No"\n')
  40.   ENDSELECT
  41. ENDPROC
  42.