mirror of
https://github.com/ruby/ruby.git
synced 2022-11-09 12:17:21 -05:00
67a886cedd
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
13 lines
543 B
Text
13 lines
543 B
Text
!
|
|
! see Tcl/Tk's "options" manual for "Database Name" and "Database Class"
|
|
!
|
|
*BtnFrame.borderWidth: 5
|
|
*BtnFrame.relief: ridge
|
|
*BtnFrame.Button.background: wheat
|
|
*BtnFrame.Button.foreground: red
|
|
*hello.text: こんにちは
|
|
*quit.text: 終了
|
|
*BTN_CMD.show_msg: {|arg| print "($SAFE=#{$SAFE} >>>) ";\
|
|
print "こんにちは！！ #{arg} のサンプルです．";\
|
|
print "(<<< $SAFE=#{$SAFE})\n"}
|
|
*BTN_CMD.bye_msg: {print "($SAFE=#{$SAFE} >>>) さようなら．(<<< $SAFE=#{$SAFE})\n"}
|