diff --git a/build.tk b/build.tk index 45ad48f7..f34c788e 100755 --- a/build.tk +++ b/build.tk @@ -53,7 +53,7 @@ proc SetConfigDefaults {} { # Pops up an error dialog; then calls exit. #*********************************************************************** proc Bail { msg } { - tk_dialog .err "Remind Configuration Error" $msg error 0 "Bummer" + tk_messageBox -message "Remind Build Error" -detail $msg -icon error -type ok exit 1 } diff --git a/docs/README.UNIX b/docs/README.UNIX index b5cbadec..5482308b 100644 --- a/docs/README.UNIX +++ b/docs/README.UNIX @@ -95,7 +95,7 @@ Norman Walsh. #!/usr/local/bin/wish wm withdraw . after 15000 { destroy . ; exit } -tk_dialog .d { Message } $argv warning 0 { OK } +tk_messageBox -message Message -detail $argv -icon info -type ok destroy . exit -------------- Cut Here ---------- Cut Here ---------- Cut Here -------------