[wadalabfont-kit] / lisp / tools / xyunit.l  

Diff of /lisp/tools/xyunit.l

Parent Directory | Revision Log

version 1.1, Thu Dec 28 08:54:20 2000 UTC version 1.2, Fri Jun 20 11:40:23 2003 UTC
Line 102 
Line 102 
     (put-prim-info niti 'yunit nyunit)      (put-prim-info niti 'yunit nyunit)
     (clear-win editor)      (clear-win editor)
     (if grid (grid-win editor))      (if grid (grid-win editor))
     (draw-skelton-win editor niti)      (draw-skeleton-win editor niti)
     (redisplay-win editor)      (redisplay-win editor)
   
     (setf (window-cursor editor) please-wait-cursor)      (setf (window-cursor editor) please-wait-cursor)
     (display-force-output display)      (display-force-output display)
     (show-temporary-nikuduked-skeltons temporary-window)      (show-temporary-nikuduked-skeletons temporary-window)
     (setf (window-cursor editor) hair-cross-cursor)      (setf (window-cursor editor) hair-cross-cursor)
   
     niti))      niti))
   
 (defun draw-temporary-nikuduked-skelton-win! (win prim  (defun draw-temporary-nikuduked-skeleton-win! (win prim
                                                   xwid ywid                                                    xwid ywid
                                                   xofs yofs                                                    xofs yofs
                                                   (mincho-gothic 'mincho))                                                    (mincho-gothic 'mincho))
   (setq prim (shapeup-skelton prim))    (setq prim (shapeup-skeleton prim))
   (when (not (null (car prim)))    (when (not (null (car prim)))
     (let ((outline (skelton2list (applykanji prim) mincho-gothic))      (let ((outline (skeleton2list (applykanji prim) mincho-gothic))
           (save (get-winprop win 'button-press-handler))            (save (get-winprop win 'button-press-handler))
           (loopend nil))            (loopend nil))
       (mapcar outline        (mapcar outline
Line 138 
Line 138 
                                  r))))))                                   r))))))
       (display-force-output (window-display win)))))        (display-force-output (window-display win)))))
   
 (defun draw-temporary-nikuduked-skelton-win (win prim  (defun draw-temporary-nikuduked-skeleton-win (win prim
                                                  xwid ywid                                                   xwid ywid
                                                  xofs yofs                                                   xofs yofs
                                                  (mincho-gothic 'mincho))                                                   (mincho-gothic 'mincho))
   (setq prim (shapeup-skelton prim))    (setq prim (shapeup-skeleton prim))
   (when (not (null (car prim)))    (when (not (null (car prim)))
     (let ((outline (skelton2list (applykanji prim) mincho-gothic))      (let ((outline (skeleton2list (applykanji prim) mincho-gothic))
           (save (get-winprop win 'button-press-handler))            (save (get-winprop win 'button-press-handler))
           (loopend nil))            (loopend nil))
       (mapcar outline        (mapcar outline

Generate output suitable for use with a patch program
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
ktanaka

Powered by ViewCVS 1.0-dev

ViewCVS and CVS Help