blob: 29bd587ea2e11eed7e405c8cf8e01b564cd34b35 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
|
#
# 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: HELLO
*quit.text: QUIT
*BTN_CMD.show_msg: {|arg| print "($SAFE=#{$SAFE}) ";\
print "Hello!! This is a sample of #{arg}.\n"}
*BTN_CMD.bye_msg: {print "($SAFE=#{$SAFE}) Good-bye¡¥\n"}
|