include('TKWidget')

func doPack(_data)
  fvar(old, wgt)
  wgt = 'self.entry'&&code(_id_)&&' = Entry(self.master'
  if (linked(onChange) or (linked(doText) or linked(doText2)))
    println('self.ventry'&&code(_id_)&&' = StringVar()')
    println('self.ventry'&&code(_id_)&&'.set('+Text+')')
    if (linked(onChange))
      if (linked(doText2))
        println('self.wentry'&&code(_id_)&&' = self.entry'&&code(_id_)&&'.trace_variable("w", self.entryChange'&&code(_id_)&&')')
      else
        println('self.ventry'&&code(_id_)&&'.trace_variable("w", self.entryChange'&&code(_id_)&&')')
      end
      old = block.select(BLK_FUNC)
      println('def entryChange'&&code(_id_)&&'(self, name, index, mode):')
      block.inclvl()
      event(onChange, 'self.entry'&&code(_id_)&&'.get()')
      block.declvl()
      block.select(old)
    end
	wgt = wgt && ', textvariable=self.ventry'&&code(_id_)
  end

  InitTKWidget(wgt)
  PackTKWidget('self.entry'&&code(_id_))
  BindTKWidget('self.entry'&&code(_id_))

  event(onPack)
end

func doText(_data)
  println('self.entry'&&code(_id_)&&'.set('+Data+')')
end

func doText2(_data)
  if (linked(onChange))
    println('self.ventry'&&code(_id_)&&'.trace_vdelete("w", self.wentry'&&code(_id_)&&')')
  end
  println('self.ventry'&&code(_id_)&&'.set('+Data+')')  
  if (linked(onChange))
    println('self.wentry'&&code(_id_)&&' = self.ventry'&&code(_id_)&&'.trace_variable("w", self.entryChange'&&code(_id_)&&')')
  end
end