value__ntID__ntName __ntTemplate viewFlags viewFormat viewBounds declareSelfviewSetupFormScript stepChildren  __ntDatatype __ntFlagsџ( CLAS@  NUMB   NUMB  RECT иш   'base EVAL  jfunc() begin self.viewbounds:=clone(viewbounds); end SCPT   ARAY     __ntDeclare     viewJustify slideviewClickScript  џ( CLAS@   NUMBџ   NUMBџH   RECTtopleftrightbottom(џџџџмџџџџи  џ€ NUMB   ARAY     !   viewSetupDoneScript %  џ PROT@   RECT    џL NUMB  jfunc() begin self.viewbounds:=clone(viewbounds); end SCPT  џfunc(unit) begin sbb:=sb:globalBox(); sbb.left:=sbb.left-1; sbb.right:=sbb.right-1; :drag(unit,sbb); sbb.left:=sbb.left+1; sbb.right:=sbb.right+1; mgb:=:globalbox(); self.viewbounds:=setbounds(mgb.left-sbb.left,mgb.top-sbb.top,mgb.right-sbb.left, mgb.bottom-sbb.top); f:=(viewbounds.top)/(sbb.bottom-sbb.top); n:=floor(((floor((f*tl.spillHeight)+0.5)-tl.viewOriginY)/tl.lineHeight)+0.5); if n>0 then for c:=1 to n do tl:viewscrolldownScript(); else begin n:=floor(n*-1);for c:=1 to n do tl:viewscrollupScript();end; true; end SCPTprotoPictureButtonbar џ  џ`func() begin f:=tl.viewOriginY/(tl.spillHeight+0.001); bar.viewbounds.top:=floor(((tl.viewHeight-30)*f)+0.5); bar.viewbounds.bottom:=bar.viewbounds.top+10; bar:syncView(); end SCPT  џ6func(unit) begin p:=getPoint(firstY,unit)-base.viewbounds.top-10; if p<bar.viewbounds.top then begin d:=tl.viewHeight-tl.viewOriginY; n:=floor(d/tl.lineHeight); if d<=0 then for c:=1 to base.viewLines do tl:viewscrollupScript(); else for c:=1 to n do tl:viewscrollupScript(); end; else begin d:=tl.viewHeight-(tl.spillHeight-tl.viewOriginY); n:=floor(d/tl.lineHeight); if d<=0 then for c:=1 to base.viewLines do tl:viewscrolldownScript(); else for c:=1 to n do tl:viewscrolldownScript(); end; :slide(); true; end SCPTclViewsb     !   # iconbuttonPressedScript  џ PROT@   RECT / 0 1 2џџџџм(  ˜ NUMB  џD NUMB   __ntResID__ntCreateMask __ntPictName__ntExternFileџupџКFSSpecКMacintosh 700 HDЅб}BD Uslb=Њ69rsrcRSEDNewton Toolkit U#Macintosh 700 HD:Newton Toolkit:slb ЈЈafpm9Yu•ž* Macintosh 700Macintosh 700 HD Tom Giannulli.Macintosh 700 HDф—Ѕб} U=џџџџџџ PICT  аfunc() begin if tl.viewOriginY>0 then begin tl:viewscrollUpScript();sb:slide();end; refreshViews(); end SCPT Hup     !   #  T U  џ PROT@   RECT / 0 1 2џџџџиџџџџм  џ˜ NUMB  џD NUMB   a b c dџdwnџК gКMacintosh 700 HDЅб}BD Uslb=Њ69rsrcRSEDNewton Toolkit U#Macintosh 700 HD:Newton Toolkit:slb ЈЈafpm9Yu•ž* Macintosh 700Macintosh 700 HD Tom Giannulli.Macintosh 700 HDф—Ѕб} U=џџџџџџ PICT  №func() begin if tl.viewOriginY<tl.spillHeight then begin tl:viewscrolldownScript(); sb:slide();end; refreshViews(); end SCPT H down     !  viewFont  buttonClickScript :  џ PROT@   SCPTџмfunc() begin self.viewbounds:=clone(viewbounds); viewbounds.right:=base.viewbounds.right-base.viewbounds.left-10; self.viewOriginY:=0; :SetupList(); base.viewbounds.bottom:=base.viewbounds.top+viewheight; base:syncView(); end  EVAL ROM_fontSystem9  џD NUMB   Пп RECT  ’func(textIndex) begin perform(base,'buttonClickScript,[textIndex]); end SCPT  џŒfunc() begin if spillHeight<1 then begin bar:close();setvalue(sb,'viewformat,vfFillWhite+vfFrameBlack+256);end; else begin bar:open();setvalue(sb,'viewformat,vfFillLtgray+vfFrameBlack+256);end; end SCPT protoTextListtl џ Psbl