home *** CD-ROM | disk | FTP | other *** search
/ ARM Club 3 / TheARMClub_PDCD3.iso / programs / comms_networking / hearsay / !Hearsay / Libraries / Viewer (.txt) < prev    next >
RISC OS BBC BASIC V Source  |  1996-03-27  |  857b  |  28 lines
  1.  > Viewer library
  2.  Chris Rutter, 1996
  3. viewer_opendocument(path$)
  4.  size%,state%
  5. notify("<Viewer.Error.OpenDocument>: "+
  6. error):
  7. ael("viewer_opendocument")
  8.  viewer_documentopen% 
  9. viewer_closedocument
  10.  debugmode% 
  11. debug_message("Opening document {path$}...")
  12.  "OS_File",5,path$ 
  13.  state%,,,,size%
  14.  state%<>1 
  15. notify("<Viewer.DocumentNotFile> {path$}")
  16. J viewer_anchor%=
  17. claim_heap_commented(size%,"Viewer document display")
  18.  "OS_File",255,path$,(!viewer_anchor%)
  19. open_window(viewer_window%)
  20.  viewer_documentopen%=
  21. ! !((!viewer_anchor%)+size%)=0
  22. viewer_closedocument
  23. ael("viewer_closedocument")
  24. delete_heap(
  25. heap_from_anchor(viewer_anchor%))
  26. viewer_documentopen%=
  27. close_window(viewer_window%)
  28.