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
|
#
# 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.get(file, index, keys=nil)
tk_call_without_enc('::ico::getIcon', file, index, *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
@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
|
