1# 2# tkextlib/blt/container.rb 3# by Hidetoshi NAGAI (nagai@ai.kyutech.ac.jp) 4# 5 6require 'tk' 7require 'tkextlib/blt.rb' 8 9module Tk::BLT 10 class Container < TkWindow 11 TkCommandNames = ['::blt::container'.freeze].freeze 12 WidgetClassName = 'Container'.freeze 13 WidgetClassNames[WidgetClassName] ||= self 14 15 def __strval_optkeys 16 super() << 'name' 17 end 18 private :__strval_optkeys 19 20 def find_command(pat) 21 Hash[*simplelist(tk_send_without_enc('find', '-command', pat))] 22 end 23 24 def find_name(pat) 25 Hash[*simplelist(tk_send_without_enc('find', '-name', pat))] 26 end 27 end 28end 29