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