- 1 名前：デフォルトの名無しさん mailto:sage [2007/05/01(火) 14:52:44 ]
- 【英語サイト】
プロジェクト本拠地
tcl.sourceforge.net/
最新版ソースコード
ftp://ftp.tcl.tk/pub/tcl/nightly-cvs/
The Tcler's Wiki
wiki.tcl.tk/
The comp.lang.tcl Newsgroup
groups.google.com/group/comp.lang.tcl/
ActiveTcl
www.activestate.com/products/activetcl/
【日本語サイト】
もっとTcl/Tk
www.interq.or.jp/japan/s-imai/tcltk/
Tcl/Tk Scripting Laboratory
www.geocities.jp/urano343/tcltk.html
Tcl/Tk Primer
mibai.tec.u-ryukyu.ac.jp/~oshiro/Doc/tcltk_primer/
Tcl 8.4.1 Manual Command Reference
www.freesoftnet.co.jp/tclkits/doc/TclCmdRef/tcl_contents_jp.htm
CategoryTclTk - mynote
reddog.s35.xrea.com/wiki/CategoryTclTk.html
【前スレ】
●●●●TCL/TKなら俺に聞け●●●●
pc11.2ch.net/test/read.cgi/tech/1033628416/
- 402 名前：デフォルトの名無しさん mailto:sage [2009/01/13(火) 00:08:38 ]
- すみません質問させて下さい。
以下のコードのように、プロシージャfooを作っておいて
複数のボタンをpackする作業をまとめたいと考えています。
proc foo {w msg} {
pack [button $w.$msg -text $msg -command {puts $msg}]
}
pack [frame .f]
foo .f "b1"
foo .f "b2"
ところがボタンを押してcommandを実行させると、
以下のエラーが出ます。
Error: can't read "msg": no such variable
ボタンを押したときにローカル変数msgを参照できていないということだと
思いますが、何か良い解決策はありませんか？
よろしくお願いします。
- 403 名前：402 mailto:sage [2009/01/13(火) 00:10:15 ]
- 使用環境を書き忘れました。
WindowsXPでActiveTcl8.5.4.0.286921-win32-ix86-threaded.exe
をインストールして使っています。
- 404 名前：デフォルトの名無しさん mailto:sage [2009/01/13(火) 00:30:21 ]
- -command "puts $msg"
- 405 名前：402 mailto:sage [2009/01/13(火) 00:56:06 ]
- >>404
できました！
"と{との違いを調べてきます。
早速の回答ありがとうございます。
- 406 名前：デフォルトの名無しさん [2009/01/13(火) 12:59:47 ]
- >>402
{}の違いがポイントではなく、-command で指定するコマンドが関数の外で実行されることがポイントなのです。
msg変数は関数fooのローカル変数なので、関数の外で実行されるボタンのコマンドからは参照できません。
- 407 名前：デフォルトの名無しさん mailto:sage [2009/01/13(火) 21:28:04 ]
- >>404 ではないですが、もう少し補足しておきます
set msg AAA; pack [button .b -text PushMe -command "puts $msg"]
としておいて、ボタン.bを押すと当然、AAAとコンソールに表示されます。
続けて、set msg BBBとしてボタン.bを押してみて下さい。
コンソールにAAAと表示されますね？
これはどういうことかというと、
|
 |
