[cells-cvs] CVS cells/gui-geometry

[ktilton]

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

Modified Files:
	defpackage.lisp geometer.lisp 
Log Message:
New abbreviated defmodel: defmd

Starting to change internals names as the mood hits me.

--- /project/cells/cvsroot/cells/gui-geometry/defpackage.lisp	2006/06/20 14:16:45	1.4
+++ /project/cells/cvsroot/cells/gui-geometry/defpackage.lisp	2006/06/23 01:04:57	1.5
@@ -22,7 +22,7 @@
     #:^px #:^py #:^ll #:^lt #:^lr #:^lb
     #:u96ths #:udots #:uinches #:uin #:upoints #:upts #:u8ths #:u16ths #:u32nds
     #:mkr #:v2-move #:l-height #:mkv2 #:^offset-within #:inset-lr #:v2-v #:v2-h
-    #:r-bounds 
+    #:r-bounds #:l-box
     #:lb
     #:cs-target-res 
     #:nr-make 
--- /project/cells/cvsroot/cells/gui-geometry/geometer.lisp	2006/06/13 05:05:17	1.3
+++ /project/cells/cvsroot/cells/gui-geometry/geometer.lisp	2006/06/23 01:04:57	1.4
@@ -57,8 +57,8 @@
      :lr (c? (geo-kid-wrap self 'pr))
       :lb (c? (geo-kid-wrap self 'pb))))
 
-(defun l-rect (geo)
-  (count-it :l-rect)
+(defun l-box (geo)
+  (count-it :l-box)
    (mkr (ll geo) (lt geo) (lr geo) (lb geo)))
 
 ;---------- gOffset -------------------