Convert euc-jp resource file in Tk sample to utf-8
The sample program assumes the file to be encoded in utf-8
0253189898/ext/tk/sample/tkoptdb.rb (L15-L17)
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@53358 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
This commit is contained in:
parent
672fe8315d
commit
67a886cedd
@ -1,13 +1,13 @@
|
|||||||
!
|
!
|
||||||
! see Tcl/Tk's "options" manual for "Database Name" and "Database Class"
|
! see Tcl/Tk's "options" manual for "Database Name" and "Database Class"
|
||||||
!
|
!
|
||||||
*BtnFrame.borderWidth: 5
|
*BtnFrame.borderWidth: 5
|
||||||
*BtnFrame.relief: ridge
|
*BtnFrame.relief: ridge
|
||||||
*BtnFrame.Button.background: wheat
|
*BtnFrame.Button.background: wheat
|
||||||
*BtnFrame.Button.foreground: red
|
*BtnFrame.Button.foreground: red
|
||||||
*hello.text: こんにちは
|
*hello.text: こんにちは
|
||||||
*quit.text: 終了
|
*quit.text: 終了
|
||||||
*BTN_CMD.show_msg: {|arg| print "($SAFE=#{$SAFE} >>>) ";\
|
*BTN_CMD.show_msg: {|arg| print "($SAFE=#{$SAFE} >>>) ";\
|
||||||
print "こんにちは!! #{arg} のサンプルです.";\
|
print "こんにちは!! #{arg} のサンプルです.";\
|
||||||
print "(<<< $SAFE=#{$SAFE})\n"}
|
print "(<<< $SAFE=#{$SAFE})\n"}
|
||||||
*BTN_CMD.bye_msg: {print "($SAFE=#{$SAFE} >>>) さようなら.(<<< $SAFE=#{$SAFE})\n"}
|
*BTN_CMD.bye_msg: {print "($SAFE=#{$SAFE} >>>) さようなら.(<<< $SAFE=#{$SAFE})\n"}
|
||||||
|
Loading…
x
Reference in New Issue
Block a user