blob: 04504801c2774f1edadf34ec777bbe256154519c (
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
25
26
27
28
29
30
31
32
33
34
35
|
-- File: IGESSelect_SelectSingleViewFrom.cdl
-- Created: Wed Jun 1 15:46:31 1994
-- Author: Christian CAILLET
-- <cky@bravox>
---Copyright: Matra Datavision 1994
class SelectSingleViewFrom from IGESSelect inherits SelectDeduct
---Purpose : This selection gets the Single Views attached to its input
-- IGES entities. Single Views themselves or Drawings as passed
-- as such (Drawings, for their Annotations)
uses AsciiString from TCollection, EntityIterator, Graph
raises InterfaceError
is
Create returns mutable SelectSingleViewFrom;
---Purpose : Creates a SelectSingleViewFrom
HasUniqueResult (me) returns Boolean is redefined protected;
---Purpose : Returns True, because selection works with a ViewSorter which
-- gives a unique result
RootResult (me; G : Graph) returns EntityIterator raises InterfaceError;
---Purpose : Selects the Single Views attached (in Directory Part) to
-- input entities
Label (me) returns AsciiString from TCollection;
---Purpose : Returns the label, with is "Single Views attached"
end SelectSingleViewFrom;
|