home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / extspsht.zip / EXTSPSHT / Main / 1015.0 < prev    next >
Text File  |  1997-07-15  |  378b  |  12 lines

  1. /* Event Clicked/selected - set  1015 */
  2. Arg window self
  3.  
  4. /* Get item value 1014 Entry Field */
  5. PosX = 0 + VpGetItemValue(window,1014)
  6. /* Get item value 1013 Entry Field */
  7. PosY = 0 + VpGetItemValue(window,1013)
  8. /* Get button state RO1018 Check Box */
  9. flag = 0 + VpIsSelected(window,1018)
  10. value=VpItem(window,1000,'SENDMSG', SPRM.SET_READONLY, PosX, PosY, flag, 0);
  11.  
  12.