1# 2# tkextlib/iwidgets/fileselectionbox.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 Fileselectionbox < Tk::Itk::Widget 12 end 13 end 14end 15 16class Tk::Iwidgets::Fileselectionbox 17 TkCommandNames = ['::iwidgets::fileselectionbox'.freeze].freeze 18 WidgetClassName = 'Fileselectionbox'.freeze 19 WidgetClassNames[WidgetClassName] ||= self 20 21 def __strval_optkeys 22 super() + [ 23 'directory', 'dirslabel', 'fileslabel', 'filterlabel', 'mask', 24 'nomatchstring', 'selectionlabel' 25 ] 26 end 27 private :__strval_optkeys 28 29 def __boolval_optkeys 30 super() + ['dirson', 'fileson', 'filteron', 'selectionon'] 31 end 32 private :__boolval_optkeys 33 34 def child_site 35 window(tk_call(@path, 'childsite')) 36 end 37 38 def filter 39 tk_call(@path, 'filter') 40 self 41 end 42 43 def get 44 tk_call(@path, 'get') 45 end 46end 47