home *** CD-ROM | disk | FTP | other *** search
- {Symbol Library Entries}
- NewField('Space','Name','Space Name',4,0);
- NewField('Adjacency','Code','4',4,0);
- BeginSym('Space Name Box');
- NameClass('None');
- ClosePoly;
- Poly(
- 0,0,
- 0.16667,0,
- 0.17708,-0.01042,
- 0.16667,-0.02083,
- 0,-0.02083
- );
- TextFont(3);
- TextSize(9.00288);
- TextFace([]);
- TextFlip(0);
- TextRotate(#0);
- TextSpace(2);
- TextJust(1);
- TextOrigin(0.01042,-0.00347);
- BeginText;
- 'Space Name'
- EndText;
- LinkText(LNewObj,'Space','Name');
- EndSym;
- Record(LNewObj,'Space');
- Field(LNewObj,'Space','Name','Space Name');
- BeginSym('Relationship Box');
- Poly(
- 0,0,
- 0.01042,0.01042,
- 0.02083,0,
- 0.01042,-0.01042
- );
- FillPat(0);
- TextOrigin(0.00694,0.00694);
- BeginText;
- '4'
- EndText;
- LinkText(LNewObj,'Adjacency','Code');
- EndSym;
- Record(LNewObj,'Adjacency');
- Field(LNewObj,'Adjacency','Code','4');
-
- AlrtDialog('Loaded 2 Symbol Definitions: Space Name Box (with 1 record, Space attached) and Relationship Box (with 1 record, Adjacency attached).');
-
-