13 lines
427 B
Plaintext
13 lines
427 B
Plaintext
!
|
|
! 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} のサンプルです.\n"}
|
|
*BTN_CMD.bye_msg: {print "($SAFE=#{$SAFE}) さようなら.\n"}
|