ToolBody:
TYPE =
RECORD[
db: LoganBerryStub.OpenDB ← RefID.nullID, -- open database handle (*)
dbInfo: LoganBerryStubExtras.SchemaInfo ← NIL, -- database schema (*)
menu: Menus.Menu ← NIL, -- command menu (default is standard menu)
innerFlavor: ViewerClasses.ViewerFlavor ← NIL, -- flavor for inner viewer
inner: ViewerClasses.Viewer ← NIL, -- viewer for retrieved database entries (*)
outer: Containers.Container ← NIL, -- main container (*)
icon: Icons.IconFlavor ← unInit, -- icon used
fields: LIST OF LoganBerryStub.AttributeType ← NIL, -- fields that should be present in the entry form (default is set of indexed attributes)
entryform: RefTab.Ref ← NIL, -- set of "FormField"s (*)
inputArea: ViewerClasses.Viewer ← NIL, -- area for type in (*)
sortButton: ChoiceButtons.EnumTypeRef ← NIL, -- order of retrieval (*)
queryFeedback: Labels.Label ← NIL, -- area for feedback about query processing (*)
details: Containers.Container ← NIL, -- container for choice buttons (*)
historyData: REF ANY ← NIL, -- log of executed queries (*)
history: ViewerClasses.Viewer ← NIL, -- viewer for history data (*)
height: CARDINAL ← 0, -- current height of tool (excluding inner viewer) (*)
process: PROCESS ← NIL, -- process currently executing a query
clientData: REF ← NIL -- client-specific data
];