value__ntId__ntName __ntTemplate viewFlags viewFormat viewBounds beforeScriptViewGetDropTypesScript makeChartviewSetupFormScriptclasssymbolmyPicticoncontext viewJustify  __ntDatatype __ntFlagsÿ0 CLAS@    NUMBÿ          RECT    ÿ–/* ** Sine of the Times source code ** descended from: ** Newton Developer Technical Support Sample Code ** ** DragonDrop, a drag and drop example ** ** by J. Christopher Bell and James Speir, Newton Developer Technical Support ** ** Copyright © 1994-5 by Apple Computer, Inc. All rights reserved. ** ** You may incorporate this sample code into your applications without ** restriction. This sample code has been provided "AS IS" and the ** responsibility for its operation is 100% yours. You are not ** permitted to modify and redistribute the source as "DTS Sample Code." ** If you are going to re-distribute the source, we require that you ** make it clear in the source that the code was descended from ** Apple-provided sample code, but that you've made changes. */  EVAL   ®func(dropPoint) begin nil; // The dragon won't allow things to be dropped on it. end SCPT   ÿfunc() begin myStyle:={}; mystyle.justification:='center; myStyle.penPattern:=vfBlack; mystyle.penSize:=[1,1]; myStyle.font:={family: 'espy, face:0, size:10}; // get the image to draw local graphics:=drawframe.(symbol):image(self:localbox(),context,mystyle); setvalue(self, 'viewbounds, graphics[1]); // Create the PICTure myPict := MakePict(graphics[0], myStyle); end "   ÿb// be sure to call inherited:?ViewSetupFormScript() func() begin // self.tall:=drawframe.(symbol).tall; self.viewjustify:=drawframe.(symbol).viewjustify; self.viewbounds:=drawframe.(symbol).viewbounds; self:makecharT(); self.icon:=mypict; Refreshviews(); inherited:?ViewSetupFormScript(); end "   €// give this thing a class so we can test for type kSymbolClass EVAL   'integral )   nil )    PICT     - )   ÿ€  clPictureView main