home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / extspsht.zip / EXTSPSHT / Main / 1004.0 < prev    next >
Text File  |  1997-07-10  |  323b  |  10 lines
  1. /* Event Clicked/selected - Col  1004 */
  2. Arg window self
  3. /* Get item position 1000 Spreadsheet */
  4. xy=VpItem(window,1000,'ITEMPOS')
  5. PARSE VAR xy x y
  6. /* Set item position/size 1000 Spreadsheet */
  7. CALL VpItem window,1000,'SETITEMPOS',x,y,20000,20000
  8. /* Repaint item 1000 Spreadsheet */
  9. rc=VpItem(window,1000,'PAINT')
  10.