diff options
Diffstat (limited to 'ext/tk/sample/demos-jp/unicodeout.rb')
-rw-r--r-- | ext/tk/sample/demos-jp/unicodeout.rb | 42 |
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<純c鐚\ +UTF8綵√絖с\ +潟潟若延絖吾с\ +(Tcl鴻宴若茵憗紊羝)紊\ +c吾с羝<鴻羈鐚 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 |