// ---- End Project Data ----


// ---- File ParagraphScroll.t ----

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

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

_view000 := /* child of mainView */ {_proto: protoClosebox};



scrollClipper := /* child of mainView */
   {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,
    viewclass: 74,
    debug: "scrollClipper"
   };
// View scrollClipper is declared to mainView

theTextView := /* child of scrollClipper */
   {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,
    viewclass: 81,
    debug: "theTextView"
   };
// View theTextView is declared to scrollClipper









// ---- Beginning of section for non used Layout files ----

// End of output