[cells-cvs] CVS cells/gui-geometry

ktilton ktilton at common-lisp.net
Tue Jun 13 05:05:17 UTC 2006


Update of /project/cells/cvsroot/cells/gui-geometry
In directory clnet:/tmp/cvs-serv7503/gui-geometry

Modified Files:
	geometer.lisp 
Log Message:
Mostly make ephemerals more transparent by always rerunning rules of dependents. This is actually a bug fix, at some profound level of understanding beyond me.

--- /project/cells/cvsroot/cells/gui-geometry/geometer.lisp	2006/06/05 00:01:22	1.2
+++ /project/cells/cvsroot/cells/gui-geometry/geometer.lisp	2006/06/13 05:05:17	1.3
@@ -199,17 +199,17 @@
 
 ;;-----------------------------------------------
 
-(defun inset-width (image)
-   (- (l-width image) (outset image) (outset image)))
+(defun inset-width (self)
+   (- (l-width self) (outset self) (outset self)))
 
-(defun inset-lr (image)
-   (- (lr image) (outset image)))
+(defun inset-lr (self)
+   (- (lr self) (outset self)))
 
-(defun inset-lb (image)
-   (ups (lb image) (outset image)))
+(defun inset-lb (self)
+   (ups (lb self) (outset self)))
 
-(defun inset-height (image)
-   (- (l-height image) (outset image) (outset image)))
+(defun inset-height (self)
+   (- (l-height self) (outset self) (outset self)))
 
 ;---------------------------------
 




More information about the Cells-cvs mailing list