1 files changed, 21 insertions, 21 deletions

diff --git a/ext/tk/sample/demos-jp/unicodeout.rb b/ext/tk/sample/demos-jp/unicodeout.rb
index 4857cd131d..31596cf8fd 100644
--- a/ext/tk/sample/demos-jp/unicodeout.rb
+++ b/ext/tk/sample/demos-jp/unicodeout.rb
@@ -1,4 +1,4 @@
-# -*- coding: euc-jp -*-
+# -*- coding: utf-8 -*-
 #
 # unicodeout.rb --
 #
@@ -23,41 +23,41 @@ base_frame = TkFrame.new($unicodeout_demo).pack(:fill=>:both, :expand=>true)
 TkLabel.new(base_frame,
             :font=>$font, :wraplength=>'5.4i', :justify=>:left,
             :text=><<EOL).pack(:side=>:top)
-これは，Tkにおける非欧米文字集合を用いる言語に対するサポートについての\
-サンプルです．ただし，下の表示においてあなたが実際にどのような表示を\
-目にするかは，あなたの環境にどのような文字集合がインストールされているかに\
-大きく依存します．また，対象となる文字集合がインストールされていない場合に\
-どのような表示がなされるかもあなたの環境次第です．\
-「コード参照」ボタンを押してソースを表示し，\
-Unicodeout_SampleFrameクラスの@@fontの定義を書き換えて\
-(ファイルの内容は変更されません)\
-「再実行」ボタンのクリックを試してみてください．
-スクリプトが可搬性を持つように，文字列は\\uXXXXという\
-Tclのエスケープ表現を用いたUNICODE文字列で書かれています．\
-文字列は，Tk::UTF8_Stringメソッドによって，\
-「UTF8形式の文字列である」という\
-エンコード情報付きの文字列オブジェクト\
-(Tclのエスケープ表現の変換済み)に変換して\
-ラベルウィジェットに渡している点に注意してください．
+���������鐚�Tk���������������罨х嘘���絖�������������������荐�茯����絲障�������泣����若�������ゃ��������\
+��泣�潟�������с��鐚����������鐚�筝����茵�腓冴�����������������������絎����������������������茵�腓冴��\
+������������������鐚���������������医�����������������������絖������������ゃ�潟�鴻����若�����������������������\
+紊с����鋐�絖������障��鐚���障��鐚�絲乗院������������絖������������ゃ�潟�鴻����若����������������������翫�����\
+���������������茵�腓冴����������������������������������医��罨∞����с��鐚�\
+�����潟�若�������с�������帥�潟����若�������純�若�鴻��茵�腓冴��鐚�\
+Unicodeout_SampleFrame��������鴻��@@font���絎�臂������吾�����������\
+(�����＜�ゃ��������絎鴻��紊���眼�������障�����)\
+������絎�茵���������帥�潟�����������������荅���������帥��������������鐚�
+��鴻����������������������с�������ゃ��������鐚����絖�������\\uXXXX���������\
+Tcl��������鴻�宴�若��茵��憗�����������UNICODE���絖������ф�吾�������������障��鐚�\
+���絖�������鐚�Tk::UTF8_String��＜�純�������������ｃ��鐚�\
+���UTF8綵√��������絖������с�����������������\
+�����潟�潟�若�������延�����������絖������������吾�с�����\
+(Tcl��������鴻�宴�若��茵��憗��紊����羝����)���紊����������\
+��������������ｃ�吾�с��������羝＜�������������鴻��羈����������������������鐚�
 EOL
 #'
 
 TkFrame.new(base_frame){|f|
   pack(:side=>:bottom, :fill=>:x, :pady=>'2m')
 
-  TkButton.new(f, :text=>'閉じる', :width=>15, :command=>proc{
+  TkButton.new(f, :text=>'���������', :width=>15, :command=>proc{
                  $unicodeout_demo.destroy
                  $unicodeout_demo = nil
                }).pack(:side=>:left, :expand=>true)
 
-  TkButton.new(f, :text=>'コード参照', :width=>15, :command=>proc{
+  TkButton.new(f, :text=>'��潟�若��������', :width=>15, :command=>proc{
                  showCode 'unicodeout'
                }).pack(:side=>:left, :expand=>true)
 }
 
 wait_msg = TkLabel.new(base_frame,
-                       :text=>"フォント読み込みの完了まで" +
-                              "しばらくお待ち下さい．．．",
+                       :text=>"��������潟��茯���粋昭��帥��絎�篋���障��" +
+                              "�����違��������緇���＞��������鐚�鐚�鐚�",
                        :font=>"Helvetica 12 italic").pack
 
 class Unicodeout_SampleFrame < TkFrame