home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 2: PC / frozenfish_august_1995.bin / bbs / d09xx / d0928.lha / MRChoice / MRCDemo.rexx < prev    next >
OS/2 REXX Batch file  |  1993-10-07  |  3KB  |  68 lines
  1. /* MultiRequestChoice Demo */
  2.  
  3.     arguments = '"A simple Requester" "Please click one of the buttons!" "  Ok  |Cancel"'
  4.    Address Command MultiRequestChoice arguments
  5.    Res = RC
  6.    If Res = 1 Then Do
  7.        arguments = '"Information" "You clicked ╗Ok½." Confirm'
  8.       Address Command MultiRequestChoice arguments
  9.    End
  10.    If Res = 0 Then Do
  11.       arguments = '"Information" "You clicked ╗Cancel½." Confirm'
  12.       Address Command MultiRequestChoice arguments
  13.    End
  14.  
  15.     Do Until Stop = 'OK'
  16.       arguments = '"No longer a simple Requester" "What do you think about three buttons?" "Superb!|So so|Tedious"'
  17.       Address Command MultiRequestChoice arguments
  18.       Res = RC
  19.       If Res = 1 Then Do
  20.           Stop = 'OK'
  21.           arguments = '"Information" "Yes, superb." "Of course"'
  22.          Address Command MultiRequestChoice arguments
  23.       End
  24.       If Res = 2 Then Do
  25.           Stop = 'OK'
  26.           arguments = '"Information" "  So so???  " "Hmmm..."'
  27.          Address Command MultiRequestChoice arguments
  28.       End
  29.       If Res = 0 Then Do
  30.          arguments = '"Information" "What??? Try to program it yourself!!!" "Once again!"'
  31.          Address Command MultiRequestChoice arguments
  32.       End
  33.    End
  34.  
  35.    arguments = '"Multi-Line-Requester I" "Look, there are some\n╗\\n½\ncharacters in the\nbodytext." "Looks nice"'
  36.    Address Command MultiRequestChoice arguments
  37.    arguments = '"Multi-Line-Requester II" "But here is the bodytext centred.\nThis is possible via the\n\n╗CENTRETEXT½ option.\n\nNow it is nice!" "Amazing" CENTRETEXT'
  38.    Address Command MultiRequestChoice arguments
  39.  
  40.    arguments = '"Information" "Now we will practice a bit on-screen jumping!" "Go on!"'
  41.    Address Command MultiRequestChoice arguments
  42.    arguments = '"Information" "This is the SCREENTOPLEFT position!" "Ordinary" SCREENTOPLEFT'
  43.    Address Command MultiRequestChoice arguments
  44.    arguments = '"Information" "This is the SCREENCENTRE position!" "Clever" SCREENCENTRE'
  45.    Address Command MultiRequestChoice arguments
  46.    arguments = '"Information" "This is the MOUSECENTRE position!" "Well-known" MOUSECENTRE'
  47.    Address Command MultiRequestChoice arguments
  48.  
  49.    arguments = '"Information" "It is a bit difficult to offer you the PUBSCREEN option\nbecause I do not know if you have a PublicScreen open.\nSo I suggest you: Try it yourself.\nWe want to continue with the keyboard response option." "I agree with you." CENTRETEXT'
  50.    Address Command MultiRequestChoice arguments
  51.  
  52.    arguments = '"Information" "See the two response gadgets and\ntry to answer with the keyboard." "  _Ok  |_Cancel" CENTRETEXT'
  53.    Address Command MultiRequestChoice arguments
  54.    Res = RC
  55.    If Res = 1 Then Do
  56.       arguments = '"Information" "You clicked ╗Ok½." Con_firm'
  57.        Address Command MultiRequestChoice arguments
  58.    End
  59.    If Res = 0 Then Do
  60.       arguments = '"Information" "You clicked ╗Cancel½." Con_firm'
  61.       Address Command MultiRequestChoice arguments
  62.    End
  63.  
  64.    arguments = '"Information" "I think that was it for today." "Good Bye"'
  65.    Address Command MultiRequestChoice arguments
  66.  
  67. Exit
  68.