begin external class WindowTools; ref(MainWindow) MW; ref(ScrollWindow) SW; MW :- new MainWindow(" Scroll test "); MW.SetSize(0.8*new XWindow.DisplayWidth,0.66*new XWindow.DisplayHeight).Show; % SW :- new ScrollWindow(MW,1000).SetSize(MW.width-50,MW.height-50); SW :- new ScrollWindow(MW).SetSize(MW.width-50,MW.height-50); SW.PlaceDownLeft.Show; SW.OutLine("The complete `sc' command:"); SW.OutImage; inspect new InFile("../sc") do begin if Open(Blanks(80)) then begin integer NL; while NL < 200 and not EndFile do begin NL := NL+1; SW.OutLine(Image); InImage; end while; Close; end if; end inspect; MW.MakeButton("Quit").Wait; end