* tkcon.tcl (::tkcon::EvalSocketClosed): use tk_messageBox instead

        of tk_dialog

diff --git a/ChangeLog b/ChangeLog
index 444f6fa21ba5571c87868a163dbc7a3dee146288..f9a4a82e78b9569b593e89cde072f42f45813f65 100644 (file)
--- 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 fc0c50ae9f70cbc4a15a93fd7b79407c502c882c..6c4ac590121a92974c733f838f1ad19663057846 100755 (executable)
--- 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 {