Files
OCCT/src/IFSelect/IFSelect_SelectFlag.cdl
abv 6e33d3ced2 0024830: Remove redundant keyword 'mutable' in CDL declarations
Redundant keyword 'mutable' removed in CDL files.
In IGESConvGeom_GeomBuilder, unused methods MakeXY() and MakeXYZ() removed.
Method StepAP214_AutoDesignGroupAssignment::Init() replicating same method of the base class is removed as it causes CDL extraction error after above (seemingly irrelevant) changes.
2014-05-29 14:58:25 +04:00

59 lines
2.3 KiB
Plaintext

-- Created on: 1995-09-05
-- Created by: Christian CAILLET
-- Copyright (c) 1995-1999 Matra Datavision
-- Copyright (c) 1999-2014 OPEN CASCADE SAS
--
-- This file is part of Open CASCADE Technology software library.
--
-- This library is free software; you can redistribute it and/or modify it under
-- the terms of the GNU Lesser General Public License version 2.1 as published
-- by the Free Software Foundation, with special exception defined in the file
-- OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
-- distribution for complete text of the license and disclaimer of any warranty.
--
-- Alternatively, this file may be used under the terms of Open CASCADE
-- commercial license or contractual agreement.
class SelectFlag from IFSelect inherits SelectExtract
---Purpose : A SelectFlag queries a flag noted in the bitmap of the Graph.
-- The Flag is designated by its Name. Flag Names are defined
-- by Work Session and, as necessary, other functional objects
--
-- WorkSession from IFSelect defines flag "Incorrect"
-- Objects which control application running define some others
uses AsciiString from TCollection, InterfaceModel, Graph, EntityIterator
is
Create (flagname : CString) returns SelectFlag;
---Purpose : Creates a Select Flag, to query a flag designated by its name
FlagName (me) returns CString;
---Purpose : Returns the name of the flag
RootResult (me; G : Graph) returns EntityIterator is redefined;
---Purpose : Returns the list of selected entities. It is redefined to
-- work on the graph itself (not queried by sort)
--
-- An entity is selected if its flag is True on Direct mode,
-- False on Reversed mode
--
-- If flag does not exist for the given name, returns an empty
-- result, whatever the Direct/Reversed sense
Sort (me; rank : Integer; ent : Transient; model : InterfaceModel)
returns Boolean;
---Purpose : Returns always False because RootResult has done the work
ExtractLabel (me) returns AsciiString from TCollection;
---Purpose : Returns a text defining the criterium, includes the flag name
fields
thename : AsciiString from TCollection;
end SelectFlag;