1# 2# tkextlib/iwidgets/scrolledframe.rb 3# by Hidetoshi NAGAI (nagai@ai.kyutech.ac.jp) 4# 5 6require 'tk' 7require 'tkextlib/iwidgets.rb' 8 9module Tk 10 module Iwidgets 11 class Scrolledframe < Tk::Iwidgets::Scrolledwidget 12 end 13 end 14end 15 16class Tk::Iwidgets::Scrolledframe 17 TkCommandNames = ['::iwidgets::scrolledframe'.freeze].freeze 18 WidgetClassName = 'Scrolledframe'.freeze 19 WidgetClassNames[WidgetClassName] ||= self 20 21 def child_site 22 window(tk_call(@path, 'childsite')) 23 end 24 25 def justify(dir) 26 tk_call(@path, 'justify', dir) 27 self 28 end 29 30 def xview(*index) 31 if index.size == 0 32 list(tk_send_without_enc('xview')) 33 else 34 tk_send_without_enc('xview', *index) 35 self 36 end 37 end 38 def xview_moveto(*index) 39 xview('moveto', *index) 40 end 41 def xview_scroll(*index) 42 xview('scroll', *index) 43 end 44 45 def yview(*index) 46 if index.size == 0 47 list(tk_send_without_enc('yview')) 48 else 49 tk_send_without_enc('yview', *index) 50 self 51 end 52 end 53 def yview_moveto(*index) 54 yview('moveto', *index) 55 end 56 def yview_scroll(*index) 57 yview('scroll', *index) 58 end 59end 60