src/IFSelect/IFSelect_ModifReorder.cdl

   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;