diff options
author | nagai <nagai@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2003-10-17 22:36:40 +0000 |
---|---|---|
committer | nagai <nagai@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2003-10-17 22:36:40 +0000 |
commit | 61bf72eb8dd6cf9254d5150ab1514814f6444fe7 (patch) | |
tree | ed4a1114b2231d8a021a64efd262f9c256a8a4e6 /ext/tk/sample | |
parent | 850aebf583c37568bdad9540cd0a2ba2cdc017ba (diff) | |
download | ruby-61bf72eb8dd6cf9254d5150ab1514814f6444fe7.tar.gz ruby-61bf72eb8dd6cf9254d5150ab1514814f6444fe7.tar.xz ruby-61bf72eb8dd6cf9254d5150ab1514814f6444fe7.zip |
modify the message and comments on the source
git-svn-id: http://svn.ruby-lang.org/repos/ruby/trunk@4801 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
Diffstat (limited to 'ext/tk/sample')
-rw-r--r-- | ext/tk/sample/demos-en/unicodeout.rb | 18 | ||||
-rw-r--r-- | ext/tk/sample/demos-jp/unicodeout.rb | 19 |
2 files changed, 31 insertions, 6 deletions
diff --git a/ext/tk/sample/demos-en/unicodeout.rb b/ext/tk/sample/demos-en/unicodeout.rb index 9e69628e7..7bb951c93 100644 --- a/ext/tk/sample/demos-en/unicodeout.rb +++ b/ext/tk/sample/demos-en/unicodeout.rb @@ -17,13 +17,17 @@ $unicodeout_demo = TkToplevel.new {|w| } TkLabel.new($unicodeout_demo, - :font=>$font, :wraplength=>'4i', :justify=>:left, + :font=>$font, :wraplength=>'5.4i', :justify=>:left, :text=><<EOL).pack(:side=>:top) This is a sample of Tk's support for languages that use non-Western \ character sets. However, what you will actually see below depends \ largely on what character sets you have installed, and what you see \ -for characters that are not present varies greatly between platforms \ -as well. The strings are written in Tcl using UNICODE characters \ +for characters that are not present varies greatly between platforms as well. \ +Please try to click the 'See Code' button, \ +and click the 'Rerun Demo' button after editing \ +(the source file is not changed) \ +the definition of @@font on the Unicodeout_SampleFrame class. +The strings are written in Tcl using UNICODE characters \ using the \\uXXXX escape so as to do so in a portable fashion. ATTENTION: @@ -51,6 +55,13 @@ wait_msg = TkLabel.new($unicodeout_demo, class Unicodeout_SampleFrame < TkFrame @@font = $font + # @@font = 'Helvetica 14' + # @@font = 'Courier 12' + # @@font = 'clearlyu 16' + # @@font = 'fixed 12' + # @@font = 'Times 12' + # @@font = 'Newspaper 12' + # @@font = '{New century schoolbook} 12' def initialize() super($unicodeout_demo) @@ -61,6 +72,7 @@ class Unicodeout_SampleFrame < TkFrame sample_txt = Tk::UTF8_String(args.join('')) l = TkLabel.new(self, :font=>@@font, :text=>lang+':', :anchor=>:nw, :pady=>0) + #s = TkLabel.new(self, :font=>@@font, :text=>sample_txt, s = TkLabel.new(self, :font=>TkFont.new(@@font), :text=>sample_txt, :anchor=>:nw, :width=>30, :pady=>0) Tk.grid(l, s, :sticky=>:ew, :pady=>0) diff --git a/ext/tk/sample/demos-jp/unicodeout.rb b/ext/tk/sample/demos-jp/unicodeout.rb index fcc0a2187..d408a36aa 100644 --- a/ext/tk/sample/demos-jp/unicodeout.rb +++ b/ext/tk/sample/demos-jp/unicodeout.rb @@ -17,16 +17,21 @@ $unicodeout_demo = TkToplevel.new {|w| } TkLabel.new($unicodeout_demo, - :font=>$font, :wraplength=>'4i', :justify=>:left, + :font=>$font, :wraplength=>'5.4i', :justify=>:left, :text=><<EOL).pack(:side=>:top) これは,Tkにおける非欧米文字集合を用いる言語に対するサポートについての\ サンプルです.ただし,下の表示においてあなたが実際にどのような表示を\ 目にするかは,あなたの環境にどのような文字集合がインストールされているかに\ 大きく依存します.また,対象となる文字集合がインストールされていない場合に\ どのような表示がなされるかもあなたの環境次第です.\ +「コード参照」ボタンを押してソースを表示し,\ +Unicodeout_SampleFrameクラスの@@fontの定義を書き換えて\ +(ファイルの内容は変更されません)\ +「再実行」ボタンのクリックを試してみてください. スクリプトが可搬性を持つように,文字列は\\uXXXXという\ -Tclのエスケープ表現を用いたUNICODE文字列で書かれています. -文字列はTk::UTF8_StringメソッドによってUTF8形式の文字列であるという\ +Tclのエスケープ表現を用いたUNICODE文字列で書かれています.\ +文字列は,Tk::UTF8_Stringメソッドによって,\ +「UTF8形式の文字列である」という\ エンコード情報付きの文字列オブジェクト\ (Tclのエスケープ表現の変換済み)に変換して\ ラベルウィジェットに渡している点に注意してください. @@ -53,6 +58,13 @@ wait_msg = TkLabel.new($unicodeout_demo, class Unicodeout_SampleFrame < TkFrame @@font = $font + # @@font = 'Helvetica 14' + # @@font = 'Courier 12' + # @@font = 'clearlyu 16' + # @@font = 'fixed 12' + # @@font = 'Times 12' + # @@font = 'Newspaper 12' + # @@font = '{New century schoolbook} 12' def initialize() super($unicodeout_demo) @@ -63,6 +75,7 @@ class Unicodeout_SampleFrame < TkFrame sample_txt = Tk::UTF8_String(args.join('')) l = TkLabel.new(self, :font=>@@font, :text=>lang+':', :anchor=>:nw, :pady=>0) + #s = TkLabel.new(self, :font=>@@font, :text=>sample_txt, s = TkLabel.new(self, :font=>TkFont.new(@@font), :text=>sample_txt, :anchor=>:nw, :width=>30, :pady=>0) Tk.grid(l, s, :sticky=>:ew, :pady=>0) |