typeof ELuspeed2   = ObjText;;
typeof ELvspeed2   = ObjText;;



fun closeedit() =
 
  strbuild
  ("u"::(_GETtext ELuspeed2)::nil)::
  ("v"::(_GETtext ELvspeed2)::nil)::
  nil
;;


fun dynamicedit(win, obj, mat, param) =

  let strextr param -> l in
  let _GETwindowSizePosition win -> [w h x y] in
  ( 
    _CRtext _channel win 5 7 80 20 ET_ALIGN_LEFT _loc this "SHIFT_U" nil;
    set ELuspeed2 = _CReditLine _channel win 85 5 35 20 ET_DOWN
    let getInfo l "u" -> string in
      if (nil == string) then
        "0"
      else
        string;

    _CRtext _channel win 5 32 80 20 ET_ALIGN_LEFT _loc this "SHIFT_V" nil;
    set ELvspeed2 = _CReditLine _channel win 85 30 35 20 ET_DOWN
    let getInfo l "v" -> string in
      if (nil == string) then
        "0"
      else
        string;
    0
  );
  
  _CRtext _channel win 5 160 800 120 ET_ALIGN_LEFT _loc this "SHIFT_EXPLICATION" nil ;
  /*
  _CRtext _channel win 5 180 800 20 ET_ALIGN_LEFT _loc this "SHIFT_PARAM1" nil ;
  */
  @closeedit
;;