[snow-cvs] r22 - trunk/src/lisp/snow/swing

[Alessio Stalla]

Author: astalla
Date: Fri Nov 20 19:14:02 2009
New Revision: 22

Log:
Fixed missing propagation of dynamic environment


Modified:
   trunk/src/lisp/snow/swing/swing.lisp

Modified: trunk/src/lisp/snow/swing/swing.lisp
==============================================================================
--- trunk/src/lisp/snow/swing/swing.lisp	(original)
+++ trunk/src/lisp/snow/swing/swing.lisp	Fri Nov 20 19:14:02 2009
@@ -40,12 +40,12 @@
 
 (defun make-action-listener (obj)
   (if (or (functionp obj) (symbolp obj))
-      (let ((debugger-hook *debugger-hook*))
-	(jmake-proxy "java.awt.event.ActionListener"
-		     (let ((env snow::*dynamic-environment*))
-		       (lambda (this method-name event)
-			 (declare (ignore this method-name))
-			 (snow::with-dynamic-environment (env)
+      (jmake-proxy "java.awt.event.ActionListener"
+		   (let ((env snow::*dynamic-environment*))
+		     (lambda (this method-name event)
+		       (declare (ignore this method-name))
+		       (snow::with-dynamic-environment (env)
+			 (let ((snow::*dynamic-environment* env))
 			   (funcall obj event))))))
       obj)) ;This allows to use a native Java action listener