src/GEOMDS/GEOMDS_Commands.cdl

   1 -- File:        GEOMDS_Commands.cdl
   2 -- Created:     Fri Mar 16 12:21:51 2001
   3 -- Author:      Yves FRICAUD
   4 --              <yfr@claquox.paris1.matra-dtv.fr>
   5 ---Copyright:    Matra Datavision 2001
   6
   7
   8 class Commands from GEOMDS
   9
  10         ---Purpose:
  11
  12 uses
  13     Label          from TDF,
  14     Shape          from TopoDS,
  15     ExtendedString from TCollection
  16
  17 is
  18     Create ( Main : Label from TDF) returns Commands from GEOMDS;
  19
  20     AddShape(me : in out; S    : Shape from TopoDS;
  21                           Name : ExtendedString from TCollection)
  22     returns Label from TDF;
  23
  24 fields
  25     myLab : Label from TDF;
  26 end Commands;