🚀 go-pugleaf

植田＠かもめネットと申します。comp.lang.tcl の方にも投稿して
しまいましたので、両方読まれた方はご容赦ください。

　Tcl8.1a2/Tk8.1a2 を試したら、Segmentation Fault がバリバリ
出ます。FreeBSD-2.2.5R なんですが、次のようなスクリプトを
実行し、ボタンを押してファイルを選択すると、Segmentation Fault
でます。

------------------------------------
button .sourceB  -text "Browse"  -command {get_filename}
entry  .sourceE  -textvariable source
pack   .sourceE  .sourceB

proc get_filename {} {
    global source

    set tmpfile [tk_getOpenFile]
    set source  [file tail $tmpfile]
    puts "Filename is $source"
}
------------------------------------

　wish8.0 以前のものならば問題ないのですが...

　これは Tcl8.1a2/Tk8.1a2 のバグなんでしょうか？　それとも私が
Tcl8.1a2/Tk8.1a2 の変更された点を理解していないためなのでしょうか？

# 何だか自分の作った script がほとんど動かないんですけど... ;_;)。

--------------------------------------------------------------
植田裕之　<hueda@kamome.or.jp>