1!
2!  see Tcl/Tk's "options" manual for "Database Name" and "Database Class"
3!
4*BtnFrame.borderWidth: 5
5*BtnFrame.relief: ridge
6*BtnFrame.Button.background: wheat
7*BtnFrame.Button.foreground: red
8*hello.text: ����ˤ���
9*quit.text: ��λ
10*BTN_CMD.show_msg: {|arg| print "($SAFE=#{$SAFE} >>>) ";\
11                          print "����ˤ��ϡ��� #{arg} �Υ���ץ�Ǥ���";\
12                          print "(<<< $SAFE=#{$SAFE})\n"}
13*BTN_CMD.bye_msg:  {print "($SAFE=#{$SAFE} >>>) ���褦�ʤ顥(<<< $SAFE=#{$SAFE})\n"}
14