protocol bugs

--=-=-=

I don't know if these are news to maintainers of other trees, but it
would appear that there are bugs lurking in input.lisp in the telent
tree.

Attached fixes issues, exposed by clipboard.lisp printing random
compiler-internal structure rather than ":DELETED" :-)


--=-=-=
Content-Disposition: attachment; filename=input.diff
Content-Description: input fixes

Index: input.lisp
===================================================================
RCS file: /usr/local/src/cvs/clx/input.lisp,v
retrieving revision 1.7
diff -u -r1.7 input.lisp
--- input.lisp	29 May 2003 23:15:10 -0000	1.7
+++ input.lisp	11 Mar 2005 17:51:17 -0000
@@ -936,20 +936,20 @@
 (declare-event :circulate-notify
   (card16 sequence)
   (window event-window window parent)
-  ((member16 :top :bottom) place))
+  ((member8 :top :bottom) place))
 
 (declare-event :circulate-request
   (card16 sequence)
   (window (parent event-window) window)
   (pad16 1 2)
-  ((member16 :top :bottom) place))
+  ((member8 :top :bottom) place))
 
 (declare-event :property-notify
   (card16 sequence)
   (window (window event-window))
   (keyword atom) ;; keyword
   ((or null card32) time)
-  ((member16 :new-value :deleted) state))
+  ((member8 :new-value :deleted) state))
 
 (declare-event :selection-clear
   (card16 sequence)

--=-=-=


Cheers,

Christophe

--=-=-=--

_______________________________________________
Portable-clx mailing list
[email protected]
http://lists.metacircles.com/cgi-bin/mailman/listinfo/portable-clx
cvs -d :ext:cvs.telent.net:/usr/local/src/cvs co clx  # over ssh
cvs -d :pserver:[email protected]:/cvs co clx  # anonymous