aboutsummaryrefslogtreecommitdiffstats
path: root/ext/tk/sample/demos-jp/ctext.rb
diff options
context:
space:
mode:
Diffstat (limited to 'ext/tk/sample/demos-jp/ctext.rb')
-rw-r--r--ext/tk/sample/demos-jp/ctext.rb36
1 files changed, 18 insertions, 18 deletions
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'=>"c潟c潟widget鴻罘純≪鴻絖茵腓冴障鴻茹筝c篏臀鴻後鞘臀紊茵紊с障障篁ヤ膩膂≦ゃ潟c潟違泣若障
- 1. マウスを持っていき、クリックし、入力できます。
- 2. ボタン1で選択できます。
- 3. マウスの位置にボタン2で選択したテキストをコピーできます。
- 4.バックスペースをコントロール-Hで挿入カーソルの直前の文字を削除します。
- 5. Deleteキーは挿入カーソルの直後の文字を削除します。"){
+ 1. 鴻cュс障
+ 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'=>"c潟widget鴻罘純≪絖с\n筝ц唇鴻膩純ゃ潟c潟違純障",
'width'=>440, 'anchor'=>'n', 'justify'=>'left'
}
if $tk_version =~ /^4.*/