home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / rxdlg11.zip / rexxset9.cmd < prev    next >
OS/2 REXX Batch file  |  1995-03-01  |  3KB  |  91 lines

  1. /* This creates a Main Window with 2 Groups. The first Group contains 1 ENTRY
  2.    with the END flag set.  The second Group contains 1 SPIN. Whenever the user
  3.    changes the ENTRY's value, RXDLG returns, and we move the SPIN's y position
  4.    to the value typed into the entry (ie, for example -3 moves the SPIN 3 pels
  5.    down).
  6. */
  7.  
  8. /* Trap ERROR and FAILURE */
  9. SIGNAL ON ERROR
  10. SIGNAL ON FAILURE
  11.  
  12. /* =============== Create "Main Window" ================= */
  13. /* First Group is ENTRY */
  14. RXTYPE.1 = 'ENTRY'
  15.  
  16. /* Use of a control in this group causes RXDLG to return */
  17. RXFLAGS.1 = 'END'
  18.  
  19. /* Labels for each entry, and Groupbox. Note: 3rd entry has no label */
  20. RXLABEL.1 = 'Move:|Y Position'
  21.  
  22. /* Variable name where the text "typed into" the entry is stored */
  23. RXVAL.1 = 'TEXT'
  24.  
  25. /* TotalControls, ControlsPerLine, WidthOfControls */
  26. RXINFO.1 = '1 1 40'
  27.  
  28. /* Position of Group */
  29. RXX.1 = 65
  30. RXY.1 = 60
  31.  
  32. /* The text for the entry */
  33. TEXT.1 = '10'
  34.  
  35. /* Second Group is SPIN */
  36. RXTYPE.2 = 'SPIN'
  37.  
  38. /* Default */
  39. RXFLAGS.2 = ' '
  40.  
  41. /* Label for control. No Groupbox */
  42. RXLABEL.2 = '200 40 Width:'
  43.  
  44. /* TotalControls, ControlsPerLine, WidthOfControls */
  45. RXINFO.2 = '1 1 70'
  46.  
  47. /* initial value of spin */
  48. RXVAL.2 = '64'
  49.  
  50. /* Position */
  51. RXX.2 = 180
  52. RXY.2 = 10
  53.  
  54. /* Default size and position (also gives us sizing and max button) */
  55. RXWIN1 = ' '
  56.  
  57. /* NOCLOSE since we want to close the window ourselves.
  58.     No RESULT Flag, so the ESC and ENTER keys do nothing, and we don't
  59.     have to bother checking for those */
  60. RXDLG 2 '"Main Window"' 'RXWIN1'  'NOCLOSE'
  61.  
  62. more:
  63.  
  64. /* Do user interaction */
  65. RXDLG
  66.  
  67. /* Did user click upon the CLOSE ICON? If so, then exit */
  68. IF RXID < 0 THEN EXIT
  69.  
  70. /* Since there is only 1 group and 1 control, we know that it caused RXDLG
  71.     to return. Set spin y position to value typed into the entry. We don't care
  72.     about changing the x position, so specify 0.
  73. */
  74.  
  75. RXSET '""' 2 0 'MOVE 0|' TEXT.1
  76. SIGNAL more
  77.  
  78. /* ==================================================== */
  79. FAILURE:
  80.     /* NOTE: the variable RC contains the returned error message (not a number,
  81.     unless we use RXERR to set up Rexx Dialog to return error numbers instead).
  82.     Because we used the default severity level, Rexx Dialog has already displayed
  83.     this error message to the enduser */
  84.     EXIT
  85. ERROR:
  86.     /* NOTE: the variable RC contains the returned error message (not a number,
  87.     unless we use RXERR to set up Rexx Dialog to return error numbers instead).
  88.     Because we used the default severity level, Rexx Dialog has already displayed
  89.     this error message to the enduser */
  90.     EXIT
  91.