value__ntID__ntName __ntTemplatetitle viewBounds stepChildren  __ntDatatype __ntFlagst PROT@   TEXT2Array Editor Sample App.  RECTlefttoprightbottomH4   ARAY     labelCommands  FSSpec SnowBoarding9BDCjprotoLabelEditInputLine[שPRTONTP1protos CjI{0P>SnowBoarding:Newton :NTK 1.0b7:protos:protoLabelEditInputLine USER@  P["goofey","regular","180 late","ollie"] EVAL UserProto    __ntDeclare     SnowBoarding9BDCjprotoArrayEditorVtHick]NUPRTONTP1protos CjI{0P=SnowBoarding:Newton :NTK 1.0b7:protos:protoArrayEditorVtHick USER@ $$arrayEditorVtHick    textbuttonClickScript ArrayEditorChangedArrayEditorCountermyArray   PROT@   TEXTEdit Array   SCPT@func() begin arrayEditorVtHick:Open(); arrayEditorVtHick:Setup(self,"animals",myArray); SetValue(arrayEditorVtHick.title,'text,"Animal Changer"); end  RECT _*m  nfunc(action,newArray,oldItem,newItem,status) /* NewArray has already added or removed the item. Added items get placed in the NewArray in alphabetical order. */ begin if action = 'Change then begin // need to change olditem to newitem SetValue(status,'text,status.text&&"changed"); end; /* 'Remove and 'Add can be removed if you do not need to do any special processing */ if action = 'Remove then begin // do not need to do anything end; if action = 'Add then begin // do not need to do anything end; // have to update the display that uses array // if array is of label commands then update labels myArray := newArray; end SCPT  Zfunc(item) begin return Random(0,3); end SCPT  (["cat","cow","dog"] EVALprotoTextButton       SnowBoarding9BDCjprotoLabelEditPickerVtHick^jwPRTONTP1protos CjI{0PASnowBoarding:Newton :NTK 1.0b7:protos:protoLabelEditPickerVtHick USER@ $     . /  viewJustify   PROT@   TEXT Info   SCPTfunc() begin GetRoot():Notify(kNotifyAlert,"AEditor:VtHick","By Hardy Macia\nHardyMacia@eWorld.com\nShareware - see Readme"); end   RECT    x   NUMB G infoprotoApp myApp