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
|
#
# tkextlib/blt/barchart.rb
# by Hidetoshi NAGAI (nagai@ai.kyutech.ac.jp)
#
require 'tk'
require 'tkextlib/blt.rb'
require 'tkextlib/blt/component.rb'
module Tk::BLT
class Barchart < TkWindow
TkCommandNames = ['::blt::barchart'.freeze].freeze
WidgetClassName = 'Barchart'.freeze
WidgetClassNames[WidgetClassName] = self
include PlotComponent
include GraphCommand
def __boolval_optkeys
['bufferelements', 'buffergraph', 'invertxy']
end
private :__boolval_optkeys
def __strval_optkeys
['text', 'label', 'title', 'file',
'background', 'plotbackground']
end
private :__strval_optkeys
def __tkvariable_optkeys
super() << 'colormap' << 'fontmap'
end
private :__tkvariable_optkeys
=begin
BarElement_ID = ['blt_barchart_bar'.freeze, '00000'.taint].freeze
def bar(elem=nil, keys={})
if elem.kind_of?(Hash)
keys = elem
elem = nil
end
unless elem
elem = BarElement_ID.join(TkCore::INTERP._ip_id_).freeze
BarElement_ID[1].succ!
end
tk_send('bar', elem, keys)
Element.new(self, elem, :without_creating=>true)
end
=end
def extents(item)
num_or_str(tk_send_without_enc('extents', item))
end
def invtransform(x, y)
list(tk_send_without_enc('invtransform', x, y))
end
def inside(x, y)
bool(tk_send_without_enc('inside', x, y))
end
def metafile(file=None)
# Windows only
tk_send('metafile', file)
self
end
def snap(output, keys={})
tk_send_without_enc('snap', *(hash_kv(keys, false) + output))
self
end
def transform(x, y)
list(tk_send_without_enc('transform', x, y))
end
end
end
|
