7fd59977 |
1 | -- File: IGESSelect_SetLabel.cdl |
2 | -- Created: Fri Feb 26 12:45:55 1999 |
3 | -- Author: Christian CAILLET |
4 | -- <cky@heliox.paris1.matra-dtv.fr> |
5 | ---Copyright: Matra Datavision 1999 |
6 | |
7 | |
8 | class SetLabel from IGESSelect inherits ModelModifier from IGESSelect |
9 | |
10 | ---Purpose : Sets/Clears Short Label of Entities, those designated by the |
11 | -- Selection. No Selection means all the file |
12 | -- |
13 | -- May enforce, else it sets only if no label is yet set |
14 | -- Mode : 0 to clear (always enforced) |
15 | -- 1 to set label to DE number (changes it if already set) |
16 | |
17 | uses AsciiString from TCollection, |
18 | IGESModel, CopyTool, ContextModif |
19 | |
20 | is |
21 | |
22 | Create (mode : Integer; enforce : Boolean) returns SetLabel; |
23 | ---Purpose : Creates a SetLabel for IGESEntity |
24 | -- Mode : see Purpose of the class |
25 | |
26 | Performing (me; ctx : in out ContextModif; |
27 | target : mutable IGESModel; |
28 | TC : in out CopyTool); |
29 | ---Purpose : Specific action : Sets or Clears the Label |
30 | |
31 | Label (me) returns AsciiString from TCollection; |
32 | ---Purpose : Returns a text which is |
33 | -- "Clear Short Label" or "Set Label to DE" |
34 | -- With possible additional information " (enforced)" |
35 | |
36 | fields |
37 | |
38 | themode : Integer; |
39 | theforce : Boolean; |
40 | |
41 | end SetLabel; |