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