1 -- File : AIS2D_GlobalStatus.cdl
2 -- Created : February 2000
4 ---Copyright: Matra Datavision 2000
6 private class GlobalStatus from AIS2D inherits TShared from MMgt
8 ---Purpose: Stores information about objects in graphic context:
9 -- - Status Of Display : in the main viewer
13 -- - Active Selection Modes
14 -- - is the Interactive Object Current ?
20 ListOfInteger from TColStd,
21 PToListOfInt from AIS2D,
22 DisplayStatus from AIS2D,
23 NameOfColor from Quantity
27 Create returns mutable GlobalStatus from AIS2D;
28 ---Purpose: Initialize GlobalStatus the default properties
30 Create( aStat : DisplayStatus from AIS2D;
31 aDMode : Integer from Standard;
32 aSMode : Integer from Standard;
33 isHighlight : Boolean from Standard=Standard_False;
34 aHighlCol : NameOfColor from Quantity = Quantity_NOC_WHITE;
35 aLayerIndex : Integer from Standard = 0)
36 returns mutable GlobalStatus from AIS2D;
37 ---Purpose: Initialize GlobalStatus the concrete properties
39 SetGraphicStatus( me: mutable; aStat : DisplayStatus from AIS2D );
42 ---Purpose: Sets the graphic status <aStat>
44 AddDisplayMode( me: mutable; aMode: Integer from Standard );
46 ---Purpose: Adds the display mode <aMode> to the list of display modes
48 RemoveDisplayMode( me: mutable; aMode: Integer from Standard);
50 ---Purpose: Removes the display mode <aMode> from the list of display modes
52 IsDModeIn( me; aMode: Integer from Standard ) returns Boolean from Standard;
54 ---Purpose: Returns True if the list of display modes
55 -- contains the display mode <aMode>
57 AddSelectionMode( me: mutable; aMode: Integer from Standard );
59 ---Purpose: Adds the selection mode <aMode> to the list of selection modes
61 RemoveSelectionMode( me: mutable; aMode: Integer from Standard );
63 ---Purpose: Removes the selection mode <aMode> from the list of selection modes
65 ClearSelectionModes( me: mutable );
67 ---Purpose: Removes all selection modes from the list of selection modes
69 IsSModeIn( me; aMode: Integer from Standard ) returns Boolean from Standard;
71 ---Purpose: Returns True if the list of selection modes
72 -- contains the selection mode <aMode>
74 SetLayerIndex( me: mutable; anIndex: Integer from Standard );
77 ---Purpose: Sets the layer index <anIndex>
79 SetHighlightStatus( me: mutable; aStat: Boolean from Standard );
82 ---Purpose: Sets the highlight status
84 SetHighlightColor( me: mutable; aHiCol: NameOfColor from Quantity );
87 ---Purpose: Sets the color of highight
89 IsSubIntensityOn( me ) returns Boolean from Standard;
92 ---Purpose: Return True if SubIntensity is on
94 SubIntensityOn( me: mutable );
97 ---Purpose: Sets the SubIntensity
99 SubIntensityOff( me: mutable );
102 ---Purpose: Unsets the SubIntensity
104 GraphicStatus( me ) returns DisplayStatus from AIS2D;
107 ---Purpose: Indicates the display status
109 DisplayedModes( me: mutable ) returns PToListOfInt from AIS2D;
112 ---Purpose: keeps the information of displayed modes in the
114 -- (The convention is that the object is displayed
115 -- with the mode 0 in the collector...)
117 SelectionModes( me: mutable ) returns PToListOfInt from AIS2D;
120 ---Purpose: keeps the active selection modes of the object
121 -- in the main viewer.
122 -- (The convention is that the active selection mode
123 -- for an object in the collector is the mode 0).
125 IsHighlight(me) returns Boolean from Standard;
128 ---Purpose: Returns True if highlight is on
130 HighlightColor( me ) returns NameOfColor from Quantity;
133 ---Purpose: Returns the color of highlight
137 myStatus : DisplayStatus from AIS2D;
138 myDispModes : ListOfInteger from TColStd;
139 mySelModes : ListOfInteger from TColStd;
140 myLayerIndex : Integer from Standard;
141 myIsHighl : Boolean from Standard;
142 myHiCol : NameOfColor from Quantity;
143 mySubInt : Boolean from Standard;