func registerId(_ctrl)
  fvar(old, s)
  old = block.select(BLK_IDS)
  if (NEED_COMMA = 1)
    println (',')
    s = upper(_ctrl)
  else
    s = upper(_ctrl) + ' = wxID_HIGHEST+1'
    NEED_COMMA = 1
  end

  print('ID_', s)
  block.select(old)
end

func registerTimer(_ctrl)
  fvar(old, s)
  old = block.select(BLK_TMRS)
  if (NEED_COMMA_T = 1)
    println (',')
    s = upper(_ctrl)
  else
    s = upper(_ctrl) + ' = 1'
    NEED_COMMA_T = 1
  end

  print('ID_', s)
  block.select(old)
end

func beginStyle(default_style)
  if (not isset(this_style))
    gvar(this_style)
    this_style = default_style
  else
    error('gvar this_style already exists. Did you forget endStyle?')
  end
end

func addStyle(flag,style)
  if (not isset(this_style))
    error('gvar this_style not set. Did you forget beginStyle?')
  else
    if (flag == 1)
      this_style += (' | ' + style)
    end
  end
end

func endStyle()
  fvar(style)
  if (not isset(this_style))
    error('gvar this_style not set. Did you forget beginStyle?')
  else
    style = this_style
	free(this_style)
	return(style)
  end
end


func createEvent(_ctrl, _ctrl_event, _form_event)
  createEventEx(_ctrl, _ctrl_event, 'wxCommandEvent', _form_event)
end

func createEventEx(_ctrl, _ctrl_event, _ctrl_evt_arg_type, _form_event)
  fvar(s, old, old_loc, cur)
  s = _form_event + code(_id_)

  old = block.select(BLK_EVTB)
  println(_ctrl_event, '(ID_' + upper(_ctrl) + ', ' + CUR_CLASS + '::' + s + ')')
  block.select(old)
  //println('Connect(' + _ctrl_event + ', ' + _ctrl_evt_type + '(' + CUR_CLASS + '::' + s + '));')

  old = block.select(BLK_SLOT)
  println('void ' + s + '(' + _ctrl_evt_arg_type + '& event);')

  old_loc = BLK_LOC
  BLK_LOC = block.reggen()
  cur = block.reggen()
  block.select(cur)
  event(_form_event)

  block.select(BLK_MTD)
  println('void ' + CUR_CLASS + '::' + s + '(' + _ctrl_evt_arg_type + '& event)')
  println('{')
  block.inclvl()
    block.copyhere(BLK_LOC)
    block.copyhere(cur)
  block.declvl()
  println('}')
  println('')

  block.delete(cur)
  block.delete(BLK_LOC)
  BLK_LOC = old_loc
  block.select(old)
end


func createEventArg1(_ctrl, _ctrl_event, _form_event, _value)
  createEventExArg1(_ctrl, _ctrl_event, 'wxCommandEvent', _form_event, _value)
end

func createEventExArg1(_ctrl, _ctrl_event, _ctrl_evt_arg_type, _form_event,  _value)
  fvar(s, old, old_loc, cur)
  s = _form_event + code(_id_)

  old = block.select(BLK_EVTB)
	println(_ctrl_event, '(ID_' + upper(_ctrl) + ', ' + CUR_CLASS + '::' + s + ')')
	block.select(old)
  //println('Connect(' + _ctrl_event + ', ' + _ctrl_evt_type + '(' + CUR_CLASS + '::' + _form_event + '));'

  old = block.select(BLK_SLOT)
  println('void ' + s + '(' + _ctrl_evt_arg_type + '& event);')

  old_loc = BLK_LOC
  BLK_LOC = block.reggen()
  cur = block.reggen()
  block.select(cur)
  event(_form_event, _value)

  block.select(BLK_MTD)
  println('void ' + CUR_CLASS + '::' + s + '(' + _ctrl_evt_arg_type + '& event)')
  println('{')
  block.inclvl()
    block.copyhere(BLK_LOC)
    block.copyhere(cur)
  block.declvl()
  println('}')
  println('')

  block.delete(cur)
  block.delete(BLK_LOC)
  BLK_LOC = old_loc
  block.select(old)
end