home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 11 / CDACTUAL11.iso / cdactual / demobin / share / os2 / VPREVAL / THREADS._ / 1007.0 < prev    next >
Encoding:
Text File  |  1994-02-17  |  676 b   |  20 lines
  1. Arg window self
  2.  
  3. /* Get index of first selected item THREADLST List Box */
  4. index=VpGetIndex(window,'THREADLST','SELECTED',0)
  5. if index=1 then do
  6.    /* Disable item SUSPEND Push Button */
  7.    CALL VpItem window,'SUSPEND','DISABLE'
  8.    /* Disable item PROCEED Push Button */
  9.    CALL VpItem window,'PROCEED','DISABLE'
  10.    /* Disable item KILL Push Button */
  11.    CALL VpItem window,'KILL','DISABLE'
  12.    end
  13. else do
  14.    /* Enable item SUSPEND Push Button */
  15.    CALL VpItem window,'SUSPEND','ENABLE'
  16.    /* Enable item PROCEED Push Button */
  17.    CALL VpItem window,'PROCEED','ENABLE'
  18.    /* Enable item KILL Push Button */
  19.    CALL VpItem window,'KILL','ENABLE'
  20.    end