Простой диалог ошибок Tcl / wish - PullRequest
1 голос
/ 08 апреля 2011

Я пишу Perl-скрипт, который будет вызываться родительской программой пожеланий.(Я не могу изменить вызывающую программу желаний.) Желаемая программа захватывает стандартный вывод из дочернего сценария, но игнорирует возвращаемый статус и стандартный вывод.

Так что, если мой сценарий Perl обнаружит ошибку, я хочу вызватьпростой графический интерфейс, содержащий сообщение об ошибке.Поэтому я возился с некоторыми с желанием и получил следующее:

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

Но главное окно, созданное при желании, также появляется и сидит там неиспользованным и уродливым.Я не могу понять, как спрятать, уничтожить или заменить это главное окно.И я пока не знаю достаточно желаний, чтобы легко сделать что-то настолько красивое в главном окне с отдельными виджетами.

Как я могу просто отобразить простое окно с графическим интерфейсом, используя либо желание, либо любой другой инструментможет быть установлен на большинство коробок Unix с X Windows?

1 Ответ

4 голосов
/ 08 апреля 2011

Вы можете скрыть главное окно, добавив wm withdraw . в начале вашего скрипта:

echo 'wm withdraw . ; tk_dialog .d "Error" "Something bad happened." error 0 "Close"; exit' | wish
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...