TCL / TK如何在for循環中生成組合框/按鈕並調用函數？

Question

我想在for循環中生成幾個組合框和按鈕，而button命令將調用該函數並檢查組合框的內容，如何獲取變量“ com $ num”並傳遞給“ get_optimizer”函數？ 如何更正以下腳本？ 請幫助，謝謝！

set num 1
foreach SQ {1 2 3 4 5} {
    ttk::combobox $twind.frame.dpcom$num -textvariable com$num -values {Global Definitive Adaptive Cmaes} 
    button $twind.frame.but$num -text "Optimizer Setting" -command [list get_optimizer]
    grid $twind.frame.dpcom$num -row $num -column 0
    grid $twind.frame.but$num   -row $num -column 1
    incr num}

proc get_optimizer {} {
    global [set com$num]
    if {[set com$num]=='Global'} { 
            ...
        } elseif {[set com$num]=='Definitive'} {
            ...
        } elseif {...} {
            ...}
        ...
    }

Answer 1

您應該將變量的全名傳遞給get_optimizer ，並使用upvar #0在過程內部指定一個固定的本地別名。

    # backslash-newline for readability only
    button $twind.frame.but$num -text "Optimizer Setting" \
            -command [list get_optimizer com$num]

proc get_optimizer {varname} {
    upvar #0 $varname theVar
    if {$theVar=='Global'} { 
        ...
    } elseif {$theVar=='Definitive'} {
        ...
    } elseif {...} {
        ...
    }
    ...
}

同樣，使用eq運算符進行字符串相等更有效。 並考慮使用數組（例如， com(1)而不是com1 ）是否更好。

Answer 2

采用

global com$num

（例如，給您全局com1）

代替

global [set com$num]

（例如，為您提供全局權威性）