src/IFSelect/IFSelect_SelectShared.cdl

   1 -- File:        SelectShared.cdl
   2 -- Created:     Wed Nov 18 15:50:09 1992
   3 -- Author:      Christian CAILLET
   4 --              <cky@topsn2>
   5 ---Copyright:    Matra Datavision 1992
   6
   7
   8 class SelectShared  from IFSelect  inherits SelectDeduct
   9
  10     ---Purpose : A SelectShared selects Entities which are directly Shared
  11     --           by the Entities of the Input list
  12
  13 uses AsciiString from TCollection, EntityIterator, Graph
  14
  15 is
  16
  17     Create returns mutable SelectShared;
  18     ---Purpose : Creates a SelectShared;
  19
  20     RootResult (me; G : Graph) returns EntityIterator;
  21     ---Purpose : Returns the list of selected entities (list of entities
  22     --           shared by those of input list)
  23
  24     Label (me) returns AsciiString from TCollection;
  25     ---Purpose : Returns a text defining the criterium : "Shared (one level)"
  26
  27 end SelectShared;