home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / extspsht.zip / EXTSPSHT / Main / 1018.0 < prev    next >
Text File  |  1997-07-15  |  261b  |  11 lines
  1. /* Event Clicked/selected - RO  1018 */
  2. Arg window self
  3.  
  4. /* Get button state RO1018 Check Box */
  5. flag = VpIsSelected(window,1018)
  6. if flag then value = "RO"
  7. else value = "RW"
  8.  
  9. /* Set item value RO1018 Check Box */
  10. CALL VpSetItemValue window,1018,value
  11.