Clisp and x11:*

Nicolas et Ryoko nicolas.pelletier3 at wanadoo.fr
Sat Aug 30 11:35:25 PDT 2003


Brian T Rice <water at tunes.org> writes:

> Okay,  I've just  committed  the  fixes to  get  the X11  primitives
> loaded.  Sorry that it took me a while to pay attention to it. Also,
> I haven't tested them yet. Feel free to poke around. :)

With the latest  cvs, there were remaining problems  with x11.lisp: it
would not  load because  of several little  errors (maybe  a forgotten
commit ?)

Here is what I did to get x11.lisp to load smoothly.

-- 
Nicolas

-------------- next part --------------
Index: x11.lisp
===================================================================
RCS file: /var/lib/cvs/slate/slate/x11.lisp,v
retrieving revision 1.3
diff -u -r1.3 x11.lisp
--- x11.lisp	29 Aug 2003 03:57:47 -0000	1.3
+++ x11.lisp	30 Aug 2003 18:16:34 -0000
@@ -21,7 +21,7 @@
 	 , at parent-slots)
        (define-object ,proto-sym
 	 (traits t ,traits-sym))
-       (add-slot *namespace-X11* ,proto-name nil ,(intern proto-sym)))))
+       (add-slot *namespace-X11* (intern ,basic-name) nil ,proto-sym))))
 
 (define-xtraits "Display")
 (define-xtraits "Screen")
@@ -98,7 +98,7 @@
   (xlib:screen-width screen))
 
 (define-method "depth" ((screen *traits-screen*))
-  (xlib:screen-depth screen))
+  (xlib:screen-depths screen))
 
 (define-method "rootDepth" ((screen *traits-screen*))
   (xlib:screen-root-depth screen))
@@ -136,17 +136,18 @@
 (define-method "y" ((drawable *traits-drawable*))
   (xlib:drawable-y drawable))
 
-(define-method "width:" ((drawable *traits-drawable*))
-  (setf (xlib:drawable-width drawable)))
+(define-method "width:" ((drawable *traits-drawable*) (width *traits-number*))
+  (setf (xlib:drawable-width drawable) width))
 
-(define-method "height:" ((drawable *traits-drawable*))
-  (setf (xlib:drawable-height drawable)))
+(define-method "height:" ((drawable *traits-drawable*)
+			  (height *traits-number*))
+  (setf (xlib:drawable-height drawable) height))
 
-(define-method "x:" ((drawable *traits-drawable*))
-  (setf (xlib:drawable-x drawable)))
+(define-method "x:" ((drawable *traits-drawable*) (point *traits-number*))
+  (setf (xlib:drawable-x drawable) point))
 
-(define-method "y:" ((drawable *traits-drawable*))
-  (setf (xlib:drawable-y drawable)))
+(define-method "y:" ((drawable *traits-drawable*) (point *traits-number*))
+  (setf (xlib:drawable-y drawable) point))
 
 ;Window
 


More information about the Slate mailing list