// Text of project ParagraphScroll written on 5/9/95 at 3:58 PM
// Beginning of file ParagraphScroll.t

// Before Script for "mainView"
// Copyright 1993-1995 Apple Computer. All rights reserved.


mainView :=
    {viewFlags: 1,
     viewFormat: 593,
     viewBounds: {left: 4, top: 4, right: 228, bottom: 180},
     declareSelf: 'base,
     debug: "mainView",
     viewClass: 74
    };

_view000 := {_proto: @166};
AddStepForm(mainView, _view000);



scrollClipper :=
    {viewFlags: 67108899,
     viewFormat: 337,
     viewBounds: {left: 1, top: 1, right: 239, bottom: 159},
     viewSetupDoneScript:
       func()
       begin
          :SetupIdle(1);
       end,
     viewIdleScript:
       func()
       begin
          :SetOrigin(self.viewOriginX,self.viewOriginY + 1); //Slide child up by one
           1
       //This should return the number of milliseconds to delay. NIL if no more idling.
       end,
     viewOriginX: 0,
     viewOriginY: 0,
     debug: "scrollClipper",
     viewClass: 74
    };
AddStepForm(mainView, scrollClipper);
StepDeclare(mainView, scrollClipper, 'scrollClipper);

theTextView :=
    {viewFlags: 11,
     viewFormat: 257,
     viewLineSpacing: 20,
     viewFont: rom_fontsystem14bold,
     viewBounds: {left: 0, top: 0, right: 224, bottom: 48},
     text: "Text\n",
     viewSetupFormScript:
       func()
       begin
          for i := 1 to 200 do text := text & GetRandomWord(4,10) & " " ;
           //Creates the actual paragraph o' text.
       end,
     debug: "theTextView",
     viewClass: 81
    };
AddStepForm(scrollClipper, theTextView);
StepDeclare(scrollClipper, theTextView, 'theTextView);






constant |layout_ParagraphScroll.t| := mainView;
// End of file ParagraphScroll.t