// Copyright © 1993-94 Apple Computer, Inc. All rights reserved.

constant kAppName := '|ViewScript:PIEDTS|;

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


// ---- File ViewScripts.t ----
MainView :=
   {title: "View Scripts Example",
    viewBounds: {left: 0, top: 0, right: 240, bottom: 332},
    viewSetupDoneScript:
      func()
      begin
          print("mainView viewSetupDoneScript");
      end,
    viewSetupFormScript:
      func()
      begin
      	constant kMaxWidth := 240;
      	constant kMaxHeight := 336;
      
      	local b := GetAppParams();
      
      	self.viewBounds := RelBounds(b.appAreaLeft, b.appAreaTop,
      											Min(b.appAreaWidth, kMaxWidth),
      											Min(b.appAreaHeight, kMaxHeight)
      										);
      
          Print("mainView viewSetupFormScript");
      end,
    viewSetupChildrenScript:
      func()
      begin
          print("mainView viewSetupChildrenScript");
      end,
    viewDrawScript:
      func()
      begin
          print("mainView viewDrawScript");
      end,
    _proto: protoApp,
    debug: "MainView"
   };

child1 := /* child of MainView */
   {viewFlags: 1,
    viewFormat: 337,
    viewBounds: {left: 50, top: 66, right: 186, bottom: 130},
    viewSetupFormScript:
      func()
      begin
          print("child1 viewSetupFormScript");
      end,
    viewSetupChildrenScript:
      func()
      begin
          print("child1 viewSetupChildrenScript");
      end,
    viewSetupDoneScript:
      func()
      begin
          print("child1 viewSetupDoneScript");
      end,
    viewDrawScript:
      func()
      begin
          print("child1 viewDrawScript");
      end,
    viewFont: ROM_fontSystem9,
    viewlinespacing: 20,
    text: "child1",
    viewclass: 81,
    debug: "child1"
   };

grandchild11 := /* child of child1 */
   {viewFlags: 1,
    viewFormat: 337,
    viewBounds: {left: 32, top: 24, right: 104, bottom: 48},
    viewSetupFormScript:
      func()
      begin
          print("grandchild11 viewSetupFormScript");
      end,
    viewSetupChildrenScript:
      func()
      begin
          print("grandchild11 viewSetupChildrenScript");
      end,
    viewSetupDoneScript:
      func()
      begin
          print("grandchild11 viewSetupDoneScript");
      end,
    viewDrawScript:
      func()
      begin
          print("grandchild11 viewDrawScript");
      end,
    viewlinespacing: 20,
    viewFont: ROM_fontSystem9,
    text: "grandchild11",
    viewclass: 81,
    debug: "grandchild11"
   };





child2 := /* child of MainView */
   {viewFlags: 1,
    viewFormat: 337,
    viewBounds: {left: 50, top: 162, right: 186, bottom: 218},
    viewSetupFormScript:
      func()
      begin
          print("child2 viewSetupFormScript");
      end,
    viewSetupChildrenScript:
      func()
      begin
          print("child2 viewSetupChildrenScript");
      end,
    viewSetupDoneScript:
      func()
      begin
          print("child2 viewSetupDoneScript");
      end,
    viewDrawScript:
      func()
      begin
          print("child2 viewDrawScript");
      end,
    viewlinespacing: 20,
    viewFont: ROM_fontSystem9,
    text: "child2",
    viewclass: 81,
    debug: "child2"
   };







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

// End of output