home *** CD-ROM | disk | FTP | other *** search
/ Amiga ACS 1998 #4 / amigaacscoverdisc1998-041998.iso / utilities / shareware / music / mrmidi / stop.rexx < prev   
Encoding:
OS/2 REXX Batch file  |  1998-03-08  |  540 b   |  21 lines
  1. /* Stop.rexx */
  2.  
  3. options results; address MrMIDI
  4.  
  5. MUIA_Disabled        = 0x80423661;    MUIA_NoNotify        = 0x804237f9
  6. MUIA_Selected        = 0x8042654b;    MUIA_Slider_Level    = 0x8042ae3a
  7.  
  8. image ID STOP ATTRS MUIA_Disabled 1
  9. check ID PLAY
  10. if result = 1 then do
  11.   check ID PLAY ATTRS MUIA_Selected 0 MUIA_NoNotify 1
  12.   setvar stopped 1
  13. end
  14. call setclip('MrMIDI_FLAG', 1)
  15. address command 'Kill >NIL: GMPlay'
  16. /* slider ID PROG ATTRS MUIA_Slider_Level 0
  17. setvar current_time '00:00'
  18. text ID CURNT LABEL "\033b\033r00:00" */
  19. image ID STOP ATTRS MUIA_Disabled 0
  20. return
  21.