diff options
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.*/ |