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 | |
17 | class 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 | |
23 | uses CString, Logical, AsciiString from TCollection, Field from StepData |
24 | |
25 | is |
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 | |
65 | fields |
66 | |
67 | thename : AsciiString; |
68 | theval : Field from StepData; |
69 | |
70 | end SelectNamed; |