src/XDEDRAW/XDEDRAW_Shapes.cdl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

-- File:	XDEDRAW_Shapes.cdl
-- Created:	Fri Aug  4 14:39:39 2000
-- Author:	Pavel TELKOV
--		<ptv@zamox.nnov.matra-dtv.fr>
---Copyright:	 Matra Datavision 2000

class Shapes from XDEDRAW 

    ---Purpose: Contains commands to work with shapes

uses
    Interpretor from Draw
    
is

    InitCommands (myclass; theCommands: in out Interpretor from Draw);
	
end Shapes;