Tcl/Tk 画面が表示されないなど

Question

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

実装したいことは
run.vbsから Select_test.tclを起動して
[実行]ボタンが押され "終了"を検知するか、globVar1が "---"以外に 選択されるのを
run.vbs側が 検知したいのですが 画面が 表示されません

Select_test.tclの while分を 削除すると 表示されるのですが どうしてなのか 解りません

ご教示 お願い致します

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

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

run.vbs

CreateObject("WScript.Shell").Run "cmd /q /c ""cd app & ...\bin\wish86t .\Select_test.tcl""",0,false
ret = WScript.StdIn.ReadLine
do while ((ret = "") or (ret = "未選択"))
   wscript.sleep(100) 
   ret = wscript.StdIn.WScript.StdIn.ReadLine
loop
Msgbox (ret + " "+ "終了です")

Select_test.tcl

proc BuildGUI {} {
    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 globVar1 $var1
    grid .select_1 -row 0 -column 0 -sticky w
    grid .menu_1 -row 0 -column 1
    set globVar1 "---"

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

    button .btn -text "実行" -command stop
    grid .btn  -row 3 -column 0 -sticky w
}
proc stop { } {
    puts "終了"
    exit
}

proc Wait { } {
     global  globVar1
     while {1} {
         if {$globVar1 != "---"} {
             break
         }
     }
     puts $globVar1
}
BuildGUI
Wait

Answer 1

TCLの方、他言語で 書き直しました

またVBSでは Runではなく Execで 解決しました