如何在TCL中检查是否设置了有效的x显示

how to check in TCL if valid x display has been set

本文关键字:有效 显示 设置 是否 TCL 检查      更新时间:2023-10-16

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

if (!XOpenDisplay(NULL)) {
}

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

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

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