[mcclim-cvs] CVS update: mcclim/text-selection.lisp

[Christophe Rhodes]

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