From 3c4ad5062d65fbe491dfc1df680a540feacadcda Mon Sep 17 00:00:00 2001
From: nagai <nagai@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Thu, 1 Jul 2004 09:38:48 +0000
Subject: * ext/tk/lib/tcltklib : bug fix * ext/tk/lib/tk : bug fix and add
 Tcl/Tk extension support libraries

git-svn-id: http://svn.ruby-lang.org/repos/ruby/branches/ruby_1_8@6559 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
---
 ext/tcltklib/tcltklib.c | 12 ++++++++++++
 1 file changed, 12 insertions(+)

(limited to 'ext/tcltklib/tcltklib.c')

diff --git a/ext/tcltklib/tcltklib.c b/ext/tcltklib/tcltklib.c
index cb3826ba9..c68fe661e 100644
--- a/ext/tcltklib/tcltklib.c
+++ b/ext/tcltklib/tcltklib.c
@@ -1201,12 +1201,15 @@ ip_ruby_eval(clientData, interp, argc, argv)
 	rb_thread_critical = thr_crit_bup;
 
 	if (eclass == eTkCallbackReturn) {
+	    ip_set_exc_message(interp, res);
 	    return TCL_RETURN;
 
 	} else if (eclass == eTkCallbackBreak) {
+	    ip_set_exc_message(interp, res);
 	    return TCL_BREAK;
 
 	} else if (eclass == eTkCallbackContinue) {
+	    ip_set_exc_message(interp, res);
 	    return TCL_CONTINUE;
 
 	} else if (eclass == rb_eSystemExit) {
@@ -1239,12 +1242,15 @@ ip_ruby_eval(clientData, interp, argc, argv)
 	    }
 
 	    if (SYM2ID(reason) == ID_return) {
+		ip_set_exc_message(interp, res);
 		return TCL_RETURN;
 
 	    } else if (SYM2ID(reason) == ID_break) {
+		ip_set_exc_message(interp, res);
 		return TCL_BREAK;
 
 	    } else if (SYM2ID(reason) == ID_next) {
+		ip_set_exc_message(interp, res);
 		return TCL_CONTINUE;
 
 	    } else {
@@ -1572,12 +1578,15 @@ ip_ruby_cmd(clientData, interp, argc, argv)
 	rb_thread_critical = thr_crit_bup;
 
 	if (eclass == eTkCallbackReturn) {
+	    ip_set_exc_message(interp, res);
 	    return TCL_RETURN;
 
 	} else if (eclass == eTkCallbackBreak) {
+	    ip_set_exc_message(interp, res);
 	    return TCL_BREAK;
 
 	} else if (eclass == eTkCallbackContinue) {
+	    ip_set_exc_message(interp, res);
 	    return TCL_CONTINUE;
 
 	} else if (eclass == rb_eSystemExit) {
@@ -1609,12 +1618,15 @@ ip_ruby_cmd(clientData, interp, argc, argv)
 	    }
 
 	    if (SYM2ID(reason) == ID_return) {
+		ip_set_exc_message(interp, res);
 		return TCL_RETURN;
 
 	    } else if (SYM2ID(reason) == ID_break) {
+		ip_set_exc_message(interp, res);
 		return TCL_BREAK;
 
 	    } else if (SYM2ID(reason) == ID_next) {
+		ip_set_exc_message(interp, res);
 		return TCL_CONTINUE;
 
 	    } else {
-- 
cgit