typeof CHaxisV2  = ObjCheck;;
typeof CHaxisHV2 = ObjCheck;;


fun closeedit() =

  strbuild
   ("axis"::(if _GETcheck CHaxisV2 then "V" else if _GETcheck CHaxisHV2 then "HV" else "HV")::nil)::nil
;;

 
fun dynamicedit(win, obj, mat, param) =
 
  let strextr param -> l in
  let _GETwindowSizePosition win -> [w h x y] in
  ( 
    set CHaxisV2  = _CRcheck _channel win 5 5 200 16 CH_RADIO _loc this "TARG_VERTICALE" nil ;
    set CHaxisHV2 = _CRcheck _channel win 5 35 200 16 CH_RADIO _loc this "TARG_VERTICALE&HORIZONTALE" nil ;
  
    let getInfo l "axis" -> string in
    (
      if !strcmp string "V" then
      (
        _SETcheck CHaxisV2 1;
        _SETcheck CHaxisHV2 0
      )
      else 
        if  !strcmp string "HV" then
        (
          _SETcheck CHaxisV2 0;
          _SETcheck CHaxisHV2 1
        )
        else
        (
          _SETcheck CHaxisV2 0;
          _SETcheck CHaxisHV2 1
        )
    );
    0
  );
          
  _CRtext _channel win 5 160 800 120 ET_ALIGN_LEFT _loc this "TARG_EXPLICATION" nil ;
  /*
  _CRtext _channel win 5 180 800 20 ET_ALIGN_LEFT _loc this "TARG_PARAMETRES" nil ;
  */    
  @closeedit
;;