From: Jeff Hobbs <hobbs@users.sourceforge.net>
Date: Wed, 5 Nov 2003 02:54:55 +0000 (+0000)
Subject:         * tkcon.tcl (::tkcon::EvalSocketClosed): use tk_messageBox instead
X-Git-Tag: tkcon-2-4~16
X-Git-Url: http://privyetmir.co.uk/gitweb?a=commitdiff_plain;h=06afd464c60fe3dab96b1afc585edd3eb1a2ad03;p=tkcon

    * tkcon.tcl (::tkcon::EvalSocketClosed): use tk_messageBox instead
        of tk_dialog
---

diff --git a/ChangeLog b/ChangeLog
index 444f6fa..f9a4a82 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2003-11-04  Jeff Hobbs  <jeffh@ActiveState.com>
+
+	* tkcon.tcl (::tkcon::EvalSocketClosed): use tk_messageBox instead
+	of tk_dialog
+
 2003-10-06  Jeff Hobbs  <jeffh@ActiveState.com>
 
 	* 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 {