home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 18 REXX
/
18-REXX.zip
/
extspsht.zip
/
EXTSPSHT
/
Main
/
1015.0
< prev
next >
Wrap
Text File
|
1997-07-15
|
378b
|
12 lines
/* Event Clicked/selected - set 1015 */
Arg window self
/* Get item value 1014 Entry Field */
PosX = 0 + VpGetItemValue(window,1014)
/* Get item value 1013 Entry Field */
PosY = 0 + VpGetItemValue(window,1013)
/* Get button state RO1018 Check Box */
flag = 0 + VpIsSelected(window,1018)
value=VpItem(window,1000,'SENDMSG', SPRM.SET_READONLY, PosX, PosY, flag, 0);