home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Misc / HYPERBOOK2.DMS / in.adf / Macros / GetObjSize < prev    next >
Encoding:
Text File  |  1990-09-02  |  383 b   |  18 lines
  1. /* GetObjSize - Determine size/position of the object clicked on
  2. */
  3.  
  4. row = getclickrow('Click on an object')
  5. col = getcolumn()
  6.  
  7. ob  = getobjectat(col, row)
  8.  
  9. if length(ob) = 0 then
  10.    say 'You didn''t click on an object!'
  11. else do
  12.    say 'Name  :' getname(ob)
  13.    say 'Left  :' getleft(ob)
  14.    say 'Top   :' gettop(ob)
  15.    say 'Width :' getwidth(ob)
  16.    say 'Height:' getheight(ob)
  17.    end
  18.