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
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
|
#
# tkextlib/bwidget/notebook.rb
# by Hidetoshi NAGAI (nagai@ai.kyutech.ac.jp)
#
require 'tk'
require 'tk/frame'
require 'tkextlib/bwidget.rb'
module Tk
module BWidget
class NoteBook < TkWindow
end
end
end
class Tk::BWidget::NoteBook
include TkItemConfigMethod
TkCommandNames = ['NoteBook'.freeze].freeze
WidgetClassName = 'NoteBook'.freeze
WidgetClassNames[WidgetClassName] ||= self
class Event_for_Tabs < TkEvent::Event
def self._get_extra_args_tbl
[
TkComm.method(:string) # page idenfier
]
end
end
def __boolval_optkeys
super() << 'homogeneous'
end
private :__boolval_optkeys
def tagid(id)
if id.kind_of?(TkWindow)
#id.path
id.epath
elsif id.kind_of?(TkObject)
id.to_eval
else
# id.to_s
_get_eval_string(id)
end
end
#def tabbind(*args)
# _bind_for_event_class(Event_for_Tabs, [path, 'bindtabs'], *args)
# self
#end
def tabbind(context, *args)
#if args[0].kind_of?(Proc) || args[0].kind_of?(Method)
if TkComm._callback_entry?(args[0]) || !block_given?
cmd = args.shift
else
cmd = Proc.new
end
_bind_for_event_class(Event_for_Tabs, [path, 'bindtabs'],
context, cmd, *args)
self
end
#def tabbind_append(*args)
# _bind_append_for_event_class(Event_for_Tabs, [path, 'bindtabs'], *args)
# self
#end
def tabbind_append(context, *args)
#if args[0].kind_of?(Proc) || args[0].kind_of?(Method)
if TkComm._callback_entry?(args[0]) || !block_given?
cmd = args.shift
else
cmd = Proc.new
end
_bind_append_for_event_class(Event_for_Tabs, [path, 'bindtabs'],
context, cmd, *args)
self
end
def tabbind_remove(*args)
_bind_remove_for_event_class(Event_for_Tabs, [path, 'bindtabs'], *args)
self
end
def tabbindinfo(*args)
_bindinfo_for_event_class(Event_for_Tabs, [path, 'bindtabs'], *args)
end
def add(page, &b)
win = window(tk_send('add', tagid(page)))
if b
if TkCore::WITH_RUBY_VM ### Ruby 1.9 !!!!
win.instance_exec(self, &b)
else
win.instance_eval(&b)
end
end
win
end
def compute_size
tk_send('compute_size')
self
end
def delete(page, destroyframe=None)
tk_send('delete', tagid(page), destroyframe)
self
end
def get_frame(page, &b)
win = window(tk_send('getframe', tagid(page)))
if b
if TkCore::WITH_RUBY_VM ### Ruby 1.9 !!!!
win.instance_exec(self, &b)
else
win.instance_eval(&b)
end
end
win
end
def index(page)
num_or_str(tk_send('index', tagid(page)))
end
def insert(index, page, keys={}, &b)
win = window(tk_send('insert', index, tagid(page), *hash_kv(keys)))
if b
if TkCore::WITH_RUBY_VM ### Ruby 1.9 !!!!
win.instance_exec(self, &b)
else
win.instance_eval(&b)
end
end
win
end
def move(page, index)
tk_send('move', tagid(page), index)
self
end
def get_page(page)
tk_send('pages', page)
end
def pages(first=None, last=None)
list(tk_send('pages', first, last))
end
def raise(page=nil)
if page
tk_send('raise', page)
self
else
tk_send('raise')
end
end
def see(page)
tk_send('see', page)
self
end
end
|
