1 -- File: IGESSelect_SelectVisibleStatus.cdl
2 -- Created: Tue May 31 17:48:31 1994
3 -- Author: Christian CAILLET
5 ---Copyright: Matra Datavision 1994
8 class SelectVisibleStatus from IGESSelect inherits SelectExtract
10 ---Purpose : This selection looks at Blank Status of IGES Entities
11 -- Direct selection keeps Visible Entities (Blank = 0),
12 -- Reverse selection keeps Blanked Entities (Blank = 1)
15 uses AsciiString from TCollection, Transient, InterfaceModel
19 Create returns mutable SelectVisibleStatus;
20 ---Purpose : Creates a SelectVisibleStatus
22 Sort (me; rank : Integer; ent : Transient; model : InterfaceModel)
24 ---Purpose : Returns True if <ent> is an IGES Entity with Blank Status = 0
26 ExtractLabel (me) returns AsciiString from TCollection;
27 ---Purpose : Returns the Selection criterium : "IGES Entity, Status Visible"
29 end SelectVisibleStatus;