src/StepVisual/StepVisual_PointStyle.cdl

   1 -- File:        PointStyle.cdl
   2 -- Created:     Fri Dec  1 11:11:25 1995
   3 -- Author:      EXPRESS->CDL V0.2 Translator
   4 -- Copyright:   Matra-Datavision 1993
   5
   6
   7 class PointStyle from StepVisual
   8
   9 inherits TShared from MMgt
  10
  11 uses
  12
  13         HAsciiString from TCollection,
  14         MarkerSelect from StepVisual,
  15         SizeSelect from StepBasic,
  16         Colour from StepVisual
  17 is
  18
  19         Create returns mutable PointStyle;
  20         ---Purpose: Returns a PointStyle
  21
  22         Init (me : mutable;
  23               aName : mutable HAsciiString from TCollection;
  24               aMarker : MarkerSelect from StepVisual;
  25               aMarkerSize : SizeSelect from StepBasic;
  26               aMarkerColour : mutable Colour from StepVisual) is virtual;
  27
  28         -- Specific Methods for Field Data Access --
  29
  30         SetName(me : mutable; aName : mutable HAsciiString);
  31         Name (me) returns mutable HAsciiString;
  32         SetMarker(me : mutable; aMarker : MarkerSelect);
  33         Marker (me) returns MarkerSelect;
  34         SetMarkerSize(me : mutable; aMarkerSize : SizeSelect);
  35         MarkerSize (me) returns SizeSelect;
  36         SetMarkerColour(me : mutable; aMarkerColour : mutable Colour);
  37         MarkerColour (me) returns mutable Colour;
  38
  39 fields
  40
  41         name : HAsciiString from TCollection;
  42         marker : MarkerSelect from StepVisual; -- a SelectType
  43         markerSize : SizeSelect from StepBasic; -- a SelectType
  44         markerColour : Colour from StepVisual;
  45
  46 end PointStyle;