Tcl/Tk 複数の オプションメニュー が 選択できない

Question

このサイトの【サンプルダウンロード】にあるTcl/Tkの
サンプルコードを参考に作成しています
(詳細は Tk - Tcl/Tk)

問題点

どちらか 一方のオプションメニューを 選択すると
他の方も 同じ値が表示されてしまいます

3時間ほど 調べましたが 解決策が 見つかりません
どこに問題があるのでしょうか？

ご教示 お願い致します

run.vbs

CreateObject("WScript.Shell").Run "cmd /q /c ""cd app & ...\bin\wish86t .\Select_test.tcl""",0

Select_test.tcl

array set style {
	bg #FF55DD 
	txtWidth 62
	btnFont {"Meiryo UI" 11}
}

wm title . 選択画面
set winsize {200 100}
wm minsize . [lindex $winsize 0] [lindex $winsize 1]
wm maxsize . [lindex $winsize 0] [lindex $winsize 1]
wm resizable . false false
option add *font $style(btnFont)
. configure -bg $style(bg)


label  .select_1 -text "果物 "
set var1 {--- みかん バナナ りんご メロン}
eval tk_optionMenu .menu_1 globVar $var1
grid .select_1 -row 0 -column 0 -sticky w
grid .menu_1 -row 0 -column 1


label  .select_2 -text "野菜 "
set var2 {--- レタス 人参 ジャガイモ キュウリ}
eval tk_optionMenu .menu_2 globVar $var2
grid .select_2 -row 2 -column 0 -sticky w
grid .menu_2 -row 2 -column 1

1: Tcl/Tk配布ページからtcltk86t.zipをダウンロードして解凍し、binフォルダに入っているwish86t.exeとtk86t.dllをTk-TclTk\libフォルダ (Tk-TclTk\binフォルダ)に移動します。

Answer 1

どちらか 一方のオプションメニューを 選択すると

他の方も 同じ値が表示されてしまいます

原因: 選択された値を保持する変数 globVar を共有している為です。
解決策: 別の名前にしてみましょう

tk_optionMenu document

tk_optionMenu w varName value ?value value …?

w はウィジェットのパス、varNameが選択結果の変数、と別々に管理されている為
別々のウィジェット(.menu_1, .menu_2) で同じ値 (globVar) になります。

Comments

[Helloc]

解決いたしました！
ありがとうございます！