home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / sema4.zip / semaphor / main / form.5 < prev    next >
Text File  |  1994-02-17  |  200b  |  8 lines
  1. Arg window 
  2.  
  3. /* Set Application variable = current selection of spin button */
  4. CALL VPAppVariable "SET","CDRIVE",current_drive
  5.  
  6. /* post an event */
  7. rc=VpSemaphore("EVENT","POSTRELEASE",SWAPID)
  8.