home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Misc / HYPERBOOK2.DMS / in.adf / Macros / SetItemActions < prev    next >
Encoding:
Text File  |  1990-09-03  |  582 b   |  23 lines
  1. /* SetItemActions - Set the action for all the items on a list, which
  2.    must be on the current or a later page. The name of the list is set in
  3.    the first line below; the action for each item is set in the do loop.
  4.    (This macro would also work to set the actions for all the members of
  5.    a group, but that is much less often needed.)
  6. */
  7.  
  8. name = 'List1'
  9.  
  10. list = searchname(':', name)
  11.  
  12. if length(list) = 0 then do
  13.    say 'Sorry, can''t find' name || '.'
  14.    EXIT
  15.    end
  16.  
  17. do i = 1 to numelements(list)
  18.    item = objectnumber(list,i)
  19.    call setactionnone(item)
  20.    end
  21.  
  22. say 'Done!'
  23.