// Text of project ParagraphScroll written on 11/21/95 at 8:04 PM
// Beginning of file ParagraphScroll.t

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


mainView :=
    {viewBounds: {left: 10, top: 30, right: 230, bottom: 210},
     declareSelf: 'base,
     viewJustify: 0,
     ReorientToScreen: func() nil;,
     debug: "mainView",
     _proto: @180
    };

scrollClipper :=
    {viewFormat: 337,
     viewBounds: {left: 0, top: 0, right: 220, bottom: 160},
     viewSetupDoneScript:
       func()
       	:SetupIdle(1);,
     viewIdleScript:
       func()
       	begin
       		call kShowBusyBoxFunc with (nil);	// keep busybox from appearing
       		:SetOrigin(viewOriginX, 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,
     viewFlags: 35,
     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: 220, bottom: 48},
     text: "Text",
     viewSetupFormScript:
       func()
       	begin
       		if fonts.handwriting then
       			viewFont := '{family: handwriting, face: 0, size: 12};
       		for i := 1 to 200 do
       			text := text && GetRandomWord(4,10);
       	end,
     debug: "theTextView",
     viewClass: 81
    };
AddStepForm(scrollClipper, theTextView);
StepDeclare(scrollClipper, theTextView, 'theTextView);






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