local myname, ns = ...


local BORDER_TEXTURE = "Interface\\Common\\Common-Input-Border"


function ns.NewTextInput(parent)
  local editbox = CreateFrame("EditBox", nil, parent)
  editbox:SetAutoFocus(false)
  editbox:SetSize(105, 32)
  editbox:SetFontObject("GameFontHighlightSmall")

  local left = editbox:CreateTexture(nil, "BACKGROUND")
  left:SetSize(8, 20)
  left:SetPoint("LEFT", -5, 0)
  left:SetTexture(BORDER_TEXTURE)
  left:SetTexCoord(0, 0.0625, 0, 0.625)

  local right = editbox:CreateTexture(nil, "BACKGROUND")
  right:SetSize(8, 20)
  right:SetPoint("RIGHT")
  right:SetTexture(BORDER_TEXTURE)
  right:SetTexCoord(0.9375, 1, 0, 0.625)

  local center = editbox:CreateTexture(nil, "BACKGROUND")
  center:SetHeight(20)
  center:SetPoint("TOPLEFT", left, "TOPRIGHT")
  center:SetPoint("BOTTOMRIGHT", right, "BOTTOMLEFT")
  center:SetTexture(BORDER_TEXTURE)
  center:SetTexCoord(0.0625, 0.9375, 0, 0.625)

  editbox:SetScript("OnEscapePressed", editbox.ClearFocus)
  editbox:SetScript("OnEnterPressed", editbox.ClearFocus)

  return editbox
end