[ruby-list:45740] Re: ruby-1.9.1-preview2のruby-tk on OSX

永井＠知能．九工大です．

From: 天野竜太郎 <[e-mail]>
Subject: [ruby-list:45739] Re: ruby-1.9.1-preview2のruby-tk on OSX
Date: Sun, 21 Dec 2008 18:39:32 +0900
Message-ID: <[e-mail]>
> trunkから持ってきた20902に永井さんの45738の 
> patchを当てました。
    (snip)
> $ ~/mytrunk/bin/ruby ext/tk/sample/demos-jp/widget
> エラーなし。「code参照」もOK。

今度こそは大丈夫そうですね．(^_^)

> ただし「code 参照」で出てくるcodeの日本語部分が文字化けです。

ごめんなさい．これは別の問題です．
読み込んだコードの文字列のエンコーディングを
設定していなかったというバグです．
下記のパッチで直るのではないかと思います．

Index: widget
===================================================================
--- widget	(revision 20902)
+++ widget	(working copy)
@@ -882,18 +882,12 @@
 
   $code_window.title("Demo code: #{file}")
   $code_window.iconname(file)
-#  fid = open(file, 'r')
-  fid = open([$demo_dir, file].join(File::Separator), 'r')
+  code = open([$demo_dir, file].join(File::Separator), 'r'){|fid| fid.read }
   $code_text.delete('1.0', 'end')
-  #$code_text.insert('1.0', `cat #{file}`)
-  $code_text.insert('1.0', fid.read)
-  #$code_mark = TkTextMark.new($code_text, '1.0')
-  #$code_text.set_insert('1.0')
+  code.force_encoding('EUC-JP') if defined?(::Encoding.default_external)
+  $code_text.insert('1.0', code)
   TkTextMarkInsert.new($code_text,'1.0')
-
   $set_linenum.call($code_text)
-
-  fid.close
 end
 
 def showCode2(demo)
@@ -974,14 +968,12 @@
 
   $code_window.title("Demo code: #{file}")
   $code_window.iconname(file)
-  fid = open([$demo_dir, file].join(File::Separator), 'r')
+  code = open([$demo_dir, file].join(File::Separator), 'r'){|fid| fid.read }
   $code_text.delete('1.0', 'end')
-  $code_text.insert('1.0', fid.read)
+  code.force_encoding('EUC-JP') if defined?(::Encoding.default_external)
+  $code_text.insert('1.0', code)
   TkTextMarkInsert.new($code_text,'1.0')
-
   $set_linenum.call($code_text)
-
-  fid.close
 end
 
 if $tk_major_ver < 8

-- 
永井 秀利  ([e-mail])
九州工業大学 大学院情報工学研究院 知能情報工学研究系