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 -------------------