src/IFSelect/IFSelect_SelectDiff.cdl

   1 -- File:        SelectDiff.cdl
   2 -- Created:     Wed Nov 18 16:40:10 1992
   3 -- Author:      Christian CAILLET
   4 --              <cky@topsn2>
   5 ---Copyright:    Matra Datavision 1992
   6
   7
   8 class SelectDiff  from IFSelect  inherits SelectControl
   9
  10     ---Purpose : A SelectDiff keeps the entities from a Selection, the Main
  11     --           Input, which are not listed by the Second Input
  12
  13 uses AsciiString from TCollection, EntityIterator, Graph
  14
  15 is
  16
  17     Create returns mutable SelectDiff;
  18     ---Purpose : Creates an empty SelectDiff
  19
  20
  21     RootResult (me; G : Graph) returns EntityIterator;
  22     ---Purpose : Returns the list of selected entities : they are the Entities
  23     --           gotten from the Main Input but not from the Diff Input
  24
  25     HasUniqueResult (me) returns Boolean  is redefined protected;
  26     ---Purpose : Returns always True, because RootResult gives a Unique list
  27
  28
  29     Label (me) returns AsciiString from TCollection;
  30     ---Purpose : Returns a text defining the criterium : "Difference"
  31
  32 end SelectDiff;