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

Annotation of /lisp/tools/oldtmp.l

Parent Directory | Revision Log

Revision: 1.2 - (view) (download)

1 : ktanaka 1.1 (comment
2 :     (put-winprop kumiawase 'button-press-handler
3 :     #'(lambda (win code x y)
4 :     (select-window win code x y)
5 :     (let ((name (read-string-from-kinput skeleditor)))
6 :     (if (> (string-length name) 2)
7 :     (setq name (substring name 0 2)))
8 :     (setq name (intern name))
9 :     (print name)
10 :     (cond ((boundp name)
11 :     (setf (window-cursor editor) please-wait-cursor)
12 :     (setf (window-cursor win) please-wait-cursor)
13 :     (display-force-output (window-display editor))
14 : ktanaka 1.2 (draw-nikuduked-skeleton editor
15 : ktanaka 1.1 (applykanji name)
16 :     'mincho)
17 :     (setf (window-cursor editor) hair-cross-cursor)
18 :     (setf (window-cursor win) roupe-cursor))
19 :     (t
20 :     (beep editor))))))
21 :    
22 :     (put-winprop sub-prim-edit 'button-press-handler
23 :     #'(lambda (win code x y)
24 :     (when edittee-sub-primitives
25 :     (select-window win code x y)
26 :     (setq %sub-primitive-name% nil)
27 :     (put-winprop editor 'motion-notify-handler
28 :     #'(lambda (win x y)
29 :     (nearest-sub-primitive-boxed win x y)))
30 :     (put-winprop
31 :     editor 'button-press-handler
32 :     #'(lambda (win code x y)
33 :     (let ((next (sub-primitive-info-current-xy x y)))
34 :     (save-edittee-to-file output-file-name
35 :     message)
36 :     (initialize-edittee (car next)))))
37 :    
38 :     (setf (window-event-mask editor)
39 :     '(:exposure
40 :     :button-press
41 :     :pointer-motion)))))
42 :    
43 :     (put-winprop motohe-modoru 'button-press-handler
44 :     #'(lambda (win code x y)
45 :     (print edittee-history)
46 :     (cond ((>= (length edittee-history) 2)
47 :     (select-window win code x y)
48 :     (save-edittee-to-file output-file-name message)
49 :     (pop edittee-history)
50 :     (comment print edittee-history)
51 :     (let ((next (pop edittee-history)))
52 :     (comment print (list 'next next))
53 :     (initialize-edittee next))))))
54 :    
55 :    
56 :    
57 :    
58 :     (put-winprop next-edittee 'button-press-handler
59 :     #'(lambda (win code x y)
60 :     (select-window win code x y)
61 :     (save-edittee-to-file output-file-name message)
62 :    
63 :     (let ((name (read-string-from-kinput skeleditor)))
64 :     (loop
65 :     (if (boundp (intern name))
66 :     (exit))
67 :     (setq name (read-string-from-kinput skeleditor)))
68 :     (initialize-edittee (intern name))))))
69 :    
70 :     (comment setq edit-test-menu
71 :     (create-menu skeleditor 0 0 black white kanji-font roupe-cursor
72 :     (kumiawase "?組合せ表示?")
73 :     (next-edittee "新しい漢字の編集")
74 :     (sub-prim-edit "プリミティブ編集")
75 :     (motohe-modoru "一つ前の漢字編集")
76 :     (nop-nop-nop "一一一一一一一一")))
77 :    

ktanaka

Powered by ViewCVS 1.0-dev

ViewCVS and CVS Help