* lib/tkextlib/SUPPOPRT_STATUS: add RELEASE_DATE information.

* lib/tkextlib/tile/style.rb: add "style element options <elem>"
  command support.


git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@8634 b2dd03c8-39d4-4d8f-98ff-823fe69b080e

ext/tk/ChangeLog.tkextlib

@@ -1,3 +1,10 @@
+2005-06-16  Hidetoshi NAGAI  <nagai@ai.kyutech.ac.jp>
+
+	* lib/tkextlib/SUPPOPRT_STATUS: add RELEASE_DATE information.
+
+	* lib/tkextlib/tile/style.rb: add "style element options <elem>"
+	  command support.
+
 2005-06-08  Hidetoshi NAGAI  <nagai@ai.kyutech.ac.jp>
 
 	* lib/tkextlib/ICONS/icons.rb: fail to create instances of

ext/tk/lib/tkextlib/SUPPORT_STATUS

@@ -1,6 +1,8 @@
 
   [ current support status of Tcl/Tk extensions ]
 
+  *******<<<  RELEASE_DATE of the libraries : 2005/06/16  >>>*******
+
 The following list shows *CURRENT* status when this file was modifyed
 at last. If you want to add other Tcl/Tk extensions to the planed list
 (or change its status position), please request them at the ruby-talk,
@@ -178,6 +180,7 @@ Mk4tcl       ***    http://www.equi4.com/metakit/tcl.html
 
 Memchan      ***    http://memchan.sourceforge.net/
 
+XOTcl        ***    http://www.xotcl.org/
 
 
 ===< tool (may not supprt) >==================================================

ext/tk/lib/tkextlib/tile/style.rb

@@ -67,6 +67,10 @@ class << Tk::Tile::Style
     list(tk_call('style', 'element', 'names'))
   end
 
+  def element_options(elem)
+    simplelist(tk_call('style', 'element', 'options', elem))
+  end
+
   def theme_create(name, keys=nil)
     if keys && keys != None
       tk_call('style', 'theme', 'create', name, *hash_kv(keys))