| (put-winprop win 'button-press-handler save-bp-handler) |
(put-winprop win 'button-press-handler save-bp-handler) |
| code-position)) |
code-position)) |
| |
|
| (defun add-skelton-element (win code x y prim element) |
(defun add-skeleton-element (win code x y prim element) |
| (lets ((points (get-points prim)) |
(lets ((points (get-points prim)) |
| (now-nth (1- (length points))) |
(now-nth (1- (length points))) |
| (lines (get-lines prim)) |
(lines (get-lines prim)) |
| (setq ret (cons points (cons (append lines (list newelem)) aux-info))) |
(setq ret (cons points (cons (append lines (list newelem)) aux-info))) |
| (clear-win win) |
(clear-win win) |
| (if grid (grid-win win)) |
(if grid (grid-win win)) |
| (draw-skelton-win win ret) |
(draw-skeleton-win win ret) |
| (redraw-win win) |
(redraw-win win) |
| ret)) |
ret)) |
| |
|
Diff of /lisp/tools/addprim.l
Parent Directory
| 
Revision Log