[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