// Copyright ©1993-94 Apple Computer, Inc. All rights reserved. constant kAppSymbol := '|Inspector:PIEDTS|; // ---- End Project Data ---- // ---- File Inspect.t ---- 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, _proto: protoApp, debug: "Gadget" }; _view000 := /* child of Gadget */ {text: "Expression:", viewBounds: {left: 2, top: 18, right: 122, bottom: 34}, _proto: protoStaticText }; expression := /* child of Gadget */ {viewBounds: {left: 2, top: 34, right: -2, bottom: 112}, text: "self.text", viewJustify: 48, viewFlags: 158209, _proto: protoInputLine, debug: "expression" }; // View expression is declared to Gadget context := /* child of Gadget */ {text: "context", viewBounds: {left: 10, top: 122, right: 154, bottom: 138}, viewFormat: 337, viewFont: simpleFont9, viewJustify: 8388614, _proto: protoStaticText, debug: "context" }; // View context is declared to Gadget _view001 := /* child of Gadget */ {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: protoTextButton }; _view002 := /* child of Gadget */ {text: "Result:", viewBounds: {left: 2, top: 146, right: 122, bottom: 162}, _proto: protoStaticText }; result := /* child of Gadget */ {viewFlags: 1, viewFormat: 337, viewlinespacing: 20, viewFont: ROM_fontSystem9Bold, viewBounds: {top: 163, left: 2, right: -2, bottom: -25}, viewJustify: 240, viewclass: 81, debug: "result" }; // View result is declared to Gadget // ---- Beginning of section for non used Layout files ---- // End of output