diff options
author | nagai <nagai@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2003-09-02 05:04:30 +0000 |
---|---|---|
committer | nagai <nagai@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2003-09-02 05:04:30 +0000 |
commit | 9388ed284d600f2225a745dfb3edb6ac1758fdb8 (patch) | |
tree | 1b7b09cfaa93e97d9e38389ddec7657418aa17ac /ext/tk/sample/demos-jp | |
parent | 645d4abf426fb2ef4ae72d0d46c24607b71be3a8 (diff) | |
download | ruby-9388ed284d600f2225a745dfb3edb6ac1758fdb8.tar.gz |
* ext/tcltklib/tcltklib.c (ip_invoke): fixed bug on passing a exception
* ext/tk/lib/{tk.rb, tkcanvas.rb, tkfont.rb, tktext.rb} :
bug fix and improvement of font control
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@4480 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
Diffstat (limited to 'ext/tk/sample/demos-jp')
-rw-r--r-- | ext/tk/sample/demos-jp/ctext.rb | 2 | ||||
-rw-r--r-- | ext/tk/sample/demos-jp/widget | 4 |
2 files changed, 3 insertions, 3 deletions
diff --git a/ext/tk/sample/demos-jp/ctext.rb b/ext/tk/sample/demos-jp/ctext.rb index 62b02b3972..6d9355e2f8 100644 --- a/ext/tk/sample/demos-jp/ctext.rb +++ b/ext/tk/sample/demos-jp/ctext.rb @@ -62,7 +62,7 @@ $ctag_text.withtag(TkcText.new($ctext_canvas, 250, 200, 'text'=>"これはキャンバスwidgetのテキスト機能をデモするための文字列です。マウスを持っていき、クリックして入力できます。選択してコントロール-Dで消去することもできます。", 'width'=>440, 'anchor'=>'n', 'font'=>'-*-Helvetica-Medium-R-Normal--*-240-*-*-*-*-*-*', - 'kanjifont'=>'-*--24-*-jisx0208.1983-0', + 'kanjifont'=>'-*-r-*--24-*-jisx0208.1983-0', 'justify'=>'left') ) $ctag_text.bind('1', proc{|x,y| textB1Press $ctext_canvas,x,y}, "%x %y") diff --git a/ext/tk/sample/demos-jp/widget b/ext/tk/sample/demos-jp/widget index d7c1876eeb..bda80d5541 100644 --- a/ext/tk/sample/demos-jp/widget +++ b/ext/tk/sample/demos-jp/widget @@ -18,12 +18,12 @@ $tk_platform = TkVarAccess.new('tcl_platform') # フォント設定 $font = TkFont.new('-*-Helvetica-Medium-R-Normal--*-140-*-*-*-*-*-*', nil) -knjfont = '-*--16-*-jisx0208.1983-0' +knjfont = '-*-r-*--16-*-jisx0208.1983-0' $kanji_font = TkFont.new('-*-Helvetica-Medium-R-Normal--*-140-*-*-*-*-*-*', knjfont) TkOption.add('*kanjiFont', knjfont, 'startupFile') $msg_kanji_font = TkFont.new('-*-Helvetica-Medium-R-Normal--*-140-*-*-*-*-*-*', - '-*--24-*-jisx0208.1983-0') + '-*-r-*--24-*-jisx0208.1983-0') ####### #case($tk_version) #when /^4.*/ |