[cells-cvs] CVS update: cell-cultures/cello/ix-styled.lisp cell-cultures/cello/window-callbacks.lisp cell-cultures/cello/window.lisp cell-cultures/cello/wm-mouse.lisp

Kenny Tilton ktilton at common-lisp.net
Fri Apr 8 09:11:08 UTC 2005


Update of /project/cells/cvsroot/cell-cultures/cello
In directory common-lisp.net:/tmp/cvs-serv12564/cello

Modified Files:
	ix-styled.lisp window-callbacks.lisp window.lisp wm-mouse.lisp 
Log Message:
Cello cleanup, but mostly "removing" ffi-extender, which really lives on as the "hello-c" package
Date: Fri Apr  8 11:11:07 2005
Author: ktilton

Index: cell-cultures/cello/ix-styled.lisp
diff -u cell-cultures/cello/ix-styled.lisp:1.4 cell-cultures/cello/ix-styled.lisp:1.5
--- cell-cultures/cello/ix-styled.lisp:1.4	Thu Oct 28 02:08:56 2004
+++ cell-cultures/cello/ix-styled.lisp	Fri Apr  8 11:11:07 2005
@@ -118,7 +118,8 @@
      (unless (ftgl::ftgl-disp-ready-p font)
        (setf (ftgl::ftgl-disp-ready-p font) t)
        (fgc-set-face-size (ftgl-ensure-ifont font) 
-         (ftgl::ftgl-size font) (ftgl::ftgl-target-res font))))))
+         (ftgl::ftgl-size font) (ftgl::ftgl-target-res font)))
+     (ix-string-width self (^display-text$)))))
 
 (defmethod make-style-font ((style gui-style-glut-stroke))
   (make-font-glut-stroke


Index: cell-cultures/cello/window-callbacks.lisp
diff -u cell-cultures/cello/window-callbacks.lisp:1.4 cell-cultures/cello/window-callbacks.lisp:1.5
--- cell-cultures/cello/window-callbacks.lisp:1.4	Fri Oct 15 05:37:21 2004
+++ cell-cultures/cello/window-callbacks.lisp	Fri Apr  8 11:11:07 2005
@@ -24,7 +24,9 @@
 
 (defmacro def-window-callback (fn-name args &body body)
   `(ff-defun-callable :cdecl :void ,fn-name ,args
-     (window-callback ',fn-name (lambda ,args , at body) , at args)))
+     (window-callback ',fn-name
+       (lambda ,(mapcar 'car args) , at body)
+       ,@(mapcar 'car args))))
 
 (defun window-callback (fn-name callback &rest args)
   (declare (ignorable fn-name))
@@ -51,7 +53,7 @@
                 (w-post-redisplay *w*)))
           (apply callback args))))))
 
-(def-window-callback mgwkey (k x y)
+(def-window-callback mgwkey ((k :int)(x :int)(y :int))
   (trc "mgwkey" k x y (glutgetwindow))
   (bwhen (w *w*)
     (trc nil "mgwkey" k x y w)
@@ -62,7 +64,7 @@
         (code-char (logand k #xff))
         (mk-os-event mods (mkv2 x y))))))
 
-(def-window-callback mgw-special (k x y)
+(def-window-callback mgw-special ((k :int)(x :int)(y :int))
   (trc nil "mgwspecial" k x y (glutgetwindow))
   (bwhen (w *w*)
     (trc nil "mgwspecial" k x y w)
@@ -118,7 +120,7 @@
     (setf (kids *sys*) (remove *w* (kids *sys*)))
     (trc nil "closed ~a" *w*)))
 
-(def-window-callback mg-glut-reshape (x y)
+(def-window-callback mg-glut-reshape ((x :int)(y :int))
   (unless (or (null *w*)(zerop x) (zerop y)(self-sizing *w*))
     (trc nil "mg-glut-reshape entry" (mg-window-current t) x y)
     (mg-window-reshape *w* x y)))


Index: cell-cultures/cello/window.lisp
diff -u cell-cultures/cello/window.lisp:1.5 cell-cultures/cello/window.lisp:1.6
--- cell-cultures/cello/window.lisp:1.5	Thu Oct 28 02:08:56 2004
+++ cell-cultures/cello/window.lisp	Fri Apr  8 11:11:07 2005
@@ -79,7 +79,6 @@
      :initform 0
      :accessor gl-name-highest))
   (:default-initargs
-      :px 0 :py 0
       :kids (c? (the-kids (^content)) #+not (the-kids
                  (mk-part :wstuff (ix-kid-sized)
                     :px 0 :py (c? (bif (n (nsib))


Index: cell-cultures/cello/wm-mouse.lisp
diff -u cell-cultures/cello/wm-mouse.lisp:1.1 cell-cultures/cello/wm-mouse.lisp:1.2
--- cell-cultures/cello/wm-mouse.lisp:1.1	Sat Jun 26 20:38:33 2004
+++ cell-cultures/cello/wm-mouse.lisp	Fri Apr  8 11:11:07 2005
@@ -98,7 +98,7 @@
 
 (defparameter *mouse-where* nil)
 
-(def-window-callback mg-motion-callback (x y)
+(def-window-callback mg-motion-callback ((x :int)(y :int))
   (let ((w (mg-window-current t))
         (where (mkv2 (scr2log x)
                  (scr2log (- y)))))
@@ -117,7 +117,7 @@
           )))))
 
 
-(def-window-callback mg-passive-motion-callback (x y)
+(def-window-callback mg-passive-motion-callback ((x :int)(y :int))
   (let ((w (mg-window-current t)))
       (let ((where (mkv2 (scr2log x)
                      (scr2log (- y)))))
@@ -134,7 +134,7 @@
               (setf (mouse-pos w) where)))))))
 
 
-(def-window-callback mg-mouse-callback (button up-or-down x y)
+(def-window-callback mg-mouse-callback ((button :int)(up-or-down :int)(x :int)(y :int))
   (trc nil "mouse callback entry" button up-or-down x y)
   (let ((w (mg-window-current t))
         (mp (mkv2 (scr2log x)




More information about the Cells-cvs mailing list