mirror of
https://github.com/ruby/ruby.git
synced 2022-11-09 12:17:21 -05:00
13 lines
427 B
Text
13 lines
427 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: <20><><EFBFBD><EFBFBD><EFBFBD>ˤ<EFBFBD><CBA4><EFBFBD>
|
|||
|
|
*quit.text: <20><>λ
|
|||
|
|
*BTN_CMD.show_msg: {|arg| print "($SAFE=#{$SAFE}) ";\
|
|||
|
|
print "<22><><EFBFBD><EFBFBD><EFBFBD>ˤ<EFBFBD><CBA4>ϡ<EFBFBD><CFA1><EFBFBD> #{arg} <20>Υ<EFBFBD><CEA5><EFBFBD><EFBFBD>ץ<EFBFBD><D7A5>Ǥ<EFBFBD><C7A4><EFBFBD>\n"}
|
|||
|
|
*BTN_CMD.bye_msg: {print "($SAFE=#{$SAFE}) <20><><EFBFBD>褦<EFBFBD>ʤ顥\n"}
|