如何在TCL是否有效X顯示已設置

Question

在C++代碼中，我們可以使用下面的代碼，以檢查是否有效X顯示已設置

if (!XOpenDisplay(NULL)) { 
} 

如何在TCL是否有效X顯示有已設置。以上代碼在TCL中的等效代碼是什麼？

Answer 1

最簡單的方法是查看package require Tk是否失敗。唉，這也可能因其他原因而失敗，但即便如此。

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