/* Target Editor - DMS - Apr 98 - by Sylvain HUET */
/* Rev. Aug. '98 - by Marc BARILLEY */
/* Target Editor - DMS2 - May 99 - by Patrice FAVRE */


typeof CHaxisV  = ObjCheck;;
typeof CHaxisHV = ObjCheck;;

fun openedit(win, param) =

  let strextr param -> l in
  let _GETwindowSizePosition win -> [w h x y] in
  ( 
    set CHaxisV  = _CRcheck _channel win 5 5 200 16 CH_RADIO "Vertical target only";
    set CHaxisHV = _CRcheck _channel win 5 35 200 16 CH_RADIO "Horizontal and vertical target";
  
    let getInfo l "axis" -> string in
    (
      if !strcmp string "V" then
      (
        _SETcheck CHaxisV 1;
        _SETcheck CHaxisHV 0
      )
      else 
        if  !strcmp string "HV" then
        (
          _SETcheck CHaxisV 0;
          _SETcheck CHaxisHV 1
        )
        else
        (
          _SETcheck CHaxisV 0;
          _SETcheck CHaxisHV 1
        )
    );
    0
  )
;;

fun closeedit() =

 strbuild
   ("axis"::(if _GETcheck CHaxisV then "V" else if _GETcheck CHaxisHV then "HV" else "HV")::nil)::nil
;;

fun IniPlug(file) =

	PlugRegister getInfo strextr _getpack _checkpack file "name" nil nil @openedit @closeedit
;;