root/lang/ruby/haikuchat/lib/keyword_list_window.rb @ 29853

class KeywordListWindow < Ruwin::Window
  caption "Keywords List"
  
  exstyle exstyle | WS_EX_TOOLWINDOW
  
  left   50
  top    400
  width  200
  height 200
  
  add_control ListBox::Dropdown, "type" do
    left   0
    right  0
    top    0
    bottom 0
    
    font Font.new "MS Gothic", 11
  end
  
  add_control EditField::Rich, "word" do
    left   0
    right  0
    top    18
    height 14
    
    font Font.new "MS Gothic", 11
  end
  
  ListBox "list" do
    left   0
    right  0
    top    32
    bottom 8
    
    style style | Const::ListBox::LBS_NOINTEGRALHEIGHT
    
    font Font.new "MS Gothic", 11
  end
  
  add_control ProgressBar, "progress" do
    left   0
    right  0
    height 8
    bottom 0
  end
  
  
  def created
    type.push "Keywords"
    type.push "Hot Keywords"
    type.push "Following Keywords"
    type.push "Favorite Keywords"
    word.enabled = false
  end
  
  def type_changed
    if type.position == 0
      word.enabled = true
      list.clear
    else
      word.enabled = false
      word.clear
      reload
    end
  end
  
  def word_keydown key
    return unless key == 13
    reload
  end
  
  def list_double_click
    return if @loadging
    open_chat :keyword => NKF.nkf("-Sw", list[list.position])
  end
  
  def reload
    @loadging = true
    type.enabled = false
    
    list.clear
    list.push "Now Loading..."
    
    progress.pos = 0
    
    Thread.new do
      begin
        if type.position == 3
          keywords = File.readlines("favorites.txt").map{|v| {"title" => v.strip} }
        else
          path = %W{keywords/list.json?word=#{URI.encode word.string} keywords/hot.json statuses/keywords/#{$CONF["user"]["id"]}.json}[type.position]
          uri = URI("http://h.hatena.ne.jp/api/#{path}")
          
          data = uri.read(:content_length_proc => proc{|v| progress.max = v/1024 }, :progress_proc => proc{|v| progress.pos = v/1024 })
          
          keywords = YAML.load(data)
        end
        
        list.clear
        @loadging = false
        
        keywords.each do |keyword|
          list.push NKF.nkf("-Ws", keyword["title"])
        end
      rescue => e
        SWin::Application.messageBox e, "Keyword load Error"
      ensure
        progress.pos = 0
        type.enabled = true
        @loadging = false
      end
    end
  end
  
  
  @singleton = nil
  def self.show
    @singleton = self.new unless @singleton && @singleton.alive?
    @singleton.top
  end
end