From 06afd464c60fe3dab96b1afc585edd3eb1a2ad03 Mon Sep 17 00:00:00 2001 From: Jeff Hobbs Date: Wed, 5 Nov 2003 02:54:55 +0000 Subject: [PATCH] * tkcon.tcl (::tkcon::EvalSocketClosed): use tk_messageBox instead of tk_dialog --- ChangeLog | 5 +++++ tkcon.tcl | 7 ++++--- 2 files changed, 9 insertions(+), 3 deletions(-) diff --git a/ChangeLog b/ChangeLog index 444f6fa..f9a4a82 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2003-11-04 Jeff Hobbs + + * tkcon.tcl (::tkcon::EvalSocketClosed): use tk_messageBox instead + of tk_dialog + 2003-10-06 Jeff Hobbs * tkcon.tcl (dir): use %9ld instead of %9d to support large files diff --git a/tkcon.tcl b/tkcon.tcl index fc0c50a..6c4ac59 100755 --- a/tkcon.tcl +++ b/tkcon.tcl @@ -942,9 +942,10 @@ proc ::tkcon::EvalSocketClosed {} { catch {close $PRIV(app)} if {[string compare leave $OPT(dead)] && \ ([string match ignore $OPT(dead)] || \ - [tk_dialog $PRIV(base).dead "Dead Attachment" \ - "\"$PRIV(app)\" appears to have died.\ - \nReturn to primary slave interpreter?" questhead 0 OK No])} { + [tk_messageBox -title "Dead Attachment" -type yesno \ + -icon question \ + -message "\"$PRIV(app)\" appears to have died.\ + \nReturn to primary slave interpreter?"] == "no")} { set PRIV(appname) "DEAD:$PRIV(appname)" set PRIV(deadapp) 1 } else { -- 2.23.0