2003-07-31 19:04:45 -04:00
|
|
|
|
!
|
|
|
|
|
! see Tcl/Tk's "options" manual for "Database Name" and "Database Class"
|
|
|
|
|
!
|
2003-06-24 12:46:07 -04:00
|
|
|
|
*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><>λ
|
2003-09-07 03:10:44 -04:00
|
|
|
|
*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>";\
|
|
|
|
|
print "(<<< $SAFE=#{$SAFE})\n"}
|
|
|
|
|
*BTN_CMD.bye_msg: {print "($SAFE=#{$SAFE} >>>) <20><><EFBFBD>褦<EFBFBD>ʤ顥(<<< $SAFE=#{$SAFE})\n"}
|