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