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


// ---- 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,
    _proto: protoApp,
    debug: "myBase"
   };

_view000 := /* child of myBase */
   {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: protoPictIndexer
   };



theText := /* child of myBase */
   {text: "Static Text",
    viewBounds: {left: 0, top: 56, right: 0, bottom: 76},
    viewJustify: 8388662,
    _proto: protoStaticText,
    debug: "theText"
   };
// View theText is declared to myBase







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

// End of output