/* editeur de plugin standard */

typeof plugin=S;;
typeof class=S;;

typeof ELuspeed             = ObjText;;
typeof ELvspeed             = ObjText;;
typeof ELrenderAuthorised   = ObjText;;



fun openedit(win, param) =
  
  let strextr param -> l in
  let _GETwindowSizePosition win -> [w h x y] in
  ( 
    _CRtext _channel win 5 5 80 16 ET_ALIGN_LEFT "U speed : ";
    set ELuspeed = _CReditLine _channel win 85 5 40 18 ET_DOWN
    let getInfo l "u" -> string in
      if (nil == string) then
        "1"
      else
        string;

  _CRtext _channel win 130 5 80 16 ET_ALIGN_LEFT "V speed : ";
  set ELvspeed = _CReditLine _channel win 210 5 40 18 ET_DOWN
  let getInfo l "v" -> string in
    if (nil == string) then
      "1"
    else
      string;

  _CRtext _channel win 255 5 160 16 ET_ALIGN_LEFT "Authorized Time Render (ms) : ";
  set ELrenderAuthorised = _CReditLine _channel win 415 5 40 18 ET_DOWN
  let getInfo l "a" -> string in
    if (nil == string) then
      "100"
    else
      string;
  0 
  )
;;


fun closeedit() =
  strbuild
    ("u"::(_GETtext ELuspeed)::nil)::
    ("v"::(_GETtext ELvspeed)::nil)::
    ("a"::(_GETtext ELrenderAuthorised)::nil)::
    nil
;;


fun IniPlug(file)=
  set plugin=file;
  set class=getInfo strextr _getpack _checkpack file "name";
  PlugRegister class nil nil @openedit @closeedit
;;