! ! 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"}