1#
2#  tkextlib/bwidget/scrolledwindow.rb
3#                               by Hidetoshi NAGAI (nagai@ai.kyutech.ac.jp)
4#
5
6require 'tk'
7require 'tk/frame'
8require 'tkextlib/bwidget.rb'
9
10module Tk
11  module BWidget
12    class ScrolledWindow < TkWindow
13    end
14  end
15end
16
17class Tk::BWidget::ScrolledWindow
18  TkCommandNames = ['ScrolledWindow'.freeze].freeze
19  WidgetClassName = 'ScrolledWindow'.freeze
20  WidgetClassNames[WidgetClassName] ||= self
21
22  def __strval_optkeys
23    super() << 'sides'
24  end
25  private :__strval_optkeys
26
27  def __boolval_optkeys
28    super() << 'managed'
29  end
30  private :__boolval_optkeys
31
32  def get_frame(&b)
33    win = window(tk_send_without_enc('getframe'))
34    if b
35      if TkCore::WITH_RUBY_VM  ### Ruby 1.9 !!!!
36        win.instance_exec(self, &b)
37      else
38        win.instance_eval(&b)
39      end
40    end
41    win
42  end
43
44  def set_widget(win)
45    tk_send_without_enc('setwidget', win)
46    self
47  end
48end
49