value__ntID__ntName __ntTemplate viewflags viewFormat viewBounds stepChildrenviewClickScript  __ntDatatype __ntFlags( CLAS@   NUMB  NUMB    RECT    ARAY     __ntDeclare text viewSetupFormScript  h PROT@   TEXTStatic Text   RECT   func() begin text:=sPrintObject(Slot_Value[0]); local SF:=ShowFrame[Length(ShowFrame)-1]; local f:=nil; if isArray(SF) then begin local cl:=classof(SF[Slot_Value[0]]); if (cl='Array) or (cl='frame) then begin foreach slot in SF[Slot_Value[0]] do if classof(slot)='String then if strlen(slot)>0 then begin text:=text&" -"&slot; f:=true; break; end; if not f then foreach slot in SF[Slot_Value[0]] do if classof(slot)='Symbol then begin text:=text&" '"&sprintobject(slot); break; end; end; end; end SCPTprotostatictext Slot         viewfont  h PROT@  TEXTStatic Text   RECT    func() begin local slot:=Slot_Value[1]; Self.class:=Classof(Slot); if slot=ShowFrame[length(ShowFrame)-1] then text:="self"; else if class='Weird_immediate then text:="NIL"; else if class='Boolean then text:="TRUE"; else if class='Frame then text:="Frame {"&sprintobject(length(slot))&"}"; else if class='viewChildren then text:="viewChildren ["&sprintobject(length(slot))&"]"; else if class='stepChildren then text:="stepChildren ["&sprintobject(length(slot))&"]"; else if class='Array then text:="Array ["&sprintobject(length(slot))&"]"; else if class='polygonshape then text:="polygonshape ("&sprintobject(length(slot))&")"; else if class='int then text:=sPrintObject(slot); else if class='Real then text:=sPrintObject(slot); else if class='String then text:=$"&Slot&$"; else if class='Symbol then text:="'"&sprintobject(Slot); else if class='instructions then text:="length: "&sprintobject(length(slot)); else if class='CFunction then text:="Func("&sprintobject(Slot.numArgs)&" Arg.)"; else if class='CodeBlock then text:="CodeBlock("&sprintobject(Slot.numArgs)&" Arg.)"; else text:="Cl: "&sPrintObject(class); end SCPT  simpleFont9 EVAL ) Value    func(unit) begin if StrEqual(Value.text,"self") then return true; local slot:=Slot_Value[1]; if isFrame(slot) or isArray(slot) then begin self:hilite(true); local SF:=Showframe[length(Showframe)-1]; if isFrame(SF) then AddArraySlot(Showframe,slot); else AddArraySlot(Showframe,SF[vIndex]); AddArraySlot(Tree.LabelCommands,self.Slot.text); AddDeferredAction(func() begin SlotsList:close();Tree:close();SlotsList:open();tree:open();end,[]); end; end SCPTclView Slots