src/IFSelect/IFSelect_SelectControl.cdl

   1 -- File:        IFSelect_SelectControl.cdl
   2 -- Created:     Wed Feb 16 10:07:01 1994
   3 -- Author:      Christian CAILLET
   4 --              <cky@mastox>
   5 ---Copyright:    Matra Datavision 1994
   6
   7
   8 deferred class SelectControl  from IFSelect  inherits Selection
   9
  10     ---Purpose : A SelectControl kind Selection works with two input Selections
  11     --           in a dissymmetric way : the Main Input which gives an input
  12     --           list of Entities, to be processed, and the Second Input which
  13     --           gives another list, to be used to filter the main input.
  14     --
  15     --           e.g. : SelectDiff retains the items of the Main Input which
  16     --             are not in the Control Input (which acts as Diff Input)
  17     --           or a specific selection which retains Entities from the Main
  18     --             Input if and only if they are concerned by an entity from
  19     --             the Control Input (such as Views in IGES, etc...)
  20     --
  21     --           The way RootResult and Label are produced are at charge of
  22     --           each sub-class
  23
  24 uses  SelectionIterator
  25
  26 is
  27
  28     MainInput    (me) returns mutable Selection;
  29     ---Purpose : Returns the Main Input Selection
  30
  31     HasSecondInput (me) returns Boolean;
  32     ---Purpose : Returns True if a Control Input is defined
  33     --           Thus, Result can be computed differently if there is a
  34     --           Control Input or if there is none
  35
  36     SecondInput (me) returns mutable Selection;
  37     ---Purpose : Returns the Control Input Selection, or a Null Handle
  38
  39     SetMainInput    (me : mutable; sel : mutable Selection);
  40     ---Purpose : Sets a Selection to be the Main Input
  41
  42     SetSecondInput (me : mutable; sel : mutable Selection);
  43     ---Purpose : Sets a Selection to be the Control Input
  44
  45
  46     -- RootResult,Label remain to be defined by each class of Selection
  47     -- (also HasUniqueResult if it applies)
  48
  49     FillIterator (me; iter : in out SelectionIterator);
  50     ---Purpose : Puts in an Iterator the Selections from which "me" depends
  51     --           That is to say, the list of Input Selections
  52
  53
  54 fields
  55
  56     themain   : Selection;
  57     thesecond : Selection;
  58
  59 end SelectControl;