blob: 3690efd821d817db2b56ed9b61b160a48920e244 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
-- File: IFSelect_SelectIncorrectEntities.cdl
-- Created: Fri Sep 2 11:03:13 1994
-- Author: Christian CAILLET
-- <cky@anion>
---Copyright: Matra Datavision 1994
class SelectIncorrectEntities from IFSelect inherits SelectFlag
---Purpose : A SelectIncorrectEntities sorts the Entities which have been
-- noted as Incorrect in the Graph of the Session
-- (flag "Incorrect")
-- It can find a result only if ComputeCheck has formerly been
-- called on the WorkSession. Else, its result will be empty.
uses AsciiString from TCollection, InterfaceModel, Graph, EntityIterator
is
Create returns mutable SelectIncorrectEntities;
---Purpose : Creates a SelectIncorrectEntities
-- i.e. a SelectFlag("Incorrect")
end SelectIncorrectEntities;
|