diff options
Diffstat (limited to 'ext/tk/sample/demos-jp/text.rb')
| -rw-r--r-- | ext/tk/sample/demos-jp/text.rb | 102 |
1 files changed, 51 insertions, 51 deletions
diff --git a/ext/tk/sample/demos-jp/text.rb b/ext/tk/sample/demos-jp/text.rb index ea15064830..e698a79246 100644 --- a/ext/tk/sample/demos-jp/text.rb +++ b/ext/tk/sample/demos-jp/text.rb @@ -1,15 +1,15 @@ -# -*- coding: euc-jp -*- +# -*- coding: utf-8 -*- # # text (basic facilities) widget demo (called by 'widget') # -# toplevel widget が存在すれば削除する +# toplevel widget 絖医ゃ if defined?($text_demo) && $text_demo $text_demo.destroy $text_demo = nil end -# demo 用の toplevel widget を生成 +# demo toplevel widget $text_demo = TkToplevel.new {|w| title("Text Demonstration - Basic Facilities") iconname("text") @@ -25,11 +25,11 @@ else undo_support = true end -# frame 生成 +# frame TkFrame.new(base_frame) {|frame| TkButton.new(frame) { - #text '了解' - text '閉じる' + #text '篋茹' + text '' command proc{ tmppath = $text_demo $text_demo = nil @@ -38,14 +38,14 @@ TkFrame.new(base_frame) {|frame| }.pack('side'=>'left', 'expand'=>'yes') TkButton.new(frame) { - text 'コード参照' + text '潟若' command proc{showCode 'text'} }.pack('side'=>'left', 'expand'=>'yes') }.pack('side'=>'bottom', 'fill'=>'x', 'pady'=>'2m') -# text 生成 +# text TkText.new(base_frame){|t| - # 生成 + # relief 'sunken' bd 2 setgrid 1 @@ -57,62 +57,62 @@ TkText.new(base_frame){|t| } pack('expand'=>'yes', 'fill'=>'both') - # テキスト挿入 + # 鴻水 insert('0.0', <<EOT) -このウィンドウはテキスト widget です。1行またはそれ以上のテキストを表 -示・編集することができます。以下はテキスト widget でできる操作について -まとめたものです。 - -1. スクロール。スクロールバーでテキストの表示部分を動かすことができます。 - -2. スキャニング。テキストのウィンドウでマウスボタン2 (中ボタンを) を押 -して上下にドラッグしてください。そうするとテキストが高速でドラッグされ、 -内容をざっと眺めることができます。 - -3. テキストの挿入。マウスボタン1 (左ボタン) を押し、挿入カーソルをセッ -トしてからテキストを入力してください。入力したものが widget に入ります。 - -4. 選択。ある範囲の文字を選択するにはマウスボタン1 を押し、ドラッグし -てください。一度ボタンを離したら、シフトキーを押しながらボタン1 を押す -ことで選択範囲の調整ができます。これは選択範囲の最後をマウスカーソルに -最も近い位置にリセットし、ボタンを離す前にマウスをドラッグすることでさ -らに選択範囲を調整できます。ダブルクリックでワードを、またトリプルクリッ -クで行全体を選択することができます。 - -5. 消去と置換。テキストを消去するには、消去したい文字を選択してバック -スペースかデリートキーを入力してください。あるいは、新しいテキストを -入力すると選択されたテキストと置換されます。 - -6. 選択部分のコピー。選択部分をこのウィンドウの中のどこかにコピーする -には、まずコピーしたい所を選択(ここで、あるいは別のアプリケーションで) -し、ボタン 2 をクリックして、挿入カーソルの位置にコピーしてください。 - -7. 編集。テキスト widget は Emacs のキーバインドに加えて標準的なの Motif -の編集機能をサポートしています。バックスペースとコントロール-H は挿入 -カーソルの左側の文字を削除します。デリートキーとコントロール-D は挿入 -カーソルの右側の文字を削除します。Meta-バックスペースは挿入カーソルの -右側の単語を削除し、Meta-D は挿入カーソルの左側の単語を削除します。 -コントロール-K は挿入カーソルから行末までを削除し、その位置に改行 -しかなかった場合は、改行を削除します。#{ +ｃ潟鴻 widget с1茵障篁ヤ鴻茵 +腓冴紫隈с障篁ヤ鴻 widget сс篏ゃ +障с + +1. 鴻若鴻若若с鴻茵腓咲с障 + +2. 鴻ｃ潟違鴻ｃ潟с鴻帥2 (筝帥潟) +筝筝違鴻蕭с違 +絎鴻ｃ冴с障 + +3. 鴻水ャ鴻帥1 (綏帥) 若水ャ若純祉 +鴻ュュ widget ャ障 + +4. 御膀蚊絖御鴻帥1 若違 +筝綺帥潟≪激若若帥1 若 +ч御膀蚊茯炊眼с障御膀蚊緇鴻若純 +菴篏臀祉帥潟≪鴻違с +御膀蚊茯炊眼с障с若障 +ц篏御с障 + +5. 羔ｻ臀鴻羔ｻ羔ｻ絖御 +鴻若鴻若若ュ違鴻 +ュ御鴻臀障 + +6. 御潟若御ｃ潟筝潟若 +障潟若御(сャ≪宴若激с潟) +帥 2 水ャ若純篏臀潟若 + +7. 膩鴻 widget Emacs 若ゃ潟罔羣 Motif +膩罘純泣若障鴻若鴻潟潟若-H 水 +若純綏眼絖ゃ障若若潟潟若-D 水 +若純勀眼絖ゃ障Meta-鴻若鴻水ャ若純 +勀眼茯ゃMeta-D 水ャ若純綏眼茯ゃ障 +潟潟若-K 水ャ若純茵障сゃ篏臀壕 +ｃ翫壕ゃ障#{ if undo_support - undo_text = "Control-z は最後に行った変更の取り消し(undo)を行い、" + undo_text = "Control-z 緇茵ｃ紊眼羔(undo)茵" case $tk_platform['platform'] when "unix", "macintosh" undo_text << "Control-Shift-z" else # 'windows' undo_text << "Control-y" end - undo_text << "はundoした変更の再適用(redo)を行います。" + undo_text << "undo紊眼(redo)茵障" else "" end } -8. ウィンドウのリサイズ。この widget は "setGrid" オプションをオンにし -てありますので、ウィンドウをリサイズする時には高さと幅は常に文字高と文 -字幅の整数倍になります。また、ウィンドウを狭くした場合には長い行が自動 -的に折り返され、常に全ての内容が見えるようになっています。 +8. ｃ潟泣ゃ冴 widget "setGrid" 激с潟潟 +障сｃ潟泣ゃ冴蕭綛絽吾絖蕭 +絖綛贋医障障ｃ潟翫激茵 +菴絽吾絎鴻荀ｃ障 EOT set_insert('0.0') |