home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 13 / AACD13.ISO / CDTools / MUIRexx / demos / MUIRexxBuild / test / test2.rexx < prev   
OS/2 REXX Batch file  |  1997-03-19  |  945b  |  34 lines
  1. /* Application created by MUIBuild */
  2.  
  3. address TEST2
  4.  
  5. Numeric_Value = 0x8042ae3a
  6. Gauge_Current = 0x8042f0dd
  7. Gauge_Horiz = 0x804232dd
  8. Weight = 0x80421d1f
  9. Notify = 0x8042c9cb
  10. EveryTime = 0x49893131
  11. Set = 0x8042549a
  12. TriggerValue = 0x49893131
  13. ASLFR_DrawersOnly = 0x8008002F
  14. TRUE = 1
  15. ASLFR_TitleText = 0x80080001
  16.  
  17. window COMMAND """quit""" PORT TEST2 TITLE """A Test"""
  18.  group FRAME HORIZ
  19.   space HORIZ
  20.   knob ID KNOB
  21.   meter ID METR LABEL "meter"
  22.   space HORIZ
  23.  endgroup
  24.  group FRAME
  25.   slider COMMAND """gauge ID GAUG ATTRS 0x8042f0dd %s""" PORT TEST2 ATTRS Numeric_Value 50
  26.   gauge ID GAUG ATTRS Gauge_Current 50 Gauge_Horiz 1 LABEL "Level %ld"
  27.   object CLASS "Scale.mui"
  28.  endgroup
  29.  object CLASS "Busy.mcc" ATTRS Weight 0
  30.  popasl SPEC "6:20" ATTRS ASLFR_DrawersOnly TRUE ASLFR_TitleText """Select Drawer"""
  31.  poplist LABELS """entry 1,entry 2,entry 3"""
  32. endwindow
  33. method ID KNOB Notify Numeric_Value EveryTime @METR 3 Set Numeric_Value TriggerValue
  34.