// Text of project Inspect written on 5/9/95 at 15:56
// Beginning of file Inspect.t

// Before Script for "Gadget"
// Copyright © 1993-1995 by Apple Computer, Inc. All Rights Reserved.


Gadget :=
    {title: "Application",
     viewBounds: {top: 0, left: 0, right: 240, bottom: 336},
     viewJustify: 16,
     viewSetupFormScript:
       func()
       begin
       	local a := GetAppParams();
       	self.viewBounds := RelBounds(a.appAreaLeft, a.appAreaTop, a.appAreaWidth, a.appAreaHeight);
       end,
     debug: "Gadget",
     _proto: @157
    };

_view000 :=
    {text: "Expression:",
     viewBounds: {left: 2, top: 18, right: 122, bottom: 34},
     _proto: @218
    };
AddStepForm(Gadget, _view000);



expression :=
    {viewBounds: {left: 2, top: 34, right: -2, bottom: 112},
     text: "self.text",
     viewJustify: 48,
     viewFlags: 158209,
     debug: "expression",
     _proto: @185
    };
AddStepForm(Gadget, expression);
StepDeclare(Gadget, expression, 'expression);



context :=
    {text: "context",
     viewBounds: {left: 10, top: 122, right: 154, bottom: 138},
     viewFormat: 337,
     viewFont: simpleFont9,
     viewJustify: 8388614,
     debug: "context",
     _proto: @218
    };
AddStepForm(Gadget, context);
StepDeclare(Gadget, context, 'context);



_view001 :=
    {text: "Eval!",
     viewBounds: {left: 180, top: 124, right: 224, bottom: 144},
     buttonClickScript:
       func()
       begin
       	// Compile the the string expression and store the
       	// code block. Later show  the result.
           context.inspectorGadget := compile(expression.text);
           SetValue(result, 'text, context:inspectorGadget());
       end,
     _proto: @226
    };
AddStepForm(Gadget, _view001);



_view002 :=
    {text: "Result:",
     viewBounds: {left: 2, top: 146, right: 122, bottom: 162},
     _proto: @218
    };
AddStepForm(Gadget, _view002);



result :=
    {viewFlags: 1,
     viewFormat: 337,
     viewLineSpacing: 20,
     viewFont: ROM_fontSystem9Bold,
     viewBounds: {top: 163, left: 2, right: -2, bottom: -25},
     viewJustify: 240,
     debug: "result",
     viewClass: 81
    };
AddStepForm(Gadget, result);
StepDeclare(Gadget, result, 'result);




constant |layout_Inspect.t| := Gadget;
// End of file Inspect.t