// Text of project pictIndex written on 5/13/95 at 11:15 PM
// Beginning of file pictIndex.t

// Before Script for "myBase"
// Copyright 1993-1994 Apple Computer, Inc. All rights reserved.


myBase :=
    {viewFlags: 5,
     viewFormat: nil,
     viewBounds: {left: 0, top: 0, right: 240, bottom: 336},
     declareSelf: 'base,
     shapeArray: ["Square", "Oval", "Circle", "Triangle"],
     title: "PictIndex",
     viewSetupFormScript:
       func()
       begin
       local b := GetAppParams();
       constant kMaxWidth := 240;
       constant kMaxHeight := 336;
       
       viewBounds := RelBounds(b.appAreaLeft, b.appAreaTop,
       		Min(b.appAreaWidth, kMaxWidth),
       		Min(b.appAreaHeight, kMaxHeight) );
       end,
     debug: "myBase",
     _proto: @157
    };

_view000 :=
    {icon: GetPictAsBits("shapes", nil),
     iconBBox: {top: 0, left: -5, right: 100, bottom: 20},
     numIndices: 4,
     indexClickScript:
       func(currIndex)
       begin
           SetValue(theText, 'text, shapeArray[currIndex]);
       end,
     curIndex: 0,
     viewJustify: 54,
     viewBounds: {left: 0, top: 120, right: 0, bottom: 144},
     viewSetupFormScript:
       func()
       begin
           :indexClickScript(curIndex);
       end,
     _proto: @196
    };
AddStepForm(myBase, _view000);



theText :=
    {text: "Static Text",
     viewBounds: {left: 0, top: 56, right: 0, bottom: 76},
     viewJustify: 8388662,
     debug: "theText",
     _proto: @218
    };
AddStepForm(myBase, theText);
StepDeclare(myBase, theText, 'theText);




constant |layout_pictIndex.t| := myBase;
// End of file pictIndex.t