Annotation of /skeleton-edit/oldtmp.lAnnotation of /skeleton-edit/oldtmp.l
Parent Directory
| 
Revision Log
Revision: 1.1 - (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 : | (draw-nikuduked-skeleton editor | ||
| 15 : | (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 |