From 2fecb27eb47333fda1e0049584d6b56dd336197f Mon Sep 17 00:00:00 2001
From: ayumin <ayumin@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Wed, 14 Sep 2011 17:25:37 +0000
Subject: Merge branch 'tk_utf8' into trunk

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@33271 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
---
 ext/tk/sample/demos-jp/ctext.rb | 36 ++++++++++++++++++------------------
 1 file changed, 18 insertions(+), 18 deletions(-)

(limited to 'ext/tk/sample/demos-jp/ctext.rb')

diff --git a/ext/tk/sample/demos-jp/ctext.rb b/ext/tk/sample/demos-jp/ctext.rb
index 70c1cad1a7..bb354c490e 100644
--- a/ext/tk/sample/demos-jp/ctext.rb
+++ b/ext/tk/sample/demos-jp/ctext.rb
@@ -1,15 +1,15 @@
-# -*- coding: euc-jp -*-
+# -*- coding: utf-8 -*-
 #
 # Canvas Text widget demo (called by 'widget')
 #
 
-# toplevel widget が存在すれば削除する
+# toplevel widget ���絖������������医����ゃ�����
 if defined?($ctext_demo) && $ctext_demo
   $ctext_demo.destroy
   $ctext_demo = nil
 end
 
-# demo 用の toplevel widget を生成
+# demo ������ toplevel widget ���������
 $ctext_demo = TkToplevel.new {|w|
   title("Canvas Text Demonstration")
   iconname("Text")
@@ -18,23 +18,23 @@ $ctext_demo = TkToplevel.new {|w|
 
 base_frame = TkFrame.new($ctext_demo).pack(:fill=>:both, :expand=>true)
 
-# label 生成
+# label ������
 TkLabel.new(base_frame, 'font'=>$font, 'wraplength'=>'5i', 'justify'=>'left',
-            'text'=>"このウィンドウにはキャンバスwidgetのテキスト機能をデモするためのテキスト文字列が表示されています。マウスを四角の中に持っていき、クリックすると位置ぎめ用の点からの相対位置を変えたり、行揃えを変えたりすることができます。また以下のような編集のための簡単なバインディングをサポートしています。
+            'text'=>"�����������ｃ�潟����������������ｃ�潟�����widget�����������鴻��罘���純�������≪����������������������鴻�����絖�������茵�腓冴�������������障�������������鴻�����茹����筝���������ｃ��������������������������������篏�臀���������������鴻����������後�鞘��臀����紊�������������茵����������紊���������������������������с����障�������障��篁ヤ��������������膩����������������膂≦����������ゃ�潟����ｃ�潟�違����泣����若�������������障�����
 
-  1. マウスを持っていき、クリックし、入力できます。
-  2. ボタン1で選択できます。
-  3. マウスの位置にボタン2で選択したテキストをコピーできます。
-  4.バックスペースをコントロール-Hで挿入カーソルの直前の文字を削除します。
-  5. Deleteキーは挿入カーソルの直後の文字を削除します。"){
+  1. ��������鴻�������ｃ�������������������������������ュ����с����障�����
+  2. �����帥��1��ч�御����с����障�����
+  3. ��������鴻��篏�臀���������帥��2��ч�御����������������鴻�������潟����若�с����障�����
+  4.�����������鴻����若�鴻����潟�潟�������若��-H��ф�水�ャ����若�純�������翫��������絖���������ゃ����障�����
+  5. Delete�����若����水�ャ����若�純�������翫��������絖���������ゃ����障�����"){
   pack('side'=>'top')
 }
 
-# frame 生成
+# frame ������
 $ctext_buttons = TkFrame.new(base_frame) {|frame|
   TkButton.new(frame) {
-    #text '了解'
-    text '閉じる'
+    #text '篋�茹�'
+    text '���������'
     command proc{
       tmppath = $ctext_demo
       $ctext_demo = nil
@@ -43,30 +43,30 @@ $ctext_buttons = TkFrame.new(base_frame) {|frame|
   }.pack('side'=>'left', 'expand'=>'yes')
 
   TkButton.new(frame) {
-    text 'コード参照'
+    text '��潟�若��������'
     command proc{showCode 'ctext'}
   }.pack('side'=>'left', 'expand'=>'yes')
 }
 $ctext_buttons.pack('side'=>'bottom', 'fill'=>'x', 'pady'=>'2m')
 
-# canvas 生成
+# canvas ������
 $ctext_canvas = TkCanvas.new(base_frame, 'relief'=>'flat',
                              'borderwidth'=>0, 'width'=>500, 'height'=>350)
 $ctext_canvas.pack('side'=>'top', 'expand'=>'yes', 'fill'=>'both')
 
-# font 設定
+# font 荐�絎�
 if $tk_version =~ /^4.*/
   textFont = '-*-Helvetica-Medium-R-Normal--*-240-*-*-*-*-*-*'
 else
   textFont = 'Helvetica 24'
 end
 
-# canvas 設定
+# canvas 荐�絎�
 TkcRectangle.new($ctext_canvas, 245, 195, 255, 205,
                  'outline'=>'black', 'fill'=>'red')
 
 ctag_text_param = {
-  'text'=>"これはキャンバスwidgetのテキスト機能をデモするための文字列です。\n上で述べたような編集を可能とするためのバインディングを施しています。",
+  'text'=>"��������������ｃ�潟�����widget�����������鴻��罘���純�������≪�����������������絖������с�����\n筝���ц唇��鴻�����������膩������������純����������������������ゃ�潟����ｃ�潟�違����純����������障�����",
   'width'=>440, 'anchor'=>'n', 'justify'=>'left'
 }
 if $tk_version =~ /^4.*/
-- 
cgit v1.2.3