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