作者: Koichi Yamamoto
日時: 2002/5/9(23:54)
こんにちは、山本です。

"midorinoekko@... (緑の ekko)"さんは書きました:
> Misumi Urano writes:
> 
> > ちなみにUNIX環境では発生しないようです。山本さんのおっしゃる
> > ように、Windows版での問題ということですね。
> 
> Redhat 6.0 TclPro V1.4 では同じ現象がでます。というか、こちらで指摘
> されて Windows でも同じだと思ったわけです。
> 
> 最新のtkでは改善されているのでしょうか?

私はWindowsXPを使っていますけど、Tcl/Tk8.4a5(CVS版)でも当現象は
発生したりしなかったりします。試しに、次のようなスクリプトを作って
チェックボタンがどういうシーケンスで押されているのか調べようと
したのですが、このスクリプトを動かしているときは現象が再現しなくて
困っています。(--;
明日、職場にあるKondara MNU/Linuxらしきもの(PS2Linux)とWindows2000で
調べてみます。

for {set i 0} {$i < 10} {incr i} {
set w {}
for {set j 0} {$j < 10} {incr j} {
lappend w [checkbutton .cb$i$j -text $i$j]
}
eval grid $w
}
grid [button .b -text {choose file...} -command tk_getOpenFile]
if [string compare $tcl_platform(platform) unix] {console show}
rename tkButtonUp tkButtonUp.bak
proc tkButtonUp w {
puts "tkButtonUp $w"
uplevel tkButtonUp.bak $w
}
rename tkCheckRadioDown tkCheckRadioDown.bak
proc tkCheckRadioDown w {
puts "tkCheckRadioDown $w"
uplevel tkCheckRadioDown.bak $w
}

--
Koichi Yamamoto, 
http://www3.ocn.ne.jp/~yamako/