0024530: TKMesh - remove unused package IntPoly
[occt.git] / src / StepData / StepData_SelectNamed.cdl
CommitLineData
b311480e 1-- Created on: 1996-12-16
2-- Created by: Christian CAILLET
3-- Copyright (c) 1996-1999 Matra Datavision
973c2be1 4-- Copyright (c) 1999-2014 OPEN CASCADE SAS
b311480e 5--
973c2be1 6-- This file is part of Open CASCADE Technology software library.
b311480e 7--
973c2be1 8-- This library is free software; you can redistribute it and / or modify it
9-- under the terms of the GNU Lesser General Public version 2.1 as published
10-- by the Free Software Foundation, with special exception defined in the file
11-- OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
12-- distribution for complete text of the license and disclaimer of any warranty.
b311480e 13--
973c2be1 14-- Alternatively, this file may be used under the terms of Open CASCADE
15-- commercial license or contractual agreement.
7fd59977 16
17class SelectNamed from StepData inherits SelectMember
18
19 ---Purpose : This select member can be of any kind, and be named
20 -- But its takes more memory than some specialised ones
21 -- This class allows one name for the instance
22
23uses CString, Logical, AsciiString from TCollection, Field from StepData
24
25is
26
27 Create returns mutable SelectNamed;
28
29 HasName (me) returns Boolean is redefined;
30
31 Name (me) returns CString is redefined;
32
33 SetName (me : mutable; name : CString) returns Boolean is redefined;
34 -- redefined to accept any name
35
36 Field (me) returns Field;
37 ---C++ : return const &
38
39 CField (me : mutable) returns Field;
40 ---C++ : return &
41
42
43 Kind (me) returns Integer is redefined;
44 -- see Field for Kind (same codes)
45
46 SetKind (me : mutable; kind : Integer) is redefined;
47 -- called by various Set*
48
49 Int (me) returns Integer is redefined;
50 ---Purpose : This internal method gives access to a value implemented by an
51 -- Integer (to read it)
52
53 SetInt (me : mutable; val : Integer) is redefined;
54 ---Purpose : This internal method gives access to a value implemented by an
55 -- Integer (to set it)
56
57 Real (me) returns Real is redefined;
58
59 SetReal (me : mutable; val : Real) is redefined;
60
61 String (me) returns CString is redefined;
62
63 SetString (me : mutable; val : CString) is redefined;
64
65fields
66
67 thename : AsciiString;
68 theval : Field from StepData;
69
70end SelectNamed;