简单的Tcl/wish错误对话框

Question

我正在编写一个Perl脚本，由父母希望程序调用。 （我无法更改调用的希望程序。）希望程序从子脚本捕获标准输出，但忽略返回状态和标准错误。

因此，如果我的Perl脚本遇到错误，我想弹出一个简单的GUI对话框，其中包含错误消息。所以我摆弄周围的一些与愿望，并得到了这一点，这很接近：

echo 'tk_dialog .d "Error" "Something bad happened." error 0 "Close"; exit' | wish 

但是当愿望开始也出现并坐在那里不使用的和丑陋的主窗口创建。我无法弄清楚如何隐藏，销毁或替换主窗口。而且我还不知道有足够的愿望，可以轻松地在个人窗口小部件的主窗口中轻松制作出如此精美的内容。

我怎样才能得到一个简单的GUI窗口出现，使用愿望或任何其他工具可能会被安装在大多数X Windows的Unix机器上？

Answer 1

您可以通过在你的脚本开始加入wm withdraw .隐藏主窗口：

echo 'wm withdraw . ; tk_dialog .d "Error" "Something bad happened." error 0 "Close"; exit' | wish