blob: a61390f95db7011c221e4ace30808ec89e712d40 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
!
! 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} ¤Î¥µ¥ó¥×¥ë¤Ç¤¹¡¥";\
print "(<<< $SAFE=#{$SAFE})\n"}
*BTN_CMD.bye_msg: {print "($SAFE=#{$SAFE} >>>) ¤µ¤è¤¦¤Ê¤é¡¥(<<< $SAFE=#{$SAFE})\n"}
|
