blob: 7d1a5c5c9983eb23fef03027116bc78cd44e3f92 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
-- File: SWDRAW_ShapeBuild.cdl
-- Created: Tue Mar 9 15:19:30 1999
-- Author: data exchange team
-- <det@kinox.nnov.matra-dtv.fr>
---Copyright: Matra Datavision 1999
class ShapeBuild from SWDRAW
---Purpose: Contains commands to activate package ShapeBuild
-- List of DRAW commands and corresponding functionalities:
uses
Interpretor from Draw
is
InitCommands (myclass; theCommands: in out Interpretor from Draw);
---Purpose: Loads commands defined in ShapeBuild
end ShapeBuild;
|