diff options
Diffstat (limited to 'ruby_1_9_3/ext/tk/lib/tkextlib/tcllib/tablelist_tile.rb')
-rw-r--r-- | ruby_1_9_3/ext/tk/lib/tkextlib/tcllib/tablelist_tile.rb | 43 |
1 files changed, 43 insertions, 0 deletions
diff --git a/ruby_1_9_3/ext/tk/lib/tkextlib/tcllib/tablelist_tile.rb b/ruby_1_9_3/ext/tk/lib/tkextlib/tcllib/tablelist_tile.rb new file mode 100644 index 0000000000..0a1458415e --- /dev/null +++ b/ruby_1_9_3/ext/tk/lib/tkextlib/tcllib/tablelist_tile.rb @@ -0,0 +1,43 @@ +# +# tkextlib/tcllib/tablelist_tlie.rb +# by Hidetoshi NAGAI (nagai@ai.kyutech.ac.jp) +# +# * Part of tcllib extension +# * A multi-column listbox + +require 'tk' +require 'tkextlib/tcllib.rb' + +# TkPackage.require('tablelist_tile', '4.2') +TkPackage.require('tablelist_tile') + +unless defined? Tk::Tcllib::Tablelist_usingTile + Tk::Tcllib::Tablelist_usingTile = true +end + +requrie 'tkextlib/tcllib/tablelist_core' + +module Tk + module Tcllib + class Tablelist + # commands related to tile Themems + def self.set_theme(theme) + Tk.tk_call('::tablelist::setTheme', theme) + end + + def self.get_current_theme + Tk.tk_call('::tablelist::getCurrentTheme') + end + + def self.get_theme_list + TkComm.simplelist(Tk.tk_call('::tablelist::getThemes')) + end + def self.set_theme_defaults + Tk.tk_call('::tablelist::setThemeDefaults') + end + end + + Tablelist_Tile = Tablelist + TableList_Tile = Tablelist + end +end |