7fd59977 |
1 | -- File: IFSelect_ModifReorder.cdl |
2 | -- Created: Fri Mar 15 09:37:46 1996 |
3 | -- Author: Christian CAILLET |
4 | -- <cky@fidox> |
5 | ---Copyright: Matra Datavision 1996 |
6 | |
7 | |
8 | class ModifReorder from IFSelect inherits Modifier |
9 | |
10 | ---Purpose : This modifier reorders a whole model from its roots, i.e. |
11 | -- according to <rootlast> status, it considers each of its |
12 | -- roots, then it orders all its shared entities at any level, |
13 | -- the result begins by the lower level entities ... ends by |
14 | -- the roots. |
15 | |
16 | uses CString, AsciiString from TCollection, |
17 | InterfaceModel, CopyTool, Protocol from Interface, ContextModif |
18 | |
19 | is |
20 | |
21 | Create (rootlast : Boolean = Standard_True) returns mutable ModifReorder; |
22 | ---Purpose : Creates a ModifReorder. It may change the graph (it does !) |
23 | -- If <rootlast> is True (D), roots are set at the end of packets |
24 | -- Else, they are set at beginning (as done by AddWithRefs) |
25 | |
26 | Perform (me; ctx : in out ContextModif; |
27 | target : mutable InterfaceModel; |
28 | protocol : Protocol from Interface; |
29 | TC : in out CopyTool); |
30 | ---Purpose : Acts by computing orders (by method All from ShareTool) then |
31 | -- forcing them in the model. Remark that selection is ignored : |
32 | -- ALL the model is processed in once |
33 | |
34 | Label (me) returns AsciiString from TCollection; |
35 | ---Purpose : Returns Label as "Reorder, Roots (last or first)" |
36 | |
37 | fields |
38 | |
39 | thertl : Boolean; |
40 | |
41 | end ModifReorder; |