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