tclclass-runt.obj

柯老师网站上找到的

%TGIF 2.16-p12
state(0,32,100,0,0,0,16,1,9,1,1,0,0,0,0,1,0,'Helvetica',0,17,0,1,1,10,0,0,1,1,0,16,0,0,1,1,1,1,1088,1408).
%
% @(#)$Header: /nfs/jade/vint/CVSROOT/ns-2/doc/figures/tclclass-runt.obj,v 1.1 1997/11/16 22:50:09 kannan Exp $
% %W%
%
page(1,"").
box('black',0,100,200,251,0,2,1,0,0,0,0,[
]).
text('black',42,141,'Helvetica-Bold',1,20,3,0,0,1,117,69,3,0,18,5,0,0,0,0,[
	"Tcl_AppInit()",
	"",
	"invoke bind()"]).
rcbox('black',701,100,901,250,0,2,1,0,16,2,0,0,[
]).
text('black',710,129,'Helvetica-Bold',1,20,4,0,0,1,183,92,7,0,18,5,0,0,0,0,[
	"TclObject::register{}",
	"",
	"construct class",
	"hierarchy"]).
poly('black',4,[
	200,200,280,200,280,120,350,120],1,7,1,185,0,0,0,0,22,9,0,
    "0",[
]).
poly('black',4,[
	550,180,630,180,630,140,700,140],1,7,1,186,0,0,0,0,22,9,0,
    "0",[
]).
poly('black',2,[
	700,230,550,230],1,7,8,187,0,0,0,0,22,9,0,
    "0",[
]).
poly('black',2,[
	350,230,200,230],1,7,8,188,0,0,0,0,22,9,0,
    "0",[
]).
poly('black',2,[
	350,178,550,178],0,1,1,191,0,0,1,0,8,3,0,
    "0",[
]).
box('black',350,103,550,254,0,2,1,1,0,0,0,[
]).
text('black',353,109,'Helvetica-Bold',1,20,6,0,0,1,194,138,5,0,18,5,0,0,0,0,[
	"TclClass::bind()",
	"",
	"invoke register{};",
	"define",
	"create-shadow{}",
	"and delete-shadow{}"]).