// Text of project ViewScripts written on 5/12/95 at 5:52 PM
// Beginning of 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,
     debug: "MainView",
     _proto: @157
    };

child1 :=
    {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",
     debug: "child1",
     viewClass: 81
    };
AddStepForm(MainView, child1);

grandchild11 :=
    {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"
     ,
     debug: "grandchild11",
     viewClass: 81
    };
AddStepForm(child1, grandchild11);





child2 :=
    {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",
     debug: "child2",
     viewClass: 81
    };
AddStepForm(MainView, child2);




constant |layout_ViewScripts.t| := MainView;
// End of file ViewScripts.t