1 : |
ktanaka |
1.1 |
|
2 : |
|
|
(declare ( |
3 : |
|
|
%end% ;; (in func3900) |
4 : |
|
|
%now-drag-lines-mode% ;; (in func2490) |
5 : |
|
|
%pred-nearest-element% ;; (in nearest-line-dotted) |
6 : |
|
|
%pred-position% ;; (in drag-lines-win!) |
7 : |
|
|
%pred-r% ;; (in drag-circles-win!) |
8 : |
|
|
%sub-primitive-name% ;; (in nearest-sub-primitive-boxed) |
9 : |
|
|
**discarded-p** ;; (in main-loop-test) |
10 : |
|
|
**event** ;; (in main-loop-test) |
11 : |
|
|
*default-hirawidth* ;; (in change-hira-width) |
12 : |
|
|
*default-slider-length* ;; (in create-slider-win) |
13 : |
ktanaka |
1.2 |
*element-points* ;; (in add-skeleton-element) |
14 : |
|
|
*end-mode* ;; (in initialize-skeleton-edit-sub) |
15 : |
ktanaka |
1.1 |
*has-hirawidth* ;; (in change-hira-width) |
16 : |
ktanaka |
1.2 |
*link-near-range* ;; (in shapeup-skeleton) |
17 : |
ktanaka |
1.1 |
*menu-margin* ;; (in make-skeledit-windows) |
18 : |
ktanaka |
1.2 |
*near-range* ;; (in initialize-skeleton-edit-sub) |
19 : |
|
|
*range-too-large* ;; (in initialize-skeleton-edit-sub) |
20 : |
|
|
*select-nearest* ;; (in initialize-skeleton-edit-sub) |
21 : |
|
|
*selected-window* ;; (in initialize-skeleton-edit-sub) |
22 : |
ktanaka |
1.1 |
*end-by-release* |
23 : |
|
|
:CONVERSION_END_REQUEST ;; (in read-string-from-kinput) |
24 : |
|
|
:CONVERSION_REQUEST ;; (in read-string-from-kinput) |
25 : |
|
|
:JAPANESE_CONVERSION ;; (in read-string-from-kinput) |
26 : |
|
|
:client-message ;; (in read-string-from-kinput) |
27 : |
|
|
add-hidari ;; (in connect-window-handlers) |
28 : |
|
|
add-hira-long ;; (in connect-window-handlers) |
29 : |
|
|
add-hira-maru ;; (in connect-window-handlers) |
30 : |
|
|
add-hira-short ;; (in connect-window-handlers) |
31 : |
|
|
; patched by tanaka 1993/9/18 |
32 : |
|
|
show-min ;; |
33 : |
|
|
add-outline ;; (in connect-window-handlers) |
34 : |
|
|
add-kagi ;; (in connect-window-handlers) |
35 : |
|
|
add-kokoro ;; (in connect-window-handlers) |
36 : |
|
|
add-kozato ;; (in connect-window-handlers) |
37 : |
|
|
add-magaritate ;; (in connect-window-handlers) |
38 : |
|
|
add-migi ;; (in connect-window-handlers) |
39 : |
|
|
add-migiue ;; (in connect-window-handlers) |
40 : |
|
|
add-sanzui ;; (in connect-window-handlers) |
41 : |
|
|
add-shinnyuu ;; (in connect-window-handlers) |
42 : |
|
|
add-tasuki ;; (in connect-window-handlers) |
43 : |
|
|
add-tate ;; (in connect-window-handlers) |
44 : |
|
|
add-tatehane ;; (in connect-window-handlers) |
45 : |
|
|
add-tatehidari ;; (in connect-window-handlers) |
46 : |
|
|
add-ten ;; (in connect-window-handlers) |
47 : |
|
|
add-tsukurihane ;; (in connect-window-handlers) |
48 : |
|
|
add-yoko ;; (in connect-window-handlers) |
49 : |
ktanaka |
1.2 |
base ;; (in initialize-skeleton-editor) |
50 : |
|
|
base2 ;; (in initialize-skeleton-editor) |
51 : |
ktanaka |
1.1 |
ed-xyunit |
52 : |
|
|
black ;; (in make-skeledit-windows) |
53 : |
|
|
code-position ;; (in func1866) |
54 : |
|
|
colmap ;; (in setup-display) |
55 : |
|
|
color-map-black ;; (in setup-display) |
56 : |
|
|
color-map-white ;; (in setup-display) |
57 : |
|
|
cursor-font ;; (in setup-display) |
58 : |
|
|
delete-element ;; (in connect-window-handlers) |
59 : |
|
|
display ;; (in setup-display) |
60 : |
|
|
display-host ;; (in setup-display) |
61 : |
ktanaka |
1.2 |
editor ;; (in initialize-skeleton-edit-sub) |
62 : |
ktanaka |
1.1 |
edittee-history ;; (in initialize-edittee) |
63 : |
|
|
edittee-name ;; (in initialize-edittee) |
64 : |
|
|
edittee-sub-primitives ;; (in func0779) |
65 : |
|
|
end-by-release ;; (in func2375) |
66 : |
|
|
etc-1 ;; (in connect-window-handlers) |
67 : |
|
|
etc-2 ;; (in connect-window-handlers) |
68 : |
|
|
got-wid ;; (in make-skeledit-windows) |
69 : |
|
|
; tanaka 1993/9/19 |
70 : |
|
|
grid ;; |
71 : |
|
|
hair-cross-cursor ;; (in initialize-edittee) |
72 : |
|
|
hir-wid ;; (in make-skeledit-windows) |
73 : |
|
|
hira-lengthen ;; (in connect-window-handlers) |
74 : |
|
|
hira-long-pnt-add ;; (in connect-window-handlers) |
75 : |
|
|
hira-shorten ;; (in connect-window-handlers) |
76 : |
|
|
hira-width ;; (in connect-window-handlers) |
77 : |
|
|
joint-prim-def ;; (in initialize-edittee) |
78 : |
|
|
joint-prim-name ;; (in func0847) |
79 : |
|
|
joint-prim-symbol ;; (in initialize-edittee) |
80 : |
|
|
kanji-font ;; (in make-skeledit-windows) |
81 : |
|
|
kanoji ;; (in main-test) |
82 : |
|
|
kumiawase ;; (in connect-window-handlers) |
83 : |
|
|
kumiawase-directive ;; (in *toplevel*) |
84 : |
|
|
main-win ;; (in slider-win-test) |
85 : |
ktanaka |
1.2 |
message ;; (in skeleton-edit) |
86 : |
ktanaka |
1.1 |
min-wid ;; (in make-skeledit-windows) |
87 : |
|
|
motohe-modoru ;; (in connect-window-handlers) |
88 : |
|
|
move-joint-prim ;; (in connect-window-handlers) |
89 : |
|
|
move-point ;; (in initialize-edittee) |
90 : |
|
|
next-edittee ;; (in connect-window-handlers) |
91 : |
|
|
nikuduke-got ;; (in connect-window-handlers) |
92 : |
|
|
nikuduke-joint-prim ;; (in connect-window-handlers) |
93 : |
|
|
nikuduke-min ;; (in connect-window-handlers) |
94 : |
|
|
niti ;; (in initialize-edittee) |
95 : |
|
|
nop-nop-nop ;; (in connect-window-handlers) |
96 : |
|
|
output-file-name ;; (in func0751) |
97 : |
|
|
part-move ;; (in connect-window-handlers) |
98 : |
|
|
part-resize ;; (in connect-window-handlers) |
99 : |
|
|
please-wait-cursor ;; (in initialize-edittee) |
100 : |
|
|
resize-joint-prim ;; (in connect-window-handlers) |
101 : |
|
|
root ;; (in make-skeledit-windows) |
102 : |
|
|
roupe-cursor ;; (in func0592) |
103 : |
|
|
screen ;; (in setup-display) |
104 : |
|
|
default-depth |
105 : |
|
|
set-joint-prim-name ;; (in connect-window-handlers) |
106 : |
ktanaka |
1.2 |
skeleditor ;; (in initialize-skeleton-editor) |
107 : |
ktanaka |
1.1 |
temporary-window |
108 : |
|
|
sliders ;; (in slider-win-test) |
109 : |
|
|
source-points ;; (in func2375) |
110 : |
|
|
sub-prim-edit ;; (in connect-window-handlers) |
111 : |
|
|
syuuryou ;; (in func0520) |
112 : |
|
|
toggle-link ;; (in connect-window-handlers) |
113 : |
|
|
white ;; (in make-skeledit-windows) |
114 : |
ktanaka |
1.2 |
width-sliders ;; (in initialize-skeleton-editor) |
115 : |
ktanaka |
1.1 |
root-blackgc |
116 : |
|
|
root-whitegc |
117 : |
|
|
root-reversegc |
118 : |
|
|
root-xorgc |
119 : |
|
|
root-dashlinegc |
120 : |
|
|
root-saveblackgc |
121 : |
|
|
root-savewhitegc |
122 : |
|
|
boole-c1 |
123 : |
|
|
boole-eqv |
124 : |
|
|
edit-kana-kanji-primitive-menu |
125 : |
|
|
edit-jointed-primitive-menu |
126 : |
|
|
current-selected-menu |
127 : |
|
|
force-primitive |
128 : |
|
|
change-name |
129 : |
|
|
edit-common-menu |
130 : |
|
|
edit-kana-kanji-primitive-menu-sub-1 |
131 : |
|
|
edit-kana-kanji-primitive-menu-sub-2 |
132 : |
|
|
primitive-reference-table |
133 : |
|
|
) special) |