1 -- File: IGESSelect_IGESTypeForm.cdl
2 -- Created: Tue May 31 14:16:19 1994
3 -- Author: Modelistation
5 ---Copyright: Matra Datavision 1994
8 class IGESTypeForm from IGESSelect inherits Signature from IFSelect
10 ---Purpose : IGESTypeForm is a Signature specific to the IGES Norm :
11 -- it gives the signature under two possible forms :
12 -- - as "mmm nnn", with "mmm" as IGES Type Number, and "nnn"
13 -- as IGES From Number (even if = 0) [Default]
14 -- - as "mmm" alone, which gives only the IGES Type Number
16 uses CString, Transient, InterfaceModel
20 Create (withform : Boolean = Standard_True) returns mutable IGESTypeForm;
21 ---Purpose : Creates a Signature for IGES Type & Form Numbers
22 -- If <withform> is False, for IGES Type Number only
24 SetForm (me : mutable; withform : Boolean);
25 ---Purpose : Changes the mode for giving the Form Number
27 Value (me; ent : any Transient; model : InterfaceModel) returns CString;
28 ---Purpose : Returns the signature for IGES, "mmm nnn" or "mmm" according
29 -- creation choice (Type & Form or Type only)