home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: Science / Science.zip / goat006.zip / SRC.ZIP / goatsrc / batch / 1000.16 next >
Text File  |  2002-09-11  |  428b  |  14 lines
  1. /* Event Mouse button 1 double click - Container  1000 */
  2. Arg window self index
  3.  
  4. /* Get item value at index 1000 Container */
  5. value=VpGetItemValue(window,1000,index)
  6.  
  7. /* View as details 1000 Container */
  8. rc=VpSetItemStyle(window,1000,'DETAILS')
  9.  
  10. /* Delete all items 1000 Container */
  11. CALL VpDeleteItem window,1000,'ALL'
  12.  
  13. /* Load item from file 1000 Container */
  14. CALL VpLoadFromFile window,1000,'C:\OS2\'||value||'\'