#encoding: UTF-8
class Widget_InputBox < Window
  attr_reader :value, :proc
  attr_accessor :type
  
  require 'tk'
  @@font = TkFont.new(
    "family" => 'WenQuanYi Micro Hei', #TODO: 直接调用一个.ttf文件，而不是把字体装到系统中
    "size" => 15 #这字号尼玛？！
  )
  @@root=TkRoot.new{
    withdraw
    overrideredirect true
    attributes :topmost, true
  }
  @@entry = TkEntry.new(@@root){
    font @@font
    validate :focusout
    validatecommand{@@active.value=get.encode("UTF-8");@@root.withdraw(true);@@active.refresh;true}
    bind('Key-Return'){self.value="" if @@active.proc.call(get.encode("UTF-8")) if @@active.proc;true} #两个if的解释：当存在proc时，call那个proc，如果执行结果为真就清空value
    pack
  }
  Thread.new{Tk.mainloop}
  
  def initialize(x,y,width,height,z=300, &block)
    super(x,y,width,height,z)
    @font = TTF.open("fonts/WenQuanYi Micro Hei.ttf", 20)
    @proc = block
    @value = ""
    @type = :text
  end
  def value=(value)
    return if @value == value
    @value = value
    refresh
  end
  def refresh
    clear
    @font.draw_blended_utf8(@contents, @type == :password ? '*' * @value.size : @value, 0, 0, 0x00, 0x00, 0x00) unless @value.empty?
  end
  def clicked
    @@entry.value = @value
    @@entry.show @type == :password ? '*' : nil
    @@entry.focus :force
    @@entry.width @width
    @@root.geometry "#{@width}x#{@height}+#{@x+TkWinfo.pointerx(@@root)-Mouse.state[0]}+#{@y+TkWinfo.pointery(@@root)-Mouse.state[1]}" #根据鼠标位置来确定游戏窗口的相对位置，点击的瞬间鼠标移动了的话会有误差
    @@root.deiconify
    @@active = self #TODO:存在线程安全问题
  end
  def clear(x=0, y=0, width=@width, height=@height)
    @contents.fill_rect(x,y,width,height,0x66FFFFFF)
    @contents.fill_rect(x+2,y+2,width-4,height-4,0xFFFFFFFF)
  end
end
