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

* ext/tk/lib/tk/font.rb: TkFont#current_configinfo() doesn't work on Tcl/Tk8.x.

* ext/tk/lib/tk.rb: update RELEASE_DATE.


git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/branches/ruby_1_8@10818 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
This commit is contained in:
nagai 2006-09-01 05:09:51 +00:00
parent a70798361f
commit 6d4728513c
3 changed files with 11 additions and 6 deletions

View file

@ -1,3 +1,8 @@
Fri Sep 1 13:52:57 2006 Hidetoshi NAGAI <nagai@ai.kyutech.ac.jp>
* ext/tk/lib/tk/font.rb: TkFont#current_configinfo() doesn't work
on Tcl/Tk8.x.
Thu Aug 31 12:46:55 2006 why the lucky stiff <why@ruby-lang.org> Thu Aug 31 12:46:55 2006 why the lucky stiff <why@ruby-lang.org>
* eval.c (ruby_init): rename top_cref to ruby_top_cref and export, * eval.c (ruby_init): rename top_cref to ruby_top_cref and export,

View file

@ -4597,7 +4597,7 @@ end
#Tk.freeze #Tk.freeze
module Tk module Tk
RELEASE_DATE = '2006-07-14'.freeze RELEASE_DATE = '2006-09-01'.freeze
autoload :AUTO_PATH, 'tk/variable' autoload :AUTO_PATH, 'tk/variable'
autoload :TCL_PACKAGE_PATH, 'tk/variable' autoload :TCL_PACKAGE_PATH, 'tk/variable'

View file

@ -1449,7 +1449,7 @@ module TkFont::CoreMethods
end end
else else
l = tk_split_simplelist(tk_call('font', 'configure', font)) l = tk_split_simplelist(tk_call('font', 'configure', font))
r = {} h = {}
while key=l.shift while key=l.shift
if key == '-compound' if key == '-compound'
l.shift l.shift
@ -1458,15 +1458,15 @@ module TkFont::CoreMethods
val = l.shift val = l.shift
case TkFont::OptionType[key] case TkFont::OptionType[key]
when ?n when ?n
r.push [key, num_or_str(val)] h[key] = num_or_str(val)
when ?b when ?b
r.push [key, bool(val)] h[key] = bool(val)
else else
r.push [key, val] h[key] = val
end end
end end
end end
r h
end end
end end