diff options
Diffstat (limited to 'ext/tk/sample/demos-jp/widget')
| -rw-r--r-- | ext/tk/sample/demos-jp/widget | 316 |
1 files changed, 158 insertions, 158 deletions
diff --git a/ext/tk/sample/demos-jp/widget b/ext/tk/sample/demos-jp/widget index fc3c084e9a..193c15affd 100644 --- a/ext/tk/sample/demos-jp/widget +++ b/ext/tk/sample/demos-jp/widget @@ -1,7 +1,7 @@ #!/usr/bin/env ruby -# -*- coding: euc-jp -*- +# -*- coding: utf-8 -*- -# 漢字コード設定 ( tk.rb のロード時の encoding 推定/設定に使われる ) +# 羲√潟若荐絎 ( tk.rb 若 encoding ｨ絎/荐絎篏帥 ) #if RUBY_VERSION < '1.9.0' ### !!!!!!!!!!!!!! unless defined?(::Encoding.default_external) $KCODE = 'euc' @@ -9,28 +9,28 @@ else DEFAULT_TK_ENCODING = 'EUC-JP' end -# tk 関係ライブラリの読み込み +# tk ≫ゃ茯粋昭 require 'tk' # require 'tkafter' $RubyTk_WidgetDemo = true -# widget demo directory 位置の獲得 +# widget demo directory 篏臀峨 # $demo_dir = File.dirname($0) $demo_dir = File.dirname(__FILE__) -# root の生成 +# root $root = TkRoot.new{title "Ruby/Tk Widget Demonstration"} -# tk バージョンの取得 +# tk 若吾с潟緇 $tk_version = Tk::TK_VERSION $tk_major_ver, $tk_minor_ver = $tk_version.split('.').map{|n| n.to_i} $tk_patchlevel = Tk::TK_PATCHLEVEL -# tcl_platform 情報へのアクセスオブジェクト +# tcl_platform 宴吾≪祉鴻吾с $tk_platform = TkVarAccess.new('tcl_platform') -# フォント設定 +# 潟荐絎 ####### case($tk_version) when /^4.*/ @@ -64,7 +64,7 @@ else end ####### -# イメージ設定 +# ゃ＜若梧┃絎 $image = {} if $tk_major_ver >= 8 @@ -123,7 +123,7 @@ $image['print'] = TkPhotoImage.new(:height=>19, :format=>'GIF', :data=><<EOD) EOD end -# メニュー設定 +# ＜ャ取┃絎 if $tk_major_ver >= 8 $root.add_menubar([[['File', 0], ['About ... ', proc{aboutBox}, 0, '<F1>'], @@ -154,7 +154,7 @@ TkFrame.new($root){|frame| }.pack('side'=>'top', 'fill'=>'x') =end -# テキストボックスの生成 +# 鴻鴻 if $tk_version =~ /^4\.[01]/ scr = TkScrollbar.new($root, 'orient'=>'vertical') txt = TkText.new($root) { @@ -215,7 +215,7 @@ else }.pack('side'=>'bottom', 'fill'=>'x', 'pady'=>2) end -# テキストタグ設定 +# 鴻帥域┃絎 if $tk_version =~ /^4.*/ tag_title = TkTextTag.new(txt, 'font'=>'-*-Helvetica-Bold-R-Normal--*-180-*-*-*-*-*-*') else @@ -277,267 +277,267 @@ tag_demo.bind('Motion', proc{|x, y| }, '%x %y') -# テキスト生成 +# 鴻 txt.insert('end', 'Ruby/Tk : Widget', tag_title) -#txt.insert('end', " デモンストレーション\n", tag_middle) -txt.insert('end', " デモンストレーション\n", tag_kanji_title) +#txt.insert('end', " ≪潟鴻若激с\n", tag_middle) +txt.insert('end', " ≪潟鴻若激с\n", tag_kanji_title) txt.insert('end', <<"EOT") -このアプリケーションは、Tk Widget を用いてどのようなことができるか\ -を示すための、いくつかの小さなスクリプトに対するフロントエンドを提\ -供しています。以下に順番に挙げられているデモンストレーションを実行\ -するにはマウスでクリックしてください。デモンストレーションのウィン\ -ドウが現れると、デモンストレーションを生成した Ruby/Tk のコードを見\ -るために、"コード参照"ボタンをクリックすることができます。あなたが\ -望むなら、そのコードを修正することができます。修正したコードでデモ\ -ンストレーションを再実行するためには、コードが書かれたウィンドウに\ -ある"デモ再実行" ボタンをクリックしてください。\ -コードを修正してもオリジナルのファイルが書き換えられることは\ -ありませんから、心配せずに色々な変更を試してみてください。 - -一部のデモでは、比較的最近のバージョンの Tk でなければサポートして\ -いない機能を使って実装しています(例えば Tk8.4 以上など)。そのため、\ -そうした機能を持たない Tk ライブラリを使っている場合には、そうした\ -デモは正しく動きません。そのような機能が必要であれば、それをサポート\ -している Tk ライブラリを使うように tcltklib をコンパイルしなおして\ -ください。 - -もしあなたの Tk が (最初から含むかインストールしたかにより) \ -Ttk (Tile) 拡張を利用できる状態であるなら、\ -Ttk 拡張のデモ (sample/tkextlib/tile/demo.rb) もぜひ試してみてください。 -( 多分，現在のあなたの環境には Ttk 拡張は\ +≪宴若激с潟Tk Widget с\ +腓冴ゃ絨鴻絲障潟潟\ +箴障篁ヤ≪潟鴻若激с潟絎茵\ +鴻с≪潟鴻若激с潟ｃ\ +憗≪潟鴻若激с潟 Ruby/Tk 潟若荀\ +"潟若"帥潟с障\ +潟若篆罩ｃс障篆罩ｃ潟若с\ +潟鴻若激с潟絎茵潟若吾ｃ潟\ +"√絎茵" 帥潟\ +潟若篆罩ｃ吾＜ゃ吾\ +障綽蚊紊眼荅帥 + +筝≪с罸莠菴若吾с潟 Tk с違泣若\ +罘純篏帥ｃ絎茖障(箴 Tk8.4 篁ヤ)\ +罘純 Tk ゃ篏帥ｃ翫\ +≪罩ｃ障罘純綽荀с違泣若\ + Tk ゃ篏帥 tcltklib 潟潟ゃ\ + + + Tk (ゃ潟鴻若) \ +Ttk (Tile) ≦宍с倶с\ +Ttk ≦宍 (sample/tkextlib/tile/demo.rb) 画帥 +( 紊鐚憜医 Ttk ≦宍\ #{ begin require 'tkextlib/tile' - "すでに導入されています" + "с絨ャ障" rescue - "まだインストールされていません" + "障ゃ潟鴻若障" end }\ -。) -Ttk 拡張は、Tk8.5 以上では標準の機能として組み込まれています。 +) +Ttk ≦宍Tk8.5 篁ヤс罔羣罘純腟粋昭障障 EOT -#txt.insert('end',"ラベル, ボタン, チェックボタン, ラジオボタン\n",tag_middle) -txt.insert('end', "ラベル, ボタン, チェックボタン, ラジオボタン\n", +#txt.insert('end',", 帥, с帥, 吾帥\n",tag_middle) +txt.insert('end', ", 帥, с帥, 吾帥\n", tag_kanji_title) txt.insert('end', " \n ", tag_demospace) -txt.insert('end', "1. ラベル (テキスト, ビットマップ)\n", +txt.insert('end', "1. (鴻, )\n", tag_demo, "demo-label") txt.insert('end', " \n ", tag_demospace) -txt.insert('end', "2. ラベルとUNICODEテキスト (機能に対応したバージョンのTkが必要)\n", tag_demo, "demo-unicodeout") +txt.insert('end', "2. UNICODE鴻 (罘純絲上若吾с潟Tk綽荀)\n", tag_demo, "demo-unicodeout") txt.insert('end', " \n ", tag_demospace) -txt.insert('end', "3. ボタン \n", tag_demo, "demo-button") +txt.insert('end', "3. 帥 \n", tag_demo, "demo-button") txt.insert('end', " \n ", tag_demospace) -txt.insert('end', "4. チェックボタン (複数を選択可能)\n", +txt.insert('end', "4. с帥 (茲違御)\n", tag_demo, "demo-check") txt.insert('end', " \n ", tag_demospace) -txt.insert('end', "5. ３状態チェックボタン (機能に対応したバージョンのTkが必要)\n", +txt.insert('end', "5. 鐚倶с帥 (罘純絲上若吾с潟Tk綽荀)\n", tag_demo, "demo-check2") txt.insert('end', " \n ", tag_demospace) -txt.insert('end', "6. ラジオボタン (任意の一つを選択可能)\n", +txt.insert('end', "6. 吾帥 (篁紙筝ゃ御)\n", tag_demo, "demo-radio") txt.insert('end', " \n ", tag_demospace) -txt.insert('end', "7. ラジオボタン (機能に対応したバージョンのTkが必要)\n", +txt.insert('end', "7. 吾帥 (罘純絲上若吾с潟Tk綽荀)\n", tag_demo, "demo-radio2") txt.insert('end', " \n ", tag_demospace) -txt.insert('end', "8. ３状態ラジオボタン (機能に対応したバージョンのTkが必要)\n", +txt.insert('end', "8. 鐚倶吾帥 (罘純絲上若吾с潟Tk綽荀)\n", tag_demo, "demo-radio3") txt.insert('end', " \n ", tag_demospace) -txt.insert('end', "9. ボタンで作られた15-パズルゲーム\n", +txt.insert('end', "9. 帥潟т15-冴蚊若\n", tag_demo, "demo-puzzle") txt.insert('end', " \n ", tag_demospace) -txt.insert('end', "10. ビットマップを使用したアイコンボタン\n", +txt.insert('end', "10. 篏睡≪ゃ潟潟帥\n", tag_demo, "demo-icon") txt.insert('end', " \n ", tag_demospace) -txt.insert('end', "11. 画像を表示する二つのラベル\n", +txt.insert('end', "11. 糸茵腓冴篋ゃ\n", tag_demo, "demo-image1") txt.insert('end', " \n ", tag_demospace) -txt.insert('end', "12. 画像を見るための簡単なユーザインターフェース\n", +txt.insert('end', "12. 糸荀膂≦若吟ゃ潟帥若с若\n", tag_demo, "demo-image2") txt.insert('end', " \n ", tag_demospace) -txt.insert('end', "13. 画像を見るための簡単なユーザインターフェース (機能に対応したバージョンのTkが必要)\n", +txt.insert('end', "13. 糸荀膂≦若吟ゃ潟帥若с若 (罘純絲上若吾с潟Tk綽荀)\n", tag_demo, "demo-image3") txt.insert('end', " \n ", tag_demospace) -txt.insert('end', "14. ラベル付きフレーム (機能に対応したバージョンのTkが必要)\n", +txt.insert('end', "14. 篁若 (罘純絲上若吾с潟Tk綽荀)\n", tag_demo, "demo-labelframe") txt.insert('end', " \n ", tag_demospace) -txt.insert('end', "15. テーマに対応したウィジェットの簡単な例 (Tile/Ttk拡張への対応が必要)\n", +txt.insert('end', "15. 若絲上ｃ吾с膂≦箴 (Tile/Ttk≦宍吾絲上綽荀)\n", tag_demo, "demo-ttkbut") txt.insert('end', " \n ", tag_demospace) txt.insert('end', "\n") -#txt.insert('end', "リストボックス\n", tag_middle) -txt.insert('end', "リストボックス\n", tag_kanji_title) +#txt.insert('end', "鴻\n", tag_middle) +txt.insert('end', "鴻\n", tag_kanji_title) txt.insert('end', " \n ", tag_demospace) -txt.insert('end', "1. 都道府県.\n", tag_demo, "demo-states") +txt.insert('end', "1. 初綺.\n", tag_demo, "demo-states") txt.insert('end', " \n ", tag_demospace) -txt.insert('end', "2. 色: アプリケーションのための配色を変える\n", +txt.insert('end', "2. : ≪宴若激с潟蚊紊\n", "#{tag_demo.id} demo-colors") txt.insert('end', " \n ", tag_demospace) -txt.insert('end', "3. 格言集\n", tag_demo, "demo-sayings") +txt.insert('end', "3. 取\n", tag_demo, "demo-sayings") txt.insert('end', " \n ", tag_demospace) -txt.insert('end', "4. 国についてのマルチカラムリスト (Tile/Ttk拡張への対応が必要)\n", +txt.insert('end', "4. 純ゃ鴻 (Tile/Ttk≦宍吾絲上綽荀)\n", tag_demo, "demo-mclist") txt.insert('end', " \n ", tag_demospace) -txt.insert('end', "5. ディレクトリブラウザ (Tile/Ttk拡張への対応が必要)\n", +txt.insert('end', "5. ｃ (Tile/Ttk≦宍吾絲上綽荀)\n", tag_demo, "demo-tree") txt.insert('end', " \n ", tag_demospace) txt.insert('end', "\n") -#txt.insert('end', "エントリとスピンボックス\n", tag_middle) -txt.insert('end', "エントリ\n", tag_kanji_title) +#txt.insert('end', "潟鴻潟\n", tag_middle) +txt.insert('end', "潟\n", tag_kanji_title) txt.insert('end', " \n ", tag_demospace) -txt.insert('end', "1. スクロールバーなし\n", tag_demo, "demo-entry1") +txt.insert('end', "1. 鴻若若\n", tag_demo, "demo-entry1") txt.insert('end', " \n ", tag_demospace) -txt.insert('end', "2. スクロールバーあり\n", tag_demo, "demo-entry2") +txt.insert('end', "2. 鴻若若\n", tag_demo, "demo-entry2") txt.insert('end', " \n ", tag_demospace) -txt.insert('end', "3. 認証処理付きのエントリボックスとパスワードフィールド (機能に対応したバージョンのTkが必要)\n", +txt.insert('end', "3. 茯荐弱篁潟鴻鴻若ｃ若 (罘純絲上若吾с潟Tk綽荀)\n", tag_demo, "demo-entry3") txt.insert('end', " \n ", tag_demospace) -txt.insert('end', "4. スピンボックス (機能に対応したバージョンのTkが必要)\n", +txt.insert('end', "4. 鴻潟 (罘純絲上若吾с潟Tk綽荀)\n", tag_demo, "demo-spin") txt.insert('end', " \n ", tag_demospace) -txt.insert('end', "5. コンボボックス (Tile/Ttk拡張への対応が必要)\n", +txt.insert('end', "5. 潟潟 (Tile/Ttk≦宍吾絲上綽荀)\n", tag_demo, "demo-combo") txt.insert('end', " \n ", tag_demospace) -txt.insert('end', "6. 簡単なフォーム\n", tag_demo, "demo-form") +txt.insert('end', "6. 膂≦若\n", tag_demo, "demo-form") txt.insert('end', " \n ", tag_demospace) txt.insert('end', "\n") -#txt.insert('end', "テキスト\n", tag_middle) -txt.insert('end', "テキスト\n", tag_kanji_title) +#txt.insert('end', "鴻\n", tag_middle) +txt.insert('end', "鴻\n", tag_kanji_title) txt.insert('end', " \n ", tag_demospace) -txt.insert('end', "1. 基本的なテキスト\n", tag_demo, "demo-text") +txt.insert('end', "1. 堺鴻\n", tag_demo, "demo-text") txt.insert('end', " \n ", tag_demospace) -txt.insert('end', "2. 表示スタイル.\n", tag_demo, "demo-style") +txt.insert('end', "2. 茵腓冴鴻帥ゃ.\n", tag_demo, "demo-style") txt.insert('end', " \n ", tag_demospace) -txt.insert('end', "3. ハイパーテキスト(タグバインド).\n", +txt.insert('end', "3. ゃ若鴻(帥違ゃ潟).\n", tag_demo, "demo-bind") txt.insert('end', " \n ", tag_demospace) -txt.insert('end', "4. ウィンドウを埋め込んだテキスト\n", +txt.insert('end', "4. ｃ潟莨若鴻\n", tag_demo, "demo-twind") txt.insert('end', " \n ", tag_demospace) -txt.insert('end', "5. ウィンドウを埋め込んだテキスト (機能に対応したバージョンのTkが必要)\n", +txt.insert('end', "5. ｃ潟莨若鴻 (罘純絲上若吾с潟Tk綽荀)\n", tag_demo, "demo-twind2") txt.insert('end', " \n ", tag_demospace) -txt.insert('end', "6. 検索\n", tag_demo, "demo-search") +txt.insert('end', "6. 罎膣\n", tag_demo, "demo-search") txt.insert('end', " \n ", tag_demospace) -txt.insert('end', "7. テキストウィジェットの対等化(peering) (機能に対応したバージョンのTkが必要)\n", tag_demo, "demo-textpeer") +txt.insert('end', "7. 鴻ｃ吾с絲丞(peering) (罘純絲上若吾с潟Tk綽荀)\n", tag_demo, "demo-textpeer") txt.insert('end', " \n ", tag_demospace) txt.insert('end', "\n") -#txt.insert('end', "キャンバス\n", tag_middle) -txt.insert('end', "キャンバス\n", tag_kanji_title) +#txt.insert('end', "ｃ潟\n", tag_middle) +txt.insert('end', "ｃ潟\n", tag_kanji_title) txt.insert('end', " \n ", tag_demospace) -txt.insert('end', "1. アイテムの型\n", tag_demo, "demo-items") +txt.insert('end', "1. ≪ゃ\n", tag_demo, "demo-items") txt.insert('end', " \n ", tag_demospace) -txt.insert('end', "2. 2 次元のプロット\n", tag_demo, "demo-plot") +txt.insert('end', "2. 2 罨≦\n", tag_demo, "demo-plot") txt.insert('end', " \n ", tag_demospace) -txt.insert('end', "3. テキスト\n", tag_demo, "demo-ctext") +txt.insert('end', "3. 鴻\n", tag_demo, "demo-ctext") txt.insert('end', " \n ", tag_demospace) -txt.insert('end', "4. 矢印の形\n", tag_demo, "demo-arrow") +txt.insert('end', "4. √違綵\n", tag_demo, "demo-arrow") txt.insert('end', " \n ", tag_demospace) -txt.insert('end', "5. ルーラー\n", tag_demo, "demo-ruler") +txt.insert('end', "5. 若\n", tag_demo, "demo-ruler") txt.insert('end', " \n ", tag_demospace) -txt.insert('end', "6. フロアプラン\n", tag_demo, "demo-floor") +txt.insert('end', "6. ≪\n", tag_demo, "demo-floor") txt.insert('end', " \n ", tag_demospace) -txt.insert('end', "7. フロアプラン (異なるキャンバスアイテム作成方法を使用)\n", tag_demo, "demo-floor2") +txt.insert('end', "7. ≪ (違ｃ潟鴻≪ゃ篏号篏睡)\n", tag_demo, "demo-floor2") txt.insert('end', " \n ", tag_demospace) -txt.insert('end', "8. スクロール可能なキャンバス\n", +txt.insert('end', "8. 鴻若純ｃ潟\n", tag_demo, "demo-cscroll") txt.insert('end', " \n ", tag_demospace) -txt.insert('end', "9. チェスボード上の騎士の巡回 (Tile/Ttk拡張への対応が必要)\n", +txt.insert('end', "9. с鴻若筝薑紕綏≦ (Tile/Ttk≦宍吾絲上綽荀)\n", tag_demo, "demo-knightstour") txt.insert('end', " \n ", tag_demospace) txt.insert('end', "\n") -#txt.insert('end', "スケールとプログレスバー\n", tag_middle) -txt.insert('end', "スケールとプログレスバー\n", tag_kanji_title) +#txt.insert('end', "鴻宴若違鴻\n", tag_middle) +txt.insert('end', "鴻宴若違鴻\n", tag_kanji_title) txt.insert('end', " \n ", tag_demospace) -txt.insert('end', "1. 垂直スケール\n", tag_demo.id, "demo-vscale") +txt.insert('end', "1. 眼鴻宴若\n", tag_demo.id, "demo-vscale") txt.insert('end', " \n ", tag_demospace) -txt.insert('end', "2. 水平スケール\n", tag_demo.id, "demo-hscale") +txt.insert('end', "2. 羂翫抗鴻宴若\n", tag_demo.id, "demo-hscale") txt.insert('end', " \n ", tag_demospace) -txt.insert('end', "3. プログレスバー (Tile/Ttk拡張への対応が必要)\n", tag_demo.id, "demo-ttkprogress") +txt.insert('end', "3. 違鴻 (Tile/Ttk≦宍吾絲上綽荀)\n", tag_demo.id, "demo-ttkprogress") txt.insert('end', " \n ", tag_demospace) txt.insert('end', "\n") -txt.insert('end', "ペインドウィンドウとノートブック\n", tag_kanji_title) +txt.insert('end', "ゃ潟ｃ潟若\n", tag_kanji_title) txt.insert('end', " \n ", tag_demospace) -txt.insert('end', "1. 水平方向 (機能に対応したバージョンのTkが必要)\n", +txt.insert('end', "1. 羂翫抗劫 (罘純絲上若吾с潟Tk綽荀)\n", tag_demo.id, "demo-paned1") txt.insert('end', " \n ", tag_demospace) -txt.insert('end', "2. 垂直方向 (機能に対応したバージョンのTkが必要)\n", +txt.insert('end', "2. 贋劫 (罘純絲上若吾с潟Tk綽荀)\n", tag_demo.id, "demo-paned2") txt.insert('end', " \n ", tag_demospace) -txt.insert('end', "3. テーマに対応した埋め込みペイン (Tile/Ttk拡張への対応が必要)\n", +txt.insert('end', "3. 若絲上莨若帥ゃ (Tile/Ttk≦宍吾絲上綽荀)\n", tag_demo.id, "demo-ttkpane") txt.insert('end', " \n ", tag_demospace) -txt.insert('end', "4. ノートブックウィジェット (Tile/Ttk拡張への対応が必要)\n", +txt.insert('end', "4. 若ｃ吾с (Tile/Ttk≦宍吾絲上綽荀)\n", tag_demo.id, "demo-ttknote") txt.insert('end', " \n ", tag_demospace) txt.insert('end', "\n") -#txt.insert('end', "メニューとツールバー\n", tag_middle) -txt.insert('end', "メニューとツールバー\n", tag_kanji_title) +#txt.insert('end', "＜ャ若若\n", tag_middle) +txt.insert('end', "＜ャ若若\n", tag_kanji_title) txt.insert('end', " \n ", tag_demospace) -txt.insert('end', "1. メニューとカスケードを含んだウィンドウ\n", +txt.insert('end', "1. ＜ャ若鴻宴若ｃ潟\n", tag_demo, "demo-menu") txt.insert('end', " \n ", tag_demospace) -txt.insert('end', "2. メニューとカスケードを含んだウィンドウ (Tk8.x 専用)\n", +txt.insert('end', "2. ＜ャ若鴻宴若ｃ潟 (Tk8.x 絨)\n", tag_demo, "demo-menu8x") txt.insert('end', " \n ", tag_demospace) -txt.insert('end', "3. 〃 (機能に対応したバージョンのTkが必要)\n", +txt.insert('end', "3. (罘純絲上若吾с潟Tk綽荀)\n", tag_demo, "demo-menu84") txt.insert('end', " \n ", tag_demospace) -txt.insert('end', "4. メニューボタン (Tk8.x 専用)\n", +txt.insert('end', "4. ＜ャ若帥 (Tk8.x 絨)\n", tag_demo, "demo-menubu") txt.insert('end', " \n ", tag_demospace) -txt.insert('end', "5. テーマに対応したメニューボタン (Tile/Ttk拡張への対応が必要)\n", +txt.insert('end', "5. 若絲上＜ャ若帥 (Tile/Ttk≦宍吾絲上綽荀)\n", tag_demo.id, "demo-ttkmenu") txt.insert('end', " \n ", tag_demospace) -txt.insert('end', "6. テーマに対応したツールバー (Tile/Ttk拡張への対応が必要)\n", +txt.insert('end', "6. 若絲上若 (Tile/Ttk≦宍吾絲上綽荀)\n", tag_demo.id, "demo-toolbar") txt.insert('end', " \n ", tag_demospace) txt.insert('end', "\n") -#txt.insert('end', "ダイアログウィンドウ\n", tag_middle) -txt.insert('end', "ダイアログウィンドウ\n", tag_kanji_title) +#txt.insert('end', "ゃ≪違ｃ潟\n", tag_middle) +txt.insert('end', "ゃ≪違ｃ潟\n", tag_kanji_title) txt.insert('end', " \n ", tag_demospace) -txt.insert('end', "1. メッセージボックス\n", tag_demo, "demo-msgbox") +txt.insert('end', "1. ＜祉若吾\n", tag_demo, "demo-msgbox") txt.insert('end', " \n ", tag_demospace) -txt.insert('end', "2. 詳細テキスト付きのメッセージボックス (機能に対応したバージョンのTkが必要)\n", tag_demo, "demo-msgbox2") +txt.insert('end', "2. 荅括完鴻篁＜祉若吾 (罘純絲上若吾с潟Tk綽荀)\n", tag_demo, "demo-msgbox2") txt.insert('end', " \n ", tag_demospace) -txt.insert('end', "3. ファイル選択ダイアログ\n", tag_demo, "demo-filebox") +txt.insert('end', "3. ＜ゃ御ゃ≪\n", tag_demo, "demo-filebox") txt.insert('end', " \n ", tag_demospace) -txt.insert('end', "4. 色選択ダイアログ\n", tag_demo, "demo-clrpick") +txt.insert('end', "4. 臥御ゃ≪\n", tag_demo, "demo-clrpick") txt.insert('end', " \n ", tag_demospace) txt.insert('end', "\n") -#txt.insert('end', "アニメーション\n", tag_middle) -txt.insert('end', "アニメーション\n", tag_kanji_title) +#txt.insert('end', "≪＜若激с\n", tag_middle) +txt.insert('end', "≪＜若激с\n", tag_kanji_title) txt.insert('end', " \n ", tag_demospace) -txt.insert('end', "1. アニメーションラベル (機能に対応したバージョンのTkが必要)\n", tag_demo, "demo-anilabel") +txt.insert('end', "1. ≪＜若激с潟 (罘純絲上若吾с潟Tk綽荀)\n", tag_demo, "demo-anilabel") txt.insert('end', " \n ", tag_demospace) -txt.insert('end', "2. 波形のアニメーション (機能に対応したバージョンのTkが必要)\n", tag_demo, "demo-aniwave") +txt.insert('end', "2. 羈√就≪＜若激с (罘純絲上若吾с潟Tk綽荀)\n", tag_demo, "demo-aniwave") txt.insert('end', " \n ", tag_demospace) -txt.insert('end', "3. 振り子のシミュレーション (機能に対応したバージョンのTkが必要)\n", tag_demo, "demo-pendulum") +txt.insert('end', "3. 絖激ャ若激с (罘純絲上若吾с潟Tk綽荀)\n", tag_demo, "demo-pendulum") txt.insert('end', " \n ", tag_demospace) -txt.insert('end', "4. A celebration of Rube Goldberg (機能に対応したバージョンのTkが必要)\n", tag_demo, "demo-goldberg") +txt.insert('end', "4. A celebration of Rube Goldberg (罘純絲上若吾с潟Tk綽荀)\n", tag_demo, "demo-goldberg") txt.insert('end', "\n") -#txt.insert('end', "その他\n", tag_middle) -txt.insert('end', "その他\n", tag_kanji_title) +#txt.insert('end', "篁\n", tag_middle) +txt.insert('end', "篁\n", tag_kanji_title) txt.insert('end', " \n ", tag_demospace) -txt.insert('end', "1. 組み込みのビットマップ\n", tag_demo, "demo-bitmap") +txt.insert('end', "1. 腟粋昭帥\n", tag_demo, "demo-bitmap") txt.insert('end', " \n ", tag_demospace) -txt.insert('end', "2. モーダルダイアログ(ローカルグラブ)\n", +txt.insert('end', "2. ≪若ゃ≪(若違)\n", tag_demo, "demo-dialog1") txt.insert('end', " \n ", tag_demospace) -txt.insert('end', "3. モーダルダイアログ(グローバルグラブ)\n", +txt.insert('end', "3. ≪若ゃ≪(違若違)\n", tag_demo, "demo-dialog2") txt.insert('end', " \n ", tag_demospace) @@ -545,13 +545,13 @@ txt.state('disabled') scr.focus ################################ -# method 定義 +# method 絎臂 ################################ def positionWindow(w) w.geometry('+300+300') end -# 親ウィジェットと，変数名と TkVariable との組(配列)の並びを渡す +# 荀ｃ吾с鐚紊医 TkVariable 腟()筝潟羝＜ $showVarsWin = {} def showVars1(parent, *args) if $showVarsWin[parent.path] @@ -564,7 +564,7 @@ def showVars1(parent, *args) title "Variable values" base = TkFrame.new(w).pack(:fill=>:both, :expand=>true) TkLabel.new(base) { - text "変数値:" + text "紊医:" width 20 anchor 'center' if $tk_version =~ /^4.*/ @@ -586,7 +586,7 @@ def showVars1(parent, *args) }.pack('side'=>'top', 'anchor'=>'w', 'fill'=>'x') } TkButton.new(base) { - text "了解" + text "篋茹" command proc{w.destroy} }.pack('side'=>'bottom', 'pady'=>2) } @@ -605,7 +605,7 @@ def showVars2(parent, *args) base = TkFrame.new(top).pack(:fill=>:both, :expand=>true) - TkLabelFrame.new(base, :text=>"変数値:", + TkLabelFrame.new(base, :text=>"紊医:", :font=>{:family=>'Helvetica', :size=>14}){|f| args.each{|vnam,vbody| TkGrid(TkLabel.new(f, :text=>"#{vnam}: ", :anchor=>'w'), @@ -617,7 +617,7 @@ def showVars2(parent, *args) f.grid_columnconfig(1, :weight=>1) f.grid_rowconfig(100, :weight=>1) } - TkButton.new(base, :text=>"了解", :width=>8, :default=>:active, + TkButton.new(base, :text=>"篋茹", :width=>8, :default=>:active, :command=>proc{top.destroy}){|b| top.bind('Return', proc{b.invoke}) top.bind('Escape', proc{b.invoke}) @@ -637,7 +637,7 @@ else # ver >= 8.4 alias showVars showVars2 end -# 疑似トップレベルサポート +# 篌若泣若 module PseudoToplevel_Evaluable def pseudo_toplevel_eval(body = Proc.new) Thread.current[:TOPLEVEL] = self @@ -743,7 +743,7 @@ def eval_samplecode(code, file=nil) Tk.update end -# テキスト上での click に対する動作 +# 鴻筝с click 絲障篏 def invoke(txt, idx) tag = txt.tag_names(idx).find{|t| t.kind_of?(String) && t =~ /^demo-/} return unless tag @@ -776,7 +776,7 @@ def invoke (txt, idx) end =end -# 状態表示 +# 倶茵腓 def showStatus (txt, index) tag = txt.tag_names(index).find{|t| t.kind_of?(String) && t =~ /^demo-/} cursor = txt.cget('cursor') @@ -786,13 +786,13 @@ def showStatus (txt, index) else demoname = tag[5..-1] $statusBarLabel.configure('text', - "サンプルプログラム \"#{demoname}\" の実行 ") + "泣潟違 \"#{demoname}\" 絎茵 ") newcursor = 'hand2' end txt.configure('cursor'=>newcursor) if cursor != newcursor end -# ソースコードの表示 +# 純若鴻潟若茵腓 def showCode1(demo) file = "#{demo}.rb" $code_window = nil unless defined? $code_window @@ -801,15 +801,15 @@ def showCode1(demo) f = TkFrame.new($code_window) TkButton.new(f) { - #text "了解" - text "閉じる" + #text "篋茹" + text "" command proc{ $code_window.destroy $code_window = nil } }.pack('side'=>'right', 'expand'=>'false', 'pady'=>2) TkButton.new(f) { - text "再実行" + text "絎茵" # command proc{eval($code_text.get('1.0','end'), _null_binding)} command proc{eval_samplecode($code_text.get('1.0','end'), '<viewer>')} }.pack('side'=>'right', 'expand'=>'false', 'pady'=>2) @@ -924,17 +924,17 @@ def showCode2(demo) posnum.text = pos } - #b_dis = TkButton.new(bf, :text=>'了解', :default=>:active, - b_dis = TkButton.new(bf, :text=>'閉じる', :default=>:active, + #b_dis = TkButton.new(bf, :text=>'篋茹', :default=>:active, + b_dis = TkButton.new(bf, :text=>'', :default=>:active, :command=>proc{ $code_window.destroy $code_window = nil }, :image=>$image['delete'], :compound=>:left) - b_prn = TkButton.new(bf, :text=>'印刷', + b_prn = TkButton.new(bf, :text=>'医', :command=>proc{printCode($code_text, file)}, :image=>$image['print'], :compound=>:left) - b_run = TkButton.new(bf, :text=>'再実行', + b_run = TkButton.new(bf, :text=>'絎茵', :command=>proc{ # eval($code_text.get('1.0','end'), _null_binding) eval_samplecode($code_text.get('1.0','end'), '<viewer>') @@ -1012,27 +1012,27 @@ def printCode(txt, file) msg = `lp -c #{fname}` unless $?.exitstatus == 0 Tk.messageBox(:title=>'Print spooling failure', - :message=>'エラーが発生しました．' + - '印刷に失敗したものと思われます : ' + msg) + :message=>'若榊障鐚' + + '医激紊掩障 : ' + msg) end when 'windows' begin printTextWin32(fname) rescue => e Tk.messageBox(:title=>'Print spooling failure', - :message=>'エラーが発生しました．' + - '印刷に失敗したものと思われます : ' + + :message=>'若榊障鐚' + + '医激紊掩障 : ' + e.message) end when 'macintosh' Tk.messageBox(:title=>'Operation not Implemented', - :message=>'印刷機能はまだ実装されていません') + :message=>'医傑純障絎茖障') else Tk.messageBox(:title=>'Operation not Implemented', - :message=>'検出された環境 ' + + :message=>'罎冴医 ' + Tk::TCL_PLATFORM('platform') + - ' は未知の環境であるため，' + - '印刷機能は実装されていません: ') + ' ャ医с鐚' + + '医傑純絎茖障: ') end ensure File.delete(fname) @@ -1074,7 +1074,7 @@ end # def aboutBox Tk.messageBox('icon'=>'info', 'type'=>'ok', 'title'=>'About Widget Demo', - 'message'=>"Ruby/Tk ウィジェットデモ Ver.1.7.1-jp\n\n" + + 'message'=>"Ruby/Tk ｃ吾с Ver.1.7.1-jp\n\n" + "based on demos of Tk8.1 -- 8.5 " + "( Copyright of Tcl/Tk demos:: " + "(c) 1996-1997 Sun Microsystems, Inc. / " + @@ -1087,7 +1087,7 @@ def aboutBox end #################################### -# 引数で指定されたデモを起動する +# 綣違ф絎≪莎桁 no_launcher = false if ARGV[0] == '-n' ARGV.shift @@ -1118,5 +1118,5 @@ if no_launcher end ################################ -# イベント待ちに入る +# ゃ潟緇＜ャ Tk.mainloop |