home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / sema4.zip / semaphor / main / 1000.3 next >
Text File  |  1994-02-17  |  286b  |  11 lines
  1. Arg window self
  2.  
  3. /* Get item value  Spin Button */
  4. current_drive = VpGetItemValue(window,1000)
  5.  
  6. /* Set Application variable = current selection of spin button */
  7. CALL VPAppVariable "SET","CDRIVE",current_drive
  8.  
  9. /* post an event */
  10. rc=VpSemaphore("EVENT","POSTRELEASE",SWAPID)
  11.