2
# tkextlib/bwidget/pagesmanager.rb
3
# by Hidetoshi NAGAI (nagai@ai.kyutech.ac.jp)
8
require 'tkextlib/bwidget.rb'
12
class PagesManager < TkWindow
17
class Tk::BWidget::PagesManager
18
TkCommandNames = ['PagesManager'.freeze].freeze
19
WidgetClassName = 'PagesManager'.freeze
20
WidgetClassNames[WidgetClassName] = self
28
win = window(tk_send('add', tagid(page)))
29
win.instance_eval(&b) if b
34
tk_send('compute_size')
39
tk_send('delete', tagid(page))
43
def get_frame(page, &b)
44
win = window(tk_send('getframe', tagid(page)))
45
win.instance_eval(&b) if b
50
tk_send('pages', page)
53
def pages(first=None, last=None)
54
list(tk_send('pages', first, last))
58
tk_send('raise', page)