Update of /project/mcclim/cvsroot/mcclim In directory common-lisp.net:/tmp/cvs-serv25133
Modified Files: text-selection.lisp Log Message: encouraged by IRC feedback, commit fixes from conversation with myself on mcclim-devel regarding ICCCM X compliance in the SetInputFocus and selection ownership areas.
Date: Thu Feb 10 10:54:26 2005 Author: crhodes
Index: mcclim/text-selection.lisp diff -u mcclim/text-selection.lisp:1.2 mcclim/text-selection.lisp:1.3 --- mcclim/text-selection.lisp:1.2 Sun Jan 2 06:31:32 2005 +++ mcclim/text-selection.lisp Thu Feb 10 10:54:26 2005 @@ -243,9 +243,8 @@ (make-instance 'selection-clear-event :sheet owner :selection :primary)))) - (bind-selection (port pane) pane (event-timestamp event)) - ;; FIXME: check that we get it ... (how?) - (setf (selection-owner (port pane)) pane) + (when (bind-selection (port pane) pane (event-timestamp event)) + (setf (selection-owner (port pane)) pane)) ;; )))