c++ - 如果设置了有效的 x 显示，如何在 TCL 中检查

Question

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

if (!XOpenDisplay(NULL)) {
}

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

Answer 1

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

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