From 6025fed91deb03190be35231429141adff3a7e54 Mon Sep 17 00:00:00 2001 From: nagai Date: Tue, 9 Nov 2004 18:35:52 +0000 Subject: * 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 --- ext/tk/ChangeLog.tkextlib | 4 ++++ ext/tk/lib/tkextlib/tile/style.rb | 2 ++ 2 files changed, 6 insertions(+) (limited to 'ext/tk') diff --git a/ext/tk/ChangeLog.tkextlib b/ext/tk/ChangeLog.tkextlib index 25f4469101..deda55052d 100644 --- a/ext/tk/ChangeLog.tkextlib +++ b/ext/tk/ChangeLog.tkextlib @@ -1,3 +1,7 @@ +2004-11-10 Hidetoshi NAGAI + + * lib/tile/style.rb: bug fix + 2004-11-07 Hidetoshi NAGAI * ext/tk/lib/tkextlib/iwidgets/scrolledcanvas.rb: 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() -- cgit v1.2.3