[mcclim-cvs] CVS mcclim

[thenriksen]

Update of /project/mcclim/cvsroot/mcclim
In directory clnet:/tmp/cvs-serv25584

Modified Files:
	presentation-defs.lisp 
Log Message:
Changed `highlight-current-presentation' to use its provided frame and
input-context, instead of `*application-frame*' and `*input-context*'.


--- /project/mcclim/cvsroot/mcclim/presentation-defs.lisp	2007/11/19 21:10:40	1.72
+++ /project/mcclim/cvsroot/mcclim/presentation-defs.lisp	2007/11/19 22:14:05	1.73
@@ -794,10 +794,10 @@
 						 (port
 						  *application-frame*)))))
     (when event
-      (frame-input-context-track-pointer *application-frame*
-				       *input-context*
-				       (event-sheet event)
-				       event))))
+      (frame-input-context-track-pointer frame
+                                         input-context
+                                         (event-sheet event)
+                                         event))))
 
 (defmacro with-input-context ((type &key override)
 			      (&optional (object-var (gensym))