src/IFSelect/IFSelect_ParamEditor.cdl

   1 -- File:        IFSelect_ParamEditor.cdl
   2 -- Created:     Thu Jul 30 15:59:48 1998
   3 -- Author:      Christian CAILLET
   4 --              <cky@heliox.paris1.matra-dtv.fr>
   5 ---Copyright:    Matra Datavision 1998
   6
   7
   8 class ParamEditor  from IFSelect    inherits Editor  from IFSelect
   9
  10     ---Purpose : A ParamEditor gives access for edition to a list of TypedValue
  11     --           (i.e. of Static too)
  12     --           Its definition is made of the TypedValue to edit themselves,
  13     --           and can add some constants, which can then be displayed but
  14     --           not changed (for instance, system name, processor version ...)
  15     --
  16     --           I.E. it gives a way of editing or at least displaying
  17     --           parameters as global
  18
  19 uses CString, Transient, AsciiString, HAsciiString, HSequenceOfHAsciiString,
  20      InterfaceModel, EditForm, TypedValue
  21
  22 is
  23
  24     Create (nbmax : Integer = 100; label : CString = "") returns ParamEditor;
  25     ---Purpose : Creates a ParamEditor, empty, with a maximum count of params
  26     --           (default is 100)
  27     --           And a label, by default it will be "Param Editor"
  28
  29     AddValue (me : mutable; val : TypedValue; shortname : CString = "");
  30     ---Purpose : Adds a TypedValue
  31     --           By default, its short name equates its complete name, it can
  32     --           be explicited
  33
  34     AddConstantText (me : mutable; val : CString;
  35                      shortname : CString; completename : CString = "");
  36     ---Purpose : Adds a Constant Text, it will be Read Only
  37     --           By default, its long name equates its shortname
  38
  39
  40     Label (me) returns AsciiString;
  41
  42     Recognize (me; form : EditForm) returns Boolean;
  43
  44     StringValue (me; form : EditForm;  num : Integer)
  45         returns HAsciiString from TCollection;
  46
  47     Load (me; form : EditForm; ent : Transient; model : InterfaceModel)
  48         returns Boolean;
  49
  50     Apply (me; form : EditForm; ent : Transient; model : InterfaceModel)
  51         returns Boolean;
  52
  53
  54
  55     StaticEditor (myclass; list : HSequenceOfHAsciiString;
  56                   label : CString = "") returns ParamEditor;
  57     ---Purpose : Returns a ParamEditor to work on the Static Parameters of
  58     --           which names are listed in <list>
  59     --           Null Handle if <list> is null or empty
  60
  61 fields
  62
  63     thelabel : AsciiString;
  64
  65 end ParamEditor;