<div dir="ltr"><div dir="ltr"><div><div>Curve* = POINTER TO CurveDesc;</div><div><br></div><div>CurveDesc* = RECORD (Graphics.ObjectDesc)</div><div>  kind*, lw*: INTEGER</div></div><div>END ;</div><div><br></div>VAR method*: Graphics.Method;</div><div dir="ltr"><br><div>If you make these objects unexported, noone will be able to extend the code for Curves.</div></div></div>