home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Misc / HYPERBOOK2.DMS / in.adf / Macros / SetObjSize < prev    next >
Encoding:
Text File  |  1990-09-03  |  435 b   |  17 lines
  1. /* SetObjSize - Set size of one object to match size of another. */
  2.  
  3. row = getclickrow('Click on the object whose size you want to change')
  4. col = getcolumn()
  5. ob1 = getobjectat(col, row)
  6.  
  7. if length(ob1) > 0 then do
  8.  
  9.    row = getclickrow('Click on the object whose size you want to match')
  10.    col = getcolumn()
  11.    ob2 = getobjectat(col, row)
  12.  
  13.    if length(ob2) > 0 then
  14.       call scaletosize(ob1, getwidth(ob2), getheight(ob2))
  15.  
  16.    end
  17.