summaryrefslogtreecommitdiff
path: root/jni/ruby/ext/tk/lib/tkextlib/tcllib/ico.rb
blob: 36a32c6b09e566e07f3b0c10a9b9fa79e13f0d63 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
#
#  tkextlib/tcllib/ico.rb
#                               by Hidetoshi NAGAI (nagai@ai.kyutech.ac.jp)
#
#   * Part of tcllib extension
#   * Reading and writing windows icons
#

require 'tk'
require 'tk/image'
#require 'tkextlib/tcllib.rb'

# TkPackage.require('ico', '0.3')
TkPackage.require('ico')

module Tk
  module Tcllib
    class ICO < TkImage
      PACKAGE_NAME = 'ico'.freeze
      def self.package_name
        PACKAGE_NAME
      end

      def self.package_version
        begin
          TkPackage.require('ico')
        rescue
          ''
        end
      end
    end
  end
end

class Tk::Tcllib::ICO
  def self.list(file, keys=nil)
    tk_split_list(tk_call_without_enc('::ico::getIconList', file,
                                      *hash_kv(keys, true)))
  end

  def self.icons(file, keys=nil)
    tk_split_simplelist(tk_call_without_enc('::ico::icons', file,
                                            *hash_kv(keys, true))).map{|elem|
      num_or_str(elem)
    }
  end

  def self.get_members(file, name, keys=nil)
    tk_split_simplelist(tk_call_without_enc('::ico::getMembers', file, name,
                                            *hash_kv(keys, true))).map{|elem|
      name, width, height, bpp =  tk_split_simplelist(elem)
      [name, number(width), number(height), number(bpp)]
    }
  end

  def self.get(file, index, keys=nil)
    tk_call_without_enc('::ico::getIcon', file, index, *hash_kv(keys, true))
  end
  def self.get_icon(*args)
    get(*args)
  end

  def self.get_by_name(file, name, keys=nil)
    tk_call_without_enc('::ico::getIconByName', file, name,
                        *hash_kv(keys, true))
  end
  def self.get_icon_by_name(*args)
    get_by_name(*args)
  end

  def self.get_fileicon(file, keys=nil)
    tk_call_without_enc('::ico::getFileIcon', file, *hash_kv(keys, true))
  end

  def self.get_image(file, index, keys={})
    keys = _symbolkey2str(keys)
    keys.delete('format')
    self.new(file, index, keys)
  end

  def self.get_data(file, index, keys={})
    keys['format'] = 'data'
    tk_split_list(tk_call_without_enc('::ico::getIcon', file, index,
                                      *hash_kv(keys, true)))
  end

  def self.write(file, index, depth, data, keys=nil)
    tk_call_without_enc('::ico::writeIcon', file, index, depth, data,
                        *hash_kv(keys, true))
  end

  def self.copy(from_file, from_index, to_file, to_index, keys=nil)
    tk_call_without_enc('::ico::copyIcon',
                        from_file, from_index, to_file, to_index,
                        *hash_kv(keys, true))
  end

  def self.exe_to_ico(exe_file, ico_file, keys=nil)
    tk_call_without_enc('::ico::copyIcon', exe_file, ico_file,
                        *hash_kv(keys, true))
  end

  def self.clear_cache(file=None)
    tk_call_without_enc('::ico::clearCache', file)
  end

  def self.transparent_color(image, color)
    if image.kind_of?(Array)
      tk_split_list(tk_call_without_enc('::ico::transparentColor',
                                        image, color))
    else
      tk_call_without_enc('::ico::transparentColor', image, color)
    end
  end

  def self.show(file, keys=nil)
    tk_call_without_enc('::ico::Show', file, *hash_kv(keys, true))
  end

  ###########################

  def initialize(file, index, keys=nil)
    keys = _symbolkey2str(keys)
    if keys.key?('name')
      @path = keys['name'].to_s
    else
      Tk_Image_ID.mutex.synchronize{
        @path = Tk_Image_ID.join(TkCore::INTERP._ip_id_)
        Tk_Image_ID[1].succ!
      }
    end
    tk_call_without_enc('::ico::getIcon', file, index, '-name', @path,
                        '-format', 'image', *hash_kv(keys, true))
    Tk_IMGTBL[@path] = self
  end

  def write(file, index, depth, keys=nil)
    Tk::Tcllib::ICO.write(file, index, depth, @path, keys=nil)
    self
  end

  def transparent_color(color)
    tk_call_without_enc('::ico::transparentColor', @path, color)
    self
  end
end