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))