diff options
author | nagai <nagai@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2003-06-24 16:46:07 +0000 |
---|---|---|
committer | nagai <nagai@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2003-06-24 16:46:07 +0000 |
commit | 17e1936d8bdd897cebd03ed198a826ee395572ac (patch) | |
tree | c911d2fd21b63dfccc1610f3afdc023233b50e2f /ext/tk/sample/resource.en | |
parent | b60ba5942968e782cfc407385e175c449924f1d7 (diff) |
tk.rb :
* TkToplevel, TkFrame, TkPanedwindow, TkOptionDB : bug fix
* TkOptionDB : make it more secure to use procs defined on resourceDB
sample/tkoptdb.rb, sample/resource.ja, sample/resource.en :
* sample script how to use TkOptionDB.
resource.ja and resource.en are samples of resource definition file
which are read by tkoptdb.rb.
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@3998 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
Diffstat (limited to 'ext/tk/sample/resource.en')
-rw-r--r-- | ext/tk/sample/resource.en | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/ext/tk/sample/resource.en b/ext/tk/sample/resource.en new file mode 100644 index 0000000000..29bd587ea2 --- /dev/null +++ b/ext/tk/sample/resource.en @@ -0,0 +1,12 @@ +# +# 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: HELLO +*quit.text: QUIT +*BTN_CMD.show_msg: {|arg| print "($SAFE=#{$SAFE}) ";\ + print "Hello!! This is a sample of #{arg}.\n"} +*BTN_CMD.bye_msg: {print "($SAFE=#{$SAFE}) Good-bye¡¥\n"} |