typeof InitURL2 = ObjText ;;  
typeof RegOnly2 = ObjCheck;; 
typeof alias2   = ObjText ;;


fun closeedit()=                                                           
  
  strbuild
  ("init"::(_GETtext InitURL2)::nil)::
  ("alias"::(_GETtext alias2)::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 "REAL_URL" nil;    
    set InitURL2 = _CReditLine _channel win 85 5 320 20 ET_ALIGN_LEFT|ET_DOWN|ET_AHSCROLL  getInfo l "init";
    
    _CRtext _channel win 5 32 80 20 ET_ALIGN_LEFT _loc this "REAL_ALIAS" nil;
    set alias2 = _CReditLine _channel win 85 30 320 20 ET_ALIGN_LEFT|ET_DOWN|ET_AHSCROLL
    let getInfo l "alias" -> string in
      if (nil == string) then
        ""
      else
        string;
    
    0
  );
  
  _CRtext _channel win 5 160 800 120 ET_ALIGN_LEFT _loc this "REAL_EXPLICATION" nil ;
  /*
  _CRtext _channel win 5 180 800 20 ET_ALIGN_LEFT _loc this "REAL_PARAM1" nil ;
  _CRtext _channel win 5 200 800 20 ET_ALIGN_LEFT _loc this "REAL_PARAM2" nil ;
  */ 
  @closeedit
;;