kotovalexarian-likes-github/ruby--ruby
1
0
Fork 0
mirror of https://github.com/ruby/ruby.git synced 2022-11-09 12:17:21 -05:00
Code Releases Activity

* lib/tkextlib/SUPPOPRT_STATUS: add RELEASE_DATE information.

Browse source 
* 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
This commit is contained in:
nagai 2005-06-16 09:22:01 +00:00
parent 79d206efef
commit ffb1f5722b
3 changed files with 14 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
ext/tk/ChangeLog.tkextlib
View file

@ -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> 2005-06-08 Hidetoshi NAGAI <nagai@ai.kyutech.ac.jp>
* lib/tkextlib/ICONS/icons.rb: fail to create instances of * lib/tkextlib/ICONS/icons.rb: fail to create instances of

3
ext/tk/lib/tkextlib/SUPPORT_STATUS
View file

@ -1,6 +1,8 @@
[ current support status of Tcl/Tk extensions ] [ 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 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 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, (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/ Memchan *** http://memchan.sourceforge.net/
XOTcl *** http://www.xotcl.org/
===< tool (may not supprt) >================================================== ===< tool (may not supprt) >==================================================

4
ext/tk/lib/tkextlib/tile/style.rb
View file

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