summaryrefslogtreecommitdiff
path: root/lib/tkfont.rb
diff options
context:
space:
mode:
authormatz <matz@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>1998-07-21 09:18:05 +0000
committermatz <matz@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>1998-07-21 09:18:05 +0000
commit334b2c9f855ca8e4a36d34c6e600f5203ec017a5 (patch)
tree81a3e8889b938217aa68284686b38313241c3f9e /lib/tkfont.rb
parent043ec1f18d6e99b73eec029142185019f383f478 (diff)
st.c(rehash)
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/branches/v1_1r@275 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
Diffstat (limited to 'lib/tkfont.rb')
-rw-r--r--lib/tkfont.rb6
1 files changed, 6 insertions, 0 deletions
diff --git a/lib/tkfont.rb b/lib/tkfont.rb
index 86114c6b62e..9c2f4c1b663 100644
--- a/lib/tkfont.rb
+++ b/lib/tkfont.rb
@@ -493,6 +493,8 @@ class TkFont
tk_call(win, 'tag', 'configure', tag, '-font', @latinfont)
elsif winobj.kind_of? TkCanvas
tk_call(win, 'itemconfigure', tag, '-font', @latinfont)
+ elsif winobj.kind_of? TkMenu
+ tk_call(win, 'entryconfigure', tag, '-font', @latinfont)
else
raise RuntimeError, "unknown widget type"
end
@@ -525,6 +527,8 @@ class TkFont
tk_call(win, 'tag', 'configure', tag, '-kanjifont', @kanjifont)
elsif winobj.kind_of? TkCanvas
tk_call(win, 'itemconfigure', tag, '-kanjifont', @kanjifont)
+ elsif winobj.kind_of? TkMenu
+ tk_call(win, 'entryconfigure', tag, '-kanjifont', @latinfont)
else
raise RuntimeError, "unknown widget type"
end
@@ -692,6 +696,8 @@ class TkFont
else
ret.push([winobj, tag])
end
+ elsif winobj.kind_of? TkMenu
+ ret.push([winobj, tag])
else
ret.push([win, tag])
end