home *** CD-ROM | disk | FTP | other *** search
/ Gold Fish 3 / goldfish_volume_3.bin / files / dev / e / amigae / src / class / scrollwin / textview.e < prev   
Text File  |  1994-11-08  |  394b  |  16 lines
  1. -> show a textfile in a nice juicy scrolling window
  2.  
  3. MODULE 'tools/file', 'tools/exceptions', 'class/sctext'
  4.  
  5. PROC main() HANDLE
  6.   DEF m,l,n,list,sc=NIL:PTR TO scrolltext
  7.   m,l:=readfile(arg)
  8.   list:=stringsinfile(m,l,n:=countstrings(m,l))
  9.   NEW sc.settext(list,100)
  10.   sc.open('TextView v0.1',20,20,300,150)
  11.   WHILE sc.handle()=FALSE DO Wait(-1)
  12. EXCEPT DO
  13.   END sc
  14.   report_exception()
  15. ENDPROC
  16.