src/IFSelect/IFSelect_SelectUnknownEntities.cdl

   1 -- File:        SelectUnknownEntities.cdl
   2 -- Created:     Wed Nov 18 09:55:55 1992
   3 -- Author:      Christian CAILLET
   4 --              <cky@topsn2>
   5 ---Copyright:    Matra Datavision 1992
   6
   7
   8 class SelectUnknownEntities  from IFSelect  inherits SelectExtract
   9
  10     ---Purpose : A SelectUnknownEntities sorts the Entities which are qualified
  11     --           as "Unknown" (their Type has not been recognized)
  12
  13 uses AsciiString from TCollection, InterfaceModel
  14
  15 is
  16
  17     Create returns mutable SelectUnknownEntities;
  18     ---Purpose : Creates a SelectUnknownEntities
  19
  20     Sort (me; rank : Integer; ent : Transient; model : InterfaceModel)
  21         returns Boolean;
  22     ---Purpose : Returns True for an Entity which is qualified as "Unknown",
  23     --           i.e. if <model> known <ent> (through its Number) as Unknown
  24
  25
  26     ExtractLabel (me) returns AsciiString from TCollection;
  27     ---Purpose : Returns a text defining the criterium : "Recognized Entities"
  28
  29 end SelectUnknownEntities;