如果设置了有效的x显示，如何检查TCL

Question

在c ++代码中，我们可以使用以下代码检查是否已设置有效的x显示

if (!XOpenDisplay(NULL)) {
}

如果设置了有效的x显示，如何检查TCL。什么是TCL中上述代码的等效代码。

Answer 1

最简单的方法是查看package require Tk是否失败。唉，这也可能因其他原因而失败，但即便如此。

if {[catch {package require Tk} msg]} {
    puts stderr "No DISPLAY or PATH problem: $msg"
    exit 1
}