home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Misc / HYPERBOOK2.DMS / in.adf / Macros / sample / ActionInfo next >
Encoding:
Text File  |  1990-09-02  |  379 b   |  18 lines
  1. /* ActionInfo - Give information about the action of an object the user
  2.    clicks on.
  3. */
  4.  
  5. row = getclickrow('Click on the object whose action you want to learn about')
  6. col = getcolumn()
  7. obj = getobjectat(col, row)
  8.  
  9. name = getname(obj)
  10. act  = getaction(obj)
  11.  
  12. text = getactiontext(obj)
  13.  
  14. say 'object name: ' name
  15. say 'action type: ' act
  16.  
  17. if text ~= '' then say 'action text: ' text
  18.