From ffb1f5722bace8f8eb384f8524f2cb8ce01c74a8 Mon Sep 17 00:00:00 2001 From: nagai Date: Thu, 16 Jun 2005 09:22:01 +0000 Subject: * lib/tkextlib/SUPPOPRT_STATUS: add RELEASE_DATE information. * lib/tkextlib/tile/style.rb: add "style element options " command support. git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@8634 b2dd03c8-39d4-4d8f-98ff-823fe69b080e --- ext/tk/lib/tkextlib/SUPPORT_STATUS | 3 +++ ext/tk/lib/tkextlib/tile/style.rb | 4 ++++ 2 files changed, 7 insertions(+) (limited to 'ext/tk/lib/tkextlib') diff --git a/ext/tk/lib/tkextlib/SUPPORT_STATUS b/ext/tk/lib/tkextlib/SUPPORT_STATUS index 45af92b420..587af51bdb 100644 --- a/ext/tk/lib/tkextlib/SUPPORT_STATUS +++ b/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) >================================================== diff --git a/ext/tk/lib/tkextlib/tile/style.rb b/ext/tk/lib/tkextlib/tile/style.rb index 99b2fd0e72..4245d315f8 100644 --- a/ext/tk/lib/tkextlib/tile/style.rb +++ b/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)) -- cgit v1.2.3