diff options
| author | nagai <nagai@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2004-11-09 18:35:52 +0000 |
|---|---|---|
| committer | nagai <nagai@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2004-11-09 18:35:52 +0000 |
| commit | 6025fed91deb03190be35231429141adff3a7e54 (patch) | |
| tree | 06d8b6f9e11af0c2032b375f86968a3742be3af1 /ext/tk/lib/tkextlib | |
| parent | 4f302c15587d43aacf07ff22341c661a5d85fd37 (diff) | |
* ext/tcltklib/tcltklib.c: fix SEGV when compiled with Tcl/Tk8.3.x or older
* ext/tk/lib/tkextlib/tile/style.rb: bug fix
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/branches/ruby_1_8@7239 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
Diffstat (limited to 'ext/tk/lib/tkextlib')
| -rw-r--r-- | ext/tk/lib/tkextlib/tile/style.rb | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/ext/tk/lib/tkextlib/tile/style.rb b/ext/tk/lib/tkextlib/tile/style.rb index 1e399182da..3be8c1d580 100644 --- a/ext/tk/lib/tkextlib/tile/style.rb +++ b/ext/tk/lib/tkextlib/tile/style.rb @@ -58,6 +58,8 @@ class << Tk::Tile::Style end def theme_settings(name, cmd=nil, &b) + cmd = Proc.new(&b) if !cmd && b + tk_call('style', 'theme', 'settings', name, cmd) end def theme_names() |