1# 2# tkextlib/tcllib/tablelist_tlie.rb 3# by Hidetoshi NAGAI (nagai@ai.kyutech.ac.jp) 4# 5# * Part of tcllib extension 6# * A multi-column listbox 7 8require 'tk' 9require 'tkextlib/tcllib.rb' 10 11# TkPackage.require('tablelist_tile', '4.2') 12TkPackage.require('tablelist_tile') 13 14unless defined? Tk::Tcllib::Tablelist_usingTile 15 Tk::Tcllib::Tablelist_usingTile = true 16end 17 18requrie 'tkextlib/tcllib/tablelist_core' 19 20module Tk 21 module Tcllib 22 class Tablelist 23 # commands related to tile Themems 24 def self.set_theme(theme) 25 Tk.tk_call('::tablelist::setTheme', theme) 26 end 27 28 def self.get_current_theme 29 Tk.tk_call('::tablelist::getCurrentTheme') 30 end 31 32 def self.get_theme_list 33 TkComm.simplelist(Tk.tk_call('::tablelist::getThemes')) 34 end 35 def self.set_theme_defaults 36 Tk.tk_call('::tablelist::setThemeDefaults') 37 end 38 end 39 40 Tablelist_Tile = Tablelist 41 TableList_Tile = Tablelist 42 end 43end 44