Update of /project/beirc/cvsroot/beirc In directory clnet:/tmp/cvs-serv26336

Modified Files: application.lisp Log Message: fix frame-input-context-button-press-handler for non-presentation clicks.

--- /project/beirc/cvsroot/beirc/application.lisp 2006/03/06 10:21:27 1.49 +++ /project/beirc/cvsroot/beirc/application.lisp 2006/03/06 10:25:00 1.50 @@ -827,29 +827,30 @@ (y (pointer-event-y event)) (window (event-sheet event)) (presentation (frame-find-innermost-applicable-presentation frame *input-context* stream x y :event event))) - (multiple-value-bind (p translator context) - (climi::find-innermost-presentation-match *input-context* - presentation - *application-frame* - (event-sheet event) - x y - event - 0 - nil) - (when p - (multiple-value-bind (object ptype options) - (call-presentation-translator translator - p - (input-context-type context) - *application-frame* - event - window - x y) - (declare (ignore object options)) - (when (and ptype (presentation-subtypep ptype 'command) - (boundp '*current-input-stream*) *current-input-stream*) - (restart-case (signal 'invoked-command-by-clicking) - (acknowledged ()))))))) + (when presentation + (multiple-value-bind (p translator context) + (climi::find-innermost-presentation-match *input-context* + presentation + *application-frame* + (event-sheet event) + x y + event + 0 + nil) + (when p + (multiple-value-bind (object ptype options) + (call-presentation-translator translator + p + (input-context-type context) + *application-frame* + event + window + x y) + (declare (ignore object options)) + (when (and ptype (presentation-subtypep ptype 'command) + (boundp '*current-input-stream*) *current-input-stream*) + (restart-case (signal 'invoked-command-by-clicking) + (acknowledged ())))))))) (call-next-method))

(defmethod read-frame-command ((frame beirc) &key (stream *standard-input*))