1 files changed, 19 insertions, 1 deletions
diff --git a/ext/tk/lib/tkextlib/tcllib/tablelist_tile.rb b/ext/tk/lib/tkextlib/tcllib/tablelist_tile.rb
index 0cb4eb735d..0a1458415e 100644
--- a/ext/tk/lib/tkextlib/tcllib/tablelist_tile.rb
+++ b/ext/tk/lib/tkextlib/tcllib/tablelist_tile.rb
@@ -9,7 +9,7 @@ require 'tk'
 require 'tkextlib/tcllib.rb'
 
 # TkPackage.require('tablelist_tile', '4.2')
-TkPackage.require('Tablelist_tile')
+TkPackage.require('tablelist_tile')
 
 unless defined? Tk::Tcllib::Tablelist_usingTile
   Tk::Tcllib::Tablelist_usingTile = true
@@ -19,6 +19,24 @@ 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