From ab65368c288992e00568aabb550284db64b11d31 Mon Sep 17 00:00:00 2001 From: nagai Date: Fri, 17 Dec 2004 07:31:51 +0000 Subject: * ext/tk/lib/tk.rb: fix bug on setting up system encoding * ext/tk/lib/tk/event.rb: fix error on require process * ext/tk/lib/font.rb: fix abnormal termination error on Windows * ext/tk/lib/tk/virtevent.rb: TkVirtualEvent::PreDefVirtEvent.new() accepts event-sequence arguments * ext/tk/lib/text.rb: fail to dump embedded images * ext/tk/lib/text.rb: tag_nextrange and tag_prevrange returns wrong types of values * ext/tk/lib/texttag.rb: nextrange and prevrange returns wrong types of values * ext/tk/lib/text.rb: add TkText::IndexModMethods module and TkText::IndexString class to treat text index modifiers * ext/tk/lib/texttag.rb: use TkText::IndexModMethods module * ext/tk/lib/textmark.rb: ditto * ext/tk/lib/textimage.rb: ditto * ext/tk/lib/textwindow.rb: ditto * ext/tk/lib/textimage.rb: wrong gravity of text mark for embedded image * ext/tk/lib/textwindow.rb: wrong gravity of text mark for embedded window git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/branches/ruby_1_8@7588 b2dd03c8-39d4-4d8f-98ff-823fe69b080e --- ext/tk/lib/tk/font.rb | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'ext/tk/lib/tk/font.rb') diff --git a/ext/tk/lib/tk/font.rb b/ext/tk/lib/tk/font.rb index 1e314e5bb9..790537ef8d 100644 --- a/ext/tk/lib/tk/font.rb +++ b/ext/tk/lib/tk/font.rb @@ -53,7 +53,8 @@ class TkFont '-compound')) else # unknown Tcl/Tk-JP - platform = tk_call('set', 'tcl_platform(platform)') + #platform = tk_call('set', 'tcl_platform(platform)') + platform = Tk::PLATFORM['platform'] case platform when 'unix' ltn = {'family'=>'Helvetica'.freeze, @@ -79,7 +80,8 @@ class TkFont else # not JAPANIZED_TK begin - platform = tk_call('set', 'tcl_platform(platform)') + #platform = tk_call('set', 'tcl_platform(platform)') + platform = Tk::PLATFORM['platform'] case platform when 'unix' ltn = {'family'=>'Helvetica'.freeze, -- cgit v1.2.3