src/StepVisual/StepVisual_FillStyleSelect.cdl

   1 -- File:        FillStyleSelect.cdl
   2 -- Created:     Fri Dec  1 11:11:11 1995
   3 -- Author:      EXPRESS->CDL V0.2 Translator
   4 -- Copyright:   Matra-Datavision 1993
   5
   6
   7
   8 class FillStyleSelect from StepVisual inherits SelectType from StepData
   9
  10         -- <FillStyleSelect> is an EXPRESS Select Type construct translation.
  11         -- it gathers : FillAreaStyleColour, ExternallyDefinedTileStyle, FillAreaStyleTiles, ExternallyDefinedHatchStyle, FillAreaStyleHatching
  12         -- Rev4 : only FillAreaStyleColour remains
  13
  14 uses
  15
  16         FillAreaStyleColour
  17 --      ExternallyDefinedTileStyle,
  18 --      FillAreaStyleTiles,
  19 --      ExternallyDefinedHatchStyle,
  20 --      FillAreaStyleHatching
  21 is
  22
  23         Create returns FillStyleSelect;
  24         ---Purpose : Returns a FillStyleSelect SelectType
  25
  26         CaseNum (me; ent : Transient) returns Integer;
  27         ---Purpose: Recognizes a FillStyleSelect Kind Entity that is :
  28         --        1 -> FillAreaStyleColour
  29         --        2 -> ExternallyDefinedTileStyle
  30         --        3 -> FillAreaStyleTiles
  31         --        4 -> ExternallyDefinedHatchStyle
  32         --        5 -> FillAreaStyleHatching
  33         --        0 else
  34
  35         FillAreaStyleColour (me) returns any FillAreaStyleColour;
  36         ---Purpose : returns Value as a FillAreaStyleColour (Null if another type)
  37
  38
  39 end FillStyleSelect;
  40