home *** CD-ROM | disk | FTP | other *** search
/ Dream 45 / Amiga_Dream_45.iso / Amiga / Magazine / Dossier-LaTeX / tex_scripts.lha / viewfile.edge < prev    next >
Text File  |  1995-10-11  |  577b  |  27 lines
  1. /*View Other*/
  2. options results
  3.  
  4. /* Get the filename */
  5.  
  6. requestfile title DVI_FILE pattern '#?.dvi' getdir
  7. if ~(rc==0) then exit
  8. file=result
  9.  
  10. /* View the file */
  11.  
  12. address command 'TeX:bin/dvi' file
  13.  
  14. /* If anything went wrong, load the .log file. */
  15.  
  16. log='.log'
  17. if ~(rc==0) then do
  18.     changewindow leftedge 0 topedge 13 width 668 height 220
  19.     requestnotify title ERROR string 'View Failed.  See log.'
  20.     new
  21.     address value result
  22.     activatewindow port result
  23.     open files log
  24.     window front
  25.     changewindow leftedge 0 topedge 233 width 668 height 230
  26.   end
  27. else address command delete log