include('wintools')
include('wincontrolworks')
include('includes')

func _create(_data)
  var(ctrl)
  fvar(old)

  addInclude('AngularRegulator.h',1)
  addIncludePath('../extras/kwxIC')
  addSource('../extras/kwxIC/AngularRegulator', 'cpp')

  println(areg, ' = new kwxAngularRegulator(this, ID_', upper(areg), ', _T("Focus me"), wxPoint(', Left, ', ', Top, '), wxSize(', Width, ', ', Height, '), wxBORDER_NONE);')
  ctrl = areg
  registerId(ctrl)

  println(areg, '->SetRange(', Minimum, ', ', Maximum, ');')
  println(areg, '->SetAngle(', MinAngle, ', ', MaxAngle, ');')
  println(areg, '->SetNumTick(', NumTicks, ');')
  println(areg, '->SetValue(', Value, ');')
  
  if (isndef(ExtCircleColor))
    println(areg, '->SetExtCircleColour(', lng.to_color(ExtCircleColor, '255'), ');')
  end
  
  if (isndef(IntCircleColor))
    println(areg, '->SetIntCircleColour(', lng.to_color(IntCircleColor, '255'), ');')
  end
  
  if (isndef(LimitsColor))
    println(areg, '->SetLimitsColour(', lng.to_color(LimitsColor, '255'), ');')
  end
  
  if (isndef(KnobBorderColor))
    println(areg, '->SetKnobBorderColour(', lng.to_color(KnobBorderColor, '255'), ');')
  end
  
  //if (isndef(KnobColor))
    println(areg, '->SetKnobColour(', lng.to_color(KnobColor, '255'), ');')
  //end
  
  if (isndef(TagsColour))
    println(areg, '->SetTagsColour(', lng.to_color(TagsColor, '255'), ');')
  end

	if(linked(onValueChanged))
		createEventArg1(ctrl, 'EVT_ANGULARREG_CHANGE', 'onValueChanged', areg+'->GetValue()'@int)
	end
end

func doMaximum(_data)
  println(ctrl, '->SetRange(', ctrl, '->GetMinimum(), ', _data@int, ');')
end

func doMinimum(_data)
  println(ctrl, '->SetRange(', _data@int, ', ', ctrl, '->GetMaximum());')
end

func doMaxAngle(_data)
  println(ctrl, '->SetAngle(', ctrl, '->GetMinimumAngle(), ', _data@int, ');')
end

func doMinAngle(_data)
  println(ctrl, '->SetAngle(', _data@int, ', ', ctrl, '->GetMaximumAngle());')
end

func doValue(_data)
  println(ctrl, '->SetValue(', _data@int, ');')
end

func CurrentValue()
  return(ctrl + '->GetValue();')
end

func initFree()
  _create('')
end

func init()
  lng.decl_priv_var(areg, 'kwxAngularRegulator*')
  if(not linked(doCreate))
    fvar(old)
    old = block.select(BLK_BODY)
    _create('')
    block.select(old)
  end
end

func doCreate(_data)
  _create(_data)
end