home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Misc / HYPERBOOK2.DMS / in.adf / Macros / ListCurrentPage < prev    next >
Encoding:
Text File  |  1990-09-02  |  744 b   |  40 lines
  1. /* ListCurrentPage - List the objects on this page by number and name
  2. */
  3.  
  4. cr = '0a'X
  5.  
  6. ob = objectnumber(':',1)
  7. pg = currentpage()
  8. tx = ''
  9.  
  10. if ob = '' then
  11.    call inform('No objects on this page')
  12.  
  13. else do
  14.  
  15.    call beginprompt('Working')
  16.  
  17.    do while getpage(ob) == pg
  18.  
  19.       tx = tx left(ob, 12)
  20.  
  21.       if getvisibility(ob) then
  22.          tx = tx 'V '
  23.       else
  24.          tx = tx 'I '
  25.  
  26.       tx = tx right(getleft(ob),3) right(gettop(ob),3)
  27.       tx = tx right(getwidth(ob),3) right(getheight(ob),3) ' ' getname(ob) cr
  28.  
  29.       ob = getnext(ob)
  30.  
  31.       if length(ob) == 0 then
  32.          leave     /* This happens if on last page */
  33.  
  34.       end
  35.  
  36.    call endprompt()
  37.    say 'Listing for page' sequencenumber(pg) cr cr || left(tx,length(tx)-1)
  38.  
  39.    end
  40.