Stop lossing focus on DTextEntry and still be able to reset its value?

Hello. I use DTextEntry for my chat client. However, when i press enter it sends message fine, BUT it looses focus. I added RequestFocus but now it doest clears text. It doesnt matters if i do SetValue(""), it just doest works.
[lua]AText.OnEnter = function (self)
local val = self:GetValue()
ASock:SendLine(val)
AddTxtWrap(“Amic3r:”…val)
self:RequestFocus()
self:Clear()
end[/lua]