1# 2# tkextlib/iwidgets/disjointlistbox.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 Disjointlistbox < Tk::Itk::Widget 12 end 13 end 14end 15 16class Tk::Iwidgets::Disjointlistbox 17 TkCommandNames = ['::iwidgets::disjointlistbox'.freeze].freeze 18 WidgetClassName = 'Disjointlistbox'.freeze 19 WidgetClassNames[WidgetClassName] ||= self 20 21 def __strval_optkeys 22 super() << 'lhslabeltext' << 'rhslabeltext' << 'lhsbuttonlabel' << 'rhsbuttonlabel' 23 end 24 private :__strval_optkeys 25 26 def set_lhs(*items) 27 tk_call(@path, 'setlhs', items) 28 self 29 end 30 def set_rhs(*items) 31 tk_call(@path, 'setrhs', items) 32 self 33 end 34 35 def get_lhs 36 simplelist(tk_call(@path, 'getlhs')) 37 end 38 def get_rhs 39 simplelist(tk_call(@path, 'getrhs')) 40 end 41 42 def insert_lhs(*items) 43 tk_call(@path, 'insertlhs', items) 44 self 45 end 46 def insert_rhs(*items) 47 tk_call(@path, 'insertrhs', items) 48 self 49 end 50end 51