Mercurial > hg > xemacs-beta
diff lisp/oobr/tree-nx/Line.m @ 0:376386a54a3c r19-14
Import from CVS: tag r19-14
author | cvs |
---|---|
date | Mon, 13 Aug 2007 08:45:50 +0200 |
parents | |
children |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/lisp/oobr/tree-nx/Line.m Mon Aug 13 08:45:50 2007 +0200 @@ -0,0 +1,23 @@ + +#import "Line.h" + +@implementation Line + +- setStart:(NXPoint *)s end:(NXPoint *)e +{ + start.x = s->x; + start.y = s->y; + end.x = e->x; + end.y = e->y; + return self; +} + +- render +{ + PSmoveto(start.x, start.y); + PSlineto(end.x, end.y); + PSstroke(); + return self; +} + +@end